16f688 interrupt

[Darrel Taylor]

Add DISABLE/ENABLE around the interrupt handler, and any subroutines called from the handler.
Without them, the interrupt handler will continuously interrupt itself.

DISABLE
buttonpressed:
    gosub All_on
    dummy=porta  ; clear mismatch condition
    INTCON.0 = 0   ; reset interrupt flag
resume                     
ENABLE

 ...

DISABLE
all_on:
  a=7:c=63
  pause t1
return
ENABLE

[RHS_electronics]

thank you for all of your help, but is there a way to make it so that when you press the button it loops one program continously then, when pressed again goes to another program?

[Archangel]

thank you for all of your help, but is there a way to make it so that when you press the button it loops one program continously then, when pressed again goes to another program?

Untested but worth a try:

Button_Flag VAR BIT
DUMMY       VAR BYTE
Trisa = 32
Trisc = 0


a Var porta:c var portc
x var word:t1 var word


x=0
t1=200

ANSEL = 0
ioca=%00100000
CMCON0 = 7
start:

on interrupt goto buttonpressed
INTCON = %10001000 
DISABLE
buttonpressed:
IF Button_Flag = 1 THEN
    gosub All_on
    ELSE
    gosub LEFT
    endif
    dummy=porta  ; clear mismatch condition
    INTCON.0 = 0   ; reset interrupt flag

resume                     
ENABLE

 '...

DISABLE
all_on:
  a=7:c=63
  Button_Flag = 1
  pause t1
return
ENABLE

DISABLE
    LEFT:
    A=4 : c=36:
    Button_Flag = 0
    pause t1
a=0: c=0
pause t1
return
ENABLE

[RHS_electronics]

Trisa = 32
Trisc = 0


a Var porta:c var portc
x var word:x1 var word:x2 var word: x3 var word:t1 var word:

dummy var byte


t1=200

ANSEL = 0
ioca=%00100000
CMCON0 = 7
start:

on interrupt goto flag
INTCON = %10001000 

one:
   

    gosub left
    goto one
    
two:

gosub all_on

goto two

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'SUBROUTINES
disable
flag:
x=1+x
x1=x//2
if x1=0 then
x2=1+x2
x3=x2//2
branch x3,[one_reset,two_reset] 
endif
dummy=porta  ; clear mismatch condition
INTCON.0 = 0   ; reset interrupt flag 
resume
enable

disable
left:
a=4:c=36
pause t1
a=0: c=0
pause t1
return
enable

disable
all_on:
a=7:c=63
pause 100
return
enable

one_reset:
x=0
goto one

two_reset:
x=0
goto two

We finally got it working! Thanks for all of your help, it was greatly appreciated.