LIST P=16F877A, F=INHX32
INCLUDE <P16F877A.INC>
__CONFIG _BODEN_OFF & _CP_OFF & _WRT_OFF & _PWRTE_ON & _WDT_OFF & _XT_OSC & _DEBUG_OFF & _CPD_OFF & _LVP_OFF
ERRORLEVEL 1;-302 ;Eliminate bank warning
CBLOCK 0x20
ENDC
ORG 0000H
call LCD_Inicializa
bsf STATUS,5 ;Cambiando al Banco-1
movlw 0x06
movwf ADCON1
CLRF PORTB
clrf PORTC
clrf PORTD
clrf PORTE
bcf STATUS,5 ;Regresando al Banco-0
CALL LCD_Linea1
PRINCIPAL
MOVLW '1'
CALL LCD_Caracter
GOTO PRINCIPAL
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
INCLUDE <LCD_4BIT_1.INC>
INCLUDE <RETARDOS.INC>
END