;------------------------------------------------------------
; 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	    OB_TEXTO_FU_TEXTO		    d'6661'
#DEFINE	    OB_TEXTO_FU_BORRA		    d'6675'
#DEFINE	    OB_TEXTO_FU_COL_TEXTO	    d'6688'
#DEFINE	    OB_TEXTO_FU_COL_FONT_TEXTO	    d'6700'
#DEFINE	    FUNCION_COLOR_FONDO	d'4'
	
		    
STAR		    ORG		0x00	    ;DIRECCION DE VECTOR RESET
		    GOTO	COMIENZO
		    ORG		0x05
		    CBLOCK 0x20
		    ENDC
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
		    
PRINCIPAL	    MOVLW   d'0'
		    CALL    Numero_Objeto
		    CALL    Envia_Borra_Texto
		    CALL    Retardo_500ms
		    MOVLW   MENSAJE_NEX_1
		    CALL    Envia_Texto
		    CALL    Retardo_500ms
		    MOVLW	0xEA		;60000
		    CALL	BIN_a_BCD_16_H
		    MOVLW	0x60
		    CALL	BIN_a_BCD_16_L
		    CALL	Envia_Color_Fondo
		    CALL    Retardo_500ms
		    MOVLW	0xff		;65535
		    CALL	BIN_a_BCD_16_H
		    MOVLW	0xff
		    CALL	BIN_a_BCD_16_L
		    CALL	Envia_Color_Fondo
		    CALL    Retardo_500ms
		    MOVLW	0xC3		;50000
		    CALL	BIN_a_BCD_16_H
		    MOVLW	0x50
		    CALL	BIN_a_BCD_16_L
		    CALL	Envia_Color_Fuente
		    CALL    Retardo_500ms
		    MOVLW	0x00		;00000
		    CALL	BIN_a_BCD_16_H
		    MOVLW	0x00
		    CALL	BIN_a_BCD_16_L
		    CALL	Envia_Color_Fuente
		    CALL    Retardo_500ms
			
		    GOTO    PRINCIPAL
			

		    INCLUDE	RETARDOS.INC
		    
		    INCLUDE	NEXTION_SUB_3.INC
		    END