list p=16F84A ; list directive to define processor
#include <p16F84a.inc> ; processor specific variable definitions
__CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _XT_OSC
org 0x0
cblock 0x0c
d1,d2,d3
endc
bsf STATUS,RP0
movlw b'00000'
movwf TRISA
bcf STATUS,RP0
START movlw b'11111'
movwf PORTA
call Delay2msec
movlw 00h
movwf PORTA
call Delay18msec
goto START
Delay18msec
;17993 cycles
movlw 0x0E
movwf d1
movlw 0x0F
movwf d2
Delay18msec_0
decfsz d1, f
goto $+2
decfsz d2, f
goto Delay18msec_0
;3 cycles
goto $+1
nop
;4 cycles (including call)
return
Delay2msec
;1993 cycles
movlw 0x8E
movwf d1
movlw 0x02
movwf d2
Delay2msec_0
decfsz d1, f
goto $+2
decfsz d2, f
goto Delay2msec_0
;3 cycles
goto $+1
nop
;4 cycles (including call)
return
END