;************************************ Mensaje_07.asm ************************************
;
; El módulo LCD visualiza un mensaje largo (más de 16 caracteres) que se desplaza a lo largo
; de la pantalla. Se utiliza la subrutina LCD_MensajeMovimiento de la librería LCD_MENS.INC.
; 
; ZONA DE DATOS **********************************************************************

	__CONFIG   _CP_OFF &  _WDT_OFF & _PWRTE_ON & _XT_OSC
	LIST	P=16F84A
	INCLUDE  <P16F84A.INC>

	CBLOCK  0x0C
	ENDC

; ZONA DE CÓDIGOS ********************************************************************

	ORG	0
Inicio
	call	LCD_Inicializa		; Prepara la pantalla.
Principal
	movlw	Mensaje0		; Apunta al mensaje.
	call	LCD_MensajeMovimiento
	goto 	MENSAJEABAJO
	goto	Principal		; Repite la visualización.

; "Mensajes" ----------------------------------------------------------------------------
;
Mensajes
	addwf	PCL,F
Mensaje0				; Posición inicial del mensaje.
	DT "                "		; Espacios en blanco al principio para mejor
	DT "Prueba movimiento "	; visualización.
	DT "linea arriba izq a der."
	DT "                ", 0x00	; Espacios en blanco al final.

MENSAJEABAJO
 	call 	LCD_Linea2
	call	LCD_PosicionLinea2
   	LCD_Cursordecrementa				; Cursor en modo decrementar
	movlw	b'00000100'
	goto	LCD_EnviaComando
Principal2
	movlw	Mensaje1		; Apunta al mensaje.
	call	LCD_MensajeMovimiento1
	goto	Principal		; Repite la visualización.

; "Mensajes" ----------------------------------------------------------------------------
;
Mensajes1
	addwf	PCL,F
Mensaje1				; Posición inicial del mensaje.
	DT "                "		; Espacios en blanco al principio para mejor
	DT "Prueba movimiento "	; visualización.
	DT "linea abajo der-izq"
	DT "                ", 0x0	; Espacios en blanco al final.


;
	INCLUDE  <LCD_MENS.INC>		; Subrutina LCD_MensajeMovimiento.
	INCLUDE  <LCD_MENSD-R.INC>		; Subrutina LCD_MensajeMovimiento.
	INCLUDE  <LCD_4BIT.INC>		; Subrutinas de control del LCD.
	INCLUDE  <RETARDOS.INC>		; Subrutinas de retardos.
	END				; Fin del programa.