Problem with RAC_INT

[Dick Ivers]

Hello again,
Thanks to DT's advice I was able to get my elapsed timer test program working well. I modified the original Elasped_INT routine in order to keep track of time in seconds and tenths of seconds to suit my purpose. My test circuit using this program worked perfectly, with good accuracy when checked against a stopwatch.

However, when adding another interrupt source there was no response from the breadboard circuit. The new source was RAC_INT, interrupt on portA change. The circuit has switches on several portA pins. Input changes on the pins was verified, but the test progarm did not respond as expected.


'device is PIC 16F684

'set registers
OPTION_REG.7 = 0 'enable porta pullups
CMCON0 = 7 'comparators off
ANSEL = 0 'porta pins all digital
TRISA = %111111 'set porta pins as input
TRISC = %001101 'set portc pins 0,2,3 as input, all others output
OSCCON = %1110000 'set internal osc. at 8 mhz, wait for stable freq.
OSCTUNE = 0 'internal osc. running at factory calibration

DEFINE OSC 8 '8 Mhz oscillator

while OSCCON.2 = 0 'wait for osc.to be stable
wend

'declare variables
led var portc.3 'led output on portc.3
DTtime var word
sum var word

start:
low led 'flash red LED for 0.5 sec
pause 500
input led

pause 2000 'pause 2 seconds

INCLUDE "DT_INTS-14 for F684.bas" 'Base interrupt with wsave selected for 16F684
INCLUDE "ReEnterPBP.bas" 'Using PBP interrupts
INCLUDE "Elapsed_INT_RI.bas" 'Elasped timer counting seconds and tenths seconds

ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler TMR1_INT, _ClockCount, PBP, yes
INT_Handler RAC_INT, _RDT, PBP, yes
endm
INT_CREATE ; Creates the interrupt processor

INT_ENABLE TMR1_INT ; Enable Timer 1 Interrupts
INT_ENABLE RAC_INT ; Enable PortA Change Interrupt
ENDASM

DTtime = 1800 ' 180.0 second test
Gosub ResetTime ' Reset Time to 0d-00:00:00.00
Gosub StartTimer ' Start the Elapsed Timer

Main:
low Led 'turn on led
sum = 10*Seconds + Tenths
if sum => DTtime then
high led 'turn off led
goto halt
endif
GOTO Main

'-------Interrupt Handler for RDT------------
RDT:
low led 'turn led on
pause 2000 'pause 2 seconds
@ INT_RETURN
'---------------------------------------------
halt: end


427 words

[mark_s]

Your timer interrupt is firing 10 times a second, which means your "RDT" routine can never complete with a 2 second pause. Try polling the switches in your "main" loop, instead of using a second interrupt. You should have plenty of time.

Regards

[Darrel Taylor]

'-------Interrupt Handler for RDT------------
RDT:
low led 'turn led on
pause 2000 'pause 2 seconds
@ INT_RETURN


With any of the PORT change interrupts, you have to Read the port inside the handler to end the "mismatch" condition.
Otherwise DT_INTS can't reset the int flag, and it will lock up in a continuous interrupt loop..
DUMMY = PORTA
<br>

[Bruce]

Ditto - and you might want to have something in your interrupt handler that waits for the input pin to return to the idle state before exiting your interrupt handler.

I.E. if your button press takes the pin low, to generate the interrupt, wait for it to return high before exiting. Otherwise you'll have interrupts on button press & release.

[Dick Ivers]

Still not clear on how to end the mismatch in porta. Tried the following code, but it did not work on the breadboard. I'm looking for the the led to go off and stay off for 2 seconds, and then the timing to resume. This is just a demo tryout.

All of this is just testing to try to understand how instant interrupts work. Of course I know it's possible to just poll a porta pin in the main loop ... I do it that way with my non-interrupt software.


'device is PIC 16F684

'set registers
OPTION_REG.7 = 0 'enable porta pullups
CMCON0 = 7 'comparators off
ANSEL = 0 'porta pins all digital
TRISA = %111111 'set porta pins as input
TRISC = %001101 'set portc pins 0,2,3 as input, all others output
OSCCON = %1110000 'set internal osc. at 8 mhz, wait for stable freq.
OSCTUNE = 0 'internal osc. running at factory calibration

DEFINE OSC 8 '8 Mhz oscillator

while OSCCON.2 = 0 'wait for osc.to be stable
wend

'declare variables
led var portc.3 'led output on portc.3
DTtime var word
sum var word
dummy var byte

start:
low led 'flash red LED for 0.5 sec
pause 500
input led

pause 2000 'pause 2 seconds

INCLUDE "DT_INTS-14 for F684.bas" 'Base interrupt with wsave selected for 16F684
INCLUDE "ReEnterPBP.bas" 'Using PBP interrupts
INCLUDE "Elapsed_INT_RI.bas" 'Elasped timer counting seconds and tenths seconds

ASM
INT_LIST macro ; IntSource, Label, Type, ResetFlag?
INT_Handler TMR1_INT, _ClockCount, PBP, yes
INT_Handler RAC_INT, _RDT, PBP, yes
endm
INT_CREATE ; Creates the interrupt processor

INT_ENABLE TMR1_INT ; Enable Timer 1 Interrupts
INT_ENABLE RAC_INT ; Enable PortA Change Interrupt
ENDASM

dummy = porta ' initialize dummy variable
DTtime = 1800 ' 180.0 second test
Gosub ResetTime ' Reset Time to 0d-00:00:00.00
Gosub StartTimer ' Start the Elapsed Timer

Main:
low Led 'turn on led
sum = 10*Seconds + Tenths
if sum => DTtime then
high led 'turn off led
goto halt
endif
GOTO Main

'-------Interrupt Handler for RDT------------
RDT:
high led 'turn led off
dummy = porta 'needed to end mismatch in porta
pause 2000 'pause 2 seconds
@ INT_RETURN
'---------------------------------------------
halt: end
431 words

[Bruce]

You may need to enable the on-change interrupt for the input pin you're using to trigger
the interrupt. Say you're using RA0, then IOCA0=1 would enable on-change interrupt for
this pin.

Then in your interrupt handler, wait for the pin to return to the idle state before exiting.

Something like WHILE PORTA.0 = 1:WEND. Assuming RA0 was held low, and a switch press
taking it high caused the on-change interrupt.

Interrupt happens on RA0 going high, jumps to int handler, waits for pin to return low before
exiting & re-enabling interrupts.

[Dick Ivers]

Thanks Bruce, your suggestion worked. Setting IOCA.4 = 1 enabled the change on porta interrupt to function properly. I have a switch on porta pin 4. The interrupt works for both on-switching and off-switching.

Of course, each time the interrupt is used 2 seconds is added to the clocked time because of the delay inside the handler. In the real program I don't want this happening. This interrupt will only be used once. After it occurs this interrrupt can be disabled. I then want to jump to another program loop. I'll try some experiments to see if this can be done ...

[Bruce]

Hi Dick,

If the user will not be pressing & holding the switch, then read the port pin after the 2 sec
pause.

Otherwise you need to wait for the pin to return to the non-button-pressed state or it just
interrupts again after the port read & switch release.

If it's a one-shot deal, just disable it by clearing IOCA.4.

[lugo.p]

I intend to use the IOC too, but i'm not sure if i need those:

DT_INTS-14 for F684.bas
ReEnterPBP.bas
Elapsed_INT_RI.bas


if so, where i find this .bas files?

[Dick Ivers]

Files attached. Rename without .txt to use.

[lugo.p]

Thanks Dick but i'm still having troubles with IOCA over 16f684.

Because i have not much experience with PicBasic, i have been reading about IOC but don't understad how to implement a basic interrupt on change