;*******************************************************************************
;****************  SUBRUTINA INICIALISA, ENVIA Y RECIBE  ***********************
;*******************************************************************************
;		BIT A DECLARAR PARA ESTA SUBRUTINA 
;		    
;   PUERTO_TX	EQU	6	;PIN DE TRANSMICION
;   PUERTO_RC	EQU	7	;PINDE RECEPCION
;		    
;		    
;******************************  INICIO  ***************************************
			CBLOCK
			Dato_TX_1
			Dato_TX_2
			Dato_TX_3
			Dato_TX_4
			Dato_TX_5
			Dato_TX_6
			Dato_TX_7
			Dato_TX_8
			Dato_TX_9
			Dato_TX_10
			Dato_TX_11
			Dato_TX_12
			Dato_TX_13
			Dato_TX_Fin 		;FIN DE TRANSMICION ENVIAR E 
			ENDC			;VECES PARA QUE LA PANTALLA 
						;LEA FIN DE TRANSMICION 
Inicia_USART_Nextion    BSF	STATUS,RP0	;ENTRO EN BANCO 1
			BCF	STATUS,RP1			
			BCF	TRISC,PUERTO_TX	;PONE A (0) ESTE PIN COMO SALIDA 
			BSF	TRISC,PUERTO_RC	;PONE A (1) ESTE PIN COMO ENTRADA
			MOVLW   0x24		;TX HABILITADA, MODO ASINCRON0
			MOVWF   TXSTA		;CON 8 BITS Y ALTA VELOCIDAD
			MOVLW   0x19		;SET BAUDIOS A 9600   
			MOVWF   SPBRG		;CON Fosc = 4MHz
			BCF	STATUS,RP0	;ENTRO EN BANCO 0
			BCF	STATUS,RP1
			MOVLW   0x90		;AJUSTA RECEPTOR A 8 BITS, RECEPCION
			MOVWF   RCSTA		;CONTINUA HABILITADA USART EN ON
			MOVLW	'ÿ'	
			MOVWF	Dato_TX_Fin
			RETURN


		    
Envia_USART_Nextion	BSF	STATUS,RP0
			BCF	STATUS,RP1
			BTFSS   TXSTA,TRMT
			GOTO    Envia_USART_Nextion
			BCF	STATUS,RP0
			BCF	STATUS,RP1
			MOVWF   TXREG
			RETURN
		    
Recibe_USART_Nextion	BCF	STATUS,RP0
			BCF	STATUS,RP1
			BTFSS   PIR1,RCIF
			GOTO    Recibe_USART_Nextion
			MOVF    RCREG,W
DATO			BCF	PIR1,RCIF
			BSF	STATUS,RP0
			BCF	STATUS,RP1
			
			RETURN

Nextion			MOVf	Dato_TX_1,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_2,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_3,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_4,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_5,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_6,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_7,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_8,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_9,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_10,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_Fin,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_Fin,W
			CALL	Envia_USART_Nextion
			MOVF	Dato_TX_Fin,W
			CALL	Envia_USART_Nextion
			RETURN