📄 nt02.lst
字号:
1021 22BB low_cmp_inc:
1022 22BB BD 6A 3B lda rt_ad_tab,x
1023 22BE 85 BB sta r_table_h
1024 22C0 CA dex
1025 22C1 BD 6A 3B lda rt_ad_tab,x
1026 22C4 C5 B8 cmp key_ad_h
1027 22C6 F0 09 beq low_cmp_inc_0
1028 22C8 CA dex
1029 22C9 BD 6A 3B lda rt_ad_tab,x
1030 22CC 85 AB sta temperature_h
1031 22CE 4C AE 22 jmp need_cmp
1032 22D1 low_cmp_inc_0:
1033 22D1 E8 inx
1034 22D2 E8 inx
1035 22D3 BD 6A 3B lda rt_ad_tab,x
1036 22D6 85 AB sta temperature_h ; the first back up high temperature va
lue
1037 22D8 E8 inx
1038 22D9 4C 82 22 jmp low_cmp
1039 22DC low_cmp_finish:
1040 22DC E8 inx
1041 22DD BD 6A 3B lda rt_ad_tab,x
1042 22E0 85 AB sta temperature_h
1043 22E2 64 AC stz temperature_l
1044 22E4 60 rts
1045 22E5 div_10:
1046 22E5 64 B7 stz temp
1047 22E7 A5 AC lda temperature_l
1048 22E9 div_10_1:
1049 22E9 38 sec
1050 22EA E9 0A sbc #10
1051 22EC 90 0C bcc div_10_3
1052 22EE E6 B7 inc temp
1053 22F0 C9 0A cmp #10
1054 22F2 B0 F5 bcs div_10_1
1055 22F4 C9 05 cmp #5
1056 22F6 90 02 bcc div_10_3
1057 22F8 div_10_2:
1058 22F8 E6 B7 inc temp
1059 22FA div_10_3:
1060 22FA 64 AC stz temperature_l
1061 22FC A5 BB lda r_table_h
1062 22FE 38 sec
1063 22FF E5 B9 sbc key_ad_l
1064 2301 div_10_3_0:
1065 2301 38 sec
1066 2302 E5 B7 sbc temp
1067 2304 90 06 bcc div_10_4
1068 2306 E6 AC inc temperature_l
1069 2308 C5 B7 cmp temp
1070 230A B0 F5 bcs div_10_3_0
1071 230C div_10_4:
1072 230C A5 AC lda temperature_l
1073 230E C9 09 cmp #9
1074 2310 B0 03 bcs div_10_5
1075 2312 4C 19 23 jmp adj_cal_value
1076 2315 div_10_5:
1077 2315 A9 09 lda #9
1078 2317 85 AC sta temperature_l
1079 2319
1080 2319 adj_cal_value:
1081 2319 A5 AB lda temperature_h
1082 231B 85 AE sta temp_check_h
1083 231D A5 AC lda temperature_l
1084 231F 85 AF sta temp_check_l
1085
1086 2321 A5 A9 lda tem_cal_h
1087 2323 18 clc
1088 2324 65 AA adc tem_cal_l
1089 2326 C9 00 cmp #00h
1090 2328 F0 52 beq adj_cal_val_ret ; no calibration value
1091 232A
1092 232A A5 AD lda tem_cal_f
1093 232C 29 80 and #tem_cal_h_f
1094 232E F0 2A beq adj_cal_val_1 ; cal data on low side
1095 adj_cal_val_0: ; cal data on high side
1096 2330 A5 AB lda temperature_h ; adj cal data on high side
1097 2332 18 clc
1098 2333 65 A9 adc tem_cal_h
1099 2335 C9 3C cmp #60
1100 2337 B0 05 bcs adj_cal_val_0_0
1101 2339 85 AB sta temperature_h
1102 233B 4C 45 23 jmp adj_cal_val_0_1
1103 233E adj_cal_val_0_0:
Fri Mar 3 11:18:09 2006 Page 13
1104 233E A9 3C lda #60
1105 2340 85 AB sta temperature_h
1106 2342 64 AC stz temperature_l
1107 2344 60 rts
1108 2345 adj_cal_val_0_1:
1109 2345 A5 AC lda temperature_l
1110 2347 18 clc
1111 2348 65 AA adc tem_cal_l
1112 234A 85 AC sta temperature_l
1113 234C C9 09 cmp #9
1114 234E F0 2C beq adj_cal_val_ret
1115 2350 B0 01 bcs adj_cal_val_0_2
1116 2352 60 rts
1117 2353 adj_cal_val_0_2:
1118 2353 E6 AB inc temperature_h
1119 2355 C9 3C cmp #60
1120 2357 B0 E5 bcs adj_cal_val_0_0
1121 2359 60 rts
1122 235A
1123 235A adj_cal_val_1:
1124 235A A5 AC lda temperature_l ; adj cal data on low side
1125 235C C5 AA cmp tem_cal_l ;
1126 235E B0 07 bcs adj_cal_val_1_0 ; temperature_l > tem_cal_l
1127 2360 C6 AB dec temperature_h ; temperature_l < tem_cal_l
1128 2362 A5 AC lda temperature_l
1129 2364 18 clc
1130 2365 69 0A adc #10
1131 2367 adj_cal_val_1_0:
1132 2367 38 sec
1133 2368 E5 AA sbc tem_cal_l
1134 236A 85 AC sta temperature_l
1135 236C adj_cal_val_1_1:
1136 236C A5 AB lda temperature_h
1137 236E C5 A9 cmp tem_cal_h
1138 2370 B0 05 bcs adj_cal_val_1_2
1139 2372 64 AC stz temperature_l
1140 2374 64 AB stz temperature_h
1141 2376 60 rts
1142 2377 adj_cal_val_1_2:
1143 2377 38 sec
1144 2378 E5 A9 sbc tem_cal_h
1145 237A 85 AB sta temperature_h
1146 237C adj_cal_val_ret:
1147 237C 60 rts
1148 ;///////////////////////////////////////////////;
1149 ; ;
1150 ; really action ;
1151 ; ;
1152 ;///////////////////////////////////////////////;
1153 ;------------------------------------------------
1154 237D really_action:
1155 ; o=speed ,1=cold,2=hot;3=sleep
1156 237D A5 A4 lda powerflag
1157 237F 29 80 and #power_on_f
1158 2381 F0 2E beq p_on_op_action1 ; when power off then disable all actio
n
1159 2383
1160 2383 p_on_op_action:
1161 2383 A5 C5 lda h_motor_t ; power on the first setting high motor
2sec
1162 2385 C9 00 cmp #00h
1163 2387 F0 15 beq p_on_op_action0
1164
1165 2389 A5 10 lda PA
1166 238B 29 DF and #hot_sw_n
1167 238D 29 BF and #cold_sw_n
1168 238F 09 80 ora #motor_h
1169 2391 85 10 sta PA
1170 2393
1171 2393 A5 18 lda PC
1172 2395 29 FE and #motor_m_n
1173 2397 29 FD and #motor_l_n
1174 2399 09 04 ora #buzzsr_sw
1175 239B 85 18 sta PC
1176 239D 60 rts
1177 239E
1178 239E p_on_op_action0:
1179
1180 239E A5 A5 lda actionmode
1181 23A0 C9 01 cmp #cold_mode
1182 23A2 F0 07 beq rel_cold_mode_0
1183 23A4 C9 02 cmp #hot_mode
1184 23A6 F0 06 beq rel_hot_mode_0
1185
1186 23A8 4C B4 23 jmp rel_speed_mode
1187 23AB rel_cold_mode_0:
1188 23AB 4C 1A 24 jmp rel_cold_mode
1189 23AE rel_hot_mode_0:
1190 23AE 4C 37 25 jmp rel_hot_mode
1191 23B1 p_on_op_action1:
1192 23B1 4C 7E 26 jmp power_off_output_action
1193 23B4
1194 ;-----------------------------------------------
1195
1196 23B4 rel_speed_mode:
Fri Mar 3 11:18:09 2006 Page 14
1197 23B4 64 C6 stz auto_mode
1198 23B6 64 B5 stz really_act_3min
1199 23B8 64 B6 stz really_act_20sec
1200 23BA
1201 23BA A5 10 lda PA
1202 23BC 29 DF and #hot_sw_n
1203 23BE 29 BF and #cold_sw_n
1204 23C0 85 10 sta PA
1205 23C2 rel_speed_mode_0:
1206 23C2 A5 A6 lda speedmode
1207 23C4 C9 02 cmp #speed_motor_h
1208 23C6 F0 2B beq rel_motor_h_on
1209 23C8 C9 01 cmp #speed_motor_m
1210 23CA F0 16 beq rel_motor_m_on
1211 23CC C9 00 cmp #speed_motor_l
1212 23CE F0 01 beq rel_motor_l_on
1213 23D0 60 rts
1214 23D1 rel_motor_l_on:
1215 23D1 A5 10 lda PA
1216 23D3 29 7F and #motor_h_n
1217 23D5 85 10 sta PA
1218
1219 23D7 A5 18 lda PC
1220 23D9 29 FE and #motor_m_n
1221 23DB 09 02 ora #motor_l
1222 23DD 09 04 ora #buzzsr_sw
1223 23DF 85 18 sta PC
1224 23E1 60 rts
1225 23E2 rel_motor_m_on:
1226 23E2 A5 10 lda PA
1227 23E4 29 7F and #motor_h_n
1228 23E6 85 10 sta PA
1229
1230 23E8 A5 18 lda PC
1231 23EA 29 FD and #motor_l_n
1232 23EC 09 01 ora #motor_m
1233 23EE 09 04 ora #buzzsr_sw
1234 23F0 85 18 sta PC
1235 23F2 60 rts
1236 23F3 rel_motor_h_on:
1237 23F3 A5 10 lda PA
1238 23F5 09 80 ora #motor_h
1239 23F7 85 10 sta PA
1240
1241 23F9 A5 18 lda PC
1242 23FB 29 FE and #motor_m_n
1243 23FD 29 FD and #motor_l_n
1244 23FF 09 04 ora #buzzsr_sw
1245 2401 85 18 sta PC
1246 2403 60 rts
1247
1248 2404 rel_all_output_off:
1249 2404 A5 10 lda PA
1250 2406 29 DF and #hot_sw_n
1251 2408 29 BF and #cold_sw_n
1252 240A 29 7F and #motor_h_n
1253 240C 85 10 sta PA
1254
1255 240E A5 18 lda PC
1256 2410 29 FE and #motor_m_n
1257 2412 29 FD and #motor_l_n
1258 2414 09 04 ora #buzzsr_sw
1259 2416 85 18 sta PC
1260 2418 60 rts
1261 2419 really_action_ret:
1262 2419 60 rts
1263 ;-----------------------------------------------
1264 241A rel_cold_mode:
1265 241A A5 10 lda PA
1266 241C 29 DF and #hot_sw_n ; turn off hot sw
1267 241E 85 10 sta PA
1268
1269 2420 A5 A6 lda speedmode
1270 2422 C9 03 cmp #speed_motor_aut
1271 2424 F0 20 beq rel_cold_mode_au
1272 2426
1273 2426 64 C6 stz auto_mode
1274 2428 64 B5 stz really_act_3min
1275 242A 64 B6 stz really_act_20sec
1276
1277 242C A5 AB lda temperature_h
1278 242E C5 A8 cmp t_setting_m ; if room check temperature > user sett
ing temperature
1279 2430 F0 11 beq cold_speed_com
1280 2432 B0 09 bcs cold_sw_on ; then turn on cold sw
1281 2434 cold_sw_off:
1282 2434 A5 10 lda PA
1283 2436 29 BF and #cold_sw_n
1284 243⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -