;------------------------------------------------------------
; Código assembler 
; Proyecto: usart_prueba
; Autor: 
; Fecha: 06/08/2018
; PIC: 16F877A
; Velocidad de reloj: 4 Mhz
; Descripcion: 
;------------------------------------------------------------
	list		p=16f877A,f=inhx32
	#include	<p16f877A.inc>	 
	__CONFIG _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _BOREN_ON & _LVP_ON & _CPD_OFF & _WRT_OFF & _CP_OFF

#DEFINE	    OBJETO_TEXTO	d'1'
#DEFINE	    FUNCION_TEXTO	d'2'
#DEFINE	    FUNCION_FIN		d'3'
	
		    CBLOCK 0x20
		    ENDC
STAR		    ORG		0x00	    ;DIRECCION DE VECTOR RESET
		    GOTO	COMIENZO
		    ORG		0x05
Mensajes_Nextion    MOVWF   PCL
MENSAJE_NEX_1	    DT	"MENSAJE 1",0x00
MENSAJE_NEX_2	    DT	"MENSAJE 2",0x00
MENSAJE_NEX_3	    DT	"MENSAJE 3",0x00
MENSAJE_NEX_4	    DT	"MENSAJE 4",0x00

	    
COMIENZO		CALL	Configura_USART
			CALL	Inicia_Nextion
PRINCIPAL		MOVLW	d'0'
			CALL	Numero_Objeto
			MOVLW	MENSAJE_NEX_1
			CALL	Envia_Texto
			CALL	Retardo_100ms
			MOVLW	d'1'
			CALL	Numero_Objeto
			MOVLW	MENSAJE_NEX_2
			CALL	Envia_Texto
			CALL	Retardo_100ms
			MOVLW	d'2'
			CALL	Numero_Objeto
			MOVLW	MENSAJE_NEX_3
			CALL	Envia_Texto
			CALL	Retardo_100ms
			MOVLW	d'3'
			CALL	Numero_Objeto
			MOVLW	MENSAJE_NEX_4
			CALL	Envia_Texto
			CALL	Retardo_100ms
			
			MOVLW	d'0'
			CALL	Numero_Objeto
			CALL	Borra_Texto
			CALL	Retardo_100ms
			MOVLW	d'1'
			CALL	Numero_Objeto
			CALL	Borra_Texto
			CALL	Retardo_100ms
			MOVLW	d'2'
			CALL	Numero_Objeto
			CALL	Borra_Texto
			CALL	Retardo_100ms
			MOVLW	d'3'
			CALL	Numero_Objeto
			CALL	Borra_Texto
			CALL	Retardo_100ms
			
			
			GOTO    PRINCIPAL
			

		    INCLUDE	RETARDOS.INC
		    
		    INCLUDE	NEXTION_SUB2.INC
		    END