#include "p16f628.inc"

        ; CONFIG
        ; __config 0xFFDC
        __CONFIG _FOSC_INTOSCIO & _WDTE_ON & _PWRTE_OFF & _MCLRE_OFF & _BOREN_ON & _LVP_ON & _CPD_OFF & _CP_OFF
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BANK0   MACRO
    BCF STATUS,RP0
    BCF STATUS,RP1
    ENDM

BANK1   MACRO
    BSF STATUS,RP0
    BCF STATUS,RP1
    ENDM
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CONTA1  EQU 0X20; N
CONTA2  EQU 0X21; M
CONTA3  EQU 0X22; P
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
    ORG 0
    GOTO INICIO
    ORG 5
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
RETARDO MOVLW .33
    MOVWF CONTA3
CICLO3  MOVLW .100
    MOVWF CONTA2
CICLO2  MOVLW .100
    MOVWF CONTA1
CICLO1  DECFSZ CONTA1,F
    GOTO $-1
    DECFSZ CONTA2,F
    GOTO $-5
    DECFSZ CONTA3,F
    GOTO $-9
    RETURN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
INICIO  CLRF PORTA; LIMPIA EL PUERTO A
    MOVLW 0X07;
    MOVWF CMCON
    BANK1
    MOVLW B'11110000'
    MOVWF TRISA
    BANK0
BUCLE   BSF PORTA,RA0
    CALL RETARDO
    BCF PORTA,RA0
    CALL RETARDO
    GOTO BUCLE

    END