📄 main.lst
字号:
0372 D2A7 478 SETB STP
0374 00 479 NOP
0375 C2A7 480 CLR STP
0377 0D 481 INC R5
0378 1201F7 482 LCALL DELAY_100MS
037B DF89 483 DJNZ R7,DISXXXM0
037D DC01 484 DJNZ R4,DISXXXM81
037F 22 485 RET
0380 41FC 486 DISXXXM81:AJMP DISXXXM8
487
488
489 ;向外扫描....
0382 490 DISXXXW:
0382 12029A 491 LCALL REDTS
0385 492 DISXXXW8:
0385 7450 493 MOV A,#TIAOSHU
0387 75F008 494 MOV B,#8
038A 84 495 DIV AB
038B 2401 496 ADD A,#1
038D FF 497 MOV R7,A
038E 7D01 498 MOV R5,#1
0390 499 DISXXXW0:
0390 8D34 500 MOV XSBF2,R5
0392 8F33 501 MOV XSBF1,R7
0394 C2A6 502 CLR CLK
0396 C2A7 503 CLR STP
0398 504 DISXXXW1:
0398 120280 505 LCALL REDDS
039B 120280 506 LCALL REDDS
039E 120280 507 LCALL REDDS
03A1 120280 508 LCALL REDDS
03A4 D534F1 509 DJNZ XSBF2,DISXXXW1
03A7 120254 510 LCALL REDYS
03AA 120254 511 LCALL REDYS
03AD 120254 512 LCALL REDYS
03B0 120254 513 LCALL REDYS
03B3 D53302 514 DJNZ XSBF1,DISXXXW3
03B6 61C7 515 AJMP DISXXXW2
03B8 516 DISXXXW3:
03B8 120280 517 LCALL REDDS
03BB 120280 518 LCALL REDDS
03BE 120280 519 LCALL REDDS
03C1 120280 520 LCALL REDDS
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 9
03C4 D533F1 521 DJNZ XSBF1,DISXXXW3
03C7 522 DISXXXW2:
03C7 8F34 523 MOV XSBF2,R7
03C9 8D33 524 MOV XSBF1,R5
03CB 61D9 525 AJMP DISXXXW7
03CD 526 DISXXXW4:
03CD 120280 527 LCALL REDDS
03D0 120280 528 LCALL REDDS
03D3 120280 529 LCALL REDDS
03D6 120280 530 LCALL REDDS
03D9 531 DISXXXW7:
03D9 D534F1 532 DJNZ XSBF2,DISXXXW4
03DC 120254 533 LCALL REDYS
03DF 120254 534 LCALL REDYS
03E2 120254 535 LCALL REDYS
03E5 120254 536 LCALL REDYS
03E8 D53302 537 DJNZ XSBF1,DISXXXW5
03EB 61FC 538 AJMP DISXXXW6
03ED 539 DISXXXW5:
03ED 120280 540 LCALL REDDS
03F0 120280 541 LCALL REDDS
03F3 120280 542 LCALL REDDS
03F6 120280 543 LCALL REDDS
03F9 D533F1 544 DJNZ XSBF1,DISXXXW5
03FC 545 DISXXXW6:
03FC D2A7 546 SETB STP
03FE 00 547 NOP
03FF C2A7 548 CLR STP
0401 0D 549 INC R5
0402 1201F7 550 LCALL DELAY_100MS
0405 DF89 551 DJNZ R7,DISXXXW0
0407 DC01 552 DJNZ R4,DISXXXW81
0409 22 553 RET
040A 6185 554 DISXXXW81:AJMP DISXXXW8
555
556
557
558 ;向右扫描....
040C 559 DISXXXR:
040C 12029A 560 LCALL REDTS
040F 561 DISXXXR4:
040F 7450 562 MOV A,#TIAOSHU
0411 75F004 563 MOV B,#4
0414 84 564 DIV AB
0415 04 565 INC A
0416 FF 566 MOV R7,A
0417 7D01 567 MOV R5,#1
0419 568 DISXXXR0:
0419 8D34 569 MOV XSBF2,R5
041B 8F33 570 MOV XSBF1,R7
041D C2A6 571 CLR CLK
041F C2A7 572 CLR STP
0421 573 DISXXXR1:
0421 120280 574 LCALL REDDS
0424 120280 575 LCALL REDDS
0427 120280 576 LCALL REDDS
042A 120280 577 LCALL REDDS
042D D534F1 578 DJNZ XSBF2,DISXXXR1
0430 120254 579 LCALL REDYS
0433 120254 580 LCALL REDYS
0436 120254 581 LCALL REDYS
0439 120254 582 LCALL REDYS
043C D53302 583 DJNZ XSBF1,DISXXXR3
043F 8150 584 AJMP DISXXXR2
0441 585 DISXXXR3:
0441 120280 586 LCALL REDDS
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 10
0444 120280 587 LCALL REDDS
0447 120280 588 LCALL REDDS
044A 120280 589 LCALL REDDS
044D D533F1 590 DJNZ XSBF1,DISXXXR3
0450 591 DISXXXR2:
0450 D2A7 592 SETB STP
0452 00 593 NOP
0453 C2A7 594 CLR STP
0455 0D 595 INC R5
0456 1201F7 596 LCALL DELAY_100MS
0459 DFBE 597 DJNZ R7,DISXXXR0
045B DCB2 598 DJNZ R4,DISXXXR4
045D 22 599 RET
600
601 ;向左累加....
045E 602 DISADDL:
045E 12029A 603 LCALL REDTS
0461 604 DISADDL4:
0461 7F50 605 MOV R7,#TIAOSHU
0463 7D01 606 MOV R5,#1
0465 607 DISADDL0:
0465 8F34 608 MOV XSBF2,R7
0467 8D33 609 MOV XSBF1,R5
0469 C2A6 610 CLR CLK
046B C2A7 611 CLR STP
046D 612 DISADDL1:
046D 120280 613 LCALL REDDS
0470 D534FA 614 DJNZ XSBF2,DISADDL1
0473 120254 615 LCALL REDYS
0476 D53302 616 DJNZ XSBF1,DISADDL3
0479 8181 617 AJMP DISADDL2
047B 618 DISADDL3:
047B 120254 619 LCALL REDYS
047E D533FA 620 DJNZ XSBF1,DISADDL3
0481 621 DISADDL2:
0481 D2A7 622 SETB STP
0483 00 623 NOP
0484 C2A7 624 CLR STP
0486 0D 625 INC R5
0487 120230 626 LCALL DELAY_10MS
048A DFD9 627 DJNZ R7,DISADDL0
048C DCD3 628 DJNZ R4,DISADDL4
048E 22 629 RET
630
631 ;向右累加....
048F 632 DISADDR:
048F 12029A 633 LCALL REDTS
0492 634 DISADDR4:
0492 7F50 635 MOV R7,#TIAOSHU
0494 7D01 636 MOV R5,#1
0496 637 DISADDR0:
0496 8D34 638 MOV XSBF2,R5
0498 8F33 639 MOV XSBF1,R7
049A C2A6 640 CLR CLK
049C C2A7 641 CLR STP
049E 642 DISADDR1:
049E 120280 643 LCALL REDDS
04A1 D534FA 644 DJNZ XSBF2,DISADDR1
04A4 120254 645 LCALL REDYS
04A7 D53302 646 DJNZ XSBF1,DISADDR3
04AA 81B2 647 AJMP DISADDR2
04AC 648 DISADDR3:
04AC 120254 649 LCALL REDYS
04AF D533FA 650 DJNZ XSBF1,DISADDR3
04B2 651 DISADDR2:
04B2 D2A7 652 SETB STP
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 11
04B4 00 653 NOP
04B5 C2A7 654 CLR STP
04B7 0D 655 INC R5
04B8 120230 656 LCALL DELAY_10MS
04BB DFD9 657 DJNZ R7,DISADDR0
04BD DCD3 658 DJNZ R4,DISADDR4
04BF 22 659 RET
660
661 ;七彩左移...
04C0 662 DISRGBL:
04C0 12029A 663 LCALL REDTS
04C3 AD20 664 MOV R5,CLOUR
04C5 665 DISRGBL4:
04C5 8D20 666 MOV CLOUR,R5
04C7 7F50 667 MOV R7,#tiaoshu
04C9 668 DISRGBL0:
04C9 120280 669 LCALL REDDS
04CC DFFB 670 DJNZ R7,DISRGBL0
04CE 752000 671 MOV CLOUR,#0
04D1 672 DISRGBL3:
04D1 120254 673 LCALL REDYS
04D4 D2A7 674 SETB STP
04D6 00 675 NOP
04D7 C2A7 676 CLR STP
04D9 1201F7 677 LCALL DELAY_100MS
04DC D520F2 678 DJNZ CLOUR,DISRGBL3
04DF DCE4 679 DJNZ R4,DISRGBL4
04E1 22 680 RET
681
682 ;七彩左移4列...
04E2 683 DISRGB4L:
04E2 12029A 684 LCALL REDTS
04E5 AD20 685 MOV R5,CLOUR
04E7 686 DISRGB4L4:
04E7 8D20 687 MOV CLOUR,R5
04E9 7F50 688 MOV R7,#tiaoshu
689
04EB 690 DISRGB4L0:
04EB 120280 691 LCALL REDDS
04EE DFFB 692 DJNZ R7,DISRGB4L0
04F0 752078 693 MOV CLOUR,#120
04F3 694 DISRGB4L3:
04F3 120254 695 LCALL REDYS
04F6 D2A7 696 SETB STP
04F8 00 697 NOP
04F9 C2A7 698 CLR STP
04FB 12020A 699 LCALL DELAY_50MS
04FE 12026D 700 LCALL REDAB
0501 D2A7 701 SETB STP
0503 00 702 NOP
0504 C2A7 703 CLR STP
0506 12020A 704 LCALL DELAY_50MS
0509 12026D 705 LCALL REDAB
050C D2A7 706 SETB STP
050E 00 707 NOP
050F C2A7 708 CLR STP
0511 12020A 709 LCALL DELAY_50MS
710
0514 D520DC 711 DJNZ CLOUR,DISRGB4L3
0517 DCCE 712 DJNZ R4,DISRGB4L4
0519 22 713 RET
714
715
716 ;向左堆积木....
051A 717 DISDJML:
051A 12029A 718 LCALL REDTS
A51 MACRO ASSEMBLER MAIN 09/27/2008 23:49:12 PAGE 12
051D 719 DISDJML4:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -