📄 cm-941.lst
字号:
1329 01329 03BA CAB5 CALL Inch_Cm
1330 01330 03BB D4CA JMP SetKeySound
01331 Fat_F_Key_1_1:
1332 01332 03BC 3615 SUBI Mode1, 1
1333 01333 03BD A3C0 JNZ $+3
1334 01334 03BE CAFC CALL Kg_Lb
1335 01335 03BF D4CA JMP SetKeySound
1336 01336 03C0 3625 SUBI Mode1, 2
1337 01337 03C1 A3C3 JNZ $+2
1338 01338 03C2 CB32 CALL Cm_Inch
1339 01339 03C3 D4CA JMP SetKeySound
01340 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
1341
01342 Timer_F_Key:
1343 01343 03C4 5AE8 LDS Keyms, 5
1344 01344 03C5 6C75 LDA Mode1
1345 01345 03C6 B3E0 JZ Timer_F_Key0
1346 01346 03C7 3615 SUBI Mode1, 1
1347 01347 03C8 B3CA JZ Timer_F_Key1
1348 01348 03C9 F400 RTS
01349 Timer_F_Key1:
1350 01350 03CA 5874 LDS MainMode, 0
1351 01351 03CB 6C1A LDA SData1
1352 01352 03CC 2E1B OR SData2
1353 01353 03CD 2E1C OR SData3
1354 01354 03CE 2E1D OR SData4
1355 01355 03CF B3D7 JZ Timer_F_Key1_1
1356
1357 01357 03D0 3F4B ORI* OptionR, 4 ;Timer running
1358
1359 01359 03D1 59F4 LDS MainMode, 3
1360 01360 03D2 5975 LDS Mode1, 2 ;Enable Timer
1361 01361 03D3 588C LDS T_2Hz, 1
1362
1363 01363 03D4 3F4E ORI* FlgSet_12Hr,4 ;SoundKey
1364 01364 03D5 5B69 LDS KeySound, 6
1365 01365 03D6 FC80 ALM 80H
01366 Timer_F_Key1_1:
1367 01367 03D7 6C1A LDA SData1
1368 01368 03D8 6826 STA TSec_L
1369 01369 03D9 6C1B LDA SData2
1370 01370 03DA 6827 STA TSec_H
1371 01371 03DB 6C1C LDA SData3
1372 01372 03DC 6828 STA TMin_L
1373 01373 03DD 6C1D LDA SData4
1374 01374 03DE 6829 STA TMin_H
1375 01375 03DF D4CC JMP ActiveTMR2
01376 ;----------------------------------change to adjust TimerMin Mode at Timer Mode
01377 Timer_F_Key0:
1378 01378 03E0 58F5 LDS Mode1, 1
1379 01379 03E1 D4CA JMP SetKeySound
01380 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;F Key at Alarm Mode
01381 Alarm_F_Key:
1382 01382 03E2 5AE8 LDS Keyms, 5
1383 01383 03E3 6C75 LDA Mode1
1384 01384 03E4 B3F3 JZ Alarm_F_Key0
1385 01385 03E5 3615 SUBI Mode1, 1
1386 01386 03E6 B3F1 JZ Alarm_F_Key1
01387 ;--------------------------------return to Clock Mode & SData copyto ALM Registers
01388 ;Alarm_F_Key2:
1389
1390 01390 03E7 5874 LDS MainMode, 0
1391 01391 03E8 6C1A LDA SData1
1392 01392 03E9 682A STA AlmMin_L
1393 01393 03EA 6C1B LDA SData2
1394 01394 03EB 682B STA AlmMin_H
1395 01395 03EC 6C1C LDA SData3
1396 01396 03ED 682C STA AlmHr_L
1397 01397 03EE 6C1D LDA SData4
1398 01398 03EF 682D STA AlmHr_H
1399 01399 03F0 D4CA JMP SetKeySound
01400 ;----------------------------------change to adjust ALMMin Mode at ALM Mode
01401 Alarm_F_Key1:
1402 01402 03F1 5975 LDS Mode1, 2
1403 01403 03F2 D4CA JMP SetKeySound
01404 ;-----------------------------------set alm on /off
01405 Alarm_F_Key0:
1406 01406 03F3 5874 LDS MainMode, 0
1407 01407 03F4 3A1C ANDI AlmFlg, 1
1408 01408 03F5 B4CA JZ SetKeySound ;if alm off ,exit to Mainmode0
1409
1410 01410 03F6 5974 LDS MainMode, 2
1411 01411 03F7 58F5 LDS Mode1, 1
1412 01412 03F8 6C2A LDA AlmMin_L
1413 01413 03F9 681A STA SData1
1414 01414 03FA 6C2B LDA AlmMin_H
1415 01415 03FB 681B STA SData2
1416 01416 03FC 6C2C LDA AlmHr_L
1417 01417 03FD 681C STA SData3
1418 01418 03FE 6C2D LDA AlmHr_H
1419 01419 03FF 681D STA SData4
1420 01420 0400 D4CA JMP SetKeySound
01421 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;F Key at SetClock Mode
01422 SetClock_F_Key:
1423 01423 0401 5AE8 LDS Keyms, 5
1424 01424 0402 6C75 LDA Mode1
1425 01425 0403 B40E JZ SetClock_F_Key0
01426 ;----------------------------------return to Clock Mode & SData copyto clock Registers
1427 01427 0404 5874 LDS MainMode, 0
1428 01428 0405 6C1A LDA SData1
1429 01429 0406 6822 STA Min_L
1430 01430 0407 6C1B LDA SData2
1431 01431 0408 6823 STA Min_H
1432 01432 0409 6C1C LDA SData3
1433 01433 040A 6824 STA Hr_L
1434 01434 040B 6C1D LDA SData4
1435 01435 040C 6825 STA Hr_H
1436 01436 040D D4CA JMP SetKeySound
01437 ;------------------------------change to adjust clockMin Mode at setclock Mode
01438 SetClock_F_Key0:
1439 01439 040E 58F5 LDS Mode1, 1
1440 01440 040F D4CA JMP SetKeySound
01441 ;------------------------------enter FatMode
01442 Clock_F_Key:
1443 01443 0410 5A74 LDS MainMode, 4
1444 01444 0411 3BE6 ANDI* FatModeFlg, 1110B
01445 ;Mode5-Mode0/Mode1
01446 Fat_F_Key5:
1447 01447 0412 5875 LDS Mode1, 0
1448 01448 0413 6C53 LDA P_FAT1
1449 01449 0414 2E54 OR P_FAT2
1450 01450 0415 2E55 OR P_FAT3
1451 01451 0416 A4CA JNZ SetKeySound ;Have Fat test value?
1452
1453 01453 0417 58F5 LDS Mode1, 1
1454 01454 0418 6C16 LDA Weight1
1455 01455 0419 681A STA SData1
1456 01456 041A 6C17 LDA Weight2
1457 01457 041B 681B STA SData2
1458 01458 041C 6C18 LDA Weight3
1459 01459 041D 681C STA SData3
1460 01460 041E 6C19 LDA Weight4
1461 01461 041F 681D STA SData4
1462
1463 01463 0420 3A26 ANDI FatModeFlg, 2
1464 01464 0421 B423 JZ $+2
1465 01465 0422 CAFC CALL Kg_Lb
1466 01466 0423 D4CA JMP SetKeySound
01467 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;enter SetUnit Mode
01468 A_T_Key:
1469 01469 0424 3644 SUBI MainMode, 4
1470 01470 0425 A4DB JNZ Exit_KeyProcess
1471 01471 0426 3A16 ANDI FatModeFlg, 1
1472 01472 0427 A4DB JNZ Exit_KeyProcess
01473 ;MainMode=4 & no SetUnit Mode
1474 01474 0428 3A8A ANDI KeyDoneFlg, 8
1475 01475 0429 A4DB JNZ Exit_KeyProcess ;hold key
1476 01476 042A 3F8A ORI* KeyDoneFlg, 8
1477
1478 01478 042B 3F16 ORI* FatModeFlg, 1
1479 01479 042C 6C76 LDA FatModeFlg
1480 01480 042D 681E STA SData5
1481 01481 042E F400 RTS
01482 ;;;;;;;;;;;;;;;;;;;;;;;;;;;Set Fat default Parameter
01483 T_F_Key:
1484 01484 042F 3644 SUBI MainMode, 4
1485 01485 0430 A4DB JNZ Exit_KeyProcess
1486 01486 0431 3A16 ANDI FatModeFlg, 1
1487 01487 0432 A4DB JNZ Exit_KeyProcess
1488 01488 0433 6C77 LDA M_FatFlg
1489 01489 0434 A4DB JNZ Exit_KeyProcess
01490 ;MainMode=4 & Mode1=0 & no SetUnit Mode
1491 01491 0435 3A8A ANDI KeyDoneFlg, 8
1492 01492 0436 A4DB JNZ Exit_KeyProcess
1493 01493 0437 3F8A ORI* KeyDoneFlg, 8
1494
1495 01495 0438 3F46 ORI* FatModeFlg, 4 ;FatModeFlg.B2 represent default status.
1496
1497 01497 0439 3BC6 ANDI* FatModeFlg, 1100B
1498 01498 043A 5991 LDS Age2, 3
1499 01499 043B 5810 LDS Age1, 0
1500 01500 043C 5895 LDS Height4, 1
1501 01501 043D 5B94 LDS Height3, 7
1502 01502 043E 5813 LDS Height2, 0
1503 01503 043F 5812 LDS Height1, 0
1504 01504 0440 5819 LDS Weight4, 0
1505 01505 0441 5B18 LDS Weight3, 6
1506 01506 0442 5A97 LDS Weight2, 5
1507 01507 0443 5816 LDS Weight1, 0
1508 01508 0444 3B7B ANDI* OptionR, 7
1509
1510 01510 0445 5AD0 LDS BMI1, 5
1511 01511 0446 5951 LDS BMI2, 2
1512 01512 0447 5952 LDS BMI3, 2
1513 01513 0448 5957 LDS FatLevel, 2
1514 01514 0449 5853 LDS P_FAT1, 0
1515 01515 044A 5854 LDS P_FAT2, 0
1516 01516 044B 5855 LDS P_FAT3, 0
01517 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
01518 S_Key:
1519 01519 044C 3A46 ANDI FatModeFlg, 4
1520 01520 044D A4DB JNZ Exit_KeyProcess ;enter default parameter just now
1521 01521 044E 3644 SUBI MainMode, 4
1522 01522 044F A4DB JNZ Exit_KeyProcess
1523 01523 0450 3A16 ANDI FatModeFlg, 1
1524 01524 0451 A4DB JNZ Exit_KeyProcess
01525 ;MainMode=4 & no set unit mode
1526
1527 01527 0452 584D LDS FatTest1_1, 0
1528 01528 0453 584E LDS FatTest2_1, 0
1529 01529 0454 584F LDS FatTest3_1, 0
1530
1531 01531 0455 58D8 LDS M_Fat2hz, 1
1532 01532 0456 59D6 LDS TestFatCnt, 3
1533 01533 0457 5A59 LDS Delay5s, 4
1534 01534 0458 5A5A LDS MaxM_FatTm, 4
1535 01535 0459 58F7 LDS M_FatFlg, 1
1536 01536 045A 5BEA LDS R180ms1, 7
1537 01537 045B 5DEB LDS R180ms2, 0BH
1538 01538 045C F9FF ELC 111111111b
1539 01539 045D 587D LDS PortA, 0
1540 01540 045E 0A7D OPA PortA
1541 01541 045F F604 SF 4h
1542
1543 01543 0460 3F1B ORI* OptionR, 1
1544 01544 0461 E918 SIE* 18H
1545 01545 0462 E643 TM2X 001000011B
1546 01546 0463 F400 RTS
01547 ;;;;;;;;;;;;;;;;;
01548 LongKeyProcess:
1549 01549 0464 3688 SUBI KeyValue1, 8
1550 01550 0465 A46F JNZ LongKeyProcess3
1551 01551 0466 6C68 LDA Keyms
1552 01552 0467 A46F JNZ LongKeyProcess3
1553 01553 0468 3614 SUBI MainMode, 1
1554 01554 0469 B401 JZ SetClock_F_Key
1555 01555 046A 3624 SUBI MainMode, 2
1556 01556 046B B3E2 JZ Alarm_F_Key
1557 01557 046C 3634 SUBI MainMode, 3
1558 01558 046D B3C4 JZ Timer_F_Key
1559 01559 046E F400 RTS
01560 LongKeyProcess3:
1561 01561 046F 3A2A ANDI KeyDoneFlg, 2
1562 01562 0470 A477 JNZ LongKeyProcess1
1563 01563 0471 6C67 LDA KeyS
1564 01564 0472 A4DB JNZ Exit_KeyProcess
1565 01565 0473 3F2A ORI* KeyDoneFlg,2
1566 01566 0474 58E8 LDS Keyms, 1
1567 01567 0475 C4CC CALL ActiveTMR2
1568 01568 0476 F400 RTS
01569 LongKeyProcess1:
1570 01570 0477 6C74 LDA MainMode
1571 01571 0478 A488 JNZ LongKeyProcess2
1572 01572 0479 3A8A ANDI KeyDoneFlg, 8
1573 01573 047A A4DB JNZ Exit_KeyProcess
1574
1575 01575 047B 5DFA LDS KeyDoneFlg, 0BH
1576 01576 047C 58F4 LDS MainMode, 1
1577 01577 047D 5875 LDS Mode1, 0
1578 01578 047E 3F2E ORI* FlgSet_12Hr,2
1579 01579 047F 6C22 LDA Min_L
1580 01580 0480 681A STA SData1
1581 01581 0481 6C23 LDA Min_H
1582 01582 0482 681B STA SData2
1583 01583 0483 6C24 LDA Hr_L
1584 01584 0484 681C STA SData3
1585 01585 0485 6C25 LDA Hr_H
1586 01586 0486 681D STA SData4
1587 01587 0487 D4CA JMP SetKeySound
1588
01589 LongKeyProcess2:
1590 01590 0488 6C68 LDA Keyms
1591 01591 0489 A4DB JNZ Exit_KeyProcess
1592 01592 048A 58E8 LDS Keyms, 1
1593
1594 01594 048B 3628 SUBI KeyValue1, 2
1595 01595 048C B490 JZ LongA_Key
1596 01596 048D 3648 SUBI KeyValue1, 4
1597 01597 048E B4AB JZ LongT_Key
1598 01598 048F F400 RTS
01599 LongA_Key:
1600 01600 0490 3614 SUBI MainMode, 1
1601 01601 0491 B4A8 JZ LongA_Key_SetClock
1602 01602 0492 3624 SUBI MainMode, 2
1603 01603 0493 B4A3 JZ LongA_Key_Alm
1604 01604 0494 3634 SUBI MainMode, 3
1605 01605 0495 B49F JZ LongA_Key_Tmr
01606 LongA_Key_Fat:
1607 01607 0496 3A16 ANDI FatModeFlg, 1
1608 01608 0497 A4DB JNZ Exit_KeyProcess
1609 01609 0498 3615 SUBI Mode1, 1
1610 01610 0499 B202 JZ Fat_A_Key1
1611 01611 049A 3625 SUBI Mode1, 2
1612 01612 049B B1CF JZ Fat_A_Key2
1613 01613 049C 3635 SUBI Mode1, 3
1614 01614 049D B1C3 JZ Fat_A_Key3
1615 01615 049E F400 RTS
01616 LongA_Key_Tmr:
1617 01617 049F 5900 LDS TempR0, 2
1618 01618 04A0 2675 SUB Mode1
1619 01619 04A1 A238 JNZ Timer_A_Key
1620 01620 04A2 F400 RTS
01621 LongA_Key_Alm:
1622 01622 04A3 3615 SUBI Mode1, 1
1623 01623 04A4 B27A JZ IncHr
1624 01624 04A5 3625 SUBI Mode1, 2
1625 01625 04A6 B272 JZ IncMin
1626 01626 04A7 F400 RTS
01627 LongA_Key_SetClock:
1628 01628 04A8 6C75 LDA Mode1
1629 01629 04A9 B27A JZ IncHr
1630 01630 04AA D272 JMP IncMin
01631 ;;;;;;;;;;
01632 LongT_Key:
1633 01633 04AB 3614 SUBI MainMode, 1
1634 01634 04AC B4C3 JZ LongT_Key_SetClock
1635 01635 04AD 3624 SUBI MainMode, 2
1636 01636 04AE B4BE JZ LongT_Key_Alm
1637 01637 04AF 3634 SUBI MainMode, 3
1638 01638 04B0 B4BA JZ LongT_Key_Tmr
01639 LongT_Key_Fat:
1640 01640 04B1 3A16 ANDI FatModeFlg, 1
1641 01641 04B2 A4DB JNZ Exit_KeyProcess
1642 01642 04B3 3615 SUBI Mode1, 1
1643 01643 04B4 B2D0 JZ Fat_T_Key1
1644 01644 04B5 3625 SUBI Mode1, 2
1645 01645 04B6 B2A7 JZ Fat_T_Key2
1646 01646 04B7 3635 SUBI Mode1, 3
1647 01647 04B8 B29D JZ Fat_T_Key3
1648 01648 04B9 F400 RTS
01649 LongT_Key_Tmr:
1650 01650 04BA 5900 LDS TempR0, 2
1651 01651 04BB 2675 SUB Mode1
1652 01652 04BC A306 JNZ Timer_T_Key
1653 01653 04BD F400 RTS
1654
01655 LongT_Key_Alm:
1656 01656 04BE 3615 SUBI Mode1, 1
1657 01657 04BF B331 JZ DecHr
1658 01658 04C0 3625 SUBI Mode1, 2
1659 01659 04C1 B329 JZ DecMin
1660 01660 04C2 F400⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -