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 'H'
	CALL LCD_Caracter
	MOVLW 'O'
	CALL LCD_Caracter
	MOVLW 'L'
	CALL LCD_Caracter
	MOVLW 'A'
	CALL LCD_Caracter

	CALL	LCD_Linea2
	
	MOVLW 'P'
	CALL LCD_Caracter
	MOVLW 'I'
	CALL LCD_Caracter
	MOVLW 'N'
	CALL LCD_Caracter
	MOVLW 'O'
	CALL LCD_Caracter
	MOVLW 'N'
	CALL LCD_Caracter
	MOVLW 'I'
	CALL LCD_Caracter
	MOVLW 'L'
	CALL LCD_Caracter
	MOVLW 'L'
	CALL LCD_Caracter
	MOVLW 'O'
	CALL LCD_Caracter


	GOTO	PRINCIPAL

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	INCLUDE <LCD_4BIT_1.INC>
  	INCLUDE <RETARDOS.INC>
	END