📄 cm-941.lst
字号:
997 00997 02AF BCDB JC Exit_KeyProcess
998 00998 02B0 411C DEC* SData3
999 00999 02B1 571C DAS* SData3
1000 01000 02B2 BCDB JC Exit_KeyProcess
1001 01001 02B3 411D DEC* SData4
01002 ;------------------------------------100cm
01003 CheckHUnderFlow:
1004 01004 02B4 6C1D LDA SData4
1005 01005 02B5 A4DB JNZ Exit_KeyProcess
1006 01006 02B6 581A LDS SData1, 0
1007 01007 02B7 581B LDS SData2, 0
1008 01008 02B8 589C LDS SData3, 1
1009 01009 02B9 591D LDS SData4, 2
1010 01010 02BA F400 RTS
01011 ;;;;;;;;;;;;;;;;;;;;;;;
01012 H_inchUnderFlow:
1013 01013 02BB 411A DEC* SData1
1014 01014 02BC 571A DAS* SData1
1015 01015 02BD BAC5 JC CheckH_inchUnderFlow
1016 01016 02BE 411B DEC* SData2
1017 01017 02BF 571B DAS* SData2
1018 01018 02C0 BCDB JC Exit_KeyProcess
1019 01019 02C1 411C DEC* SData3
1020 01020 02C2 589A LDS SData1, 1
1021 01021 02C3 589B LDS SData2, 1
1022 01022 02C4 F400 RTS
01023 ;------------------------------------3'03''
01024 CheckH_inchUnderFlow:
1025 01025 02C5 5980 LDS TempR0, 3
1026 01026 02C6 261A SUB SData1
1027 01027 02C7 5800 LDS TempR0, 0
1028 01028 02C8 221B SBC SData2
1029 01029 02C9 5980 LDS TempR0, 3
1030 01030 02CA 221C SBC SData3
1031 01031 02CB BCDB JC Exit_KeyProcess
1032 01032 02CC 581A LDS SData1, 0
1033 01033 02CD 589B LDS SData2, 1
1034 01034 02CE 5B1C LDS SData3, 6
1035 01035 02CF F400 RTS
01036 ;------------------------descrease weight value
01037 Fat_T_Key1:
1038 01038 02D0 3A26 ANDI FatModeFlg, 2
1039 01039 02D1 A2E9 JNZ W_lbUnderFlow ;lb? yes,skip
1040
1041 01041 02D2 411A DEC* SData1
1042 01042 02D3 571A DAS* SData1
1043 01043 02D4 BCDB JC Exit_KeyProcess
1044 01044 02D5 411B DEC* SData2
1045 01045 02D6 571B DAS* SData2
1046 01046 02D7 BCDB JC Exit_KeyProcess
1047 01047 02D8 411C DEC* SData3
1048 01048 02D9 571C DAS* SData3
1049 01049 02DA BADD JC CheckWUnderFlow
1050 01050 02DB 411D DEC* SData4
1051 01051 02DC F400 RTS
01052 ;--------------------------------10Kg
01053 CheckWUnderFlow:
1054 01054 02DD 6C1D LDA SData4
1055 01055 02DE A4DB JNZ Exit_KeyProcess
1056 01056 02DF 6C1C LDA SData3
1057 01057 02E0 A4DB JNZ Exit_KeyProcess
1058 01058 02E1 5C80 LDS TempR0, 9
1059 01059 02E2 261B SUB SData2
1060 01060 02E3 A4DB JNZ Exit_KeyProcess
1061
1062 01062 02E4 581A LDS SData1, 0
1063 01063 02E5 581B LDS SData2, 0
1064 01064 02E6 5A9C LDS SData3, 5
1065 01065 02E7 589D LDS SData4, 1
1066 01066 02E8 F400 RTS
01067 ;;;;;;;;;;;;;;;;;;;;;;;;
01068 W_lbUnderFlow:
1069 01069 02E9 5900 LDS TempR0, 2
1070 01070 02EA 271A SUB* SData1
1071 01071 02EB 571A DAS* SData1
1072 01072 02EC BCDB JC Exit_KeyProcess
1073 01073 02ED 411B DEC* SData2
1074 01074 02EE 571B DAS* SData2
1075 01075 02EF BAF6 JC CheckW_lbUnderFlow
1076 01076 02F0 411C DEC* SData3
1077 01077 02F1 571C DAS* SData3
1078 01078 02F2 BCDB JC Exit_KeyProcess
1079 01079 02F3 411D DEC* SData4
1080 01080 02F4 571D DAS* SData4
1081 01081 02F5 F400 RTS
01082 ;--------------------------------22.0lb
01083 CheckW_lbUnderFlow:
1084 01084 02F6 6C1D LDA SData4
1085 01085 02F7 A4DB JNZ Exit_KeyProcess
1086 01086 02F8 5900 LDS TempR0, 2
1087 01087 02F9 2C1C EOR SData3
1088 01088 02FA A4DB JNZ Exit_KeyProcess
1089 01089 02FB 5880 LDS TempR0, 1
1090 01090 02FC 2C1B EOR SData2
1091 01091 02FD A4DB JNZ Exit_KeyProcess
1092 01092 02FE 5B1A LDS SData1, 6
1093 01093 02FF 581B LDS SData2, 0
1094 01094 0300 599C LDS SData3, 3
1095 01095 0301 599D LDS SData4, 3
1096 01096 0302 F400 RTS
01097 ;---------------------------------
01098 Fat_T_Key_1:
1099 01099 0303 5900 LDS TempR0, 2
1100 01100 0304 2D1E EOR* SData5
1101 01101 0305 F400 RTS
01102 ;-----------------------------------descrease timer data
01103 Timer_T_Key:
1104 01104 0306 6C75 LDA Mode1
1105 01105 0307 B312 JZ Timer_T_Key0
1106 01106 0308 3615 SUBI Mode1, 1
1107 01107 0309 B30B JZ Timer_T_Key1
1108 01108 030A F400 RTS
01109 Timer_T_Key1:
1110 01110 030B 411A DEC* SData1
1111 01111 030C 571A DAS* SData1
1112 01112 030D BCDB JC Exit_KeyProcess
1113 01113 030E 411B DEC* SData2
1114 01114 030F 571B DAS* SData2
1115 01115 0310 BCDB JC Exit_KeyProcess
1116 01116 0311 5A9B LDS SData2, 5
01117 Timer_T_Key0:
1118 01118 0312 411C DEC* SData3
1119 01119 0313 571C DAS* SData3
1120 01120 0314 BCDB JC Exit_KeyProcess
1121 01121 0315 411D DEC* SData4
1122 01122 0316 571D DAS* SData4
1123 01123 0317 BCDB JC Exit_KeyProcess
1124
1125 01125 0318 6C75 LDA Mode1
1126 01126 0319 B31C JZ Timer_T_Key0_1
1127 01127 031A 581A LDS SData1, 0
1128 01128 031B 581B LDS SData2, 0
01129 Timer_T_Key0_1:
1130 01130 031C 581C LDS SData3, 0
1131 01131 031D 581D LDS SData4, 0
1132 01132 031E F400 RTS
01133 ;------------------------------------descrease alm data
01134 Alarm_T_Key:
1135 01135 031F 6C75 LDA Mode1
1136 01136 0320 B324 JZ Alarm_T_Key0
1137 01137 0321 3615 SUBI Mode1, 1
1138 01138 0322 B331 JZ DecHr
1139 01139 0323 D329 JMP DecMin
01140 Alarm_T_Key0:
1141 01141 0324 3D1C EORI* AlmFlg, 1
1142 01142 0325 F400 RTS
01143 ;-------------------------------------descrease clock data
01144 SetClock_T_Key:
1145 01145 0326 3BDE ANDI* FlgSet_12Hr,1101B
1146 01146 0327 6C75 LDA Mode1
1147 01147 0328 B331 JZ DecHr
01148 DecMin:
1149 01149 0329 5D01 LDS TempR1, 0AH
1150 01150 032A 5882 LDS TempR2, 1
1151 01151 032B 5800 LDS TempR0, 0
1152 01152 032C 1E00 MVU TempR0
1153 01153 032D 1D02 MVH TempR2
1154 01154 032E 1C01 MVL TempR1
1155 01155 032F C821 CALL SubSecMin
1156 01156 0330 F400 RTS
01157 DecHr:
1158 01158 0331 5E01 LDS TempR1, 0CH
1159 01159 0332 5882 LDS TempR2, 1
1160 01160 0333 5800 LDS TempR0, 0
1161 01161 0334 1E00 MVU TempR0
1162 01162 0335 1D02 MVH TempR2
1163 01163 0336 1C01 MVL TempR1
1164 01164 0337 C82B CALL SubHour
1165 01165 0338 F400 RTS
01166 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;enter Timer Mode
01167 Clock_T_Key:
1168 01168 0339 59F4 LDS MainMode, 3
1169 01169 033A 5875 LDS Mode1, 0
01170 ;----------------------------Timer copyto SData
1171 01171 033B 6C26 LDA TSec_L
1172 01172 033C 681A STA SData1
1173 01173 033D 6C27 LDA TSec_H
1174 01174 033E 681B STA SData2
1175 01175 033F 6C28 LDA TMin_L
1176 01176 0340 681C STA SData3
1177 01177 0341 6C29 LDA TMin_H
1178 01178 0342 681D STA SData4
1179 01179 0343 D4CA JMP SetKeySound
01180 ;;;;;;;;;;;;;;;;;;
01181 F_Key:
1182
1183
1184 01184 0344 6C74 LDA MainMode
1185 01185 0345 B410 JZ Clock_F_Key
1186 01186 0346 3614 SUBI MainMode, 1
1187 01187 0347 B401 JZ SetClock_F_Key
1188 01188 0348 3624 SUBI MainMode, 2
1189 01189 0349 B3E2 JZ Alarm_F_Key
1190 01190 034A 3634 SUBI MainMode, 3
1191 01191 034B B3C4 JZ Timer_F_Key
01192 ;---------------------------------F Key in FatMode
01193 Fat_F_Key:
1194 01194 034C 3A16 ANDI FatModeFlg, 1
1195 01195 034D A3A7 JNZ Fat_F_Key_1
1196 01196 034E 5849 LDS R_Error, 0
1197
1198 01198 034F 6C77 LDA M_FatFlg
1199 01199 0350 B355 JZ Fat_F1_Key
1200 01200 0351 5877 LDS M_FatFlg, 0
1201 01201 0352 597D LDS PortA, 2
1202 01202 0353 0A7D OPA PortA
1203 01203 0354 F704 RF 4
01204 Fat_F1_Key:
1205 01205 0355 6C75 LDA Mode1
1206 01206 0356 B39A JZ Fat_F_Key0
1207 01207 0357 3615 SUBI Mode1, 1
1208 01208 0358 B382 JZ Fat_F_Key1
1209 01209 0359 3625 SUBI Mode1, 2
1210 01210 035A B371 JZ Fat_F_Key2
1211 01211 035B 3635 SUBI Mode1, 3
1212 01212 035C B369 JZ Fat_F_Key3
1213 01213 035D 3645 SUBI Mode1, 4
1214 01214 035E B360 JZ Fat_F_Key4
1215 01215 035F D412 JMP Fat_F_Key5
01216 ;------------------------------------Mode4--Mode5 & SData copyto gender & calc BMI
01217 Fat_F_Key4:
1218 01218 0360 3BB6 ANDI* FatModeFlg, 1011B
1219 01219 0361 5AF5 LDS Mode1, 5
1220 01220 0362 CB7D CALL F_BMI
1221 01221 0363 3F8B ORI* OptionR, 8
1222 01222 0364 5C00 LDS TempR0, 8
1223 01223 0365 2A1A AND SData1
1224 01224 0366 A4CA JNZ SetKeySound
1225 01225 0367 3B7B ANDI* OptionR, 7
1226 01226 0368 D4CA JMP SetKeySound
01227 ;-------------------------------------Mode3--Mode4 & SData copyto Age & Gender copyto SData
01228 Fat_F_Key3:
1229 01229 0369 5A75 LDS Mode1, 4
1230 01230 036A 6C1A LDA SData1
1231 01231 036B 6810 STA Age1
1232 01232 036C 6C1B LDA SData2
1233 01233 036D 6811 STA Age2
1234
1235 01235 036E 6C7B LDA OptionR
1236 01236 036F 681A STA SData1
1237 01237 0370 D4CA JMP SetKeySound
01238 ;-------------------------------------Mode2--Mode3 & SData copyto Height & Age copyto SData
01239 Fat_F_Key2:
1240 01240 0371 59F5 LDS Mode1, 3
1241 01241 0372 3A26 ANDI FatModeFlg, 2
1242 01242 0373 B375 JZ $+2
1243 01243 0374 CAB5 CALL Inch_Cm
1244 01244 0375 6C1A LDA SData1
1245 01245 0376 6812 STA Height1
1246 01246 0377 6C1B LDA SData2
1247 01247 0378 6813 STA Height2
1248 01248 0379 6C1C LDA SData3
1249 01249 037A 6814 STA Height3
1250 01250 037B 6C1D LDA SData4
1251 01251 037C 6815 STA Height4
1252
1253 01253 037D 6C10 LDA Age1
1254 01254 037E 681A STA SData1
1255 01255 037F 6C11 LDA Age2
1256 01256 0380 681B STA SData2
1257 01257 0381 D4CA JMP SetKeySound
01258 ;--------------------------------------Mode1--Mode2 & SData copyto Weight & Height copyto SData
01259 Fat_F_Key1:
1260 01260 0382 5975 LDS Mode1, 2
1261 01261 0383 3A26 ANDI FatModeFlg, 2
1262 01262 0384 B386 JZ $+2
1263 01263 0385 CA7F CALL Lb_Kg
1264 01264 0386 6C1A LDA SData1
1265 01265 0387 6816 STA Weight1
1266 01266 0388 6C1B LDA SData2
1267 01267 0389 6817 STA Weight2
1268 01268 038A 6C1C LDA SData3
1269 01269 038B 6818 STA Weight3
1270 01270 038C 6C1D LDA SData4
1271 01271 038D 6819 STA Weight4
1272
1273 01273 038E 6C12 LDA Height1
1274 01274 038F 681A STA SData1
1275 01275 0390 6C13 LDA Height2
1276 01276 0391 681B STA SData2
1277 01277 0392 6C14 LDA Height3
1278 01278 0393 681C STA SData3
1279 01279 0394 6C15 LDA Height4
1280 01280 0395 681D STA SData4
1281
1282 01282 0396 3A26 ANDI FatModeFlg, 2
1283 01283 0397 B399 JZ $+2
1284 01284 0398 CB32 CALL Cm_Inch
1285 01285 0399 D4CA JMP SetKeySound
01286 ;---------------------------------------Mode0--Mode1 &Weight copyto SData
01287 Fat_F_Key0:
1288 01288 039A 58F5 LDS Mode1, 1
1289
1290 01290 039B 6C16 LDA Weight1
1291 01291 039C 681A STA SData1
1292 01292 039D 6C17 LDA Weight2
1293 01293 039E 681B STA SData2
1294 01294 039F 6C18 LDA Weight3
1295 01295 03A0 681C STA SData3
1296 01296 03A1 6C19 LDA Weight4
1297 01297 03A2 681D STA SData4
1298
1299 01299 03A3 3A26 ANDI FatModeFlg, 2
1300 01300 03A4 B3A6 JZ $+2
1301 01301 03A5 CAFC CALL Kg_Lb
1302 01302 03A6 D4CA JMP SetKeySound
01303 ;----------------------------------------Exit Set FatUnit Mode
01304 Fat_F_Key_1:
1305 01305 03A7 3BE6 ANDI* FatModeFlg, 1110B ;no at set FatUnit Mode
1306
1307 01307 03A8 5900 LDS TempR0, 0010B
1308 01308 03A9 2B1E AND* SData5
1309 01309 03AA 3A26 ANDI FatModeFlg, 0010B
1310 01310 03AB 2C1E EOR SData5
1311 01311 03AC B4CA JZ SetKeySound
1312
1313
1314 01314 03AD 3BD6 ANDI* FatModeFlg, 1101B
1315 01315 03AE 5900 LDS TempR0, 2
1316 01316 03AF 2A1E AND SData5
1317 01317 03B0 B3B2 JZ $+2
1318 01318 03B1 3F26 ORI* FatModeFlg, 2
1319
1320
1321 01321 03B2 3A26 ANDI FatModeFlg, 2
1322 01322 03B3 A3BC JNZ Fat_F_Key_1_1
1323 01323 03B4 3615 SUBI Mode1, 1
1324 01324 03B5 A3B8 JNZ $+3
1325 01325 03B6 CA7F CALL Lb_Kg
1326 01326 03B7 D4CA JMP SetKeySound
1327 01327 03B8 3625 SUBI Mode1, 2
1328 01328 03B9 A3BB JNZ $+2
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -