#==========Mode:MPASM Assembler include "C:\Archivos de programa\Microchip\MPASM Suite\P12F675.INC" W EQU H'0000' F EQU H'0001' STATUS EQU H'0003' FSR EQU H'0004' GPIO EQU H'0005' INTCON EQU H'000B' PIR1 EQU H'000C' TMR1L EQU H'000E' TMR1H EQU H'000F' T1CON EQU H'0010' Reg_015 EQU H'0015' CMCON EQU H'0019' Reg_01A EQU H'001A' Reg_01B EQU H'001B' Reg_01C EQU H'001C' Reg_01D EQU H'001D' ADCON0 EQU H'001F' Reg_020 EQU H'0020' Reg_021 EQU H'0021' Reg_023 EQU H'0023' Reg_024 EQU H'0024' Reg_025 EQU H'0025' Reg_026 EQU H'0026' Reg_027 EQU H'0027' Reg_028 EQU H'0028' Reg_029 EQU H'0029' Reg_034 EQU H'0034' Reg_035 EQU H'0035' Reg_036 EQU H'0036' Reg_037 EQU H'0037' Reg_038 EQU H'0038' Reg_039 EQU H'0039' Reg_05E EQU H'005E' Reg_05F EQU H'005F' ORG H'00000' GOTO Label_00003 GOTO Label_00003 GOTO Label_00003 GOTO Label_00003 BCF INTCON,7 MOVWF Reg_05F MOVF STATUS,0 MOVWF Reg_05E BCF STATUS,5 BTFSS INTCON,2 GOTO Label_00001 BTFSS INTCON,5 GOTO Label_00001 BCF INTCON,2 INCF Reg_035,1 BTFSC STATUS,2 INCF Reg_036,1 BTFSC STATUS,2 BSF Reg_024,3 GOTO Label_00002 Label_00001 BTFSS PIR1,0 GOTO Label_00002 BCF PIR1,0 INCF Reg_027,1 BTFSC STATUS,2 INCF Reg_028,1 BTFSS STATUS,2 GOTO Label_00002 BSF STATUS,5 BCF PIR1,0 BCF STATUS,5 BTFSC Reg_029,0 GOTO Label_00004 BTFSC Reg_029,1 GOTO Label_00019 BTFSC Reg_029,2 GOTO Label_00022 BTFSC Reg_029,3 GOTO Label_00023 Label_00002 MOVF Reg_05E,0 MOVWF STATUS MOVF Reg_05F,0 RETFIE Label_00003 BSF STATUS,5 CALL Label_00083 MOVWF T1CON MOVLW H'0047' MOVWF F MOVLW H'0011' MOVWF Reg_015 MOVLW H'0019' MOVWF GPIO CLRF ADCON0 CLRF PIR1 BCF STATUS,5 CLRF GPIO CLRF ADCON0 MOVLW H'0007' MOVWF CMCON CLRF PIR1 MOVLW H'0030' MOVWF T1CON MOVLW H'0040' MOVWF INTCON MOVLW H'0002' MOVWF Reg_039 CLRF Reg_024 CLRF Reg_029 CALL Label_00058 GOTO Label_00004 Label_00004 BSF INTCON,7 MOVLW H'0002' CALL Label_00017 Label_00005 BTFSC Reg_024,3 GOTO Label_00007 BTFSS GPIO,4 GOTO Label_00008 Label_00006 BTFSS GPIO,3 GOTO Label_00024 GOTO Label_00005 Label_00007 BCF INTCON,5 BCF Reg_024,3 MOVLW H'0004' CALL Label_00017 MOVLW H'0006' SUBLW H'00FF' ANDWF GPIO,1 GOTO Label_00005 Label_00008 CALL Label_00075 BTFSC GPIO,4 GOTO Label_00006 CALL Label_00075 BTFSC GPIO,4 GOTO Label_00006 CLRF Reg_029 BSF Reg_029,1 MOVLW H'00EB' MOVWF Reg_027 MOVLW H'00FF' MOVWF Reg_028 CALL Label_00049 BSF GPIO,5 Label_00009 CALL Label_00079 BTFSS GPIO,4 GOTO Label_00009 BCF GPIO,5 CALL Label_00050 MOVLW H'00EE' SUBWF Reg_027,0 BTFSC STATUS,0 GOTO Label_00031 BCF Reg_024,4 MOVLW H'0003' MOVWF Reg_037 Label_00010 CALL Label_00079 BTFSS GPIO,4 BSF Reg_024,4 BTFSC Reg_024,4 GOTO Label_00011 DECFSZ Reg_037,1 GOTO Label_00010 Label_00011 CALL Label_00079 BTFSS GPIO,4 GOTO Label_00011 MOVLW H'0006' ANDWF GPIO,0 BTFSS STATUS,2 GOTO Label_00013 BTFSS Reg_024,4 GOTO Label_00012 MOVLW H'0006' IORWF GPIO,1 GOTO Label_00005 Label_00012 MOVF Reg_039,0 IORWF GPIO,1 GOTO Label_00005 Label_00013 BTFSS Reg_024,4 GOTO Label_00014 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 MOVLW H'0004' XORWF GPIO,1 MOVLW H'0006' ANDWF GPIO,0 BTFSC STATUS,2 GOTO Label_00015 GOTO Label_00005 Label_00014 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 Label_00015 BCF INTCON,5 MOVLW H'0006' SUBLW H'00FF' ANDWF GPIO,1 GOTO Label_00005 Label_00016 MOVLW H'006C' MOVWF Reg_035 MOVLW H'00FC' MOVWF Reg_036 MOVLW H'0001' CALL Label_00017 MOVLW H'0006' ANDWF GPIO,0 BTFSS STATUS,2 GOTO Label_00005 MOVF Reg_039,0 IORWF GPIO,1 GOTO Label_00005 Label_00017 MOVWF Reg_023 Label_00018 CALL Label_00079 BSF GPIO,5 CALL Label_00079 BCF GPIO,5 DECFSZ Reg_023,1 GOTO Label_00018 RETURN Label_00019 BSF INTCON,7 MOVLW H'0006' SUBLW H'00FF' ANDWF GPIO,1 MOVLW H'000A' CALL Label_00017 MOVLW H'002A' MOVWF FSR MOVLW H'000A' MOVWF Reg_037 BCF STATUS,0 RRF Reg_037,1 Label_00020 MOVF FSR,0 MOVWF Reg_038 CLRF Reg_029 BSF Reg_029,3 MOVLW H'00EB' MOVWF Reg_027 MOVLW H'00FF' MOVWF Reg_028 CALL Label_00049 Label_00021 BTFSC GPIO,3 GOTO Label_00021 CALL Label_00050 CLRF Reg_029 BSF Reg_029,2 CALL Label_00032 BTFSS Reg_024,0 GOTO Label_00020 MOVF Reg_038,0 MOVWF FSR MOVF Reg_025,0 MOVWF W INCF FSR,1 MOVF Reg_026,0 MOVWF W INCF FSR,1 MOVLW H'0001' CALL Label_00017 BSF GPIO,1 CALL Label_00079 CALL Label_00079 CALL Label_00079 BCF GPIO,1 DECFSZ Reg_037,1 GOTO Label_00020 CALL Label_00056 MOVLW H'000A' CALL Label_00017 BSF GPIO,1 GOTO Label_00005 Label_00022 BSF INTCON,7 MOVLW H'0002' CALL Label_00017 GOTO Label_00020 Label_00023 BSF INTCON,7 MOVLW H'0006' SUBLW H'00FF' ANDWF GPIO,1 GOTO Label_00004 Label_00024 CLRF Reg_029 BSF Reg_029,0 CALL Label_00032 BTFSS Reg_024,0 GOTO Label_00005 CALL Label_00051 BTFSS Reg_024,1 GOTO Label_00005 MOVLW H'0001' SUBWF Reg_034,0 BTFSC STATUS,2 GOTO Label_00025 MOVLW H'0002' SUBWF Reg_034,0 BTFSC STATUS,2 GOTO Label_00027 MOVLW H'0003' SUBWF Reg_034,0 BTFSC STATUS,2 GOTO Label_00028 MOVLW H'0004' SUBWF Reg_034,0 BTFSC STATUS,2 GOTO Label_00030 MOVLW H'0005' SUBWF Reg_034,0 BTFSC STATUS,2 GOTO Label_00031 GOTO Label_00005 Label_00025 BTFSS GPIO,0 GOTO Label_00026 BCF INTCON,5 BSF GPIO,1 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 GOTO Label_00005 Label_00026 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 MOVLW H'0002' XORWF GPIO,1 GOTO Label_00005 Label_00027 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 BCF GPIO,1 BTFSS GPIO,2 BCF INTCON,5 GOTO Label_00005 Label_00028 BTFSS GPIO,0 GOTO Label_00029 BCF INTCON,5 BSF GPIO,2 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 GOTO Label_00005 Label_00029 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 MOVLW H'0004' XORWF GPIO,1 GOTO Label_00005 Label_00030 MOVLW H'0006' ANDWF GPIO,0 MOVWF Reg_039 BCF GPIO,2 BTFSS GPIO,1 BCF INTCON,5 GOTO Label_00005 Label_00031 MOVLW H'0020' XORWF INTCON,1 BTFSC INTCON,5 GOTO Label_00016 MOVLW H'0004' CALL Label_00017 GOTO Label_00005 Label_00032 CALL Label_00048 BCF Reg_024,0 BCF Reg_024,2 Label_00033 BTFSS GPIO,3 GOTO Label_00033 CALL Label_00050 MOVLW H'0001' SUBWF TMR1H,0 BTFSS STATUS,2 GOTO Label_00034 MOVLW H'0077' SUBWF TMR1L,0 Label_00034 BTFSS STATUS,0 BSF Reg_024,2 BTFSC Reg_024,2 CALL Label_00035 BTFSS Reg_024,2 CALL Label_00041 RETURN Label_00035 CALL Label_00048 CALL Label_00071 BTFSS GPIO,3 GOTO Label_00040 CALL Label_00073 CALL Label_00073 BTFSC GPIO,3 GOTO Label_00040 BSF GPIO,5 CLRF Reg_026 CLRF Reg_025 MOVLW H'0025' MOVWF FSR MOVLW H'000C' MOVWF Reg_023 Label_00036 CALL Label_00073 CALL Label_00073 BTFSS GPIO,3 GOTO Label_00038 BSF W,0 Label_00037 BTFSC GPIO,3 GOTO Label_00037 GOTO Label_00039 Label_00038 BTFSS GPIO,3 GOTO Label_00038 Label_00039 BCF STATUS,0 RLF W,1 CALL Label_00073 MOVLW H'0008' SUBWF Reg_023,0 BTFSC STATUS,2 INCF FSR,1 DECFSZ Reg_023,1 GOTO Label_00036 CALL Label_00079 CALL Label_00079 BSF Reg_024,0 Label_00040 BTFSS GPIO,3 GOTO Label_00040 CALL Label_00050 BCF GPIO,5 BCF Reg_025,5 RETURN Label_00041 CALL Label_00048 CALL Label_00065 MOVLW H'0006' MOVWF Reg_023 Label_00042 CALL Label_00068 DECFSZ Reg_023,1 GOTO Label_00042 BTFSS GPIO,3 GOTO Label_00047 CALL Label_00068 BTFSS GPIO,3 GOTO Label_00047 BSF GPIO,5 CLRF Reg_025 CLRF Reg_026 MOVLW H'0025' MOVWF FSR MOVLW H'0020' MOVWF Reg_023 Label_00043 BTFSC GPIO,3 GOTO Label_00043 Label_00044 BTFSS GPIO,3 GOTO Label_00044 CALL Label_00068 CALL Label_00068 CALL Label_00068 MOVLW H'0010' SUBWF Reg_023,0 BTFSC STATUS,2 INCF FSR,1 BCF W,0 BTFSS GPIO,3 BSF W,0 DECF Reg_023,1 BTFSC STATUS,2 GOTO Label_00045 BCF STATUS,0 RLF W,1 GOTO Label_00043 Label_00045 BSF Reg_024,0 Label_00046 BTFSC GPIO,3 GOTO Label_00046 Label_00047 BTFSS GPIO,3 GOTO Label_00047 CALL Label_00050 CALL Label_00079 CALL Label_00079 BCF GPIO,5 RETURN Label_00048 MOVLW H'00FF' MOVWF Reg_027 MOVLW H'00FF' MOVWF Reg_028 Label_00049 CLRF TMR1L CLRF TMR1H BSF T1CON,0 BCF PIR1,0 BSF STATUS,5 BSF PIR1,0 BCF STATUS,5 RETURN Label_00050 BSF STATUS,5 BCF PIR1,0 BCF STATUS,5 BCF PIR1,0 BCF T1CON,0 RETURN Label_00051 CLRF Reg_034 BCF Reg_024,1 MOVLW H'002A' MOVWF FSR MOVLW H'000A' MOVWF Reg_023 BCF STATUS,0 RRF Reg_023,1 Label_00052 INCF Reg_034,1 MOVF Reg_025,0 SUBWF W,0 BTFSC STATUS,2 GOTO Label_00053 INCF FSR,1 INCF FSR,1 GOTO Label_00055 Label_00053 INCF FSR,1 MOVF Reg_026,0 SUBWF W,0 BTFSC STATUS,2 GOTO Label_00054 INCF FSR,1 GOTO Label_00055 Label_00054 BSF Reg_024,1 RETURN Label_00055 DECFSZ Reg_023,1 GOTO Label_00052 RETURN Label_00056 MOVLW H'0002' CALL Label_00060 MOVLW H'002A' MOVWF FSR MOVLW H'000A' MOVWF Reg_023 Label_00057 MOVF W,0 CALL Label_00063 CALL Label_00061 INCF FSR,1 DECFSZ Reg_023,1 GOTO Label_00057 RETURN Label_00058 MOVLW H'0002' CALL Label_00060 MOVLW H'002A' MOVWF FSR MOVLW H'000A' MOVWF Reg_023 Label_00059 CALL Label_00062 MOVWF W CALL Label_00061 INCF FSR,1 DECFSZ Reg_023,1 GOTO Label_00059 RETURN Label_00060 BSF STATUS,5 MOVWF Reg_01B BCF STATUS,5 RETURN Label_00061 BSF STATUS,5 INCF Reg_01B,1 BCF STATUS,5 RETURN Label_00062 BSF STATUS,5 BSF Reg_01C,0 MOVF Reg_01A,0 BCF STATUS,5 RETURN Label_00063 BSF STATUS,5 MOVWF Reg_01A BSF Reg_01C,2 MOVLW H'0055' MOVWF Reg_01D MOVLW H'00AA' MOVWF Reg_01D BSF Reg_01C,1 Label_00064 BTFSC Reg_01C,1 GOTO Label_00064 BCF Reg_01C,2 BCF STATUS,5 RETURN Label_00065 MOVLW H'0053' MOVWF Reg_020 Label_00066 DECFSZ Reg_020,1 GOTO Label_00066 GOTO Label_00067 Label_00067 RETURN Label_00068 MOVLW H'005B' MOVWF Reg_020 Label_00069 DECFSZ Reg_020,1 GOTO Label_00069 GOTO Label_00070 Label_00070 RETURN Label_00071 MOVLW H'008A' MOVWF Reg_020 Label_00072 DECFSZ Reg_020,1 GOTO Label_00072 NOP RETURN Label_00073 MOVLW H'0092' MOVWF Reg_020 Label_00074 DECFSZ Reg_020,1 GOTO Label_00074 NOP RETURN Label_00075 MOVLW H'00CE' MOVWF Reg_020 MOVLW H'0008' MOVWF Reg_021 Label_00076 DECFSZ Reg_020,1 GOTO Label_00077 DECFSZ Reg_021,1 Label_00077 GOTO Label_00076 GOTO Label_00078 Label_00078 NOP RETURN Label_00079 MOVLW H'001E' MOVWF Reg_020 MOVLW H'004F' MOVWF Reg_021 Label_00080 DECFSZ Reg_020,1 GOTO Label_00081 DECFSZ Reg_021,1 Label_00081 GOTO Label_00080 GOTO Label_00082 Label_00082 NOP RETURN ORG H'02007' DE 11,00 ORG H'02100' DE 00,11 DE 00,11 DE 00,10 DE 00,00 DE 00,10 DE 00,00 DE 00,10 DE 00,00 DE 00,10 DE 00,00 DE 00,10 DE 00,00 END