📄 plane050930v01.lst
字号:
1117 000209 2B05(1) clr keyoldbuf
1118 00020A 2B03(1) clr keychkbuf
1119 00020B 2B04(1) clr keycvtbuf
1120 00020C mnkey90:
1121 00020C 0E00(2) ret
1122 00020D ;**********************************************
1123 00020D ;Name :keyin
1124 00020D ;Function:
1125 00020D ;Input :
1126 00020D ;Output :
1127 00020D ;Register Used:
1128 00020D ;***********************************************
1129 00020D keyin:
1130 00020D 2B02(1) clr keyinbuf
1131 00020E 70D5(1+S) b0bts0 ptcsx1
1132 00020F 4802(1) bset keyinbuf.0
1133 000210
1134 000210 71D5(1+S) b0bts0 ptcsx2
1135 000211 4902(1) bset keyinbuf.1
1136 000212
1137 000212 72D5(1+S) b0bts0 ptcsx3
1138 000213 4A02(1) bset keyinbuf.2
1139 000214
1140 000214 73D5(1+S) b0bts0 ptcsx4
1141 000215 4B02(1) bset keyinbuf.3
1142 000216
1143 000216
1144 000216 keyin90:
1145 000216 0E00(2) ret
1146 000217 ;**********************************************
1147 000217 ;Name :keychk
1148 000217 ;Function:
1149 000217 ;Input :
1150 000217 ;Output :
1151 000217 ;Register Used:
1152 000217 ;***********************************************
1153 000217 keychk:
1154 000217 1E02(1) mov a,keyinbuf
1155 000218 0703(1+S) cmprs a,keychkbuf
1156 000219 8223(2) jmp keychk10
1157 00021A 7829(1+S) b0bts1 keystatflag
1158 00021B 8228(2) jmp keychk90
1159 00021C 1E06(1) mov a,keychat
1160 00021D 7886(1+S) b0bts1 fz
1161 00021E 8228(2) jmp keychk90
1162 00021F 1E03(1) mov a,keychkbuf
1163 000220 1F04(1) mov keycvtbuf,a
1164 000221 4029(1) bclr keystatflag
1165 000222 8228(2) jmp keychk90
1166 000223 keychk10:
1167 000223 4829(1) bset keystatflag
1168 000224 mov_ keychkbuf,keyinbuf
1169 000224 1E02(1) mov a, keyinbuf
1170 000225 1F03(1) mov keychkbuf, a
1171 000226 mov_ keychat,#2
1172 000226 2D02(1) mov a, #2
1173 000227 1F06(1) mov keychat, a
1174 000228 keychk90:
1175 000228 0E00(2) ret
1176 000229 ;**********************************************
1177 000229 ;Name :keycvt
1178 000229 ;Function:
1179 000229 ;Input :
1180 000229 ;Output :
1181 000229 ;Register Used:
1182 000229 ;***********************************************
1183 000229 keycvt:
1184 000229 1E04(1) mov a,keycvtbuf
1185 00022A 0705(1+S) cmprs a,keyoldbuf
1186 00022B 822D(2) jmp keycvtcsx10
1187 00022C 825C(2) jmp keycvt90
1188 00022D keycvtcsx10:
1189 00022D 1E04(1) mov a,keycvtbuf
1190 00022E 1F05(1) mov keyoldbuf,a
1191 00022F 2A0F(1) and a,#00001111b
1192 000230 1F07(1) mov csxtable,a
1193 000231 8232(2) jmp $+1
1194 000232 8233(2) jmp $+1
1195 000233 2B21(1) clr tablecount
1196 000234 0000(1) nop
1197 000235 0000(1) nop
1198 000236 0000(1) nop
1199 000237 chkcsxtable:
1200 000237
1201 000237 3402(1) b0mov y,#tablecsx$m
1202 000238 3363(1) b0mov z,#tablecsx$l
1203 000239 1E21(1) mov a,tablecount
1204 00023A 1383(1) add z,a
1205 00023B 2D00(1) mov a,#0
1206 00023C 1184(1) adc y,a
1207 00023D 0D00(2) movc
1208 00023E 0707(1+S) cmprs a,csxtable
1209 00023F 8241(2) jmp csxtableadd
1210 000240 8248(2) jmp chkcsxtableend
1211 000241 csxtableadd:
1212 000241 1621(1+S) incms tablecount
1213 000242 0000(1) nop
1214 000243 1E21(1) mov a,tablecount
1215 000244 240D(1) sub a,#13
1216 000245 5A86(1+S) bts1 fc
1217 000246 8237(2) jmp chkcsxtable
1218 000247 825C(2) jmp keycvt90
1219 000248 chkcsxtableend: ;根据所测的数据对飞机执行平衡动作
1220 000248 1E21(1) mov a,tablecount
1221 000249 2403(1) sub a,#3
1222 00024A 5A86(1+S) bts1 fc
1223 00024B 8259(2) jmp keycvtcsx30
1224 00024C 2405(1) sub a,#5
1225 00024D 5A86(1+S) bts1 fc
1226 00024E 8254(2) jmp keycvtcsx20
1227 00024F 482A(1) bset empensubflag
1228 000250 2D0D(1) mov a,#13
1229 000251 2221(1) sub a,tablecount
1230 000252 1F24(1) mov csxcalibratebuf,a
1231 000253 825C(2) jmp keycvt90
1232 000254
1233 000254 keycvtcsx20:
1234 000254 4F29(1) bset empenaddflag
1235 000255 1E21(1) mov a,tablecount
1236 000256 2403(1) sub a,#3
1237 000257 1F24(1) mov csxcalibratebuf,a
1238 000258 825C(2) jmp keycvt90
1239 000259 keycvtcsx30:
1240 000259 482A(1) bset empensubflag
1241 00025A
1242 00025A 2B24(1) clr csxcalibratebuf
1243 00025B 825C(2) jmp keycvt90
1244 00025C
1245 00025C keycvt90:
1246 00025C 0E00(2) ret
1247 00025D ;**********************************************
1248 00025D ;Name :dkeychat
1249 00025D ;Function:
1250 00025D ;Input :
1251 00025D ;Output :
1252 00025D ;Register Used:
1253 00025D ;***********************************************
1254 00025D dkeychat:
1255 00025D 2E06(1) b0mov A,keychat
1256 00025E 7086(1+S) b0bts0 fz ; is keychat <> 0
1257 00025F 8262(2) jmp dkeychat90 ; is A = 0
1258 000260 2606(1+S) decms keychat ; keychat --
1259 000261 8262(2) jmp dkeychat90
1260 000262
1261 000262 dkeychat90:
1262 000262 0E00(2) ret
1263 000263 ;***********************************************
1264 000263 tablecsx:
1265 000263 000F(1) dw 0fh ;0 不响应
1266 000264 0006(1) dw 06h ;1 0度
1267 000265 000E(1) dw 0eh ;2 0-90之间
1268 000266 0001(1) dw 01h ;3 45度
1269 000267 000C(1) dw 0ch ;4 90度
1270 000268 000D(1) dw 0dh ;5 90-180之间
1271 000269 0002(1) dw 02h ;6 135度
1272 00026A 0009(1) dw 09h ;7 180度
1273 00026B 000B(1) dw 0bh ;8 180-270之间
1274 00026C 0004(1) dw 04h ;9 225度
1275 00026D 0003(1) dw 03h ;10 270度
1276 00026E 0007(1) dw 07h ;11 270-360之间
1277 00026F 0008(1) dw 08h ;12 315度
1278 000270
1279 000270
1280 000270 /*
1281 000270 dw 09h ;1 0度
1282 000270 dw 00h ;2
1283 000270 dw 01h ;3
1284 000270 dw 00h ;4
1285 000270 dw 01h ;5
1286 000270 dw 00h ;6
1287 000270 dw 01h ;7
1288 000270 dw 0eh ;8 45度
1289 000270 dw 01h ;9
1290 000270 dw 00h ;10
1291 000270 dw 01h ;11
1292 000270 dw 00h ;12
1293 000270 dw 01h ;13
1294 000270 dw 00h ;14
1295 000270 dw 03h ;15 90度
1296 000270 dw 00h ;16
1297 000270 dw 02h ;17
1298 000270 dw 00h ;18
1299 000270 dw 02h ;19
1300 000270 dw 00h ;20
1301 000270 dw 02h ;21
1302 000270 dw 0dh ;22 135度
1303 000270 dw 02h ;23
1304 000270 dw 00h ;24
1305 000270 dw 02h ;25
1306 000270 dw 00h ;26
1307 000270 dw 02h ;27
1308 000270 dw 00h ;28
1309 000270 dw 06h ;29 180度
1310 000270 dw 00h ;30
1311 000270 dw 04h ;31
1312 000270 dw 00h ;32
1313 000270 dw 04h ;33
1314 000270 dw 00h ;34
1315 000270 dw 04h ;35
1316 000270 dw 0bh ;36 225度
1317 000270 dw 04h ;37
1318 000270 dw 00h ;38
1319 000270 dw 04h ;39
1320 000270 dw 00h ;40
1321 000270 dw 04h ;41
1322 000270 dw 00h ;42
1323 000270 dw 0ch ;43 270度
1324 000270 dw 00h ;44
1325 000270 dw 08h ;45
1326 000270 dw 00h ;46
1327 000270 dw 08h ;47
1328 000270 dw 00h ;48
1329 000270 dw 08h ;49
1330 000270 dw 07h ;50 315度
1331 000270 dw 08h ;51
1332 000270 dw 00h ;52
1333 000270 dw 08h ;53
1334 000270 dw 00h ;54
1335 000270 dw 08h ;55
1336 000270 dw 00h ;56
1337 000270 dw 09h ;57 360度
1338 000270 */
1339 000270 /* b0bts0 keycvtbuf.0
1340 000270 jmp keycvtcsx11
1341 000270 bts1 keyoldbuf.0
1342 000270 jmp keycvtcsx20
1343 000270
1344 000270 jmp keycvtcsx20
1345 000270 keycvtcsx11:
1346 000270 bts0 keyoldbuf.0
1347 000270 jmp keycvtcsx20
1348 000270
1349 000270
1350 000270 jmp keycvtcsx20
1351 000270 keycvtcsx20:
1352 000270 b0bts0 keycvtbuf.0
1353 000270 jmp keycvtcsx11
1354 000270 bts1 keyoldbuf.0
1355 000270 jmp keycvtcsx20
1356 000270
1357 000270 jmp keycvtcsx20
1358 000270 keycvtcsx11:
1359 000270 bts0 keyoldbuf.0
1360 000270 jmp keycvtcsx20
1361 000270
1362 000270
1363 000270 jmp keycvtcsx20
1364 000270 keycvtcsx20:
1365 000270 b0bts0 keycvtbuf.0
1366 000270 jmp keycvtcsx11
1367 000270 bts1 keyoldbuf.0
1368 000270 jmp keycvtcsx20
1369 000270
1370 000270 jmp keycvtcsx20
1371 000270 keycvtcsx11:
1372 000270 bts0 keyoldbuf.0
1373 000270 jmp keycvtcsx20
1374 000270
1375 000270
1376 000270 jmp keycvtcsx20
1377 000270 keycvtcsx20:
1378 000270 b0bts0 keycvtbuf.0
1379 000270 jmp keycvtcsx11
1380 000270 bts1 keyoldbuf.0
1381 000270 jmp keycvtcsx20
1382 000270
1383 000270 jmp keycvtcsx20
1384 000270 keycvtcsx11:
1385 000270 bts0 keyoldbuf.0
1386 000270 jmp keycvtcsx20
1387 000270
1388 000270
1389 000270 jmp keycvtcsx20
1390 000270 keycvtcsx20:
1391 000270 */
1392 000270 ; include disasm.asm
1393 000270 ;***********************************************
1394 000270 endp
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -