org 0000h
goto main
org 0004h
bcf INTCON,T0IF
bsf INTCON,GIE
comf TEST
return
main
nop
TMRO_SET
banksel OPTION_REG
bcf OPTION_REG,5
banksel INTCON
bsf INTCON,GIE
bsf INTCON,PEIE
bsf INTCON,T0IE
PORTB_SET
bsf STATUS,RP0
bcf OPTION_REG,7
bcf TRISB,0
banksel PORTB
movlw 0X01
movwf TEST
lamp_on
clrf TMR0
test1
bsf PORTB,0
btfsc TEST,0
goto test1
clrf TMR0
test2
bcf PORTB,0
btfss TEST,0
goto test2
goto lamp_on
END