📄 cm-941.lst
字号:
665 00665 01A0 6C1A LDA SData1
666 00666 01A1 6822 STA Min_L
667 00667 01A2 6C1B LDA SData2
668 00668 01A3 6823 STA Min_H
669 00669 01A4 6C1C LDA SData3
670 00670 01A5 6824 STA Hr_L
671 00671 01A6 6C1D LDA SData4
672 00672 01A7 6825 STA Hr_H
673 00673 01A8 F400 RTS
00674 Clock_C_Key:
675 00675 01A9 3F4A ORI* KeyDoneFlg, 4 ;represent 12/24hr converting when no key pressed
676 00676 01AA F400 RTS
0677
00678 ;;;;;;;;;;
00679 A_Key:
680 00680 01AB 6C49 LDA R_Error
681 00681 01AC A4DB JNZ Exit_KeyProcess
682 00682 01AD 6C74 LDA MainMode
683 00683 01AE B282 JZ Clock_A_Key
684 00684 01AF 3614 SUBI MainMode, 1
685 00685 01B0 B26F JZ SetClock_A_Key
686 00686 01B1 3624 SUBI MainMode, 2
687 00687 01B2 B268 JZ Alarm_A_Key
688 00688 01B3 3634 SUBI MainMode, 3
689 00689 01B4 B238 JZ Timer_A_Key
00690 Fat_A_Key:
691 00691 01B5 3A16 ANDI FatModeFlg, 1
692 00692 01B6 A235 JNZ Fat_A_Key_1
0693
694 00694 01B7 3615 SUBI Mode1, 1
695 00695 01B8 B202 JZ Fat_A_Key1
696 00696 01B9 3625 SUBI Mode1, 2
697 00697 01BA B1CF JZ Fat_A_Key2
698 00698 01BB 3635 SUBI Mode1, 3
699 00699 01BC B1C3 JZ Fat_A_Key3
700 00700 01BD 3645 SUBI Mode1, 4
701 00701 01BE B1C0 JZ Fat_A_Key4
702 00702 01BF F400 RTS
00703 ;-----------------------------Convert Gender
00704 Fat_A_Key4:
705 00705 01C0 5C00 LDS TempR0, 8
706 00706 01C1 2D1A EOR* SData1 ;select F/M
707 00707 01C2 F400 RTS
00708 ;---------------------------increase age
00709 Fat_A_Key3:
710 00710 01C3 401A INC* SData1
711 00711 01C4 551A DAA* SData1
712 00712 01C5 A1C9 JNZ CheckAgeOverFlow
713 00713 01C6 401B INC* SData2
714 00714 01C7 551B DAA* SData2
715 00715 01C8 F400 RTS
00716 CheckAgeOverFlow:
717 00717 01C9 5C00 LDS TempR0, 8
718 00718 01CA 261B SUB SData2
719 00719 01CB A4DB JNZ Exit_KeyProcess
720 00720 01CC 581A LDS SData1, 0
721 00721 01CD 589B LDS SData2, 1
722 00722 01CE F400 RTS
00723 ;---------------------------increase height
00724 Fat_A_Key2:
725 00725 01CF 3A26 ANDI FatModeFlg, 2
726 00726 01D0 A1EA JNZ H_inchOverFlow
0727
728 00728 01D1 5A80 LDS TempR0, 5
729 00729 01D2 251A ADD* SData1
730 00730 01D3 551A DAA* SData1
731 00731 01D4 A9DD JNC CheckHOverFlow
732 00732 01D5 401B INC* SData2
733 00733 01D6 551B DAA* SData2
734 00734 01D7 A4DB JNZ Exit_KeyProcess
735 00735 01D8 401C INC* SData3
736 00736 01D9 551C DAA* SData3
737 00737 01DA A4DB JNZ Exit_KeyProcess
738 00738 01DB 401D INC* SData4
739 00739 01DC F400 RTS
00740 ;------------------------------210cm
00741 CheckHOverFlow:
742 00742 01DD 5900 LDS TempR0, 2
743 00743 01DE 261D SUB SData4
744 00744 01DF A4DB JNZ Exit_KeyProcess
0745
746 00746 01E0 5880 LDS TempR0, 1
747 00747 01E1 261C SUB SData3
748 00748 01E2 A4DB JNZ Exit_KeyProcess
749 00749 01E3 6C1B LDA SData2
750 00750 01E4 A4DB JNZ Exit_KeyProcess
751 00751 01E5 581A LDS SData1, 0
752 00752 01E6 581B LDS SData2, 0
753 00753 01E7 581C LDS SData3, 0
754 00754 01E8 589D LDS SData4, 1
755 00755 01E9 F400 RTS
00756 ;--------------
00757 H_inchOverFlow:
758 00758 01EA 401A INC* SData1
759 00759 01EB 551A DAA* SData1
760 00760 01EC A9F0 JNC $+4
761 00761 01ED 401B INC* SData2
762 00762 01EE 551B DAA* SData2
763 00763 01EF F400 RTS
0764
765 00765 01F0 5900 LDS TempR0, 2
766 00766 01F1 261A SUB SData1
767 00767 01F2 5880 LDS TempR0, 1
768 00768 01F3 221B SBC SData2
769 00769 01F4 A1F8 JNZ CheckH_inchOverFlow
770 00770 01F5 581A LDS SData1, 0
771 00771 01F6 581B LDS SData2, 0
772 00772 01F7 401C INC* SData3
00773 ;-------------------------------6'10''
00774 CheckH_inchOverFlow
775 00775 01F8 5880 LDS TempR0, 1
776 00776 01F9 2C1B EOR SData2
777 00777 01FA A4DB JNZ Exit_KeyProcess
778 00778 01FB 5B00 LDS TempR0, 6
779 00779 01FC 2C1C EOR SData3
780 00780 01FD A4DB JNZ Exit_KeyProcess
781 00781 01FE 599C LDS SData3, 3
782 00782 01FF 581B LDS SData2, 0
783 00783 0200 599A LDS SData1, 3
784 00784 0201 F400 RTS
00785 ;;;;;;;;;;;;;;;;;;;;;;increase weight
00786 Fat_A_Key1:
787 00787 0202 3A26 ANDI FatModeFlg, 2
788 00788 0203 A21B JNZ W_lbOverFlow
0789
790 00790 0204 401A INC* SData1
791 00791 0205 551A DAA* SData1
792 00792 0206 A20F JNZ CheckWOverFlow
793 00793 0207 401B INC* SData2
794 00794 0208 551B DAA* SData2
795 00795 0209 A4DB JNZ Exit_KeyProcess
796 00796 020A 401C INC* SData3
797 00797 020B 551C DAA* SData3
798 00798 020C A4DB JNZ Exit_KeyProcess
799 00799 020D 401D INC* SData4
800 00800 020E F400 RTS
00801 CheckWOverFlow:
802 00802 020F 6C1D LDA SData4
803 00803 0210 B4DB JZ Exit_KeyProcess
804 00804 0211 5A80 LDS TempR0, 5
805 00805 0212 261C SUB SData3
806 00806 0213 A4DB JNZ Exit_KeyProcess
807 00807 0214 6C1B LDA SData2
808 00808 0215 A4DB JNZ Exit_KeyProcess
0809
810 00810 0216 581A LDS SData1, 0
811 00811 0217 581B LDS SData2, 0
812 00812 0218 589C LDS SData3, 1
813 00813 0219 581D LDS SData4, 0
814 00814 021A F400 RTS
00815 ;--------------------------------
00816 W_lbOverFlow:
817 00817 021B 5900 LDS TempR0, 2
818 00818 021C 251A ADD* SData1
819 00819 021D 551A DAA* SData1
820 00820 021E AA27 JNC CheckW_lbOverFlow
821 00821 021F 401B INC* SData2
822 00822 0220 551B DAA* SData2
823 00823 0221 AA27 JNC CheckW_lbOverFlow
824 00824 0222 401C INC* SData3
825 00825 0223 551C DAA* SData3
826 00826 0224 AA27 JNC CheckW_lbOverFlow
827 00827 0225 401D INC* SData4
828 00828 0226 551D DAA* SData4
00829 CheckW_lbOverFlow:
830 00830 0227 5B80 LDS TempR0, 7
831 00831 0228 261A SUB SData1
832 00832 0229 5800 LDS TempR0, 0
833 00833 022A 221B SBC SData2
834 00834 022B 5980 LDS TempR0, 3
835 00835 022C 221C SBC SData3
836 00836 022D 5980 LDS TempR0, 3
837 00837 022E 221D SBC SData4
838 00838 022F ACDB JNC Exit_KeyProcess
839 00839 0230 581A LDS SData1, 0
840 00840 0231 591B LDS SData2, 2
841 00841 0232 591C LDS SData3, 2
842 00842 0233 581D LDS SData4, 0
843 00843 0234 F400 RTS
00844 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
00845 Fat_A_Key_1:
846 00846 0235 5900 LDS TempR0, 2
847 00847 0236 2D1E EOR* SData5
848 00848 0237 F400 RTS
00849 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;increase timer Data
00850 Timer_A_Key:
851 00851 0238 6C75 LDA Mode1
852 00852 0239 B254 JZ Timer_A_Key0
853 00853 023A 3615 SUBI Mode1, 1
854 00854 023B B23D JZ Timer_A_Key1
855 00855 023C F400 RTS
00856 Timer_A_Key1:
857 00857 023D 5800 LDS TempR0, 0
858 00858 023E 261A SUB SData1
859 00859 023F 5800 LDS TempR0, 0
860 00860 0240 221B SBC SData2
861 00861 0241 5800 LDS TempR0, 0
862 00862 0242 221C SBC SData3
863 00863 0243 5B00 LDS TempR0, 6
864 00864 0244 221D SBC SData4
865 00865 0245 BCDB JC Exit_KeyProcess
0866
867 00867 0246 401A INC* SData1
868 00868 0247 551A DAA* SData1
869 00869 0248 ACDB JNC Exit_KeyProcess
870 00870 0249 401B INC* SData2
871 00871 024A 5B00 LDS TempR0, 6
872 00872 024B 261B SUB SData2
873 00873 024C ACDB JNC Exit_KeyProcess
874 00874 024D 581B LDS SData2, 0
875 00875 024E 401C INC* SData3
876 00876 024F 551C DAA* SData3
877 00877 0250 AA53 JNC $+3
878 00878 0251 401D INC* SData4
879 00879 0252 551D DAA* SData4
880 00880 0253 F400 RTS
00881 Timer_A_Key0:
882 00882 0254 6C1A LDA SData1
883 00883 0255 2E1B OR SData2
884 00884 0256 A25D JNZ Timer_A_Key0_1
0885
886 00886 0257 5800 LDS TempR0, 0
887 00887 0258 261C SUB SData3
888 00888 0259 5B00 LDS TempR0, 6
889 00889 025A 221D SBC SData4
890 00890 025B BCDB JC Exit_KeyProcess
891 00891 025C D262 JMP Timer_A_Key0_1_1
00892 Timer_A_Key0_1:
893 00893 025D 5C80 LDS TempR0, 9
894 00894 025E 261C SUB SData3
895 00895 025F 5A80 LDS TempR0, 5
896 00896 0260 221D SBC SData4
897 00897 0261 BCDB JC Exit_KeyProcess
00898 Timer_A_Key0_1_1:
899 00899 0262 401C INC* SData3
900 00900 0263 551C DAA* SData3
901 00901 0264 AA67 JNC $+3
902 00902 0265 401D INC* SData4
903 00903 0266 551D DAA* SData4
904 00904 0267 F400 RTS
00905 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;inscrease Alm data
00906 Alarm_A_Key:
907 00907 0268 6C75 LDA Mode1
908 00908 0269 B26D JZ Alarm_A_Key0
909 00909 026A 3615 SUBI Mode1, 1
910 00910 026B B27A JZ IncHr
911 00911 026C D272 JMP IncMin
00912 Alarm_A_Key0:
913 00913 026D 3D1C EORI* AlmFlg, 1
914 00914 026E F400 RTS
00915 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;inscrease clock data
00916 SetClock_A_Key:
917 00917 026F 3BDE ANDI* FlgSet_12Hr,1101B
918 00918 0270 6C75 LDA Mode1
919 00919 0271 B27A JZ IncHr
00920 IncMin:
921 00921 0272 5D01 LDS TempR1, 0AH
922 00922 0273 5882 LDS TempR2, 1
923 00923 0274 5800 LDS TempR0, 0
924 00924 0275 1E00 MVU TempR0
925 00925 0276 1D02 MVH TempR2
926 00926 0277 1C01 MVL TempR1
927 00927 0278 C800 CALL AddSecMin
928 00928 0279 F400 RTS
00929 IncHr:
930 00930 027A 5E01 LDS TempR1, 0CH
931 00931 027B 5882 LDS TempR2, 1
932 00932 027C 5800 LDS TempR0, 0
933 00933 027D 1E00 MVU TempR0
934 00934 027E 1D02 MVH TempR2
935 00935 027F 1C01 MVL TempR1
936 00936 0280 C80C CALL AddHour
937 00937 0281 F400 RTS
00938 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;enter alm Mode
00939 Clock_A_Key:
940 00940 0282 5974 LDS MainMode, 2
941 00941 0283 5875 LDS Mode1, 0
942 00942 0284 D4CA JMP SetKeySound
00943 ;;;;;;;;;;;;;;;
00944 T_Key:
945 00945 0285 6C49 LDA R_Error
946 00946 0286 A4DB JNZ Exit_KeyProcess
947 00947 0287 6C74 LDA MainMode
948 00948 0288 B339 JZ Clock_T_Key
949 00949 0289 3614 SUBI MainMode, 1
950 00950 028A B326 JZ SetClock_T_Key
951 00951 028B 3624 SUBI MainMode, 2
952 00952 028C B31F JZ Alarm_T_Key
953 00953 028D 3634 SUBI MainMode, 3
954 00954 028E B306 JZ Timer_T_Key
00955 Fat_T_Key:
956 00956 028F 3A16 ANDI FatModeFlg, 1
957 00957 0290 A303 JNZ Fat_T_Key_1 ;if at Set Unit Mode ?yes ,skip to Fat_T_Key_1
0958
959 00959 0291 3615 SUBI Mode1, 1
960 00960 0292 B2D0 JZ Fat_T_Key1
961 00961 0293 3625 SUBI Mode1, 2
962 00962 0294 B2A7 JZ Fat_T_Key2
963 00963 0295 3635 SUBI Mode1, 3
964 00964 0296 B29D JZ Fat_T_Key3
965 00965 0297 3645 SUBI Mode1, 4
966 00966 0298 B29A JZ Fat_T_Key4
967 00967 0299 F400 RTS
00968 ;-----------------------------convert gender
00969 Fat_T_Key4:
970 00970 029A 5C00 LDS TempR0, 8
971 00971 029B 2D1A EOR* SData1
972 00972 029C F400 RTS
00973 ;-----------------------------decrease age value
00974 Fat_T_Key3:
975 00975 029D 411A DEC* SData1
976 00976 029E 571A DAS* SData1
977 00977 029F BCDB JC Exit_KeyProcess
978 00978 02A0 411B DEC* SData2
979 00979 02A1 571B DAS* SData2
00980 CheckAgeUnderFlow:
981 00981 02A2 6C1B LDA SData2
982 00982 02A3 A4DB JNZ Exit_KeyProcess
983 00983 02A4 581A LDS SData1, 0
984 00984 02A5 5C1B LDS SData2, 8
985 00985 02A6 F400 RTS
00986 ;-----------------------------descrease height value
00987 Fat_T_Key2:
988 00988 02A7 3A26 ANDI FatModeFlg, 2
989 00989 02A8 A2BB JNZ H_inchUnderFlow
0990
991 00991 02A9 5A80 LDS TempR0, 5
992 00992 02AA 271A SUB* SData1
993 00993 02AB 571A DAS* SData1
994 00994 02AC BCDB JC Exit_KeyProcess
995 00995 02AD 411B DEC* SData2
996 00996 02AE 571B DAS* SData2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -