📄 wnl.lst
字号:
1052 021D 0003 ret
1053 021E ;;---------------------------------------------------------------
1054 021E ;;SCAN COMMON 2
1055 021E led_com2:
1056 021E 1785 sdz acc
1057 021F 2800 R jmp led_com3 ;; com2
1058 0220 1100 R swapa r_nummonth ;;SHOW THE HIGH CHARACTER OF MONTH
1059 0221 2000 R call sub_getdisnumb
1060 0222 0080 R MOV temp1,a
1061 0223 0F0B MOV A,0BH
1062 0224 0400 R XOR A,r_nummonth
1063 0225 3D0A SZ Z
1064 0226 2800 R JMP L_SETALARM
1065 0227 0700 R MOV A,temp1
1066 0228 0CC0 XOR A,0C0H
1067 0229 3D0A SZ Z
1068 022A 2800 R JMP L_SOLARMONTHEQU0
1069 022B L_SETALARM:
1070 022B 0700 R MOV A,temp1
1071 022C 2800 R JMP L_SHOWSOLARMONTH
1072 022D L_SOLARMONTHEQU0:
1073 022D 0FFF MOV A,0FFH
1074 022E L_SHOWSOLARMONTH:
1075 022E 3C00 R sz bitnum2.2
1076 022F 3785 clr acc.7
1077 0230 0096 mov pc,a
1078 0231
1079 0231 1100 R swapa r_nummin
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 19
1080 0232 2000 R call sub_getdisnumb ;;SHOW THE HIGH CHARACTER OF MINUTE
1081 0233 0080 R MOV temp1,a
1082 0234 0CC0 XOR A,0C0H
1083 0235 3D0A SZ Z
1084 0236 2800 R JMP L_MINUTEEQU0
1085 0237 0700 R MOV A,temp1
1086 0238 2800 R JMP L_SHOWMINUTE
1087 0239 L_MINUTEEQU0:
1088 0239 0FFF MOV A,0FFH
1089 023A L_SHOWMINUTE:
1090 023A 3C00 R sz bitnum1.2
1091 023B 3785 clr acc.7
1092 023C 0098 mov pd,a
1093 023D
1094 023D 1100 R swapa r_numnlmonth ;;SHOW THE HIGH CHARACTER OF LUNAR CALENDAR MONTH
1095 023E 2000 R call sub_getdisnumb
1096 023F 0080 R MOV temp1,a
1097 0240 0CC0 XOR A,0C0H
1098 0241 3D0A SZ Z
1099 0242 2800 R JMP L_LUNARMONTHEQU0
1100 0243 0700 R MOV A,temp1
1101 0244 2800 R JMP L_SHOWLUNARMONTH
1102 0245 L_LUNARMONTHEQU0:
1103 0245 0FFF MOV A,0FFH
1104 0246 L_SHOWLUNARMONTH:
1105 0246 3C00 R sz bitnum3.2
1106 0247 3785 clr acc.7
1107 0248 009A mov pe,a
1108 0249 2800 R jmp $+1
1109 024A 2800 R jmp $+1
1110 024B 2800 R jmp $+1
1111 024C
1112 024C 3512 clr pcom2
1113 024D 0003 ret
1114 024E ;;---------------------------------------------------------------
1115 024E ;;SCAN COMMON 3
1116 024E led_com3:
1117 024E 1785 sdz acc
1118 024F 2800 R jmp led_com4 ;; com3
1119 0250
1120 0250 0700 R mov a,r_nummonth
1121 0251 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF MONTH
1122 0252 3C00 R sz bitnum2.3
1123 0253 3785 clr acc.7
1124 0254 0096 mov pc,a
1125 0255
1126 0255 0700 R mov a,r_nummin
1127 0256 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF MINUTE
1128 0257 3C00 R sz bitnum1.3
1129 0258 3785 clr acc.7
1130 0259 0098 mov pd,a
1131 025A
1132 025A
1133 025A 0700 R mov a,r_numnlmonth ;;SHOW THE LOW CHARACTER OF LUNAR CALENDAR MONTH
1134 025B 2000 R call sub_getdisnumb
1135 025C 3C00 R sz bitnum3.3
1136 025D 3785 clr acc.7
1137 025E 009A mov pe,a
1138 025F 2800 R jmp $+1
1139 0260 2800 R jmp $+1
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 20
1140 0261 2800 R jmp $+1
1141 0262
1142 0262 3592 clr pcom3
1143 0263 0003 ret
1144 0264 ;;---------------------------------------------------------------
1145 0264 ;;SCAN COMMON 4
1146 0264 led_com4:
1147 0264 1785 sdz acc
1148 0265 2800 R jmp led_com5 ;; com4
1149 0266
1150 0266 1100 R swapa r_numdate
1151 0267 2000 R call sub_getdisnumb ;;SHOW THE HIGH CHARACTER OF DATE
1152 0268 0080 R MOV temp1,a
1153 0269 0CC0 XOR A,0C0H
1154 026A 3D0A SZ Z
1155 026B 2800 R JMP L_DATEEQU0
1156 026C 0700 R MOV A,temp1
1157 026D 2800 R JMP L_SHOWDATE
1158 026E L_DATEEQU0:
1159 026E 0FFF MOV A,0FFH
1160 026F L_SHOWDATE:
1161 026F 3C00 R sz bitnum2.4
1162 0270 3785 clr acc.7
1163 0271 0096 mov pc,a
1164 0272
1165 0272 1100 R swapa r_numsec
1166 0273 2000 R call sub_getdisnumb ;;SHOW THE HIGH CHARACTER OF SECOND
1167 0274 3C00 R sz bitnum1.4
1168 0275 3785 clr acc.7
1169 0276 0098 mov pd,a
1170 0277
1171 0277 1100 R swapa r_numnldate
1172 0278 2000 R call sub_getdisnumb ;SHOW THE HIGH CHARACTER OF LUNAR CLENDAR DATE
1173 0279 0080 R MOV temp1,a
1174 027A 0CC0 XOR A,0C0H
1175 027B 3D0A SZ Z
1176 027C 2800 R JMP L_LUNARDATEEQU0
1177 027D 0700 R MOV A,temp1
1178 027E 2800 R JMP L_SHOWLUNARDATE
1179 027F L_LUNARDATEEQU0:
1180 027F 0FFF MOV A,0FFH
1181 0280 L_SHOWLUNARDATE:
1182 0280 3C00 R sz bitnum3.4
1183 0281 3785 clr acc.7
1184 0282 009A mov pe,a
1185 0283 2800 R jmp $+1
1186 0284 2800 R jmp $+1
1187 0285 2800 R jmp $+1
1188 0286 3612 clr pcom4
1189 0287 0003 ret
1190 0288 ;;---------------------------------------------------------------
1191 0288 ;;SCAN COMMON 5
1192 0288 led_com5:
1193 0288 1785 sdz acc
1194 0289 2800 R jmp led_com6 ;; com5 = pc1
1195 028A
1196 028A 0700 R mov a,r_numdate
1197 028B 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF DATE
1198 028C 3C00 R sz bitnum2.5
1199 028D 3785 clr acc.7
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 21
1200 028E 0096 mov pc,a
1201 028F
1202 028F 0700 R mov a,r_numsec
1203 0290 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF SECOND
1204 0291 3C00 R sz bitnum1.5
1205 0292 3785 clr acc.7
1206 0293 0098 mov pd,a
1207 0294
1208 0294 0700 R mov a,r_numnldate
1209 0295 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF LUNAR CALENDAR
1210 0296 3C00 R sz bitnum3.5
1211 0297 3785 clr acc.7
1212 0298 009A mov pe,a
1213 0299 2800 R jmp $+1
1214 029A 2800 R jmp $+1
1215 029B 2800 R jmp $+1
1216 029C 3694 clr pcom5
1217 029D 0003 ret
1218 029E ;;---------------------------------------------------------------
1219 029E ;;SCAN COMMON 6
1220 029E led_com6:
1221 029E 1785 sdz acc
1222 029F 2800 R jmp led_com8 ;; com6
1223 02A0 0700 R mov a,r_numweek
1224 02A1 2000 R call sub_getdisnumb ;;SHOW THE CHARACTER OF WEEK
1225 02A2 3C00 R sz bitnum2.6
1226 02A3 3785 clr acc.7
1227 02A4 0096 mov pc,a
1228 02A5
1229 02A5 0700 R mov a,bitnum4
1230 02A6 0CFF xor a,0ffh
1231 02A7 1080 R sz r_setalm
1232 02A8 3185 set acc.3
1233 02A9 3C00 R sz bitnum1.6
1234 02AA 3785 clr acc.7
1235 02AB 0098 mov pd,a
1236 02AC 0700 R mov a,r_numremain
1237 02AD 2000 R call sub_getdisnumb ;;SHOW THE LOW CHARACTER OF JIEQI TIMES
1238 02AE
1239 02AE 3C00 R sz bitnum3.6
1240 02AF 3785 clr acc.7
1241 02B0 009A mov pe,a
1242 02B1 2800 R jmp $+1
1243 02B2 2800 R jmp $+1
1244 02B3 2800 R jmp $+1
1245 02B4 3714 clr pcom6
1246 02B5
1247 02B5 0003 ret
1248 02B6 ;;---------------------------------------------------------------
1249 02B6 ;;SCAN COMMON 7
1250 02B6 led_com8:
1251 02B6 1785 sdz acc
1252 02B7 2800 R jmp led_com9 ;; com7
1253 02B8 1100 R swapa r_numremain
1254 02B9 2000 R call sub_getdisnumb ;;SHOW THE HIGH CHARACTER OF JIEQI TIMES
1255 02BA 0080 R MOV temp1,a
1256 02BB 0CC0 XOR A,0C0H
1257 02BC 3D0A SZ Z
1258 02BD 2800 R JMP L_SOLARTERMEQU0
1259 02BE 0700 R MOV A,temp1
"File: WNL.ASM Holtek Cross-Assembler Version 2.86 Page 22
1260 02BF 2800 R JMP L_SHOWSOLARTERM
1261 02C0 L_SOLARTERMEQU0:
1262 02C0 0FFF MOV A,0FFH
1263 02C1 L_SHOWSOLARTERM:
1264 02C1 3C00 R sz bitnum2.7
1265 02C2 3785 clr acc.7
1266 02C3 0096 mov pc,a
1267 02C4
1268 02C4 0FFF mov a,0ffh
1269 02C5 3C00 R sz bitnum1.7
1270 02C6 3785 clr acc.7
1271 02C7 0098 mov pd,a
1272 02C8
1273 02C8 1F85 set acc
1274 02C9 3C00 R sz bitnum3.7
1275 02CA 3785 clr acc.7
1276 02CB 009A mov pe,a
1277 02CC 2800 R jmp $+1
1278 02CD 2800 R jmp $+1
1279 02CE 2800 R jmp $+1
1280 02CF
1281 02CF 3794 clr pcom7
1282 02D0 0003 ret
1283 02D1
1284 02D1 ;;---------------------------------------------------------------
1285 02D1 led_com9:
1286 02D1 1785 sdz acc
1287 02D2 2800 R jmp led_com10
1288 02D3 2800 R jmp sub_keyscan
1289 02D4 led_com10:
1290 02D4 2800 R jmp sub_temper
1291 02D5 0003 ret
1292 02D6 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1293 02D6 sub_checkzhengdian:
1294 02D6 3800 R snz fonehour ;;FONEHOUR EQU FLAG3.4
1295 02D7 0003 ret
1296 02D8 3400 R clr fonehour
1297 02D9 3800 R snz zhengdian ;;JUDGE IF THERE IS INT ALARM FUNCTION
1298 02DA 0003 ret ;;NO ALARM FUNCTION
1299 02DB 0700 R mov a,hour
1300 02DC 0A08 sub a,8
1301 02DD 380A snz c ;;JUDGE THE CURRENT HOUR IF IS BIGGER THAN 8 O'CLOCK
1302 02DE 0003 ret ;;THE CURRENT HOUR IS LESS THAN 8 O'CLOCK
1303 02DF 0700 R mov a,hour
1304 02E0 0A14 sub a,20
1305 02E1 3C0A sz c ;;JUDGE THE CURRENT HOUR IF IS LESS THAN 20 O'CLOCK
1306 02E2 0003 ret ;;THE CURRENT HOUR IS BIGGER THAN 20 O'CLOCK
1307 02E3 0FF8 MOV A,0F8H
1308 02E4 0080 R MOV R_MUSICNUM,A
1309 02E5 0700 R MOV A,hour
1310 02E6 0380 R ADDM A,R_MUSICNUM
1311 02E7 ; set pbuzzer ;;TURN ON BUZZER
1312 02E7 3400 R clr b_f250ms2
1313 02E8 0700 R M⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -