LIST P=16F877A
INCLUDE<P16F877A.INC>
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _XT_OSC & _WRT_OFF & _LVP_OFF & _DEBUG_OFF
CBLOCK 20H
ENDC
ORG 00H
GOTO INICIO
ORG 04H
GOTO INTERRUPCION
INICIO
BSF STATUS,RP0 ;SELECCIONO BANCO-1
MOVLW 6H ;CONFIGURO LOS PINES COMO
MOVWF ADCON1 ;ENTRADAS DIGITALES
BCF STATUS,RP0 ;SELECCIONO BANCO-0
CALL LCD_Inicializa
CALL Inicia_RX
BSF STATUS,RP0
MOVLW B'11000000'
MOVWF INTCON
BSF PIE1,RCIE
BCF STATUS,RP0
SLEEP
GOTO $-1
INTERRUPCION
CALL WAIT_RX
CALL LCD_Caracter
RETFIE
INCLUDE<LCD_4BIT.INC>
INCLUDE<USART.INC>
INCLUDE<RETARDOS.INC>
END