list p=16F84A ; list directive to define processor
#include <p16F84a.inc> ; processor specific variable definitions
__CONFIG _CP_OFF & _WDT_ON & _PWRTE_ON & _XT_OSC
cblock
d1
d2
d3
endc
bsf STATUS,5
movlw 00h
movwf TRISA
bcf STATUS,5
START movlw 02h
movwf PORTA
call Delay2sec
movlw 00h
movwf PORTA
call Delay2sec
goto START
Delay2sec
;1999996 cycles
movlw 0x11
movwf d1
movlw 0x5D
movwf d2
movlw 0x05
movwf d3
Delay2sec_0
decfsz d1, f
goto $+2
decfsz d2, f
goto $+2
decfsz d3, f
goto Delay2sec_0
;4 cycles (including call)
return
END