;------------------------------------------------------------ ; Código assembler ; Proyecto: Rutinas para Nextion ; Autor: Esteban Mariano Folcher Cividini ; Colaboración; KILLERJC de todopic ; Pinonillo 16 de todopic ; ; Fecha: 27/08/2018 ; PIC: 16F877A ; Velocidad de reloj: 4 Mhz ;------------------------------------------------------------ list p=16f877A,f=inhx32 #include #define Fosc 4000000 __CONFIG _HS_OSC & _WDTE_OFF & _PWRTE_ON & _BOREN_ON & _LVP_ON & _CPD_OFF & _WRT_OFF & _CP_OFF STAR ORG 0x00 ;DIRECCION DE VECTOR RESET GOTO COMIENZO ORG 0x05 CBLOCK 0x20 VARIABLE_HHH VARIABLE_HH VARIABLE_H VARIABLE_L AA1 AA2 ENDC INCLUDE INCLUDE Mensajes_Nextion MOVWF PCL Onda MOVWF PCL P1 DT .32,.41,.45,.48,.51,.53,.54,.55,.56,.57,.58,.58,.58 DT .58,.58,.58,.57,.56,.55,.54,.53,.51,.48,.45,.41,.32 DT .27,.18,.14,.11,.8,.6,.5,.4,.3,.2,.1,.1,.1 DT .1,.1,.1,.2,.3,.4,.5,.6,.8,.11,.14,.18,.27,.0 P2 DT .22,.18,.16,.14,.12,.11,.10,.9,.8,.7,.6,.5,.5,.4,.4,.3,.3,.2,.2,.2,.1,.1,.1,.1,.1,.1 DT .1,.1,.1,.1,.1,.1,.2,.2,.2,.3,.3,.4,.4,.5,.5,.6,.7,.8,.9,.10,.11,.12,.14,.16,.18,.22 DT .28,.32,.34,.36,.38,.39,.40,.41,.42,.43,.44,.45,.45,.46,.46,.47,.47,.48,.48,.48,.49,.49,.49,.49,.49,.49 DT .49,.49,.49,.49,.49,.49,.48,.48,.48,.47,.47,.46,.46,.45,.45,.44,.43,.42,.41,.40,.39,.38,.36,.34,.32,.28,.0 COMIENZO CALL Configura_USART Inicia_NEXTION Delay 300 Milis PRINCIPAL MOVLW P1 CALL PP MOVLW P2 CALL ZZ GOTO PRINCIPAL PP MOVWF AA1 PP_1 MOVF AA1,W CALL Onda MOVWF AA2 MOVF AA2,F BTFSS STATUS,Z GOTO PP_2 RETURN PP_2 CALL L1 INCF AA1,F GOTO PP_1 L1 ADDLW d'100' MOVWF VARIABLE_L Nex_Envia_Dato_Waveform d'1',d'1',VARIABLE_L RETURN ZZ MOVWF AA1 ZZ_1 MOVF AA1,W CALL Onda MOVWF AA2 MOVF AA2,F BTFSS STATUS,Z GOTO ZZ_2 RETURN ZZ_2 CALL H1 INCF AA1,F GOTO ZZ_1 H1 ADDLW d'50' MOVWF VARIABLE_L Nex_Envia_Dato_Waveform d'1',d'0',VARIABLE_L INCLUDE NEXTION_SUB_5.INC END