📄 wnlbak.lst
字号:
901 0198 0080 R mov r_nummonth,a
902 0199
903 0199
904 0199 main_alarm_flash_2:
905 0199 0003 ret
906 019A
907 019A
908 019A ;;-----------------------------------------------
909 019A sub_led:
910 019A
911 019A sub_led_1:
912 019A ;mov a,0ffh
913 019A ;mov pb,a
914 019A 0FFF mov a,0ffh
915 019B 0092 mov pa,a
916 019C 3294 set pcom5
917 019D 3314 set pcom6
918 019E 3394 set pcom7
919 019F
920 019F 0096 mov pc,a
921 01A0 0098 mov pd,a
922 01A1 009A mov pe,a
923 01A2 2800 R jmp $+1
924 01A3 2800 R jmp $+1
925 01A4 2800 R jmp $+1
926 01A5 2800 R jmp $+1
927 01A6 2800 R jmp $+1
928 01A7 2800 R jmp $+1
929 01A8
930 01A8
931 01A8
932 01A8
933 01A8 1480 R inc R_comnum
934 01A9 0700 R mov a,R_comnum
935 01AA 0A0C sub a,12
936 01AB 380A snz c
937 01AC 2800 R jmp led_com0
938 01AD 1F00 R clr R_comnum
939 01AE led_com0:
940 01AE 0700 R mov a,R_comnum
941 01AF 1785 sdz acc
942 01B0 2800 R jmp led_com1 ;; com0
943 01B1
944 01B1 1100 R swapa r_numyear ;;显示年的高位。
945 01B2 2000 R call sub_getdisnumb
946 01B3 ; mov r_pcbuf,a
947 01B3 3C00 R sz bitnum2.0
948 01B4 3785 clr acc.7
949 01B5 0096 mov pc,a
950 01B6
951 01B6
952 01B6
953 01B6
954 01B6 1100 R swapa r_numhour
955 01B7 2000 R call sub_getdisnumb ;;小时的高位。
956 01B8 ;mov r_pdbuf,a
957 01B8 3C00 R sz bitnum1.0
958 01B9 3785 clr acc.7
959 01BA 0098 mov pd,a
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 17
960 01BB
961 01BB
962 01BB
963 01BB 1100 R swapa r_numtemp ;;温度高位
964 01BC 2000 R call sub_getdisnumb
965 01BD
966 01BD 3C00 R sz bitnum3.0
967 01BE 3785 clr acc.7
968 01BF
969 01BF 009A mov pe,a
970 01C0
971 01C0
972 01C0
973 01C0
974 01C0
975 01C0
976 01C0 led_com_0:
977 01C0 2800 R jmp $+1
978 01C1 2800 R jmp $+1
979 01C2 2800 R jmp $+1
980 01C3
981 01C3 3412 clr pcom0
982 01C4 0003 ret
983 01C5
984 01C5 led_com1:
985 01C5 1785 sdz acc
986 01C6 2800 R jmp led_com2 ;; com1
987 01C7
988 01C7 0700 R mov a,r_numyear
989 01C8 2000 R call sub_getdisnumb ;;年的低位。
990 01C9
991 01C9 ;mov r_pcbuf,a
992 01C9 3C00 R sz bitnum2.1
993 01CA 3785 clr acc.7
994 01CB 0096 mov pc,a
995 01CC
996 01CC
997 01CC 0700 R mov a,r_numhour
998 01CD 2000 R call sub_getdisnumb ;;小时低位。
999 01CE ;mov r_pdbuf,a
1000 01CE 3C00 R sz bitnum1.1
1001 01CF 3785 clr acc.7
1002 01D0
1003 01D0 0098 mov pd,a
1004 01D1
1005 01D1
1006 01D1 0700 R mov a,r_numtemp
1007 01D2 2000 R call sub_getdisnumb ;;温度低位
1008 01D3 3C00 R sz bitnum3.1
1009 01D4 3785 clr acc.7
1010 01D5
1011 01D5 009A mov pe,a
1012 01D6 2800 R jmp $+1
1013 01D7 2800 R jmp $+1
1014 01D8 2800 R jmp $+1
1015 01D9
1016 01D9 3492 clr pcom1
1017 01DA 0003 ret
1018 01DB
1019 01DB
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 18
1020 01DB
1021 01DB led_com2:
1022 01DB 1785 sdz acc
1023 01DC 2800 R jmp led_com3 ;; com2
1024 01DD 1100 R swapa r_nummonth ;;月高位。
1025 01DE 2000 R call sub_getdisnumb
1026 01DF ; mov r_pcbuf,a
1027 01DF 3C00 R sz bitnum2.2
1028 01E0 3785 clr acc.7
1029 01E1
1030 01E1 0096 mov pc,a
1031 01E2
1032 01E2 1100 R swapa r_nummin
1033 01E3 2000 R call sub_getdisnumb ;;分钟高位
1034 01E4 3C00 R sz bitnum1.2
1035 01E5 3785 clr acc.7
1036 01E6 ;mov r_pdbuf,a
1037 01E6 0098 mov pd,a
1038 01E7
1039 01E7 1100 R swapa r_numnlmonth ;;农历的月高位
1040 01E8 2000 R call sub_getdisnumb
1041 01E9
1042 01E9 3C00 R sz bitnum3.2
1043 01EA 3785 clr acc.7
1044 01EB ;mov r_pebuf,a
1045 01EB 009A mov pe,a
1046 01EC 2800 R jmp $+1
1047 01ED 2800 R jmp $+1
1048 01EE 2800 R jmp $+1
1049 01EF
1050 01EF 3512 clr pcom2
1051 01F0 0003 ret
1052 01F1
1053 01F1
1054 01F1
1055 01F1
1056 01F1
1057 01F1
1058 01F1
1059 01F1 led_com3:
1060 01F1 1785 sdz acc
1061 01F2 2800 R jmp led_com4 ;; com3
1062 01F3
1063 01F3
1064 01F3 0700 R mov a,r_nummonth
1065 01F4 2000 R call sub_getdisnumb ;;月低位
1066 01F5 ; mov r_pcbuf,a
1067 01F5 3C00 R sz bitnum2.3
1068 01F6 3785 clr acc.7
1069 01F7
1070 01F7 0096 mov pc,a
1071 01F8
1072 01F8
1073 01F8 0700 R mov a,r_nummin
1074 01F9 2000 R call sub_getdisnumb ;;分钟低位
1075 01FA 3C00 R sz bitnum1.3
1076 01FB 3785 clr acc.7
1077 01FC ;mov r_pdbuf,a
1078 01FC 0098 mov pd,a
1079 01FD
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 19
1080 01FD
1081 01FD 0700 R mov a,r_numnlmonth
1082 01FE 2000 R call sub_getdisnumb
1083 01FF
1084 01FF 3C00 R sz bitnum3.3
1085 0200 3785 clr acc.7
1086 0201 009A mov pe,a
1087 0202 2800 R jmp $+1
1088 0203 2800 R jmp $+1
1089 0204 2800 R jmp $+1
1090 0205
1091 0205 3592 clr pcom3
1092 0206 0003 ret
1093 0207
1094 0207 led_com4:
1095 0207 1785 sdz acc
1096 0208 2800 R jmp led_com5 ;; com4
1097 0209
1098 0209 1100 R swapa r_numdate
1099 020A 2000 R call sub_getdisnumb ;;日期高位。
1100 020B 3C00 R sz bitnum2.4
1101 020C 3785 clr acc.7
1102 020D ; mov r_pcbuf,a
1103 020D 0096 mov pc,a
1104 020E
1105 020E 1100 R swapa r_numsec
1106 020F 2000 R call sub_getdisnumb ;;秒高位
1107 0210 3C00 R sz bitnum1.4
1108 0211 3785 clr acc.7
1109 0212 ; mov r_pdbuf,a
1110 0212 0098 mov pd,a
1111 0213
1112 0213 ; swapa r_numtemp ;;温度高位
1113 0213 ; call sub_getdisnumb
1114 0213 1100 R swapa r_numnldate
1115 0214 2000 R call sub_getdisnumb ;;农历日高位
1116 0215
1117 0215 3C00 R sz bitnum3.4
1118 0216 3785 clr acc.7
1119 0217 009A mov pe,a
1120 0218 2800 R jmp $+1
1121 0219 2800 R jmp $+1
1122 021A
1123 021A 2800 R jmp $+1
1124 021B 3612 clr pcom4
1125 021C 0003 ret
1126 021D
1127 021D
1128 021D
1129 021D
1130 021D
1131 021D
1132 021D led_com5:
1133 021D 1785 sdz acc
1134 021E 2800 R jmp led_com6 ;; com5 = pc1
1135 021F
1136 021F 0700 R mov a,r_numdate
1137 0220 2000 R call sub_getdisnumb ;;日期低位。
1138 0221 3C00 R sz bitnum2.5
1139 0222 3785 clr acc.7
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 20
1140 0223 ;mov r_pcbuf,a
1141 0223 0096 mov pc,a
1142 0224
1143 0224 0700 R mov a,r_numsec
1144 0225 2000 R call sub_getdisnumb ;;秒低位
1145 0226 3C00 R sz bitnum1.5
1146 0227 3785 clr acc.7
1147 0228 ;mov r_pdbuf,a
1148 0228 0098 mov pd,a
1149 0229
1150 0229 ; mov a,r_numtemp
1151 0229 ; call sub_getdisnumb ;;温度低位
1152 0229 0700 R mov a,r_numnldate
1153 022A 2000 R call sub_getdisnumb ;;农历日低位
1154 022B
1155 022B 3C00 R sz bitnum3.5
1156 022C 3785 clr acc.7
1157 022D 009A mov pe,a
1158 022E 2800 R jmp $+1
1159 022F 2800 R jmp $+1
1160 0230
1161 0230 2800 R jmp $+1
1162 0231 3694 clr pcom5
1163 0232 0003 ret
1164 0233
1165 0233
1166 0233
1167 0233
1168 0233
1169 0233 led_com6:
1170 0233 1785 sdz acc
1171 0234 2800 R jmp led_com8 ;; com6
1172 0235 0700 R mov a,r_numweek
1173 0236 2000 R call sub_getdisnumb ;;星期位。
1174 0237 3C00 R sz bitnum2.6
1175 0238 3785 clr acc.7
1176 0239 ;mov r_pcbuf,a
1177 0239 0096 mov pc,a
1178 023A
1179 023A 0700 R mov a,bitnum4
1180 023B 0CFF xor a,0ffh
1181 023C 1080 R sz r_setalm
1182 023D ;jmp $+2
1183 023D 3185 set acc.3
1184 023E
1185 023E 3C00 R sz bitnum1.6
1186 023F 3785 clr acc.7
1187 0240
1188 0240 0098 mov pd,a
1189 0241
1190 0241 0700 R mov a,r_numremain
1191 0242 2000 R call sub_getdisnumb ;;倒计时低位。
1192 0243
1193 0243 ;swapa r_numremain
1194 0243 ;call sub_getdisnumb
1195 0243 3C00 R sz bitnum3.6
1196 0244 3785 clr acc.7
1197 0245 009A mov pe,a
1198 0246 2800 R jmp $+1
1199 0247 2800 R jmp $+1
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 21
1200 0248
1201 0248 2800 R jmp $+1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -