📄 1820.lst
字号:
0130 33 157 RLC A
0131 A248 158 MOV C,48H
0133 33 159 RLC A
0134 F527 160 MOV 27H,A
161
0136 E529 162 MOV A,29H
0138 A240 163 MOV C,40H
013A 13 164 RRC A
013B A241 165 MOV C,41H
013D 13 166 RRC A
013E A242 167 MOV C,42H
0140 13 168 RRC A
0141 A243 169 MOV C,43H
0143 13 170 RRC A
0144 F529 171 MOV 29H,A
172
0146 E529 173 MOV A,29H
0148 204F13 174 JB 4FH,FUTEM
014B 75F064 175 MOV B,#100
014E 84 176 DIV AB
014F F550 177 MOV HH,A
0151 E5F0 178 MOV A,B
0153 75F00A 179 MOV B,#10
0156 84 180 DIV AB
0157 F551 181 MOV MM,A
0159 85F052 182 MOV LL,B
015C 800F 183 SJMP HUI
015E F4 184 FUTEM: CPL A
015F 75500D 185 MOV HH,#13
0162 E5F0 186 MOV A,B
0164 75F00A 187 MOV B,#10
0167 84 188 DIV AB
0168 F551 189 MOV MM,A
016A 85F052 190 MOV LL,B
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 4
016D 00 191 HUI: NOP
016E E527 192 MOV A,27H
0170 75F006 193 MOV B,#6
0173 A4 194 MUL AB
0174 75F00A 195 MOV B,#10
0177 84 196 DIV AB
0178 2430 197 ADD A,#48
017A F526 198 MOV 26H,A
017C E5F0 199 MOV A,B
017E 2430 200 ADD A,#48
0180 F525 201 MOV 25H,A
0182 22 202 RET
203
0183 204 INIT1820:
0183 D2A2 205 SETB P2.2
0185 00 206 NOP
0186 C2A2 207 CLR P2.2
0188 7903 208 MOV R1,#3
018A 785F 209 TSR1: MOV R0,#95
018C D8FE 210 DJNZ R0,$
018E D9FA 211 DJNZ R1,TSR1
0190 D2A2 212 SETB P2.2
0192 00 213 NOP
0193 780F 214 MOV R0,#0fH
0195 D8FE 215 TSR4: DJNZ R0,TSR4
0197 30A202 216 TSR2: JNB P2.2,TSR3
019A 80FB 217 SJMP TSR2
019C 786E 218 TSR3: MOV R0,#110
019E D8FE 219 TSR6: DJNZ R0,TSR6
01A0 D2A2 220 SETB P2.2
01A2 7882 221 MOV R0,#130
01A4 D8FE 222 TSR7: DJNZ R0,TSR7
01A6 00 223 NOP
01A7 22 224 RET
225
226
01A8 227 WRITE1820:
01A8 7A08 228 MOV R2,#8
01AA C3 229 CLR C
01AB C2A2 230 WR1: CLR P2.2
01AD 7B06 231 MOV R3,#6
01AF DBFE 232 DJNZ R3,$
01B1 13 233 RRC A
01B2 92A2 234 MOV P2.2,C
01B4 7B1A 235 MOV R3,#26
01B6 DBFE 236 DJNZ R3,$
01B8 D2A2 237 SETB P2.2
01BA 00 238 NOP
01BB DAEE 239 DJNZ R2,WR1
01BD D2A2 240 SETB P2.2
01BF 22 241 RET
242
243
01C0 244 READ1820:
01C0 7C02 245 MOV R4,#2
01C2 7929 246 MOV R1,#29H
01C4 7A08 247 RE00: MOV R2,#8
01C6 C3 248 RE01: CLR C
01C7 D2A2 249 SETB P2.2
01C9 00 250 NOP
01CA 00 251 NOP
01CB C2A2 252 CLR P2.2
01CD 00 253 NOP
01CE 00 254 NOP
01CF D2A2 255 SETB P2.2
01D1 00 256 NOP
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 5
01D2 00 257 NOP
01D3 00 258 NOP
01D4 A2A2 259 MOV C,P2.2
01D6 7B1E 260 MOV R3,#30
01D8 DBFE 261 RE20: DJNZ R3,RE20
01DA 13 262 RRC A
01DB DAE9 263 DJNZ R2,RE01
01DD F7 264 MOV @R1,A
01DE 19 265 DEC R1
01DF DCE3 266 DJNZ R4,RE00
01E1 22 267 RET
268
269
270 END
A51 MACRO ASSEMBLER 1820 05/06/2007 16:01:17 PAGE 6
SYMBOL TABLE LISTING
------ ----- -------
N A M E T Y P E V A L U E ATTRIBUTES
AA . . . . . . . . C ADDR 0110H A
ACC. . . . . . . . D ADDR 00E0H A
B. . . . . . . . . D ADDR 00F0H A
BF . . . . . . . . C ADDR 00ABH A
DELA . . . . . . . C ADDR 00A2H A
E. . . . . . . . . B ADDR 0090H.5 A
FUTEM. . . . . . . C ADDR 015EH A
GETTEMPER. . . . . C ADDR 00FBH A
HH . . . . . . . . N NUMB 0050H A
HUI. . . . . . . . C ADDR 016DH A
INI. . . . . . . . C ADDR 00DAH A
INIT1820 . . . . . C ADDR 0183H A
LL . . . . . . . . N NUMB 0052H A
MAIN . . . . . . . C ADDR 0008H A
MM . . . . . . . . N NUMB 0051H A
P1 . . . . . . . . D ADDR 0090H A
P2 . . . . . . . . D ADDR 00A0H A
P3 . . . . . . . . D ADDR 00B0H A
RE00 . . . . . . . C ADDR 01C4H A
RE01 . . . . . . . C ADDR 01C6H A
RE20 . . . . . . . C ADDR 01D8H A
READ1820 . . . . . C ADDR 01C0H A
RS . . . . . . . . B ADDR 0090H.3 A
R_W. . . . . . . . B ADDR 0090H.4 A
SP . . . . . . . . D ADDR 0081H A
TSR1 . . . . . . . C ADDR 018AH A
TSR2 . . . . . . . C ADDR 0197H A
TSR3 . . . . . . . C ADDR 019CH A
TSR4 . . . . . . . C ADDR 0195H A
TSR6 . . . . . . . C ADDR 019EH A
TSR7 . . . . . . . C ADDR 01A4H A
WD . . . . . . . . C ADDR 00CCH A
WI . . . . . . . . C ADDR 00BEH A
WR1. . . . . . . . C ADDR 01ABH A
WRITE1820. . . . . C ADDR 01A8H A
REGISTER BANK(S) USED: 0
ASSEMBLY COMPLETE. 0 WARNING(S), 0 ERROR(S)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -