LIST P=16F628A
INCLUDE <P16F628A.INC>
ERRORLEVEL 0, -302
__CONFIG _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _BOREN_OFF & _LVP_OFF & _CPD_OFF & _CP_OFF
CBLOCK 0x20
ENDC
org 0x00
goto Configura
org 0x05
Configura:
banksel TRISA
movlw b'00010000' ; RA4 entrada
movwf TRISA
clrf TRISB
movlw b'10101000' ; Pulsos externos
movwf OPTION_REG
banksel PORTA
clrf PORTA
clrf PORTB
clrf TMR0
Loop:
btfsc INTCON,2 ; Consulta por poleo, desborde
goto Desborde
goto Loop
Desborde:
bcf INTCON,2
movlw 0x01
xorwf PORTB,F
goto Loop
END