@ device pic16f877
define osc 4
define adc_bits 8
trisb =$0f
L1 var portb.6
L2 var portb.7
i var byte
on interrupt goto int
intcon = %10010000
low L1
low L2
start:
toggle L1
pause 500
goto start
end
disable
int:
toggle L2
pause 100
intcon.1 = 0 ' Clear flag
resume ' Return to main program
'