📄 plane050930v01.lst
字号:
985 0001A1 0064(1) dw 064h ;6
986 0001A2 006B(1) dw 06bh ;7
987 0001A3 0072(1) dw 072h ;8
988 0001A4 0079(1) dw 079h ;9
989 0001A5 0080(1) dw 080h ;10
990 0001A6 0087(1) dw 087h ;11
991 0001A7 008E(1) dw 08eh ;12
992 0001A8 0095(1) dw 095h ;13
993 0001A9 009C(1) dw 09ch ;14
994 0001AA 00A3(1) dw 0a3h ;15
995 0001AB 00AA(1) dw 0aah ;16
996 0001AC 00B1(1) dw 0b1h ;17
997 0001AD 00B8(1) dw 0b8h ;18
998 0001AE 00BF(1) dw 0bfh ;19
999 0001AF 00FF(1) dw 0ffh;0c6h ;20 ;20
1000 0001B0 /*
1001 0001B0 dw 09dh ;21
1002 0001B0 dw 0a2h ;22
1003 0001B0 dw 0a7h ;23
1004 0001B0 dw 0ach ;24
1005 0001B0 dw 0b3h ;25
1006 0001B0 dw 0b8h ;26
1007 0001B0 dw 0bdh ;27
1008 0001B0 dw 0c2h ;28
1009 0001B0 dw 0ffh;0c7h ;29 ;
1010 0001B0
1011 0001B0 dw 0cdh ;30
1012 0001B0 dw 0d2h ;31
1013 0001B0 dw 0d7h ;32
1014 0001B0 dw 0ddh ;33
1015 0001B0 dw 0e1h ;34
1016 0001B0 dw 0e7h ;35
1017 0001B0 dw 0ech ;36
1018 0001B0 dw 0f2h ;37
1019 0001B0 dw 0f7h ;38
1020 0001B0 dw 0fch ;39
1021 0001B0 dw 0ffh ;40
1022 0001B0 */
1023 0001B0
1024 0001B0
1025 0001B0 include key.asm
1026 0001B0 ;**********************************************
1027 0001B0 ;Name :mnkey
1028 0001B0 ;Function:
1029 0001B0 ;Input :
1030 0001B0 ;Output :
1031 0001B0 ;Register Used:
1032 0001B0 ;***********************************************
1033 0001B0 mnkey:
1034 0001B0
1035 0001B0 5828(1+S) bts1 csxenbflag
1036 0001B1 81B5(2) jmp mnkey90
1037 0001B2 C1B6(2) call keyin
1038 0001B3 C1C0(2) call keychk
1039 0001B4 C1D2(2) call keycvt
1040 0001B5 mnkey90:
1041 0001B5 0E00(2) ret
1042 0001B6 ;**********************************************
1043 0001B6 ;Name :keyin
1044 0001B6 ;Function:
1045 0001B6 ;Input :
1046 0001B6 ;Output :
1047 0001B6 ;Register Used:
1048 0001B6 ;***********************************************
1049 0001B6 keyin:
1050 0001B6 2B02(1) clr keyinbuf
1051 0001B7 70D5(1+S) b0bts0 ptcsx1
1052 0001B8 4802(1) bset keyinbuf.0
1053 0001B9
1054 0001B9 71D5(1+S) b0bts0 ptcsx2
1055 0001BA 4902(1) bset keyinbuf.1
1056 0001BB
1057 0001BB 72D5(1+S) b0bts0 ptcsx3
1058 0001BC 4A02(1) bset keyinbuf.2
1059 0001BD
1060 0001BD 73D5(1+S) b0bts0 ptcsx4
1061 0001BE 4B02(1) bset keyinbuf.3
1062 0001BF
1063 0001BF
1064 0001BF keyin90:
1065 0001BF 0E00(2) ret
1066 0001C0 ;**********************************************
1067 0001C0 ;Name :keychk
1068 0001C0 ;Function:
1069 0001C0 ;Input :
1070 0001C0 ;Output :
1071 0001C0 ;Register Used:
1072 0001C0 ;***********************************************
1073 0001C0 keychk:
1074 0001C0 1E02(1) mov a,keyinbuf
1075 0001C1 0703(1+S) cmprs a,keychkbuf
1076 0001C2 81CC(2) jmp keychk10
1077 0001C3 7829(1+S) b0bts1 keystatflag
1078 0001C4 81D1(2) jmp keychk90
1079 0001C5 1E06(1) mov a,keychat
1080 0001C6 7886(1+S) b0bts1 fz
1081 0001C7 81D1(2) jmp keychk90
1082 0001C8 1E03(1) mov a,keychkbuf
1083 0001C9 1F04(1) mov keycvtbuf,a
1084 0001CA 4029(1) bclr keystatflag
1085 0001CB 81D1(2) jmp keychk90
1086 0001CC keychk10:
1087 0001CC 4829(1) bset keystatflag
1088 0001CD mov_ keychkbuf,keyinbuf
1089 0001CD 1E02(1) mov a, keyinbuf
1090 0001CE 1F03(1) mov keychkbuf, a
1091 0001CF mov_ keychat,#2
1092 0001CF 2D02(1) mov a, #2
1093 0001D0 1F06(1) mov keychat, a
1094 0001D1 keychk90:
1095 0001D1 0E00(2) ret
1096 0001D2 ;**********************************************
1097 0001D2 ;Name :keycvt
1098 0001D2 ;Function:
1099 0001D2 ;Input :
1100 0001D2 ;Output :
1101 0001D2 ;Register Used:
1102 0001D2 ;***********************************************
1103 0001D2 keycvt:
1104 0001D2 1E04(1) mov a,keycvtbuf
1105 0001D3 0705(1+S) cmprs a,keyoldbuf
1106 0001D4 81D6(2) jmp keycvtcsx10
1107 0001D5 8202(2) jmp keycvt90
1108 0001D6 keycvtcsx10:
1109 0001D6 1E04(1) mov a,keycvtbuf
1110 0001D7 1F05(1) mov keyoldbuf,a
1111 0001D8 2A0F(1) and a,#00001111b
1112 0001D9 1F07(1) mov csxtable,a
1113 0001DA 81DB(2) jmp $+1
1114 0001DB 81DC(2) jmp $+1
1115 0001DC 2B21(1) clr tablecount
1116 0001DD 0000(1) nop
1117 0001DE 0000(1) nop
1118 0001DF 0000(1) nop
1119 0001E0 chkcsxtable:
1120 0001E0
1121 0001E0 3402(1) b0mov y,#tablecsx$m
1122 0001E1 3309(1) b0mov z,#tablecsx$l
1123 0001E2 1E21(1) mov a,tablecount
1124 0001E3 1383(1) add z,a
1125 0001E4 2D00(1) mov a,#0
1126 0001E5 1184(1) adc y,a
1127 0001E6 0D00(2) movc
1128 0001E7 0707(1+S) cmprs a,csxtable
1129 0001E8 81EA(2) jmp csxtableadd
1130 0001E9 81F1(2) jmp chkcsxtableend
1131 0001EA csxtableadd:
1132 0001EA 1621(1+S) incms tablecount
1133 0001EB 0000(1) nop
1134 0001EC 1E21(1) mov a,tablecount
1135 0001ED 240D(1) sub a,#13
1136 0001EE 5A86(1+S) bts1 fc
1137 0001EF 81E0(2) jmp chkcsxtable
1138 0001F0 8202(2) jmp keycvt90
1139 0001F1 chkcsxtableend: ;根据所测的数据对飞机执行平衡动作
1140 0001F1 1E21(1) mov a,tablecount
1141 0001F2 2403(1) sub a,#3
1142 0001F3 5A86(1+S) bts1 fc
1143 0001F4 8202(2) jmp keycvt90
1144 0001F5 2404(1) sub a,#4
1145 0001F6 5A86(1+S) bts1 fc
1146 0001F7 81FD(2) jmp keycvtcsx20
1147 0001F8 482A(1) bset empensubflag
1148 0001F9 2D0D(1) mov a,#13
1149 0001FA 2221(1) sub a,tablecount
1150 0001FB 1F24(1) mov csxcalibratebuf,a
1151 0001FC 8202(2) jmp keycvt90
1152 0001FD
1153 0001FD keycvtcsx20:
1154 0001FD 4F29(1) bset empenaddflag
1155 0001FE 1E21(1) mov a,tablecount
1156 0001FF 2403(1) sub a,#3
1157 000200 1F24(1) mov csxcalibratebuf,a
1158 000201 8202(2) jmp keycvt90
1159 000202
1160 000202 keycvt90:
1161 000202 0E00(2) ret
1162 000203 ;**********************************************
1163 000203 ;Name :dkeychat
1164 000203 ;Function:
1165 000203 ;Input :
1166 000203 ;Output :
1167 000203 ;Register Used:
1168 000203 ;***********************************************
1169 000203 dkeychat:
1170 000203 2E06(1) b0mov A,keychat
1171 000204 7086(1+S) b0bts0 fz ; is keychat <> 0
1172 000205 8208(2) jmp dkeychat90 ; is A = 0
1173 000206 2606(1+S) decms keychat ; keychat --
1174 000207 8208(2) jmp dkeychat90
1175 000208
1176 000208 dkeychat90:
1177 000208 0E00(2) ret
1178 000209 ;***********************************************
1179 000209 tablecsx:
1180 000209 000F(1) dw 0fh ;0 不响应
1181 00020A 0006(1) dw 06h ;1 0度
1182 00020B 000E(1) dw 0eh ;2 0-90之间
1183 00020C 0001(1) dw 01h ;3 45度
1184 00020D 000C(1) dw 0ch ;4 90度
1185 00020E 000D(1) dw 0dh ;5 90-180之间
1186 00020F 0002(1) dw 02h ;6 135度
1187 000210 0009(1) dw 09h ;7 180度
1188 000211 000B(1) dw 0bh ;8 180-270之间
1189 000212 0004(1) dw 04h ;9 225度
1190 000213 0003(1) dw 03h ;10 270度
1191 000214 0007(1) dw 07h ;11 270-360之间
1192 000215 0008(1) dw 08h ;12 315度
1193 000216
1194 000216
1195 000216 /*
1196 000216 dw 09h ;1 0度
1197 000216 dw 00h ;2
1198 000216 dw 01h ;3
1199 000216 dw 00h ;4
1200 000216 dw 01h ;5
1201 000216 dw 00h ;6
1202 000216 dw 01h ;7
1203 000216 dw 0eh ;8 45度
1204 000216 dw 01h ;9
1205 000216 dw 00h ;10
1206 000216 dw 01h ;11
1207 000216 dw 00h ;12
1208 000216 dw 01h ;13
1209 000216 dw 00h ;14
1210 000216 dw 03h ;15 90度
1211 000216 dw 00h ;16
1212 000216 dw 02h ;17
1213 000216 dw 00h ;18
1214 000216 dw 02h ;19
1215 000216 dw 00h ;20
1216 000216 dw 02h ;21
1217 000216 dw 0dh ;22 135度
1218 000216 dw 02h ;23
1219 000216 dw 00h ;24
1220 000216 dw 02h ;25
1221 000216 dw 00h ;26
1222 000216 dw 02h ;27
1223 000216 dw 00h ;28
1224 000216 dw 06h ;29 180度
1225 000216 dw 00h ;30
1226 000216 dw 04h ;31
1227 000216 dw 00h ;32
1228 000216 dw 04h ;33
1229 000216 dw 00h ;34
1230 000216 dw 04h ;35
1231 000216 dw 0bh ;36 225度
1232 000216 dw 04h ;37
1233 000216 dw 00h ;38
1234 000216 dw 04h ;39
1235 000216 dw 00h ;40
1236 000216 dw 04h ;41
1237 000216 dw 00h ;42
1238 000216 dw 0ch ;43 270度
1239 000216 dw 00h ;44
1240 000216 dw 08h ;45
1241 000216 dw 00h ;46
1242 000216 dw 08h ;47
1243 000216 dw 00h ;48
1244 000216 dw 08h ;49
1245 000216 dw 07h ;50 315度
1246 000216 dw 08h ;51
1247 000216 dw 00h ;52
1248 000216 dw 08h ;53
1249 000216 dw 00h ;54
1250 000216 dw 08h ;55
1251 000216 dw 00h ;56
1252 000216 dw 09h ;57 360度
1253 000216 */
1254 000216 /* b0bts0 keycvtbuf.0
1255 000216 jmp keycvtcsx11
1256 000216 bts1 keyoldbuf.0
1257 000216 jmp keycvtcsx20
1258 000216
1259 000216 jmp keycvtcsx20
1260 000216 keycvtcsx11:
1261 000216 bts0 keyoldbuf.0
1262 000216 jmp keycvtcsx20
1263 000216
1264 000216
1265 000216 jmp keycvtcsx20
1266 000216 keycvtcsx20:
1267 000216 b0bts0 keycvtbuf.0
1268 000216 jmp keycvtcsx11
1269 000216 bts1 keyoldbuf.0
1270 000216 jmp keycvtcsx20
1271 000216
1272 000216 jmp keycvtcsx20
1273 000216 keycvtcsx11:
1274 000216 bts0 keyoldbuf.0
1275 000216 jmp keycvtcsx20
1276 000216
1277 000216
1278 000216 jmp keycvtcsx20
1279 000216 keycvtcsx20:
1280 000216 b0bts0 keycvtbuf.0
1281 000216 jmp keycvtcsx11
1282 000216 bts1 keyoldbuf.0
1283 000216 jmp keycvtcsx20
1284 000216
1285 000216 jmp keycvtcsx20
1286 000216 keycvtcsx11:
1287 000216 bts0 keyoldbuf.0
1288 000216 jmp keycvtcsx20
1289 000216
1290 000216
1291 000216 jmp keycvtcsx20
1292 000216 keycvtcsx20:
1293 000216 b0bts0 keycvtbuf.0
1294 000216 jmp keycvtcsx11
1295 000216 bts1 keyoldbuf.0
1296 000216 jmp keycvtcsx20
1297 000216
1298 000216 jmp keycvtcsx20
1299 000216 keycvtcsx11:
1300 000216 bts0 keyoldbuf.0
1301 000216 jmp keycvtcsx20
1302 000216
1303 000216
1304 000216 jmp keycvtcsx20
1305 000216 keycvtcsx20:
1306 000216 */
1307 000216 ; include disasm.asm
1308 000216 ;***********************************************
1309 000216 endp
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -