Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
SEITE 24<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
Abfrage. ob Cursor auf Anfang logische Zeile steht Umsetztabelle für Steuerz<br />
1255 04E7 E5 PUSH HL REGISTER RETTEN 1297 0511 00<br />
1256 04E8 2A 54 00 LD HL. (0054) AKTUELLE CURSORKOORDINATE 1298 0512 00<br />
1257 1299 0513 00<br />
1258 1300 0514 00<br />
1259 04EB 3A 5B 00 LD A. (0058) X-KooRDIANTE MINIMAL 1301 0515 (~<br />
1260 1302 0516 00<br />
1261 1303 0517 00<br />
1262 04EE BD CP L AKTUELLE X-KOORDINATE 1304 0518 10 nächste Fa<br />
1263 04EF 38 07 JR C. 07 + 04F8H I AKTUELLE KOORDINATE> 1305 0519 00<br />
1264 IX-KOORDINATE MINIMAL 1306 051A 00<br />
1265 04F1 D5 PUSH DE REGISTER RETTEN 1307 051B 00<br />
1266 04F2 CD AE 05 CALL 05AE • I ZEIGER AUF VERKETTUNGS 1308 051C 00<br />
1267 IFLAG DER ZEILE HOLEN 1309 0510 00<br />
1268<br />
1269 04F5<br />
1270 04F6<br />
1271 04F7<br />
7E<br />
B7<br />
Dl<br />
1272 04F8 E1<br />
1273 04F9 C9<br />
Zeilenvorschub<br />
LD A. (HU<br />
oR A<br />
POP DE<br />
POP HL<br />
RET<br />
ausgeben. wenn Cursor<br />
VERKETTUNGSFLAG HOLEN<br />
ZEILEN VERKETTET ?<br />
I GERETTETE REGISTER HOLEN<br />
nicht auf Anfang Zeile .teht<br />
1310<br />
1311<br />
1312<br />
1313<br />
051E<br />
051F<br />
0520<br />
0521<br />
1314 0522<br />
1315 0523<br />
1316 0524<br />
1317 0525<br />
1318 0526<br />
1319 0527 00<br />
1274 04FA CD E7 04 CALL 04E7 I ABFRAGE. OB CURSOR AUF 1320 0528 00<br />
1275 I ANFANG EINER ZEILE STEHT 1321 0529 00<br />
1276 1322 052A 00<br />
1277 04FD C8 RET . Z I CURSOR STEHT AUF ANFANG 1323 0528 00<br />
1324 052C<br />
1325 0520<br />
Zeilenvorschub auf Bildschirm ausgeben 1326 052E 00<br />
1327 052F 00<br />
1278 04FE 3E OD LD A. OD Wagenrücklauf 1328 0530 00<br />
1279<br />
1280 0500 18 31 JR 31 + 0533H ; ZEICHEN IM ACCU AUSGEBEN<br />
1281 ein Space ausgeben<br />
00<br />
00<br />
00<br />
~)<br />
OA<br />
03<br />
20<br />
OE<br />
00<br />
00<br />
00<br />
Wagenr-ückl<br />
Zeilenvorsc<br />
Zeilenr-ück<br />
Space<br />
Rückschrit<br />
Wagenrücld<br />
Cursor auf nächste Tabulatorposition setzen<br />
1329 0531<br />
1330<br />
3E 20 lD A.<br />
1282 0502 CO OC 00 CAlL OOOC EIN Space AUSGEBEN<br />
1283 ASCII - Zeichen im Accu a<br />
1284<br />
1285 0505 3A 54 00 LD A. (0054) • AKTUELLE X-KOORDINATE 1331 0533 E5 PUSH<br />
1286 1332 0534 D5 PUSH<br />
1287 1333 0535 C5 PUSH<br />
1288 0508 D6 OA SUB A. OA 10er TAB<br />
1334 0536 F5 PUSH<br />
1289 1335 0537 CD 60 05 CALL<br />
1290 050A 30 FC JR NC. FC + 0508H • WEITER ABZIEHEN 1336<br />
1291 1337<br />
1292 050C C6 OA ADD A. OA WERT CORRIGIEREN 1338 053A 3A 40 00 lD A.<br />
1293 1339<br />
1294 050E C8 RET Z CURSOR STEHT AUF TAB-STOP 1.340<br />
1295 050F 18 Fl JR Fl + 0502H WEITERE SPACES AUSGEBEN<br />
1341 053D B7 oR A<br />
1296 1342 053E 28 19 JR Z.<br />
1343<br />
1344 0540 Fl POP A<br />
1345 0541 F5 PUSH<br />
1346 0542 FE 20 CP 2<br />
1347<br />
1348 0544 30 OE JR NC<br />
I