LIST P=16F84A
INCLUDE <P16F84A.inc>
__CONFIG _CP_OFF&_PWRTE_OFF&_WDT_OFF&_XT_OSC
;------------------------------------------------------------
CONTADOR1 EQU .14
CONTADOR2 EQU .15
CONTADOR3 EQU .16
;------------------------------------------------------------
org .0
goto INICIO
org .4
retfie
;------------------------------------------------------------
INICIO
bcf STATUS,RP0
bcf STATUS,RP1
clrf PORTA
clrf PORTB
bsf STATUS,RP0
movlw B'00011111'
movwf TRISA
movlw B'00000000'
movwf TRISB
bcf STATUS,RP0
COMIENZO
clrwdt
btfss PORTA,2
goto COMIENZO
movlw .14 ;rutina de +/- 1 seg.
movwf CONTADOR1
LOOP0
movlw .72
movwf CONTADOR2
LOOP1
movlw .247
movwf CONTADOR3
LOOP2
clrwdt
decfsz CONTADOR3,F
goto LOOP2
decfsz CONTADOR2,F
goto LOOP1
decfsz CONTADOR1,F
goto LOOP0
bsf PORTB,3
BUCLE
clrwdt
goto BUCLE
;------------------------------------------------------------
end