📄 dfg-a.l
字号:
872 05A2 6D 05 E4 jp eq,disw400
873 05A5 8D 05 E4 jp disw400
874 05A8 disw150
875 05A8 E6 11 24 ld dis1,#24h ;1
876 05AB E6 12 CD ld dis2,#0cdh ;5
877 05AE E6 13 F5 ld dis3,#0f5h ;0
878 05B1 AF ret
879 05B2 disw175
880 05B2 E6 11 24 ld dis1,#24h ;1
881 05B5 E6 12 64 ld dis2,#64h ;7
882 05B8 E6 13 CD ld dis3,#0cdh ;5
883 05BB AF ret
884 05BC disw200
885 05BC E6 11 79 ld dis1,#79h ;2
886 05BF E6 12 F5 ld dis2,#0f5h ;0
887 05C2 E6 13 F5 ld dis3,#0f5h ;0
888 05C5 AF ret
889 05C6 disw250
890 05C6 E6 11 79 ld dis1,#79h ;2
891 05C9 E6 12 CD ld dis2,#0cdh ;5
892 05CC E6 13 F5 ld dis3,#0f5h ;0
893 05CF AF ret
894 05D0 disw300
895 05D0 E6 11 6D ld dis1,#6dh ;3
896 05D3 E6 12 F5 ld dis2,#0f5h ;0
897 05D6 E6 13 F5 ld dis3,#0f5h ;0
898 05D9 AF ret
899 05DA disw350
900 05DA E6 11 6D ld dis1,#6dh ;3
901 05DD E6 12 CD ld dis2,#0cdh ;5
902 05E0 E6 13 F5 ld dis3,#0f5h ;0
903 05E3 AF ret
904 05E4 disw400
905 05E4 E6 11 AC ld dis1,#0ach ;4
906 05E7 E6 12 F5 ld dis2,#0f5h ;0
907 05EA E6 13 F5 ld dis3,#0f5h ;0
908 05ED AF ret
909
910 ;----------------------
911 05EE numbcon:
912
913 05EE B0 C2 clr r2
914 05F0 B0 C3 clr r3
915 05F2 B0 C4 clr r4
916 05F4 B0 C5 clr r5
917 05F6 B0 C6 clr r6
918 ; clr r7
919 05F8 dsw1:
920 05F8 A6 C7 64 cp r7,#100
921 05FB 7B 06 jr ult,dsw2
922 05FD 26 C7 64 sub r7,#100
923 0600 3E inc r3
924 0601 8B F5 jr dsw1
925 0603 dsw2:
926 0603 A6 C7 0A cp r7,#10
927 0606 7B 06 jr ult,dsw3
928 0608 26 C7 0A sub r7,#10
929 060B 5E inc r5
930 060C 8B F5 jr dsw2
931 060E dsw3:
932 060E A7 02 BF 01 ldc r0,#numc[rr2]
933 ; cp r0,#77h
934 ; jr ne,dsw3a
935 ; ld dis1,#0
936 ; jr dsw3b
937 0612 dsw3a:
938 0612 09 11 ld dis1,r0
939 0614 dsw3b:
940 0614 A7 04 BF 01 ldc r0,#numc[rr4]
941 ; cp r0,#77h
942 ; jr eq,dsw3d
943 0618 dsw3c:
944 0618 09 12 ld dis2,r0 ;2,r0
945 061A 8B 08 jr dsw4a
946 061C dsw3d:
947 061C A6 11 00 cp dis1,#0
948 061F EB F7 jr ne,dsw3c
949 0621 E6 12 00 ld dis2,#0
950 0624 dsw4a:
951 0624 A7 06 BF 01 ldc r0,#numc[rr6]
952 0628 09 13 ld dis3,r0 ;3,r0
953 062A AF ret
954 ;---------------------
955 062B ledset:
956 062B 76 03 04 tm status,#f_heats
957 062E EB 09 jr nz,ledflash
958 0630 76 03 08 tm status,#f_holds
959 0633 EB 09 jr nz,ledhigh
960 0635 ledlow
961 0635 56 2C FE and ledflag,#fn_led2
962 0638 AF ret
963 0639 ledflash
964 0639 76 01 01 tm flag,#f_flash
965 063C EB F7 jr nz,ledlow
966 063E ledhigh
967 063E 46 2C 01 or ledflag,#f_led2
968 0641 AF ret
969 ;************************************************
970
971 ; display p0
972
973 ;************************************************
974 0642 display:
975 ; jr display1
976 0642 A6 10 00 cp disp,#0
977 0645 6B 12 jr eq,display1
978 0647 A6 10 01 cp disp,#1
979 064A 6B 23 jr eq,display2
980 064C A6 10 02 cp disp,#2
981 064F 6B 34 jr eq,display3
982 0651 A6 10 03 cp disp,#3
983 0654 6B 45 jr eq,display4
984 ; cp disp,#4
985 ; jr eq,display5
986 0656 B0 10 clr disp
987 0658 AF ret
988 0659 display1:
989 0659 20 10 inc disp
990 ; or p0,#00010000b
991 ; or p2,#00110000b
992 065B 56 E0 DF and p0,#11011111b ;p0.5--led2
993 065E 56 E2 EF and p2,#11101111b ;p24-dig3
994 0661 08 11 ld r0,dis1
995 0663 F6 06 C0 call disport
996 0666 76 2F 01 tm dispt,#00000001b
997 0669 6B 03 jr z,display1end
998 066B 46 E2 02 or p2,#00000010b
999 066E display1end
1000 ; and p2,#11101111b ;p24-dig3
1001 066E AF ret
1002 066F display2:
1003 066F 20 10 inc disp
1004 ; or p0,#00010000b
1005 ; or p2,#00110000b
1006 0671 56 E2 DF and p2,#11011111b ;p25-dig2
1007 0674 46 E2 10 or p2,#00010000b
1008 0677 08 12 ld r0,dis2
1009 0679 F6 06 C0 call disport
1010 067C 76 2F 02 tm dispt,#00000010b
1011 067F 6B 03 jr z,display2end
1012 0681 46 E2 02 or p2,#00000010b
1013 0684 display2end
1014 ; and p2,#11011111b ;p25-dig2
1015 ; or p2,#00010000b
1016 0684 AF ret
1017 0685 display3:
1018 0685 20 10 inc disp
1019
1020 ; or p0,#00010000b
1021 ; or p2,#00110000b
1022 0687 56 E0 EF and p0,#11101111b ;p04-dig1
1023 068A 46 E2 20 or p2,#00100000b
1024 068D 08 13 ld r0,dis3
1025 068F F6 06 C0 call disport
1026 0692 76 2F 04 tm dispt,#00000100b
1027 0695 6B 03 jr z,display3end
1028 0697 46 E2 02 or p2,#00000010b
1029 069A display3end
1030 ; and p0,#11101111b ;p04-dig1
1031 ;or p2,#00100000b
1032 069A AF ret
1033 069B display4:
1034 ;inc disp
1035 069B B0 10 clr disp
1036 069D 56 E0 DF and p0,#11011111b ;p0.5--led2
1037 06A0 56 E2 DF and p2,#11011111b ;p2.6--led1 power
1038 06A3 46 E0 10 or p0,#00010000b
1039 06A6 46 E2 30 or p2,#00110000b
1040 06A9 76 03 10 tm status,#f_run
1041 06AC 6B 0B jr z,display4a
1042 06AE 46 E2 40 or p2,#01000000b ;p2.6--led1 power
1043 ; and p0,#11011111b ;p0.5--led2
1044 06B1 76 2C 01 tm ledflag,#f_led2
1045 06B4 6B 03 jr z,display4a
1046 06B6 46 E0 20 or p0,#00100000b
1047 06B9 display4a
1048 06B9 F6 06 E4 call key_scan
1049 06BC AF ret
1050 06BD display5:
1051 06BD B0 10 clr disp
1052 ; call key_scan
1053 06BF AF ret
1054 ;-------------------
1055 ;dis F A B E G C Dp D
1056 ;P2 * A * * G C Dp D
1057 ;P0 F * B * * * * *
1058 ;P1 E
1059 06C0 disport
1060 06C0 56 E2 B0 and p2,#10110000b
1061 06C3 56 E0 5F and p0,#01011111b
1062 06C6 56 E1 FE and p1,#11111110b
1063 06C9 18 C0 ld r1,r0
1064 06CB 56 C1 4F and r1,#01001111b
1065 06CE 44 C1 E2 or p2,r1
1066 06D1 18 C0 ld r1,r0
1067 06D3 56 C1 A0 and r1,#10100000b
1068 06D6 44 C1 E0 or p0,r1
1069 06D9 76 C0 10 tm r0,#00010000b
1070 06DC EB 02 jr nz,disport1
1071 06DE 8B 03 jr disport2
1072 ;ret
1073 06E0 disport1
1074 06E0 46 E1 01 or p1,#00000001b
1075 06E3 disport2
1076 ; tm ledflag,#f_lock
1077 ; jr z,dislock
1078 ; or p2,#00000010b
1079 06E3 dislock
1080 06E3 AF ret
1081
1082 ;************************************************
1083 ; key scan control
1084 ;************************************************
1085 06E4 key_scan:
1086 ; or p0,#11110000b
1087 ; ld p2,#0
1088 ; and p0,#11101111b
1089 06E4 E6 EB A0 ld P2CONL,#10100000b ;key input
1090 ; ld P2CONL,#10101010b ;bit3,2,1,0 ---10:out; 00:in
1091 ;ld P1CON,#10001110b ;p1.0--out11001010b ;use ext osc p1.0,p1.1:onput
1092 06E7 E6 E9 CD ld P1CON,#11001101b ;p1.1--in
1093
1094 06EA FF nop
1095 06EB FF nop
1096 ; nop
1097 06EC E4 E2 21 ld keynum,p2
1098 06EF 76 E1 01 tm p1,#00000001b
1099 06F2 EB 05 jr nz,sw3set
1100 06F4 56 21 FB and keynum,#11111011b
1101 06F7 8B 03 ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -