;PROGRAM QUE MUESTRA UN MENSAJE EL LCD 
;CON LA AYUDA DE EL PROGRAM ANTERIOR 
;LCD_16F84.ASM

		LIST	P=16F84
		INCLUDE"PIC16F84.INC"	;esto no me funciona me saca error

RESUL	EQU		0X0C
TEMPO1	EQU		0X0D	
OFFSET	EQU		0X0E
OPCION	EQU		080H
LCD_VAR	EQU		0X0F

		ORG		00
		GOTO	INICIO
		ORG		5				;esto para que es ?????
	
		INCLUDE"LCD_16F84.ASM"

INICIO
	CALL	UP_LCD			;COFGURO EL PIC PARA TRABAJAR CON LCD
	BSF		STATUS,5		;CAMBIO DE BAK
	MOVLW	B'10000111'		;MIRARO REG OPTION
	MOVWF	OPCION			;ASIGN PRESCALER
	BCF		STATUS,5
	CALL	LCD_INI			;CONFIGURA EL LCD

INICIO1
	CALL	BORRAR_Y_HOME		;BORRA Y POEN EL CURSOR EN LA POCISION 1 DE EL LCD
	CALL	DISPLAY_ON_CUR_OFF	;ACTIVA LCD Y DESAPARESE EL SURSOS
	MOVLW	0X80				;POSICON DE LA PRIMERA FILA
	CALL	LCD_REG
	MOVLW	B'00000110'			;PARA PONER QUE INCREMENTE EL CURSOSR Y QUE MUESTRE SIN MOVERESE 
	CALL 	LDC_REG
	CLRF	OFFSET
	CALL	MENS

BUCLE	GOTO	BUCLE			;para que utilizar esto ???????

;ESTA RUTINA SACA EL MENSAJE POR EL LCD

MENS
		CLRF	RESUL			;BORRAR EL RESULTADO
MENS_1	MOVF	OFFSET,W		;para que es el offset ???????
		ADDWF	RESUL,W			;SUMA RESUL CON E
		CALL	DATOS			;LLAMA LA RUTINA DATO
		IORLW	0				;para que sirve cual es su aplicacion ??????
		BTFSC	STATUS,2		;PREGUNTA POR EL DESBORDE
		RETURN					;porque este retunr esta aca ??????
		CALL	LCD_DATO		;LLAMA A LA RUTINA
		INCF	RESUL,F			;INCREMENTA EL RESULTADO
		MOVLW	.10				;esto para que ????????? sino se usa no le veo la aplicacion
		MOVWF	TEMPO_1				
		GOTO	MENS_1

DATOS
		ADDWF	PCL,1
		RETLW	"H"
		RETLW	"O"
		RETLW	"L"
		RETLW	"A"
		RETLW	0X0				;esto para que sirve aca ??????

	END