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