CBLOCK Guarda_Posicion_Tabla Guarda_Caracter NUM_OBJ DATO_TX_0 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 ENDC Nex_Texto_Inicializa CALL Inicia_USART_Nextion MOVLW 't' MOVWF DATO_TX_0 MOVF NUM_OBJ,W CALL BIN_BCD CALL Si_Uni_Dec_Cen MOVLW '.' MOVWF DATO_TX_4 MOVLW 't' MOVWF DATO_TX_5 MOVLW 'x' MOVWF DATO_TX_6 MOVLW 't' MOVWF DATO_TX_7 MOVLW '=' MOVWF DATO_TX_8 MOVLW '"' MOVWF DATO_TX_9 RETURN Nex_Texto MOVWF Guarda_Posicion_Tabla MOVf DATO_TX_0,W CALL Envia_USART_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 Nex_Texto_1 MOVF Guarda_Posicion_Tabla,W CALL T_Texto_NEX MOVWF Guarda_Caracter MOVF Guarda_Caracter,F BTFSS STATUS,Z GOTO Nex_Texto_2 MOVF DATO_TX_9,W CALL Envia_USART_Nextion MOVLW 'ÿ' CALL Envia_USART_Nextion MOVLW 'ÿ' CALL Envia_USART_Nextion MOVLW 'ÿ' CALL Envia_USART_Nextion RETURN Nex_Texto_2 CALL Envia_USART_Nextion INCF Guarda_Posicion_Tabla,F GOTO Nex_Texto_1 ;********************BIN_BCD_ASCII********************************************** CBLOCK AUXILIAR BCD_UNIDADES BCD_DECENAS BCD_CENTENAS ENDC BIN_BCD MOVWF AUXILIAR CLRF BCD_UNIDADES CLRF BCD_DECENAS CLRF BCD_CENTENAS S_Centenas MOVLW d'100' SUBWF AUXILIAR,W BTFSC STATUS,C GOTO Suma_Centenas GOTO S_Decenas Suma_Centenas MOVWF AUXILIAR INCF BCD_CENTENAS,F GOTO S_Centenas S_Decenas MOVLW d'10' SUBWF AUXILIAR,W BTFSC STATUS,C GOTO Suma_Decenas GOTO Suma_Unidades Suma_Decenas MOVWF AUXILIAR INCF BCD_DECENAS,1 GOTO S_Decenas Suma_Unidades MOVF AUXILIAR,W MOVWF BCD_UNIDADES BCF STATUS,Z BCF STATUS,C RETURN ;***************** SOLO SI CUALQUIERA DE LOS REGISTROS BCD>0******************** Si_Uni_Dec_Cen MOVF BCD_CENTENAS,W SUBLW d'0' BTFSS STATUS,Z GOTO Todo_UDC GOTO Pregunta_Dec Todo_UDC MOVLW d'48' ADDWF BCD_UNIDADES,F ADDWF BCD_DECENAS,F ADDWF BCD_CENTENAS,F MOVF BCD_UNIDADES,W MOVWF DATO_TX_3 MOVF BCD_DECENAS,W MOVWF DATO_TX_2 MOVF BCD_CENTENAS,W MOVWF DATO_TX_1 BCF STATUS,Z BCF STATUS,C RETURN Pregunta_Dec MOVF BCD_DECENAS,W SUBLW d'0' BTFSS STATUS,Z GOTO Todo_UD GOTO Solo_Uni Todo_UD MOVLW d'48' ADDWF BCD_UNIDADES,F ADDWF BCD_DECENAS,F MOVF BCD_UNIDADES,W MOVWF DATO_TX_3 MOVF BCD_DECENAS,W MOVWF DATO_TX_2 MOVLW d'0' MOVWF DATO_TX_1 BCF STATUS,Z BCF STATUS,C RETURN Solo_Uni MOVLW d'48' ADDWF BCD_UNIDADES,F MOVF BCD_UNIDADES,W MOVWF DATO_TX_3 MOVLW d'0' MOVWF DATO_TX_2 MOVLW d'0' MOVWF DATO_TX_1 RETURN ;******************INICIA COMUNICACION USART************************************ Inicia_USART_Nextion BSF STATUS,RP0 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 RETURN ;*****************ENVIA Y RECIBE USART****************************************** 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