list p=16F84A
#include <p16F84A.inc>
main
STATUS equ h'03'
TRISA equ h'85'
PORTA equ h'05'
BSF STATUS,5
MOVLW h'00'
MOVWF TRISA
BCF STATUS,5
Start
Call LEDOn
Call Delay1
Call LEDOff
Call Delay1
goto Start
LEDOn
MOVLW h'1f'
MOVWF PORTA
return
LEDOff
MOVLW h'00'
MOVWF PORTA
return
;*****Delay1 - SUB*****
cblock 0x0C
d1
d2
d3
endc
Delay1
movlw 0x07
movwf d1
movlw 0x2F
movwf d2
movlw 0x03
movwf d3
Delay1_0
decfsz d1, f
goto $+2
decfsz d2, f
goto $+2
decfsz d3, f
goto Delay1_0
goto $+1
goto $+1
goto $+1
return
END