list p=16f628a
include P16f628a.inc
__CONFIG _BODEN_OFF & _CP_OFF & _DATA_CP_OFF & _PWRTE_ON & _WDT_OFF & _LVP_OFF & _MCLRE_OFF & _XT_OSC
cont_1 equ 0x20
cont_2 equ 0x21
;configurando el puerto A
BANKSEL TRISA ;Banco 1
CLRF TRISA ;Solo usaré RA0
BANKSEL CMCON ;Banco 0
MOVLW 0x07
MOVWF CMCON ; Todos los PORTA como digitales
MOVLW 0x01 ;W a uno para hacer xor con PORTA
ciclo:
XORWF PORTA, F ;xor entre W y PORTA y resultado en PORTA
CALL retardo
GOTO ciclo
retardo:
DECFSZ cont_1, 1
GOTO retardo
DECFSZ cont_2, 1
GOTO retardo
RETURN
END