LIST P=PIC16F84A
#INCLUDE "P16F84A.INC"
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_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 movlw b'00000001'
movwf PORTB
call Delay8ofsec
movlw b'00000100'
movwf PORTB
call Delay8ofsec
movlw b'00000010'
movwf PORTB
call Delay8ofsec
movlw b'00001000'
movwf PORTB
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