Code:
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.