rke_tianqiu_630 over2.lst
来自「汽车遥控制的源代码.用的单片机是PIC16F72. 大批量生产.」· LST 代码 · 共 1,200 行 · 第 1/5 页
LST
1,200 行
00D8 300B 00019 movlw b'00001011' ;NOP,NOP,OPEN,CLOSE | Input, LED, Learn, RF
00D9 0085 00020 movwf TRISA
00DA 3003 00021 movlw b'00000011' ;NOP,NOP,NOP,NOP | NOP,NOP,HAND_CLOSE,HAND_OPEN
00DB 0087 00022 movwf TRISC
00023
00DC 3001 00024 movlw b'00000001' ;EEIE=0,ADIE=0,RCIE=0,TXIE=0, CMIE=0,0,TMR2IE=0,TMR1IE=1
00DD 008C 00025 movwf PIE1
00026
00DE 23FF 00027 call 0x3FF ;not needed for stimulation
00DF 0090 00028 movwf OSCCAL
00029
00E0 3000 00030 movlw b'00000000'
00E1 0095 00031 movwf WPU ;=0, pull-up disable
00E2 0196 00032 clrf IOC ;PORTA interrupt disable
00E3 0199 00033 clrf VRCON
00034
00035 ; clrf ANSEL
00036
00037 ;--------------------------------------
00038
00E4 1283 00039 bcf STATUS,RP0
00E5 3007 00040 movlw b'00000111'
00E6 0099 00041 movwf CMCON
00042
00E7 3005 00043 movlw b'00000101' ;0,TMRGE1=0(ON),T1CKPS1-0=00(1:1),T1OSEEN=0,T1SYNC=1(Asyn),TMR1C
S=0(Fosc/4),TMR1ON=1;
00E8 0090 00044 movwf T1CON
00045
00E9 0185 00046 clrf PORTA
00EA 0187 00047 clrf PORTC
00048
00049 ; clrf ADCON0
00050
00051 ;--------------------------------------------------
00052 ;GPR initiate
00053 ;--------------------------------------------------
00054
00EB 3020 00055 movlw w_temp
00EC 0084 00056 movwf FSR
00ED 00057 Initaite_Clr_Loop:
00ED 0180 00058 clrf INDF
00EE 0A84 00059 incf FSR,F
00EF 0304 00060 decf FSR,W
00F0 3C5D 00061 sublw End_Register
00F1 1D03 00062 skpz
00F2 28ED 00063 goto Initaite_Clr_Loop
00064
MPASM 03.80 Released RKE_TIANQIU_630.ASM 3-21-2005 14:44:34 PAGE 14
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00F3 30E0 00065 movlw b'11100000'
00F4 008B 00066 movwf INTCON
00067
00F5 0008 00068 return
00069
00070 ;#####################################
00071 ;Sub-Function-2: Sure
00072 ;#####################################
00073
00F6 00074 Register_Sure:
00F6 0064 00075 clrwdt
00076
00F7 1683 1303 00077 banksel OPTION_REG
00F9 308F 00078 movlw b'10001111' ;GPPU=1(dis),INTEDG=0,T0CS=0(OSC/4),T0SE=0(Posedge),PSA=0(TMR0),
PS2-PS0=011(1:16)
00FA 0081 00079 movwf OPTION_REG
00080
00081 ; movlw b'00001011' ;NOP,NOP,OPEN,CLOSE | Clear, LED, Learn, RF
00082 ; movwf TRISA
00FB 300B 00083 movlw b'00001011' ;NOP,NOP,OPEN,CLOSE | Input, LED, Learn, RF
00FC 0085 00084 movwf TRISA
00FD 3003 00085 movlw b'00000011' ;NOP,NOP,NOP,NOP | NOP,NOP,HAND_CLOSE,HAND_OPEN
00FE 0087 00086 movwf TRISC
00087
00FF 3001 00088 movlw b'00000001' ;EEIE=0,ADIE=0,RCIE=0,TXIE=0, CMIE=0,0,TMR2IE=0,TMR1IE=1
0100 008C 00089 movwf PIE1
00090
0101 23FF 00091 call 0x3ff
0102 0090 00092 movwf OSCCAL
00093
0103 3000 00094 movlw b'00000000'
0104 0095 00095 movwf WPU ;=0, pull-up disable
0105 0196 00096 clrf IOC ;PORTA interrupt disable
0106 0199 00097 clrf VRCON
00098
00099 ; clrf ANSEL
00100
00101 ;--------------------------------------
00102
0107 1283 00103 bcf STATUS,RP0
00104
0108 018A 00105 clrf PCLATH
00106
0109 3038 00107 movlw b'00111000'
010A 0587 00108 andwf PORTC,F
00109
00110 ; clrf ADCON0
00111
010B 3005 00112 movlw b'00000101' ;0,TMRGE1=0(ON),T1CKPS1-0=00(1:1),T1OSEEN=0,T1SYNC=1(Asyn),TMR1C
S=0(Fosc/4),TMR1ON=1;
010C 0090 00113 movwf T1CON
00114
010D 3007 00115 movlw b'00000111'
MPASM 03.80 Released RKE_TIANQIU_630.ASM 3-21-2005 14:44:34 PAGE 15
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
010E 0099 00116 movwf CMCON
00117
010F 30E7 00118 movlw b'11100111'
0110 058B 00119 andwf INTCON,F
0111 30E0 00120 movlw b'11100000'
0112 048B 00121 iorwf INTCON,F
00122
0113 0008 00123 return
00064 #include "Eeprom.inc"
00001 ;#####################################
00002 ;Charge_PWM_Deal, Charge_Control pin
00003 ;#####################################
00004 ;Function: Test and change Charge_Statue when A/D one CH cycle is over.
00005 ;Parameter In: Charge_Statue, AD_Control_Flag
00006 ;Return Parameter:
00007 ; Charge_Statue
00008 ;using regs: W,STATUS
00009 ;code size: about 0x00
00010 ;using time: about 0 instruction cycles
00011 ;WDT: Not Clear
00012 ;Stack using: 1
00013
0114 00014 Read_Eeprom:
0114 00015 Read_Eeprom_Loop:
0114 1283 00016 bcf STATUS,RP0
00017
0115 138B 00018 bcf INTCON,GIE
00019
0116 08C8 00020 movf Eeprom_Number,F
0117 1903 00021 skpnz
0118 2927 00022 goto Read_Eeprom_Over
00023
0119 1683 00024 bsf STATUS,RP0
00025
011A 0847 00026 movf Eeprom_Address,W
011B 009B 00027 movwf EEADR
00028
011C 141C 00029 bsf EECON1,RD
00030
011D 291E 00031 goto $+1
011E 291F 00032 goto $+1
00033
011F 081A 00034 movf EEDATA,W
0120 0080 00035 movwf INDF
00036
0121 1283 00037 bcf STATUS,RP0 ;BANK0
0122 0AC7 00038 incf Eeprom_Address,F
0123 0A84 00039 incf FSR,F
0124 03C8 00040 decf Eeprom_Number,F
0125 2914 00041 goto Read_Eeprom_Loop
00042
0126 178B 00043 bsf INTCON,GIE
00044
MPASM 03.80 Released RKE_TIANQIU_630.ASM 3-21-2005 14:44:34 PAGE 16
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
0127 00045 Read_Eeprom_Over:
0127 0008 00046 return
00047
00048 ;------------------------------------------------
00049
0128 00050 Write_Eeprom:
0128 00051 Write_Eeprom_Loop:
0128 1283 00052 bcf STATUS,RP0
00053
0129 08C8 00054 movf Eeprom_Number,F
012A 1903 00055 skpnz
012B 2941 00056 goto Write_Eeprom_Over
00057
012C 138B 00058 bcf INTCON,GIE
00059
012D 1683 00060 bsf STATUS,RP0
00061
012E 0847 00062 movf Eeprom_Address,W
012F 009B 00063 movwf EEADR
00064
0130 0800 00065 movf INDF,W
0131 009A 00066 movwf EEDATA
00067
0132 3004 00068 movlw b'00000100'
0133 1D3D 00069 btfss WRITE_EEPROM_ENABLE
0134 0103 00070 clrw
0135 009C 00071 movwf EECON1 ;0,0,0,0,WRERR,WREN,WR,RD
00072
0136 3055 00073 movlw 0x55
0137 009D 00074 movwf EECON2
0138 30AA 00075 movlw 0xAA
0139 009D 00076 movwf EECON2
013A 149C 00077 bsf EECON1,WR
00078
013B 00079 Write_Eeprom_Wait:
013B 189C 00080 btfsc EECON1,WR
013C 293B 00081 goto Write_Eeprom_Wait
00082
013D 0A84 00083 incf FSR,F
013E 0AC7 00084 incf Eeprom_Address,F
013F 03C8 00085 decf Eeprom_Number,F
0140 2928 00086 goto Write_Eeprom_Loop
00087
0141 00088 Write_Eeprom_Over:
0141 019C 00089 clrf EECON1 ;Clear WREN
0142 1283 00090 bcf STATUS,RP0
00091
0143 178B 00092 bsf INTCON,GIE
0144 0008 00093 return
00094
00095 ;======================================
00096
00065 #include "Key_Deal.inc"
MPASM 03.80 Released RKE_TIANQIU_630.ASM 3-21-2005 14:44:34 PAGE 17
LOC OBJECT CODE LINE SOURCE TEXT
VALUE
00001
0145 00002 Key_Deal:
0145 1283 1303 00003 banksel PORTA
00004
0147 0905 00005 comf PORTA,W
0148 00A2 00006 movwf Temp1
0149 0DA2 00007 rlf Temp1,F
014A 3004 00008 movlw b'00000100'
014B 05A2 00009 andwf Temp1,F
00010
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?