📄 wnlbak.lst
字号:
1202 0249 3714 clr pcom6
1203 024A
1204 024A 0003 ret
1205 024B
1206 024B
1207 024B
1208 024B
1209 024B
1210 024B led_com8:
1211 024B 1785 sdz acc
1212 024C 2800 R jmp led_com9 ;; com7
1213 024D ;sz r_setalm
1214 024D ;ret
1215 024D ;mov a,0a4h
1216 024D 1100 R swapa r_numremain
1217 024E 2000 R call sub_getdisnumb
1218 024F 3C00 R sz bitnum2.7
1219 0250 3785 clr acc.7
1220 0251 0096 mov pc,a
1221 0252
1222 0252 0FFF mov a,0ffh
1223 0253 3C00 R sz bitnum1.7
1224 0254 3785 clr acc.7
1225 0255
1226 0255 0098 mov pd,a
1227 0256
1228 0256
1229 0256 1F85 set acc
1230 0257 3C00 R sz bitnum3.7
1231 0258 3785 clr acc.7
1232 0259 009A mov pe,a
1233 025A 2800 R jmp $+1
1234 025B 2800 R jmp $+1
1235 025C 2800 R jmp $+1
1236 025D
1237 025D 3794 clr pcom7
1238 025E
1239 025E
1240 025E 0003 ret
1241 025F
1242 025F
1243 025F led_com9:
1244 025F 1785 sdz acc
1245 0260 2800 R jmp led_com10
1246 0261 2800 R jmp sub_keyscan
1247 0262 led_com10:
1248 0262 2800 R jmp sub_temper
1249 0263 0003 ret
1250 0264
1251 0264
1252 0264
1253 0264
1254 0264
1255 0264
1256 0264
1257 0264
1258 0264
1259 0264
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 22
1260 0264
1261 0264 ;;**********************************************************
1262 0264 sub_checkzhengdian:
1263 0264 3800 R snz fonehour
1264 0265 0003 ret
1265 0266 3400 R clr fonehour
1266 0267 3800 R snz zhengdian
1267 0268 0003 ret
1268 0269 0700 R mov a,hour
1269 026A 0A08 sub a,8
1270 026B 380A snz c
1271 026C 0003 ret
1272 026D 0700 R mov a,hour
1273 026E 0A15 sub a,21
1274 026F 3C0A sz c
1275 0270 0003 ret
1276 0271 3000 R set zhengdianflag
1277 0272 3014 set pbuzzer
1278 0273 3400 R clr b_f250ms2
1279 0274 1F00 R clr zhengdiantime
1280 0275 2800 R jmp checkalm_on
1281 0276
1282 0276 ;;***********************************************
1283 0276
1284 0276 sub_checkalm:
1285 0276 3800 R snz fonemin
1286 0277 0003 ret
1287 0278 3400 R clr fonemin
1288 0279 3C00 R sz r_almflag.0
1289 027A 2800 R jmp checkalm_alm1
1290 027B checkalm_2:
1291 027B 3C00 R sz r_almflag.1
1292 027C 2800 R jmp checkalm_alm2
1293 027D checkalm_3:
1294 027D ; sz r_almflag.2
1295 027D ; jmp checkalm_alm3
1296 027D checkalm_4:
1297 027D ; snz r_almflag.3
1298 027D 0003 ret
1299 027E
1300 027E checkalm_alm4:
1301 027E
1302 027E ; mov a,hour
1303 027E ; xor a,r_almhour4
1304 027E ; sz acc
1305 027E ; ret
1306 027E ; mov a,min
1307 027E ; xor a,r_almmin4
1308 027E ; sz acc
1309 027E ; ret
1310 027E checkalm_on1:
1311 027E 3000 R set b_buzzer
1312 027F checkalm_on:
1313 027F 1F00 R clr buzzertime
1314 0280 3400 R clr buzzerflash
1315 0281 3400 R clr b_f125ms
1316 0282 2800 R jmp buzzer_on
1317 0283 checkalm_alm1:
1318 0283 0700 R mov a,hour
1319 0284 0400 R xor a,r_almhour1
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 23
1320 0285 1085 sz acc
1321 0286 2800 R jmp checkalm_2
1322 0287 0700 R mov a,min
1323 0288 0400 R xor a,r_almmin1
1324 0289 1085 sz acc
1325 028A 2800 R jmp checkalm_2
1326 028B 2800 R jmp checkalm_on1
1327 028C
1328 028C checkalm_alm2:
1329 028C 0700 R mov a,hour
1330 028D 0400 R xor a,r_almhour2
1331 028E 1085 sz acc
1332 028F 2800 R jmp checkalm_3
1333 0290 0700 R mov a,min
1334 0291 0400 R xor a,r_almmin2
1335 0292 1085 sz acc
1336 0293 2800 R jmp checkalm_3
1337 0294 2800 R jmp checkalm_on1
1338 0295 checkalm_alm3:
1339 0295 ; mov a,hour
1340 0295 ; xor a,r_almhour3
1341 0295 ; sz acc
1342 0295 ; jmp checkalm_4
1343 0295 ; mov a,min
1344 0295 ; xor a,r_almmin3
1345 0295 ; sz acc
1346 0295 ; jmp checkalm_4
1347 0295 ; jmp checkalm_on1
1348 0295
1349 0295
1350 0295
1351 0295
1352 0295 ;;*************************************************
1353 0295
1354 0295
1355 0295
1356 0295
1357 0295 sub_keyscan:
1358 0295
1359 0295
1360 0295 0712 mov a,pa
1361 0296 0EE0 and a,0e0h
1362 0297 0AE0 sub a,0e0h
1363 0298 1085 sz acc
1364 0299 2800 R jmp keyscan_1
1365 029A keyscan_0:
1366 029A 1F00 R clr r_debouncenum
1367 029B 1F00 R clr keycode
1368 029C 3400 R clr downfast
1369 029D 3400 R clr upfast
1370 029E 1F00 R clr upnum
1371 029F 3400 R clr downfast
1372 02A0 1F00 R clr downnum
1373 02A1 3400 R clr b_debounce
1374 02A2 0003 ret
1375 02A3 keyscan_1:
1376 02A3 3C00 R sz b_debounce
1377 02A4 2800 R jmp keyscan_2
1378 02A5 3000 R set b_debounce
1379 02A6 0003 ret
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 24
1380 02A7
1381 02A7
1382 02A7 keyscan_2:
1383 02A7 3B92 snz pset
1384 02A8 2800 R jmp keyscan_set
1385 02A9 1F00 R clr r_debouncenum
1386 02AA 3A92 snz pdown
1387 02AB 2800 R jmp keyscan_down
1388 02AC 3B12 snz pup
1389 02AD 2800 R jmp keyscan_up
1390 02AE 2800 R jmp keyscan_0
1391 02AF
1392 02AF
1393 02AF keyscan_set:
1394 02AF 3C00 R sz ksetdn
1395 02B0 2800 R jmp keyscan_ksetdn
1396 02B1 1080 R sz keycode
1397 02B2 0003 ret
1398 02B3 3000 R set kset
1399 02B4 3000 R set newkey
1400 02B5 0003 ret
1401 02B6 keyscan_ksetdn:
1402 02B6
1403 02B6 3800 R snz b_f125ms1
1404 02B7 0003 ret
1405 02B8 3400 R clr b_f125ms1
1406 02B9 1480 R inc r_debouncenum
1407 02BA 3800 R snz r_debouncenum.4
1408 02BB 0003 ret
1409 02BC 1F00 R clr r_debouncenum
1410 02BD 3000 R set kconfirm
1411 02BE 3000 R set newkey
1412 02BF 0003 ret
1413 02C0
1414 02C0
1415 02C0 keyscan_down:
1416 02C0 3C00 R sz kdowndn
1417 02C1 2800 R jmp keyscan_downdn
1418 02C2 1080 R sz keycode
1419 02C3 0003 ret
1420 02C4 3000 R set kdown
1421 02C5 3000 R set newkey
1422 02C6 0003 ret
1423 02C7
1424 02C7 keyscan_downdn:
1425 02C7 1080 R sz set_flag
1426 02C8 2800 R jmp keyscan_downdn_0 ;;set time mode
1427 02C9
1428 02C9 3C00 R sz r_setalm.1
1429 02CA 2800 R jmp keyscan_downdn_0 ;; set alm hour
1430 02CB 3800 R snz r_setalm.2
1431 02CC 0003 ret
1432 02CD keyscan_downdn_0:
1433 02CD
1434 02CD 3800 R snz b_f125ms1
1435 02CE 0003 ret
1436 02CF 3400 R clr b_f125ms1
1437 02D0 3C00 R sz downfast
1438 02D1 2800 R jmp keyscan_downdn_1
1439 02D2
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.86 Page 25
1440 02D2 1480 R inc downnum
1441 02D3 3800 R snz downnum.4
1442 02D4 0003 ret
1443 02D5 3000 R set downfast
1444 02D6 keyscan_downdn_1:
1445 02D6 1F00 R clr downnum
1446 02D7 3400 R clr kdowndn
1447 02D8 3000 R set kdown
1448 02D9 3000 R set newkey
1449 02DA 0003 ret
1450 02DB
1451 02DB
1452 02DB
1453 02DB
1454 02DB keyscan_up:
1455 02DB 3C00 R sz kupdn
1456 02DC 2800 R jmp keyscan_updn
1457 02DD 1080 R sz keycode
1458 02DE 0003 ret
1459 02DF 3000 R set kup
1460 02E0 3000 R set newkey
1461 02E1 0003 ret
1462 02E2
1463 02E2 keyscan_updn:
1464 02E2 1080 R sz set_flag
1465 02E3 2800 R jmp keyscan_updn_0 ;;set time mode
1466 02E4
1467 02E4 3C00 R sz r_setalm.1
1468 02E5 2800 R jmp keyscan_updn_0 ;; set alm hour
1469 02E6 3800 R snz r_setalm.2
1470 02E7 0003 ret
1471 02E8 keyscan_updn_0:
1472 02E8 3800 R snz b_f125ms1
1473 02E9 0003 ret
1474 02EA 3400 R clr b_f125ms1
1475 02EB 3C00 R sz upfast
1476 02EC 2800 R jmp keyscan_updn_1
1477 02ED
1478 02ED 1480 R inc upnum
1479 02EE 3800 R snz upnum.4
1480 02EF 0003 ret
1481 02F0 3000 R set upfast
1482 02F1 keyscan_updn_1:
1483 02F1 1F00 R clr upnum
1484 02F2 3400 R clr kupdn
1485 02F3 3000 R set kup
1486 02F4 3000 R set newkey
1487 02F5 0003 ret
1488 02F6
1489 02F6
1490 02F6
1491 02F6
1492 02F6
1493 02F6
1494 02F6 ;;*****************************************************************8
1495 02F6 sub_dealkey:
1496 02F6 3800 R snz newkey
1497 02F7 0003 ret
1498 02F8 3400 R clr newkey
1499 02F9
"File: WNLBAK.ASM Holtek Cross-Assembler Version 2.8⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -