📄 ick.lst
字号:
03F6 D7 489 XCHD A,@R1
03F7 FC 490 MOV R4,A
MCS-51 MACRO ASSEMBLER ICK 04/28/:2 PAGE 10
LOC OBJ LINE SOURCE
03F8 22 491 RET
492 ;*************************************************************
03F9 AE68 493 MODE1:MOV R6,68H
03FB AF6A 494 MOV R7,6AH
03FD 12043D 495 LCALL SET_CHA
0400 120443 496 LCALL SET_MUL
0403 22 497 RET
498 ;*************************************************************
0404 AE68 499 MODE2:MOV R6,68H
0406 7FFF 500 MOV R7,#0FFH
0408 12043D 501 LCALL SET_CHA
040B 120443 502 LCALL SET_MUL
040E 22 503 RET
504 ;*************************************************************
040F 7E00 505 MODE3:MOV R6,#00H
0411 7FFF 506 MOV R7,#0FFH
0413 12043D 507 LCALL SET_CHA
0416 120443 508 LCALL SET_MUL
0419 22 509 RET
510 ;*************************************************************
041A 7E00 511 MODE4:MOV R6,#00H
041C AF6A 512 MOV R7,6AH
041E 12043D 513 LCALL SET_CHA
0421 120443 514 LCALL SET_MUL
0424 22 515 RET
516 ;*************************************************************
0425 754302 517 LED_ON:MOV 43H,#02H
0428 C2A6 518 LED:CLR P2.6
042A 1205C6 519 LCALL DLY2S
042D D543F8 520 DJNZ 43H,LED
0430 22 521 RET
522 ;*************************************************************
0431 ED 523 CAI_ADDRESS:MOV A,R5
0432 540F 524 ANL A,#0FH
0434 F560 525 MOV 60H,A
0436 ED 526 MOV A,R5
0437 C4 527 SWAP A
0438 540F 528 ANL A,#0FH
043A F561 529 MOV 61H,A
043C 22 530 RET
531 ;*************************************************************
043D EF 532 SET_CHA:MOV A,R7
043E C3 533 CLR C
043F 9E 534 SUBB A,R6
0440 F56C 535 MOV 6CH,A
0442 22 536 RET
537 ;*************************************************************
0443 E562 538 SET_MUL:MOV A,62H
0445 2562 539 ADD A,62H
0447 24A0 540 ADD A,#0A0H
0449 FA 541 MOV R2,A
044A 2401 542 ADD A,#01H
044C FB 543 MOV R3,A
044D 22 544 RET
545 ;*************************************************************
MCS-51 MACRO ASSEMBLER ICK 04/28/:2 PAGE 11
LOC OBJ LINE SOURCE
044E 754302 546 ALARM0:MOV 43H,#02H
0451 C2A7 547 AL:CLR P2.7
0453 AD64 548 MOV R5,64H
0455 120431 549 LCALL CAI_ADDRESS
0458 E565 550 MOV A,65H
045A 540F 551 ANL A,#0FH
045C F55E 552 MOV 5EH,A
045E E565 553 MOV A,65H
0460 C4 554 SWAP A
0461 540F 555 ANL A,#0FH
0463 F55F 556 MOV 5FH,A
0465 D28C 557 SETB TR0
0467 1205C6 558 LCALL DLY2S
046A C28C 559 CLR TR0
046C E566 560 MOV A,66H
046E 540F 561 ANL A,#0FH
0470 F55E 562 MOV 5EH,A
0472 E566 563 MOV A,66H
0474 C4 564 SWAP A
0475 540F 565 ANL A,#0FH
0477 F55F 566 MOV 5FH,A
0479 D28C 567 SETB TR0
047B 1205C6 568 LCALL DLY2S
047E D543D0 569 DJNZ 43H,AL
0481 C28C 570 CLR TR0
0483 22 571 RET
572 ;*************************************************************
0484 C0E0 573 ITOP:PUSH ACC
0486 C081 574 PUSH SP
0488 C0B0 575 PUSH P3
048A 758CD8 576 MOV TH0,#0D8H
048D 758AF0 577 MOV TL0,#0F0H
0490 E6 578 MOV A,@R0
0491 18 579 DEC R0
0492 90060C 580 MOV DPTR,#TAB
0495 93 581 MOVC A,@A+DPTR
0496 F580 582 MOV P0,A
0498 8550A0 583 MOV P2,50H
049B E550 584 MOV A,50H
049D 03 585 RR A
049E F550 586 MOV 50H,A
04A0 D55108 587 DJNZ 51H,EXIT
04A3 7863 588 MOV R0,#63H
04A5 7550DF 589 MOV 50H,#0DFH
04A8 755106 590 MOV 51H,#06H
04AB D0B0 591 EXIT:POP P3
04AD D081 592 POP SP
04AF D0E0 593 POP ACC
04B1 32 594 RETI
595 ;*************************************************************
04B2 12052E 596 COMM_READ_PRG:LCALL ST
04B5 EA 597 MOV A,R2
04B6 120552 598 LCALL WRBYT2
04B9 1205AC 599 LCALL PULS
04BC E564 600 MOV A,64H
MCS-51 MACRO ASSEMBLER ICK 04/28/:2 PAGE 12
LOC OBJ LINE SOURCE
04BE 120552 601 LCALL WRBYT2
04C1 1205AC 602 LCALL PULS
04C4 12052E 603 LCALL ST
04C7 EB 604 MOV A,R3
04C8 120552 605 LCALL WRBYT2
04CB 1205AC 606 LCALL PULS
04CE 120589 607 LCALL RDBYT2
04D1 12059B 608 LCALL STOP
04D4 E565 609 LOW_BYTE:MOV A,65H
04D6 540F 610 ANL A,#0FH
04D8 F55E 611 MOV 5EH,A
04DA E565 612 HIGH_BYTE:MOV A,65H
04DC 54F0 613 ANL A,#0F0H
04DE C4 614 SWAP A
04DF F55F 615 MOV 5FH,A
04E1 22 616 RET
617 ;*************************************************************
04E2 12052E 618 READ_IC1:LCALL ST
04E5 EA 619 MOV A,R2
04E6 12053F 620 LCALL WRBYT1
04E9 1205AC 621 LCALL PULS
04EC E564 622 MOV A,64H
04EE 12053F 623 LCALL WRBYT1
04F1 1205AC 624 LCALL PULS
04F4 12052E 625 LCALL ST
04F7 EB 626 MOV A,R3
04F8 12053F 627 LCALL WRBYT1
04FB 1205AC 628 LCALL PULS
04FE 120577 629 LCALL RDBYT1
0501 1205AC 630 LCALL PULS
0504 12059B 631 LCALL STOP
0507 22 632 RET
633 ;************************************************************
0508 12052E 634 READ_IC2:LCALL ST
050B EA 635 MOV A,R2
050C 120552 636 LCALL WRBYT2
050F 1205AC 637 LCALL PULS
0512 E564 638 MOV A,64H
0514 120552 639 LCALL WRBYT2
0517 1205AC 640 LCALL PULS
051A 12052E 641 LCALL ST
051D EB 642 MOV A,R3
051E 120552 643 LCALL WRBYT2
0521 1205AC 644 LCALL PULS
0524 120589 645 LCALL RDBYT2
0527 1205AC 646 LCALL PULS
052A 12059B 647 LCALL STOP
052D 22 648 RET
649 ;*************************************************************
052E D291 650 ST:SETB P1.1
0530 D292 651 SETB P1.2
0532 D290 652 SETB P1.0
0534 00 653 NOP
0535 00 654 NOP
0536 C291 655 CLR P1.1
MCS-51 MACRO ASSEMBLER ICK 04/28/:2 PAGE 13
LOC OBJ LINE SOURCE
0538 C292 656 CLR P1.2
053A 00 657 NOP
053B 00 658 NOP
053C C290 659 CLR P1.0
053E 22 660 RET
053F 755408 661 WRBYT1:MOV 54H,#08H
0542 33 662 RLC A
0543 9291 663 WLP1:MOV P1.1,C
0545 33 664 RLC A
0546 00 665 NOP
0547 00 666 NOP
0548 D290 667 SETB P1.0
054A 00 668 NOP
054B 00 669 NOP
054C C290 670 CLR P1.0
054E D554F2 671 DJNZ 54H,WLP1
0551 22 672 RET
0552 755408 673 WRBYT2:MOV 54H,#08H
0555 33 674 RLC A
0556 9292 675 WLP2:MOV P1.2,C
0558 33 676 RLC A
0559 00 677 NOP
055A 00 678 NOP
055B D290 679 SETB P1.0
055D 00 680 NOP
055E 00 681 NOP
055F C290 682 CLR P1.0
0561 D554F2 683 DJNZ 54H,WLP2
0564 22 684 RET
0565 D292 685 CACK:SETB P1.2
0567 D290 686 SETB P1.0
0569 C2D5 687 CLR F0
056B E590 688 MOV A,P1
056D 30E202 689 JNB ACC.2,CEND
0570 D2D5 690 SETB F0
0572 C290 691 CEND:CLR P1.0
0574 00 692 NOP
0575 00 693 NOP
0576 22 694 RET
0577 755408 695 RDBYT1:MOV 54H,#08H
057A C290 696 RLP:CLR P1.0
057C 00 697 NOP
057D 00 698 NOP
057E A291 699 MOV C,P1.1
0580 33 700 RLC A
0581 F566 701 MOV 66H,A
0583 D290 702 SETB P1.0
0585 D554F2 703 DJNZ 54H,RLP
0588 22 704 RET
0589 755408 705 RDBYT2:MOV 54H,#08H
058C C290 706 RLP1:CLR P1.0
058E 00 707 NOP
058F 00 708 NOP
0590 A292 709 MOV C,P1.2
0592 33 710 RLC A
MCS-51 MACRO ASSEMBLER ICK 04/28/:2 PAGE 14
LOC OBJ LINE SOURCE
0593 F565 711 MOV 65H,A
0595 D290 712 SETB P1.0
0597 D554F2 713 DJNZ 54H,RLP1
059A 22 714 RET
059B C291 715 STOP:CLR P1.1
059D C292 716 CLR P1.2
059F D290 717 SETB P1.0
05A1 00 718 NOP
05A2 00 719 NOP
05A3 D291 720 SETB P1.1
05A5 D292 721 SETB P1.2
05A7 00 722 NOP
05A8 00 723 NOP
05A9 C290 724 CLR P1.0
05AB 22 725 RET
05AC D290 726 PULS:SETB P1.0
05AE 00 727 NOP
05AF 00 728 NOP
05B0 C290 729 CLR P1.0
05B2 22 730 RET
731 ;*************************************************************
05B3 754210 732 DLY1S:MOV 42H,#10H
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -