LIST P=PIC16F84A
#INCLUDE "P16F84A.INC"
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _LP_OSC
errorlevel -302
cblock 0x0c
d1,d2,d3
endc
org 0
init
banksel TRISA ;bank 1
clrf TRISA
clrf TRISB
banksel PORTB ;bank 0
clrf PORTB
main bcf PORTB,1
bcf PORTB,3
bsf PORTB,0
bsf PORTB,2
call Delay8ofsec
bcf PORTB,0
bsf PORTB,1
call Delay8ofsec
bcf PORTB,2
bsf PORTB,3
call Delay8ofsec
bsf PORTB,0
bcf PORTB,1
goto main
Delay8ofsec
;124993 cycles
movlw 0xA6
movwf d1
movlw 0x62
movwf d2
Delay8ofsec_0
decfsz d1, f
goto $+2
decfsz d2, f
goto Delay8ofsec_0
;3 cycles
goto $+1
nop
;4 cycles (including call)
return
end