📄 main.lst
字号:
01C3 120382 236 LCALL DISXXXW
01C6 1202F9 237 LCALL DISXXXM
238 ;蓝底，红色向中扫描...
01C9 75200C 239 MOV CLOUR,#00001100B
01CC 120382 240 LCALL DISXXXW
01CF 1202F9 241 LCALL DISXXXM
01D2 120382 242 LCALL DISXXXW
01D5 1202F9 243 LCALL DISXXXM
244
245 ;红底。绿色左堆...
01D8 752022 246 MOV CLOUR,#00100010B
01DB 12051A 247 LCALL DISDJML
248
249 ;红底七彩4左移...
01DE 752020 250 MOV CLOUR,#00100000B
01E1 1204E2 251 LCALL DISRGB4L
252 ;绿底七彩4左移...
01E4 752010 253 MOV CLOUR,#00010000B
01E7 1204E2 254 LCALL DISRGB4L
255 ;蓝底七彩4左移...
01EA 752008 256 MOV CLOUR,#00001000B
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 5
01ED 1204E2 257 LCALL DISRGB4L
258
259 ;红底，蓝色左堆...
01F0 752021 260 MOV CLOUR,#00100001B
01F3 120564 261 LCALL DISDJM4L
262
263
01F6 22 264 RET
265
266
267
268
01F7 269 DELAY_100MS:
01F7 753005 270 MOV DBUF1,#5
01FA 753119 271 D1002: MOV DBUF2,#25
01FD 7532B6 272 D1001: MOV DBUF3,#182
0200 D532FD 273 DJNZ DBUF3,$
0203 D531F7 274 DJNZ DBUF2,D1001
0206 D530F1 275 DJNZ DBUF1,D1002
0209 22 276 RET
277
020A 278 DELAY_50MS:
020A 753004 279 MOV DBUF1,#4
020D 753119 280 D502: MOV DBUF2,#25
0210 7532B6 281 D501: MOV DBUF3,#182
0213 D532FD 282 DJNZ DBUF3,$
0216 D531F7 283 DJNZ DBUF2,D501
0219 D530F1 284 DJNZ DBUF1,D502
021C 22 285 RET
286
021D 287 DELAY_1S:
021D 75300A 288 MOV DBUF1,#10
0220 7531FA 289 D12: MOV DBUF2,#250
0223 7532B6 290 D11: MOV DBUF3,#182
0226 D532FD 291 DJNZ DBUF3,$
0229 D531F7 292 DJNZ DBUF2,D11
022C D530F1 293 DJNZ DBUF1,D12
022F 22 294 RET
295
0230 296 DELAY_10MS:
0230 753005 297 MOV DBUF1,#5
0233 753119 298 D102: MOV DBUF2,#25
0236 753212 299 D101: MOV DBUF3,#18
0239 D532FD 300 DJNZ DBUF3,$
023C D531F7 301 DJNZ DBUF2,D101
023F D530F1 302 DJNZ DBUF1,D102
0242 22 303 RET
304
305
306
307
308
309 ;全部显示同一种颜色.....
0243 310 DISALL:
0243 7F50 311 MOV R7,#TIAOSHU
0245 C2A6 312 CLR CLK
0247 C2A7 313 CLR STP
0249 314 DISALL1:
0249 120254 315 LCALL REDYS
024C DFFB 316 DJNZ R7,DISALL1
024E D2A7 317 SETB STP
0250 00 318 NOP
0251 C2A7 319 CLR STP
0253 22 320 RET
321
322
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 6
323 ;读要显示的数据....
0254 A200 324 REDYS: MOV C,00H
0256 92A5 325 MOV DAT,C
0258 D2A6 326 SETB CLK
025A C2A6 327 CLR CLK
025C A201 328 MOV C,01H
025E 92A5 329 MOV DAT,C
0260 D2A6 330 SETB CLK
0262 C2A6 331 CLR CLK
0264 A202 332 MOV C,02H
0266 92A5 333 MOV DAT,C
0268 D2A6 334 SETB CLK
026A C2A6 335 CLR CLK
026C 22 336 RET
337 ;传送两个黑点...
026D C2A5 338 REDAB: CLR DAT
026F D2A6 339 SETB CLK
0271 C2A6 340 CLR CLK
341
0273 C2A5 342 CLR DAT
0275 D2A6 343 SETB CLK
0277 C2A6 344 CLR CLK
345
0279 C2A5 346 CLR DAT
027B D2A6 347 SETB CLK
027D C2A6 348 CLR CLK
349
027F 22 350 RET
351
352 ;读要显示的底色数据....
0280 A203 353 REDDS: MOV C,03H
0282 92A5 354 MOV DAT,C
0284 D2A6 355 SETB CLK
0286 C2A6 356 CLR CLK
0288 A204 357 MOV C,04H
028A 92A5 358 MOV DAT,C
028C D2A6 359 SETB CLK
028E C2A6 360 CLR CLK
0290 A205 361 MOV C,05H
0292 92A5 362 MOV DAT,C
0294 D2A6 363 SETB CLK
0296 C2A6 364 CLR CLK
0298 22 365 RET
0299 22 366 RET
367
368 ;读要显示的次数....
369 ;保存在R4中...
029A 7400 370 REDTS: MOV A,#0
029C A206 371 MOV C,06H
029E 92E0 372 MOV ACC.0,C
02A0 A207 373 MOV C,07H
02A2 92E1 374 MOV ACC.1,C
02A4 04 375 INC A
02A5 FC 376 MOV R4,A
02A6 22 377 RET
378
379 ;向左扫描....
02A7 380 DISXXXL:
02A7 12029A 381 LCALL REDTS
02AA 382 DISXXXL4:
02AA 7450 383 MOV A,#TIAOSHU
02AC 75F004 384 MOV B,#4
02AF 84 385 DIV AB
02B0 04 386 INC A
02B1 FF 387 MOV R7,A
02B2 7D01 388 MOV R5,#1
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 7
02B4 389 DISXXXL0:
02B4 8F34 390 MOV XSBF2,R7
02B6 8D33 391 MOV XSBF1,R5
02B8 C2A6 392 CLR CLK
02BA C2A7 393 CLR STP
02BC 394 DISXXXL1:
02BC 120280 395 LCALL REDDS
02BF 120280 396 LCALL REDDS
02C2 120280 397 LCALL REDDS
02C5 120280 398 LCALL REDDS
02C8 D534F1 399 DJNZ XSBF2,DISXXXL1
02CB 120254 400 LCALL REDYS
02CE 120254 401 LCALL REDYS
02D1 120254 402 LCALL REDYS
02D4 120254 403 LCALL REDYS
02D7 D53302 404 DJNZ XSBF1,DISXXXL3
02DA 41EB 405 AJMP DISXXXL2
02DC 406 DISXXXL3:
02DC 120280 407 LCALL REDDS
02DF 120280 408 LCALL REDDS
02E2 120280 409 LCALL REDDS
02E5 120280 410 LCALL REDDS
02E8 D533F1 411 DJNZ XSBF1,DISXXXL3
02EB 412 DISXXXL2:
02EB D2A7 413 SETB STP
02ED 00 414 NOP
02EE C2A7 415 CLR STP
02F0 0D 416 INC R5
02F1 1201F7 417 LCALL DELAY_100MS
02F4 DFBE 418 DJNZ R7,DISXXXL0
02F6 DCB2 419 DJNZ R4,DISXXXL4
02F8 22 420 RET
421
422 ;向中扫描....
02F9 423 DISXXXM:
02F9 12029A 424 LCALL REDTS
02FC 7450 425 DISXXXM8:MOV A,#TIAOSHU
02FE 75F008 426 MOV B,#8
0301 84 427 DIV AB
0302 04 428 INC A
0303 FF 429 MOV R7,A
0304 7D01 430 MOV R5,#1
0306 431 DISXXXM0:
0306 8F34 432 MOV XSBF2,R7
0308 8D33 433 MOV XSBF1,R5
030A C2A6 434 CLR CLK
030C C2A7 435 CLR STP
030E 436 DISXXXM1:
030E 120280 437 LCALL REDDS
0311 120280 438 LCALL REDDS
0314 120280 439 LCALL REDDS
0317 120280 440 LCALL REDDS
031A D534F1 441 DJNZ XSBF2,DISXXXM1
031D 120254 442 LCALL REDYS
0320 120254 443 LCALL REDYS
0323 120254 444 LCALL REDYS
0326 120254 445 LCALL REDYS
0329 D53302 446 DJNZ XSBF1,DISXXXM3
032C 613D 447 AJMP DISXXXM2
032E 448 DISXXXM3:
032E 120280 449 LCALL REDDS
0331 120280 450 LCALL REDDS
0334 120280 451 LCALL REDDS
0337 120280 452 LCALL REDDS
033A D533F1 453 DJNZ XSBF1,DISXXXM3
033D 454 DISXXXM2:
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 8
033D 8D34 455 MOV XSBF2,R5
033F 8F33 456 MOV XSBF1,R7
0341 614F 457 AJMP DISXXXM7
0343 458 DISXXXM4:
0343 120280 459 LCALL REDDS
0346 120280 460 LCALL REDDS
0349 120280 461 LCALL REDDS
034C 120280 462 LCALL REDDS
034F 463 DISXXXM7:
034F D534F1 464 DJNZ XSBF2,DISXXXM4
0352 120254 465 LCALL REDYS
0355 120254 466 LCALL REDYS
0358 120254 467 LCALL REDYS
035B 120254 468 LCALL REDYS
035E D53302 469 DJNZ XSBF1,DISXXXM5
0361 6172 470 AJMP DISXXXM6
0363 471 DISXXXM5:
0363 120280 472 LCALL REDDS
0366 120280 473 LCALL REDDS
0369 120280 474 LCALL REDDS
036C 120280 475 LCALL REDDS
036F D533F1 476 DJNZ XSBF1,DISXXXM5
0372 477 DISXXXM6:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -