📄 5-1.lst
字号:
0460 782B 663 MOV R0, #AL1_H
0462 28 664 ADD A, R0
0463 F8 665 MOV R0, A
0464 E6 666 MOV A, @R0
0465 1202A0 667 LCALL BCD_8
0468 F53E 668 MOV Led2, A
046A 7003 669 JNZ LD2
046C 753E14 670 MOV Led2, #Blk_Led
046F E5F0 671 LD2: MOV A, B
0471 240A 672 ADD A, #10D
0473 F53F 673 MOV Led3, A
0475 08 674 INC R0
0476 E6 675 MOV A, @R0
0477 1202A0 676 LCALL BCD_8
047A 240A 677 ADD A, #10D
047C F540 678 MOV Led4, A
047E 85F041 679 MOV Led5, B
0481 200014 680 JB FL_250ms, Led_AL_End
0484 12042A 681 LCALL JJ_Bit
0487 7009 682 JNZ Led_AL_E
0489 754014 683 MOV Led4, #Blk_Led
048C 754114 684 MOV Led5, #Blk_Led
048F 020498 685 LJMP Led_AL_End
0492 753E14 686 Led_AL_E:MOV Led2, #Blk_Led
0495 753F14 687 MOV Led3, #Blk_Led
0498 688 Led_AL_End:
0498 1202A5 689 LCALL Led
049B 22 690 RET
691 ;-----------------------------------------------------------------------------------------
049C 750D01 692 Set_Clock: MOV K1_Data, #01D
049F 750E01 693 MOV K2_Data, #01D
04A2 C20A 694 CLR Set_Over
04A4 120510 695 LCALL Led_CL
04A7 120746 696 LCALL Key_Bord
04AA 120760 697 LCALL SF_Key
04AD 750800 698 MOV Key_Data, #0
04B0 753C00 699 MOV Frist, #0
04B3 1200BB 700 Set_AL41: LCALL Clock
04B6 12014E 701 LCALL Week_Auto
04B9 1201A4 702 LCALL AL_Out
04BC 120510 703 LCALL Led_CL
04BF 120746 704 LCALL Key_Bord
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 12
04C2 120706 705 CALL Key_Del
04C5 1204D5 706 LCALL Key_CL
04C8 300AE8 707 JNB Set_Over, Set_AL41
04CB E4 708 CLR A
04CC F50D 709 MOV K1_Data,A
04CE F50E 710 MOV K2_Data,A
04D0 F508 711 MOV Key_Data,A
04D2 F53C 712 MOV Frist,A
04D4 22 713 RET
714 ;-----------------------------------------------------------------------------------------
04D5 E508 715 Key_CL: MOV A, Key_Data
04D7 7001 716 JNZ $+3
04D9 22 717 RET
718 ;-----------------------------------------------------------------------------------------
04DA B4010D 719 CJNE A, #01D, K3_AL
04DD 050D 720 INC K1_Data ;(1-8)
04DF E50D 721 MOV A, K1_Data
04E1 B4090D 722 CJNE A, #9D, X
04E4 750D01 723 MOV K1_Data, #01D
04E7 020508 724 LJMP K3_AL_End
04EA E50D 725 K3_AL: MOV A, K1_Data
04EC B40805 726 CJNE A, #08D, K3E
04EF D20A 727 SETB Set_Over
04F1 020508 728 X: LJMP K3_AL_End
04F4 14 729 K3E: DEC A
04F5 900509 730 MOV DPTR, #ASC_H
04F8 93 731 MOVC A, @A+DPTR
04F9 F5F0 732 MOV B, A
04FB 7823 733 MOV R0, #SEC
04FD E50D 734 MOV A, K1_Data
04FF 14 735 DEC A
0500 28 736 ADD A, R0
0501 F8 737 MOV R0, A
0502 06 738 INC @R0
0503 E6 739 MOV A, @R0
0504 84 740 DIV AB
0505 E5F0 741 MOV A, B
0507 F6 742 MOV @R0, A
0508 743 K3_AL_End:
0508 22 744 RET
745 ;-----------------------------------------------------------------------------------------
0509 3C3C1820 746 ASC_H: DB 60D,60D,24D,32D,13D,100D,100D
050D 0D6464
747 ;PROC Led_CL
0510 90051B 748 Led_CL: MOV DPTR, #Led_Ord_3
0513 E50D 749 MOV A, K1_Data
0515 14 750 DEC A
0516 75F002 751 MOV B, #02H
0519 A4 752 MUL AB
051A 73 753 JMP @A+DPTR
051B 020533 754 Led_Ord_3:LJMP Led_K0_2
051E 020551 755 LJMP Led_K1_2
0521 020560 756 LJMP Led_K2_2
0524 02056F 757 LJMP Led_K3_2
0527 02057E 758 LJMP Led_K4_2
052A 02058D 759 LJMP Led_K5_2
052D 0205A9 760 LJMP Led_K6_2
0530 0205C5 761 LJMP Led_K7_2
0533 753E14 762 Led_K0_2:MOV Led2, #Blk_Led
0536 753F15 763 MOV Led3, #DOT_Led
0539 E523 764 MOV A, SEC
053B 1202A0 765 LCALL BCD_8
053E 240A 766 ADD A, #10D
0540 F540 767 MOV Led4, A
0542 85F041 768 MOV Led5, B
0545 200006 769 JB FL_250ms, LK1
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 13
0548 754014 770 MOV Led4, #Blk_Led
054B 754114 771 MOV Led5, #Blk_Led
054E 0205C8 772 LK1: LJMP Led_Jmp_5_End
0551 1205CF 773 Led_K1_2:LCALL Led_Hour
0554 200006 774 JB FL_250ms, LK2
0557 754014 775 MOV Led4, #Blk_Led
055A 754114 776 MOV Led5, #Blk_Led
055D 0205C8 777 LK2: LJMP Led_Jmp_5_End
0560 1205CF 778 Led_K2_2:LCALL Led_Hour
0563 200006 779 JB FL_250ms, LK3
0566 753E14 780 MOV Led2, #Blk_Led
0569 753F14 781 MOV Led3, #Blk_Led
056C 0205C8 782 LK3: LJMP Led_Jmp_5_End
056F 1205EE 783 Led_K3_2:LCALL Led_Mon
0572 200006 784 JB FL_250ms, LK4
0575 754014 785 MOV Led4, #Blk_Led
0578 754114 786 MOV Led5, #Blk_Led
057B 0205C8 787 LK4: LJMP Led_Jmp_5_End
057E 1205EE 788 Led_K4_2:LCALL Led_Mon
0581 200006 789 JB FL_250ms, LK5
0584 753E14 790 MOV Led2, #Blk_Led
0587 753F14 791 MOV Led3, #Blk_Led
058A 0205C8 792 LK5: LJMP Led_Jmp_5_End
058D 753E02 793 Led_K5_2:MOV Led2, #2D
0590 753F00 794 MOV Led3, #0D
0593 E528 795 MOV A, Year
0595 1202A0 796 LCALL BCD_8
0598 F540 797 MOV Led4, A
059A 85F041 798 MOV Led5, B
059D 200006 799 JB FL_250ms, LK6
05A0 754014 800 MOV Led4, #Blk_Led
05A3 754114 801 MOV Led5, #Blk_Led
05A6 0205C8 802 LK6: LJMP Led_Jmp_5_End
803 ;-----------------------------------------------------------------------------------------
05A9 753E1B 804 Led_K6_2:MOV Led2, #D_Led
05AC 753F14 805 MOV Led3, #Blk_Led
05AF E529 806 MOV A, W_Adj
05B1 1202A0 807 LCALL BCD_8
05B4 F540 808 MOV Led4, A
05B6 85F041 809 MOV Led5, B
05B9 200006 810 JB FL_250ms, LK7
05BC 754014 811 MOV Led4, #Blk_Led
05BF 754114 812 MOV Led5, #Blk_Led
05C2 0205C8 813 LK7: LJMP Led_Jmp_5_End
814 ;-----------------------------------------------------------------------------------------
05C5 120433 815 Led_K7_2:LCALL Led_Out1
05C8 816 Led_Jmp_5_End:
05C8 852A3D 817 MOV Led1, Week
05CB 1202A5 818 LCALL Led
05CE 22 819 RET
820 ;-----------------------------------------------------------------------------------------
05CF E525 821 Led_Hour: MOV A, Hour
05D1 1202A0 822 LCALL BCD_8
05D4 F53E 823 MOV Led2, A
05D6 7003 824 JNZ LJ1
05D8 753E14 825 MOV Led2, #Blk_Led
05DB E5F0 826 LJ1: MOV A, B
05DD 240A 827 ADD A, #10D
05DF F53F 828 MOV Led3, A
05E1 E524 829 MOV A, MIN
05E3 1202A0 830 LCALL BCD_8
05E6 240A 831 ADD A, #10D
05E8 F540 832 MOV Led4, A
05EA 85F041 833 MOV Led5, B
05ED 22 834 RET
835 ;-----------------------------------------------------------------------------------------
A51 MACRO ASSEMBLER 5-1 09/12/2004 21:30:19 PAGE 14
05EE E527 836 Led_Mon: MOV A, Mon
05F0 7004 837 JNZ LJ5
05F2 0527 838 INC Mon
05F4 E527 839 MOV A, Mon
05F6 1202A0 840 LJ5: LCALL BCD_8
05F9 F53E 841 MOV Led2,A
05FB 7003 842 JNZ LJ2
05FD 753E14 843 MOV Led2, #Blk_Led
0600 85F03F 844 LJ2: MOV Led3, B
0603 E526 845 MOV A, Day
0605 7004 846 JNZ LJ4
0607 0526 847 INC Day
0609 E526 848 MOV A, Day
060B 1202A0 849 LJ4: LCALL BCD_8
060E F540 850 MOV Led4, A
0610 7003 851 JNZ LJ3
0612 754014 852 MOV Led4, #Blk_Led
0615 85F041 853 LJ3: MOV Led5, B
0618 22 854 RET
855 ;-----------------------------------------------------------------------------------------
0619 856 Beep_OUT:
0619 200B05 857 JB HA_F, BA1
061C 852312 858 MOV Beep, SEC
061F D20B 859 SETB HA_F
0621 E512 860 BA1: MOV A, Beep
0623 253B 861 ADD A, Beep_T
0625 75F03C 862 MOV B, #60D
0628 84 863 DIV AB
0629 E523 864 MOV A, SEC
062B B5F006 865 CJNE A, B, Beep_OUT_End
062E D2B7 866 SETB Beep_F
0630 D20C 867 SETB HA_OVER
0632 C20B 868 CLR HA_F
0634 869 Beep_OUT_End:
0634 22 870 RET
871 ;-----------------------------------------------------------------------------------------
0635 872 Beep_Timer:
0635 753D14 873 MOV Led1, #Blk_Led
0638 753E1A 874 MOV Led2, #B_Led
063B 753F14 875 MOV Led3, #Blk_Led
063E E53B 876 MOV A, Beep_T
0640 1202A0 877 LCALL BCD_8
0643 F540 878 MOV Led4, A
0645 85F041 879 MOV Led5, B
0648 200006 880 JB FL_250ms, FT1
064B 754014 881 MOV Led4, #Blk_Led
064E 754114 882 MOV Led5, #Blk_Led
0651 22 883 FT1: RET
884 ;-----------------------------------------------------------------------------------------
0652 900670 885 TIME_12: MOV DPTR, #ASC_12
0655 E525 886 MOV A, Hour
0657 23 887 RL A
0658 93 888 MOVC A, @A+DPTR
0659 F53E 889 MOV Led2, A
065B 7003 890 JNZ IU2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -