;**************************** Librería "LCD_MENS.INC" ********************************

;

;	===================================================================

;	  Del libro "MICROCONTROLADOR PIC16F84. DESARROLLO DE PROYECTOS"

;	  E. Palacios, F. Remiro y L. López.

; 	  Editorial Ra-Ma.  www.ra-ma.es

;	===================================================================

;

; Librería de subrutinas para el manejo de mensajes a visualizar en un visualizador LCD.



	CBLOCK	0x25

	LCD_ApuntaCaracter		; Indica la posición del carácter a visualizar

					; respecto del comienzo de todos los mensajes,

					; (posición de la etiqueta "Mensajes").

	LCD_ValorCaracter		; Código ASCII del carácter a visualizar

	ENDC				



; Los mensajes tienen que estar situados dentro de las 256 primeras posiciones de la 

; memoria de programa, es decir, no pueden superar la dirección 0FFh.



; Subrutina "LCD_Mensaje" ---------------------------------------------------------------

;

; Visualiza por pantalla el mensaje apuntado por el registro W.

;

; Los mensajes deben localizarse dentro de una zona encabezada por la etiqueta "Mensajes" y que

; tenga la siguiente estructura:

;

; Mensajes				; ¡Etiqueta obligatoria!

;	addwf	PCL,F

; Mensaje0				; Posición inicial del mensaje.

;	DT ".. ..", 0x00			; Mensaje terminado en 0x00.

; Mensaje1

;	...	

;	...

; FinMensajes

;

; La llamada a esta subrutina se realizará siguiendo este ejemplo:

;

;	movlw	Mensaje0			; Carga la posición del mensaje.

;	call	LCD_Mensaje		; Visualiza el mensaje.

;

LCD_Mensaje

	movwf	LCD_ApuntaCaracter	; Posición del primer carácter del mensaje.

	movlw	Mensajes			; Halla la posición relativa del primer carácter

	subwf	LCD_ApuntaCaracter,F	; del mensaje respecto de etiqueta "Mensajes".

	decf	LCD_ApuntaCaracter,F	; Compensa la posición que ocupa "addwf PCL,F".

LCD_VisualizaOtroCaracter

	movf	LCD_ApuntaCaracter,W

	call	Mensajes			; Obtiene el código ASCII del carácter apuntado.

	movwf	LCD_ValorCaracter		; Guarda el valor de carácter.

	movf	LCD_ValorCaracter,F	; Lo único que hace es posicionar flag Z. En caso

	btfsc	STATUS,Z		; que sea "0x00", que es código indicador final	

	goto	LCD_FinMensaje		; de mensaje, sale fuera.

LCD_NoUltimoCaracter

	call	LCD_Caracter		; Visualiza el carácter ASCII leído.

	incf	LCD_ApuntaCaracter,F	; Apunta a la posición del siguiente carácter 

;-----------------------------------------------------------------

	btfss	STATUS,C	;Si hay acarreo al incrementar LCD_ApuntaCaracter es por

	incf	PCLATH		;haber cambiado de página por lo que hay que sumar 1 al PCLATH

;----------------------------------------------------------------

	goto	LCD_VisualizaOtroCaracter	; dentro del mensaje.

LCD_FinMensaje

	return				; Vuelve al programa principal.



; Subrutina "LCD_MensajeMovimiento" -----------------------------------------------------

;

; Visualiza un mensaje de mayor longitud que los 16 caracteres que pueden representarse

; en una línea, por tanto se desplaza a través de la pantalla.

;

; En el mensaje debe dejarse 16 espacios en blanco, al principio y al final para

; conseguir que el desplazamiento del mensaje sea lo más legible posible.

;

	CBLOCK

	LCD_CursorPosicion		; Contabiliza la posición del cursor dentro de la

	ENDC				; pantalla LCD



LCD_MensajeMovimiento

	movwf	LCD_ApuntaCaracter	; Posición del primer carácter del mensaje.

	movlw	Mensajes			; Halla la posición relativa del primer carácter

	subwf	LCD_ApuntaCaracter,F	; del mensaje respecto de la etiqueta "Mensajes".

	decf	LCD_ApuntaCaracter,F	; Compensa la posición que ocupa "addwf PCL,F".

LCD_PrimeraPosicion

	clrf	LCD_CursorPosicion	; El cursor en la posición 0 de la línea.

	call	LCD_Borra		; Se sitúa en la primera posición de la línea 1 y

LCD_VisualizaCaracter			; borra la pantalla.

	movlw	LCD_CaracteresPorLinea	; ¿Ha llegado a final de línea?

	subwf	LCD_CursorPosicion,W

	btfss	STATUS,Z

	goto	LCD_NoEsFinalLinea

LCD_EsFinalLinea

	call	Retardo_200ms		; Lo mantiene visualizado durante este tiempo.

	call	Retardo_200ms

	movlw	LCD_CaracteresPorLinea-1; Apunta a la posición del segundo carácter visualizado

	subwf	LCD_ApuntaCaracter,F	; en pantalla, que será el primero en la siguiente

	goto	LCD_PrimeraPosicion	 ; visualización de línea, para producir el efecto

LCD_NoEsFinalLinea			; de desplazamiento hacia la izquierda.

	movf	LCD_ApuntaCaracter,W

	call	Mensajes			; Obtiene el ASCII del carácter apuntado.

	movwf	LCD_ValorCaracter		; Guarda el valor de carácter.

	movf	LCD_ValorCaracter,F	; Lo único que hace es posicionar flag Z. En caso

	btfsc	STATUS,Z		; que sea "0x00", que es código indicador final	

	goto	LCD_FinMovimiento	; de mensaje, sale fuera.

LCD_NoUltimoCaracter2

	call	LCD_Caracter		; Visualiza el carácter ASCII leído.

	incf	LCD_CursorPosicion,F	; Contabiliza el incremento de posición del 

					; cursor en la pantalla.

	incf	LCD_ApuntaCaracter,F	; Apunta a la siguiente posición por visualizar.

	goto	LCD_VisualizaCaracter	; Vuelve a visualizar el siguiente carácter

LCD_FinMovimiento			; de la línea.

	return				; Vuelve al programa principal.

	

;	===================================================================

;	  Del libro "MICROCONTROLADOR PIC16F84. DESARROLLO DE PROYECTOS"

;	  E. Palacios, F. Remiro y L. López.

; 	  Editorial Ra-Ma.  www.ra-ma.es

;	===================================================================