;------------------------------------------------------------
; Código assembler 
; Proyecto: usart_prueba
; Autor: 
; Fecha: 06/08/2018
; PIC: 16F877A
; Velocidad de reloj: 4 Mhz
; Descripcion: 
;------------------------------------------------------------
		    LIST    P=PIC16F877A
		    INCLUDE P16F877A.INC

	__CONFIG _FOSC_XT & _WDTE_OFF & _PWRTE_OFF & _BOREN_ON & _LVP_OFF & _CPD_OFF & _WRT_OFF & _CP_OFF
    
		   
		    
    

PUERTO_TX	    EQU		6	;PIN DE TRANSMICION
PUERTO_RC	    EQU		7	;PINDE RECEPCION		
		
		    CBLOCK	0x20
		    ENDC
		    
		
STAR		    ORG		0x00	    ;DIRECCION DE VECTOR RESET
		    PAGESEL	COMIENZO
		    GOTO	COMIENZO    ;COMIENZO DEL PROGRAMA
		
		    CODE
		    
		    
COMIENZO	    CALL	Inicia_USART_Nextion
		    MOVLW	d'191'
		    CALL	CONVERSION_BCD
		    
		    MOVLW	'n'
		    MOVWF	Dato_TX_1
		    MOVLW	'0'
		    MOVWF	Dato_TX_2
		    MOVLW	'.'
		    MOVWF	Dato_TX_3
		    MOVLW	'v'
		    MOVWF	Dato_TX_4
		    MOVLW	'a'
		    MOVWF	Dato_TX_5
		    MOVLW	'l'
		    MOVWF	Dato_TX_6
		    MOVLW	'='
		    MOVWF	Dato_TX_7
		    MOVF	BCD_UNIDADES,W
		    MOVWF	Dato_TX_8
		    MOVF	BCD_DECENAS,W
		    MOVWF	Dato_TX_9
		    MOVF	BCD_CENTENAS,W
		    MOVWF	Dato_TX_10
		    
Principal	    CALL	Nextion
		    CALL	Retardo_1s
		    GOTO	Principal
		    INCLUDE	<BINARIO_A_BCD.INC>
		    INCLUDE	<Nextion_TX_RC.INC>
		    INCLUDE	<RETARDOS.INC>

		  
		    END