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.
BASIC<br />
Per<br />
111Z ·7
Durch dieses Disassembler-Listing werden die Rechte der<br />
Fa. SHARP ELECTRONICS (EUROPE) G.M.B.H<br />
Sonninstraße 3<br />
2000 Hamburg<br />
in keiner Weise angetastet. Dieses Disassembler-Listing soll dem <br />
<strong>MZ</strong>-700 Benutzer lediglich eine Hilfe beim Anwenden und Verstehen <br />
seiner Maschine sein. <br />
Das Listing wurde sehr sorgfältig auf seinen Inhalt hin UberprUft. <br />
Es kann jedoch nicht ausgeschlossen werden. daß sich noch Fehler <br />
eingeschlichen haben. <br />
Fur Schäden. die sich aus der Benutzung dieses Listings ergeben. <br />
wird keine Haftung übernommen. <br />
Es kann nicht ausgeschlossen werden. daß die Fa. SHARP <br />
verschiedene Versionen unter der gleichen Bezeichnung <br />
vertreibt. <br />
Herstellung und Vertrieb: <strong>MZ</strong>-VERLAG,HARALDSCHICKE<br />
LINDENWEG 18,2110 HOLM-SEPPENSEN<br />
Alle Rechte vorbehalten.<br />
Kein Teil dieser Veröffentlichung darf ohne schriftliche<br />
Genehmigung des Autors reproduziert. in jedwedem System<br />
gespeichert oder übertragen werden. sei es auf elektronischem.<br />
elektromechanischem oder sonstigem Wege.<br />
..~. ~ ," ~.. r:. j'. ~. i -i ~ \f ' ~ ~~<br />
Copyright (c) 1983 by: Rainer Scl;läfer <br />
H:auptstr aße 94 <br />
~.<br />
.• ~ .,<br />
\. .;, L ~i""<br />
5441 Ki'rchwal d<br />
BASIC 1Z-013<br />
Einsprungtabelle Monitor<br />
1<br />
/) 000 0 C3 O~ 00 JP OODA<br />
1<br />
2<br />
3 000 3 C3 20 01 JP 0120<br />
4<br />
5<br />
6 0006 C3 FE 04 JP 04FE<br />
7<br />
8<br />
9 0009 C3 FA 04 JP 04FA<br />
10<br />
11<br />
12 OOOC C3 31 05 JP 0531<br />
13<br />
14<br />
15 OOOF C3 02 05 JP 0502<br />
16<br />
18 0012 C3 ' 33 05 JP 0533<br />
19<br />
I)<br />
2 1 001 5 C3 DA 04 JP 04DA<br />
22<br />
23<br />
24 0018 C3 DA 04 JP 04DA<br />
25<br />
26<br />
"'7 001 B C3 FO 02 JP 02FO<br />
8<br />
29<br />
:S O 00 lE C3 AO 04 JP 04AO<br />
32<br />
33 0021 C3 3B OA JP OA3B<br />
4<br />
35<br />
6 0024 C3 3F OA JP OA3F<br />
3 7<br />
3 8<br />
39 0027 C3 7A (JA JP OA7A<br />
40<br />
41<br />
42 0 02 A C3 7E OA JP OA7E<br />
43<br />
44<br />
45 002D C3 94 OA JP OA94<br />
46<br />
47<br />
48 0030 C3 E4 08 JP 08E4<br />
49<br />
I)<br />
1 003 3 C3 5A OD JP OD5A<br />
2<br />
3<br />
4 0036 EB EX DE.HL<br />
0037 00 NOP<br />
6 0038 C3 E4 00 JP ODE4<br />
7<br />
8<br />
...9 0 0 3 8 C3 A7 00 JP ODA7
SEITE 2<br />
BASIC 1Z-013B<br />
60<br />
61<br />
62 003E C3 13 OA JP OA13 •<br />
63<br />
64<br />
65 0041 C3 04 OA JP OA04<br />
66<br />
67<br />
68 0044 C3 B7 09 JP 09B7<br />
69<br />
70<br />
71 0047 C3 D2 09 JP 0902<br />
72<br />
73<br />
74 004A C3 20 01 JP 0120<br />
75<br />
76<br />
77 0040 00<br />
78 004E 00 ~ ~<br />
II.A... \<br />
79 004F FF ::. 15 w...~ ~C- '€I ~<br />
80 0050 00<br />
81 0051 C3 DA 04 JP 04DA <br />
82 <br />
83 <br />
84 0054 00<br />
85 0055 00<br />
86 0056 00<br />
87 0057 18 •<br />
88 0058 C3 53 02 JP 0253 <br />
89 <br />
90 <br />
91 005B 00<br />
92 005C 27<br />
93 005D 71<br />
94 005E 00<br />
95 005F 00 ,<br />
96 0060 EF<br />
97 0061 C3 6A OE JP OE6A <br />
98 <br />
99 <br />
100 0064 00<br />
101 0065 00<br />
102 0066 00<br />
V1_0A<br />
REFERENZTON<br />
TEMPO SETZEN<br />
TONSTART<br />
TONS TOP<br />
ZEILE VON TASTATUR HOLEN<br />
PARALLELAUSGABEFLAG DRUCKER<br />
BILDSCHIRM-AUSSCHNITT-FLAG<br />
PUFFERLÄNGE FüR INPUT<br />
TEXTAUSGABEFLAG FüR TAPE<br />
TEXT (DE) AUSGEBEN<br />
AKTUELLE CURSORPOSITION X<br />
AKTUELLE CURSORPOSITION Y<br />
Y-KOORDINATE MINIMAL<br />
Y-KOORDINATE MAXIMAL<br />
TASTATURABFRAGE.4 (\) Q<br />
X-KOORDINATE MINIMAL<br />
X-KOORDINATE MAXIMAL<br />
ZEICHEN/HINTERGRUNDFARBE<br />
LöSCHZEICHEN (Spaee-Anz.C.<br />
LETZTE GEDRüCKTE TASTE<br />
AKTUELLES CURSORZEICHEN<br />
JOY - STICK - ABFRAGE<br />
FLAG VORMITTAG/NACHMITTAG<br />
WERT ANALOG JOY-STICK<br />
WERT DIGITAL JOY-STICK<br />
BASIC 1Z-013<br />
Tabelle mit Anfangsad~essen de ~ CT<br />
103 0067 E9 (1)<br />
104<br />
105 0069 E9 00<br />
106<br />
107 ~)6B E9 00<br />
108<br />
109 006D E9 00<br />
110<br />
111 006F E9 00<br />
112<br />
113 0071 FE 07<br />
1 14<br />
115 0073 F8 07<br />
116<br />
117 0075 E9 00<br />
118<br />
119 0077 E9 00<br />
120<br />
121 0079 E9 00<br />
122<br />
123 007B E9 00<br />
124<br />
125 007D E9 00<br />
126<br />
127 007F E9 00<br />
128<br />
129 0081 80 07<br />
130<br />
131 0083 E9 00<br />
132<br />
133 0085 E9 00<br />
134<br />
135 0087 04 08<br />
136<br />
137 0089 BI 07<br />
138<br />
139 0088 D6 07<br />
140<br />
141 0080 87 07<br />
142<br />
143 008F OB 07<br />
144<br />
145 0091 F9 06<br />
146<br />
147 0093 lE 07<br />
148<br />
149 0095 FB 07<br />
150<br />
151 0097 A6 08<br />
152<br />
153 0099 F8 07<br />
154<br />
155 009B E9 00<br />
156<br />
157 0090 80 07<br />
158<br />
159 009F E9 00<br />
160<br />
161 OOAI E9 00<br />
162
SEITE 4<br />
BASIC 1Z-013B V1_0A BASIC 1Z-013B<br />
163 00A3 E9 00 CTRL l' Kaltstart Monitor<br />
164 <br />
165 00A5 E9 00 CTRL ~ 218 OODA F3 DI<br />
166 2 19 OODB 31 00 00 LD SP. 0000<br />
2 2C)<br />
221 <br />
Verkettungsflags für Bildschimzeilen. Ist das Flag unglei ch 222 OOOE ED 56 IM 1<br />
Null 30 gehört diese Bildschirmzeile logisch zur Vorher i gen. 22 3 <br />
224 OOEO D3 El OUT (Ell, A<br />
167 00A7 00 Ver kettungsflag Zeile 0 2 25<br />
168 00A8 00 Ver kettungsflag Zeile 226 00E2 AF XOR A<br />
169 00A9 00 Verkettungsflag Zeile 2 227 OOE3 3 2 19 18 LD (1819>,A<br />
170 OOAA 00 Verkettungsflag Zeile 3 228 <br />
171 OOAB 00 Verkettungsflag Zeile 4 229 <br />
172 OOAC 00 Verkett ungsflag Zeile 5 230 00E6 C3 22 18 JP 1822<br />
173 OOAO 00 Verkettungsflag Zei l e 6 2 31 <br />
174 OOAE 00 Verkettungs flag Zei l e 7 2.32<br />
175 OOAF 00 Verkett ungsf lag Zei l e 8 <br />
176 OOBO 00 Verkettungsflag Zeile 9 <br />
177 OOBl 00 Verkettungsflag Zei le 10 233 00E9 C9 RET<br />
178 00B2 00 Verkettungsflag Zei le 11 <br />
179 00B3 00 Verkettungsflag Zeile 12 <br />
180 00B4 00 Verkettungsflag Zeile 13 ein Zeichen von Systemadressen hole<br />
181 00B5 00 Verkettungsflag Zeile 14 <br />
182 0086 00 Verket tungsflag Zeile 15 234 OOEA F.3 01<br />
183 00B7 00 Ver kettungs flag Zei le 16 235 OOEB 03 E3 OUT (E3>,A<br />
184 00B8 00 Ver kettungsflag Zeile 17 236<br />
185 00B9 00 Ver kettungs flag Zeile 18 237 OOEO 7E LD A, (HL><br />
186 OOBA 00 Ver kettungs fl a g Zeile 19 2.38 OOEE D3 E 1 OUT (Ell, A<br />
187 OOB,8 00 Verkettungs flag Zeile 20 239<br />
188 OOBC 00 Verkettungsflag Zeile 21 240 OOFO FB EI<br />
189 OOBO 00 Verkettungs flag Zeile 22 241 OOFl C9 RET<br />
190 OOBE 00 Verkettungsflag Zeile 23 <br />
191 I)OBF 00 Verkettungsflag Zeile 24 <br />
192 OOCO 00 Verkettungsflag Zeile 25 ein Zeichen nach Systemadresse ausg<br />
19~ OOCl 00 Ver kettungsflag Zeile 26 <br />
19.4 ooc:2 00 Verkettungsflag Zeile 27 2 42 OOF2 F3 01<br />
195 00C3 00 Verkettungsflag Zeile 28 2 43 OOF3 D3 E3 OUT (E3l,A<br />
196 00C4 00 Verkettungsflag Zeile 29 244<br />
197 OOC!5 00 Verkettungsf l ag Zeile 30 2 45 00F5 77 LD (HL>. A<br />
198 OOC6 . 00 Verkettungsflag Zeile 31 246 OOF6 D3 El OUT (EU, A<br />
199 OOC7 00 Verkettungsflag Zeile 32 247<br />
200 ooca 00 Verkettungsflag Zeile 33 248 00F8 FB EI<br />
201 00C9 00 Verkettungsflag Zeile 34 249 00F9 C9 RET <br />
202 OOCA 00 Verkettungsflag Zeile 35 <br />
203 ooce 00 ~erkettungsflag Zeile 36 <br />
20~ OOCC 00 Verkettungsflag Zeile 37 Zeile von Tastatur holen; bei Rückk<br />
205 OOCO 00 Verkettungsflag Zeile 38 auf eigentliche Eingabe stellen <br />
206 OOCE 00 Verkettungsflag Zeile 39 <br />
207 OOCF 00 Verkettung3flag Zeile 40 250 OOFA E5 PUSH HL<br />
208 0000 00 Verkettungsflag Zeile 41 251 OOFB 2A 54 00 LD HL. <br />
209 0001 00 Verkettungsflag Zeile 42 252 <br />
210 0002 00 Verkettungsflag Zeile 43 253 <br />
211 0'003 00 Verkettungsflag Zeile 44 254 OOFE E5 PUSH HL<br />
212 0004 00 Verkettungsflag Zeile 4~ 255 OOFF D5 PUSH OE<br />
213 0005 00 Verkettungsflag Zeile 46 256 0100 CO AE 05 CALL 05AE<br />
214 0006 00 Verkettungsflag Zeile 47 257<br />
215 0001 00 Verkettungsflag Zeile 48 258 <br />
216 oooa 00 Verkettungsflag Zeile 49 259 0103 01 POP OE<br />
217 0009 00 Verkettungsflag Zeile 50 260 0104 36 00 LD (HU. 00<br />
2 61 <br />
262 0106 El POP HL
SEITE 6 <br />
BASIC 1Z-013B V1_0A <br />
263 0107 CD 20 01 CALL 0120 ZEILE VON TASTATUR HOLEN<br />
264<br />
265<br />
266 010A 38 OE JR C. OE ~ allAH BREAK GEDRüCKT<br />
267<br />
268 010C 3A 58 00 LD A.
SEITE<br />
373<br />
374<br />
375 0177<br />
376<br />
377<br />
378 017A<br />
379<br />
380 017C<br />
381<br />
382 017E<br />
383<br />
384 0180<br />
385<br />
386 0182<br />
387<br />
388<br />
389 0185<br />
390 0186<br />
391 0187<br />
392 0188<br />
393<br />
394 018A<br />
395 018B<br />
396<br />
397<br />
398 018E<br />
399<br />
400 0190<br />
401<br />
402<br />
403 0193<br />
404<br />
405 0195<br />
406<br />
407 0197<br />
408 0198<br />
409<br />
410 019A<br />
411<br />
412 019C<br />
413<br />
414 019E<br />
415<br />
416 01AO<br />
417<br />
418<br />
419 01A3<br />
420<br />
421 01A5<br />
422<br />
423 01A7<br />
424<br />
425<br />
426 01AA<br />
427<br />
428<br />
8<br />
BASIC 1Z-013B<br />
2A 5B 00 LD HL. (005B)<br />
FE 14 CP 14<br />
28 08 JR Z. 08 ~ 0186H<br />
FE 12 CP 12<br />
20 08 JR NZ. 08 ~ 018AH<br />
2A 56 00 LD HL. (0056)<br />
5A ~ 0125H<br />
LD E.D<br />
70 LD A.L<br />
BB CP E<br />
30 9B JR NC. 9B F1 POP AF<br />
CD 33 05 CALL 0533<br />
18 99 JR 99 ~ 0129H<br />
3A 60 00 LD A. (0060)<br />
FE FF CP FF<br />
20 A6 JR NZ. A6 + 013DH<br />
F1 POP AF<br />
FE 17 CP 17<br />
30 C3 JR NC. C3 + 015FH<br />
FE 11 CP 11<br />
38 BF JR C. BF ~ 01SFH<br />
2A E9 OE LD HL. (OEE9)<br />
CB 75 BIT 6. L<br />
28 B8 JR Z. B8 + 015FH<br />
CD SE 05 CALL OS5E<br />
C3 29 01 JP 0129<br />
V1.0A<br />
I X-KOORDINATE <br />
1 MINIMAL/MAXIMAL <br />
Cursor links ?<br />
JA<br />
~ Cursor hoc:h ?<br />
NEIN + ZEICHEN AUSGEBEN<br />
1 Y-KOORDINATE <br />
I MINIMAL/MAXIMAL <br />
• Y-KOORDINATE NACH E<br />
MINIMAL-KOORDINATE<br />
AKTUELLE KOORDINATE<br />
1 TASTE NICHT ERLAUBT<br />
1+ NÄCHSTE TASTE<br />
GEDRüCKTE TASTE<br />
~ ZEICHEN IM ACCU AUSGEBEN<br />
NÄCHSTE TASTE<br />
• AKTUELLES CURSORZEICHEN<br />
GRAPHIK-CURSOR ? <br />
'NEIN ~ AUF STEUERZEICHEN <br />
1 UNTERSUCHEN <br />
GEDRüCKTE TASTE ? <br />
GRöSSTE CURSOR TASTE ? <br />
KEINE CURSORTASTE <br />
KLEINSTE CURSORTASTE <br />
KEINE CURSORTASTE <br />
TASTENWERT SPALTE 9 <br />
; CTRL - TASTE GEDRüCKT ?<br />
JA<br />
• 1 ZEICHEN IM ACCU OHNE<br />
IUNTERSUCHUNS AUF STEUER<br />
I ZEICHEN AUSGEBEN<br />
NÄCHSTE TASTE ABFRAGEN<br />
BASIC 1Z-0<br />
Tastatureingabe mit 8REAK abge<br />
429 01AD 37 SCF<br />
Normales Ende der Eingabe eine<br />
430 01AE F5 PUSH AF <br />
431 01AF 3E OD LD A. 00 <br />
432 <br />
433 0181 CD 33 05 CALL 0533<br />
434 <br />
435 <br />
436 01B4 Fl POP AF<br />
437 01B5 D1 POP OE<br />
438 0186 EI POP HL <br />
439 0187 Cl POP BC<br />
440 018S C9 RET<br />
V-Koordinate Anfang Zeile nach<br />
441 01B9 CD AE 05 CALL 05AE<br />
442 <br />
443 <br />
444 018C 7E LD A. (HU<br />
445 018D B7 OR A <br />
446 018E C8 RET Z <br />
447 01BF 28 DEC HL<br />
448 OlCO 10 DEC E <br />
449 OICI 3A 56 00 LD A. «(1056<br />
450 <br />
451<br />
452 01C4 BB CP E<br />
453 454<br />
01C5 38 F5 JR C. F5<br />
455 0lC7 C9 RET<br />
Y-Koordiante Ende Zeile plus e<br />
456 01CS CD AE 05 CALL 05AE<br />
457<br />
458<br />
459 01CB lC INC E<br />
460 01CC 23 INC HL<br />
461 01CD 7E LD A. (HU<br />
462 01CE 87 OR A<br />
463 01CF CS RET Z<br />
464 0100 465<br />
3A 57 00 LD A. «057)<br />
466<br />
467 0103 B8 CP E<br />
468 01D4 469<br />
30 F5 JR NC. F5<br />
470 0106 C9 RET
SE ITE 10<br />
BASIC 1Z-013B V1_0A BASIC 1Z-0<br />
Zeile aus 8ildspeicher nach Eingabe-Puffer holen 531<br />
532 0214 09 ADD HL.BC<br />
471 01D7<br />
472<br />
Cl<br />
01<br />
POP POP 8C<br />
DE<br />
473 535 0217 ID OEC E<br />
474 01DA CD 89 01 CALL 01B9 IY-KOORDINATE ANFANG 536 0218 20 E1 JR NZ. E<br />
475 I ZEILE BEREITSTELLEN 537<br />
476 538 021A D5 PUSH DE<br />
477 01DD 53 LD D.E Y-KOORDINATE ANFANG MERKEN 539 0218 E5 PUSH HL<br />
478 01DE CD C8 01 CALL 01CB IY-KOORDINATE ENDE ZEILE 540 021C 09 EXX<br />
479 I 8ERE I TSTELLEN 541 0210 D9 EXX<br />
480 542 021E EI POP HL<br />
481 01El 3A 5B 00 LD A. .<br />
512 0200 CD 86 04 CALL 04B6 IANZEIGE-CODE IM ACCU 574<br />
513 IUMSETZEN IN ASCII 575 023F 2B DEC HL<br />
514 576 0240 10 F4 DJNZ F4<br />
515 0203 23 INC HL ZEIGER AUF BILDSCHIRM 577<br />
516 0204 02<br />
LD (BC). A<br />
ZEICHEN IM PUFFER MERKEN 578 0242 87<br />
OR A<br />
517 0205 03<br />
INC BC<br />
ZEIGER AUF PUFFER<br />
579 0243 C3 AE 01 JP 01AE<br />
518 0206 D9 EXX 580<br />
519 0207 2D DEC L , RESTANZAHL ZEICHEN MAXIMAL 581<br />
520 0208 28 13 JR Z. 13 ~ 021DH PUFFER VOLL<br />
521<br />
522 020A D9 EXX 582 0246 7E LD A. (HL><br />
523 020B 15 DEC D • RESTANZAHL ZEICHEN IN ZEILE 583 0247 B7 OR A<br />
524 020C C2 FD 01 JP NZ, 01FD • I NÄCHSTES ZEICHEN AUS 584 0248 20 02 JR NZ. 02<br />
525 I DIESER ZEILE HOLEN 585<br />
526 586 024A 36 20 LD (HL>.<br />
527 020F E1 POP HL ANFANGSKOORDINATE 587<br />
528 0210 CS PUSH BC ZEIGER AUF EINGA8E-PUFFER 588 024C 28 DEC HL<br />
529 0211 01 28 00 LD BC, 0028 40 ZEICHEN JE ZEILE 589 024D 10 F7 DJNZ F7<br />
530 590
SEITE 12<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
591 024F<br />
592 0250<br />
B7<br />
C3 AE 01<br />
OR<br />
JP<br />
A<br />
01AE<br />
CARRY-FLAG ZURüCKSETZEN<br />
'WagenrUcklauf AUSGEBEN<br />
• UND GERETTETE REGISTER<br />
593<br />
594 • HOLEN 648<br />
649 0289 CD 13 03 CALL<br />
650<br />
Tastaturabfrage nach Status im ACCU 651<br />
652 028C CD 33 03 CALL<br />
595 0253 3C INC A 653<br />
596 0254<br />
597<br />
598<br />
CA 08 02 JP Z, 0208 'TASTATURABFRAGE<br />
• ENTPRELLEN<br />
645<br />
646<br />
647<br />
MIT 654<br />
655<br />
656<br />
0286<br />
0287<br />
08<br />
06 10<br />
EX<br />
LD<br />
AF<br />
B,<br />
028F CB 4F BIT 1<br />
599 0257 3D OEC A 657 0291 20 F4 JR NZ<br />
600 0258<br />
601<br />
CA FO 02 JP Z, 02FO ABFRAGE, OB TASTE GEDRüCKT 658<br />
659 0293 10 F4 DJNZ<br />
602 660<br />
661 0295 CB 47 BIT 0<br />
662<br />
ein Zeichen von Tastatur mit Cursorblinken 663 0297 28 11 JR Z.<br />
664<br />
603 025B<br />
604<br />
605<br />
606 025E<br />
607 025F<br />
608 0260<br />
609 026 1<br />
610<br />
611<br />
612 0264<br />
613<br />
614<br />
615 0267<br />
616 0268<br />
CD FA 02 CALL 02FA • UNTERSUCHEN, OB NOCH<br />
• ZEICHEN VON FUNKTIONS<br />
C5<br />
E5<br />
D5<br />
CD<br />
CD<br />
B6<br />
EA<br />
05<br />
00<br />
57<br />
3A 60 00<br />
PUSH<br />
PUSH<br />
PUSH<br />
CALL<br />
CALL<br />
LD<br />
LO<br />
BC<br />
HL<br />
OE<br />
05B6<br />
OOEA<br />
D,A<br />
A, (0060)<br />
'TASTE BEREITSTEHEN<br />
• REGISTER RETTEN<br />
•<br />
• IBILDSCHIRMKOORDINATE<br />
lAUS CURSORPOSITION<br />
• ERRECHNEN<br />
I ZEICHEN AUS BILDSPEICHER<br />
I HOLEN<br />
ORIGINALZEICHEN MERKEN<br />
AKTUELLES CURSORZEICHEN<br />
665<br />
666<br />
667<br />
668<br />
669<br />
670<br />
671<br />
672<br />
673<br />
674<br />
675<br />
676<br />
0299 CB 57 BIT 2<br />
02A6 3E 06 LD A,<br />
617<br />
618 680 02A8 18 13 JR 13<br />
619 026B<br />
620 026C<br />
6~1<br />
622<br />
623 026F<br />
624 0270<br />
625 0271<br />
626<br />
627 0273<br />
628<br />
629<br />
630 0276<br />
631 0277<br />
5F<br />
CD F2 00<br />
AF<br />
F3<br />
D3<br />
32<br />
2F<br />
32<br />
E3<br />
00<br />
EO<br />
LO E,A<br />
CALL 00F2 c<br />
XOR A<br />
01<br />
OUT (E3),A<br />
LD (EOOO),A<br />
CPL<br />
LO (EOOO),A<br />
MERKEN<br />
'CURSoRZEICHEN IM BILD<br />
• SPEICHER EINTRAGEN<br />
ACCU AUF NULL<br />
INTERRUPT SPERREN<br />
• UMSCHALTEN AUF SYSTEM<br />
'ADRESSEN AB $DOOO<br />
I ZÄHLER FüR CURSoR<br />
'BLINKFREQUENZ INITIIERN<br />
00 EO<br />
693<br />
632<br />
•<br />
694<br />
633 695<br />
634 027A D3 E1<br />
OUT (EU ,A<br />
;<br />
635<br />
636 027C<br />
637 0270<br />
638<br />
639 027F<br />
640 0280<br />
641 0281<br />
642<br />
643<br />
644 0284<br />
FB<br />
OE<br />
08<br />
F5<br />
CD<br />
3E<br />
00<br />
33<br />
60<br />
03<br />
EI<br />
LO C, 00<br />
EX AF,AF'<br />
PUSH AF<br />
CALL 0333<br />
LD A, 60<br />
;<br />
•<br />
• UMSCHALTEN AUF<br />
• RAM AB $DOOO<br />
INTERRUPT WIEDER FREIGEBEN<br />
• REGISTER RETTEN<br />
•• FESTSTELLEN, OB SICH<br />
'TASTATURSTATUS GEÄNDERT<br />
• HAT<br />
I ZÄHLER FüR REPEAT-VER<br />
677<br />
678<br />
679<br />
681<br />
682<br />
683<br />
684<br />
685<br />
686<br />
687<br />
688<br />
689<br />
690<br />
691<br />
692<br />
696<br />
697<br />
698<br />
699<br />
700<br />
701<br />
702<br />
703<br />
704<br />
705<br />
706<br />
029B<br />
02 9D<br />
029E<br />
02 9F<br />
02Al<br />
02A3<br />
02A4<br />
02AA<br />
02AB<br />
02AC<br />
02AD<br />
02BO<br />
02B3<br />
02B6<br />
02B8<br />
02B9<br />
02BA<br />
02BB<br />
02BD<br />
02CO<br />
20 lE<br />
08<br />
3 D<br />
20 E5<br />
3E 00<br />
B7<br />
20 E1<br />
E5<br />
D5<br />
C5<br />
21<br />
11<br />
01<br />
ED<br />
Cl<br />
01<br />
El<br />
3E<br />
32<br />
CD<br />
F2<br />
E8<br />
OA<br />
BO<br />
60<br />
85<br />
13<br />
OE<br />
OE<br />
00<br />
02<br />
03<br />
JR NZ<br />
EX AF<br />
DEC A<br />
JR NZ<br />
LD A,<br />
OR A<br />
JR ~Z<br />
PUSH<br />
PUSH<br />
PUSH<br />
LO HL<br />
LO OE<br />
LO BC<br />
LDIR<br />
POP B<br />
POP D<br />
POP H<br />
LD A.<br />
LD (0<br />
CALL
SEITE 14 <br />
BASIC 1Z-013B V1.0A <br />
707 02C3 CD 71 03 CALL 0371 I TASTATUR AUF GEDRüCKTE<br />
708 I TASTE ABFRAGEN<br />
709<br />
710 02C6 B7 OR A TASTE GEDRüCKT ?<br />
711 02C7 28 F7 JR Z, F7 ~ 02COH NEIN ~ WEITER ABFRAGEN<br />
712<br />
713 02C9 32 5F 00 LD
SEITE 16<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
810 032A 30 OEC A CURSORZEICHEN IM BILDSP. 868<br />
811 0328 C8 RET Z JA 869 0365 23 INC H<br />
812 032C OE 01 LO C. 01 I CODE CURSORZEICHEN 870 0366 13 INC D<br />
871<br />
872 0367 10 09 OJNZ<br />
813<br />
814 032E 78 LO A.E<br />
I IM BILOSPEICHER<br />
CURSORZEICHEN HOLEN<br />
815 032F CO F2 00 CALL 00F2 I NACH BILDSPEICHER 873 0369 79 LO A.<br />
036A 03 EI OUT (<br />
816<br />
817<br />
I üBERTRAGEN 874<br />
875<br />
818 0332 C9 RET 876 036C FB EI<br />
Abfrage. ob sich Tastaturstatus geändert hat 879<br />
880<br />
877 0360 01 POP D<br />
878 036E EI POP H<br />
819 0333 C5 PUSH BC I REGISTER RETTEN<br />
820 0334 E5 PUSH HL I<br />
821 0335 05 PUSH DE I Tastatur abfragen; bei R<br />
822 0336 11 F2 OE LD OE. OEF2 I ZEIGER AUF WERTE gedrückten Taste oder OOH<br />
823 ILETZTER ZEILENSTATUS<br />
824 881 0371 C5 PUSH<br />
825 0339 21 E8 OE LD HL. OEE8 I ZEIGER AUF WERTE 882 0372 E5 PUSH<br />
883 0373 D5<br />
826 IAKTUELLER ZEILENSTATUS PUSH<br />
827 884 0374 21 E8 OE LO HL<br />
828 033C 01 00 OA LD BC. OAOO OA ANZAHL SPALTEN 885<br />
829 00 VORGABE FüR FLAGS 886<br />
830 887 0377 11 F2 OE LO DE<br />
831 033F F3 01 INTERRUPT SPERREN<br />
888<br />
832 0340 03 E3 OUT (E3).A I UMSCHALTEN AUF SYSTEM 889<br />
833 I ADRESSEN AB $0000 890 037A E5 PUSH<br />
834 0342 78 LD A.B ZÄHLER RESTANZAHL SPALTEN ~91 037B 05 PUSH<br />
835 0343 C6 EF ADD A. EF IUMRECHEN IN SPALTENWERT 892 037C 01 OA 00 LD BC<br />
836 I FüR PORT A / 8255 893<br />
837 0345 32 00 EO LD (EOOO).A SPALTENNUMMER AUSGEBEN 894<br />
838 895 037F EO BO LDIR<br />
839 896<br />
840 0348 FE F8 CP F8 SPALTE MIT SFT/BREAK/CTRL 897 0381 EI<br />
POP H<br />
841 898 0382 DI POP O<br />
842 034A 3 A 01 EO LD A. (EOOI) ZEILENWERT ABFRAGEN 899 0383 01 F9 OA LD BC<br />
843<br />
900<br />
844<br />
901<br />
845 0340 20 02 JR NZ. 02 ~ 0351H NORMALE SPALTE 902 0386 F3·<br />
01<br />
846 903 0387 03 E3 OUT (<br />
847 034F F6 7F OR 7F I TASTEN BIS AUF BREAK 904<br />
848 I VERGESSEN 905 0389 79 LD A.C<br />
849 035.1 FE FF CP FF TASTE GEDRUCKT ? 906 038A 32 00 EO LD (E<br />
850 907<br />
851 0353 28 02 JR Z. 02 ~ 0357H 908<br />
• NEIN<br />
852 909 038D 00 NOP<br />
853 0355 CB Cl SET O.C CODE TASTE GEDRüCKT 910 038E 3A 01 EO LO A.<br />
854 911<br />
855 0357 EB EX DE.HL ZEIGER LETZTER WERT NACH HL<br />
912<br />
856 0358 BE CP (HLl • VERGLEICHEN<br />
913 0391 12 LD .A NEUEN STATUS MERKEN 914 0392 79<br />
LD A.C<br />
858 035A EB EX DE.HL 915 0393 32 00 EO LD (E<br />
859 035B 28 02 JR Z. 02 + 035FH • I GLEICHER STATUS +<br />
916<br />
860 I TASTE NICHT GEPRELLT<br />
917<br />
861 035D CB C9 SET 1.C • CODE TASTE GEPRELLT 918 0396 FE Fa CP F<br />
862 919<br />
863 035F 2F CPL I TASTE ZUSÄTZLICH 920 0398 3A 01 EO LD A.<br />
864 0360 A6 AND (HL> ; I GEDRUCKT ? 921<br />
865 0361 28 02 JR Z. 02 + 0365H NEIN 922<br />
866 923 039B 12 LD (O<br />
867 0363 CB Dl SET 2.C I CODE TASTATURSTATUR 924 039C 28 23 JR Z.<br />
036F<br />
0370<br />
Ci<br />
C9<br />
POP<br />
RET<br />
B
SEITE 18<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
925<br />
926 039E<br />
927 039F<br />
928 03AO<br />
929 03Al<br />
930 03A2<br />
931 03A3<br />
932 03A4<br />
933<br />
934 03A6<br />
935<br />
936 03A8<br />
937 03A9<br />
938<br />
939<br />
940 03AC<br />
941 03AD<br />
942 03AE<br />
943 03AF<br />
944<br />
945 0381<br />
946 0382<br />
947<br />
2F<br />
A6<br />
77<br />
13<br />
23<br />
OD<br />
10 EC<br />
D3<br />
FB<br />
01<br />
El<br />
2B<br />
7E<br />
B7<br />
20 33<br />
OC<br />
10 F8<br />
00 OA<br />
CPL<br />
AND (HU<br />
LD (HU.A<br />
INC DE<br />
INC HL<br />
DEC C<br />
DJNZ EC + 0392H<br />
OUT (Ei>. A<br />
EI<br />
LD BC. OAOO<br />
DEC HL<br />
LD A. (HU<br />
ORA<br />
JR NZ. 33 + 03E4H<br />
INC C<br />
DJNZ F8 + 03ACH<br />
;<br />
IENTPRELLUNG AUFHEBEN<br />
I ÄNDERUNG MASKIEREN<br />
I<br />
UND MERKEN<br />
ZEIGER AUF AKTUELLE WERTE<br />
ZEIGER AUF ÄNDERUNGEN<br />
SPALTENNUMMER<br />
WEITER SPALTEN ABFRAGEN<br />
I UMSCHALTEN AUF<br />
IRAM AB $DOOO<br />
INTERRUPT FREIGEBEN<br />
I OA = ANZAHL SPALTEN<br />
I 00 = ZÄHLER<br />
ZEIGER AUF<br />
WERT "HOLEN<br />
ÄNDERUNG ?<br />
JA + TASTE<br />
ZÄHLER<br />
I WEITERE SPALTEN<br />
I ÄNDERUNG TESTEN<br />
948 0384 06 OA LD B. OA 10 SPALTEN<br />
949<br />
950 03136<br />
951 03B7<br />
IB<br />
1A<br />
FE FF<br />
DEC DE<br />
LD A.
SEITE 20 <br />
BASIC 1Z-013B V1_0A <br />
1045<br />
1046 0416 ED BO LDIR<br />
1047 <br />
ITEXT NACH ZWISCHEN<br />
I SPE I CHER HOLEN<br />
1048 0418 3A Dl OE LD A. (OEDl> TEXTLANGE<br />
1049<br />
1050<br />
1051 041B B7<br />
oR A GLEICH NULL ?<br />
IJA ~ TASTE VERGESSEN<br />
1052 041C CA BE 03 JP Z. 03BE<br />
1053<br />
1054<br />
1055 041F 3D DEC A<br />
IUND WEITER ABFRAGEN<br />
MINUS EINS<br />
RESTTEXTLANGE MERKEN<br />
1056 0420 32 Dl OE LD (OEDll.A<br />
1057<br />
1058<br />
1059 0423 3A D2 OE LD A. (OED2l ERSTES ZEICHEN HOLEN<br />
1060 <br />
1061 <br />
JP 036A <br />
GERETTETE REGISTER HOLEN<br />
1062 0426 C3 6A 03<br />
1063 <br />
1064 <br />
aus Zeilennummer und Spaltenwert ASCII-Code der <br />
gedrückten Taste bereitstellen <br />
1065 0429 CD 96 04 CALL 0496<br />
1066<br />
1067<br />
1068 042C 69 LD L.C<br />
1069 042D 26 00 LD H. 00 <br />
1070 <br />
I IM ACCU GESETZTES BIT<br />
IUMRECHNEN IN BIT-NUMMER<br />
I NACH B<br />
SPALTENNUMMER<br />
HL ENTHALTE SPALTE<br />
1071 042F 29<br />
ADD HL.HL<br />
I MAL 2
SEITE 22<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
1212<br />
1164 I UMRECHNEN 1213 04BD BE CP (HU<br />
1165 048D C3 6A 03 JP 036A GERETTETE REGISTER HOLEN 1214 04BE 28 07 JR Z. 0<br />
1166 1215<br />
1167 1216 04CO ~~ INC HL<br />
1168 0490 3E 20 LD A, 20 ICTRL-WERT ERRECHNEN 1217 04Cl 10 FA DJNZ FA<br />
1169 I 1218<br />
1170 0492 90 SUB B I 1219 04C3 AF XOR A<br />
1171 0493 C3 6A 03 JP 036A GERETTETE REGISTER HOLEN 1220 04C4 Cl POP BC<br />
1172 1221 04C5 EI POP HL<br />
1173 1222 04C6 C9 RET<br />
im Accu gesetztes Bit umsetzen in Bitnummer nach B 1223 04C7 3E 00 LD A. 0<br />
1224<br />
1174 0496 06 08 LD B, 08 VORGABE FüR WERT 1225 04C9 90 SUB B<br />
1175 1226 04CA Cl POP Be<br />
1176 0498 OF RRCA EIN BIT NACH CARRY SCHIEBEN 1227 04CB EI POP HL<br />
1177 0499 38 03 JR C, 03 ~ 049EH GESETZTES BIT GEFUNDEN 1228 04CC C9 RET<br />
1178<br />
1179 049B 10 FB DJNZ FB ~ 0498H WEITER SCHIEBEN<br />
1180 Zeichen im Accu umsetzen v<br />
1181 049D C9 RET<br />
1182 049E 05 DEC B WERT CORRIGIEREN 1229 04CD E5 PUSH H<br />
1183 049F C9 RET 1230 04CE C5 PUSH BC<br />
1231 04CF 4F LO C.A<br />
1232 04DO 06 00 LD B.<br />
Abfrage, ob SFT-BREAK gedrUckt; wenn Ja • Z-Flag bei 1233<br />
RUckkehr gesetzt. ist nur BREAK gedrUckt, wird das Programm 1234 04D2 21 FC OE LD HL.<br />
so lange angehalten, bi~ diese Taste losgelassen wird. 1235<br />
1236<br />
1184 04AO 3E E8 LO A, E8 I VORGABE FüR SPALTE 1237 0405 09 AOD HL<br />
1185 IMIT SHFIFT/BREAK - TASTE 1238 04D6 7E LD A. (<br />
1186 04A2 F3 01 INTERRUPT SPERREN 1239 04D7 Cl POP BC<br />
1187 04A3 D3 E3 OUT (E3), A I UMSCHALTEN AUF SYSTEM 1240 04D8 El POP HL<br />
1188 I ADRESSE AB $0000 1241 04D9 C9 RET<br />
1189 04A5 32 00 EO LD (EOOO),A ISPALTENNUMMER AN<br />
1190 I TASTATUR AUSGEBEN<br />
1191 ASCII - Te:{t ab (OE) bis O<br />
1192 04A8 00 NOP ZEIT SCHINDEN<br />
1193 04A9 3A 01 EO LD A, (E001) I ZEILENWERT VON TASTATUR 1242 04DA D5 PUSH O<br />
1194 I HOLEN 1243 040B lA LD A, <<br />
1195 1244 04DC B7 OR P<br />
1196 04AC D3 EI OUT (EI), A I UMSCHALTEN AUF 1245 04DO 28 06 JR Z.<br />
1197 I RAM AB $0000<br />
1246<br />
1198 04AE FB EI INTERRUPT FREIGEBEN 1247 04DF CO 3.3 05 CALL 0<br />
1199 04AF E6 81 AND A, 81 ; SHIFT UND BREAK MASKIEREN 1248<br />
1200 1249<br />
1201 04Bl C8 RET Z KEINE DER TASTEN GEDRüCKT 1250 04E2 13 INC OE<br />
1202 04B2 07 RLCA BREAK-TASTE NACH CARRY 1251 04E3 18 F6 JR F6<br />
1203 04B3 D8 RET C BREAK NICHT GEDRüCKT 1252<br />
1204 04B4 18 EA JR EA • 04AOH I WARTEN, BIS TASTE 1253 04E5 01 POP DE<br />
1205 I LOSGELASSEN WIRD 1254 04E6 C9 RET<br />
Zeichen im Accu von Anzeigecode in ASCII umsetzen<br />
1206 04B6 E5 PUSH HL I REGISTER RETTEN<br />
1207 04B7 C5 PUSH BC I<br />
1208 04B8 21 FC OE LO HL, OEFC I ZEIGER AUF AUF<br />
1209 I UMSETZTABELLEN<br />
1210<br />
1211 04BB 06 00 LD B. 00 TABELLE HAT 256 ZEICHEN
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
SEITE 26<br />
BASIC 1Z-013B V1_0A<br />
1349<br />
1350 0546<br />
1351 0547<br />
1352<br />
1353 0549<br />
1354<br />
1355<br />
1356 054C<br />
1357 054D<br />
1358 054E<br />
1359 054F<br />
1360<br />
1361<br />
1362 0552<br />
1363<br />
1364 0554<br />
1365 0555<br />
1.'366 0556<br />
1367<br />
1368<br />
1369 0559<br />
1370 055A<br />
1371 055B<br />
1372 055C<br />
1373 055D<br />
6F<br />
26 00<br />
11 11 05<br />
19<br />
7E<br />
B7<br />
C4 7E 16<br />
18 05<br />
F1<br />
F5<br />
CD 62 17<br />
F1<br />
Cl<br />
Dl<br />
El<br />
C9<br />
LD L,A <br />
LD H, 00 <br />
LD DE, 0511<br />
ADD HL,DE<br />
LD A, (HLl<br />
OR A<br />
CALL NZ, 167E<br />
JR 05 .. 0559H<br />
POP AF <br />
PUSH AF <br />
CALL 1762 <br />
POP AF <br />
POP BC <br />
POP DE <br />
POP HL <br />
RET <br />
Steuerzeichen <br />
HL ENTHÄLT OFFSET <br />
I ANFANG UMSETZTABELLE FüR<br />
I STEUERZEICHEN FüR DRUCKER<br />
ZEIGER AUF RICHTIGES ZEICH.<br />
STEUERZEICHEN AUS TABELLE<br />
VORHANDEN ?<br />
I JA ..<br />
I STEUERZEICHEN AN DRUCKER<br />
I AUSGEBEN<br />
GERETTETE REGISTER HOLEN<br />
AUSZUGEBENDES ZEICHEN<br />
AUSZUGEBENDES ZEICHEN<br />
I ZEICHEN AN DRUCKER<br />
I AUSGEBEN<br />
I GERETTETE REGISTER HOLEN<br />
I <br />
I <br />
I <br />
Zeichen im Accu ohne Untersuchung auf Steuerzeichen ausgeben<br />
1374 055E E5 PUSH HL I REGISTER RETTEN<br />
1375 055F D5 PUSH OE I<br />
1376 0560 C5 PUSH BC I<br />
1377 0561 F5 PUSH AF I<br />
1378 0562 CD 72 05 CALL 0572 I ZEICHEN IM ACCU OHNE<br />
1379 I UNTERSUCHUNG AUF BILD<br />
1380 I SCHIRM AUSGEBEN<br />
1381 0565 3A 40 00 LD A, «040) PARALLELAUSGABEFLAG DRUCKER<br />
1382<br />
1383<br />
1384 0568 B7 OR A ; GESETZT ?<br />
1385 0569 20 E9 JR NZ, E9 .. OS54H IJA" ZEICHEN AN DRUCKER<br />
1386 I AUSGEBEN<br />
1387 056B 18 EC JR EC ? 0559H GERETTETE REGISTER HOLEN<br />
1388<br />
Zeichen im Accu auf Bildschirm ausgeben<br />
1389 056D FE 20 CP 20 Steuerzeichen ?<br />
1390<br />
1392 lROUTINE AUFRUFEN<br />
1391 056F DA D2 05 JP C, 05D2 IJA ~ STEUERZEICHEN<br />
1393<br />
Zeichen im Accu ohne Untersuchung ~uf Steuerzeichen<br />
auf Bildschirm ~usgeben<br />
1394 0572 2A 54 00 LD HL, «054) • AKTUELLE CURSORPOSITION<br />
1395<br />
1396<br />
1397 0575 E5 PUSH HL MERKEN<br />
1398 0576<br />
1399 0577<br />
1400<br />
1401<br />
1402 057A<br />
1403 0578<br />
1404<br />
1405<br />
1406 057E<br />
1407<br />
1408<br />
1409 0581<br />
1410<br />
1411 0583<br />
1412<br />
1413<br />
1414 0586<br />
1415<br />
1416<br />
1417 0589<br />
1418 058A<br />
1419 058B<br />
1420<br />
1421<br />
1422 058E<br />
1423 058F<br />
1424<br />
1425<br />
1426 0592<br />
1427<br />
1428<br />
1429 0595<br />
1430 0596<br />
1431 0597<br />
1432 0598<br />
1433<br />
1434<br />
143 5 059B<br />
1436<br />
1437 059D<br />
1438 059E<br />
1439<br />
1440<br />
1441 05A1<br />
1442 05A2<br />
1443<br />
1444<br />
1445 05A5<br />
1446 05A6<br />
1447 05A7<br />
1448<br />
1449<br />
1450 05AA<br />
1451 05AB<br />
1452<br />
1453<br />
BASIC<br />
F5<br />
CO 89 05<br />
F1<br />
CO CO 04<br />
CD F2 00<br />
CB DC<br />
3A 5D 00<br />
CD F2 00<br />
El<br />
2C<br />
.3A 5C 00<br />
BD<br />
D2 D2 07<br />
3A 5B 00<br />
6F<br />
24<br />
E5<br />
CD AE 05<br />
3 6 01<br />
E1<br />
3A 57 00<br />
BC<br />
D2 D2 07<br />
67<br />
E5<br />
CD A5 06<br />
El<br />
C3 D2 07<br />
1Z<br />
PUSH<br />
CALL<br />
POP A<br />
CALL<br />
CALL<br />
SET 3<br />
LD A,<br />
CALL<br />
POP H<br />
INC L<br />
LD A,<br />
CP L<br />
JP Ne<br />
LD A,<br />
LD L,A<br />
INC H<br />
PUSH<br />
CALL<br />
LD (H<br />
POP H<br />
LD A,<br />
CP H <br />
JP NC<br />
LD H,<br />
PUSH<br />
CALL<br />
POP H<br />
JP 07
SEITE 28 <br />
BASIC 1Z-013B V1.0A <br />
Zeiger auf Verkettungsflag der Zeile mit V-Koordinate <br />
in H bereitstellen <br />
1454 05AE 5C LD E.H V-KOORDINATE <br />
1455 05AF 16 00 LD D. 00 OE ENTHÄLT OFFSET<br />
1456<br />
1457 05Bl 21 A7 00 LD HL~ 00A7 I ANFANG TABELLE MIT VER<br />
1458 IKETTUNGSFLAGS FUR SILD<br />
1459 ISCHIR<strong>MZ</strong>EILEN<br />
1460 0584 19 ADD HL,DE ZEIGER AUF FLAG ERRECHNEN<br />
1461 0585 C9 RET<br />
Bildschirmkoordinate aus Cursorposition errechnen<br />
1462 05S6 2A 54 00 LD HL. (0054) AKTUELLE CURSORPOSITION<br />
1463<br />
1464<br />
1465 05B9 05 PUSH OE REGISTER RETTEN<br />
1466 05BA CD C5 05 CALL 05C5 IBILDSPEICHEROFFSET AUF<br />
1467 IANFANG ZEILE AUS CURSOR<br />
1468 I POSITION ERRECHNEN<br />
1469 05SD 16 00 LD 0, 00 ANFANG BILDSPEICHER<br />
147(1<br />
1471 05BF 19 ADD HL,DE AKTUELLE ADRESSE ERRECHNEN<br />
1472 05CO 01 POP OE GERETTETES REGISTER HOLEN<br />
1473 05Cl C9 RET<br />
Bildspeicheroffset auf Anfang physikalische Zeile <br />
aus Cursorkoordinate errechnen <br />
1474 05C2 2A 54 00 LD HL, (0054) ; AKTUELLE CURSORKOORDINATE<br />
1475<br />
1476<br />
1477 05C5 50 LD E.L X-KOORDINATE<br />
1478 05C6 6C LD L.H V-KOORDINATE<br />
1479 05C7 26 00 LD H. 00 ; HL ENTHÄLT V-KOORDINATE<br />
1480<br />
1481 05C9 40 LD C.L V-KOORDINATE<br />
1482 05CA 44 LD B.H NULL<br />
1483 05CS 29 ADD HL,HL I MAL 2 (40 ZEICHEN<br />
1484 05CC 29 ADD HL.HL ; I MAL 4 JE ZEILE)<br />
1485 05CD 09 ADD HL.BC I MAL 5<br />
1486 05CE 29 ADD HL.HL I MAL 10<br />
1487 05CF 29 ADD HL.HL • I MAL 20<br />
1488 0500 29 ADD HL.HL ; I MAL 40<br />
1489 0501 C9 RET<br />
Steuerzeichen-Routine nach Steuerzeichen im Accu aufrufen<br />
1490 0502 6F LD L.A • STEUERZEICHEN<br />
1491 0503 26 00 LD H. 00 l HL ENTHÄLT OFFSET<br />
1492<br />
1493 05D5 29 ADD HL.HL MAL ZWEI<br />
1494 0506 01 67 00 LD BC. 0067 I ANFANG TABELLE MIT<br />
1495 IANFANGSADRESSEN DER<br />
1496 ISTEUERZEICHENROUTINEN<br />
1497 05D9 09 ADD HL.BC I ZEIGER AUF ADRESSE ERRECH.<br />
1498 05DA 4E LD C. (HLl I ADRESSE AUS TABELLE<br />
1499 05DB 23 INC HL I HOLEN<br />
BASIC 1<br />
1500 05DC 66 LD H.<br />
1501 0500 69 LD L,<br />
1502 05DE E9 JP (H<br />
Bildschirmausschnitt nach<br />
1503 05DF 01 28 00 LO BC<br />
1504<br />
1505<br />
150605E2 ED 43 FO 05 LO (0<br />
1507<br />
1508<br />
1509<br />
1510 05E6 09 EXX<br />
1511 05E7 C5 PUSH<br />
1512 05E8 09 EXX<br />
1513 05E9 44 LD B<br />
1514 05EA · 4D LD C<br />
1515 05EB 15 DEC 0<br />
1516 05EC 28 29 JR Z.<br />
1517<br />
1518 05EE 05 PUSH<br />
1519 05EF 21 28 00 LD HL<br />
1520<br />
1521<br />
1522 05F2 09 ADD H<br />
1523 05F3 E5 PUSH<br />
1524 05F4 E5 PUSH<br />
1525 05F5 D9 EXX<br />
1526 05F6 Cl POP. B<br />
1527 05F7 09 EXX<br />
1528 05F8 F3 01<br />
1529 05F9 03 E3 OUT<br />
1530<br />
1531 05FS D9 EXX<br />
1532 05FC OA LD A,<br />
1533 05FD 09 EXX<br />
1534 05FE 02 LD (B<br />
1535 05FF 09 EXX<br />
1536 0600 CS 98 RES 3<br />
1537<br />
1538 0602 OA LD A,<br />
1539 0603 CB 08 SET 3<br />
1540<br />
1541 0605 03 INC B<br />
1542 0606 09 EXX<br />
1543 0607 CS 98 RES 3<br />
1544<br />
1545 0609 02 LD (B<br />
1546 060A CB 08 SET 3<br />
1547<br />
1548 060C 03 I NC B<br />
1549 060D 10 DEC E<br />
1550 060E 20 EB JR NZ<br />
1551<br />
1552 0610 03 El OUT<br />
1553<br />
1554 0612 FB EI<br />
1555 0613 Ei POP H<br />
1556 0614 01 POP D<br />
1557 0615 18 02 JR 02
SEITE 30 <br />
BASIC 1Z-013B V1_0A <br />
1558 I ZEILEN<br />
1559 0617 60 LO H,B I ZEIGER AUF ZEILE<br />
1560 0618 69 LD L,C I DUPL I Z I EREN<br />
1561 0619 EO 4B 50 00 LO BC, (0050) ZEICHEN/HINTERGRUNDFARBE<br />
1562<br />
1563<br />
1564<br />
1565 0610 F3 01 INTERRUPT SPERREN<br />
1566 061E 03 E3 OUT (E3),A I UMSCHALTEN AUF SYSTEM<br />
1567 I ADRESSEN AB $0000<br />
1568 0620 71 LO (HL> ,C ZEICHEN/HINTERGRUNOFARBE<br />
1569 0621 CB 9C RES 3,H ZEIGER AUF BILDSPEICHER<br />
1570<br />
1571 0623 70 LO (HL>, B ZEICHEN LöSCHEN<br />
1572 0624 CB DC SET 3,H ZEIGER AUF FARB-SPEICHER<br />
1573<br />
1574 0626 23 INC HL AUF NÄCHSTES ZEICHEN<br />
1575 0627 1D DEC E RESTANZAHL ZEICHEN<br />
1576 0628 20 F6 JR NZ. F6 ~ 0620H WEITERE ZEICHEN LöSCHEN<br />
1577<br />
1578 062A D3 El OUT (E1>. A I UMSCHALTEN AUF RAM<br />
1579 I AB $0000<br />
1580 062C FB EI INTERRUPT FREIGEBEN<br />
1581 0620 D9 EXX<br />
1582 062E Cl POP BC GERETTETES REGISTER HOLEN<br />
1583 062F 09 EXX<br />
1584 063 0 C9 RET<br />
eine Bilschirmzeile von (HL> nach
SEITE 32<br />
BASIC 1Z-013B<br />
Bildschirminhalt um eine Zeile nach unten<br />
1661 067D 21 CF D7 LD HL. D7CF<br />
1662<br />
1663<br />
1664 0680 11 F7 07 LD OE. D7F7<br />
1665<br />
1666<br />
1667 0683 F3 DI<br />
1668 0684 06 32 LD B. 32<br />
1669<br />
1670 0686 C5 PUSH BC<br />
1671 0687 CD 35 06 CALL 0635<br />
1672<br />
1673<br />
1674 068A Cl POP BC<br />
1675 068B 10 F9 DJNZ F9 ~ 0686H<br />
1676<br />
1677 0680 21 00 07 LO HL. D700<br />
1678<br />
1679<br />
1680 0690 11 00 00 LD DE. DOOO<br />
1681<br />
1682<br />
1683 0693 CO 31 06 CALL 0631<br />
1684<br />
1685<br />
1686 0696 FB EI<br />
1687 0697 21 09 00 LO HL. 0009<br />
1688<br />
1689<br />
1690 069A 5D LD E.L<br />
1691 069B 54 LD O.H<br />
1692 069C 2B DEC HL ;<br />
1693 0690 lA LD A.
SEITE 34 <br />
BASIC 1Z-013B V1_0A <br />
1775 06EF 13 INC DE • IVERKETTUNGSFLAGS DER <br />
1776 06FO lA LD A. (OE) • I ZEILEN VERSCHIEBEN <br />
1777 06Fl 13 INC DE I <br />
1778 06F2 77 LD (HL>.A I <br />
1779 06F3 23 INC HL I <br />
1780 06F4 10 FA DJNZ FA ~ 06FOH I <br />
1781 <br />
1782 06F6 36 00 LD (HL>. 00 LETZTE ZEILE NICHT VERKETT. <br />
1783 <br />
1784 06F8 C9 RET <br />
Steuerzeichen HOME<br />
1785 06F9 3A 5B 00 LD A.
SEITE 36<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1 Z<br />
1879<br />
1880<br />
1881<br />
1882<br />
1883<br />
1884<br />
gesetzten Bilschirmausschnitt löschen<br />
0757 CD 04 07 CALL 0704 I WERTE FüR BILDSCHIRMlAUSSCHNITT<br />
BEREITSTELLEN<br />
075A<br />
0758<br />
075C<br />
05<br />
E5<br />
3A 50 00<br />
PUSH OE<br />
PUSH HL<br />
LD A, «050)<br />
ZEICHEN ZEILEN<br />
ZEIGER AUF AUSSCHNITT<br />
ZEICHEN/HINTERGRUNDFARBE<br />
1939<br />
1885 1940<br />
1886<br />
1887<br />
1888<br />
1889<br />
1890<br />
1891<br />
075F<br />
0760<br />
0762<br />
0763<br />
F3<br />
03<br />
77<br />
CB<br />
E3<br />
DI<br />
OUT (E3),A<br />
LD (HLl,A<br />
RES 3,H<br />
INTERRUPT SPERREN<br />
I UMSCHALTEN AUF·SYSTEM<br />
I ADRESSEN AB $DOOO<br />
HINTERGRUNDFARBE VORGEBEN<br />
ZEIGER AUF BILDSPEICHER<br />
9C<br />
1892<br />
1893 0765 36 00 LD (HLl, 00 ZEICHEN LöSCHEN<br />
1894<br />
1895 0767 CB DC SET 3,H ZEIGER AUF FARBSPEICHER<br />
1896<br />
1897 0769<br />
1898 076A<br />
1899 076B<br />
1900<br />
1901 0760<br />
1902<br />
1903 076F<br />
1904 0770<br />
1905 0771<br />
23<br />
ID<br />
20<br />
03<br />
FB<br />
EI<br />
01<br />
F5<br />
EI<br />
INC HL<br />
DEC E<br />
JR NZ, F5 ~<br />
OUT (EU ,A<br />
EI<br />
POP HL<br />
LD BC. 0028<br />
0762H<br />
AUF NÄCHSTES ZEICHEN<br />
RESTANZAHL ZEICHEN/ZEILE<br />
I WEITERE ZEICHEN IN DIESER<br />
I ZEILE LöSCHEN<br />
I UMSCHALTEN AUF<br />
I RAM AB $DOOO<br />
INTERRUPT FREIGEBEN<br />
ZEIGER AUF ANFANG ZEILE<br />
OFFSET AUF NÄCHSTE ZEILE<br />
1933<br />
1934<br />
1935<br />
1936<br />
1937<br />
1938<br />
1941<br />
1942<br />
1943<br />
1944<br />
1945<br />
1946<br />
-1947<br />
1948<br />
1949<br />
1950<br />
WagenrQcklauf (Zeilenvors<br />
0780 2A 54 00 LD HL<br />
0790<br />
0793<br />
0795<br />
0798<br />
0799<br />
079A<br />
3A<br />
E6<br />
32<br />
E5<br />
24<br />
CD<br />
5D<br />
7F<br />
5D<br />
AE<br />
00 LD A,<br />
00<br />
05<br />
AND A<br />
LD
SEITE 38<br />
SIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
1985 07Cl 3A 5B 00 LD A. (005B) X-KOORDINATE MINIMAL<br />
1986<br />
1987<br />
1988 07C4 6F LD L,A ALS X-KOORDINATE VORGEBEN<br />
1989<br />
1990<br />
1991<br />
1992<br />
1993<br />
1994<br />
1995<br />
1996<br />
1997<br />
1998<br />
1999<br />
2000<br />
2001<br />
07C5<br />
07C6<br />
07C9<br />
07CA<br />
07CC<br />
07CD<br />
07CE<br />
24<br />
3A 57 00<br />
BC<br />
30<br />
67<br />
E5<br />
CD<br />
06<br />
A5 06<br />
INC H<br />
LD A, (0057)<br />
CP H<br />
JR NC, 06<br />
LD H.A<br />
PUSH HL<br />
CALL 06A5<br />
~ 07D2H<br />
c<br />
Y-KOORDINATE<br />
Y-KOORDINATE<br />
PLUS EINS<br />
MINIMAL<br />
MIT Y-KOORDINATE VERGLEICH.<br />
IY-KOORDINATE IST OK ~<br />
ICURSORKOORDINATE MERKEN<br />
Y-KOORDINATE MAXIMAL<br />
CURSORKOORDINATE RETTEN<br />
BILDSCHIRM SCROLLEN<br />
2039<br />
2040<br />
2041<br />
2042<br />
Umstellen auf Alpha - Mo<br />
07F8<br />
07FA<br />
3 E<br />
21<br />
Umstellen<br />
2043 07FB 3E<br />
2044<br />
2045 07FD 21<br />
EF LD A.<br />
auf<br />
FF<br />
G~aphik - M<br />
0701 EI<br />
POP HL<br />
CURSORKOORDINATE HOLEN<br />
Umstellen auf Kleinschreib<br />
2002 0702 22 54 00 LD (0054),HL<br />
AKTUELLE CURSORKOORDINATE<br />
2003 2046 07FE 3E 43 LD A.<br />
2004 2047<br />
2005 07D5 C9 RET 2048 0800 32 60 00 LD (0<br />
2049<br />
2050<br />
Steue~zeichen Cu~so~ hoch 2051 0803 C9 RET<br />
LD A,<br />
2006 07D6 2A 54 00 LD HL. (0054) AKTUELLE CURSORKOORDINATE<br />
2~)7 SteL\erzei ehen Delete<br />
2008<br />
2009 0709 18 00 JR 00 ~ 07E8H IY-KOORDINATE, WENN 2052 0804 2A 54 00 LD HL<br />
2010 I MöGLICH, MINUS EINS 2053<br />
2054<br />
2055 0807 ED 4B 5B 00 LD BC<br />
Steue~zeichen Cu~so~ links 2056<br />
2057<br />
2011 07DB 2A 54 00 LD HL. (0054) AKTUELLE CURSORKOORDINATE 2058<br />
2012<br />
2059 080B 70 LD A,L<br />
2013<br />
2060 080C 20<br />
DEC L<br />
2014 07DE 3A 5B 00 LD A, (005B) X- KOORDINATE MINIMAL<br />
206 1 0800 OC<br />
INC C<br />
2015 2062 080E 89 CP C<br />
2016 2063 080F 3 0 OC JR NC<br />
2017<br />
2018 07El<br />
07E2<br />
BD<br />
38 OF<br />
CP<br />
JR C. L<br />
OF ~ 07F3H<br />
AKTUELLE<br />
I NOCH OK<br />
X-KOORDINATE<br />
~ X-KOORDINATE<br />
2019<br />
IMINUS EINS UND MERKEN<br />
2066<br />
2020 07E4 3A 5C 00 LD A, (005C)<br />
X-KOORDINATE MAXIMAL<br />
2067<br />
2021 2068<br />
2022<br />
2023<br />
2024 07E7<br />
07E8<br />
6F<br />
3A 56 00<br />
LD<br />
LD<br />
L,A<br />
A. (0056)<br />
ALS X-KOORDINATE VORGEBEN<br />
Y- KOORDINATE MINIMAL<br />
2064<br />
2065 0811 E5 PUSH<br />
2069<br />
2070<br />
2071<br />
08 12 CD AE 05 CALL<br />
2025 2072 0818 B7 OR A<br />
2026 2073 0819 28 3B JR Z,<br />
2027 07EB BC CP H AKTUELLE Y- KOORDINATE 2074<br />
2028 07EC 38 07 JR C. 07 ~ 07F5H I NOCH OK ~ Y-KOORDINATE 2075 081B 68 LD L,B<br />
2029 I MINUS EINS UND MERKEN 2076 081C 25 ED DEC H<br />
LD OE<br />
2030 07EE 3A 56 00 LD A.
SEITE 40<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
2085 0825 ~ 0843H 3A SB 00 LD A. (005B) X-KOORDINATE MINIMAL 2147<br />
2086<br />
2087<br />
2088 0828 BD CP L X-KOORDINATE Zeichen und Farbe nach in<br />
2089 0829 38 24 JR C. 24 ~ 084FH IWEITERE ZEICHEN IN ZEILE aus Bild- Farbspeicher na<br />
2090 I VERSCH I EBEN<br />
2091 2092 082B 082C E5<br />
CD AE 05 PUSH CALL HL<br />
05AE<br />
X/Y-KOORDINATE MERKEN<br />
I ZEIGER AUF VERKETTUNGS<br />
2148 2149 0864 0865 E5<br />
CD C5 05 PUSH<br />
CALL<br />
2093 IFLAG DER ZEILE BEREIT 2150<br />
2094 I STELLEN 2151<br />
2095 2096 082F 0830 7E<br />
E1<br />
LD A. (HL><br />
POP HL<br />
VERKETTUNGSFLAG HOLEN<br />
X/Y-KOORDINATE HOLEN<br />
2152 2153<br />
0868 16 08<br />
LO D.<br />
2097 0831 B7<br />
OR A<br />
ZEILE VERKETTET ?<br />
2154 086A 19<br />
ADD H<br />
2098 0832 28 OF JR Z. OF ILETZTES ZEICHEN IN<br />
2155 086B CD EA 00 CALL<br />
2099<br />
I VORIGER ZEILE LöSCHEN<br />
2156<br />
2100 0834 CD 64 08 CALL 0864 I ZEICHEN UND FARBE VON 2157<br />
2101 IKOORDINATE IN HL NACH 2158 086E 5F LD E.A<br />
2102 IDE HOLEN 2159 086F CB 9C RES 3<br />
2103 2104 0837 0838 E5<br />
3A 5C 00 PUSH HL<br />
LD A. (005C)<br />
X/Y-KOORDINATE<br />
X-KOORDINATE MAXIMAL<br />
0871 CD EA 00 CALL<br />
2105<br />
2106<br />
2107<br />
2108<br />
083B<br />
083C<br />
083D<br />
6F<br />
25<br />
CD<br />
LD L.A<br />
DEC H<br />
CALL 0880<br />
ALS X-KOORDIANATE VORGEBEN<br />
Y-KOORDINATE MINUS EINS<br />
I ZEICHEN UND FARBE IN DE<br />
2109<br />
80 08<br />
0876 57<br />
LD D.A<br />
2110 I NACH BILDSPEICHER AN 2167 0877 40 LD C,<br />
2111<br />
2112<br />
2113<br />
2114<br />
2115<br />
2116<br />
2117<br />
2118<br />
2119<br />
2120<br />
2121<br />
2122<br />
0840<br />
0841<br />
EI<br />
18 13<br />
POP HL<br />
JR 13 ~ 0856H<br />
I KOORDINATE IN<br />
X/Y-KOORDINATE<br />
0843 3A 5C 00 LD A.
SEITE 42<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
2195 0893 CB DC SET 3.H I ZEIGE WIEDER AUF 2249<br />
2196 I FARBSPEICHER 2250 08CA 03 INC BC<br />
2197 0895 40 LD C.L I ZEIGER AUF FARBSPEICHER 2251 08CB CD 7B 08 CALL 0<br />
2198 0896 44 LD B.H I NACH BC 2252<br />
2199<br />
2200<br />
2201<br />
2202<br />
0897<br />
0898<br />
EI<br />
C9<br />
POP<br />
RET<br />
HL X/Y-KOORDINATE 2253<br />
2254 08CE 18 E4 JR E4<br />
2256 0800 E5 PUSH H<br />
Cursor auf letztes Zeichen in Zeile stellen 2257 0801 68 LD L.8<br />
2258 0802 25 DEC H<br />
0899 2A 54 00 LD HL. (0054) AKTUELLE CURSORKOORDINATE 2259 0803 CD 64 08 CALL 0<br />
2260<br />
2203 2261<br />
2204<br />
089C CD C8 01 CALL 01C8 IY-KOORDINATE ENDE<br />
• PLUS EINS NACH OE<br />
2205<br />
2206 2264<br />
2207 089F ID DEC E IY-KOORDINATE ENDE 2265<br />
,,~C"'t::"<br />
4.,;;.....J~<br />
ZEILE 2262<br />
2263<br />
0806<br />
0807<br />
E3<br />
CD 80 08<br />
2208 08AO 63 LD H.E I LOGISCHE ZEILE 2266 D8DA EI POP HL<br />
2209<br />
08DB 18 D7 JR 07<br />
08Al 3A 5C 00 LD A. (005C) X-KOORDIANTE MAXIMAL 2267<br />
2268<br />
2210<br />
2211<br />
2212 08A4 6F LD L.A X-KOORDINATE ENDE ZEILE<br />
2213 08A5 C9 RET 2271<br />
2272<br />
2269<br />
2270<br />
EX (SP<br />
CALL 0<br />
08DD ED 5B 5D 00 LD OE.<br />
2273 08El C3 80 08 JP 088<br />
Steuerzeichen INST 2274<br />
2275<br />
2214 08A6 CD 99 08 CALL 0899 ICURSORKOORDINATE LEZTES<br />
2215 I ZEICHEN IN ZEILE NACH HL<br />
2216<br />
M~lodie (DE) ausgeben<br />
2217 08A9 CD 64 08 CALL 0864 I ZEICHEN UND FARBE AUS<br />
2218 18ILDSPEICHER MIT KOORDI 2276 08E4 C5 PUSH B<br />
2219 INATE IN HL NACH DE HOLEN 2277 08E5 D5 PUSH D<br />
2220<br />
2221<br />
08AC 3E FO LD A. FO SET - Space 2278<br />
2279<br />
2222 08AE BA CP D MIT ZEICHEN VERGLEICHEN 2280<br />
2223<br />
08E6<br />
08E7<br />
E5<br />
3E02<br />
PUSH H<br />
LD A.<br />
08AF 28 03 JR Z. 03 + 08B4H 'KEIN ZEICHEN AUF<br />
2281 08E9 32 38 OA LD (OA<br />
2224 08AF 28 03 JR Z. 03 + 08B4H I LETZTER STELLE<br />
2282<br />
2225 0881 AF<br />
XOR A<br />
NORMAL - Space<br />
2283<br />
2226 0882 BA<br />
CP D<br />
MIT ZEICHEN VERGLEICHEN<br />
2284 08EC 06 01 LD B.<br />
2227 0883 CO RET NZ STELLE NICHT FREI 2285<br />
2228<br />
2229<br />
08B4 ED 4B 5B 00 LD 8C. (005B) I X-KOORDINATE<br />
I MINIMAL/MAX IMAL<br />
2230<br />
2231 2289 08Fl 28 3E JR Z.<br />
2232 08B8 EB EX DE.HL KOORDINATEN NACH DE 2290<br />
2233 0889 2A 54 00 LD HL. (0054) c AKTUELLE CURSORKOORDINATE 2291 08F3 87<br />
OR A<br />
2234<br />
2292 08F4 28 3B JR Z.<br />
2235 2293<br />
2236 08BC B7 OR A CARRY-FLAG ZURüCKSETZEN 2294 08F6 FE C8 CP C8<br />
2237 08BD ED 52 S8C HL.DE<br />
KOORDINATEN VERGLEICHEN 2295<br />
2238<br />
2296 08F8 28 37 JR Z.<br />
2239 08BF EB<br />
EX DE.HL<br />
2297<br />
2240 08CO 28 18 JR Z. 18 + 08DDH ; • FERTIG VERSCHOBEN +<br />
2298 08FA FE CF CP CF<br />
2241<br />
I ZEICHEN UNTER CURSOR LöSCH<br />
2299<br />
2242 08C2 79 LD A.C ~ X-KOODINATE MINIMAL 2300 08FC 28 27 JR Z.<br />
2243 08C3 SD CP L AKTUELL KOORDINATE 2301<br />
2244<br />
08C4 30 OA JR NC. OA + 08DOH ZEICHEN AUS VORIGER ZEILE 2302 08FE FE 2D CP 2D<br />
2245<br />
2303<br />
2246 08C6 2D DEC L X-KOORDINATE MINUS EINS 2304 0900 28 23 JR Z.<br />
2247 08C7 CD 64 08 CALL 0864 I ZEICHEN UND FARBE AUS 2305<br />
2248 IBILDSPEICHER MIT KOORDI 2306 0902 FE 2B CP 2B<br />
2286<br />
2287<br />
2288<br />
08EE<br />
08EF<br />
lA<br />
FE OD<br />
LD<br />
CP<br />
A. <<br />
OD
BASIC 1Z<br />
SEITE 44<br />
2307<br />
2308 0904 28 27<br />
2309<br />
2310 0906 FE D7<br />
2311<br />
2312 0908 28 23<br />
2313<br />
2314 090A FE 23<br />
2315<br />
2316 090C 21 91<br />
2317<br />
2318<br />
2319 090F 20 04<br />
2320<br />
2321 0911 21 9F<br />
2322<br />
2323<br />
2324 0914 13<br />
2325 0915 CD 3D<br />
2326<br />
2327<br />
2328 0918 38 04<br />
2329<br />
2330 091A CD E2<br />
2331<br />
2332<br />
2333 091D 38 15<br />
2334<br />
2335 091F CD 87<br />
2336<br />
2337<br />
2338 0922 41<br />
2339 0923 18 C9<br />
2340<br />
Untere Oktave<br />
2341 0925 3E 03<br />
2342<br />
2343 0927 32 38<br />
2344<br />
2345<br />
2346 092A 13<br />
2347092B . 18 Cl<br />
2348<br />
Obere Oktave<br />
2349 092D 3E 01<br />
2350<br />
2351 092F 18 F6<br />
2352<br />
Ende Musik<br />
2353 0931 CD E2<br />
2354<br />
2355<br />
2356 0934 F5<br />
BASIC 1Z-013B<br />
JR Z. 27 ~ 092DH<br />
CP 07<br />
JR Z. 23 ~ 092DH<br />
CP 23 ••<br />
09 LD HL. 0991<br />
JR NZ. 04 ~ 0915H<br />
09 LD HL. 099F<br />
INC OE<br />
09 CALL 093D<br />
JR C. 04 ~ 08EEH<br />
09 CALL 09E2<br />
JR C. 15 ~ 0934H ;<br />
09 CALL 09B7<br />
LD B.C<br />
JR C9 ~ 08EEH<br />
merken<br />
LD A. 03 ;<br />
OA LD (OA38).A ;<br />
INC OE<br />
JR Cl ~ 08EEH l<br />
merken<br />
LD A. 01 •<br />
JR F6 ~ 0927H<br />
09 CALL 09E2<br />
PUSH AF<br />
V1.0A<br />
JA ~ OBERE OKTAVE SETZEN<br />
SEITE 46 <br />
BASIC 1Z-013B V1_0A <br />
2415 096F E6 FO AND A. FO H-NIBBLE MASKIEREN <br />
2416 <br />
2417 0971 FE 30 CP 30 ZAHL ? <br />
2418 <br />
2419 0973 28 03 JR Z. 03 ~ 0978H JA (Unte~suchung ungenau) <br />
2420 <br />
2421 0975 7E LD A. (HU ALTE TONLÄNGE HOLEN <br />
2422 0976 18 05 JR 05 ~ 097DH I ZÄHLER FüR TONLÄNGE <br />
2423 I ERRECHNEN <br />
2424 0978 13 INC OE ZEIGER AUF MELODIE <br />
2425 0979 78 LD A.B ASCII-ZAHL HOLEN <br />
2426 097A E6 OF AND A. OF ZAHLWERT MASKIEREN <br />
2427 <br />
2428 097C 77 LD (HU.A ALS TONLÄNGE MERKEN <br />
2429 0970 21 AD 09 LD HL. 09AD I ZEIGER AUF TABELLE FüR <br />
2430 I TONLÄNGEN <br />
2431 <br />
2432 0980 4F LD C.A ANGEGEBENE TONLÄNGE <br />
2433 0981 06 00 LD B, 00 IBC ENTHÄLT OFFSET <br />
2434 I AUF TABELLE <br />
2435 0983 09 ADD HL,BC ZEIGER AUF TABELLE ERRECHN. <br />
2436 0984 4E LD C. (HU LÄNGENWERT AUS TABELLE <br />
2437 0985 3A 32 OA LD A, (OA32) GESETZTES TEMPO <br />
2438 <br />
2439 <br />
2440 0988 47 LD B,A TEMPOZAHL <br />
2441 0989 AF XOR A ACCU AUF NULL <br />
2442 098A 81 ADD A,C I WARE TONLÄNGE AUS TEMPO <br />
2443 098B 10 FD DJNZ FD ~ 098AH IUND ANGEGEBENER TON<br />
2444 I LÄNGE ERRECHNEN <br />
2445 0980 Cl POP BC I GERETTETES REGISTER HOLEN <br />
2446 098E 4F LD C,A ZÄHLER FüR TONLÄNGE <br />
2447 098F AF XOR A FLAG OK SETZEN <br />
2448 0990 C9 RET <br />
Tabelle fUr Teilungsverhältnis für normale Töne<br />
2449 0991 EC 04 Teilungsve~hältnis A <br />
2450 3520 Hz <br />
2451 0993 64 04 Teilungsve~hältnis B <br />
2452 3951 Hz <br />
2453 0995 46 08 Teilungsve~hältnis C <br />
2454 2093 Hz <br />
2455 0997 5F 07 Teilungsve~hältnis 0 <br />
2456 2349 Hz <br />
2457 0999 91 06 Teilungsverhältnis E <br />
2458 2637 Hz <br />
2459 099B 33 06 Teilungsve~hältnis F <br />
2460 2794 Hz <br />
2461 0990 86 05 Teilungsverhältnis G <br />
2462 3136 Hz <br />
Tabelle für Teilungsverhältnis für e~höhte Töne<br />
2463 099F A5 04 ITeilungsve~hältnis #A <br />
2464 I 3729 Hz <br />
2465 09Al 23 04 ITeilungsve~h~ltnis #B <br />
2466 I 4186 Hz <br />
2467 09A3 CF 07 ITeilungsve~hältnis #C <br />
2468 I 2217 Hz <br />
BASIC 1Z<br />
2469 09A5 F~ 06<br />
2470 <br />
2471 09A7 33 06<br />
2472 <br />
2473 09A9 DA 05<br />
2474 <br />
2475 09AB 37 05 <br />
2476 <br />
Tabelle für Tonlängenzähle<br />
2477 09AD 01<br />
2478 09AE 02<br />
2479 09AF 03<br />
2480 09BO 04<br />
2481 09Bl 06<br />
2482 09B2 08<br />
2483 09B3 OC<br />
2484 0984 10<br />
2485 09B5 18<br />
2486 0986 20<br />
Ton nach gesetztem Teilung<br />
2487 09B7 2A 39 OA LD HL.<br />
2488 <br />
2489 <br />
2490 09BA 7C LD A.H<br />
2491 09B8 B5 OR L<br />
2492 09BC 28 14 JR Z,<br />
2493 <br />
2494 09BE 05 PUSH O<br />
2495 09BF EB EX DE.<br />
2 496 09CO 21 04 EO LD HL.<br />
2497 <br />
2498 <br />
2499 09C3 F3 01 <br />
2500 09C4 D3 E3 OUT (E<br />
2501 <br />
2502 (l9C6 73 LD (H<br />
2503 09C7 72 LD (H<br />
2504 09Ca 3E 01 LD A.<br />
2505 <br />
2506 09CA 32 08 EO LD (E<br />
2507 <br />
2508 <br />
2509 09CD 03 El OUT (E<br />
2510 <br />
2511 09CF FB EI <br />
2512 0900 01 POP OE<br />
2513 0901 C9 RET
SEITE 48<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
Ton STOP Tempo setzen<br />
2514<br />
2515<br />
2516<br />
2517<br />
2518<br />
2519<br />
2520<br />
2521<br />
2522<br />
2523<br />
2524<br />
2525<br />
2526<br />
09D2<br />
09D4<br />
09D5<br />
09D7<br />
09DA<br />
09DB<br />
3E 36<br />
F3<br />
D3 E3<br />
32 07<br />
AF<br />
32 08<br />
EO<br />
EO<br />
LD A. 36<br />
01<br />
OUT (E3).A<br />
LD (E007).A<br />
XOR A<br />
LD (E008).A<br />
MODE - SET (8253 COUNTERO)<br />
INTERRUPT SPERREN<br />
IUMSCHALTEN AUF SYSTEM<br />
I ADRESSEN AB $DOOO<br />
I MODE DES TONGENERATORS<br />
I INITIIEREN<br />
CODE KEIN TON<br />
AN TONGENERATOR AU8GEBEN<br />
09DE 03 E1<br />
OUT (EU.A<br />
I UMSCHALTEN AUF<br />
2527<br />
I RAM AB $DOOO<br />
2528 09EO FB EI INTERRUPT FREIGEBEN<br />
2529 09El C9 RET<br />
2564 OA04<br />
2565 OA05<br />
2566 OA06<br />
2567<br />
2568 OA08<br />
2569 OA09<br />
2570<br />
2571 OAOB<br />
2572 OAOC<br />
2573<br />
2574<br />
2575 OAOF<br />
2576 OAI0<br />
2577 OAII<br />
F5<br />
C5<br />
E6<br />
47<br />
3E<br />
90<br />
32<br />
Cl<br />
Fl<br />
C9<br />
OF<br />
08<br />
32 OA<br />
PUSH AF<br />
PUSH BC<br />
AND A.<br />
LD B.A<br />
LD A. 0<br />
SUB B<br />
LD COA<br />
POP BC<br />
POP AF<br />
RET<br />
2578 OA12 AF XOR A<br />
2530<br />
2531<br />
2532<br />
2533<br />
2534<br />
2535<br />
2536<br />
2537<br />
2538<br />
2539<br />
2540<br />
2541<br />
2542<br />
2543<br />
2544<br />
Ende des Ton entsprechend Tonlängenzähler in B abwarten<br />
09E2<br />
09E5<br />
09E6<br />
09E8<br />
09EA<br />
09EB<br />
99EC<br />
09EE<br />
09EF<br />
2545 09F1<br />
2546<br />
2547<br />
2548 09F4<br />
2549 09F5<br />
2550<br />
2551 09F7<br />
2552<br />
2553<br />
2554 09FA<br />
2555 09FB<br />
2556<br />
2557 09FD<br />
2558<br />
2559 09FF<br />
2~60 OAOO<br />
2561<br />
2562 OA02<br />
2563 OA03<br />
21<br />
F3<br />
D3<br />
36<br />
23<br />
7E<br />
E6<br />
37<br />
28<br />
3A<br />
00<br />
E3<br />
F8<br />
81<br />
OF<br />
08<br />
OF<br />
38 FA<br />
3A 08<br />
OF<br />
30 FA<br />
10 F2<br />
AF<br />
03 EI<br />
FB<br />
C9<br />
EO<br />
EO<br />
EO<br />
LD HL. EOOO<br />
01<br />
OUT (E3).A<br />
LD (HU. F8<br />
INC HL<br />
LD A. (HU<br />
AND A. 81<br />
SCF<br />
JR Z. OF ~<br />
LD A. (E008)<br />
OAOOH :<br />
RRCA<br />
JR C. FA ~ 09FIH<br />
LD A. (E008)<br />
RRCA<br />
JR NC. FA ~ 09F7H<br />
DJNZ F2 ~ 09FIH<br />
XOR A<br />
OUT (El).A<br />
EI<br />
RET<br />
:<br />
:<br />
•<br />
:<br />
I ZEIGER AUF TASTATUR<br />
• AUSGABEPORT<br />
INTERRUPT SPERREN<br />
• UMSCHALTEN AUF SYSTEM<br />
• ADRESSEN AB $0000<br />
SPALTE MIT SHIFT/BREAK<br />
ZEIGER AUF EINGABE-PORT<br />
WERT VON TASTATUR HOLEN<br />
SHIFT-BREAK GEDRüCKT ?<br />
CODE UNTERBROCHEN<br />
SHIFT-BREAK GEDRüCKT<br />
TEMPO-TIMER LESEN<br />
STATUS NACH CARRY<br />
LOW-STATUS ABWARTEN<br />
TEMPO-TIMER LESEN<br />
STATUS NACH CARRY<br />
HIGH-STATUS ABWARTEN<br />
WEITER WARTEN<br />
CODE OK<br />
• UMSCHALTEN AUF<br />
'RAM AB $0000<br />
INTERRUPT WIEDER FREIGEBEN<br />
Referenzton ausgeben<br />
2579 OA13<br />
2580 OA14<br />
2581<br />
2582<br />
2583 OA17<br />
2584<br />
2585 OA 19<br />
2586<br />
2587 OAIB<br />
2588<br />
2589 OAID<br />
2590<br />
2591<br />
2592 OA20<br />
2593 OA21<br />
2594 OA22<br />
2595<br />
2596<br />
2597 OA25<br />
2598<br />
2599<br />
2600 OA28<br />
2601 OA29<br />
2602 OA2A<br />
2603 OA2B<br />
2604<br />
2605 OA2D<br />
2606<br />
2607<br />
2608 OA30<br />
2609 OA31<br />
E5<br />
21 F8 03<br />
28 09<br />
FE 01<br />
28 10<br />
CD BA 09<br />
E1<br />
C9<br />
CD BA 09<br />
21 10 27<br />
28<br />
7C<br />
B5<br />
20 FB<br />
CD 02 09<br />
EI<br />
C9<br />
PUSH H<br />
LD HL.<br />
JR Z.<br />
CP 01<br />
JR Z.<br />
CALL 0<br />
POP HL<br />
RET<br />
CALL 0<br />
LD HL.<br />
DEC HL<br />
LD A.H<br />
OR L<br />
JR NZ.<br />
CALL 0<br />
POP HL<br />
RET<br />
2610 OA32 04<br />
26 11 OA33 00 NOP<br />
2612 OA34 00 NOP<br />
2613 OA35 00 NOP
SEITE 50<br />
BASIC 1Z-013B<br />
2614 OA36 00 NOP<br />
2615 OA37 00<br />
2616 OA38 00<br />
2617 OA39 00 00<br />
2618<br />
Kennung (Header) auf Band schreiben<br />
2619 OA3B 3E CC LD A, CC c<br />
2620<br />
2621 OA3D 18 02 JR 02 ~ OA41H<br />
2622<br />
Daten auf Band schreiben<br />
2623 OA3F 3E 53 LD A, 53<br />
2624<br />
2625 OA41 D5 PUSH DE<br />
2626 OA42 5F LD E,A<br />
2627 OA43 16 D7 LD D, D7<br />
2628<br />
2629 OA45 78 LD A,B<br />
263 0 OA46 B1 OR C<br />
2631 OA47 28 28 JR Z, 28 ~ OA71H<br />
2632<br />
2633 OA49 CD AC OA CALL OAAC<br />
2634<br />
2635<br />
2636 OA4C CD CE OA CALL OACE<br />
2637<br />
2638<br />
2639 OA4F 38 1D JR C, 1D ~ OA6EH<br />
2640<br />
2641 OA51 7B LD A,E<br />
2642 OA52 FE CC CP CC ;<br />
2643<br />
2644 OA54 20 11 JR NZ. 11 ~ OA67H<br />
2645<br />
2646 OA56 3A 50 00 LD A. (0050)<br />
2647<br />
2648<br />
2649 OA59 B7 OR A<br />
2650 OA5A 20 OB JR NZ. OB ~ OA67H<br />
2651<br />
2652 OA5C CD 09 00 CALL 0009<br />
2653<br />
2654<br />
2655 OA5F D5 PUSH DE<br />
2656 OA60 11 03 18 LD DE. 1803<br />
2657<br />
2658<br />
2659 OA63 CD C8 16 CALL 16C8<br />
2660<br />
2661<br />
2662 OA66 D1 POP DE •<br />
2663 OA67 F3 DI c<br />
2664 OA68 CD 5A OB CALL OB5A<br />
2665<br />
2666<br />
2667 OA6B D4 85 08 CALL NC, OB85<br />
V1_0A<br />
TONLANGE<br />
OKTAVE<br />
TEILUNGSVERHALTNIS<br />
CODE KENNUNG<br />
CODE DATEN<br />
REGISTER RETTEN<br />
CODE KENNUNG/DATEN<br />
CODE SCHREIBEN<br />
I LANGE GLEICH NULL?<br />
I<br />
GERETTETES REGISTER HOLEN <br />
I PRüFSUMME DES BEREICHES <br />
I AUSZAHLEN <br />
MOTOR AN <br />
BREAK GEDRüCKT <br />
FLAG KENNUNG/DATEN <br />
KENNUNG ? <br />
NEIN <br />
BAND-TEXTAUSGABE-FLAG <br />
GESETZT ? <br />
KEINE TEXTAUSGABE <br />
I ZEILENVORSCHUB AUSGEBEN. <br />
I WENN CURSOR NICHT AUF <br />
IANFANG ZEILE STEHT <br />
REGISTER RETTEN <br />
TEXT WRITING <br />
I TEXT UND DATEINAMEN <br />
I AUSGEBEN <br />
GERETTETES REGISTER HOLEN <br />
INTERRUPT SPERREN <br />
IKENNMARKE AUF BAND <br />
I SCHREIBEN <br />
I NICHT GEBREAKT ~ <br />
2668<br />
2669<br />
2670<br />
2671<br />
2672<br />
2673<br />
2674<br />
2675<br />
2676<br />
2677<br />
2678<br />
2679<br />
2680<br />
2681<br />
2682<br />
2683<br />
2684<br />
2685<br />
2686<br />
2687<br />
2688<br />
2689<br />
2690<br />
2691<br />
2692<br />
2693<br />
2694<br />
2695<br />
2696<br />
2697<br />
2698<br />
2699<br />
2700<br />
2701<br />
2702<br />
2703<br />
2704<br />
2705<br />
2706<br />
2707<br />
2708<br />
2709<br />
2710<br />
2711<br />
2712<br />
2713<br />
2714<br />
2715<br />
2716<br />
2717<br />
BASIC 1Z<br />
OA6E CD<br />
38 OB CALL O<br />
OA71 D1<br />
OA72 F5<br />
OA73 AF<br />
OA74 32<br />
POP DE<br />
PUSH A<br />
XOR A<br />
50 00 LD (00<br />
OA77 Fl<br />
OA78 C9<br />
OA79 C9<br />
POP AF<br />
RET<br />
RET<br />
Kennung<br />
(Header) vom Ban<br />
OA7A 3 E <br />
CC LD A,<br />
OA7C 18 <br />
02 JR 02<br />
Daten vom <br />
Band lesen<br />
OA7E 3 E <br />
5 3 LD A,<br />
OA80 D5 <br />
OA81 16 <br />
PUSH D<br />
D2 LD D,<br />
OA83 5F<br />
OA84 78<br />
OA85 B1<br />
OA86 28<br />
LD E,A<br />
LD A,B<br />
OR C<br />
E9 JR Z.<br />
OA88 CD<br />
CE OA CALL O<br />
OA8B F3<br />
OA8C D4<br />
01 <br />
2A OC CALL N<br />
OA8F D4<br />
66 OC CALL N<br />
OA92 18<br />
DA JR DA<br />
Dat en auf<br />
Band vergleichen<br />
OA94 D5 <br />
OA95 16 <br />
PUSH O<br />
D2 LD D,<br />
OA97 1E<br />
53 LD E,<br />
OA99 78<br />
OA9A B1<br />
OA9B 28<br />
LD A,B<br />
OR C<br />
D4 JR Z,<br />
OA9D CD<br />
AC OA CALL O
SEITE 52<br />
BASIC 1Z-013B<br />
2718<br />
2719<br />
2720 OAAO CD CE OA CALL OACE<br />
2721<br />
2722<br />
2723 OAA3 F3 01<br />
2724 OAA4 04 2A OC CALL NC, OC2A<br />
2725<br />
2726<br />
2727 OAA7 D4 OF OC CALL NC, OCDF<br />
2728<br />
2729<br />
2730 OAAA 18 C2 JR C2 ~ OA6EH<br />
2731<br />
PrUfsumme des Bereiches auszählen<br />
2732 OAAC C5 PUSH BC<br />
2733 OAAD 05 PUSH OE<br />
2734 OAAE E5 PUSH HL<br />
2735 OAAF 11 00 00 LD DE, 0000<br />
2736<br />
2737<br />
2738 OAB2 78 LD A,B<br />
2739 OAB3 BI OR C<br />
2740 OAB4 20 09 JR NZ, 09 ~ OABFH<br />
2741<br />
2742 OAB6 EB EX OE,HL<br />
2743 OAB7 22 BF OE LO (OEBF>,HL<br />
2744<br />
2745<br />
2746 OABA 22 Cl OE LD , HL<br />
2747<br />
2748<br />
2749 OABD 18 78 JR 78 ~ OB37H<br />
2750<br />
2751 OABF 7E LD A, (HL><br />
2752 OACO CS PUSH BC<br />
2753 OACI 06 08 LO B, 08<br />
2754<br />
2755 OAC3 07 RLCA<br />
2756 OAC4 30 01 JR NC, 01 ~ OAC7H<br />
2757<br />
2758 OAC6 13 INC DE<br />
2759 OAC7 10 FA DJNZ FA ~ OAC3H<br />
2760<br />
2761 OAC9 Cl POP BC<br />
2762 OACA 23 INC HL<br />
2763 OACB OB OEC BC<br />
2764 OACC 18 E4 JR E4 ~ OAB2H<br />
2765<br />
V1.0A<br />
• AUSZAHLEN<br />
ABFRAGE, OB MOTOR LAUFT<br />
INTERRUPT SPERREN<br />
I KEIN FEHLER ~<br />
'KENNMARKE AUF BAND SUCHEN<br />
• KEIN FEHLER ~<br />
I BYTES VOM BAND LESEN<br />
'UND VERGLEICHEN<br />
I MOTOR AUS UND GERETTETE<br />
'REGISTER HOLEN<br />
I REGISTER RETTEN<br />
, VORGABE FüR PRüFSUMME<br />
'RESTANZAHL BYTES<br />
I GLEICH NULL?<br />
WEITER AUSZAHLEN<br />
PRüFSUMME NACH HL<br />
PRüFSUMME EINS<br />
PRüFSUMME ZWEI<br />
GERETTETE REGISTER HOLEN<br />
EIN BYTE HOLEN<br />
RESTANZAHL RETTEN<br />
ACHT BIT JE BYTE<br />
EIN BIT NACH CARRY SCHIEBEN<br />
I NICHT GESETZT ~<br />
I NICHT ZAHLEN<br />
PRüFSUMME PLUS EINS<br />
WEITERE BIT'S IM BYTE<br />
RESTANZAHL HOLEN<br />
ZEIGER AUF BYTES<br />
RESTANZAHL MINUS EINS<br />
üBERPRüFEN, OB FERTIG<br />
Motor<br />
2766 OACE<br />
2767 OACF<br />
2768 OADO<br />
2769 OAOI<br />
2770<br />
2771<br />
2772 OAD4<br />
2773<br />
2774 OAD6<br />
2775<br />
2776<br />
2777 OA09<br />
2778<br />
2779 OAOB<br />
2780<br />
2781<br />
2782 OAOE<br />
2783<br />
2784<br />
2785 OAEI<br />
2786<br />
2787 OAE3<br />
2788<br />
2789 OAE5<br />
2790<br />
2791 OAE7<br />
2792<br />
2793<br />
2794 OAEA<br />
2795<br />
2796 OAEC<br />
2797 OAEO<br />
2798<br />
2799 OAEF<br />
2800<br />
2801<br />
2802 OAF2<br />
2803<br />
2804 OAF4<br />
2805<br />
2806<br />
2807 OAF7<br />
2808 OAF8<br />
2809<br />
2810<br />
2811 OAFB<br />
2812<br />
2813 OAFD<br />
2814<br />
2815<br />
2816 OBOO<br />
2817 OBOI<br />
2818<br />
2819 OB03<br />
2820<br />
2821<br />
2822 OB06<br />
2823<br />
BASIC 1Z<br />
des Cassettenlaufwe<br />
C5 PUSH<br />
05 PUSH<br />
E5 PUSH<br />
21 00 EO LD HL<br />
.3E F8 LD A,<br />
CO F2 00 CALL O<br />
06 OA LO B,<br />
21 02 EO LO HL,<br />
CO EA 00 CALL O<br />
E6 10 AND A,<br />
28 OA JR Z,<br />
06 A6 LO B,<br />
CD 4C OD CALL 0<br />
10 FB OJNZ F<br />
AF XOR A<br />
18 48 JR 48<br />
21 03 EO LD HL,<br />
3E 06 LO A,<br />
CD F2 00 CALL O<br />
3C INC A<br />
CO F2 00 CALL 0<br />
10 OE OJNZ O<br />
3A 50 00 LO A. (0<br />
B7<br />
20 IF<br />
OR<br />
JR<br />
A<br />
NZ,<br />
CD 09 00 CALL 00<br />
3E 7F LD A, 7
SEITE 54<br />
BASIC 1Z-013B<br />
2824 OB08 CD 5E 05 CALL 055E<br />
2825<br />
2826<br />
2827 OBOB CD OC 00 CALL OOOC<br />
2828<br />
2829<br />
2830 OBOE 7A LO A,D<br />
2831 OBOF FE D7 CP D7<br />
2832<br />
2833 OBll 20 06 JR NZ. 06 ~ OB19H<br />
2834<br />
2835 OB13 11 C3 OE LD DE. OEC3<br />
2836<br />
2837<br />
2838 OB16 CD 51 00 CALL 0051<br />
2839<br />
2840<br />
2841 OB19 11 CB OE LD DE, OECB<br />
2842<br />
2843<br />
2844 OBIC CD 51 00 CALL 0051<br />
2845<br />
2846<br />
2847 081F CD 09 00 CALL 0009<br />
2848<br />
2849<br />
2850 OB22 21 02 EO LD HL, E002<br />
2851<br />
2852<br />
2853 OB25 CD EA 00 CALL OOEA<br />
2854<br />
2855<br />
2856 OB28 E6 10 AND A, 10<br />
2857<br />
2858 OB2A 20 B9 JR NZ. B9 ~ OAE5H<br />
2859<br />
2860 OB2C 21 01 EO LD HL. EOOl<br />
2861<br />
2862<br />
2863 OB2F CD EA 00 CALL OOEA<br />
2864<br />
2865<br />
2866 OB32 E6 80 AND A. 80<br />
2867<br />
2868 OB34 20 EC JR NZ. EC ~ OB22H<br />
2869<br />
2870 OB36 37 SCF<br />
2871 OB37 EI POP HL<br />
2872 OB38 Dl POP OE<br />
2873 OB39 Cl POP BC<br />
2874 OB3A C9 RET<br />
Cassetten - Motor Stop<br />
2875 OB3B F5 PUSH AF c<br />
2876 OB3C C5 PUSH BC<br />
2877 OB 3D 06 OA LO B. OA<br />
2878<br />
2879 OB3F F3 DI<br />
2880 0840 03 E3 OUT (E3), A<br />
2881<br />
V1_0A<br />
I ZEICHEN IM ACCU OHNE<br />
I UNTERSUCHUNG AUF STEUER<br />
I ZEICHEN AUSGEBEN<br />
EIN Space AUSGEBEN<br />
FLAG LESEN/SCHREIBEN<br />
CODE SCHREIBEN<br />
DATEN LESEN<br />
TEXT RECORO.<br />
TEXT AB (OE) AUSGEBEN<br />
TEXT PLAY<br />
TEXT AB (DE) AUSGEBEN<br />
IZEILENVoRSCHUB AUSGEBEN.<br />
I WENN CURSOR NICHT AUF<br />
IANFANG ZEILE STEHT<br />
ZEIGER AUF STATUSPORT 8255<br />
WERT VOM STATUSPORT HOLEN<br />
MoTOR-FLAG MASKIEREN<br />
MOTOR LÄUFT<br />
I ZEIGER AUF TASTATUR<br />
I EINGABEPORT<br />
WERT VON TASTATUR HOLEN<br />
BREAK-TASTE MASKIEREN<br />
INICHT GEDRüCKT ~<br />
I WEITER ABFRAGEN<br />
CODE BREAK<br />
I GERETTETE REGISTER HOLEN<br />
I REGISTER RETTEN<br />
I<br />
MAXIMAL 10 VERSUCHE<br />
INTERRUPT SPERREN<br />
I UMSCHALTEN AUF SYSTEM<br />
I ADRESSE AB $0000<br />
BASIC 1Z<br />
2882 OB42 3A 02 EO LD A.<br />
2883<br />
2884<br />
2885 OB45 E6 10 AND A<br />
2886<br />
2887 0847 28 OB JR . Z.<br />
2888<br />
2889 OB49 3E 06 LD A.<br />
2890<br />
2891 OB4B 32 03 EO LD (E<br />
2892<br />
2893<br />
2894 OB4E 3e INC A<br />
2895 OB4F 32 03 EO LD (E<br />
2896<br />
2897<br />
2898 OB52 10 EE OJNZ<br />
2899<br />
2900 0854 D3 Ei OUT (<br />
2901<br />
2902 OB56 FB EI<br />
2903 0857 Cl POP 8C<br />
2904 0858 Fl POP A<br />
2905 0859 C9 RET<br />
Kennmarke auf Band schreib<br />
2906 085A C5 PUSH<br />
2907 OB5B E5 PUSH<br />
2908 085C 7B LD A.E<br />
2909 085D 01 F8 2A LD BC<br />
2910<br />
2911<br />
2912 0860 2 1 14 14 LD HL<br />
2913<br />
2914<br />
2915 0863 FE ce CP C<br />
2916<br />
2917 0865 2 0 04 JR NZ<br />
2918<br />
2919 OB67 01 Fa 55 LO BC<br />
2920<br />
2921<br />
2922 OB6A 29 AOO H<br />
2923 086B CD FE OB CALL<br />
2924<br />
2925<br />
2926 OB6E OB DEC B<br />
2927 086F 78 LO A.B<br />
2928 OB70 BI OR C<br />
2929 0871 20 F8 JR NZ<br />
2930<br />
2931 OB73 CD OF OB CALL<br />
2932<br />
2933<br />
2934 OB76 25 DEC H<br />
2935 OB77 20 FA JR NZ<br />
2936<br />
2937 0879 CD FE OB CALL O<br />
2938<br />
2939
SEITE 56<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
2940<br />
2941<br />
2942<br />
2943<br />
2944<br />
2945<br />
2946<br />
2947<br />
2948<br />
2949<br />
2950<br />
2951<br />
2952<br />
2953<br />
2954<br />
2955<br />
2956<br />
2957<br />
2958<br />
2959<br />
OB7C<br />
OB70<br />
OB7F<br />
OB82<br />
OB83<br />
OB84<br />
2D<br />
20<br />
CD<br />
El<br />
Cl<br />
C9<br />
FA<br />
DF OB<br />
DEC L<br />
JR NZ. FA<br />
CALL OBDF<br />
POP HL<br />
POP BC<br />
RET<br />
~ OB79H<br />
RESTANZAHL KURZE IMPULSE<br />
I WEITERE KURZE IMPULSE<br />
lAUF BAND SCHREIBEN<br />
ILANGEN IMPULS AUF<br />
I BAND SCHRE I BEN<br />
I GERETTETE REGISTER HOLEN<br />
3008<br />
Kennung/Daten auf Band aufzeichnen 3009<br />
OB85<br />
OB86<br />
OB87<br />
OB88<br />
OB8A<br />
OB8C<br />
OB8D<br />
OB8F<br />
D5<br />
C5<br />
E5<br />
16<br />
3E<br />
F3<br />
D3<br />
32<br />
02<br />
F8<br />
E3<br />
00 EO<br />
PUSH DE<br />
PUSH BC<br />
PUSH HL<br />
LD D. 02<br />
LD A. F8<br />
DI<br />
OUT (E3).A<br />
LD (EOOO).A<br />
; REGISTER RETTEN<br />
ANZAHL BYTES<br />
ZEIGER AUF BYTES<br />
ZWEI MAL AUFZEICHNEN<br />
2960 I AUSGEBEN<br />
2961<br />
ICoDEWERT FüR SPALTE<br />
IMIT BREAK-TASTE<br />
INTERRUPT SPERREN<br />
I UMSCHALTEN AUF SYSTEM<br />
I ADRESSEN AB $0000<br />
•. ISPALTENWERT AN TASTATUR<br />
2 998<br />
2999<br />
3000<br />
3001<br />
3002<br />
3003<br />
3004<br />
3005<br />
3006<br />
3007<br />
OBB6<br />
OBB9<br />
OBBA<br />
OBBB<br />
OBBO<br />
OBBF<br />
CO<br />
AF<br />
15<br />
28<br />
06<br />
CD<br />
OF<br />
00<br />
00<br />
FE<br />
OB<br />
OB<br />
CALL<br />
XOR A<br />
OEC 0<br />
JR Z.<br />
LO B.<br />
CALL<br />
3010 OBC2 10 FB OJNZ<br />
2962 OB92 D3 El OUT (El).A I UMSCHAL TEN AUF Byte im Accu auf Band sch<br />
2963<br />
2964<br />
2965<br />
2966<br />
2967<br />
2968<br />
2969<br />
2970<br />
2971<br />
2972<br />
2973<br />
2974<br />
2975<br />
2976<br />
2977<br />
OB94<br />
OB95<br />
OB98<br />
OB9A<br />
OB9D<br />
OB9F<br />
7E<br />
CD<br />
D3<br />
3A<br />
D3<br />
E6<br />
CE<br />
E3<br />
01<br />
El<br />
80<br />
OB<br />
EO<br />
LD A. (HL><br />
CALL OBCE<br />
OUT (E3).A<br />
LD A. (EOOl)<br />
OUT (EU. A<br />
AND A. 80<br />
I RAM AB $0000<br />
EIN BYTE HOLEN<br />
BYTE AUF BAND SCHREIBEN<br />
I UMSCHALTEN AUF SYSTEM<br />
I ADRESSEN AB SDOOO<br />
IZEILENWERT VON TASTATUR<br />
I HOLEN<br />
I UMSCHALTEN AUF<br />
I RAM AB SOOOO<br />
BREAK-TASTE MASKIEREN<br />
OBAl 37<br />
SCF<br />
CODE BREAK GEDRüCKT<br />
OBDB 10 F7<br />
OJNZ<br />
2978 2979<br />
OBA2 28 26 JR Z. 26 ~ OBCAH BREAK GEDRüCKT ~ ABBRUCH<br />
OBDD Cl<br />
POP B<br />
2980 OBA4 23 INC HL ZEIGER AUF BYTES 3038 OBOE C9 RET<br />
2981 OBA5 OB DEC BC RESTANZAHL BYTES<br />
2982 OBA6 78 LD A.B I GLEICH NULL?<br />
2983 OBA7 Bl OR C I Langen Impuls auf Band sc<br />
2984<br />
2985 OBA8 C2 94 OB JP NZ. OB94 WEITERE BYTES AUSGEBEN OBDF F5 PUSH<br />
2986 3039 3040 OBEO E5 PUSH<br />
2987 OBAB 2A BF OE LD HL. (OEBF) PRüFSUMME HOLEN 3041 OBEl 21 03 EO LD HL<br />
2988<br />
3042<br />
2989 3043<br />
2990 OBAE 7C<br />
LD A.H<br />
; H-BYTE PRüFSUMME<br />
3044 OBE4 3E 03<br />
LD A.<br />
2991 OBAF CD CE OB CALL OBCE<br />
• IBYTE IM ACCU AUF BAND<br />
3045<br />
2992<br />
I SCHREIBEN<br />
3046 OBE6 CD 1C OC CALL<br />
2993<br />
3047<br />
2994 OBB2 7D LD A.L L-BYTE PRüFSUMME 3048<br />
2995<br />
2996<br />
2997<br />
OBB3 CD CE OB CALL OBCE IBYTE IM ACCU<br />
I SCHREIBEN<br />
3011<br />
3012<br />
3013<br />
3014<br />
30 15<br />
3016<br />
3017<br />
30 18<br />
30 19<br />
3020<br />
3021<br />
3022<br />
3023<br />
3024<br />
3025<br />
3026<br />
3027<br />
3028<br />
3029<br />
3030<br />
3031<br />
3032<br />
3033<br />
3034<br />
3035<br />
3036<br />
3037<br />
AUF BAND 3049<br />
3050<br />
3051<br />
OBC4<br />
OBC5<br />
OBC6<br />
OBC7<br />
OBC8<br />
OBCA<br />
OBCB<br />
OBCC<br />
OBCO<br />
OBCE<br />
OBCF<br />
OBD1<br />
OB04<br />
OB05<br />
OBD8<br />
OBE9<br />
OBEB<br />
El<br />
Cl<br />
C5<br />
E5<br />
18<br />
El<br />
Cl<br />
01<br />
C9<br />
C5<br />
06<br />
CD<br />
07<br />
OC<br />
04<br />
3E<br />
00<br />
CA<br />
08<br />
OF<br />
DF<br />
FE<br />
OB<br />
OB<br />
OB<br />
POP H<br />
POP B<br />
PUSH<br />
PUSH<br />
JR CA<br />
POP H<br />
POP B<br />
POP O<br />
RET<br />
PUSH<br />
LD B.<br />
CALL<br />
RLCA<br />
CALL<br />
CALL<br />
60 LD A.<br />
NOP<br />
I
SEITE 58<br />
BASIC 1Z-013B<br />
3052 OBEC CO 47 00 CALL OD47<br />
3053<br />
3054<br />
3055 OBEF 3E 02 LO A, 02<br />
3056<br />
3057 08Fl CD lC OC CALL OCIC<br />
3058<br />
3059<br />
3060 OBF4 3E 6F LO A, 6F<br />
3061<br />
3062 OBF6 3E 5F LO A, 5F<br />
3063<br />
3064 OBF8 CD 47 OD CALL 0047<br />
3065<br />
3066<br />
3067 08F8 EI POP HL<br />
3068 OBFC Fl POP AF<br />
3069 OBFD C9 RET<br />
Kurzen Impuls auf Band schreiben<br />
3070 OB FE F5 PUSH AF<br />
3071 OBFF E5 PUSH HL<br />
3072 OCOO 21 03 EO LD HL, E003<br />
3073<br />
3074<br />
3075 OC03 3E 03 LD A, 03<br />
3076<br />
3077 OC05 CD 1C OC CALL OClC<br />
3078<br />
3079<br />
3080 OC08 3E 2E ·LD A, 2E<br />
3081<br />
3082 OCOA CD 47 OD CALL 0047<br />
3083<br />
3084<br />
3085 OCOO 3E 02 LD A, 02<br />
3086<br />
3087 OCOF CD lC OC CALL OCIC<br />
3088<br />
3089<br />
.3090 OC12 3E 2B LD A, 2B<br />
3091<br />
3092 OC14 00 NOP<br />
3093 OC15 00 NOP<br />
3094 OC16 CD 47 00 CALL 0047<br />
3095<br />
3096<br />
3097 OC19 EI POP HL<br />
3098 OCtA Fl POP AF<br />
3099 OCl8 C9 RET<br />
V1.0A<br />
CODE IMPULS AUS<br />
IAN STEUERBAUSTEIN<br />
I AUSGEBEN<br />
I ZEITSCHLEIFE 386 usec<br />
I (Impuls LOW soll<br />
I 494 usec sein)<br />
I GERETTETE REGISTER HOLEN<br />
I REGISTER RETTEN<br />
I ZEIGER AUF KONTROLL<br />
IWORTREGISTER 8255<br />
CODE IMPULS AN<br />
IAN STEUER8AUSTEIN<br />
I AUSGEBEN<br />
I ZEITSCHLEIFE 190 usec<br />
I (Impuls HIGH soll<br />
240 usec sein)<br />
CODE IMPULS AUS<br />
IAN STEUERBAUSTEIN<br />
I AUSGEBEN<br />
I ZEITSCHLEIFE 180 usec<br />
I<br />
I (Impuls LOW soll<br />
I 264 usec sein)<br />
I GERETTETE REGISTER HOLEN<br />
Steuer wort<br />
3100 OC1C F3<br />
3101 OCID 03<br />
3102<br />
3103 OCIF 77<br />
3104 OC20 D3<br />
3105<br />
3106 OC22 C9<br />
Datenwort<br />
3107 OC23 F3<br />
3108 OC24 03<br />
3109<br />
3110 OC26 7E<br />
3111 OC27 03<br />
3112<br />
3113 OC29 C9<br />
Kennmarke<br />
3114 OC2A D5<br />
3115 OC28 C5<br />
3116 OC2C E5<br />
3117 OC2D 7B<br />
3118 OC2E FE<br />
3119<br />
3120 OC30 3E<br />
3121<br />
3122 OC32 20<br />
3123<br />
3124 OC34 87<br />
3125 OC35 57<br />
3126 OC36 21<br />
3127<br />
3128<br />
3129 OC39 5A<br />
3130 OC3A CD<br />
3131<br />
3132<br />
3133 OC30 38<br />
3134<br />
3135 OC3F CD<br />
3136<br />
3137<br />
3138 OC42 CD<br />
3139<br />
3140<br />
3141 OC45 E6<br />
3142<br />
3143 OC47 28<br />
3144<br />
3145 OC49 10<br />
3146 OC4A 20<br />
3147<br />
3148 OC4C 5A<br />
3149 OC4D CD<br />
3150<br />
3151<br />
BASIC 1Z<br />
an Steuerbaust<br />
01<br />
E3 OUT (<br />
LD (H<br />
~1 OUT (<br />
RET<br />
vom Steuerbaust<br />
01<br />
E3 OUT (<br />
LD A,(<br />
EI OUT (<br />
RET<br />
auf Band suchen<br />
PUSH<br />
PUSH<br />
PUSH<br />
LD A,<br />
CC CP C<br />
14 LO A.<br />
01 JR NZ<br />
ADD A<br />
LO O,A<br />
02 EO LO HL<br />
LO E.O<br />
24 OD CALL<br />
23 JR C,<br />
44 OD CALL<br />
23 OC CALL<br />
20 AND A<br />
FO JR Z.<br />
DEC E<br />
EE JR NZ<br />
LD E.D<br />
24 OD CALL<br />
I<br />
I<br />
I<br />
I<br />
I<br />
I
SEITE 60 <br />
BASIC 1Z-013B V1.0A <br />
3152 OC50 38 10 JR C, 10 ~ OC62H BREAK GEDRüCKT<br />
3153<br />
3154 OC52 CD 44 OD CALL OD44 I ZEITSCHLEIFE 278 usec<br />
3155 (SoI1=368)<br />
3156<br />
3157 OC55 CD 23 OC CALL OC23 STATUSWERT VOM 8255 HOLEN<br />
3158<br />
3159<br />
3160 OC58 E6 20 AND A, 20 BANDEINGANG MASKIEREN<br />
3161<br />
3162 OC5A 20 DD JR NZ. DD ~ OC39H I IST KURZER IMPULS ~<br />
3163 (VON VORNE ANFANGEN<br />
3164 OC5C 1D DEC E RESTANZAHL LANGE IMPULSE<br />
3165 OC5D 20 EE JR NZ. EE ~ OC4DH WEITERE LANGE IMPULSE<br />
3166<br />
3167 OC5F CD 24 OD CALL OD24 ( IMPULSSTART DES NÄCHSTEN<br />
3168 I BITS SUCHEN<br />
3169<br />
3170 OC62 EI POP HL I GERETTETE REGISTER HOLEN<br />
3171 OC63 Cl POP BC 1<br />
3172 OC64 Dl POP DE 1<br />
3173 OC65 C9 RET<br />
In BC angegebene Anzahl Bytes vom Band nach (HL) laden<br />
3174 OC66 05 PUSH DE 1 REGISTER RETTEN<br />
3175 OC67 C5 PUSH BC 1<br />
3176 OC68 E5 PUSH HL I<br />
3177 OC69 16 02 LD D, 02 ZWEI DURCHLÄUFE<br />
3178<br />
3179 OC6B 21 02 EO LD HL. E002 ZEIGER AUF STATUSPORT 8255<br />
3180<br />
3181<br />
3182 OC6E CD 24 OD CALL OD24 IMPULSSTART SUCHEN<br />
3183<br />
3184<br />
3185 OC71 38 EF JR C. EF ~ OC62H BREAK GEDRüCKT<br />
3186<br />
3187 OC73 CD 44 OD CALL OD44 , ZEITSCHLEIFE 278 usec<br />
3188<br />
(So11=368)<br />
3189<br />
3190 OC76 CD 23 OC CALL OC23 STATUSWERT VOM 8255 LESEN<br />
3191<br />
3192<br />
3193 OC79 E6 20 AND A. 20 BANDEINGANG MASKIEREN<br />
3194<br />
3195 OC7B 28 Fl JR Z, Fl ~ OC6EH LANGEN START IMPULS SUCHEN<br />
3196<br />
3197 OC7D 21 00 00 LD HL. 0000 ZÄHLER AUF NULL<br />
3198<br />
3199<br />
3200 OC80 22 BF OE LD (OEBF),HL PRüFSUMMENZÄHLER<br />
3201<br />
3202<br />
3203 OC83 EI POP HL I ZEIGER AUF SPEICHER<br />
3204 OC84 Cl POP BC I I ANZAHL BYTES<br />
3205 OC85 C5 PUSH BC I<br />
3206 OC86 E5 PUSH HL ZEIGER AUF SPEICHER<br />
3207 OC87 CD B3 OC CALL OCB3 I EIN BYTE LESEN<br />
3208<br />
3209<br />
3210 OC8A 38<br />
3211<br />
3212 OC8C 77<br />
3213 OC8D 23<br />
3214 aC8E OB<br />
3215 OC8F 78<br />
3216 aC90 81<br />
3217 OC91 20<br />
3218<br />
3219 aC93 2A<br />
3220<br />
3221<br />
3222 OC96 CD<br />
3223<br />
3224<br />
3225 OC99 38<br />
3226<br />
3227 OC9B 5F<br />
3228 OC9C CD<br />
3229<br />
3230<br />
3231 OC9F 38<br />
3232<br />
3233 eCAl BD<br />
3234 OCA2 20<br />
3235<br />
3236 OCA4 7B<br />
3237 aCA5 BC<br />
3238 OCA6 20<br />
3239<br />
3240 aCA8 AF<br />
3241 OCA9 18<br />
3242<br />
3243 OCAB 15<br />
3244 OCAC 20<br />
3245<br />
3246 OCAE 3E<br />
3247<br />
3248 OCBO 37<br />
3249 OCBl 18<br />
3250<br />
ein Byte<br />
3251 OCB3 05<br />
3252 OCB4 C5<br />
3253 OCB5 E5<br />
3254 OCB6 21<br />
3255<br />
3256<br />
3257 OCB9 ED<br />
3258<br />
3259<br />
3260<br />
3261 OCBD 01<br />
3262<br />
3263<br />
3264 ecco CD<br />
3265<br />
3266<br />
3267 OCC3 38<br />
BASIC<br />
D6<br />
F4<br />
BF OE<br />
B3 OC<br />
C7<br />
83 OC<br />
Cl<br />
07<br />
03<br />
B7<br />
BD<br />
02<br />
AF<br />
lesen<br />
02 EO<br />
5B BF OE<br />
00 08<br />
24 OD<br />
56<br />
1Z<br />
JR C,<br />
LD (H<br />
INC H<br />
DEC B<br />
LD A.<br />
OR C<br />
JR NZ<br />
LD HL<br />
CALL<br />
JR C.<br />
LD E.A<br />
CALL<br />
JR C.<br />
CP L<br />
JR NZ<br />
LD A.<br />
CP H<br />
JR NZ<br />
XOR A<br />
JR ''B7<br />
DEC D<br />
JR NZ<br />
LD A.<br />
SCF<br />
JR AF<br />
PUSH<br />
PUSH<br />
PUSH<br />
LD HL<br />
LD DE<br />
LD BC<br />
CALL<br />
JR C,
SEITE 62 <br />
BASIC 1Z-013B V1.0A <br />
3268 <br />
3269 OCC5 CO 44 00 CALL OD44 ZEITSCHLEIFE 278 usec <br />
3270 (Soll=368)<br />
3271 <br />
3272 OCC8 CO 23 OC CALL OC23 STATUSWERT VOM 8255 LESEN <br />
3273<br />
3274<br />
3275 OCCB E6 20 AND A, 20 BANDEINGANG MASKIEREN<br />
3276<br />
3277 OCCD 28 02 JR Z, 02 ~ OCD1H I
SEITE 64<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
3381<br />
3382<br />
3383<br />
3384<br />
3385<br />
3386<br />
3387<br />
3388<br />
3389<br />
3390<br />
3391<br />
3392<br />
3393<br />
3394<br />
3395<br />
3396<br />
3397<br />
3398<br />
3399<br />
3400<br />
3401<br />
3402<br />
3403<br />
0035<br />
0036<br />
0038<br />
0039<br />
0038<br />
0030<br />
003F<br />
0040<br />
0042<br />
0043<br />
07<br />
30 08<br />
7E<br />
E6<br />
28<br />
03<br />
C9<br />
03<br />
37<br />
C9<br />
20<br />
F5<br />
El<br />
RLCA<br />
JR NC. 08 + 0040H<br />
LO A. (HU<br />
ANO A. 20<br />
JR Z. F5 + 0032H<br />
OUT (EU. A<br />
RET<br />
El OUT<br />
SCF<br />
RET<br />
Zeitschleife 278 usec<br />
0044<br />
0046<br />
0047<br />
0048<br />
0048<br />
3E<br />
00<br />
3D<br />
C2<br />
C9<br />
44 LO A. 44<br />
NOP<br />
OEC A<br />
47 00 JP NZ.<br />
RET<br />
Zeitschleife 10 msec<br />
3404 004C<br />
3405 0040<br />
3406<br />
3407 004F<br />
3408<br />
3409<br />
3410 0052<br />
3411<br />
3412 0054<br />
3413 0055<br />
3414<br />
3415<br />
3416<br />
3417<br />
C5<br />
06<br />
CO<br />
10<br />
Cl<br />
C9<br />
24<br />
56<br />
F8<br />
00<br />
PUSH BC<br />
LO B. 24<br />
CALL 0056<br />
8REAK-TASTE NACH<br />
8REAK GEDRüCKT<br />
WERT VOM STATUSPORT HOLEN<br />
8ANDEINGANG MASKIEREN<br />
IMPULSANFANG SUCHEN<br />
I UMSCHALTEN AUF<br />
I RAM A8 $0000<br />
(EU. A I UMSCAHLTEN AUF<br />
I RAM AB $0000<br />
CODE 8REAK GEDRüCKT<br />
168 * 14 + 35<br />
1<br />
I ZÄHLER<br />
CARRY Uhr-zeit setzen<br />
TAKT ZYKLEN<br />
3418 005A<br />
3419 0058<br />
3420 005C<br />
3421 0050<br />
3422 OD5E<br />
3423<br />
3424<br />
342~ 0061<br />
3426<br />
3427<br />
3428<br />
3429<br />
3430<br />
0064<br />
0065<br />
F3<br />
C5<br />
D5<br />
E5<br />
32<br />
21<br />
AF<br />
ED<br />
64<br />
CO<br />
52<br />
00<br />
A8<br />
01<br />
PUSH<br />
PUSH<br />
PUSH<br />
LO (0<br />
LO HL<br />
XOR A<br />
SBC H<br />
3431 3432 OD67 0068 E5<br />
00<br />
PUSH<br />
NOP<br />
3433 0069 E8 EX OE<br />
OD6A 21 07 EO LD HL<br />
3434<br />
3435<br />
3436<br />
3437<br />
3438<br />
3439<br />
3440<br />
0047 I WEITER WARTEN 3441<br />
3442<br />
3443<br />
DJNZ F8 + 004FH<br />
POP 8C<br />
RET<br />
REGISTER RETTEN<br />
36 DURCHLÄUFE<br />
ZEITSCHLEIFE 278 usec<br />
WEITER WARTEN<br />
GERETTETES REGISTER HOLEN<br />
3444<br />
3445<br />
3446<br />
3447<br />
3448<br />
3449<br />
3450<br />
3451<br />
3 452<br />
3453<br />
3 454<br />
3455<br />
3 456<br />
3457<br />
3458<br />
OD6D<br />
OD6F<br />
OD71<br />
0073<br />
OD74<br />
0075<br />
0076<br />
OD77<br />
0079<br />
0078<br />
007C<br />
0070<br />
OD7F<br />
0080<br />
0081<br />
0082<br />
D3<br />
36<br />
36<br />
28<br />
73<br />
E3<br />
74<br />
72<br />
28<br />
36 OA<br />
36<br />
23<br />
23<br />
3 6<br />
28<br />
4E<br />
7E<br />
8A<br />
OUT (<br />
LO (H<br />
80 LO (H<br />
3459 0083 20 F8 JR NZ<br />
3460<br />
Zeitschleife 260 usec 3461 0085 79 LD A,C<br />
0056<br />
0058<br />
3E<br />
18<br />
3F<br />
EO<br />
LO<br />
JR<br />
A. 3F<br />
EO + 0047H ;<br />
63 * 14 +<br />
EINSPRUNG<br />
29<br />
IN<br />
TAKTZYKLEN<br />
SCHLEIFE<br />
3462<br />
3463<br />
3464<br />
3465<br />
3466<br />
0086<br />
0087<br />
0089<br />
OD8A<br />
88<br />
20<br />
28<br />
00<br />
00<br />
80<br />
F7<br />
OEC HL<br />
LO (!-l<br />
LO (H<br />
DEC HL<br />
LD (H<br />
LD (H<br />
INC HL<br />
INC HL<br />
LD (H<br />
DEC HL<br />
LO C,<br />
LO A.<br />
CP 0<br />
CP E<br />
JR NZ<br />
DEC HL<br />
NOP<br />
3467 0088 00 NOP<br />
3468 OD8C 00 NOP<br />
3469 0080 36 F8 LD (H<br />
3470<br />
3471 OD8F 36 3C LO (H<br />
3472<br />
3473 0091 03 E1 OUT (<br />
3474<br />
3 475 0093 23 INC HL<br />
3476 0094 01 POP OE<br />
3 477 0095 03 E3 OUT (E<br />
~<br />
I
SEITE<br />
3478<br />
3479 0097<br />
3480 0098<br />
3481 0099<br />
3482<br />
3483 OD9B<br />
3484 OD9C<br />
3485<br />
3486 OD9E<br />
3487 OD9F<br />
3488 ODAO<br />
3489<br />
3490 ODA2<br />
3491 ODA3<br />
3492 ODA4<br />
3493 ODA5<br />
3494 ODA6<br />
Uhr-zeit<br />
3495 ODA7<br />
3496 ODA8<br />
3497 ODA9<br />
3498<br />
3499<br />
3500 ODAC<br />
3501<br />
3502 ODAE<br />
3503<br />
3504 ODBO<br />
3505 ODBI<br />
3506 ODB2<br />
3507 ODB3<br />
3508<br />
3509 ODB5<br />
3510 ODB6<br />
3511 ODB7<br />
3512 ODB8<br />
3513<br />
3514 ODBA<br />
3515 ODBB<br />
3516<br />
35 17<br />
3518 ODBE<br />
3519<br />
3520 ODCO<br />
3521<br />
3522 ODC2<br />
3523 ODC3<br />
3524<br />
3525<br />
3526 ODC6<br />
3527 ODC7<br />
3528 ODC8<br />
3529<br />
3530<br />
3531 ODCB<br />
3532<br />
3533<br />
3534 ODCE<br />
3535<br />
66<br />
4E<br />
7E<br />
03 EI<br />
BA<br />
20 F9<br />
CF7)<br />
79<br />
BB<br />
20 F5<br />
(F3)<br />
EI<br />
01<br />
Cl<br />
FB<br />
C9<br />
lesen<br />
E5<br />
F3<br />
21 07<br />
03 E3<br />
36 80<br />
2B<br />
5E<br />
56<br />
03 EI<br />
FB<br />
7B<br />
B2<br />
28 OE<br />
AF<br />
21 CO<br />
ED 52<br />
38 10<br />
EB<br />
3A 64<br />
EI<br />
C9<br />
11 CO<br />
3A 64<br />
EE 01<br />
BASIC 1Z-013B<br />
LD C, (HU<br />
LD A, (HU<br />
OUT (El).A<br />
CP 0<br />
JR NZ, F9 ? OD97H<br />
LD A.C<br />
CP E<br />
JR NZ, F5 ? OD97H<br />
POP HL <br />
POP OE <br />
POP BC <br />
EI <br />
RET <br />
PUSH HL<br />
01<br />
EO LD HL, E007<br />
OUT (E3),A<br />
LD (HU, 80<br />
DEC HL<br />
LD E, (HU<br />
LD D, CHU<br />
OUT (EU ,A<br />
EI<br />
LD A,E<br />
OR D<br />
JR Z, OE ? ODC8H<br />
XOR A ;<br />
A8 LD HL, A8CO<br />
SBC HL.DE<br />
JR C, 10 ~ ODD2H<br />
EX DE,HL ;<br />
00 LD A. (0064)<br />
POP HL<br />
RET<br />
A8 LD OE, A8CO<br />
00<br />
LD A, (0064)<br />
XOR 01<br />
V1.0A<br />
• ADRESSEN AB $0000<br />
• TI MER LESEN<br />
•• UMSCHALTEN AUF<br />
I RAM AB $DOOO<br />
VERGLEICHEN<br />
WEITER ABFRAGEN<br />
L-BYTE WERT<br />
VERGLEICHEN<br />
WE ITER ABFRAGEN<br />
·<br />
• GERETTETE REGISTER HOLEN<br />
•<br />
I NTERRUPT FREIGEBEN<br />
REGISTER RETTEN<br />
INTERRUPT SPERREN<br />
KONTROLLWORTREGISTER 8253<br />
'UMSCHALTEN AUF SYSTEM<br />
• ADRESSEN AB · $DOOO<br />
READ-MODE TIMER 2<br />
• TIMER 2 LESEN<br />
I • UMSCHALTEN AUF<br />
I RAM AB $DOOO<br />
INTERRUPT FREIGEBEN<br />
ITIMER GLEICH NULL?<br />
I<br />
I GERADE VOR INTERRUPT<br />
I ERWISCHT<br />
CARRY-FLAG ZURüCKSETZEN<br />
I ANZAHL SEKUNDEN FüR<br />
I 12 STUNDEN<br />
SEKUNDENZAHL ERRECHNEN<br />
• INTERRUPT NICHT AUSGE<br />
IFüHRT ~ WERTE CORRIGIEREN<br />
SEKUNDEN NACH OE<br />
FLAG VORMITTAG/NACHMITTAG<br />
GERETTETES REGISTER HOLEN<br />
I SEKUNDEN ZAHL FüR<br />
I 12 STUNDEN<br />
FLAG VORMITTAG/NACHMITTAG<br />
FLAG UMKEHREN<br />
3536 ODDO EI<br />
3537 ODDI C9<br />
3538 ODD2 F3<br />
3539 ODD3 21<br />
3540<br />
3541<br />
3542 ODD6 D3<br />
3543<br />
3544 ODD8 7E<br />
3545 ODD9 2F<br />
3546 ODDA 5F<br />
3547 ODDB 7E<br />
3548 ODDC 2F<br />
3549 ODDD 57<br />
3550 ODDE D3<br />
3551<br />
3552 ODEO FB<br />
3553 ODEI 13<br />
3554 ODE2 18<br />
3555<br />
Inter-r-upt<br />
3556 ODE4 3557 ODE5 F'<br />
F5<br />
3558 ODE6 C5<br />
3559 ODE7 D5<br />
3560 ODE8 E5<br />
356 1 ODE9 21<br />
3562<br />
3563<br />
3564 ODEC 7E<br />
3565 ODED EE<br />
3566<br />
3567 ODEF 77<br />
3568 ODFO 21<br />
3569<br />
3570<br />
3571 ODF3 D3<br />
3572<br />
3573 ODF5 36<br />
3574<br />
3575 ODF7 03<br />
3576<br />
3577 ODF9 2B<br />
3578 ODFA E5<br />
3 579 ODFB 03<br />
3580<br />
3581 ODFD 5E<br />
3582 ODFE 56<br />
3583 ODFF 03<br />
3584<br />
3585 OEOI 21<br />
3586<br />
3587<br />
3588 OE04 19<br />
3589 OE05 2B<br />
3590 OE06 2B<br />
3591 OE07 EB<br />
BASIC 1Z<br />
POP HL<br />
RET <br />
06 EO<br />
01 <br />
LD HL,<br />
E3<br />
OUT (E<br />
EI<br />
LD A, (<br />
CPL <br />
LD E,A<br />
LD A, (<br />
CPL <br />
LD D,A<br />
OUT (E<br />
E7<br />
EI <br />
INC DE<br />
JR E7<br />
- Routine<br />
fUr- 12<br />
64 00<br />
01<br />
PUSH A<br />
PUSH B<br />
PUSH O<br />
PUSH H<br />
LD HL,<br />
01<br />
LD A. (<br />
XOR 0<br />
07 EO<br />
LD (HU<br />
LD HL,<br />
E3<br />
OUT (E<br />
80<br />
LD (HU<br />
EI<br />
OUT (E<br />
E3<br />
OEC HL<br />
PUSH H<br />
OUT (E<br />
EI<br />
LD E. (<br />
LD D. (<br />
OUT (E<br />
CO A8<br />
LD HL,<br />
ADD HL<br />
DEC HL<br />
DEC HL<br />
EX DE,H<br />
.
SEITE 68 <br />
BASIC 1Z-013B V1_0A <br />
3592 OE08 EI POP HL ZEIGER AUF TIMER 2 (8253)<br />
3593 OE09 D3 E3 OUT (E3).A I UMSCHALTEN AUF SYSTEM<br />
3594 I ADRESSEN AB $DOOO<br />
3595 OEOB 73 LD (HU.E IRESTWERT IN TIMER<br />
3596 OEOC 72 LD (HU.D I EINTRAGEN<br />
3597 OEOD 03 EI OUT (EU.A I UMSCHALTEN AUF<br />
3598 I RAM AB $DOOO<br />
3599 OEOF EI POP HL I GERETTETE REGISTER HOLEN<br />
3600 OE10 Dl POP DE I<br />
3601 OEII Cl POP BC I<br />
3602 OE12 Fl POP AF I<br />
3603 OE13 FB EI INTERRUPT WIEDER FREIGEBEN<br />
3604 OE14 C9 RET<br />
Rest Z-80 - Befehl für Abfrage JOY-Stick nach Richtungs<br />
und JOY-Stick-Nummer bereitstellen <br />
3605 OE15 3E 4E LD A. 4E BIT 1. (HL><br />
3606<br />
3607 OE17 20 DEC L ZÄHLER MINUS EINS<br />
3608 OE18 C8 RET Z BEFEHL STIMMT<br />
3609 OE19 3E 56 LD A. 56 BIT 2. (HU<br />
3610<br />
3611 OE1B 20 DEC L ZÄHLER MINUS EINS<br />
3612 OE1C C8 RET Z BEFEHL STIMMT<br />
3613 OE1D 3E 5E LD A. 5E BIT 3. (HU<br />
3614<br />
3615 OE1F 2D DEC L ZÄHLER MINUS EINS<br />
3616 OE20 C8 RET Z BEFEHL STIMMT<br />
3617 OE21 3E 66 LD A. 66 BIT 4. (HU<br />
3618<br />
3619 OE23 20 DEC L ZÄHLER MINUS EINS<br />
3620 OE24 C9 RET<br />
Abfrage Analog - Joystick<br />
3621 OE25 D5 PUSH DE REGISTER RETTEN<br />
3622 OE26 32 45 OE LD COE45). A REST BEFEHL EINTRAGEN<br />
3623<br />
,3624<br />
3625 OE29 11 FF FF LD DE. FFFF VORGABE FüR ZÄHLER<br />
3626<br />
3627<br />
3628 OE2C 21 02 EO LD HL. E002 ZEIGER AUF STATUSPORT 8255<br />
3629<br />
3630<br />
3631 OE2F F3 01 = INTERRUPT SPERREN<br />
3632 OE30 D3 E3 OUT (E3). A I UMSCHALTEN AUF SYSTEM<br />
3633 I ADRESSEN AB $0000<br />
3634 OE32 CB 7E BIT 7. (HU lAUF ABFALLENDE FLANKE<br />
3635 IV-BLANK-IMPULS WARTEN<br />
3636 OE34 CA 32 OE JP Z. OE32 I<br />
3637 I<br />
3638 I<br />
3639 OE37 CB 7E BIT 7. (HU ; I<br />
3640 I<br />
3641 OE39 C2 37 OE JP NZ. OE37 I<br />
3642<br />
3643<br />
3644 OE3C 2E 08 LD L. 08 ZEIGER AUF JOYSTICK-PORT<br />
BASIC 1Z<br />
3645 <br />
3646 3647<br />
OE3E 3E 11 LD A.<br />
3648 OE40 3D DEC A<br />
3649 .3650 <br />
OE41 20 FD JR NZ<br />
3651 OE43 13 INC O<br />
3652 OE44 CB 46 BIT O<br />
3653 ( 1-<br />
3654 OE46 CA 43 OE JP Z.<br />
3655<br />
3656 <br />
3657 OE49 03 EI OUT (<br />
3658<br />
3659 OE4B FB EI<br />
3660 OE4C 7A LD A.D<br />
3661 OE4D B7 OR A<br />
3662 OE4E 7B LD A,E<br />
3663 OE4F 3664 <br />
28 02 JR Z.<br />
3665 OE51 3666 <br />
3E FF LD A,<br />
3667 OE53 32 66 00 LD (00<br />
3668 <br />
3669 <br />
3670 OE56 Dl POP DE<br />
3671 OE57 EI POP HL<br />
3672 OE58 37 SCF<br />
3673 OE59 C9 RET<br />
Rest Z- 80 - Befehl für Ab<br />
und JOY-Stick-Nummer bere<br />
3674 OE5A 3E 4E<br />
3675<br />
LD A.<br />
3676 OE5C 20 DEC L<br />
3677 OE5D C8 RET Z<br />
3678 OE5E 3E 56 LD A.<br />
3679 <br />
3680 OE60 2D DEC L<br />
3681 OE61 C8 RET Z<br />
LD A.<br />
3682 OE62 3E 5E<br />
3683<br />
3684 OE64 2D DEC L<br />
3685 OE65 C8 RET Z<br />
3686 OE66 3E 66 LD A.<br />
3687<br />
3688 OE68 20 DEC L<br />
3689 OE69 C9 RET<br />
Joy - Sticks abfragen<br />
3690 OE6A 3C INC A<br />
3691 OE6B E5 PUSH H<br />
3692 OE6C '3693 OE6D 3694<br />
6F LD L.A<br />
CD 15 OE CALL O<br />
3695<br />
3696 3697<br />
OE70 CA 25 OE JP Z. O
SEITE 70<br />
3698<br />
Digital JOY<br />
3699 OE73 CD 5A<br />
3700<br />
3701<br />
3702 OE76 32 AC<br />
3703<br />
3704<br />
3705 OE79 32 8A<br />
3706<br />
3707<br />
3708 OE7C 21 02<br />
3709<br />
3710<br />
3711 OE7F F3<br />
3712 OE80 D3 E3<br />
3713<br />
3714 OE82 CB 7E<br />
3715<br />
3716 OE84 CA 82<br />
3717<br />
3718<br />
3719 OE87 2E 08<br />
3720<br />
3721 OE89 CB 46<br />
3722<br />
3723 OE8B 7D<br />
3724 OE8C CA 90<br />
3725<br />
3726<br />
3 727 OE8F AF<br />
3728 OE90 32 B4<br />
3729<br />
3730<br />
3731 OE93 D3 E1<br />
373 2<br />
3733 OE95 3E 09<br />
3734<br />
3735 OE97 F5<br />
3736 OE98 AF<br />
3737 OE99 3D<br />
3738 OE9A 20 FD<br />
3739<br />
3740 OE9C F1<br />
3741 OE9D 3D<br />
3742 OE9E 20 F7<br />
3743<br />
3744 OEAO D3 E3<br />
3745<br />
3746 OEA2 2E 02<br />
3747<br />
3748 OEA4 CB 7E<br />
3749<br />
3750 OEA6 CA A4<br />
3751<br />
3752<br />
3753 OEA9 2E 08<br />
3754<br />
3755 OEAB CB 46<br />
BASIC 1Z-013B<br />
- Stick abfragen<br />
OE CALL OE5A<br />
OE LD (OEAC),A<br />
OE LD (OE8A),A c<br />
EO LD HL, E002<br />
DI<br />
OUT (E3),A<br />
BIT 7, (HU<br />
OE<br />
JP Z, OE82<br />
LD L, 08<br />
OE<br />
BIT 0, (HU<br />
(1-4)<br />
LD A,L<br />
JP Z, OE90<br />
OE<br />
XOR A<br />
LD (OEB4),A<br />
OUT (EU, A<br />
LD A, 09<br />
PUSH AF<br />
XOR A<br />
DEC A<br />
JR NZ, FD ~ OE99H<br />
POP AF<br />
DEC A<br />
JR NZ, F7 ~ OE97H<br />
OUT (E3),A<br />
LD L, 02<br />
•<br />
BIT 7, (HL)<br />
OE<br />
JP Z, OEA4<br />
LD L, 08<br />
BIT 0, (HU<br />
V1.0A<br />
I BIT-NUMMER FüR DIGITAL<br />
I JOY-STICK BEREITSTELLEN<br />
I REST BEFEHL ZUR BIT<br />
I ABFRAGE EINTRAGEN<br />
ZEIGER AUF STATUSPORT 8255<br />
INTERRUPT SPERREN<br />
'UMSCHALTEN AUF SYSTEM<br />
'ADRESSEN AB $DOOO<br />
lAUF V-BLANK AKTIV<br />
I WARTEN<br />
ZEIGER AUF JOY-STICK- PORT<br />
I ABFRAGE, OB TASTE GEDRüCKT<br />
I (Bi t wi rd ei ngetragen)<br />
ACCU AUF 8<br />
TASTE GEDRüCKT<br />
CODE TASTE NICHT GEDRüCKT<br />
I ERGEBNIS ERSTE ABFRAGE<br />
I MERKEN<br />
UMSCHALTEN AUF <br />
RAM AB $DOOO <br />
ZEITSCHLEIFE 10msec <br />
ZEITSSCHLEIFE<br />
1.1 msec<br />
I UMSCHALTEN AUF SYSTEM<br />
I ADRESSEN AB $DOOO<br />
ZEIGER AUF STATUSPORT 8255<br />
lAUF V-BLANK AKTIV<br />
, WARTEN<br />
ZEIGER AUF JOY-STICK-PORT<br />
• ABFRAGE, OB TASTE GEDRüCKT<br />
BASIC 1Z<br />
3756<br />
3757 OEAD 7D LD A,L<br />
3758 OEAE CA B2 OE JP Z,<br />
3759<br />
3760<br />
3761 (lEB1 AF XOR A<br />
3762 OEB2 6F LD L,A<br />
3763 OEB3 3E 00 LD A,<br />
3764<br />
3765 OEB5 A5 AND L<br />
3766 OEB6 32 65 00 LD (0<br />
3767<br />
3768<br />
3769 OEB9 D3 E1 OUT (<br />
3770<br />
3771 OEBB FB EI<br />
3772 OEBC E1 POP HL<br />
3773 OEBD B7 OR A<br />
3774 OE BE C9 RET<br />
3775 OEBF 00 00<br />
3 776<br />
3777 OECl 00 00<br />
3778<br />
Tex te für Cas settenrecorde<br />
3779 OEC3 5 2 R<br />
3 780 OEC4 45 E<br />
3781 OEC5 4 3 C<br />
3782 OEC6 4F o<br />
3783 OEC7 5 2 R<br />
3784 OEC8 44 D<br />
3785 OEC9 2E<br />
3786 OECA 00<br />
3787 OEeB 50 P<br />
3 788 OECC 4C L<br />
3789 OECD 41 A<br />
3790 OECE 59 Y<br />
3791 OECF 00<br />
Zwischenspeicher für Text<br />
3792 OEDO 00<br />
3793 OED1 00<br />
3794 OED2 00<br />
3795 OED3 00<br />
3796 OED4 00<br />
3797 OED5 00<br />
3798 OED6 00<br />
3799 OED7 00<br />
3800 OED8 00<br />
3801 OED9 00<br />
3802 OEDA 00<br />
3803 OEDB 00<br />
3804 OEDC 00<br />
3805 OEDD 00<br />
3806 OEDE 00<br />
3807 OEDF 00<br />
3808 OEEO 00<br />
I<br />
I<br />
I
BASIC 1Z-013B V1.0A BASIC 1 Z<br />
I<br />
SEITE 72<br />
3809 OEEl 00 NOP<br />
3852 OFOC Fe) -t.p<br />
3810 OEE2 00 NOP 3853 OFOD Cl 'lQ<br />
3811 OEE3 00 NOP 3854 OFOE C2 1'R<br />
3812 OEE4 00 NOP 3855 OFOF C3 ·tS<br />
3813 OEE5 00 NOP \<br />
3856 OF10 C4 ·tT<br />
3857 OF 11 C5<br />
3814 OEE6 00 NOP , , 'lU<br />
3815 OEE7 00 NOP 3858 OF12 C6 ·t V<br />
3859 OF13 FO 'l W <br />
3860 OF 14 FO .t-X <br />
Zwischenspeicher fUr aktuelle Zeilenwerte bei Tastaturab-frage 3861 OF15 FO 1'y <br />
3862 OF16 FO ·t·Z<br />
3816 OEE8 00<br />
SPALTE 10 3863 OF17 FO H<br />
3817 OEE9 00<br />
SPALTE 9 3864 OF18 FO 1'\<br />
3818 OEEA 00 SPALTE 8 3865 OF19 FO 1']<br />
3819 OEEB 00<br />
SPALTE 7 3866 OF1A FO -t··t·<br />
3820 OEEC 00<br />
SPALTE 6 3867 OF1B FO ·t ....<br />
3821 OEED 00<br />
SPALTE 5 3868 OF1C 00 Spa<br />
3822 OEEE 00<br />
SPALTE 4 3869 OF1D 61<br />
3823 OEEF 00<br />
SPALTE 3 3870 OF1E 62<br />
3824 OEFO 00<br />
SPALTE 2 3871 OF1F 63 #<br />
3825 OEF1 00 SPALTE 1 3872 OF20 64 $ <br />
3873 OF21 65 I. <br />
3874 OF22 66 & <br />
Zwischenspeicher fUr letzte Zeilenwerte bei Tastaturabfrage 3875 OF23 67 <br />
3876 OF24 68 ( <br />
10 3877 OF25 69 )<br />
3826 OEF2 00 SPALTE<br />
3827 OEF3 00 SPALTE 9<br />
3878 OF26 6 B<br />
3828 OEF4 00 SPALTE 8 3879 OF27 6A +<br />
3829 OEF5 00 SPALTE 7 3880 OF28 2F<br />
SPALTE 6 , I<br />
3830 OEF6 00<br />
388 1 OF29 2A<br />
3831 OEF7 00<br />
SPALTE 5 3882 OF2A 2E<br />
3832 OEF8 00<br />
SPALTE 4 3883 OF2B 2D I<br />
3833 OEF9 00<br />
SPALTE 3 3884 OF2C 20 0<br />
3834 OEFA 00 <br />
SPALTE 2 3885 OF2D 21 1<br />
3835 OEFB 00 SPALTE 1 , 3886 OF2E 22<br />
,.,.,..<br />
2<br />
3887 OF2F ..::. .....> 3<br />
3888 OF30 24 4 <br />
Tabelle zum Umsetzen von ASCII in An z eigecode und umgekehrt 3889 OF31 25 5 <br />
Mit dem ASCII-Code als Tabellenoffset erhält man das 3890 OF32 26 6 <br />
entsprechende Anzeigecode-Zeichen. Zum Umsetzen vom 389 1 OF33 27 7 <br />
Anzeigecoda i n ASCII muß die Tabelle nach dem Anzeige- 3892 OF34 28 8 <br />
codezeichen durchsucht werden. 3893 OF35 29 9 <br />
3894 OF36 4F <br />
FOH bedeutet. daß zu diesem ASCII-Steuerzeichen kein 3895 OF37 2C <br />
anzeigbares Zeichen existiert. 3896 OF38 51 < <br />
3897 OF39 28<br />
3898 OF3A 57<br />
3836 OEFC FO 1Q1 ><br />
3837 OEFO FO 1'A 3899 OF3B 49 ?<br />
3838 OEFE FO 1'B 3900 OF3C 55 ;j)<br />
3839 OEFF r:0 1'C 3901 OF3D 01 A<br />
38Ll0 OFOO FO 1'0 3 902 OF3E 02 8<br />
1'E 3903 OF3F 03 C<br />
38~1 OF01 FO<br />
3842 OF02 FO 1'F , I <br />
3904 OF40 04 0<br />
3843 OF03 FO 1'6 3905 OF41 05 E <br />
3844 OF04 FO 1'H 3906 OF42 06 F <br />
3845 OF05 FO 1'I I 3907 OF43 07 G <br />
3846 OF06 FO 1'J 3 908 OF44 08 H <br />
3847 OF07 FO 1'K 3 9 09 OF45 09 I .<br />
3848 OF08 FO ,tL 3 910 OF46 OA J <br />
3849 OF09 FO 1'M 3 911 OF47 OB K <br />
! <br />
3850 OFOA FO 1'N 3912 OF48 OC L<br />
3851 OFOB FO 1'0 3913 OF49 0 0 M<br />
*
BASIC 1Z-013B V1_0A BASIC 1Z<br />
SEITE 74 11<br />
3914 OF4A OE N 3976 OF88 9F \<br />
3915 OF4B OF 0 3977 OF89 B3<br />
3916 OF4C 10 P 3978 OF8A B7<br />
3917 OF40 11 Q 3979 OF8B BB ,0'<br />
3918 OF4E 12 R 3980 OF8C BF<br />
3919 OF4F 13 S 3981 OF80 A3 #<br />
3920 OF50 14 T 3982 OF8E 85 e<br />
3921 OF51 15 U 3983 OF8F A4 ~~:<br />
3922 OF52 16 V 3984 OF90 A5 ~<br />
3923 OF53 17 W 3985 OF91 A6 !:6i<br />
3924 OF54 18 X 3986 OF92 94 t<br />
3925 OF55 19 Y 3987 OF93 87 9<br />
3926 OF56 1A Z 3988 OF94 88 h<br />
3927 OF57 52 [ 3989 OF95 9C (<br />
3928 OF58 59 \ 3990 OF96 82 b<br />
3929 OF59 54 J 3991 OF97 98 x<br />
3930 OF5A 50 1- 3992 OF98 84 d<br />
3931 OF5B 45 +- 3993 OF99 92 r<br />
3932 OF5C C7 a 3994 OF9A 90 p<br />
3933 OF50 C8 }:I 3995 OF9B 83 c<br />
3934 OF5E C9 ;J; 3996 OF9C 91 CI<br />
3935 OF5F CA -I 3997 OF90 81 a<br />
3936 OF60 CB 3998 OF9E 9A z<br />
39.37 OF61 CC "" ,.. 3999 OF9F 97 IN<br />
3938 OF62 CO T 4000 OFAO 93 s<br />
3939 OF63 CE ~ 4001 OFAl 95 LI<br />
3940 OF64 CF ~ 4002 OFA2 89 i<br />
3941 OF65 OF \11 4003 OFA3 Al<br />
3942 OF66 E7 f4- 4004 OFA4 AF Ö<br />
3943 OF67 E8 ~ 4005 OFA5 8B k<br />
3944 OF68 E5 k;; 4006 OFA6 86 f<br />
3945 OF69 E9 ~~ 4007 OFA7 96 v<br />
3946 OF6A EC H 4008 OFA8 A2 11<br />
3947 OF6B EO 4009 OFA9 AB Ü<br />
3948 OF6C 00 ~<br />
* 4010 OFAA AA ß<br />
3949 OF60 01<br />
ii 4011 OFAB 8A<br />
I<br />
3950 OF6E 02 I 4012 OFAC 8E:: n<br />
3951 OF6F 03 4013 OFAO BO<br />
3952 OF70 04 tM 4014 OFAE AO Ü<br />
3953 OF71 05 r 4015 OFAF 80 m<br />
3954 OF72 06 "'I 4016 OFBO A7<br />
3955 OF73 07<br />
~ 4017 OFBl A8<br />
.,,<br />
3956 OF74 08 A 4018 OFB2 A9<br />
3957 OF75 09 '\ 4019 OFB3 8F 0<br />
3958 OF76 DA \ 4020 OFB4 8C 1<br />
3959 OF77 OB 4021 OFB5 AE Ä<br />
3960 OF78 OC X 4022 OFB6 AC Ö<br />
3961 OF79 00 t 4023 OFB7 9B ä<br />
3962 OF7A OE I 4024 OFB8 AO<br />
3963 OF7B CO 4025 OFB9 99 y<br />
3964 OF7C 40 4026 OFBA BC ~<br />
3965 OF7D BD +<br />
4027 OFBB B8 \<br />
3966 OF7E 90 4028 OFBC 80<br />
3967 OF7F Bl r 4029 OFBO 3B<br />
3968 OF80 B5 ~-<br />
4030 OFBE 3A<br />
3969 OF81 B9 4031 OFBF 70 <br />
3970 OF82 B4 4032 OFCO 3C<br />
3971 OF83 9E 4033 OFC1 71<br />
~)<br />
3972 OF84 B2 4034 OFC2 5A ~<br />
3973 OF85 B6 J'<br />
4035 OFC3 3D I<br />
3974 OF86 BA 4036 OFC4 43 ~~<br />
3975 OF87 BE 6 4037 OFC5 56 fl""
SEITE<br />
4038 OFC6<br />
4039 OFC7<br />
4040 OFC8<br />
4041 OFC9<br />
4042 OFCA<br />
4043 OFCB<br />
4044 OFCC<br />
4045 OFCD<br />
4046 OFCE<br />
4047 OFCF<br />
4048 OFDO<br />
4049 OFD1<br />
4050 OFD2<br />
4051 OFD3<br />
4052 OFD4<br />
4053 OFD5<br />
4054 OFD6<br />
4055 OFD7<br />
4056 OFD8<br />
40570FD9<br />
4058 OFDA<br />
4059 OFDB<br />
4060 OFDC<br />
4061 OFDD<br />
4062 OFDE<br />
4063 OFDF<br />
4064 OFEO<br />
4065 OFE1<br />
4066 OFE2<br />
4067 OFE3<br />
4068 OFE4<br />
4069 OFE5<br />
4070 OFE6<br />
4071 OFE7<br />
4072 OFE8<br />
4073 OFE9<br />
4074 . 0FEA<br />
4075 OFEB<br />
4076 OFEC<br />
4077 OFED<br />
4078 OFEE<br />
4079 OFEF<br />
4080 OFFO<br />
4081 OFF1<br />
4082 OFF2<br />
4083 OFF3<br />
4084 OFF4<br />
4085 OFF5<br />
4086 OFF6<br />
4087 OFF7<br />
4088 OFF8<br />
4089 OFF9<br />
4090 OFFA<br />
4091 OFFB<br />
76<br />
3F<br />
1E<br />
4A<br />
1C<br />
5D<br />
3E<br />
5C<br />
1F<br />
5F<br />
5E<br />
37<br />
7B<br />
7F<br />
36<br />
7A<br />
7E<br />
33<br />
4B<br />
4C<br />
1D<br />
6C<br />
58<br />
78<br />
41<br />
35<br />
34<br />
74<br />
30<br />
38<br />
75<br />
39<br />
4D<br />
6F<br />
6E<br />
32<br />
77<br />
76<br />
72<br />
73<br />
47<br />
7C<br />
53<br />
31<br />
4E<br />
6D<br />
48<br />
46<br />
7D<br />
44<br />
1B<br />
58<br />
79<br />
42<br />
60<br />
BASIC 1Z-013B V1_0A<br />
~<br />
c<br />
....<br />
"T<br />
...J<br />
....<br />
.J<br />
. -<br />
•I<br />
L<br />
"<br />
4092<br />
4093<br />
4094<br />
~<br />
4095<br />
4096<br />
.J 4097<br />
ṛ,<br />
•<br />
•<br />
I<br />
.....<br />
X<br />
o<br />
•<br />
•<br />
f:<br />
.J.<br />
....<br />
4098<br />
4099<br />
4100<br />
4101<br />
4102<br />
4103<br />
4104<br />
4105<br />
4106<br />
4107<br />
4108<br />
4109<br />
4110<br />
4111<br />
4112<br />
4113<br />
4114<br />
4115<br />
'ff<br />
BASIC 1Z<br />
Der Speicherbereich von $<br />
Routinen als Zwischenspei<br />
So wird hierin z. B. die<br />
zwischengespeichert. eine<br />
USING - Format aufbereite<br />
zwischengespeichert<br />
Der Bereich $1000 - $11FF<br />
oder Speicher für feste D<br />
Daten oder Programm beim<br />
schließendem Wiederumsch<br />
verloren gehen sollen.<br />
Dieser Bereich ($1000-$11<br />
bauten ROM - Monitor auch<br />
Im folgenden wird nur der<br />
(Programm- oder Datendate<br />
ist 128 Bytes lang. Die B<br />
haben zur Zeit noch keine<br />
Speicherbereich für Datei<br />
OFFC 00<br />
OFFD 00<br />
OFFE 00<br />
OFFF 00<br />
1000 00<br />
1001 00<br />
1002 00<br />
1003 00<br />
1004 00<br />
1005 00<br />
1006 00<br />
1007 00<br />
1008 00<br />
1009 00<br />
100A 00<br />
1008 00<br />
100C 00<br />
100D 00<br />
100E 00 00<br />
1010 00 00<br />
1012 00 00<br />
/<br />
I<br />
;<br />
I<br />
I<br />
I<br />
I<br />
I
SEITE 78<br />
Tabelle zum<br />
4637 1210 90<br />
4638 121E 17<br />
4639 121F FC<br />
4640 1220 19<br />
4641 1221 00<br />
4642 1222 3B<br />
4643 1223 3A<br />
4644 1224 00<br />
4645 1225 59<br />
4646 1226 5A<br />
4647 1227 40<br />
4648 1228 5B<br />
4649 1229 5D<br />
4650 122A 00<br />
4651 122B 00<br />
4652 122C 00<br />
4653 122D 51<br />
4654 122E 52<br />
4655 122F 53<br />
4656 1230 54<br />
4657 1231 55<br />
4658 1232 56<br />
4659 1233 57<br />
4660 1234 58<br />
4661 1235 49<br />
4662 1236 4A<br />
4663 1237 4B<br />
4664 1238 4C<br />
4665 1239 4D<br />
4666 123A 4E<br />
4667 123B 4F<br />
4668 123C 50<br />
4669 1230 41<br />
4670 123E 42<br />
4671 123F 43<br />
4672 1240 44<br />
4673 1241 45<br />
4674 1242 46<br />
4675 1243 47<br />
4676 1244 48<br />
4677 1245 31<br />
4678 1246 32<br />
4679 1247 33<br />
4680 1248 34<br />
4681 1249 35<br />
4682 124A 36<br />
4683 124B 37<br />
4684 124C 38<br />
4685 1240 5C<br />
4686 124E 5E<br />
4687 124F 2D<br />
4688 1250 20<br />
4689 1251 30<br />
4690 1252 39<br />
BASIC 1 Z -(:> 1 3B<br />
Umsetzen der Tastaturmatrix<br />
/<br />
Space<br />
Graph<br />
+<br />
Alpha<br />
Nicht belegt<br />
Carriage Return<br />
y<br />
Z<br />
@<br />
t<br />
nicht belegt<br />
nicht belegt<br />
nicht belegt<br />
Q<br />
R<br />
S<br />
T<br />
U<br />
V<br />
W<br />
X<br />
J<br />
K<br />
L<br />
M<br />
N<br />
o<br />
P<br />
A<br />
B<br />
C<br />
o<br />
E<br />
]<br />
F<br />
G<br />
H<br />
1<br />
2<br />
3<br />
4<br />
5<br />
6<br />
7<br />
8<br />
o<br />
9<br />
I<br />
Space<br />
V 1 _ OA<br />
in ASCII<br />
Normalmodus Spalte<br />
Normalmodus Spalte 2<br />
Normal modus Spalte 3<br />
\<br />
l'<br />
Normal modus Spalte 4<br />
Normal modus Spalte 5<br />
Normalmodus Spalte 6<br />
Normalmodus Spalte 7<br />
4691<br />
4692<br />
4693<br />
4694<br />
4695<br />
4696<br />
4697<br />
4698<br />
4699<br />
4700<br />
4701<br />
4702<br />
4703<br />
4704<br />
4705<br />
4706<br />
4707<br />
4708<br />
4709<br />
4710<br />
4711<br />
4712<br />
4713<br />
4714<br />
4715<br />
4716<br />
4717<br />
4718<br />
4719<br />
4720<br />
4721<br />
4722<br />
4723<br />
4724<br />
4725<br />
4726<br />
4727<br />
4728<br />
4729<br />
4730<br />
4731<br />
4732<br />
4733<br />
4734<br />
4735<br />
4736<br />
4737<br />
4738<br />
4739<br />
4740<br />
4741<br />
4742<br />
4743<br />
4744<br />
4745<br />
1253<br />
1254<br />
1255<br />
1256<br />
1257<br />
1258<br />
1259<br />
125A<br />
125B<br />
125C<br />
1250<br />
125E<br />
125F<br />
1260<br />
1261<br />
1262<br />
1263<br />
1264<br />
1265<br />
1266<br />
1267<br />
1268<br />
1269<br />
126A<br />
1268<br />
126C<br />
1260<br />
126E<br />
126F<br />
1270<br />
1271<br />
1272<br />
1273<br />
1274<br />
1275<br />
1276<br />
1277<br />
1278<br />
1279<br />
127A<br />
127B<br />
127C<br />
1270<br />
127E<br />
127F<br />
1280<br />
1281<br />
1282<br />
1283<br />
1284.<br />
1285<br />
1286<br />
1287<br />
1288<br />
1289<br />
2C<br />
2E<br />
18<br />
10<br />
12<br />
11<br />
13<br />
14<br />
3F<br />
2F<br />
90<br />
17<br />
FB<br />
05<br />
00<br />
2B<br />
2A<br />
00<br />
BO<br />
A2<br />
93<br />
BE<br />
80<br />
00<br />
00<br />
00<br />
AO<br />
90<br />
A4<br />
96<br />
A5<br />
AB<br />
A3<br />
9B<br />
A6<br />
AF<br />
A9<br />
B8<br />
B3<br />
BO<br />
B7<br />
9E<br />
Al<br />
9A<br />
9F<br />
9C<br />
92<br />
AA<br />
97<br />
98<br />
21<br />
22<br />
23<br />
24<br />
25<br />
BASI,-C<br />
1Z<br />
Inst<br />
Oel.<br />
Curs<br />
CLlr<br />
Curs<br />
CLlr<br />
?<br />
Und<br />
Grap<br />
L<br />
+<br />
Alp<br />
nic<br />
*Car<br />
y<br />
z<br />
~;; :<br />
~<br />
nic<br />
nic<br />
nic<br />
CI '.<br />
s<br />
LI<br />
V<br />
IN<br />
r<br />
>:<br />
t<br />
k<br />
1<br />
m<br />
j<br />
n<br />
o<br />
p<br />
a<br />
b<br />
c<br />
d<br />
e<br />
9<br />
h<br />
f<br />
#<br />
$<br />
/.
SEITE 80<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
4746 128A 26 t.c<br />
4801 12C1 E3<br />
4747 128B 2 7 4802 12C2 CC a<br />
4748 128C 28 4803 12C3 OB<br />
4804 12C4 EF r<br />
4749 1280 CO Sh iftmodus Spalte 7<br />
4750 128E 94 ~ 4805 12C5 04<br />
4751 128F 3D 4806 12C6 CF<br />
4752 1290 20 Space 4807 12C7 06 I<br />
4753 1291 FF 'Y( 4808 12C8 05 I<br />
4754 1292 29 ) 4809 12C9 C2<br />
4755 1293 3C <<br />
4810 12CA 03 --I<br />
4811 12CB 01<br />
..J..<br />
4756 1294 3E ><br />
4812 12CC . 81 +<br />
4757 1295 16 Clr Shiftmodus Spal tf~ 8<br />
4758 1296 15 Home 4813 12CO 74 tN<br />
4759 1297 12 Cursor hoch<br />
4814 12CE 87<br />
4760 1298 11 Cursor runter<br />
,<br />
4815 12CF 72<br />
4761 1299 13 Cursor rechts 4816 1200 20 Spa<br />
4762 129A 14 Cursor links 4817 1201 99 (<br />
4763 129B C6 ~ 4818 1202 A7<br />
4764 129C 5F +- 4819 1203 63 ~<br />
4820 1204 HF \<br />
4765 1290 90 Unterline Graphikmodus Spalte<br />
4766 129E 17 . Graph 4821 1205 16 Clr<br />
4767 129F 6C k;; 4822 1206 15 Home<br />
4768 12AO 19 Alpha 4823 1207 12 Curs<br />
4769 12A1 00 nicht belegt 4824 1208 11 Curs<br />
4770 12A2 FE "q .~ 4825 1209 13 Curs<br />
4771 12A3 89 ..)<br />
j <br />
4826 120A 14 Curs<br />
4772 12A4 00 Carriage Return 4827 1208 8A<br />
4828 120C 78<br />
4773 12A5 E7 Graphikmodus Spalte 2<br />
4774 12A6 EE / i 4829 1200 90 Und<br />
4775 12A7 88 ...... 4830 120E 17 Grap<br />
4776 12A8 78 .4<br />
4831 120F 68 ~<br />
4836 12E4 00 Ca<br />
4777 12A9 F5 ..a 4832 12EO 05 Alp<br />
4778 12AA 00 n cht belegt 4833 12El 00 nic<br />
4779 12A8 00 n cht belegt 4834 12E2 84 l._<br />
4780 12AC 00 n cht belegt ii<br />
4835 12E3 E9 t:..<br />
4781 12AO C4 Graphikmodus Spalte 3<br />
4782 12AE E5 4837 12E5 E2<br />
4783 12AF FA 4838 12E6 EO<br />
•<br />
"<br />
4784 1280 C5 I 4839 12E7 77 ~<br />
4840 12E8 80 ,<br />
4785 1281 FD I<br />
4786 12B2 7A \<br />
4841 12E9 8E )<br />
4787 1283 E6 4842 12EA 00 nic<br />
4788 12El4 F6 X 4843 12EB 00 nic<br />
4844 12EC 00 nic<br />
4789 1285 F9 Graphikmodus Spiilte 4<br />
4790 12B6 00 4845 12ED F2<br />
4791 12B7 OF .. 4846 12EE C3<br />
4792 12B8 86 4847 12EF E1<br />
4848 12FO F4<br />
•<br />
4793 1289 CD<br />
I<br />
4794 128A EC L<br />
4849 12F1 E8 I<br />
4795 1288 B1 ( 4850 12F2 95 !Si<br />
4796 128C 76 "C 4851 12F3 EO<br />
4852 12F4 70<br />
4797 12BD F3 •<br />
• Graphikmoduti Spalte 5<br />
4798 128E EA 4853 12F5 C7<br />
4799 128F 7E 4854 12F6 CE ,<br />
4800 12CO F1 4855 12F7 OE ..<br />
•
SEITE 82<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
4856 12F8 C9 ,.<br />
4904 1328 00<br />
4857 12F9 00<br />
..J<br />
4905 1329 00<br />
4858 12FA OA .J 4906 132A 00<br />
4859 12F8 75 Y 4907 1328 00<br />
4860 12FC 83<br />
( .. 4908 132C 00<br />
4909 1320 00<br />
4861 12FO F8 •<br />
Shift-Graphik Spalte 5<br />
4910 132E 00<br />
4862 12FE E8<br />
.J<br />
4911 132F 00<br />
4863 12FF 79 4912 1330 00<br />
4864 1300 F7 0 4913 1331 00<br />
4865 1301 E4<br />
4866<br />
4867<br />
4868<br />
4869<br />
4870<br />
1302<br />
1303<br />
1304<br />
1305<br />
1306<br />
C8<br />
OC<br />
FO<br />
CA<br />
07<br />
a<br />
'"'\<br />
...,<br />
Shi ft-Graphi k Spalte 6<br />
4871 1307 09 4920 1.338 00<br />
4872 1308 Cl 4921 1.339 00<br />
4873 1309 08 ,.' 4922 133A 00<br />
4874<br />
4875<br />
130A<br />
1308<br />
C8<br />
02<br />
4914<br />
4915<br />
4916<br />
4917<br />
4918<br />
4919<br />
1332<br />
1333<br />
1334<br />
1335<br />
1336<br />
1337<br />
~: 4923<br />
4924 1338<br />
133C<br />
4876 130C AC 11<br />
~<br />
4925 133D 00<br />
4877<br />
4878<br />
4879<br />
4880<br />
4881<br />
4882<br />
4883<br />
4884<br />
4885<br />
4886<br />
4887<br />
4888<br />
4889<br />
4890<br />
4891<br />
4892<br />
1300<br />
130E<br />
130F<br />
1310<br />
1311<br />
1312<br />
1313<br />
1314<br />
1315<br />
1316<br />
1317<br />
1318<br />
1319<br />
131A<br />
1318<br />
131C<br />
73<br />
8C<br />
71<br />
20<br />
82<br />
91<br />
70<br />
85<br />
16<br />
15<br />
12<br />
11<br />
13<br />
14<br />
8F<br />
8B<br />
Tabelle zum<br />
4893 1310 5B<br />
4894 131E 5C<br />
4895 131F 50<br />
4896 1320 5E<br />
4897 1321 2F<br />
..<br />
•<br />
Space<br />
Clr<br />
Horne<br />
Cursor<br />
Cursor<br />
Cursor<br />
Cursor<br />
6<br />
Umsetzen der<br />
hoch<br />
runter<br />
rechts<br />
links<br />
Shift-Graphik Spalte<br />
• Shift-Graphi k Spalte<br />
zusätzlich definierten CTRL - Tasten<br />
Zwischenspeicher für die den Funktionsta~ten zugeordneten Texten.<br />
Die dargestellte 8elegung entspricht der Belegung beim<br />
Anlaufen des Ba~ic - Interpreters.<br />
4898 1322 04 , T&xtlänge<br />
4899 1323 52 R Text<br />
4900 1324 55 U<br />
4901 1325 4E N<br />
4902 1326 00 Carriage Return<br />
4903 1327 00<br />
Fl<br />
F1<br />
7<br />
8<br />
il i<br />
,'.<br />
t<br />
I'l<br />
';(<br />
i' l<br />
lI ~ i !<br />
' ~<br />
i ~l<br />
, r<br />
l<br />
lf<br />
~<br />
'l ,'<br />
, I ~ j,<br />
4926<br />
4927<br />
4928<br />
4929<br />
4930<br />
4931<br />
4932<br />
4933<br />
4934<br />
4935<br />
4936<br />
4937<br />
4938<br />
4939<br />
4940<br />
4941<br />
4942<br />
133E<br />
133F<br />
1340<br />
1341<br />
1342<br />
13 4.3<br />
1344<br />
1345<br />
1346<br />
1347<br />
1348<br />
1349<br />
134A<br />
1348<br />
13 4C<br />
1340<br />
13 4E<br />
04<br />
4C<br />
49<br />
53<br />
54<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
04<br />
41<br />
55<br />
54<br />
4F<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
4943 134F 00<br />
4944<br />
4945<br />
4946<br />
4947<br />
4948<br />
4949<br />
4950<br />
4951<br />
1350<br />
1351<br />
1352<br />
1353<br />
1354<br />
1355<br />
1356<br />
1357<br />
00<br />
00<br />
05<br />
52<br />
45<br />
4E<br />
55<br />
40<br />
4952 1358 00<br />
4953 1359 00<br />
4955<br />
4956<br />
4957<br />
4958<br />
4959<br />
4960<br />
4961<br />
4954<br />
\",<br />
I'<br />
:'· 1<br />
135A<br />
1358<br />
135C<br />
1350<br />
135E<br />
135F<br />
1.360<br />
1361<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00<br />
L<br />
A<br />
U<br />
T<br />
0<br />
R<br />
E<br />
N<br />
U<br />
M<br />
)<br />
]<br />
1<br />
/<br />
\<br />
I<br />
[<br />
\<br />
I<br />
I<br />
I<br />
S<br />
T
8EITE 84<br />
BASIC 1Z-013B V 1 _ (::>A<br />
BASIC 1<br />
4962 1362 05 Textlänge F5 5021 1390 00<br />
4963 1363 43 C Text F5 5022 139E 00<br />
4964 1364 4F 0 5023 139F 00<br />
4965 1365 4C L 5"024 13AO 00<br />
4966 1366 4F 0<br />
c:-...,<br />
5025 13A1 00<br />
4967 1367 ....J.L. R<br />
4968 1368 00 5026 13A2 04<br />
4969 1369 00 5027 13A3 53<br />
4970 136A<br />
8<br />
00 5028 1.3A4 41<br />
4971<br />
A<br />
136B 00 5029 13A5 56 V<br />
4972 136C 00 5030 13A6 45<br />
4973<br />
E<br />
1360 00 5031 13A7 00<br />
4974 136E 00 5032 13A8 00<br />
4975 136F 00 5033 13A9 00<br />
4976 1370 00 5034 13AA 00<br />
4977 1371 00 5035 13AB 00<br />
5036 13AC 00<br />
4978 1372 05 Textlänge 8ft F1 5037 13AO 00<br />
4979 1373 43 C Text 8ft Fl 5038 13AE 00<br />
4980 1374 48 H 5039 13AF 00<br />
4981 1375 52 R 5040 13BO 00<br />
4982 1376 24 $ 5041 1381 00<br />
4983 1377 28 (<br />
! '<br />
4984 1378 00<br />
I<br />
5042 1382 04<br />
4985 1379 00 5043 1383 4C L<br />
4986 137A 00 5044 1384 4F 0<br />
4987 1378 00 5045 1385 41 A<br />
4988 137C 00 5046 13B6 44 0<br />
4989 137D 00 ,t 5047 1387 00<br />
4990 137E 00<br />
~ 5048 13B8 00<br />
4991 137F 00 5049 1389 00<br />
4992 1380 00 5050 13BA 00<br />
4993 1381 00 5051 1388 00<br />
5052 1.3BC 00<br />
4994 1382 08 Textlänge 8ft F2 5053 138D 00<br />
4995 1383 44 D Text 8ft F2 5054 13BE 00<br />
4996 1384 45 E 5055 138F 00<br />
4997 1385 46 F 5056 13CO 00<br />
4998 1386 20 8pace 5057 13Cl 00<br />
4999 1387 48 K<br />
5000 1388 45 E<br />
5001 1389 59 Y<br />
5002 138A 28 (<br />
5003 1388 00<br />
5004 138C 00<br />
5005 138D 00<br />
5006 138E 00<br />
5007 138F 00<br />
5008 1390 00<br />
5009 1391 00<br />
5010 1392 04 Textlänge 8ft F3<br />
5011 1393 43 C Text 8ft F3<br />
5012 1394 4F 0<br />
5013 1395 4E N<br />
5014 1396 54 T<br />
5015 1397 00<br />
5016 1398 00<br />
5017 1399 00<br />
5018 139A 00<br />
5019 1398 00<br />
5020 139C 00<br />
,<br />
I
SEITE 86 <br />
BASIC 1Z-013B V1_0A <br />
Die folgenden Routinen gehören zu dem integrierten <br />
Maschinensprachenmonitor <br />
Kaltstart Monitor (Basic-Befehl BVE)<br />
5058 13C2 E5 PUSH HL REGISTER RETTEN<br />
5059 13C3 ED 5B 20 18 LD DE. (1820) I ALTE FEHLERADRESSE<br />
5060 I HOLEN<br />
5061<br />
5062<br />
5063 13C7 D5 PUSH DE UND MERKEN<br />
IBEHANDLUNG IM MONITOR<br />
5064 13C8 11 OB 14 LD DE. 140B I ADRESSE FüR FEHLER<br />
5065<br />
5066<br />
5067 13CB ED 53 20 18 LD (1820).DE EINTRAGEN<br />
5068<br />
5069<br />
5070<br />
5071 13CF 3A 4F 00 LD A.
SEITE 88 <br />
BASIC 1Z-013B V1.0A <br />
5160 1428 46 F Daten im Speicher suchen<br />
5161 1429 F4 15 Anfangsadresse Routine<br />
5162<br />
5163 142B 52 R Rücksprung zum Basic<br />
5164 142C B8 14 Anfangsadresse Routine<br />
5165<br />
5166 142E 53 S Daten auf Band schreiben<br />
5167 142F 43 14 Anfangsadresse Routine<br />
5168<br />
5169 1431 4C L Daten vom Band lesen<br />
5170 1432 69 14 Anfangadresse Routine<br />
5171<br />
5172 1434 56 v Daten auf Band vergleichen<br />
5173 1435 A9 14 Anfangsadresse Routine<br />
5174<br />
5175 1437 54 T Verschieben von Daten<br />
5176 1438 5A 16 Anfangsadresse Routine<br />
5177<br />
Monitorbefehl P .HL STARTADRESSE<br />
5200<br />
5201<br />
5202 1452 05 PUSH OE ANFANGSADRESSE MERKEN<br />
5203 1453 C5 PUSH BC ; LÄNGE MERKEN<br />
5204 1454 D9 EXX<br />
5205 1455 CD lF 17 CALL 171F ; I FILE-NAMEN AUS EINGABE<br />
5206 I HOLEN UND AUFBEREITEN<br />
5207<br />
5208 1458 21 FC OF LD HL. OFFC ; I ZEIGER AUF ZWISCHEN<br />
5209 I SPEICHER MIT VORBEREI<br />
5210 ITETER FILE-KENNUNG<br />
5211 145B 36 01 LD (HU. 01 • FILE-TYP MASCHINENPROGRAMM<br />
5212<br />
5213 1450 01 80 00 LD BC, 0080 LÄNGE PROGRAMMKENNUNG<br />
BASIC 1Z<br />
5214<br />
5215<br />
5216 1460 CD 21 00 CALL<br />
5217<br />
5218<br />
5219 1463 Cl POP B<br />
5220 1464 EI POP H<br />
5221 1465 04 24 00 CALL<br />
5222<br />
5223<br />
5224 1468 C9 RET<br />
Monitorbefehl L (Prog<br />
5225 1469 CD E7 14 CALL<br />
5226<br />
5227<br />
5228 146C E5 PUSH<br />
5229 1460 F5 PUSH<br />
5230 146E CD 84 14 CALL<br />
5231<br />
5232<br />
5233 1471 F1 POP A<br />
5234 1472 E1 POP H<br />
5235 1473 30 03 JR NC<br />
5236<br />
5237 1475 2A 14 FF LD HL<br />
5238<br />
52.39<br />
5240 1478 ED 4B 12 FF LD BC<br />
5241<br />
5242<br />
5243<br />
5244 147C CD 2A 00 CALL<br />
5245<br />
5246<br />
5247 147F DA 1F 18 JP C.<br />
5248<br />
5249<br />
5250 1482 18 E4 JR E4<br />
5251<br />
Filenamen aus Eingabe be<br />
kennung vom Band lesen <br />
5252 1484 CD IF 17 CALL<br />
5253<br />
5254<br />
5255 1487 3E 01 LD A<br />
5256<br />
5257 1489 32 FC OF LD (O<br />
5258<br />
5259<br />
5260 148C 21 00 FF LD H<br />
5261<br />
5262<br />
5263 148F 01 80 00 LD B<br />
5264<br />
5265<br />
5266 1492 CD 27 00 CALL
SEITE 90 <br />
BASIC 1Z-013B V1_0A <br />
5267<br />
5268<br />
5269 1495 DA lF 18 JP C, 181F FEHLER AUFGETRETEN<br />
5270<br />
5271<br />
5272 1498 11 OE 18 LD DE, 180E ' TEXT Found<br />
5273<br />
5274<br />
5275 1498 CD C8 16 CALL 16C8 ITEXT (OE) UND GELESENEN<br />
5276 I PROGRAMM-NAMEN AUSGEBEN<br />
5277<br />
5278 149E CD EE 16 CALL 16EE I GELESENEN PROGRAMM-NAMEN<br />
5279 IMIT VORGEGEBENEM VER<br />
5280 I GLEICHEN<br />
5281 14Al 20 E9 JR NZ, E9 ~ 148CH I FALSCHES PROGRAMM ~<br />
5282 I NÄCHSTE KENNUNG LESEN<br />
5283 14A3 11 OB 43 LD OE, 430B TEXT<br />
5284<br />
5285<br />
5286 14A6 C3 C8 16 JP 16C8 ITEXT (OE) UND GELESENEN<br />
5287 IPROGRAMMNAMEN AUSGEBEN<br />
5288<br />
Monitorbefehl V (Programm auf Band vergleichen)<br />
5289 14A9 CD 84 14 CALL 1484 I PROGRAMM-NAMEN AUS EIN<br />
5290 IGA8E BEREITSTELLEN UND<br />
5291 IENTSPR. KENNUNG LESEN<br />
5292 14AC 2A 14 FF LD HL, (FFI4) I GELESENEN PROGRAMM<br />
5293 I ANFANGSADRESSE<br />
5294<br />
5295 14AF ED 4B 12 FF LD BC, (FFI2) GELESENE PROGRAMMLÄNGE<br />
5296<br />
5297<br />
5298<br />
5299 14B3 CD 20 00 CALL 002D DATEN AUF BAND VERGLEICHEN<br />
5300<br />
5301<br />
5302 14B6 18 C7 JR C7 ~ 147FH AUSWERTEN, OB FEHLER<br />
5303<br />
Monitorbefehl R (Rücksprung z um BASIC)<br />
5304 14B8 31 00 00 LD SP. 0000 ISTACKPOINTER WI EDER SETZEN<br />
5305 I (Adresse wird bei Aufruf<br />
5306 I Monitor eingetragen)<br />
5307 148B Fl POP AF GERETTETE PUFFERLÄNGE<br />
5308 14BC 32 4F 00 LD (004F),A WIEDER EINTRAGEN<br />
5309<br />
5310<br />
5311 14BF EI POP HL ; GERETTETE FEHLERADRESSE<br />
5312 14CO 22 20 18 LD (1820). HL WIEDER EINTRAGEN<br />
5313<br />
5314<br />
5315 14C3 EI POP HL PROGRAM<strong>MZ</strong>EIGER<br />
5316 14C4 C9 RET RüCKSPRUNG ZUM BASIC<br />
BASIC 1Z<br />
Zeile von Tastatur holen u<br />
5317 14C5 11 00 FF LD OE<br />
5318<br />
5319<br />
5320 14C8 CD 4A 00 CALL 0<br />
5321<br />
5322<br />
5323 14CB 38 18 JR C,<br />
53 24<br />
5325 14CD lA LD A.<br />
5326 14CE FE 3A CP 3A<br />
5327<br />
5328 1400 37 SCF<br />
5329 14Dl CO RET NZ<br />
5330 14D2 13 INC OE<br />
533 1 14D3 CD E7 14 CALL<br />
5332<br />
5333<br />
5 3 34 1406 08 RET C<br />
5335 1407 lA LD A,<br />
5336 1408 13 INC DE<br />
5337 1409 EE 3 D XOR 3<br />
5338<br />
5.33 9 1408 CO RET NZ<br />
5 3 40 14DC CD lB 15 CALL 1<br />
53 41<br />
5 3 4 2<br />
5343 14DF :3F CCF<br />
5 3 44 14EO DO RET NC<br />
5 3 45 14El 77 LD (H<br />
5346 14E2 23 INC HL<br />
5347 14E3 18 F7 JR F7<br />
5348<br />
5349 14E5 12 LD
SEITE 92<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
5373<br />
5374<br />
5375<br />
5376<br />
5377<br />
5378<br />
5379<br />
5380<br />
5381<br />
5382<br />
14FO<br />
14FE<br />
14FF<br />
E1<br />
37<br />
C9<br />
POP<br />
SCF<br />
RET<br />
HL I<br />
CODE FEHLER AUFGETRETEN<br />
Zeige~ in DE auf näc h stes ~elevante Zeichen setzen 5427<br />
5428<br />
1500<br />
1501<br />
1502<br />
1504<br />
1506<br />
13<br />
1A<br />
FE<br />
28<br />
C9<br />
20<br />
FA<br />
INC DE<br />
LO A.
SEITE 94<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
553()<br />
5472 1560 OE 08 LD C. 08 8 BYTE JE ZEILE AUSGEBEN 5531 159B CD lE 00 CALL<br />
5473 C'C"~...,<br />
~..J....,,,,-<br />
5474 1562 CD 6D 15 CALL 156D EINE ZEILE AUSGEBEN 5533<br />
5475 55:.4 159E 37 SCF<br />
5476 5535 159F C8 RET Z<br />
5477 1565 D8 RET C BREAk GEDRüCkT 553 6 15AO B7 OR A<br />
5478 1566 E5 PUSH HL AKTUELLE ADRESSE 5537 15Al C9 RET<br />
5479 1567 ED 52 SBC HL.DE I üBERPRüFEN. OB BEREICH<br />
5480 I AUSGEGEBEN<br />
5481 1569 EI POP HL AKTUELLE ADRESSE Hex-Wert 'in HL umsetzen i<br />
5482 156A DO RET NC FERTIG<br />
5483 156B 18 F3 JR F3 ~ 1560H WEITERE ZEILEN AUSGEBEN 5538 15A2 7C LD A,<br />
5484 5539 15A3 CD A7 15 CALL<br />
5540<br />
Eine Zeile für Monitorbefehl D aufbereiten und ausgeben 5541<br />
5542 15A6 7D LD A.<br />
5485 156D CD EF 15 CALL 15EF Doppelpunkt AUSGEBEN<br />
5486 Hex-Wert im Accu umsetz en<br />
5487 <br />
5488 1570 CD A2 15 CALL 15A2 IHEX-WERT IN HL AUFBE 5543 i 5A7 F5 PUSH<br />
5489 IREITEN IN ASCII UND<br />
5544 15A8 07 RLCA<br />
5490 I AUSGEBEN<br />
5545 15A9 07 RLCA<br />
5491 1573 CD EA 15 CALL 15EA AUSGEBEN<br />
5546 15AA 07 RLCA<br />
5492<br />
5547 15A8 07 RLCA<br />
5493<br />
5548 15AC CD BO 15 CALL<br />
5494 1576 41 LD B.C ANZAHL BYTES JE ZEILE<br />
5549<br />
5495 1577 E5 PUSH HL ADRESSE ANFANG ZEILE MERKEN<br />
5550<br />
5496 1578 7E LD A. (HU EIN BYTE HOLEN<br />
5551 15AF Fl POP A<br />
5497 1579 CD A7 15 CALL 15A7 IHEX-WERT IM ACCU AUF<br />
5552 15BO E6 OF AND A<br />
5498 IBEREITEN IN ASCII UND<br />
C"C"C"'~<br />
o...J..J...J .J<br />
5499 I AUSGEBEN<br />
5554 15 82 C6 3 0 ADD A<br />
5500 157C 23 INC HL ZEIGER AU SPEICHER<br />
5555<br />
5501 157D 3E 20 LD A. 20 Space<br />
5556 1584 FE 3A CP 3<br />
5502<br />
5557<br />
5503 157F CD D3 17 CALL 17D3 IASCII-ZEICHEN IM ACCU<br />
5558 1586 38 02 JR C,<br />
5504 lAUF BILDSCHIRM ODER<br />
5505<br />
5559<br />
I DRUCk ER AUSGEBEN<br />
5560 1588 C6 07 ADD A<br />
5506 1582 10 F4 DJNZ F4 ~ 1578H I WEITERE SPEICHERSTELLEN<br />
5507<br />
5561<br />
I IN DIESER ZEILE AUSGEBEN<br />
5562 158A C3 D3 17 JP 17<br />
5508 1584 EI POP HL ADRESSE ANFANG ZEILEN<br />
5563<br />
5509 1585 3E 2F LD A. 2F I (Schrägstrich)<br />
5564<br />
5510<br />
5511 1587 CD D3 17 CALL 17D3 IASCII IM ACCU AUF<br />
5512 I BILDSCHIRM ODER DRUCKER<br />
5513 I AUSGEBEN<br />
5514 158A 41 LD B.C ANZAHL BYTES JE ZEILE<br />
5515 158B 7E LD A. (HU EINEN WERT HOLEN<br />
5516 158C FE 20 CP 20 Steuerzeichen ?<br />
5517<br />
5518 158E 30 02 JR NC, 02 ~ 1592H NEIN<br />
5519<br />
5520 1590 3E 2E LD A. 2E (für Steuerzeichen)<br />
5521<br />
5522 1592 CD D3 17 CALL 17D3 a IASCII IM ACCU AUF<br />
5523 I BILDSCHIRM ODER DRUCKER<br />
5524 I AUSGEBEN<br />
5525 1595 23 INC HL ZEIGER AUF SPEICHERBEREICH<br />
5526 1596 10 F3 DJNZ F3 ~ 158BH • WEITERE BYTES AUSGEBEN<br />
5527<br />
Monitorbefehl M (Ände<br />
5565 158D CD E7 14 CALL<br />
5566<br />
5567<br />
5568 15CO 3A 19 18 LD A,<br />
5569<br />
5570<br />
5571 15C3 F5 PUSH<br />
5572 15C4 AF XOR A<br />
5573 15C5 32 19 18 LD (1<br />
5574<br />
5575<br />
5576 15C8 CD 09 00 CALL<br />
5577<br />
5578<br />
5528 1598 CD F9 17 CALL 17F9 NEUE ZEILE AUSGEBEN 5 5 79 15 CB CD EF 15 CALL<br />
5529
SEITE 96 <br />
BASIC 1Z-013B V1_0A <br />
5580<br />
5581<br />
5582 15CE CD A2 15 CALL 15A2 IHEX-WERT IN HL UMSETZE~<br />
5583 I IN ASCII UND AUSGEBEN<br />
5584<br />
5585 1501 CD EA 15 CALL 15EA AUSGEBEN<br />
5586<br />
5587<br />
5588 1504 7E LD A. (HU BYTE AUS SPEICHER HOLEN<br />
5589 1505 CD A7 15 CALL' 15A7 I ACCU UMSETZEN IN ASCII<br />
5590 (HEX-WERT UND AUSGEBEN<br />
5591<br />
Cursor links<br />
5592 1508 3E 14 LD A. 14 5593<br />
5594 15DA CD 12 00 CALL 0012 IASCII-ZEICHEN IM ACCU<br />
5595 I AUSGEBEN<br />
5596<br />
5597 1500 CO 12 00 CALL 0012 IASCII-ZEICHEN IM ACCU<br />
5598 I AUSGEBEN<br />
5599<br />
5600 15EO CD C5 14 CALL 14C5 IZEILE VON TASTATUR HOLEN<br />
5601 IUNO AUSWERTEN<br />
5602<br />
5603 15E3 30 E3 JR NC. E3 ~ 15C8H IKEIN FEHLER ODER BREAK ~<br />
5604 INÄCHSTE ZEILE<br />
5605 15E5 Fl POP AF "; GERETTETES FLAG HOLEN <br />
5606 15E6 32 19 18 LD (1819).A MONITORFLAG DRUCKER <br />
5607 <br />
5608 <br />
5609 15E9 C9 RET <br />
5610 15EA 3E 3D LD A. 3D (Gleich)<br />
5611 <br />
5612 15EC C3 03 17 JP 1703 IASCII-ZEICHEN IM ACCU <br />
5613 lAUF BILDSCHIRM ODER <br />
5614 I DRUCKER AUSGEBEN <br />
5615 15EF 3E 3A LD A. 3A (Doppelpunkt)<br />
5616 " <br />
5617 15Ft C3 03 17 JP 1703 : IASCII-ZEICHEN IM ACCU <br />
5618 lAUF BILDSCHIRM ODER <br />
5619 I DRUCKER AUSGEBEN <br />
Monitorbefehl F (Oatenstring suchen)<br />
5620 15F4 CD E7 14 CALL 14E7 IVIER ASCII-HEX-ZEICHEN<br />
5621 I
SEITE 98 <br />
BASIC 1Z-013B V1.0A <br />
5692<br />
5693 1630 AF XOR A ZERO-FLAG SETZEN<br />
5694 163E El POP HL I GERETTETE REGISTER HOLEN<br />
5695 163F Dl POP OE I<br />
5696 1640 Cl POP BC I<br />
5697 1641 C9 RET<br />
Anfangs- .Endadressse und dritten Parameter aus <br />
eingegebener Zeile bereitstellen <br />
5698 1642 CD E7 14 CAll 14E7 IVIER ASCII-HEX-WERTE<br />
5699 I
SEITE 100<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
Drucker auf RUckmeldewert abfragen Text (OE) und gelesenen F<br />
5787<br />
5788<br />
5789<br />
5790<br />
1698<br />
169C<br />
57<br />
01<br />
00<br />
00<br />
LD<br />
LD<br />
D.A<br />
BC. 0000<br />
RüCKMELDEWERT<br />
I VORGABE FüR ANZAHL<br />
I DURCHLÄUFE<br />
5791 169F lE 20<br />
LD E. 20<br />
ZÄHLER SETZEN<br />
5792 5837<br />
16Al OB FE<br />
IN A. (FE)<br />
WERT VOM DRUCKERPORT HOLEN<br />
5793<br />
5794<br />
5795<br />
16A3 E6 00<br />
AND A. OD<br />
RüCKMELDEBIT'S MASKIEREN<br />
5796<br />
5797 16A5 BA CP D GLEICH RüCKMELDEWERT ? 5842<br />
5798 16A6 C8<br />
RET Z<br />
DRUCKER OK<br />
5843<br />
5844 16D3 16 10 LD D.<br />
5799 16A7 10<br />
DEC E<br />
ZÄHLER MINUS EINS<br />
16A8 20 F7 JR NZ. F7 + 16A1H WEITER ABFRAGEN<br />
5800<br />
5801<br />
5802 16AA<br />
5803<br />
5804 16AB<br />
16AC<br />
5805<br />
5806<br />
OB<br />
78<br />
BI<br />
DEC BC<br />
LD<br />
OR<br />
A.B<br />
C<br />
5832<br />
5833<br />
5834<br />
5835<br />
5836<br />
5838<br />
5839<br />
5840<br />
5841<br />
5845<br />
5846<br />
5847<br />
16CB<br />
16CB<br />
16CE<br />
16CF<br />
16DO<br />
1605<br />
1606<br />
CD<br />
CD<br />
09<br />
51<br />
00<br />
00<br />
E5<br />
23<br />
CD E9 16<br />
7E<br />
FE OD<br />
CALL<br />
CALL<br />
PUSH<br />
INC H<br />
CALL<br />
RESTANZAHL DURCHLÄUFE<br />
I GLEICH NULL? 5848<br />
5849 16D8 28 07 JR Z.<br />
16AD 20 FO JR NZ. FO + 169FH WEITER ABFRAGEN 5850<br />
5851<br />
Drucker nicht<br />
ansprechbar<br />
5852<br />
LD<br />
CP<br />
16DA CD 12 00 CALL<br />
5807 16AF AF<br />
XOR A ACCU AUF NULL<br />
5808 1680 32 4D 00 LD (004D).A IPARALLELAUSGABE üBER<br />
5857<br />
5809<br />
I DRUCKER ABSCHALTEN<br />
5858 16El CD E9 16 CALL<br />
58 10 5859<br />
1683 3E 41<br />
LD A. 41<br />
16E4 CO 09 00 CALL 0<br />
5811<br />
5812<br />
5813<br />
5814<br />
5815<br />
16B5<br />
C3<br />
lF 18<br />
JP<br />
181F<br />
I FEHLER 65<br />
I DRUCKER NICHT BEREIT<br />
FEHLER BEHANDELN<br />
5853<br />
5854<br />
5855<br />
5856<br />
5860<br />
5861<br />
5862<br />
5863<br />
5864<br />
16DD<br />
16DE<br />
16DF<br />
16E7<br />
16E8<br />
23<br />
15<br />
20 F4<br />
E1<br />
C9<br />
A.<br />
O<br />
INC H<br />
DEC D<br />
JR NZ<br />
POP HL<br />
RET<br />
Drucker auf nächste 10er Tabulator setzen Anführungszeichen ausgeben<br />
5816 16B8 3E 20 LO A. 20 Space 5865<br />
16E9 3E 22 LD A.<br />
5817<br />
5866 16E9 3E 22 5818 16BA CD 78 16 CALL 1678 I ZEICHEN IM ACCU AN<br />
5867<br />
5868 16EB C3 12 00 JP 001<br />
5819<br />
I DRUCKER AUSGEBEN<br />
5820 5869<br />
5821 16BD 3E 00 LD A. 00 I SPALTE DRUCKER<br />
5822 I (wird eingetragen)<br />
5823 16BF D6 OA SUB A. OA 10 ABZIEHEN Vorgegebenen Dateinamen m<br />
5824<br />
5825<br />
5826<br />
5827<br />
5828<br />
5829<br />
5830<br />
5831<br />
16Cl<br />
16C3<br />
16C5<br />
16C6<br />
30<br />
C6<br />
C8<br />
18<br />
FC<br />
OA<br />
FO<br />
JR NC. FC + 16BFH<br />
ADD A. OA<br />
RET Z<br />
JR FO + 16B8H<br />
WEITER ABZIEHEN<br />
ERGEBNIS CORRIGIEREN<br />
STEHT AUF TABULATORPOSITION<br />
NÄCHSTES Space AUSGEBEN<br />
5870<br />
5871<br />
5872<br />
5873<br />
5874<br />
5875<br />
5876<br />
5877<br />
5878<br />
5879<br />
5880<br />
5881<br />
5882<br />
5883<br />
16EE<br />
16EF<br />
16FO<br />
16Fl<br />
16F4<br />
16F5<br />
16F6<br />
16F8<br />
16FA<br />
D5<br />
E5<br />
23<br />
11<br />
13<br />
lA<br />
FE<br />
28<br />
06<br />
FC<br />
00<br />
13<br />
11<br />
OF<br />
PUSH D<br />
PUSH H<br />
INC HL<br />
LD OE.<br />
INC DE<br />
LO A. <<br />
CP OD<br />
JR<br />
LO<br />
Z.<br />
B.<br />
I
SEITE 102 <br />
BASIC 1Z-013B V1_0A <br />
5884 16FC lA LO A,
SEITE 104<br />
5993<br />
5994<br />
5995 176B FE 20<br />
5996<br />
5997 176D 38 5C<br />
5998<br />
5999 176F FE 60<br />
6000<br />
6001 1771 DA 78<br />
6002<br />
6003<br />
6004 1774 FE 7B<br />
6005<br />
6006 1776 CA 78<br />
6007<br />
6008<br />
6009 1779 FE 80<br />
6010<br />
6011 177B CA 78<br />
6012<br />
6013<br />
6014 177E FE 8B<br />
6015<br />
6016 1780 CA 78<br />
6017<br />
6018<br />
6019 1783 FE 92<br />
6020<br />
6021 1785 38 44<br />
6022<br />
6023 1787 FE 95<br />
6024<br />
6025 1789 28 40<br />
6026<br />
6027 178B FE 99<br />
6028<br />
6029 178D 28 3C<br />
6030<br />
6031 178F FE A7<br />
6032<br />
6033 1791 28 38<br />
6034<br />
6035 1793 FE AC<br />
6036<br />
6037 1795 28 34<br />
6038<br />
6039 1797 FE BI<br />
6040<br />
6041 1799 28 30<br />
6042<br />
6043 179B FE B4<br />
6044<br />
6045 179D DA 78<br />
6046<br />
6047<br />
6048 17AO FE B7<br />
6049<br />
6050 17A2 38 27<br />
6051<br />
6052 17A4 FE BC<br />
6053<br />
6054 17A6 28 23<br />
BASIC<br />
CP 20<br />
JR C.<br />
CP 60<br />
16 JP C.<br />
CP 7B<br />
16 JP Z.<br />
CP 80<br />
16 JP Z.<br />
CP 8B<br />
16 JP Z.<br />
CP 92<br />
JR C.<br />
CP 95<br />
JR Z.<br />
CP 99<br />
JR Z.<br />
CP A7<br />
JR Z.<br />
CP AC<br />
JR Z.<br />
CP BI<br />
JR Z.<br />
CP B4<br />
16 JP C.<br />
CP B7<br />
JR C.<br />
CP BC<br />
JR Z.<br />
1Z-013B<br />
5C ~ 17CBH<br />
1678<br />
1678<br />
:<br />
1678<br />
1678<br />
44 ~ 17CBH<br />
40 ~ 17CBH<br />
3C ~ 17CBH<br />
38 ~ 17CBH<br />
34 ~ 17CBH<br />
30 ~ 17CBH<br />
1678<br />
27 ~ 17CBH<br />
23 ~ 17CBH<br />
V1.0A<br />
I DRUCKER AUSGEBEN<br />
I ZEICHEN ZWISCHEN CURSOR<br />
I ZEICHEN UND BUCHSTABEN?<br />
JA ~ • AUF DRUCKER AUSGEBEN<br />
IM BUCHSTABENZEICHENBLOCK ?<br />
IJA ~ ZEICHEN AUF<br />
I DRUCKER AUSGEBEN<br />
0 (GRAD-ZEICHEN)<br />
(JA + ZEICHEN AUF<br />
I DRUCKER AUSGEBEN<br />
Geschweifte Klammer zu ?<br />
IJA ~ ZEICHEN AUF<br />
I DRUCKER AUSGEBEN<br />
"'- ?<br />
IJA ~ ZEICHEN AUF<br />
DRUCKER AUSGEBEN<br />
VOR KLEINBUCHSTABEN ?<br />
JA ~ . AUF DRUCKER AUSGEBEN<br />
I FüR PLOTTER UNBEKANNTES<br />
I ZEICHEN<br />
JA ~ . AUF DRUCKER AUSGEBEN<br />
I FüR PLOTTER UNBEKANNTES<br />
I ZEICHEN<br />
JA ~ • AUF DRUCKER AUSGEBEN<br />
IFüR PLOTTER UNBEKANNTES<br />
I ZEICHEN<br />
JA + • AUF DRUCKER AUSGEBEN<br />
I FüR PLOTTER UNBEKANNTES<br />
I ZEICHEN<br />
JA + • AUF DRUCKER AUSGEBEN<br />
I FüR PLOTTER UNBEKANNTES<br />
I ZEICHEN ?<br />
JA + • AUF DRUCKER AUSGEBEN<br />
I ZEICHEN AUF DRUCKER<br />
I AUSGEBEN<br />
PUNKT AUF DRUCKER AUSGEBEN<br />
I FüR PLOTTER UNBEKANNTES<br />
I ZEICHEN ?<br />
JA + • AUF DRUCKER AUSGEBEN<br />
BASIC 1Z<br />
6055<br />
6056 17A8 FE BF CP BF<br />
6057<br />
6058 17AA DA 78 16 JP C.<br />
6059<br />
6060<br />
6061 17AD FE C6 CP C6<br />
6062<br />
6063 17AF CA 78 16 JP Z.<br />
6064<br />
6065<br />
6066 17B2 FE CF CP CF<br />
6067<br />
6068 17B4 CA 78 16 JP Z.<br />
6069<br />
6070<br />
6071 17B7 FE D7 CP D7<br />
6072<br />
6073 17B9 CA 78 16 JP Z.<br />
6074<br />
6075<br />
6076 17BC FE FB CP FB<br />
6077<br />
6078 17BE CA 78 16 JP Z.<br />
6079<br />
6080<br />
6081 17Cl FE FC CP FC<br />
6082<br />
6083 17C3 CA 78 16 JP Z.<br />
6084<br />
6085<br />
6086 17C6 FE FF CP FF<br />
6087<br />
6088 17C8 CA 78 16 JP Z.<br />
6089<br />
6090<br />
Punkt anstelle des für den<br />
6091 17CB F5 PUSH<br />
6092 17CC 3 E 2E LD A.<br />
6093<br />
6094 17CE CD 78 16 CALL<br />
6095<br />
6096<br />
6097 1701 Fl POP A<br />
6098 17D2 C9 RET<br />
ASCII-Zeichen im Accu auf<br />
6099 17D3 08 EX AF<br />
6100 17D4 3A 19 18 LD A.<br />
6101<br />
6102<br />
6103 17D7 B7 OR A<br />
6104 17D8 28 04 JR Z.<br />
6105<br />
6106 17DA 08 EX AF<br />
6107 17DB C3 78 16 JP 16<br />
6108<br />
6109
BASIC 1 Z-C>13B V1 _ OA<br />
I <br />
BASIC 1 Z<br />
SEITE 106<br />
6112 6158 180E 46 F<br />
6113 I 6159 180F B7 0<br />
6160 1810 A5 LI<br />
6161 1811 BO n<br />
Text
SEITE 108<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
6178<br />
6179<br />
6180<br />
6181<br />
6182<br />
6183<br />
6184<br />
6185<br />
6186<br />
6187<br />
6188<br />
6189<br />
6190<br />
6191<br />
6192<br />
6193<br />
6194<br />
6195<br />
6196<br />
6197<br />
6198<br />
6199<br />
6200<br />
6201<br />
6202<br />
6203<br />
6204<br />
6205<br />
6206<br />
6207<br />
6208<br />
6209<br />
6210<br />
6211<br />
6212<br />
6213<br />
6214<br />
6215<br />
Kaltstart Basic (wird nur ein mal aufgerufen) 6230<br />
6231<br />
1822<br />
1825<br />
1828<br />
1829<br />
182B<br />
182C<br />
1820<br />
182F<br />
1831<br />
1834<br />
1837<br />
183A<br />
183D<br />
1840<br />
1843<br />
1846<br />
11 Cl 6A<br />
CD 51 00<br />
EB<br />
36 00<br />
23<br />
7C<br />
FE FF<br />
38 F8<br />
21 48 18<br />
22 E7 00<br />
21 00· FF<br />
22 BD 6A<br />
CD 31 22<br />
CD 39 22<br />
CD 4E 22<br />
18 05<br />
LD OE. 6ACl<br />
CALL 0051<br />
EX DE.HL<br />
LD (HL>. 00<br />
INC HL<br />
LD A.H<br />
CP FF<br />
JR C. F8 ~ 1829H<br />
LD HL. 1848<br />
LD (OOE?>. HL<br />
LD HL. FFOO<br />
LD (6ABD).HL<br />
CALL 2231<br />
CALL 2239<br />
CALL 224E<br />
JR 05 ~ 184DH<br />
COPYRIGHT-MELDUNG<br />
TEXT AB (OE) AUSGEBEN<br />
I KOMPLETTEN SPEICHER<br />
I LöSCHEN<br />
I<br />
I H-BYTE ZEIGER<br />
I ENDADRESSE<br />
I<br />
I WEITER LöSCHEN<br />
WARMSTARTADRESSE BASIC<br />
IALS ·BASIC-START-ADRESSE<br />
I EINTRAGEN<br />
ADRESSE LIMIT MAX<br />
IMAXIMAL BENUTZBARE<br />
I RAM-ADRESSE<br />
LIMIT MERKEN<br />
ZEIGER INITIALISIEREN<br />
CLR - ROUTINE<br />
6232<br />
6233<br />
6234<br />
6235<br />
6236<br />
6237<br />
6238<br />
6239<br />
6240<br />
6241<br />
6242<br />
6243<br />
6244<br />
6245<br />
6246<br />
6247<br />
6248<br />
6249<br />
6250<br />
6251<br />
6252<br />
6253<br />
6254<br />
6255<br />
6256<br />
6257<br />
6258<br />
6259<br />
6260<br />
6261<br />
6262<br />
6263<br />
6264<br />
6265<br />
6266<br />
6267<br />
6268<br />
6269<br />
6270<br />
1859<br />
185C<br />
185F<br />
1860<br />
1863<br />
1866<br />
1869<br />
186C<br />
186F<br />
1872<br />
1873<br />
1876<br />
1879<br />
187C<br />
CD<br />
CD<br />
AF<br />
32<br />
32<br />
CD<br />
11<br />
CD<br />
CD<br />
AF<br />
32<br />
21<br />
22<br />
CD<br />
85<br />
82<br />
A3<br />
DC<br />
09<br />
9B<br />
51<br />
06<br />
DC<br />
FF<br />
E6<br />
29<br />
lC<br />
22<br />
42<br />
38<br />
00<br />
21<br />
00<br />
00<br />
38<br />
FF<br />
38<br />
22<br />
CALL lC<br />
CALL 22<br />
XOR A<br />
LD (42A<br />
LD (38D<br />
CALL 00<br />
LD OE.<br />
CALL 00<br />
CALL 00<br />
XOR A<br />
LD (38D<br />
LD HL.<br />
LD (38E<br />
CALL 22<br />
6271 187F 11 OF 11 LD OE.<br />
Warmstart (Resetstart) Basic 6272<br />
6273<br />
6216 1848<br />
6217<br />
6218184A<br />
6219<br />
6220<br />
6221<br />
6222<br />
6223<br />
6224<br />
6225<br />
6226<br />
6227<br />
6228<br />
6229<br />
3E<br />
CD<br />
16<br />
D3 17<br />
LD A. 16<br />
CALL 1703<br />
Clr (Bildschirm löschen)<br />
IASCII-ZEICHEN IM ACCU<br />
lAUF DRUCKER AUSGEBEN<br />
6274<br />
6275<br />
6276<br />
6277<br />
6278<br />
6279<br />
1882<br />
1885<br />
1886<br />
3A<br />
B7<br />
28<br />
A3<br />
OE<br />
42 LD<br />
6280 1888 FE 02 CP 02<br />
Anfang Editorschleife 6281<br />
1840<br />
1851<br />
1854<br />
1855<br />
ED<br />
21<br />
E5<br />
ED<br />
7B<br />
FF<br />
73<br />
B9<br />
FF<br />
05<br />
6A<br />
38<br />
LD SP. (6AB9)<br />
LD HL. FFFF<br />
PUSH HL<br />
LD (38D5).SP<br />
STACKPOINTER SETZEN<br />
I CODE KEINE DATEN MEHR<br />
lAUF STACK (Sschleifen<br />
I und GOSUB vergessen)<br />
AUF STACK ABLEGEN<br />
STACKPOINTER MERKEN<br />
OR<br />
JR<br />
A. (4<br />
A<br />
Z. O<br />
6282 188A 20 05 JR NZ.<br />
6283<br />
6284<br />
6285<br />
6286<br />
6287<br />
6288<br />
6289<br />
6290<br />
6291<br />
188C<br />
188F<br />
1891<br />
CD B9<br />
18 08<br />
CD 89<br />
19<br />
19<br />
CALL 1<br />
JR 08<br />
CALL 1
SEITE 110 <br />
BASIC 1Z-013B V1.0A <br />
6292 1894 18 03 JR 03 ~ 1899H <br />
6293 <br />
6294 1896 CD 4A 00 CALL 004A ZEILE VON TASTATUR HOLEN <br />
6295 <br />
6296 <br />
6297 1899 30 1F JR NC, IF ~ 18BAH NICHT geBREAKt <br />
6298 <br />
6299 189B FE 04 CF' 04<br />
6300 <br />
6301 189D 20 00 JR NZ, 00 ~ 189FH ????<br />
6302 <br />
6303 189F 3A DF 38 LD A, (38DF) AUTO - FLAG<br />
6304 <br />
6305 <br />
6306 18A2 B7 OR A ; GESETZT ?<br />
6307 18A3 3E 00 LD A, 00 CODE NICHT AUTO-MODUS<br />
6308 <br />
63 09 18A5 32 DF 38 LD (38DF),A AUTO - FLAG<br />
6310 <br />
63 11 <br />
63 12 18A8 20 B5 JR NZ, B5 ~ 185FH I IM AUTO-MODUS GEWESEN ~ <br />
63 13 IMIT BREAK NUR ABGESCHALTET <br />
6314 18AA 3A DE 38 LD A, (38DE)<br />
6315 <br />
6316 <br />
63 17 18AD B7 OR A <br />
63 18 18AE C2 6E lC JP NZ, lC6E RUN - BEFEHL <br />
6319 <br />
6320 <br />
6321 18Bl 3A DC 38 LD A, (38DC)<br />
6 3 22 <br />
63 23 <br />
6324 18B4 B7 OR A<br />
63 25 18B5 28 B8 JR Z, BB ~ 1872H <br />
6326 <br />
6327 18B7 18 A6 JR A6 ~ 185FH Ready <br />
63 28 <br />
Eingegebene ode~ gelesene Zeile bga~beiten<br />
6329 18B9 13 INC DE ZEIGER AUF TEXT<br />
6330 18BA lA LD A,
SEITE 112<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
6400<br />
6401<br />
6402<br />
1900<br />
1901<br />
56<br />
7A<br />
B3<br />
LO<br />
LD<br />
OR<br />
O. (HL><br />
A.D<br />
E<br />
I<br />
I GLEICH<br />
NULL ?<br />
1936 7E<br />
LD A.<br />
1902<br />
1937 FE 80<br />
CP 80<br />
6403 1903 28 OD JR Z. 00 ~ 18E2H ; JA ~ PROGRAMM ZU ENDE 6456<br />
6404<br />
6457 1939 02 3F 1C JP NC<br />
6405 1905 EB EX DE.HL 6458<br />
6406 1906 19<br />
ADO HL.OE<br />
I ZEIGER AUF DARAUF FOLGEN<br />
6459<br />
6407 1907 2B<br />
OEC HL<br />
10E ZEILE ERRECHNEN<br />
6460 193C FE 27<br />
CP 27<br />
6408 1908 22 EO 38 LD (38EO).HL<br />
ZEIGER AUF NÄCHSTE ZEILE<br />
6461<br />
6409<br />
6462 193E CA 24 33 JP Z.<br />
6410 6463<br />
6411 190B EB EX DE.HL 6464<br />
6412 190C 23 INC HL 6465 1941 FE 20 CP 20<br />
6413 1900 5E<br />
LO E. (HL><br />
IZEILENNUMMER DER tJEUEN 6466<br />
6414 190E 23<br />
INC HL<br />
I ZE I LE HOLEN<br />
6467 1943 20 03 JR NZ<br />
6415 190F 56<br />
LD D. (HL><br />
I<br />
6468<br />
6416 1910 23<br />
INC HL<br />
PROGRAM<strong>MZ</strong>EIGER<br />
6469 1945 23<br />
INC HL<br />
6417 1911 ED 53 E6 38 LO (38E6).DE<br />
I ZEILENNUMMER AKTUELLE<br />
6470 1946 18 E5 JR E5<br />
6418<br />
I ZEILE MERKEN<br />
647 1<br />
6419 6472 1948 FE 3A CP 3A<br />
6420<br />
6421<br />
6422<br />
1915 3A OD 38 LD A. (38DD) TRACE - FLAG<br />
6453<br />
6454<br />
6455<br />
6473<br />
6474<br />
6475<br />
194A 28 F9 JR Z.<br />
6423 6476 194C B7 OR A<br />
6424 1918 B7 OR A GESETZT ? 6477 1940 28 AC JR Z.<br />
6425<br />
6426 1919 C4 78 22 CALL NZ. 2278 JA ~ ZEILENNUMMER AUSGEBEN 6478<br />
6479 194F FE 41 CP 41<br />
6427 6480<br />
6428 191C 01 POP OE STACK CORRIGIEREN 6481 1951 DA FE 20 JP C.<br />
6429 1910 18 06 JR 06 ~ 1925H ZEILE ABARBEITEN 6482<br />
6430 6483<br />
6484 1954 FE 5B CP 5B<br />
6485<br />
I<br />
Syntax untersuchung auf Ende<br />
BASIC - Befehl abarbeiten.<br />
letzter Befehl und nächsten 6486<br />
6487<br />
6431 191F CD 66 1C CALL 1C66 I üBERPRüFEN. OB NÄCHSTES<br />
643 2<br />
6433<br />
6434<br />
6435<br />
IPROGRAMMBYTE<br />
I ZEICHEN IST<br />
1922 C2 FE 20 JP NZ. 20FE NEIN ~ SYNTAX FEHLER<br />
BEFEHLSENDE<br />
6436 6490<br />
6491<br />
6437<br />
6438<br />
6439<br />
6488<br />
1956 02 FE 20 JP NC<br />
Befehl LET<br />
6489 1959 CD OB 58 CALL 5<br />
6492 195C C5 PUSH<br />
Nächsten BASIC - Befehl holen und ausführen 6493 1950 C5 PUSH B<br />
1925 ED 73 D5 38 LO (38D5).SP ISTACKPOINTER BEI<br />
I BEFEHL MERKEN<br />
ANFANG 6495<br />
6496<br />
6497<br />
6494 195E F5 PUSH A<br />
195F CO 14 54 CALL 5<br />
6440 6498 1962 FE F4 CP F<br />
6441 1929 11 1F 19 LD DE. 191F I ADRESSE FüR NÄCHSTEN<br />
I BEFEHL ABARBEITEN<br />
1964 C2 FE 20 JP NZ<br />
6442<br />
6443<br />
6444<br />
6445<br />
192C<br />
192D<br />
D5<br />
22 FO 38<br />
PUSH DE<br />
LD (38FO).HL<br />
• AUF STACK ABLEGEN<br />
IPROGRAM<strong>MZ</strong>EIGER BEI<br />
IANFANG BEFEHL FüR ON<br />
6446<br />
6447 IERROR-GOTO MERKEN 6505<br />
6448<br />
CD 1E 00 CALL 001E 8ft BREAK GEDRüCKT ? 6506<br />
6449 1930 CD 1E 00 CALL 001E 6507 196B Cl POP BC<br />
6450 6508 196C 3A 65 6A LD A.<br />
6451 1933 CA 71 20 JP Z. 2071 PROGRAMM UNTERBRECHEN 6509<br />
6452<br />
651 0<br />
6 499<br />
6500<br />
6501<br />
6502<br />
6503<br />
6504<br />
1967<br />
1968<br />
23<br />
CD 8B 52<br />
INC HL<br />
CALL 5
SEITE 114<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
6511 196F B8 CP B TYPEN VERGLEICHEN<br />
6512 1970 C2 FB 20 JP NZ. 20F8 I NICHT GLEICH + <br />
6513 10ATENFEHLER <br />
6514 <br />
6515 1973 E3 EX (SP) .HL PROGRAM<strong>MZ</strong>. ~ VARIABLENZ. ~ <br />
6516 1974 EB EX OE.HL <br />
6517 1975 FE 05 CP 05 REAL - WERT ? <br />
6518 <br />
6519 1977 28 08 JR Z. 08 ~ 1981H REAL-~ERT ZUWEISEN<br />
6520<br />
6521 1979 C5 PUSH BC VARIA8LENTYP MERKEN<br />
6522 197A CO 82 18 CALL lB82 ISTRING MIT OESCRIPTOR (HL)<br />
6524 ICRIPTOR (OE) ZUWEISEN<br />
6523 10ER VARIABLEN MIT OES<br />
6525 1970 F1 POP AF VARIABLENTYP<br />
6526 197E E1 POP HL PROGRAM<strong>MZ</strong>EIGER<br />
6527. 197F C 1 POP BC ZEIGER AUF VARIABLE<br />
6528 1980 C9 RET<br />
Real-Wert (HL) der Variablen (OE) zuweisen<br />
6565 19A5 OB OEC 8C<br />
6566 19A6 08 OEC 8C<br />
6567 19A7 ED 80 LDIR<br />
6568<br />
6569 19A9 21 Cl 6A LD HL.<br />
6570<br />
6571<br />
6572 19AC 11 OF 11 LD DE.<br />
6573<br />
6574<br />
6575 19AF CD CD 49 CALL 4<br />
6576<br />
6577 <br />
6578 19B2 3E 2E LD A.<br />
6579 <br />
6580 19B4 CD 03 17 CALL 1<br />
6581 <br />
6582 <br />
6583 1987 87 OR A <br />
6584 1988 C9 RET<br />
6529 1981 4F LO C.A LÄNGE REAL-ZAHL<br />
6530 1982 06 O~ LO 8. 00 BC ENTHÄLT LÄNGE<br />
6531<br />
6532 1984 EO BO LOIR WERT ZUWEISEN<br />
6533<br />
6534 1986 E1 POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
6535 1987 Cl POP BC ZEIGER AUF VARIABLE<br />
6536 1988 C9 RET<br />
Nächste Zeile aus geladenem Programm für MERGE bereitstellen<br />
6537 1989 2A Al 42 LO HL. (42Al) I ZEIGER AUF EINZU<br />
6538 IFüGENOE ZEILEN<br />
6539<br />
6540 198C 5E LO E. (HL> I OFF SET AUF NÄCHSTE<br />
6541 1980 23 INC HL I ZEILE HOLEN<br />
6542 198E 56 LO D. (HL> I<br />
6543 198F 23 INC HL<br />
6544 1990 7A LO A.O IOFFSET GLEICH NULL?<br />
6545 1991 B3 OR E I<br />
6546 1992 28 2F JR Z. 2F + 19C3H ALLE ZEILEN EINGEFüGT .<br />
6547<br />
6548 1994 05 PUSH OE ZEILENLÄNGE MERKEN<br />
6549 1995 EB EX OE.HL<br />
6550 1996 19 AOD HL.OE I ZEIGER AUF NÄCHSTE<br />
6551 1997 2B OEC HL I ZEILE ERRECHNEN<br />
6552 1998 2B OEC HL I<br />
6553 1999 22 Al 42 LO (42A1>. HL I ZEIGER AUF NÄCHSTE<br />
6554 I EINZUFüGENDE ZEILE MERKEN<br />
6555<br />
6556 199C EB EX OE.HL<br />
6557 1990 11 Cl 6A LO OE. 6ACl I ZEIGER AUF ZWISCHEN<br />
6558 lSPEICHER FüR ZEILE<br />
6559 I IM ZWISCHENCODE<br />
6560 19AO 3E OB LO A. OB CODE HEX-ZEILENNUMMER<br />
6561<br />
6562 19A2 12 LO
SEITE 116<br />
BASIC 1Z-0138 V1_0A BASIC 1Z<br />
6618<br />
6619<br />
6620<br />
6621<br />
190A<br />
190B<br />
190C<br />
1900<br />
23<br />
7E<br />
12<br />
13<br />
INC HL<br />
LO A. (HU<br />
LO
SEITE 118 <br />
BASIC 1Z-013B V1_0A <br />
BASIC 1Z<br />
6729 lA49 FE 80 CP 80 ZWISCHENCODE ?<br />
6730<br />
6731 lA4B 38 8F JR C. 8F ~ 19DCH NEIN ~ ZEICHEN üBERTRAGEN<br />
6732<br />
6733 lA4D 23 INC HL ZWISCHENCODE üBESPRINGEN<br />
<strong>MZ</strong>-80 K - Zwischencode umsetzen in Zwischencode für <strong>MZ</strong>-700<br />
6734 lA4E E5 PUSH HL ZEIGER AUF K-PROGRAMM MERK.<br />
6735 lA4F 21 91 lA LD HL. lA91 ZEIGER AUF UMSETZTABELLE<br />
6736<br />
6737<br />
6738 lA52 D6 80 SUB A. 80 IZWISCHENCODE IN ZÄHLER<br />
6739 I UMSETZEN<br />
6740 lA54 47 LD B.A ZÄHLER. WIEVIELTER TEXT<br />
6741 lA55 28 07 JR Z. 07 ~ lA5EH ZEIGER STEHT AUF TEXT<br />
6742<br />
6743 lA57 7E LD A. (HU EIN ZEICHEN AUS TABELLE<br />
6744 lA58 B7 OR A TEXTENDE ?<br />
6745 lA59 23 INC HL ZEIGER AUF TABELLE<br />
6746 lA5A 20 FB JR NZ. FB ~ lA57H TEXTENDE SUCHEN<br />
6747<br />
6748 lA5C 10 F9 DJNZ F9 ~ lA57H RICHTIGEN TEXT SUCHEN<br />
6749<br />
6750 lA5E 7E LD A. (HU ZEICHEN AUS TABELLE HOLEN<br />
6751 lA5F B7 OR A TEXTENDE 7<br />
6752 lA60 28 05 JR Z. 05 ~ lA67H TEXT üBERTRAGEN<br />
6753<br />
6754 lA62 12 LD
6824<br />
6825<br />
6826<br />
6827<br />
6828<br />
6829<br />
683 0<br />
6831<br />
6832<br />
6833<br />
6834<br />
6835<br />
6836<br />
6837<br />
683 8<br />
6839<br />
6840<br />
6841<br />
6842<br />
6843<br />
6844<br />
6845<br />
6846<br />
6847<br />
6848<br />
6849<br />
6850<br />
6851<br />
6852<br />
6853<br />
6854<br />
6855<br />
6856<br />
6857<br />
6858<br />
6859<br />
6860<br />
6861<br />
6862<br />
6863<br />
6864<br />
6865<br />
6866<br />
6867<br />
SEITE 120<br />
lAA8<br />
00<br />
lAA9<br />
lAAA<br />
84<br />
00<br />
lAAB<br />
lAAC<br />
8E<br />
00<br />
lAAD<br />
lAAE<br />
99<br />
00<br />
lAAF<br />
lABO<br />
98<br />
00<br />
lABl<br />
lAB2<br />
9D<br />
00<br />
lAB3<br />
lAB4<br />
B4<br />
00<br />
lAB5<br />
lAB6<br />
B5<br />
00<br />
lAB7<br />
lAB8<br />
lAB9<br />
FE<br />
A5<br />
00<br />
lABA<br />
lABB<br />
AO<br />
00<br />
lABC<br />
lABD<br />
96<br />
00<br />
lABE<br />
lABF<br />
lACO<br />
lACl<br />
C7<br />
FF<br />
C7<br />
00<br />
lAC2<br />
lAC3<br />
91<br />
00<br />
IAC4<br />
lAC5<br />
85<br />
00<br />
lAC6<br />
lAC7<br />
IAC8<br />
FE<br />
A6<br />
00<br />
lAC9<br />
lACA<br />
lACB<br />
FE<br />
A2<br />
00<br />
lACC<br />
lACD<br />
lACE<br />
FE<br />
A3<br />
00<br />
IACF<br />
lADO<br />
IADI<br />
C3<br />
28<br />
00<br />
lAD2<br />
lAD3<br />
CE<br />
00<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
Te::tende<br />
INPUT<br />
6891<br />
6892<br />
6893<br />
6894<br />
6895<br />
lAEB<br />
IAEC<br />
lAED<br />
lAEE<br />
IAEF<br />
FE<br />
A4<br />
00<br />
00<br />
00<br />
Zwischencode<br />
Textende<br />
Vorbyte Tabelle zwei<br />
Zwischencode CLR<br />
Te:
BASIC 1Z-013B V1_ OA BASIC 1Z<br />
SEITE 122 11 <br />
6910 lAFE Fl Zwischencode 6957 1B20 Al<br />
6913 1801 00 Textende 6958 182E 28<br />
6959 182F 00<br />
6914 1802 F3 Zwischencode >=<br />
6915 1803 00 Textende 6960 1830 FF<br />
6961 1831 AB<br />
6916 1804 F4 Zwischencode 6962 1832 28<br />
6917 IB05 00 Te>:tende 6963 IB33 00<br />
6918 1806 F5 Zwischencode > 6964 1834 FF<br />
6919 1807 00 Textende 6965 1835 AO<br />
6966 1836 28<br />
6920 1808 F6 Zwischencode < 6967 1837 00<br />
6921 1809 00 Textende<br />
6968 1838 FF<br />
6922 180A EC Zwischencode AND 6969 1839 89<br />
6923 1808 00 Textende 6970 1B3A 28<br />
6971 1838 00<br />
6924 180C E8 Zwischencode OR<br />
6925 1800 00 Textende 6972 IB3C E6<br />
6973 1830 28<br />
6926 180E ED Zwischli!ncode NOT 6974 183E 00<br />
6927 180F 00 Te:
SEITE 124<br />
BASIC 1 Z-(~13B V1.0A<br />
BASIC 1 Z-<br />
Zeichenkette mit Descripto<br />
7002 IB5A FF Vorbyte Tabelle drei<br />
mit Descriptor <br />
7010 IB62 FF 7050 188A .47 LO 8.A<br />
7011 1863 80 Zwischencode INT<br />
7051 IB88 4F LD C.A<br />
7012 IB64 28 7052 188C 23 INC HL<br />
Textende<br />
7013 1865 00 7053 lEe80 lA LD A. <<br />
7054 lEe8E 77 LD (HL<br />
Vorbyte Tabelle drei<br />
7014 1866 FF 7055 1B8F 13 INC OE<br />
7015 IB67 8C Zwischencode LOG<br />
7056 1B90 10 FA DJNZ FA<br />
7016 IB68 28 7057<br />
Textende<br />
7017 1869 00 7058 IB92 El POP HL<br />
7059 1893 7E LD A. (H<br />
Vorbyte Tabelle drei<br />
7018 186A FF 7060 1894 B9 CF' C<br />
7019 1868 85 Zwischencode LN<br />
7061 1895 28 45 JR Z.<br />
7020 lE6C 28 7062<br />
7021 1860 00 Textende<br />
7063 IB97 E5 PUSH H<br />
7064 IB98 87 OR A<br />
7022 186E FF Vorbyte Tabelle drei<br />
7065 IB99 C4 EC 18 CALL N<br />
7023 IB6F 81 ; Zwischencode A8S<br />
7066<br />
7024 1870 28 7067<br />
7025 IB71 00 Textende<br />
7026 1872 FF Vorbyte Tabelle drei<br />
7070<br />
7027 1873 8B Zwischencode SGN<br />
7068 IB9C EI POP HL<br />
7069 IB9D 3A OF 11 LD A. (<br />
7028 1874 28 7072 18AO B7 OR A<br />
Textende<br />
7029 1875 00 7073 IBAI 28 36 JR Z.<br />
7074<br />
Vorbyte Tabelle drei<br />
7030 IB76 FF 7075 1BA3 E5 PUSH H<br />
7031 1877 87 Zwischencode SOR<br />
7076 18A4 ED 4B B3 6A LD BC.<br />
7032 1878 28 7077 <br />
7033 1879 00 Te>:tende<br />
7078 <br />
7079 <br />
7034 IB7A 00 7080 IBA8 ED 42 SBC HL<br />
7081<br />
7035 1878 00 7082 IBAA EB EX DE.H<br />
7083 18A8 2A B7 6A LD HL.<br />
I<br />
7084<br />
7036 IB7C FF Vorbyte Tabelle drei<br />
7085<br />
7037 187D 8E Zwischencode PAI<br />
7086 IBAE 2B DEC HL<br />
7038 IB7E 28 7087 IBAF 2B DEC HL<br />
7039 187F 3 1 7088 1880 73 LO (HL<br />
7040 1880 29 7089 IB81 23 INC HL<br />
Textende<br />
7041 1881 eo c, ' 7090 1882 72 LD (HL><br />
7091 IB83 23 INC HL<br />
7092 1884 EO 48 85 6A LO BC.<br />
7093<br />
7094<br />
7095<br />
7096 18B8 B7 OR A<br />
7097 1889 Dl POP DE<br />
7098 18BA E5 PUSH H<br />
7099 IBBB ED 42 SBC HL<br />
7100<br />
7071
SEITE 126<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
7101 lBBD<br />
7102 IBBE<br />
7103 lBBF<br />
7104 IBCO<br />
7105 IBCl<br />
7106 IBC2<br />
7107 lBC3<br />
7108 IBC4<br />
7109 lBC5<br />
7110<br />
7111<br />
7112 lBC8<br />
7113 IBC9<br />
7114<br />
7115<br />
7116 lBCC<br />
7117<br />
7118 lBCE<br />
7119 1BCF<br />
7120<br />
7121 lBDl<br />
7122 IBD2<br />
7123<br />
7124<br />
7125 IBD5<br />
7126<br />
7127<br />
7128 IBD8<br />
7129<br />
7130<br />
7131<br />
7132<br />
7133<br />
7134<br />
7135<br />
7136<br />
7137<br />
7138<br />
7139<br />
7140<br />
7141<br />
7142<br />
7143<br />
7144<br />
7145<br />
7146<br />
7147<br />
7148<br />
7149<br />
7150<br />
7151<br />
7152<br />
IBD9<br />
lBDB<br />
EB<br />
77<br />
47<br />
23<br />
73<br />
23<br />
72<br />
EI<br />
11 OF<br />
13<br />
CD 00<br />
36 00<br />
23<br />
36 00<br />
23<br />
22 03<br />
22 B7<br />
C9<br />
36<br />
C9<br />
11<br />
58<br />
38<br />
6A<br />
EX DE.HL<br />
LD (HU.A<br />
LD B.A<br />
INC HL<br />
LD (HU.E<br />
INC HL<br />
LD (HU.D<br />
POP HL<br />
LD OE. 110F<br />
INC OE<br />
CALL 5800<br />
LD (HU. 00<br />
INC HL<br />
LD (HU. 00<br />
INC HL<br />
LD (38D3).HL<br />
LD (6AB7),HL<br />
RET<br />
00 LD (HU,<br />
RET<br />
;<br />
STRINGLÄNGE EINTRAGEN<br />
LÄNGE STRING<br />
IOFFSET AUF STRINGTEXT<br />
I IN DESCRIPTOR EINTRAGEN<br />
ZEIGER FüR STRINGTEXT<br />
ZEIGER AUF STRING<br />
LÄNGE üBERSPRINGEN<br />
ITEXT VON (OE) NACH<br />
I (HL) üBERTRAGEN<br />
00 I LÄNGE NULL<br />
IDESCRIPTOR<br />
Stringtext in Stringtextbereich eintragen<br />
IBDC<br />
IBDD<br />
IBDE<br />
180F<br />
IBEO<br />
18E3<br />
18E4<br />
IBE7<br />
IBE8<br />
lBE9<br />
23<br />
5E<br />
23<br />
56<br />
2A<br />
19<br />
11<br />
41<br />
13<br />
C3<br />
85<br />
OF<br />
00<br />
6A<br />
11<br />
58<br />
INC HL<br />
LD E. (HU<br />
INC HL<br />
LD 0, (HU<br />
LD HL, (6AB5)<br />
ADD HL.DE<br />
LD OE, 110F<br />
LD B,C<br />
INC OE<br />
JP 5800<br />
;<br />
lENDE STRINGTEXTBEREICH<br />
I EINTRAGEN<br />
ANFANG STRINGARBEITSBEREICH<br />
ENDE STRINGTEXTBEREICH<br />
IN VARIABLEN<br />
EINTRAGEN<br />
IOFFSET AUF STRING AUS<br />
I VARIABLENDESCRIPTOR<br />
I HOLEN<br />
ANFANG STRINGTEXTBEREICH<br />
ZEIGER AUF STRING ERRECHNEN<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER MIT NEUEM<br />
ISTRINGTEXT<br />
TEXTLÄNGE '<br />
TEXTLÄNGE üBERSPRINGEN<br />
ISTRING VON (OE) NACH<br />
I (HL) üBERTRAGEN<br />
7153<br />
7154<br />
7155<br />
7156<br />
7157<br />
7158<br />
7159<br />
7160<br />
7161<br />
7162<br />
7163<br />
7164<br />
7165<br />
7166<br />
7167<br />
7168<br />
7169<br />
7170<br />
7171<br />
7172<br />
7173<br />
7174<br />
7175<br />
7176<br />
7177<br />
7178<br />
7179<br />
7180<br />
7181<br />
IBFl<br />
IBF2<br />
lBF3<br />
IBF4<br />
IBF5<br />
lBF8<br />
lBF9<br />
IBFA<br />
lBFB<br />
lBFC<br />
IBFD<br />
lBFE<br />
lBFF<br />
lCOO<br />
lCOl<br />
lC04<br />
lC05<br />
lC07<br />
lC08<br />
lC09<br />
lCOA<br />
lC08<br />
lCOC<br />
23<br />
5E<br />
23<br />
56<br />
2A<br />
19<br />
2B<br />
2B<br />
50<br />
54<br />
09<br />
C5<br />
05<br />
EB<br />
2A<br />
B7<br />
ED<br />
40<br />
44<br />
EB<br />
01<br />
05<br />
28<br />
B5<br />
B7<br />
52<br />
02<br />
6A<br />
6A<br />
INC HL<br />
LD E. (H<br />
INC HL<br />
LD D. (H<br />
LD HL.<br />
ADD HL<br />
DEC HL<br />
DEC HL<br />
LD E.L<br />
LD D,H<br />
ADD HL<br />
PUSH BC<br />
PUSH OE<br />
EX DE.H<br />
LD HL.<br />
OR A<br />
SBC HL.<br />
LD C.L<br />
LD B.H<br />
EX DE.H<br />
POP OE<br />
PUSH OE<br />
JR Z. 0<br />
7182 lCOE ED BO LDIR<br />
7183<br />
7184<br />
lCl0<br />
lCll<br />
lC12<br />
01<br />
Cl<br />
2A 87 6A<br />
POP OE<br />
POP BC<br />
LD HL.<br />
7185<br />
7186<br />
7187<br />
7188<br />
7189 lC15 B7 OR A<br />
7190 lC16 ED 42<br />
SBC HL.<br />
7206<br />
7207 1C27 23 INC HL<br />
String mit Variablendescriptor (HL) löschen 7208 1C28 5E<br />
LD E. (H<br />
7209 lC29 23<br />
INC HL<br />
lBEC 4E<br />
LD C. (HU<br />
STRINGLÄNGE HOLEN<br />
7210 lC2A 56<br />
LD D. (H<br />
lBED 06 00<br />
LD B. 00<br />
BC ENTHÄLT LÄNGE<br />
lC28 87<br />
OR A<br />
lC2C EB<br />
EX DE.H<br />
1C2D ED 42<br />
SBC HL.<br />
IBEF<br />
lBFO<br />
03<br />
03<br />
INC BC<br />
INC BC<br />
I FüR OFFSET AUF VARIABLEN<br />
IDESCRIPTOR CORRIGIEREN<br />
7191<br />
7192<br />
7193<br />
7194<br />
7195<br />
7196<br />
7197<br />
7198<br />
7199<br />
7200<br />
7201<br />
7202<br />
7203<br />
7204<br />
7205<br />
7211<br />
7212<br />
7213<br />
7214<br />
lC18<br />
lC18<br />
lC1C<br />
lClD<br />
lClE<br />
lClF<br />
1C20<br />
lC21<br />
1C22<br />
1C25<br />
lC26<br />
22<br />
EB<br />
5E<br />
23<br />
56<br />
7A<br />
B3<br />
C8<br />
2A<br />
19<br />
7E<br />
B7<br />
B3<br />
6A<br />
6A<br />
LD (6AB<br />
EX OE.H<br />
LD E. (H<br />
INC HL<br />
LD O. (H<br />
LD A.O<br />
OR E<br />
RET Z<br />
LD HL.<br />
ADD HL.<br />
LD A. (H<br />
I<br />
I<br />
I
SEITE 128<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
7215 lC2F EB EX DE.HL testen. ob nächstes Progra<br />
7216 lC30 72 LD (HL>. D ICORRIGIERTEN OFF SET<br />
7217 1C31 2B DEC HL IWIEDER IN VARIABLEN 7270 lC66 CD 14 54 CALL<br />
7218 lC32 73 LD (HL>.E IDESRIPTOR EINTRAGEN 7271<br />
7219 lC33 C5 PUSH BC GELöSCHTE LÄNGE RETTEN 7272<br />
7220 lC34 4F LD C.A STRINGLÄNGE 7273 lC69 B7 OR A<br />
7221 lC35 06 00 LD B. 00 7274 lC6A C8 RET Z<br />
7222 7275 lC6B FE 3A CP 3A<br />
7223 1C37 2A B5 6A LD HL. (6AB5) ANFANG STRINGTEXTBEREICH 7276 <br />
7224<br />
7277 lC6D C9 RET <br />
7225 <br />
7226 1C3A 19 ADD HL.DE ZEIGER AUF ANFANG STRING <br />
7227 lC3B 09 ADD HL.BC ZEIGER AUF NÄCHSTEN STRING Befehl RUN <br />
7228 lC3C Cl POP BC GELöSCHTE LÄNGE HOLEN <br />
7229 1C3D 18 DD JR DD -+- 1CICH I UNTERSUCHEN. OB WEITERE 7278 lC6E C2 07 38 JP NZ<br />
7230 IDESRIPTOREN ZU CORRIGIEREN 7279<br />
7280 <br />
7281 lC71 ED 5B BF 6A LD OE<br />
Anfang Befehlsroutine entsprechend Zwischencode im Accu holen 7282 <br />
7283 <br />
7231 lC3F 23 INC HL ZWISCHENCODE üBERSPRINGEN 7284 <br />
7232 lC40 FE FF CP FF VORBYTE TABELLE DREI 7285 lC75 CD 85 1C CALL<br />
7233 7286<br />
7234 lC42 CA IB 24 JP Z. 241B BEFEHL AUS TABELLE DREI 7287 <br />
7235 7288 lC78 ED 7B 89 6A LD SP<br />
7236 7289<br />
7237 1C45 11 07 32 LD OE. 3207 I ZEIGER AUF TABELLE MIT 7290 <br />
7238 IANFANGSADRESSEN BEFEHLE 7291 <br />
7239 lAUS TABELLE ZWEI 7292 1C7C 21 FF FF LD HL<br />
7240 lC48 FE FE CP FE VORBYTE TABELLE ZWEI 7293 <br />
7241 7294 <br />
7242 1C4A 20 04 JR NZ, 04 + lC50H NICHT TABELLE ZWEI 7295 lC7F E5 PUSH<br />
7243 7296 1C80 E5 PUSH<br />
7244 lC4C 7E LD A. (HL> EIGENTLICHEN ZWISCHENCODE 7297 lCB1 EB EX DE<br />
7245 1C4D 23 INC HL PROGRAM<strong>MZ</strong>EIGER 7298 lCB2 C3 FE 18 JP 18<br />
7246 1C4E 18 08 JR 08 + 1C58H IANFANGSDRESSE AUS TABELL~ 7299 <br />
7247 I HOLEN UND ROUTINE AUFRUFEN 7300 <br />
7248 1C50 FE EO CP EO IGRöSSTER ZUGELASSENER<br />
7249 IBEFEHLSZWISCHENCODE<br />
7250 1C52 02 FE 20 JP Ne, 20FE I KEIN BEFEHL + Alle Flags auf Anfangsbed<br />
7251 I SYNTAX - FEHLER<br />
7252 7301 lC85 E5 PUSH<br />
7253 lC55 11 47 31 LD OE, 3147 I ZEIGER AUF TABELLE MIT 7302 lC86 D5 PUSH<br />
7254 IANFANGSADRESSEN DER 7303 lC87 CD 4E 22 CALL<br />
7255 IBEFEHLSROUTINEN 7304 <br />
7256 lC58 D6 80 SUB A, 80 I ZWISCHENCODE UMSETZEN IN 7305 <br />
7257 I ZÄHLER WIEVIELTE ADRESSE 7306 lC8A CD BE 25 CALL<br />
7258 lC5A E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN 7307<br />
7259 lC5B EB EX DE,HL ZEIGER TABELLE NACH HL 7308 <br />
7260 lC5C 5F LD E,A ZWISCHENCODEZÄHLER 7309 1C8D 21 00 00 LD HL<br />
7261 lC5D 16 00 LD D, 00 7310 <br />
7262 7311 <br />
7263 lC5F 19 ADD HL,DE I ZEIGER AUF TABELLENWERT 7312 lC90 22 EA 3B LD (3B<br />
7264 lC60 19 ADD HL,DE I ERRECHNEN 7313 <br />
7265 lC61 7E LD A, (HL> IADRESSE AUS TABELLE 7314 <br />
7266 lC62 23 INC HL I HOLEN 7315 lC93 2B DEC HL<br />
7267 fC63 66 LD H, (HL> I 7316 lC94 22 2A 27 LD (27<br />
7268 lC64 6F LD L,A I 7317 <br />
7269 lC65 E3 EX (SP) ,HL ; MIT PROGRAM<strong>MZ</strong>EIGER VERTAU. 7318 <br />
7319 lC97 AF XOR A<br />
7320 lC98 32 2E 27 LD (2<br />
7321
SEITE 130 <br />
7322 <br />
7323 lC9B 32 DE <br />
7324 <br />
7325 <br />
7326 lC9E 32 D9 <br />
7327 <br />
7328 <br />
7329 lCAl 32 D8 <br />
7330 <br />
7331 <br />
7332 lCA4 32 DF <br />
7333 <br />
7334 <br />
7335 lCA7 32 F2 <br />
7336 <br />
7337 <br />
7338 lCAA 32 00 <br />
7339 <br />
7340 <br />
7341 lCAD 32 01 <br />
7342 <br />
7343 <br />
7344 lCBO 32 42 <br />
7345 <br />
7346 <br />
7347 lCB3 21 OA <br />
7348 <br />
7349 <br />
7350 lCB6 22 E2 <br />
7351 <br />
7352 <br />
7353 lCB9 22 E4 <br />
7354 <br />
7355 <br />
7356 lCBC Dl <br />
7357 lCBD El <br />
7358 lCBE C9 <br />
Befehl FOR<br />
7359 lCBF Cl <br />
7360 1CCO EO 43 <br />
7361 <br />
7362 <br />
7363 <br />
7364 lCC4 CO 59 <br />
7365 <br />
7366 <br />
7367 lCC7 ED 43 <br />
7368 <br />
7369 <br />
7370 <br />
7371 lCCB 00 21 <br />
7372 <br />
7373 <br />
7374 <br />
7375 lCCF 00 39 <br />
7376 <br />
7377 lCD1 22 4D <br />
7378 <br />
7379 <br />
BASIC 1Z-013B<br />
38 LD (38DE>.A<br />
38 LD (38D9>.A<br />
38 LD (38D8>.A<br />
38 LD (38DF>.A<br />
38 LD (38F2>.A<br />
39 LD (3900>.A<br />
39 LD (3901>.A<br />
5B LD (5B42>.A<br />
00 LD HL. OOOA<br />
38 LD (38E2>.HL<br />
38 LD (38E4).HL<br />
POP DE<br />
POP HL<br />
RET<br />
POP BC<br />
60 1D LD (1060). BC<br />
19 CALL 1959 <br />
FB 38 LO (38FB>.BC <br />
00 00 LO IX. 0000<br />
ADO IX.SP<br />
1D LD (1040). HL<br />
V1_0A<br />
CONT - FLAG <br />
ON ERROR - FLAG <br />
AUTO - FLAG <br />
FEHLER - NUMMER <br />
• NULL - FLAG<br />
• (Zeitschleife nach PRINT> <br />
OPTION BASE - FLAG <br />
OPTION BASE <br />
10 <br />
LETZTE EDITORZEILENNUMMER<br />
OFFSET FüR AUTO<br />
• GERETTETE REGISTER HOLEN<br />
•<br />
• RüCKSPRUNGAORESSE HOLEN<br />
UND IN ROUTINE EINTRAGEN<br />
• SCHLEIFEN-VARIABLE <br />
'ANFANGSWERT ZUWEISEN <br />
• (LET - Routine)<br />
I ZEIGER AUF SCHLEIFEN<br />
I VAR I ABLE MERKEN<br />
c ISTACKPOINTER NACH IX <br />
I HOLEN <br />
• •<br />
c PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
7380 <br />
7381 <br />
7382 <br />
7383 <br />
7384 <br />
7385 <br />
7386 <br />
7387 <br />
7388 <br />
7389 <br />
7390 <br />
7391 <br />
7392 <br />
7393 <br />
7394 <br />
7395 <br />
73 96 <br />
73 97 <br />
7 398 <br />
7399 <br />
7400 <br />
7401 <br />
740 2 <br />
7403 <br />
7404 <br />
7405 <br />
7406 <br />
740 7 <br />
7408 <br />
7409 <br />
7410 <br />
7411 <br />
7412 <br />
741 3 <br />
7414 <br />
7415 <br />
7416 <br />
7417 <br />
7418 <br />
7419 <br />
7420 <br />
7421 <br />
7422 <br />
7423 <br />
7424 <br />
7425 <br />
7426 <br />
7427 <br />
7428 <br />
7429 <br />
7430 <br />
743 1 <br />
7432 <br />
7433 <br />
7434 <br />
7435 <br />
7436 <br />
7437 <br />
7438 <br />
7439 <br />
7440 <br />
7 441 <br />
lCD4<br />
1CD7<br />
1CDA<br />
1CDD<br />
1CDE<br />
1CEO<br />
1CE2<br />
lCE5<br />
lCE6<br />
lCE8<br />
lCEA<br />
1CED<br />
1CFO<br />
1CFl<br />
1CF2<br />
1CF4<br />
1CF6<br />
1CF9<br />
1CFB<br />
lCFD<br />
1DOO<br />
ID02<br />
1D04<br />
1D07<br />
IDOA<br />
IDOC<br />
IDOD<br />
1D10<br />
BASIC<br />
DD 5E 00<br />
DD 56 01<br />
21 FF FF<br />
B7 <br />
ED 52 <br />
28 22 <br />
21 12 FF <br />
B7 <br />
ED 52 <br />
20 1A <br />
DD 5E 06 <br />
DD 56 07<br />
ES<br />
87 <br />
ED 42 <br />
28 07<br />
11 12 00 <br />
DD 19 <br />
18 D7 <br />
11 12 00 <br />
DD 19 <br />
DD F9 <br />
2A 4D 1D <br />
CD 14 54 <br />
FE EO <br />
23 <br />
C2 FE 20 <br />
CD 8B 52 <br />
1Z-<br />
LD E. (I<br />
LD D. (I<br />
LD HL.<br />
OR A<br />
SBC HL.<br />
JR Z. 2<br />
LD HL.<br />
OR A<br />
SBC HL.<br />
JR NZ.<br />
LD E.(IX<br />
LD D.(IX<br />
EX DE.H<br />
OR A<br />
SBC HL.B<br />
JR Z. 0<br />
LD DE.<br />
ADD IX.D<br />
JR D7<br />
LD DE.<br />
ADD IX.D<br />
LD SP,IX<br />
LD HL. <<br />
CALL 54<br />
CP EO<br />
INC HL<br />
JP NZ.<br />
CALL 52<br />
•
SEITE<br />
7442<br />
7443 1013<br />
7444 1014<br />
7445 1015<br />
7446 1016<br />
7447<br />
7448<br />
7449 1019<br />
7450<br />
7451<br />
7452 101C<br />
7453<br />
7454 101E <br />
7455 101F <br />
7456 1020 <br />
7457 <br />
7458 1022 <br />
7459 <br />
7460 <br />
7461 1025 <br />
7462 <br />
7463 1027 <br />
7464 1028 <br />
7465 <br />
7466 <br />
7467 1028 <br />
7468 <br />
7469<br />
7470 102E<br />
7471 102F<br />
7472<br />
7473<br />
7474 1032<br />
7475 1033<br />
7476 1034<br />
7477<br />
7478<br />
7479 1037<br />
7480<br />
7481<br />
7482 103A<br />
7483<br />
7484 103C<br />
7485 1030<br />
7486<br />
7487<br />
7488 1040<br />
7489 1041<br />
7490 1042<br />
7491 1043<br />
7492<br />
7493<br />
7494 1046<br />
7495<br />
7496 1048<br />
7497<br />
7498<br />
7499 104B<br />
7500 104C<br />
7501<br />
7502<br />
7503 104F<br />
132<br />
BASIC 1Z-013B<br />
F5<br />
E5<br />
EB<br />
01 05 00<br />
PUSH AF<br />
PUSH HL<br />
EX OE.HL<br />
LO 8C. 0005<br />
11 20 27<br />
LO OE. 2720<br />
EO 80<br />
LOIR<br />
El<br />
F1<br />
FE EI<br />
POP HL <br />
POP AF <br />
CP El <br />
11 77 30<br />
LO OE. 3077<br />
20 04<br />
JR NZ. 04 ~ 1028H<br />
23<br />
CO 88 52<br />
INC HL <br />
CALL 5288 <br />
22 40 10<br />
LO (1040). HL<br />
09<br />
21 F8 FF<br />
EXX <br />
LO HL. FFFB <br />
39<br />
E8<br />
21 20 27<br />
ADO HL.SP <br />
EX OE.HL <br />
LO HL. 2720 <br />
01 05 00<br />
LO BC. 0005<br />
EO 80<br />
LOIR<br />
09<br />
21 F6 FF<br />
EXX <br />
LO HL. FFF6 <br />
39<br />
F9<br />
EB<br />
01 05 00<br />
ADO HL.SP <br />
LO SP.HL <br />
EX OE.HL <br />
LO BC. 0005 <br />
ED BO<br />
LOIR<br />
2A FB 38<br />
LD HL, (38FB)<br />
ES<br />
21 00 00<br />
PUSH HL <br />
LO HL. 0000 <br />
E5<br />
PUSH HL<br />
V1_0A<br />
I NACH OE <br />
NÄCHSTES PROGRAMMBYTE <br />
PROGRAM<strong>MZ</strong>EIGER MERKEN <br />
ZEIGER AUF WERT NACH HL <br />
LÄNGE REAL-WERT <br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER FüR STACK <br />
ENDE SCHLEIFE MERKEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
~ NÄCHSTES PROGRAMMBYTE<br />
STEP (Zwischencode)<br />
I ZEIGER AUF PLUS EINS <br />
I IM REAL - FORMAT <br />
KEIN STEP ANGEGEBEN<br />
STEP üBERSPRINGEN<br />
I AUSDRUCK AUSWERTEN UND<br />
I ZEIGER AUF ERGEBNIS<br />
INACH HL<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
OFFSET FüR SCHLEIFENENDE<br />
ZEIGER AUF STELLE FüR ENDE<br />
NACH OE<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER MIT WERT<br />
ISCHLEIFENENOE<br />
LÄNGE REAL-ZAHL<br />
ISCHLEIFENENOE FüR NEXT<br />
lAUF STACK ABLEGEN<br />
OFFSET FüR SCHRITTWEITE<br />
ZEIGER FüR SCHRITTWEITE<br />
STACKPOINTER DAMIT SETZEN<br />
LÄNGE REAL-ZAHL<br />
l ISCHRITTWEITE FüR NEXT <br />
lAUF STACK ABLEGEN <br />
I ZEIGER AUF SCHLEIFEN<br />
I VAR I A8LE HOLEN <br />
UND AUF STACK ABLEGEN<br />
I PROGRAM<strong>MZ</strong>E I GER<br />
I (wird eingetragen)<br />
AUF STACK ABLEGEN<br />
7504<br />
7505<br />
7506<br />
7507<br />
7508<br />
7509<br />
7510<br />
7511<br />
7512<br />
7513<br />
7514<br />
7515<br />
7516<br />
7517<br />
7518<br />
7519<br />
7520<br />
7521<br />
7522<br />
7523<br />
7524<br />
7525<br />
7526<br />
7527<br />
7528<br />
7529<br />
7530<br />
7531<br />
7532<br />
7533<br />
7534<br />
7535<br />
7536<br />
7537<br />
7538<br />
7539<br />
7540<br />
7541<br />
7542<br />
7543<br />
7544<br />
7545<br />
7546<br />
7547<br />
7548<br />
7549<br />
7550<br />
7551<br />
7552<br />
7553<br />
7554<br />
7555<br />
7556<br />
7557<br />
7558<br />
7559<br />
7560<br />
7561<br />
1050<br />
1053<br />
1054<br />
1057<br />
1058<br />
105B<br />
105C<br />
1060<br />
1061<br />
1062<br />
1064<br />
1066<br />
1069<br />
106C<br />
Befehl<br />
106F<br />
1071<br />
1074<br />
1075<br />
1079<br />
107A<br />
107B<br />
107E<br />
1082<br />
1084<br />
1088<br />
BASIC<br />
2A EO 38<br />
E5<br />
21 12 FF<br />
E5<br />
21 00 00<br />
39<br />
EO 5B 03 38<br />
25<br />
25<br />
EO 52<br />
3E OB<br />
OA BB 20<br />
2A 40 10<br />
C3 00 00<br />
NEXT<br />
3E 05<br />
32 65 6A<br />
Cl<br />
EO 43 E2 10<br />
F5<br />
Cl<br />
22 40 10<br />
00 21 00 00<br />
00 39<br />
00 22 01 10<br />
00 5E 00<br />
1Z-<br />
LO HL. (<br />
PUSH HL<br />
LO HL.<br />
PUSH HL<br />
LO HL.<br />
AOO HL.S<br />
LO DE, (<br />
OEC H <br />
OEC H <br />
SBC HL.O<br />
LD A, 0<br />
JP C. 2<br />
LO HL. (<br />
JP 0000<br />
LO A, 0<br />
LD (6A6<br />
POP BC<br />
LD (lDE<br />
PUSH AF<br />
POP BC<br />
LO (104<br />
LO IX.<br />
AOO IX,S<br />
LO (100<br />
LO E. (IX
SEITE<br />
7562<br />
7563 108B<br />
7564<br />
7565<br />
7566 108E<br />
7567<br />
7568<br />
7569 1091<br />
7570 1092<br />
7571<br />
7572 ID94<br />
7573<br />
7574<br />
7575 ID97<br />
7576 ID98<br />
7577 1099<br />
7578<br />
7579<br />
7580 109C<br />
7581<br />
7582<br />
7583 109F<br />
7584<br />
7585<br />
7586 IDA2<br />
7587 10A3<br />
7588<br />
7589<br />
7590 10A6<br />
7591<br />
7592<br />
7593 10A9<br />
7594<br />
7595<br />
7596 10AC<br />
7597 lOAD<br />
7598<br />
7599<br />
7600 IDBO<br />
7601<br />
7602 IDB2<br />
7603<br />
7604 10B4<br />
7605 10B5<br />
7606<br />
7607<br />
7608 IDB8<br />
7609 IDB9<br />
7610 IDBA<br />
7611<br />
7612<br />
7613<br />
7614 lOBE<br />
7615<br />
7616<br />
7617 10Cl<br />
7618<br />
7619 10C3<br />
7620<br />
7621 10C5<br />
7622 10C6<br />
7623<br />
134<br />
00 56<br />
21 12<br />
B7<br />
EO 52<br />
C2 C8<br />
C5<br />
Fl<br />
C2 FA<br />
OD 5E<br />
OD 56<br />
EB<br />
22 DF<br />
00 5E<br />
00 56<br />
EB<br />
01 08<br />
00 09<br />
DO E5<br />
01<br />
CD AF<br />
13<br />
lA<br />
OD 2A<br />
11 00<br />
00 19<br />
00 E5<br />
01<br />
CB 7F<br />
BASIC 1Z-013B<br />
01 LO 0, (I X+01><br />
FF LO HL, FF12<br />
OR A<br />
SBC HL,OE<br />
20 JP NZ, 20C8<br />
PUSH BC<br />
POP AF<br />
ID JP NZ, 10FA<br />
04 LD E, (IX+04)<br />
05 LD D, (IX+05)<br />
EX OE,HL<br />
10 LO (10DF), HL<br />
06 LO E, (I X+06)<br />
07 LD 0, (IX+07)<br />
EX DE,HL<br />
00 LD BC, 0008<br />
AOD IX,BC<br />
PUSH IX<br />
POP OE ;<br />
50 CALL 50AF<br />
INC OE<br />
LD A. <br />
00 LD OE. 0000<br />
AOO IX,OE<br />
PUSH IX<br />
POP DE<br />
BIT 7, A ;<br />
V1_0A<br />
COOE FOR - OATEN<br />
CARRY-FLAG ZURüCKSETZEN<br />
GLEICH STEUERWORT ?<br />
INEIN ~ FEHLER 13<br />
I NEXT ohne FOR<br />
IBEFEHLSENOEFLAG<br />
AUF NAMEN UNTERSUCHEN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I ANFANG SCHLEIFE AUS<br />
IDATENSATZ HOLEN<br />
NACH HL<br />
UNO IN ROUTINE EINTRAGEN<br />
I ZEIGER AUF LAUFVARIA8LE<br />
I DER SCHLEIFE HOLEN<br />
NACH HL<br />
OFFSET ZUR SCHRITTWEITE<br />
ZEIGER AUF SCHRITTWEITE<br />
I ZEIGER AUF SCHRITT<br />
I WEITE NACH OE<br />
ZEIGER AUF MSB MANTISSE<br />
MSB MANTISSE STEP<br />
I ZEIGER AUF ANFANG FOR<br />
IDATENSATZ HOLEN<br />
OFFSET ZUM SCHLEIFENENOE<br />
ZEIGER AUF SCHLEIFENENOE<br />
I NACH OE<br />
I<br />
VORZEICHEN SCHRITTWEITE<br />
BASIC<br />
7624 IDC8 <br />
20 01<br />
7625<br />
7626 10CA EB<br />
7627 IDCB CD 4A 5E<br />
7628<br />
7629<br />
7630 IDCE 38 14<br />
7631<br />
7632 10DO -31 00 00<br />
7633<br />
7634<br />
7635 1003 21 02 00<br />
7636<br />
7637<br />
7638 10D6 39 7639 10D7 7E<br />
7640 10D8 23<br />
7641 IDD9 66<br />
7642 10DA 6F<br />
7643 1008 22 EO 38<br />
7644<br />
7645<br />
7646 lODE 21 00 00<br />
7647<br />
7648<br />
7649 IDEl C3 00 00<br />
7650<br />
7651<br />
Schleife beenden<br />
7652 IDE4 11 12 00<br />
7653<br />
7654<br />
7655 10E7 2A 01 ID<br />
7656<br />
7657<br />
7658 IDEA 19<br />
7659 10EB F9<br />
7660 10EC 2A 40 10<br />
7661<br />
7662<br />
7663 IDEF CO 14 54<br />
7664<br />
7665<br />
7666 10F2 FE 2C<br />
7667<br />
7668 IDF4 20 EB<br />
7669<br />
7670 IDF6 23<br />
7671 10F7 22 40 10<br />
7672<br />
7673<br />
7674 IDFA DD 21 00 00<br />
7675<br />
7676<br />
7677<br />
7678 1DFE DD 39<br />
7679<br />
7680 lEOO DD 22 D1 10<br />
7681<br />
1Z-<br />
JR NZ,<br />
EX OE,H<br />
CALL 5E<br />
JR C, 1<br />
LD SP,<br />
LD HL,<br />
ADD HL,<br />
LO A. (H<br />
INC HL<br />
LD H, (H<br />
LO L.A<br />
LD (38E<br />
LD HL,<br />
JP 0000<br />
LD OE,<br />
LD HL. (<br />
ADO HL,<br />
LO SP,H<br />
LD HL, (<br />
CALL 54<br />
CP 2C<br />
JR NZ,<br />
INC HL<br />
LO (104<br />
LO IX,<br />
AOO IX.<br />
LO (ID0<br />
I<br />
I<br />
I<br />
I<br />
I<br />
I
SEITE 136<br />
BASIC 1Z-013B<br />
7682<br />
7683<br />
7684 lE04 2A 4D ID LD HL. (lD4D)<br />
7685<br />
7686<br />
7687 lE07 CD 14 54 CALL 5414<br />
7688<br />
7689<br />
7690 l EOA FE 2C CP 2C<br />
7691<br />
7692 lEOC 23 INC HL<br />
7693 lEOD CA 79 1D JP Z, ID79<br />
7694<br />
7695<br />
7696 lE10 2B DEC HL<br />
7697 lEll CD OB 58 CALL 580B<br />
7698<br />
7699<br />
7700 lEl4 22 4D ID LD (lD4D).HL<br />
7701<br />
7702<br />
7703 lEl7 DD 2A Dl ID LD IX. (lDDl><br />
7704<br />
7705<br />
7706<br />
7707 lEl8 DD 5E 00 LD E, (I X+OQ)<br />
7708<br />
7709<br />
7710 lElE DD 56 01 LD D, (I X+Ol><br />
7711<br />
7712<br />
7713 lE21 21 12 FF LD HL. FF12<br />
7714<br />
7715<br />
7716 lE24 B7 OR A<br />
7717 lE25 ED 52 SBC HL.DE<br />
7718<br />
7719 lE27 C2 C8 20 JP NZ. 20C8<br />
7720<br />
7721<br />
7722 lE2A DD 6E 06 LD L, (I X+06)<br />
7723<br />
7724<br />
7725 lE2D DD 66 07 LD H. (IX+07)<br />
7726<br />
7727<br />
7728 IE30 B7 OR A<br />
7729 l E3 1 ED 42 SBC HL,BC<br />
7730<br />
7731 lE33 2A 4D 1D LD HL. (ID4D)<br />
7732<br />
7733<br />
7734 lE36 CA 79 1D JP Z. ID79<br />
7735<br />
7736<br />
7737 lE39 11 12 00 LD DE. 0012 ;<br />
7738<br />
7739<br />
7740 lE3C DD 19 ADD IX,DE<br />
7741<br />
77421E3E DD 22 D1 1D LD (1DDl).IX<br />
7743<br />
V1.0A<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
(Komma.) ?<br />
PROGRAM<strong>MZ</strong>EIGER<br />
NÄCHSTE SCHLEIFE üBERPRüFEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
IVARIABLENNAMEN (HL) AUS<br />
I WERTEN UND ZEIGER AUF<br />
I VARIABLE BEREITSTELLEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
STACKPOINTER HOLEN<br />
I CODE-WERT VOM STACK<br />
I HOLEN<br />
CODE FOR-DATEN<br />
CARRV-FLAG ZURüCKSETZEN<br />
FOR-DATENSATZ ?<br />
INEIN ~ FEHLER 13<br />
INEXT ohne FOR FEHLER<br />
I ZEIGER AUF SCHLEIFEN<br />
IVARIABLE AUS DATENSATZ<br />
I~~N<br />
CARRV-FLAG ZURüCKSETZEN<br />
GLEICHE ZEIGER ?<br />
PROGAM<strong>MZ</strong>EIGER HOLEN<br />
TESTEN, OB ENDE SCHLEIFE<br />
LÄNGE FOR-DATENSATZ<br />
EINEN DATENSATZ VERGESSEN<br />
ZEIGER AUF STACK MERKEN<br />
BASIC 1Z-<br />
7744<br />
7745<br />
7746 lE42 ED 7B Dl ID LD SP. (l<br />
7747<br />
7748<br />
7749<br />
7750 lE46 18 D3 JR D3 ~<br />
7751<br />
7752 lE48 00<br />
7753 lE49 00 00<br />
7754<br />
7755 lE4B 00<br />
das folgende RoutinenstUck<br />
(es läuft in dieser Form au<br />
Siehe hierzu auch Programm<br />
7756 lE4C CD 80 38 CALL 38<br />
7757<br />
7758<br />
7759 lE4F B7 OR A<br />
7760 lE5e) CO RET NZ<br />
7761 lE5l 23 INC HL<br />
7762 lE52 D5 PUSH DE<br />
7763 lE53 5E LD E. (H<br />
7764 lE54 "';;:' ,J INC HL<br />
7765 lE55 56 LD D. (H<br />
7766 lE56 7A LD A,D<br />
7767 lE57 B3 OR E<br />
7768 lE58 23 INC HL<br />
7769 lE59 ED 53 48 lE LD (IE4<br />
7770<br />
7771<br />
7772<br />
7773 lE5D 5E LD E. (H<br />
7774 lE5E 23 INC HL<br />
7775 lE5F 56 LD D. (H<br />
7776 lE60 ED 53 49 lE LD ( lE4<br />
7777<br />
7778<br />
7779<br />
7780 lE64 Dl POP DE<br />
7781 lE65 37 SCF<br />
7782 lE66 C8 RET Z<br />
7783 lE67 18 E3 JR E3<br />
7784<br />
7785 lE69 71<br />
I<br />
I<br />
I
SEITE 138<br />
BASIC 1Z-013B<br />
Befehl PRINT<br />
7786 lE6A AF XOR A<br />
7787 lE6B 32 19 18 LD (1819) ,A<br />
7788<br />
7789<br />
7790 lE6E 3A 50 00 LD A, ,A<br />
7822 lE8E 18 52 JR 52 -+ lEE2H<br />
7823<br />
Bei PRINT auf Bildschirm auf angegebene<br />
Hintergrundfarbe untersuchen<br />
7824 1E90 FE 5B CP SB<br />
7825<br />
7826 lE92 C2 E2 1E JP NZ, lEE2<br />
7827<br />
7828<br />
7829 1E95 23 INC HL<br />
7830 lE96 CD 14 54 CALL 5414<br />
7831<br />
7832<br />
7833 lE99 FE 2C CP 2C<br />
7834<br />
7835 lE9B 23 INC HL<br />
7836 1E9C 28 20 JR Z, 20 -+ lEBEH<br />
7837<br />
7838 1E9E 2B DEC HL<br />
7839 lE9F CD 50 4D CALL 4D50<br />
7840<br />
V1.0A<br />
ACCU AUF NULL <br />
AUSGABEFLAG <br />
ZEICHEN/HINTERGRUNDFARBE <br />
I ZEICHENSATZ VERGESSEN <br />
I (Bi t 7 enthäl t Zei chens. ) <br />
I AKTUELLE ZEICHEN/HINTER<br />
I GRUNDFARBE FüR PRINT <br />
IPROGRAM<strong>MZ</strong>EIGER AUF <br />
I NÄCHSTES RELEVANTES <br />
tZEICHEN SETZEN <br />
I (Zwi schencode) <br />
NICHT PRINT I<br />
PROGRAM<strong>MZ</strong>EIGER <br />
IPROGRAM<strong>MZ</strong>EIGER AUF <br />
I NÄCHSTES RELEVANTES <br />
I ZEICHEN SETZEN <br />
P (PRINTER) <br />
PROGRAM<strong>MZ</strong>EIGER <br />
DRUCKER <br />
T
SEITE 140 <br />
BASIC 1Z-013B <br />
7903 <br />
7904 <br />
7905 lEEl 23 INC HL<br />
7906 lEE2 CD 66 1C CALL 1C66<br />
7907 <br />
7908 <br />
7909 lEE5 CA EC IF JP Z, 1FEC<br />
7910 <br />
7911 <br />
7912 lEE8 7E LD A, (HU<br />
7913 1EE9 FE 3B CP 3B<br />
7914 <br />
7915 lEEB CA C7 IF JP Z. IFC7 <br />
7916 <br />
7917 <br />
7918 lEEE FE 2C CP 2C <br />
7919 <br />
7920 1EFO CA C7 IF JP Z, 1FC7 <br />
7921 <br />
7922 <br />
7923 lEF3 FE E6 CP E6 <br />
7924 <br />
7925 lEF5 28 79 JR Z. 79 ... 1F70H <br />
7926 <br />
7927 1EF7 FE E3 CP E3 <br />
7928 <br />
7929 lEF9 CA 30 27 JP Z, 273 0 <br />
7930 <br />
7931 <br />
7932 1EFC C5 PUSH BC <br />
7933 1EFD CD 8B 52 CALL 5288 <br />
7934 <br />
7935 <br />
7936 1FOO Cl POP BC <br />
7937 1F01 3A 65 6A LD A, (6A65)<br />
7938 <br />
793 9 <br />
7940 IF04 B7 OR A<br />
7941 1F05 CA EC 1F JP Z, 1FEC<br />
7942 <br />
7943 <br />
7944 1F08 FE 03 CP 03 <br />
7945 <br />
7946 IFOA CA 33 20 JP Z. 2033 <br />
7947 <br />
7948 <br />
7949 IFOD E5 PUSH HL <br />
7950 1FOE EB EX DE,HL <br />
7951 IFOF CD 69 3C CALL 3C69 <br />
7952 <br />
7953 <br />
7954 IF12 E1 POP HL<br />
7955 1F13 lA LD A. <br />
RRA <br />
LD (HL><br />
EX AF.A<br />
CALL 17D<br />
POP AF <br />
RLCA <br />
RLC (HU<br />
RRA <br />
LD (HL>.<br />
POP HL <br />
RET <br />
8004 1F44 08 <br />
8005 1F45 C3 6F 46 <br />
8006 <br />
8007 <br />
EX AF,AF<br />
JP 466F
SEITE 142 <br />
BASIC 1Z-013B V1.0A <br />
Zeichen im Accu auf Drucker ausgeben <br />
Wenn Steuerzeichen ~ in richtges Zeichen für Plotter umsetzen <br />
8008 1F48 08 EX AF.AF' ASCII-ZEICHEN HOLEN <br />
8009 IF49 FE 11 CP 11 Cursor runter ? <br />
8010 <br />
8011 IF4B OE 09 LD C. 09 I CODE SCHRIFTBREITE <br />
8012 I VERKLE I NERN <br />
8013 IF4D 28 ID JR Z. ID ~ IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8014 <br />
8015 IF4F FE 12 CP 12 Cursor hoch <br />
8016 <br />
8017 IF51 OE OB LD C, OB I CODE SCHRIFTBREITE <br />
8018 I VERGRöSSERN <br />
8019 IF53 28 17 JR Z, 17 + IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8020 <br />
8021 IF55 FE 15 CP 15 Home ? <br />
8022 <br />
8023 IF57 OE OF LD C. OF CODE SEITENVORSCHUB<br />
8024 <br />
8025 IF59 28 11 JR Z, 11 ~ IF6CH ZEICHEN AN DRUCKER AUSGEBEN <br />
8026 <br />
8027 IF5B FE 16 CP 16 Clear ? <br />
8028 <br />
8029 IF5D C2 78 16 JP NZ, 1678 I NICHT Clear ~ <br />
8030 I ZEICHEN IM ACCU AUSGEBEN <br />
8031 <br />
8032 1F60 3E OC LD A. OC I CODE BREITSCHRIFT <br />
8033 I AUFHEBEN <br />
8034 IF62 CD 78 16 CALL 1678 IASCII IM ACCU AUF DRUCKER <br />
8035 I AUSGEBEN <br />
8036 <br />
8037 IF65 3E OA LD A, OA ; CODE ZEILENVORSCHUB <br />
8038 · <br />
8039 IF67 CD 78 16 CALL 1678 IASCII IM ACCU AUF DRUCKER <br />
8040 I AUSGEBEN <br />
8041 <br />
8042 1F6A OE 03 LD C, 03 CODE ZEILENRüCKSCHUB <br />
8043 <br />
8044 IF6C 79 LD A,C UMGESETZTES ZEICHEN HOLEN <br />
8045 IF6D C3 78 16 JP 1678 , I ZEICHEN IM ACCU AUF <br />
8046 I DRUCKER AUSGEBEN <br />
8047 <br />
Befehl PRINT TAB<br />
8048 IF70 3E 20 LD A, 20 ; Spac6! <br />
8049 <br />
80501F72 32 B8 1F LD (lFB8),A ; I ALS AUSZUGEBENDES <br />
8051 I ZEICHEN MERKEN <br />
8052 <br />
8053 1F75 3E 28 LD A, 28 140 (MAXIMALE SPALTEN<br />
8054 I NR. AUF VIDEO) <br />
8055 1F77 32 A5 IF LD (lFA5).A • IN ROUTINE EINTRAGEN <br />
8~6<br />
8057 <br />
8058 IF7A 3A 19 18 LD A. (1819) AUSGABE - FLAG <br />
8059 <br />
8060 <br />
8061 1F7D B7 OR A ; AUSGABE AUF BILDSCHIRM ? <br />
8062 IF7E 28 18 JR Z, 18 ~ 1F98H JA + PRINT TAB AUF VIDEO <br />
BASXC 1Z<br />
8063 j<br />
8064 IF80 FE 54 CP 54<br />
8065 <br />
8066 IF82 28 OA JR Z. O<br />
8067 <br />
8068 IF84 3E AO LD A. A<br />
8069<br />
8070 IF86 32 A5 IF LD (lFA<br />
8071<br />
8072 <br />
8073 1F89 3A BE 16 LD A. (1<br />
8074 <br />
8075 <br />
8076 IF8C 18 12 JR 12<br />
8077<br />
8078 1F8E 3E FF LD A. F<br />
8079<br />
8080 IF90 32 A5 IF LD (lFA<br />
8081 <br />
8082 <br />
8083 IF93 CD 4E 46 CALL 46<br />
8084<br />
8085 <br />
8086 IF96 18 08 JR 08<br />
8087<br />
8088 IF98 3 E 13 LD A. 1<br />
8089 <br />
8090 IF9A 32 B8 IF LD (lFB<br />
8091<br />
8092 <br />
8093 IF9D 3A 54 00 LD A. (0<br />
8094 <br />
8095 <br />
8096 IFAO F5 PUSH AF<br />
8097 IFAl CD 4E 20 CALL 20<br />
8098<br />
8099 <br />
8100 IFA4 FE 28 CP 28<br />
8101<br />
8102 IFA6 38 05 JR C. 0<br />
8103 <br />
8104 IFA8 3E 03 LD A. 0<br />
8105 <br />
8106 IFAA C3 08 21 JP 2108<br />
8107 <br />
8108 <br />
errechnen wieviel Zeichen f<br />
und Zeichen ausgeben <br />
8109 IFAD Dl POP OE<br />
8110 IFAE 92 SUB 0<br />
8111 IFAF OA E2 lE JP C. 1<br />
8112<br />
8113<br />
8114 IFB2 B7 OR A<br />
8115 IFB3 CA E2 lE JP Z. 1
SEITE 144 <br />
BASIC 1Z-013B V1.0A <br />
8116 I UNTERSUCHEN, OB WEITERE<br />
8117 I PRINT - TEILE<br />
8118 1F86 57 LD D,A ANZAHL AUSZUGEBENDE ZEICHEN<br />
8119 IF87 3E 13 LD A, 13 I AUSZUGEBENDES ZEICHEN<br />
8120 I
SEITE 146 <br />
BASIC 1Z-013B V1.0A <br />
8215 INÄCHSTEN 10er TAB STELLEN <br />
8216 <br />
8217 2019 C3 B8 16 JP 16B8 I AUSGABE AUF BILDSCHIRM <br />
8218 ' lAUF NÄCHSTEN lOer TAB <br />
8219 <br />
8220 201C 3A 50 00 LO A,
SEITE 148<br />
BASIC 1Z-013B<br />
8315<br />
8316 207C 22 F7 38 LD (38F7),HL<br />
8317<br />
8318<br />
8319 207F 2A E6 38 LD HL, (38E6)<br />
8320<br />
8321<br />
8322 2082 22 F5 38 LD (38F5),HL<br />
8323<br />
8324<br />
8325 2085 CD 09 00 CALL 0009<br />
8326<br />
8327<br />
8328 2088 11 Al 21 LO OE, 21Al<br />
8329<br />
8330<br />
8331 208B CD 51 00 CALL 0051<br />
8332<br />
8333<br />
8334 208E 2A E6 38 LD HL, (38E6)<br />
8335<br />
8336<br />
8.337 2091 23 INC HL<br />
8338 2092 7D LD A,L<br />
8339 2093 B4 OR H<br />
8340 2094 CA 5F 18 JP Z, 185F<br />
8341<br />
8342<br />
8343 2097 3E 01 LO A, 01<br />
8344<br />
8345 2099 32 09 38 LO (3809),A<br />
8346<br />
8347<br />
8348 209C C3 73 21 JP 2173<br />
8349<br />
8350<br />
Befehl CONT<br />
8351 209F Dl POP OE c<br />
8352 20AO 3A D9 38 LO A, (3809)<br />
8353<br />
8354<br />
8355 20A3 B7 oR A<br />
8356 20A4 CA E3 20 JP Z, 20E3<br />
8357<br />
8358<br />
8359 20A7 2A F5 38 LO HL, (38F5)<br />
8360<br />
8361<br />
8362 20AA 22 E6 38 LO (38E6),HL<br />
8363<br />
8364<br />
8365 20AD 2A F7 38 LO HL, (38F7)<br />
8366<br />
8367<br />
8368 20BO 22 EO 38 LD (38EO),HL<br />
8369<br />
8370<br />
8371 20B3 2A F3 38 LD HL, (38F3)<br />
8372<br />
V1_0A<br />
FüR CONT MERKEN<br />
AKTUELLE ZEILENNUMMER<br />
FüR CONT MERKEN<br />
I NEUE ZEILE AUSGEBEN, WENN<br />
I CURSOR NICHT AUF ANFANG<br />
I ZEILE STEHT<br />
TEXT BREAK<br />
TEXT (OE) AUSGEBEN<br />
AKTUELLE ZEILENNUMMER<br />
I IN DIREKTER PROGRAMM<br />
I IERUNG ?<br />
I<br />
JA ~ WARMSTART BASIC<br />
COOE CONT MöGLICH<br />
CoNT - FLAG<br />
ZEILENNUMMER AUSGEBEN<br />
STACK CoRRIGIEREN<br />
CoNT - FLAG<br />
CoNT MöGLICH ?<br />
INEIN + FEHLER 17<br />
I·CoNT nicht möglich<br />
ZEILENNUMMER FüR CONT<br />
I ALS AKTUELLE ZEILEN<br />
INUMMER VORGEBEN<br />
I ZEIGER AUF NÄCHSTE ZEILE<br />
I FüR CONT<br />
I ZEIGER AUF NÄCHSTE ZEILE<br />
I EINTRAGEN<br />
PROGRAM<strong>MZ</strong>EIGER FüR CONT<br />
BASIC 1Z-<br />
8373<br />
9374 2086 C3 25 19 JP 1925<br />
8375<br />
8376<br />
Fehlertabelleneinsprünge<br />
8377 20B9 3E 06 LO A, 06<br />
8378<br />
8379 20BB 8380<br />
EO 7B 89 6A LD SP, (6<br />
8381<br />
8382<br />
8383 20BF 8384<br />
21 FF FF LD HL, F<br />
8385<br />
8386 20C2 E5 PUSH HL<br />
8.387 20C3 ED 73 05 38 LO (38D5<br />
8388<br />
8389<br />
8390<br />
8391 20C7 21<br />
8392 20C8 3E 00 LD A, 00<br />
8393<br />
8394 20CA 21<br />
8395 20CB 8396<br />
3E 10 LD A, 10<br />
8397 20CD 21<br />
8398 20CE 3E 07 LO A, 07<br />
8399<br />
8400 2000 21<br />
8401 2001 8402<br />
3E 03 LO A, 03<br />
8403 2003 21<br />
8404<br />
8405 2004 3E 15 LO A, 15<br />
8406 2006 21<br />
8407 2007 3E 01 LO A. 01<br />
8408<br />
8409 2009 21<br />
8410<br />
8411 200A 3E 01 LO A, 01<br />
8412 200C 21<br />
8413 2000 3E 01 LD A. 01<br />
8414<br />
8415 20DF 21<br />
8416 20EO 3E OE LD A. OE<br />
8417<br />
8418 20E2 21<br />
8419<br />
8420 20E3 3E 11 LO A, 11<br />
8421 20E5 21<br />
8422<br />
8423 20E6 3E 05 LO A, 05<br />
8424 20E8 21<br />
8425 20E9 3E 01 LO A. 01<br />
8426<br />
8427 20EB 21<br />
8428<br />
8429 20EC 3E 01 LO A, 01<br />
8430 20EE 21
SEITE 150<br />
BASIC 1Z-013B<br />
8431 20EF 2108H<br />
3E 14 LD A. 14<br />
8432<br />
8433 20F1 21<br />
8434 20F2 3E 08 LO A. 08<br />
8435<br />
8436 20F4 21<br />
8437 20F5 3E 02 LD A. 02<br />
8438<br />
8439 20F7 21<br />
8440 20F8 3E 06 LD A. 06<br />
8441<br />
8442 20FA 21<br />
8443 20FB 3E 03 LD A. 03<br />
8444<br />
8445 20FD 21<br />
8446 20FE 3E 01 LD A, 01<br />
8447<br />
8448 2100 21<br />
8449 2101 3E 03 LD A. 03<br />
8450<br />
8451 2103 18 03 JR 03 ~ 8452<br />
Befehl ERROR<br />
8453 2105 CD 50 40 CALL 4050<br />
8454<br />
8455<br />
Aufgetretenen Fehler behandeln<br />
8456 2108 EO 7B 05 38 LO SP, (3805)<br />
8457<br />
8458<br />
8459<br />
8460 210C 4F LD C.A<br />
8461 2100 21 00 00 LD HL. 0000<br />
8462<br />
8463<br />
8464 2110 22 83 50 LD (5D83),HL<br />
8465<br />
8466<br />
8467 2113 2A E6 38 LD HL, (38E6)<br />
8468<br />
8469<br />
8470 2116 23 INC HL<br />
8471 2117 7D LD A.L<br />
8472 2118 B4 OR H<br />
8473 2119 79 LD A,C<br />
8474 211A 28 22 JR Z. 22 ~ 213EH<br />
8475<br />
8476 211C 2A E6 38 LD HL, (38E6)<br />
8477<br />
8478<br />
8479 211F 22 EA 38 LD (38EA),HL<br />
8480<br />
8481<br />
8482 2122 22 E2 38 LD (38E2).HL<br />
8483<br />
8484<br />
V1.0A<br />
I FEHLER 20 <br />
IRESUME nicht ausführbar <br />
I FEHLER 8 <br />
IProgrammzeile zu lang <br />
I FEHLER 2 <br />
lüberlauf bei Berechnung <br />
I FEHLER 6 <br />
I Speicher zu klein <br />
I FEHLER 3 <br />
I Datenfehler <br />
I FEHLER <br />
I Syntax - Fehl er <br />
I FEHLER 3 <br />
IDatenfehler <br />
FEHLER BEHANDELN <br />
EIN-BYTE-WERT NACH DE/ACCU<br />
ISTACKPOINTER AUF WERT<br />
IBEI ANFANG BEFEHL SETZEN<br />
FEHLERNUMMER <br />
CODE NICHT IN FN <br />
I ZEIGER AUF PARAMETER<br />
I DER AKTUELLEN FUNKTION<br />
• AKTUELLE ZEILENNUMMER<br />
I IN DIREKTER <br />
I PROGRAMMIERUNG ? <br />
• I<br />
FEHLERNUMMER <br />
JA ~ FEHLER AUSGEBEN <br />
AKTUELLE ZEILENNUMMER<br />
ZEILENNUMMER BEI FEHLER<br />
I LETZTE ANGESPROCHENE <br />
I ZEILE FüR EDITOR <br />
8485 2125<br />
8486<br />
8487<br />
8488 2128<br />
8489<br />
8490<br />
8491 2128<br />
8492<br />
8493<br />
8494 212E<br />
8495<br />
8496<br />
8497 2131<br />
8498<br />
8499<br />
8500 2134<br />
8501 2135<br />
8502<br />
8503<br />
8504 2138<br />
8505 2139<br />
8506<br />
8507 213B<br />
8508<br />
8509 2 13 D<br />
8510 21 3E<br />
8511<br />
8512 2140<br />
9513<br />
8514 2142<br />
8515<br />
8516<br />
8517 2145<br />
8518<br />
9519 2147<br />
8520<br />
8521 2149<br />
8522<br />
8523<br />
8524 214C<br />
8525<br />
8526 214E<br />
8527<br />
8528 2150<br />
8529<br />
8530<br />
8531 2153<br />
8532<br />
8533 2155<br />
853 4 2156<br />
8535<br />
8536 2158<br />
8537 2159<br />
8538<br />
8539 215B<br />
8540 215C<br />
8541 2150<br />
8542 215E<br />
8543<br />
8544 2160<br />
8545<br />
85 46 2162<br />
BASIC<br />
2A EO 38<br />
22 EC 38<br />
2A FO 38<br />
22 EE 38<br />
32 F2 38<br />
08<br />
3A 08 38<br />
3C<br />
FE 02<br />
28 4F<br />
08<br />
FE 47<br />
30 OE<br />
11 72 4B<br />
FE 19<br />
38 OC<br />
11 00 4C<br />
D6 2A<br />
30 05<br />
11 72 4B<br />
3E 01<br />
B7<br />
28 F8<br />
3D<br />
28 OD<br />
08<br />
lA<br />
13<br />
FE 80<br />
28 03<br />
B7<br />
1Z-<br />
LD HL. (<br />
LD (38EC<br />
LD HL. (<br />
LD (38E<br />
LD (38F<br />
EX AF.A<br />
LD A, (38<br />
INC A<br />
CP 02<br />
JR Z. 4F<br />
EX AF,A<br />
CP 47<br />
JR NC,<br />
LD DE.<br />
CP 19<br />
JR C. OC<br />
LD OE.<br />
SUB A.<br />
JR Ne.<br />
LD OE, 4<br />
LO A, 01<br />
OR A <br />
JR Z. F<br />
DEC A <br />
JR Z. 0<br />
EX AF.AF<br />
LD A,
SEITE 152<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
8547<br />
8548<br />
2163 20 F7 JR NZ. F7 ~ 215CH NEIN ~ TEXTENDE SUCHEN 8598<br />
8599<br />
8549 2165 08 EX AF.AF' ZÄHLER HOLEN 8600 2198 BO n<br />
8550<br />
8551<br />
8552<br />
8553<br />
8554<br />
8555<br />
8556<br />
8557<br />
8558<br />
2166 18 FO JR FO ~ 2158H PRüFEN. OB ZEIGER STIMMT 8601<br />
8602<br />
2168<br />
2169<br />
216B<br />
2160<br />
1A<br />
FE 80<br />
28<br />
CD<br />
E3<br />
09 00<br />
LD<br />
CP<br />
A.
SEITE 154 <br />
BASIC 1Z-013B V1.0A<br />
BASIC 1<br />
IJA<br />
8708<br />
8650 21CA CA 5F 18 JP Z, 185F<br />
~ WARMSTART BASIC<br />
I (Di e Abfrage muss vor dem<br />
8709 2205 05 PUSH<br />
8651 <br />
I Retten der Werte stehen)<br />
8710 2206 23 INC H<br />
8652 8711 2207 CD 65 40 CALL<br />
8653 21CO 3E 01 LD A, 01 CODE CONT MöGLICH<br />
8712<br />
8654 8713<br />
8655 21CF 32 09 38 LD (38D9),A CONT - FLAG<br />
8714 220A 4B LD C<br />
8656 8715 220B 42 LD B<br />
8657 8716 220C 01 POP D<br />
8658 2102 C3 5F 18 JP 185F WARMSTART BASIC <br />
8717 2200 CD 66 1C CALL<br />
8659 8718<br />
8660 8719<br />
8720 2210 C2 FE 20 JP N<br />
8721<br />
Befehl AUTO 8722 <br />
8723 2213 79 LO A<br />
8661 2105 11 OA 00 LD OE, OOOA ~ 10 (ANFANGSZEILENNUMMER)<br />
8724 2214 BO OR B<br />
8662 8725 2215 CA 01 21 JP Z<br />
8663 8726<br />
8664 2108 01 OA 00 LD BC, OOOA 10 (OFFSET) <br />
8727 <br />
8665 8728 2218 ED 53 E2 38 LO (3<br />
8666 8729 <br />
8667 210B 28 30 JR Z, 30 ~ 220DH IANFANGSZEILENNUMMER UND <br />
I OFFSET NICHT ANGEGEBEN<br />
8730<br />
8668 <br />
(Komma)<br />
8731<br />
8669 2100 FE 2C CP 2C <br />
8732221C ED 43 E4 38 LO (3<br />
8670 8733<br />
8671 210F 20 08 JR NZ, OB ~ 21ECH ANFANGSZEILENNR. ANGEGEBEN<br />
8734 <br />
8672 <br />
PROGRAM<strong>MZ</strong>EIGER<br />
8735<br />
8673 21El 23 INC HL<br />
ZWEI-BYTE-WERT NACH OE<br />
8736 2220 3E 01 LD A<br />
8674 21E2 CD 65 40 CALL 4065 <br />
8737 <br />
8675 8738 2222 32 DF 38 LD (3<br />
8676 8739<br />
8677 21E5 42 LO B,O I ANGEGEBENEN OFFSET<br />
8740<br />
8678 21E6 4B LO C,E I NACH BC<br />
ANFANGSZEILENNUMMER ZEHN<br />
8741 2225 Fl POP A<br />
8679 21E7 11 OA 00 LD OE, OOOA<br />
8742 2226 C3 76 18 JP 1<br />
8680 8743<br />
8681 <br />
JR 21<br />
8744<br />
~ 220DH I ZEILENNUMMER UND OFFSET <br />
8682 21EA 18 21 <br />
8683 <br />
I FüR AUTO MERKEN <br />
8684 21EC FE 2E CP 2E (Punkt)<br />
überprüfen, ob im AUTO -<br />
8685 wenn vorhanden, kompette<br />
8686 21EE ED 5B E2 38 LD OE, (38E2) I LETZTE üBER EOITOR<br />
8687 I FUNKTION ANGESPROCHENE<br />
IZEILENNUMMER<br />
8745 2229 3A DF 38 LD A<br />
8688 8746<br />
8689 <br />
JR Z, 09<br />
8747<br />
~ 21FOH ZEILENNR. ALS ANFANGSZ.NR.<br />
8690 21F2 28 09 8748 222C B7 OR A<br />
8691 8749 2220 C8 RET<br />
FE OB CP 08 INTEGER-ZEILENNUMMER ?<br />
8692 21F4 8750 222E C3 46 36 JP 36<br />
8693 8751<br />
8694 21F6 C2 FE 20 JP NZ, 20FE NEIN ~ SYNTAX - FEHLER<br />
8752<br />
8695 <br />
8696 <br />
8697 21F9 23 INC HL ; CODEZEICHEN üBERSPRINGEN<br />
Limit und Rechenspeichera<br />
8698 21FA 5E LO E. (HL> IZEILENNUMMER HOLEN<br />
8699 21FB 23 INC HL I <br />
8753 2231 22 B8 6A LO (6<br />
8700 21FC 56 LO D, (HL> ~ I <br />
PROGRAM<strong>MZ</strong>EIGER<br />
8754<br />
8701 21FO 23 INC HL<br />
8755<br />
8702 21FE CD 14 54 CALL 5414 IPROGRAM<strong>MZ</strong>EIGER AUF <br />
I NÄCHSTES RELEVANTES ,<br />
8756 2234 25 DEC H<br />
8703 <br />
I ZEICHEN SETZEN<br />
8757 2235 22 89 6A LD (6<br />
8704 8758<br />
8705 2201 FE 2C CP 2C (Komma) ?<br />
8759 <br />
8706 8760 2238 C9 RET <br />
8707 2203 20 08 JR NZ, 08 ~ 2200H KEIN OFFSET ANGEGEBEN
SEITE 156 <br />
Alles löschen<br />
8761 2239 2A BF <br />
8762 <br />
8763 <br />
8764 223C 36 00 <br />
8765 <br />
8766 223E 23 <br />
8767 223F 36 00 <br />
8768 <br />
8769 2241 23 <br />
8770 2242 22 B3 <br />
8771 <br />
8772 <br />
8773 2245 C3 4E <br />
8774 <br />
8775 <br />
Befehl NEW<br />
8776 2248 CO 39 <br />
8777 <br />
8778 <br />
8779 224B C3 4D <br />
8780 <br />
8781 <br />
Befehl CLR<br />
8782 224E E5 <br />
8783 224F D5 <br />
8784 2250 2A B3 <br />
8785 <br />
8786 <br />
8787 2253 36 00 <br />
8788 <br />
8789 2255 23 <br />
8790 2256 22 B5 <br />
8791 <br />
8792 <br />
8793 2259 3A D7 <br />
8794 <br />
8795 <br />
8796 225C 47 <br />
8797 2250 04 <br />
8798 225E 11 10 <br />
8799 <br />
8800 <br />
8801 2261 36 00 <br />
8802 <br />
8803 2263 19 <br />
8804 2264 10 FB <br />
8805 <br />
8806 2266 22 DA <br />
8807 <br />
8808 <br />
8809 2269 36 00 <br />
8810 <br />
8811 226B 23 <br />
8812 226C 36 00 <br />
BASIC 1Z-013B<br />
6A LD HL. (6ABF)<br />
Lp (HL>. 00<br />
INC HL<br />
LD (HL>. 00<br />
INC HL<br />
6A LD (6AB3).HL<br />
22 JP 224E<br />
22 CALL 2239 <br />
18 JP 184D<br />
PUSH HL<br />
PUSH DE<br />
6A LD HL. (6AB3)<br />
LD (HL>. 00<br />
INC HL<br />
6A LD (6AB5).HL<br />
38 LD A. (38D7><br />
LD B.A <br />
INC B <br />
01 LD DE. 0110 <br />
LO (HL>. 00<br />
ADD HL.DE ,<br />
DJNZ FB + 2261H<br />
38 LD (38DA).HL •<br />
LD (HL>. 00<br />
INC HL<br />
LD (HL>. 00<br />
V1.0A<br />
BASIC - PROGRAMMANFANG<br />
I BASIC-PROGRAMM LöSCHEN<br />
,, ,<br />
ZEIGER AUF VARIABLE<br />
CLR - ROUTINE<br />
ALLES LöSCHEN<br />
WARMSTART BASIC<br />
PROGRAM<strong>MZ</strong>EIGER RETTEN<br />
REGISTER RETTEN<br />
'ZEIGER AUF VARIABLEN<br />
, BEREICH<br />
CODE ENDE VARIABLE<br />
ANFANG STRINGTEXTBEREICH<br />
ANZAHL DEFINIERTE DATEIEN<br />
ANZAHL DATEIEN<br />
FüR EINGABEPUFFER CORRIG.<br />
IRESERVIERUNGSLÄNGE<br />
I JE DATEI<br />
CODE DATEI NICHT BELEGT<br />
ZEIGER AUF NÄCHSTEN DATENS.<br />
I WEITER OATEIPUFFER<br />
I FREIHALTEN<br />
ANFANG STRINGTEXTE<br />
I CODE KEINE STRINGS <br />
I VORHANDEN EINTRAGEN <br />
I <br />
I <br />
BAS~C 1<br />
8813 <br />
8814 226E 23 INC H<br />
8815 226F 22 B7 6A LD (6<br />
8816 <br />
8817 <br />
8818 2272 22 D3 38 LO (3<br />
8819<br />
8820<br />
8821 2275 01 POP D<br />
8822 2276 El POP H<br />
8823 2277 C9 RET<br />
Wenn Trace-Flag gesetzt +<br />
8824 2278 CB 47 BIT O<br />
8825 <br />
8826 227A C4 87 22 CALL<br />
8827 <br />
8828 <br />
8829 227D C9 RET <br />
8efehl TRON<br />
8830 227E 3E 01 LD A<br />
8831 <br />
8832 2280 18 01 JR 01<br />
8833 <br />
Befehl TROFF<br />
8834 2282 AF XOR A<br />
8835 2283 32 DD 38 LD (3<br />
8836 <br />
8837 <br />
8838 2286 C9 RET <br />
Aktuelle Zeilennummer für<br />
8839 2287 F5 PUSH<br />
8840 2288 E5 PUSH<br />
8841 2289 3E 5B LD A.<br />
8842 <br />
8843 228B CD D3 17 CALL<br />
8844<br />
8845 <br />
8846 228E 2A E6 38 LD H<br />
8847 <br />
8848 <br />
8849 2291 CD A7 21 CALL<br />
8850<br />
8851<br />
8852 2294 CD 51 00 CALL<br />
8853 <br />
8854 <br />
8855 2297 3E 50 LD A<br />
8856 <br />
8857 2299 CD D3 17 CALL<br />
8858
SEITE 158<br />
BASIC 1Z-013B V1.0A BASIC 1<br />
8859 Bef eh 1 INPUT<br />
8860 229C El POP HL I GERETTETE REGISTER HOLEN<br />
8861 2290 Fl POP AF I 8906 22CA AF XOR A<br />
8862 229E C9 RET 8907 22CB 32 5E 26 LD (2<br />
8908<br />
8909<br />
Befehl OPTION BASE (wird nicht dekodiert) 8910<br />
8911<br />
8863 8864<br />
8865<br />
229F 3A 01 39 LD A. (3901) FLAG OPTION BASE 8912<br />
8913<br />
8914<br />
8867 22A2 8866<br />
B7<br />
OR<br />
JP A<br />
GESETZT ?<br />
8915<br />
22A3 C2 CE 20 NZ. 20CE<br />
I SCHON OPTION BASE ANGE<br />
8916<br />
22CE CD 14 54 CALL<br />
2201 FE FB CP F<br />
2203 CA 65 23 JP Z.<br />
8868 I GEBEN ODER VARIABLE geDIMt 8917<br />
8869 I~ FEHLER 7 ARRAY-FEHLER 8918 2206 E5 PUSH<br />
8870<br />
23<br />
INC HL<br />
PROGRAM<strong>MZ</strong>EIGER<br />
8919 2207 2A B7 6A LD HL<br />
8871 22A7<br />
22A6 CD 50 4D CALL 4D50<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
8920<br />
8872 8921<br />
8873<br />
8922 220A 22 D3 38 LD (3<br />
8874 22AA B7 OR A OPTION BASE 0 ?<br />
8875 22AB 28 05 JR Z. 05 ~ 22B2H WERT IST OK 8923<br />
8924<br />
8876 8925 22DO El POP H<br />
8877 22AD FE 02 CP 02 OPTION BASE 1 ? 8926 22DE CD 14 54 CALL<br />
8878 8927<br />
8879 22AF 02 01 21 JP NC. 2101 ZU GROSS ~ DATENFEHLER 8928<br />
8880 8929 22E1 FE 22 CP 2<br />
8881 8930<br />
8882 22B2 32 42 5B LD (5B42).A OPTION BASE MERKEN 8931 22E3 CC BB 22 CALL<br />
8883 8932<br />
8884 8933<br />
8885 22B5 3E 01 LD A. 01 CODE OPTION BASE GESETZT 8934 22E6 20 OB JR NZ<br />
8886 8935<br />
8887 22B7 32 01 39 LD (3901>.A FLAG OPTION BASE 8936 22E8 CD 14 54 CALL<br />
8888<br />
8937<br />
8889 8938<br />
8890 22BA C9 RET 8939 22EB FE 3B CP 3<br />
8940<br />
8941 22ED 23 INC H<br />
(HL) stehenden Stringausdruck auswerten und Stringtext ausgeben 8942 22EE 28 09 JR Z.<br />
8943<br />
8891 22BB CD BC 40 CALL 4DBC ISTRINGAUSDRUCK AUSWERTEN 8944 22FO C3 FE 20 JP 20<br />
8892 I UND ZEIGER AUF STRING 8945<br />
8893 I BERE I TSTELLEN 8946<br />
8894 22BE 78 LD A.B ANZAHL ZEICHEN TEXT<br />
8895 22BF B7 OR A GLEICH NULL ?<br />
8896 22CO<br />
8897 22C1<br />
C8<br />
lA<br />
RET Z<br />
LD A.
SEITE<br />
8962 2302<br />
8963<br />
8964<br />
8965 2305<br />
8966<br />
8967 2307<br />
8968<br />
8969<br />
8970 230A<br />
8971<br />
8972 230C<br />
8973 2300<br />
8974 230E<br />
8975 230F<br />
8976<br />
8977<br />
8978 2312<br />
8979<br />
8980<br />
8981 2315<br />
8982 2316<br />
8983 2317<br />
8984<br />
8985<br />
8986 231A<br />
8987<br />
8988<br />
8989 2310<br />
8990 231E<br />
8991<br />
8992<br />
8993 2321<br />
8994 2322<br />
8995 2323<br />
8996 2324<br />
8997<br />
8998 2326<br />
8999<br />
9000<br />
9001 2329<br />
9002 232A<br />
9003 2328<br />
9004 232C<br />
9005 2320<br />
9006 232E<br />
9007 232F<br />
9008<br />
9009<br />
9010<br />
9011 2333<br />
9012 2334<br />
9013<br />
9014<br />
9015 2337<br />
9016 2338<br />
9017<br />
9018 233A<br />
9019<br />
9020 233C<br />
9021<br />
9022 233E<br />
9023 233F<br />
160<br />
CD 05<br />
28 05<br />
CD 32<br />
18 Fl<br />
AF<br />
F5<br />
E5<br />
2A 85<br />
11 10<br />
19<br />
E8<br />
CD FA<br />
DA 69<br />
05<br />
2A 26<br />
28<br />
7E<br />
87<br />
28 21<br />
32 77<br />
28<br />
28<br />
46<br />
28<br />
4E<br />
28<br />
ED 43<br />
E3<br />
CD 14<br />
87<br />
28 14<br />
FE 2C<br />
20 03<br />
23<br />
18 03<br />
BASIC 1Z-013B<br />
27 CALL 2705<br />
JR Z. 05 • 230CH<br />
33 CALL 3332<br />
JR Fl • 22FDH<br />
XOR A<br />
PUSH AF<br />
PUSH HL<br />
6A LD HL. (6AB5)<br />
00 LD OE. 0010<br />
ADD HL.DE<br />
EX DE.HL<br />
00 CALL OOFA<br />
20 JP C. 2069<br />
PUSH OE<br />
27 LD HL. (2726)<br />
DEC HL<br />
LD A. (HL><br />
OR A<br />
JR Z. 21 • 2347H<br />
26 LD (2677).A<br />
DEC HL<br />
DEC HL<br />
LD B. (HU<br />
DEC HL<br />
LD C. (HU<br />
DEC HL<br />
74 26 LD (2674).8C<br />
EX (SP).HL<br />
54 CALL 5414<br />
OR A ;<br />
JR Z. 14 • 234EH<br />
CP 2C<br />
JR NZ. 03 • 2341H :<br />
INC HL<br />
JR 03 • 2344H<br />
V1_0A<br />
I üBERPRüFEN. OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENDEZEICHEN IST<br />
KEINE WEITEREN VARIABLEN<br />
SYNTAX Komma<br />
I WEITERE VARIABLE BEREIT<br />
ISTELLEN<br />
CODE ENDE VARIABLENWERTE<br />
AUF STACK ABLEGEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
ANFANG STRINGTEXT8E~E!CH<br />
OFFSET ZUM EINGABEPUFFER<br />
ZEIGER AUF EINGABEPUFFER<br />
NACH OE<br />
I ZEILE VON TASTATUR HOLEN<br />
IUND ZEIGER IN OE AUF<br />
I EIGENTLICHE EINGA8E STELL.<br />
BREAK GEDRüCKT<br />
ZEIGER AUF EINGEGEB. TEXT<br />
I ZEIGER AUF ANFANG<br />
I VARIABLENWERTE<br />
ZEIGER AUF TYPWERT<br />
TYPWERT HOLEN<br />
GLEICH NULL<br />
lALLEN VARIABLEN WERTE .<br />
I ZUGEWIESEN<br />
VARIABLENARTCODE EINTRAGEN<br />
I ZEIGER AUF ADRESSEN<br />
I WERT STELLEN<br />
I ZEIGER AUF VARIA8LE<br />
I HOLEN<br />
ZEIGER AUF VARIABLE MERKEN<br />
I ZEIGER IN HL AUF<br />
I NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
Textende ?<br />
ZU WENIG WERTE EINGEGE8EN<br />
(Komma) ?<br />
ZEIGER STEHT AUF WERT<br />
Komma üBERSPRINGEN<br />
I DER VARIABLEN KEINEN<br />
BASIC 1Z<br />
9024<br />
9025 2341 CD 33 26 CALL<br />
9026<br />
9027<br />
9028 2344 E3<br />
EX (S<br />
9029 2345 18 08 JR OB<br />
9030<br />
903 1 2347 01 POP O<br />
9032 2348 E1 POP H<br />
9033 2349 ED 78 26 27 LD SP<br />
9034<br />
903 5<br />
9036<br />
9037 2340 C9 RET<br />
9038 234E 11 13 27 LD OE<br />
903 9<br />
9040<br />
9041 2351 CD 51 00 CALL<br />
9042<br />
9043<br />
9044 2354 2A 85 6A LD HL<br />
9045<br />
9046<br />
9047 2357 11 10 00 LD OE<br />
9048<br />
9049<br />
9050 23 5A 19 ADD H<br />
9051 23 5B EB EX DE<br />
9052 23 5C CD FA 00 CALL O<br />
9053<br />
9054<br />
9055 235F DA 69 20 JP C.<br />
9056<br />
9057<br />
9058 23 62 EB EX DE<br />
9059 2363 18 CF JR CF<br />
9060<br />
Bei INPUT auf INPUT/T unte<br />
9061 2365 23 INC HL<br />
9062 2366 CD 14 54 CALL 5<br />
9063<br />
9064<br />
9065 2369 FE 54 CP 54<br />
90 66<br />
9067 236B C2 FE 20 JP NZ.<br />
9068<br />
9069<br />
9070 236E 23 INC HL<br />
9071 236F CD OB 58 CALL 5<br />
9072<br />
9073<br />
9074 2372 32 77 26 LD (26<br />
9075<br />
9076<br />
90 77 2375 ED 43 74 26 LO (26<br />
9078<br />
9079<br />
I
SEITE 162<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
9080<br />
9081<br />
9082<br />
9083<br />
9084<br />
2379<br />
237A<br />
E5<br />
21 OF 11<br />
PUSH HL<br />
LD HL, 110F<br />
PROGRAM<strong>MZ</strong>EIGER RETTEN<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
9142 23B6 CO RET NZ<br />
9085 237D 01 00 FE LD BC, FEOt) 9146 23BA CD OA 24 CALL 2<br />
9086 9147<br />
9087<br />
9148<br />
9088 2380 FE 03 CP 03 CODE <strong>MZ</strong>-80 K - DATEI ?<br />
9149 23BD 38 E9 JR C.<br />
9089<br />
9090<br />
9091<br />
9092<br />
9093<br />
2382<br />
2384<br />
28<br />
CD<br />
50<br />
OE 24<br />
JR Z, 50<br />
CALL 240E<br />
~ 23D4H I <strong>MZ</strong>-80 K - DATEI LESEN<br />
I (hat andere Endezeichen )<br />
lEIN ZEICHEN AUS DATEIlPUFFER<br />
BEREITSTELLEN<br />
9094<br />
9095 2387 FE 22 CP 22 (AnfUhrungszeichen)<br />
9096<br />
9097 2389 28 60 JR Z, 60 ~ 23EBH DATEN MIT " BEGONNEN<br />
9098<br />
2388 CD 13 24 CALL 2413<br />
9099<br />
9100<br />
9101<br />
9102<br />
9103<br />
9104<br />
9105<br />
238E<br />
2390<br />
2391<br />
28<br />
~8<br />
OD<br />
20 04<br />
JR Z. 18 ~ 23A8H<br />
DEC C<br />
JR NZ. 04 ~ 2397H<br />
IZE.ICHEN IM ACCU AUF<br />
IDATENENDEZEICHEN UNTER<br />
I SUCHEN<br />
DATENENDE GEFUNDEN<br />
SCHON<br />
JA<br />
9106<br />
9107 2393 FE 20 CP 20 Space ?<br />
9108<br />
9109<br />
9110<br />
9111<br />
9112<br />
2395<br />
2397<br />
28<br />
FE<br />
23<br />
20<br />
JR<br />
CP<br />
Z. 23<br />
20<br />
IM TEXT ?<br />
~ 23BAH :,IBIS ENDE DATEN<br />
I UND VERGESSEN<br />
: Space ?<br />
LESEN<br />
9143<br />
9144<br />
9145<br />
9150<br />
9151<br />
9152<br />
9153<br />
9154<br />
9155<br />
9156<br />
9157<br />
9158<br />
9159<br />
9160<br />
9161<br />
9162<br />
9163<br />
23B7<br />
23B8<br />
23BF<br />
23C1<br />
23<br />
18 B5<br />
FE<br />
28<br />
20<br />
F7<br />
INC HL<br />
JR B5<br />
CP<br />
JR<br />
Z,<br />
20<br />
23C3 FE 2C CP 2C<br />
23C5 28 E1 JR Z,<br />
23C7<br />
23C9<br />
FE<br />
28<br />
00<br />
DD<br />
CP 00<br />
JR Z,<br />
23CB FO 35 OB OEC (I<br />
9164<br />
9165<br />
916623CE FD 36 oe 01 LD (IY<br />
9167<br />
9168<br />
9169<br />
2302 18 D4 JR 04<br />
9113 2399 28 02 JR Z, 02 ~ 239DH einen Datensatz aus <strong>MZ</strong> -80<br />
9114<br />
9115 239B OE 01 LD C, 01 9172 2304 CD OE 24 CALL 2<br />
9116<br />
9117<br />
9118<br />
9119<br />
9120<br />
239D<br />
239E<br />
239F<br />
77<br />
23<br />
CD OA 24<br />
LD (HU.A<br />
INC HL<br />
CALL 240A<br />
ZEICHEN MERKEN<br />
ZEIGER FüR TEXT<br />
lEIN ZEICHEN AUS DATEIlPUFFER<br />
BEREITSTELLEN<br />
23D9 28 10 JR Z,<br />
9121 9178<br />
9122 23A2 38 04 JR C. 04 ~ 23A8H ~ ENDE DATEI 9179 23DB CD 13 24 CALL 2<br />
9123<br />
9124<br />
9125<br />
9126<br />
'9127<br />
9128<br />
9129<br />
9130<br />
9131<br />
9132<br />
9133<br />
9134<br />
9135<br />
9136<br />
9137<br />
9138<br />
9139<br />
9140<br />
9141<br />
23A4<br />
23A6<br />
23A7<br />
23A8<br />
23AA<br />
23AD<br />
2380<br />
23B1<br />
23B4<br />
10<br />
77<br />
23<br />
36<br />
21<br />
CD<br />
E1<br />
CD<br />
FE<br />
E5<br />
00<br />
OF 11<br />
33 26<br />
14 54<br />
2C<br />
DJNZ E5 ~ 238BH<br />
LD (HU.A<br />
INC HL<br />
LD (HU. 00 ;<br />
LD HL. 110F<br />
CALL 2633<br />
POP HL<br />
CALL 5414<br />
CP 2C<br />
IWEITERE ZEICHEN AUS<br />
I DATEI EINLESEN<br />
LETZTES ZEICHEN MERKEN<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
Textendezeichen EINTRAGEN<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER MIT BEREITlGESTELLTEN<br />
DATEN<br />
• I BEREITGESTELLTEN DATEN<br />
ISATZ NACH EINGETRAGENEN<br />
IVARIABLENWERTEN ZUWEISEN<br />
, PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
IPROGRAM<strong>MZ</strong>EIGER (HL) AUF<br />
I NÄCHSTES RELEVANTES<br />
I ZEICHEN STELLEN<br />
(Komma) ?<br />
9170<br />
9171<br />
9173<br />
9174<br />
9175<br />
9176<br />
9177<br />
9180<br />
9181<br />
9182<br />
9183<br />
9184<br />
9185<br />
9186<br />
9187<br />
9188<br />
9189<br />
9190<br />
9191<br />
9192<br />
9193<br />
9194<br />
23D7<br />
23DE<br />
23EO<br />
23El<br />
23E2<br />
23E5<br />
23E7<br />
23E9<br />
FE<br />
28<br />
T7<br />
23<br />
CD<br />
38<br />
10<br />
18<br />
22<br />
CP<br />
C8 JR Z,<br />
OA<br />
Cl<br />
F2<br />
BD<br />
22<br />
LO (H<br />
INC HL<br />
24 CALL 2<br />
JR C,<br />
OJNZ F<br />
JR BD
SEITE 164 <br />
BASIC 1Z-013B V1.0A <br />
9195 23EB 77 LD (HL>. A " MERKEN<br />
9196 23EC 23 INC HL ZEIGER AU ZWISCHNSPEICHER<br />
~197 23ED 06 FF LD B. FF " VORGABE MAXIMALE ANZAHL<br />
9198 <br />
9199 23EF CD OA 24 CALL 240A lEIN ZEICHEN AUS DATEI<br />
9200 lPUFFER BEREITSTELLEN <br />
9201 <br />
9202 23F2 38 B4 JR C. B4 ~ 23A8H lENDE DATEI ~ BEREITGE<br />
9203 ISTELLTEN DATESATZ ZUWEISEN <br />
9204 23F4 77 LD (HL>.A ZEICHEN MERKEN <br />
9205 23F5 23 INC HL ZEIGER AUF ZWISCHENSPEICHER <br />
9206 23F6 FE 22 CP 22 (Anführungszeichen)<br />
9207 <br />
9208 23F8 28 04 JR Z. 04 ~ 23FEH ENDE DATENSATZ <br />
9209 <br />
9210 23FA 10 F3 DJNZ F3 ~ 23EFH WEITERE ZEICHEN EINLESESEN<br />
9211 <br />
92 12 23FC 18 AA JR AA ~ 23A8H I BEREITGESTELLTEN DATESATZ <br />
921 3 I DER VARIABLEN ZUWEISEN <br />
9214 23FE CD OA 24 CALL 240A lEIN ZEICHEN AUS DATEI<br />
9215 lPUFFER BEREITSTELLEN <br />
9216 <br />
9217 2401 38 A5 JR C. A5 ~ 23A8H ENDE DATEI <br />
9218 <br />
9219 2403 CD 13 24 CALL 2413 I UNTERSUCHEN. OB ACCU <br />
9220 IDATENSATZENDEZEICHEN IST <br />
9221 <br />
9222 2406 28 AO JR Z. AO ~ 23A8H IBEREITGESTELLEN DATENSATZ <br />
9223 I DER VARIABLEN ZUWEISEN <br />
9224 2408 18 Cl JR Cl ~ 23CBH PUFFERZEIGER CORRIGIEREN <br />
9225 <br />
ei n Zeichen aus Dateipuffer bereitstellen<br />
9226 240A CD B5 45 CALL 45B5 I üBERPRüFEN. OB NOCH <br />
9227 I DATEN VORHANDEN SIND <br />
9228 <br />
9229 240D 08 RET C KEINE DATEN MEHR VORHANDEN <br />
9230 240E CD 71 45 CALL 4571 lEIN ZEICHEN AUS DATEI<br />
9231 lPUFFER BEREITSTELLEN <br />
9232 <br />
9233 2411 B7 OR A CARRY-FLAG ZURüKSETZEN <br />
9234 2412 C9 RET <br />
untersuchen. ob ACCU gleich Datensatzendezeichen ist<br />
9235 2413 B7 OR A Textendezeichen ? <br />
9236 2414 C8 RET Z JA <br />
9237 2415 FE 2C CP 2C (Komma) ? <br />
9238 <br />
9239 2417 C8 RET Z JA <br />
9240 2418 FE OD CP 00 Wagenrücklauf ? <br />
9241 <br />
9242 241A C9 RET <br />
BASIC 1Z<br />
Befehle aus Funktionstabe<br />
9243 241B 7E LD A.<br />
9244 241C 23 INC HL<br />
9245 241D FE BC CP BC<br />
9246 <br />
9247 241F CA 36 25 JP Z.<br />
9248 <br />
9249 <br />
9250 2422 FE CO CP CO<br />
9251 <br />
9252 2424 CA EA 24 JP Z.<br />
9253 <br />
9254 <br />
9255 2427 FE C4 CP C4<br />
9256 <br />
9257 2429 CA 59 24 JP Z.<br />
9258 <br />
9259 <br />
9260 242C C3 FE 20 JP 20F<br />
9261 <br />
9262 <br />
Zwei Ziffern (DE) umsetzen<br />
9263 242F CD 3C 24 CALL 2<br />
9264 <br />
9265 <br />
9266 2432 07 RLCA <br />
9267 2433 07 RLCA<br />
9268 2434 07 RLCA<br />
9269 2435 07 RLCA <br />
9270 2436 4F LD C.A<br />
9271 2437 CD 3C 24 CALL 2<br />
9272 <br />
9273 <br />
9274 243A B1 OR C<br />
9275 243B C9 RET<br />
Ziffer (OE) umsetzen in De<br />
9276 243C lA LD A. <<br />
9277 2430 13 I NC OE<br />
9278 243E 06 30 SUB A.<br />
9279 <br />
9280 2440 38 03 JR C. 0<br />
9281 <br />
9282 2442 FE OA CP OA<br />
9283 <br />
9284 2444 08 RET C <br />
9285 2445 78 LD A.B<br />
9286 2446 C9 RET
SEITE 166<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
9 335<br />
Zeichen
SEITE 168<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
9392 <br />
9393 24B1 OA FB 20 JP C. 20FB I KEINE ZIFFER -+ <br />
9394 IDATENFEHLER<br />
9395<br />
Befehl ????? (Z<br />
Syntax: BefehleSpeiche<br />
9396 24B4 FE OA CP OA ANZAHL ZIFFERN<br />
9450 24EA CD FA 57 CALL 5<br />
9397<br />
9451<br />
9398 24B6 02 FB 20 JP NC. 20FB IKEINE ZIFFER -+<br />
9452<br />
9399 I DATENFEHLER<br />
9453 24ED CD 65 40 CALL 4<br />
9400<br />
9454<br />
9401 24B9 C5 PUSH BC 9455<br />
• REGISTER RETTEN<br />
9402 24BA 4F LO C.A ERSTE ZIFFER MERKEN<br />
9456 24FO CD 32 33 CALL 3<br />
9403 24BB 87 ADO A.A I MAL 2<br />
9457<br />
9404 24BC 87 ADD A.A I MAL 4<br />
9458<br />
9405 24BO 81 ADD A.C 9459 24F3 05 PUSH O<br />
• MAL 5<br />
9406 24BE 87 ADD A.A I MAL 10<br />
9460 24F4 CO 65 4D CALL 4<br />
9407 24BF 4F LD C.A WERT ERSTE NEUE STELLE<br />
9461<br />
9408 24CO lA LD A. (DE) NÄCHSTS TEXTZEICHEN HOLEN<br />
9462<br />
9409 24Cl 13 INC OE ZEIGER AUF RESTTEXT 9463 24F7 CD 04 58 CALL 5<br />
9410 24C2 06 30 SUB A. 30 ASCII UMSETZEN IN DEZIMAL<br />
9464<br />
9411. <br />
9465<br />
9412 .24C4 OA FB 20 JP C, 20FB I KEINE ZIFFER -+ 9466 24FA CD 53 40 CALL 4<br />
9413 I DATENFEHLER 9467<br />
9414<br />
9468<br />
9415 24C7 FE OA CP OA ANZAHL ZIFFERN 9469 24FD F5 PUSH A<br />
9416 9470 24FE CD 14 54 CALL 5<br />
9417 24C9 02 FB 20 JP NC, 20FB KEINE ZIFFER -+ DATENFEHLER<br />
9471<br />
9418 9472<br />
9419<br />
9473 2501 23 INC HL<br />
9420 24CC 81 ADO A.C PLUS ERSTE STELLE<br />
9474 2502 FE F4 CP F4<br />
9421 24CO 4F LD C.A ERGEBNIS MERKEN<br />
9475<br />
9422 24CE 06 00 LO B. 00 BC ENTHÄLT WERT NEUE STELLE<br />
9476 2504 C2 FE 20 JP NZ<br />
9423<br />
9477<br />
9424 2400 09 AOD HL.BC PLUS ALTES ERGEBNIS<br />
9478<br />
9425 2401 Cl POP BC GERETTETES REGISTER HOLEN<br />
9479 2507 CD BC 4D CALL 4<br />
9426 2402 C9 RET 9480<br />
9481<br />
9482 250A Cl POP BC<br />
2 - stellige BCD - Zahl im Accu umrechnen in HEX-Wert 9483 250B E3 EX eS<br />
9484 250C 88 CP B<br />
9427 2403 C5 PUSH BC REGISTER RETTEN<br />
9485 2500 30 01 JR NC<br />
9428 2404 4F LD C.A BCD - DIGIT - WERT<br />
9486<br />
9429 2405 07 RLCA IH-DIGIT AUF L-DIGIT 9487 250F 47 LD B.A<br />
9430 2406 07 RLCA I SCHIEBEN<br />
9488 2510 04 INC B<br />
9431 2407 07 RLCA I 9489 2511 18 04 JR 04<br />
9432 24D8 07 RLCA 9490<br />
9433 2409 E6 OF ANO A. OF • IL-DIGIT MASKIEREN 9491 2513 lA LD A,<br />
9434 9492 2514 77 LD (H<br />
9435 240B 47 LD B.A UND MERKEN 9493 2515 13 INC OE<br />
9436 240C 28 05 JR Z. 05 -+ 24E3H H-DIGIT GLEICH NULL 9494 2516 23 INC HL<br />
9437 9495 2517 10 FA OJNZ F<br />
9496<br />
9438 240E AF XoR A ZÄHLER AUF NULL<br />
9439 240F C6 OA AOD A. OA • IWERT 10er STELLE<br />
9497 2519 El POP HL<br />
9440 I ERRECHNEN 9498 251A C9 RET<br />
9441 24El 10 FC DJNZ FC -+ 24DFH I<br />
9442<br />
9443 24E3 47 LD B.A WERT 10er STELLE<br />
9444 24E4 79 LD A.C BCD-WERT HOLEN<br />
9445 24E5 E6 OF AND A, OF L-DIGIT MASKIEREN<br />
9446<br />
9447 24E7 80 ADD A.B PLUS 10er STELLE<br />
9448 24E8 Cl POP BC GERETTETES REGISTER HOLEN<br />
9449 24E9 C9 RET
SEITE 170<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
Befehl<br />
9499 251B<br />
9500<br />
9501 2510<br />
9502<br />
9503 251F<br />
9504 2520<br />
9505<br />
9506<br />
9507 2523<br />
9508<br />
9509<br />
9510<br />
9511<br />
9512<br />
9513<br />
9514<br />
9515<br />
9516<br />
9517<br />
9518<br />
9519<br />
9520<br />
9521<br />
DEF<br />
FE B2<br />
20 07<br />
23<br />
CO 14<br />
C3 E2<br />
54<br />
43<br />
CP B2<br />
JR NZ. 07<br />
INC HL<br />
CALL 5414<br />
JP 43E2<br />
~ 2526H<br />
KEY (Zwischencode)<br />
WEITER UNTERSUCHEN<br />
KEY üBERSPRINGEN<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
DEF KEY - ROUTINE<br />
Befehl OEF FN 9566<br />
9567<br />
2526<br />
2528<br />
252B<br />
252C<br />
252D<br />
252E<br />
FE<br />
C2<br />
FF<br />
23<br />
7E<br />
23<br />
FE C7<br />
FE 20<br />
CP<br />
JP<br />
FF<br />
NZ. 20FE<br />
INC HL<br />
LD A. (HU<br />
INC HL<br />
CP C7<br />
VORBYTE TABELLE<br />
SYNTAX - FEHLER<br />
PROGRAM<strong>MZ</strong>EIGER<br />
ZWISCHENCODE HOLEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
FN (Zwischencode)<br />
9551<br />
9552<br />
9553<br />
9554<br />
9555<br />
9556<br />
9557<br />
9558<br />
9559<br />
9560<br />
9561<br />
9562<br />
9563<br />
9564<br />
9565<br />
DREI 9568<br />
2530 CA 77 5C JP Z. 5C77 DEF FN - ROUTINE 9578<br />
9569<br />
9570<br />
9571<br />
9572<br />
9573<br />
9574<br />
9575<br />
9576<br />
9577<br />
2550<br />
2553<br />
2554<br />
2555<br />
2556<br />
2559<br />
255C<br />
CD<br />
Cl<br />
4F<br />
C5<br />
CD<br />
CD<br />
FE<br />
50<br />
OD<br />
14<br />
F4<br />
40<br />
27<br />
54<br />
CALL<br />
POP B<br />
LO C.A<br />
PUSH<br />
CALL<br />
CALL<br />
CP F<br />
255E C2 FE 20 JP NZ<br />
2561<br />
2562<br />
2565<br />
2566<br />
2567<br />
2568<br />
2569<br />
23<br />
CD BC 4D<br />
D9<br />
Cl<br />
E3<br />
08<br />
CD 7F 52<br />
9522<br />
9523 2533 C3 FE 20 JP 20FE SYNTAX - FEHLER 9581 256D 38 1D JR C.<br />
9524<br />
9582<br />
9525 9583 256F 68 LD L.B<br />
9526<br />
9527<br />
9528<br />
9529<br />
9530<br />
9531<br />
9532<br />
9533<br />
9534<br />
9535<br />
9536<br />
95.37<br />
9538<br />
9539<br />
9540<br />
9541<br />
9542<br />
9543<br />
9544<br />
9545<br />
9546<br />
9547<br />
9548<br />
9549<br />
9550<br />
INC H<br />
CALL<br />
EXX<br />
POP B<br />
EX (S<br />
EX AF<br />
CALL<br />
9579<br />
9580 256C 90 SUB B<br />
9584 2570 20 DEC L<br />
9585 2571 26 00 LD H.<br />
Befehl MIO$ 9586<br />
2536<br />
2539<br />
253C<br />
253E<br />
2541<br />
2542<br />
2545<br />
2548<br />
2549<br />
254C<br />
2540<br />
CD<br />
CD<br />
FE<br />
C2<br />
C5<br />
CD<br />
CD<br />
B7<br />
CA<br />
F5<br />
CD<br />
FA<br />
OB<br />
03<br />
FB<br />
2F<br />
50<br />
01<br />
2F<br />
57<br />
58<br />
20<br />
33<br />
4D<br />
21<br />
33<br />
CALL 57FA<br />
CALL 580B<br />
CP 03<br />
JP NZ. 20FB<br />
PUSH BC<br />
CALL 332F<br />
CALL 4D50<br />
OR A<br />
JP Z. 2101<br />
PUSH AF<br />
CALL .332F<br />
SYNTAX Klammer a.uf<br />
IVARIABLENNAMEN (HL) AUS<br />
I WERTEN UND ZEIGER AUF<br />
IVARIABLE BEREITSTELLEN<br />
STRINGVARIABLE ?<br />
NEIN ~ DATENFEHLER<br />
ZEIGER AUF VARIABLE MERKEN<br />
SYNTAX Komma<br />
EIN-BYTE-WERT NACH<br />
GLEICH NULL ?<br />
JA ~ DATENFEHLER<br />
AB STELLE MERKEN<br />
SYNTAX Komma<br />
9587 2573 19 ADD H<br />
9588<br />
9589<br />
9590<br />
9591<br />
9592<br />
9593<br />
9594<br />
9595<br />
9596<br />
9597<br />
9598<br />
9599<br />
9600<br />
9601<br />
9602<br />
DE/ACCU 9603<br />
9604<br />
9605<br />
9606<br />
9607<br />
9608<br />
9609<br />
9610<br />
9611<br />
9612<br />
2574<br />
2575<br />
2576<br />
2577<br />
2578<br />
257A<br />
257B<br />
257C<br />
257E<br />
257F<br />
2580<br />
2581<br />
2582<br />
2583<br />
2584<br />
2586<br />
2587<br />
2588<br />
2589<br />
258A<br />
258C<br />
3C<br />
5F<br />
08<br />
B9<br />
38<br />
79<br />
BB<br />
38<br />
7B<br />
E5<br />
D9<br />
El<br />
47<br />
B7<br />
28<br />
lA<br />
77<br />
13<br />
23<br />
10<br />
Ei<br />
01<br />
01<br />
06<br />
FA<br />
INC A<br />
LD E.A<br />
EX AF<br />
CP C<br />
JR C.<br />
LD A.C<br />
CP E<br />
JR C.<br />
LD A.<br />
PUSH<br />
EXX<br />
POP H<br />
LD B.A<br />
OR A<br />
JR Z.<br />
LD A.<br />
LD (H<br />
INC D<br />
INC H<br />
DJNZ<br />
PCP H
SEITE<br />
9613 258D<br />
RES TORE<br />
9614 258E<br />
9615 258F<br />
9616<br />
9617<br />
9618 2592<br />
9619 2593<br />
9620<br />
9621<br />
9622 2596<br />
9623 2597<br />
9624 2598<br />
9625 2599<br />
9626 259A<br />
9627 259B<br />
9628 259C<br />
9629<br />
9630 259E<br />
9631 259F<br />
9632 25AO<br />
9633 25A1<br />
9634 25A2<br />
9635<br />
9636<br />
9637<br />
9638 25A6<br />
9639 25A7<br />
Befehl<br />
9640 25A8<br />
9641<br />
9642<br />
9643 25AB<br />
9644<br />
9645 25AD<br />
9646 25AE<br />
9647<br />
9648 25BO<br />
9649<br />
9650<br />
9651 25B3<br />
9652 25B4<br />
9653 25B5<br />
9654 25B6<br />
9655 25B7<br />
9656 25B8<br />
9657 25B9<br />
9658 25BA<br />
9659 25BB<br />
9660 25BC<br />
9661 25BD<br />
9662 25BE<br />
9663<br />
9664<br />
9665<br />
9666 25C2<br />
172<br />
BASIC 1Z-013B<br />
C9 RET<br />
auf Programmanfang<br />
AF XOR A<br />
32 2E 27 LD (272E).A<br />
E5 PUSH HL<br />
2A BF 6A LD HL. (6ABF)<br />
5E LD E. (HU<br />
23 INC HL<br />
56 LD D. (HU<br />
7A LD A.O<br />
B3 OR E<br />
1B DEC DE<br />
28 04 JR Z. 04 ~ 25A2H<br />
23 INC HL<br />
5E LD E. (HU<br />
2C INC L<br />
56 LD D. (HU<br />
ED 53 2A 27 LD (272A).DE<br />
E1 POP HL<br />
C9 RET<br />
RESTORE<br />
CD 66 1C CALL 1C66<br />
28 E1 JR Z. EI ~ 258EH<br />
23 INC HL<br />
FE OC CP OC<br />
C2 C7 25 JP NZ. 25C7<br />
5E LD E. (HU<br />
23 INC HL<br />
56 LD D. (HU<br />
23 INC HL ;<br />
EB EX OE.HL<br />
23 I NC HL<br />
23 INC HL<br />
4E LD C. (HU<br />
23 INC HL ;<br />
46 LD B. (HU ;<br />
23 INC HL<br />
ED 43 2A 27 LD (272A).BC<br />
CD C4 26 CALL 26C4<br />
V1.0A<br />
NÄCHSTER BEFEHL<br />
CODE KEINE DATEN GELESEN<br />
DATA - FLAG<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
BASIC - PROGRAMMANFANG<br />
10FFSET AUF NÄCHSTE<br />
I ZEILE HOLEN<br />
I<br />
IOFFSET GLEICH NULL?<br />
KEIN PROGRAMM VORHANDEN<br />
'ZEILENNUMMER DER ERSTEN<br />
'ZEILE HOLEN<br />
I<br />
'ZEILENNUMMER DER DA TA<br />
I ZEILE MER.
SEITE 174<br />
BASIC 1Z-013B V1_0A BAS~C 1Z<br />
9720<br />
9721<br />
9722<br />
9723<br />
9724<br />
9725<br />
9726<br />
9727<br />
9728<br />
9729<br />
9730<br />
9731<br />
25F8 CA 13 26 JP Z. 2613 IJA<br />
I<br />
+ KEINE DATEN<br />
VORHANDEN<br />
MEHR DATA-Wert aus Programm be<br />
der angegebenen Variablen<br />
25FB 30 20 JR NC. 20 ~ 261DH ZEIGER STEHT AUF DA TA-WERT 9779<br />
9780<br />
25FD 2A BF 6A LD HL. (6ABF) BASIC-PROGRAMMANFANG 9781<br />
2600<br />
2601<br />
2602<br />
2603<br />
7E<br />
23<br />
B6<br />
28 OE<br />
LD A. (HU<br />
INC HL<br />
OR (HU<br />
JR Z. OE + 2613H<br />
IOFFSET GLEICH<br />
I<br />
ENDE PROGRAMM<br />
NULL? 9784<br />
2633 ~D 5B 03 38 LD OE<br />
9782<br />
9783 2637 06 00 LD B.<br />
9785<br />
9786<br />
9787<br />
2639 CD 14 54 CALL<br />
9732 9788 263C FE 22 CP 2<br />
9733 2605 23 INC HL 9789<br />
263E 20 19 JR NZ<br />
9734<br />
9735<br />
9736<br />
9737<br />
9738<br />
2606<br />
2607<br />
2608<br />
2609<br />
5E<br />
23<br />
56<br />
ED 53 2A 27<br />
LD E. (HL)<br />
INC HL<br />
LD<br />
LD<br />
D. (HU<br />
(272A).DE<br />
; I ZEILENNUMMER<br />
IDATA - ZEILE<br />
DER<br />
HOLEN<br />
DATA-ZEILENNUMMER<br />
9739 9795 2643 28 26 JR Z.<br />
9740 9796<br />
9741 2600 23 INC HL ZEIGER AUF BASIC-PROGRAMM 9797 2645 23 INC H<br />
9742 260E CD C4 26 CALL 26C4 I ZEIGER IN HL AUF<br />
9798 2646 FE 22 CP 2<br />
9743<br />
I NÄCHSTES DATA-STATEMENT<br />
9799<br />
9744 I SETZEN 9800 2648 28 05 JR Z.<br />
9745 2611 30 OA JR NC. OA + 261DH ZEIGER STEHT AUF DATA-TEXT 9801<br />
9746 9802 264A 12 LD
SEITE 176<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
9834 9890 26A2 EB EX DE<br />
9891 26A3 CD 14 54 CALL 5<br />
Wert im Stringarbeitsbereich der<br />
9835 266B E5 PUSH HL<br />
9836 266C F5<br />
9837 2660 AF<br />
9838 266E 12<br />
LO<br />
9839 266F 78<br />
LD<br />
2670 32 8C 26 LD<br />
9840<br />
9841<br />
eingetragenen Variablen zuweisen<br />
• REGISTER RETTEN<br />
PUSH AF<br />
XOR A<br />
•ACCU AUF NULL<br />
SEITE 178<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
9948<br />
9949<br />
9950<br />
9951<br />
9952<br />
9953<br />
26DC<br />
26DD<br />
26DE<br />
26DF<br />
26EO<br />
05<br />
5E<br />
23<br />
56<br />
ED 53 EC 26<br />
PUSH DE<br />
LO E. (HU<br />
INC HL<br />
LO O. (HU<br />
LD (26EC).DE<br />
REGISTER RETTEN<br />
IZEILENNUMMER HOLEN<br />
I<br />
IZEILENNUMMER<br />
I EINTRAGEN<br />
IN ROUTINE<br />
9954<br />
9955 10002<br />
9956 26E4 Dl POP DE GERETTETE REGISTER HOLEN<br />
9957 26E5 18 E7 JR E7 ~ 26CEH WEITER NACH DATEN SUCHEN<br />
9958<br />
9959 26E7 FE 94 CP 94 DATA (Zwischencode) ?<br />
9960<br />
9961 26E9 20 E3 JR NZ. E3 ~ 26CEH I NICHT DATA ~<br />
10006<br />
9962<br />
I WEITER SUCHEN<br />
10007<br />
9963 26EB 11 00 00 LO DE. 0000<br />
IAKTUELLE ZEILENNUMMER<br />
10008<br />
9964 I DER DATA - ZEILE 1~)O9<br />
9965 I (wird eingetragen) 10010<br />
996626EE EO 53 2A 27 LO (272A).OE ZEILENNUMMER DER DATA-ZEILE<br />
9967<br />
9968<br />
9969<br />
9970 26F2 23 INC HL DATA üBERSPRINGEN 10014<br />
997126F3 22 2C 27 LD (272C).HL ZEIGER AUF DATA-TEXT 10015<br />
9972<br />
9973<br />
9974 9975<br />
26F6 3 E 02 LD A. 02 CODE ZEIGER STEHT AUF TEXT<br />
9976 26F8 32 2E 27 LD (272E).A OATA - FLAG 10019<br />
9997<br />
9998<br />
9999<br />
10000<br />
10001<br />
10003<br />
10004<br />
10005<br />
auf Syntax Klammer zu unte<br />
270D<br />
2710<br />
2713<br />
2714<br />
2715<br />
2716<br />
2717<br />
10011 271B<br />
10012 271 C<br />
1~)13<br />
10016<br />
10017<br />
10018<br />
9977 10020<br />
9978<br />
9979 26FB B7 OR A CARRY-FLAG ZURüCKSETZEN 10021 2725 00<br />
9980 26FC Dl POP DE GERETTETES REGISTER HOLEN<br />
9981 26FD C9 RET 10022<br />
10023<br />
2720<br />
2721<br />
CO<br />
C3<br />
3F<br />
20<br />
ru)<br />
14<br />
04<br />
2726 00 00<br />
54<br />
58<br />
86<br />
70 00 00 00<br />
91<br />
28 CO 00 00<br />
00<br />
00 00 00 00<br />
CALL 5<br />
JP 580<br />
?<br />
Spa<br />
9982 26FE 3E 01 LD A. 01 CODE ENDE PROGRAMM 10024 2728 00<br />
9983 10025 2729 00<br />
9984 2700 32 2E 27 LD (272E).A DATA - FLAG<br />
9985<br />
9986<br />
9987 2703 D1 POP DE , GERETTETES REGISTER HOLEN<br />
9988 2704 C9 RET 10028<br />
10029<br />
10026<br />
10027<br />
272A FF FF<br />
272C 00 00<br />
testen. ob nächstes Programmbyte Befehlsendezeichen ist 10030 272E 00<br />
9989 2705 CD 14 54 CALL 5414 IPROGRAM<strong>MZ</strong>EIGER IN HL 10031 272F 00<br />
9990 lAUF NÄCHSTES RELEVANTES<br />
9991 I ZEICHEN STELLEN<br />
9992 2708 9993 2709 B7 OR A ZEILENENDE ca RET Z JA<br />
?<br />
9994 270A FE 3A CP 3A
10035<br />
10036<br />
10041<br />
10043<br />
10044<br />
10046<br />
10047<br />
10048<br />
10051 2743 B7 OR A<br />
10053<br />
10054<br />
10060<br />
10062<br />
10067<br />
10069<br />
10070<br />
10072<br />
10077<br />
10078<br />
10081<br />
10082<br />
10085<br />
10086<br />
10089<br />
FORMAT<br />
10091<br />
10093<br />
10094<br />
10097<br />
10098<br />
10100<br />
10101<br />
10105 2779 21<br />
10106<br />
10107<br />
10109<br />
10111<br />
10112<br />
10114<br />
10116<br />
101 17<br />
10119<br />
10121<br />
10122<br />
10124<br />
10126<br />
10127<br />
10129<br />
10131<br />
10132<br />
10134<br />
10136<br />
10137<br />
10139<br />
10141<br />
10142<br />
10144 <br />
1Z<br />
JP NZ,<br />
CP 26<br />
CP 23<br />
CP 2A<br />
CP<br />
JP Z,<br />
24<br />
CP 2E<br />
CP 2B<br />
2<br />
27<br />
JP Z. 27<br />
JP Z. 27<br />
JP Z, 21<br />
BASIC<br />
Bereitgestellten Zahl-/Stri<br />
USING üBERSPRINGEN 10090 .276A FE 03 CP 03<br />
lAUSDRUCK (HL) AUSWERTEN 10092 276C C2 B4 28<br />
10039 2737 2A B5 6A LD HL, (6AB5) ANFANG STRINGTEXTBEREICH Stringtext entsprechend USI<br />
10040<br />
10095 276F 05 PUSH OE<br />
10096 2770 2A B5 6A LD HL, (<br />
ED 43 74 27 LO (2774),BC 10FFSET AUF AKTUELLE 10099 2773 11 10 00 LD DE,<br />
10102 2776 19 ADD HL,<br />
10103 2777 7E LD A, (H<br />
10104 2778 B7 OR A<br />
GLEICH NULL ? CA (li<br />
JP Z, 2<br />
10108 277C FE 21 CP 21<br />
10110 277E CA E4 27 JP Z, 2<br />
10115 2783 CA 5E 28<br />
36 00 LD (HU. 00 TEXTENDE EINTRAGEN JP Z.<br />
10118 2786 FE 23<br />
10120 2788 CA 01 21<br />
JP Z, 2<br />
10113 2781 FE 26<br />
CALL lC66 I UNTERSUCHEN, OB NÄCHSTES 10125 278D CA CD 27<br />
I SCHUB AUSGEBEN UND 10123 278B FE 2A<br />
10128 2790 FE 24<br />
CA D9 27<br />
IUSING-FORMAT AUSGEBEN JP Z, 27<br />
GERETTETES REGISTER HOLEN CP FB<br />
10130 2792<br />
10135 2797 CA D9 27<br />
10140 279C CA Cl 27<br />
10133 2795 FE FB<br />
10138 279A FE 2E<br />
10143 279F FE 2B<br />
10145 27Al<br />
CA 01 21<br />
I ZEIGER AUF ERGEBNIS NACH<br />
I UNTERSUCHEN, OB NÄCHSTES<br />
10064 2750 Cl POP BC GERETTETES REGISTER HOLEN<br />
10066 IPROGRAMMBYTE ZEILENENDE,<br />
10088 2768 18 E7 JR E7 + 2751H • I UNTERSUCHEN, OB WEITERE<br />
ISTRINGWERT ENTSPRECHEND<br />
CALL 276A I BEREITGESTELLTEN ZAHL-/<br />
10076 2751: CD 8B 52 CALL 528B I AUSDDRUCK AUSWERTEN UNO<br />
JP NC, IFEC IZEILENENOE + ZEILENVOR<br />
ZEIGER AUF STELLE FORMAT<br />
10073 IBEFEHLSENOEZEICHEN IST<br />
I WERTE ANGEGEBEN SIND<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
I STELLE USING - FORMAT<br />
• NACH DE BEREITSTELLEN<br />
I UND ZEIGER AUF STRING<br />
10087 2767 EI POP HL • PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
IPROGRAMMBYTE GLEICH<br />
POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
LD BC, 0010 10FFSET FüR SPEICHER<br />
LÄNGE USING-FORMAT<br />
10E BEREITSTELLEN<br />
10056 2748 77 LD (HU ,A I ZWISCHENSPEICHER<br />
I NÄCHSTER BEFEHL<br />
LO A,
SEITE 182<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
10146<br />
10147<br />
10148 27A4 FE C4 CP C4 (Sonderzeichen ausgeb.) Untersuchen. ob Währungszei<br />
10149<br />
10150 27A6 C2 AF 27 JP NZ, 27AF I NORMALES TEXTZEICHEN 10201 27D9 23 INC HL<br />
10151 I -+ AUSGEBEN 10202 27DA 7E LO A. (H<br />
10152 10203 27DB FE 2A CP 2A<br />
10153 27A9 23 INC HL ZEIGER AUF USING-FORMAT 10204<br />
10154 27AA 7E LD A, (HU NÄCHSTES ZEICHEN HOLEN 10205 2700 CA 01 21 JP Z, 2<br />
10155 27AB B7 OR A FORMAT-ENDE ? 10206<br />
10156 27AC CA 01 21 JP Z, 2101 JA -+ DATENFEHLER 10207<br />
10157 10208 27EO 2B OEC HL<br />
10158 10209 27E1 7E LD A. (H<br />
10159 27AF CD lE IF CALL IFIE , IASCII-ZEICHEN IM ACCU 10210 27E2 18 CB JR CB<br />
10160 lAUF GEWÄHLTEM GERÄT 10211<br />
10161 I AUSGEBEN<br />
10162 27B2 23 INC HL ZEIGER AUF USING-FORMAT<br />
10163 27B3 ED 5B B5 6A LD OE, (6AB5) ANFANG STRINGTEXTBEREICH Ein Zeichen Text entspechen<br />
10164<br />
10165 10212 27E4 E3 EX (SP)<br />
10166 102 13 27E5 7E LD A, (H<br />
10167 27B7 B7 OR A CARRY-FLAG ZURüCKSETZEN 10214 27E6 B7 OR A<br />
10168 27B8 E5 PUSH HL ZEIGER AUF USING-FORMAT 10215 27E7 3E 20 LO A. 2<br />
10169 27B9 ED 52 SBC HL,DE NEUEN OFFSET ERRECHNEN 10216<br />
10170 10217 27E9 28 OB JR Z. O<br />
10171 27BB 22 74 27 LD (2774),HL UND MERKEN 10218<br />
10172 10219 2 7EB 23 INC HL<br />
10173 10220 2 7EC 7E LD A. (H<br />
10174 27BE EI POP HL ZEIGER AUF USING-FORMAT 10221 2 7EO 23 INC HL<br />
10175 27BF 18 B6 JR B6 -+ 2777H WEITER UNTERSUCHEN 10222 27EE 66 LD H. (H<br />
10176 10223 27EF 6F LD L.A<br />
10224 27FO ED 5B B5 6A LD OE, (<br />
10225 <br />
untersuchen, ob Punkt im Zahl format steht 10226 <br />
10227 <br />
10177 27C1 23 INC HL ZEIGER AUF USING-FORMAT 102 28 27F4 19 ADO HL.<br />
10178 27C2 7E LD A, (HU , NÄCHSTES TEXTZEICHEN 10229 27F5 7E LD A. (H<br />
10179 27C3 FE 23 CP 23 # (Nummernzeichen) 10230 27F6 CD lE IF CALL IF<br />
10180 10231<br />
10181 27C5 CA 01 21 JP Z, 2101 ZAHLFORMAT -+ DATENFEHLER 10232<br />
10182 10233 27F9 EI POP HL<br />
10183<br />
10184 27C8 2B DEC HL ZEIGER AUF USING-FORMAT<br />
10185 27C9 3E 2E LD A, 2E (Punkt) 10186<br />
10187 27CB 18 E2 JR E2 -+ 27AFH ZEICHEN IM ACCU AUSGEBEN 10234 27FA 23 INC HL<br />
10188 10235 27FB 7E LD A. (H<br />
10236 27FC B7 OR A<br />
10237 27FO 28 4F JR Z. 4<br />
untersuchen, ob Zweites Schecksperrzeichen angegeben ist 10238<br />
10239 27FF FE 21 CP 21<br />
10189 27CO 23 INC HL ZEIGER AUF USING-FORMAT 10240<br />
10190 27CE 10191 27CF 7E LO A, (HU NÄCHSTES FORMAT-ZEICHEN 10241 FE 2A CP 2A * (Schecksperre) 10242<br />
2801 28 50 JR Z. 5<br />
10192 10243 2803 · FE 23 CP 23<br />
10193 2701 CA 01 21 JP Z • .2101 ZAHLFORMAT + OATENFEHLER 10244<br />
10194 10245 2805 28 4C JR Z. 4<br />
10195 10246<br />
10196 2704 2B OEC HL ZEIGER AUF USING-FORMAT 10247 2807 FE 26 CP 26<br />
10200<br />
10197 2705 3E 2A LD A. 2A *<br />
10248<br />
10198 10249 2809 28 48 JR Z. 4<br />
10199 2707 18 06 JR 06 -+ 27AFH ZEICHEN IM ACCU AUSGEBEN
SEITE 184 <br />
BASIC 1Z-013B V1_0A <br />
10250<br />
10251 280B FE 2B CP 2B : + NÄCHSTES ZEICHEN HOLEN<br />
10289 2831 57 LD D.A UND MERKEN<br />
10290 2832 FE 23 CP 23 * NÄCHSTES FORMATZEICHEN<br />
10299 283B 57 LO O.A MERKEN<br />
10300 283C F1 POP AF ERSTES ZEICHEN HOLEN<br />
10301 283D BA CP 0 VERGLEICHEN<br />
10302 283E 18 07 JR 07 ~ 2847H lüBERPRüFEN. OB ANFANG<br />
10303 I NÄCHSTES FORMAT<br />
BASIC 1Z<br />
GberprUfen. ob zwei Scheck<br />
10304 2840 23 INC HL<br />
10305 2841 7E LO A. (H<br />
10306 2842 57 LO O.A<br />
10307 2843 FE 2A CP 2A<br />
10308<br />
10309 2845 3E 2A LO A.<br />
10310<br />
10311 2847 2B OEC HL<br />
10312 2848 20 OF JR NZ.<br />
10313<br />
10314 284A 7A LO A.O<br />
10315 284B B7 OR A<br />
10316 284C 20 05 JR NZ.<br />
10317<br />
10318 284E 21 10 00 LO HL.<br />
10319<br />
10320<br />
10321 2851 18 07 JR 07<br />
10322<br />
Offset auf Anfang nächstes<br />
10323 2853 EO 5B B5 6A LO OE.<br />
10324<br />
10325<br />
10326<br />
10327 2857 B7 OR A<br />
10328 2858 ED 52 SBC HL<br />
10329<br />
10330 285A 22 74 27 LO (27<br />
10331<br />
10332<br />
10333 2850 C9 RET<br />
mehrere Textzeichen nach U<br />
10334 285E 16 02 LO D.<br />
10335<br />
10336 2860 23 INC HL<br />
10337 2861 7E LD A. (H<br />
10338 2862 FE 26 CP 26<br />
10339<br />
10340 2864 28 08 JR Z.<br />
10341<br />
10342 2866 14 INC 0<br />
10343 2867 FE 20 CP 20<br />
10344<br />
10345 2869 28 F5 JR Z.<br />
10346<br />
10347 2868 C3 01 21 JP 2101<br />
10348<br />
10349
SEITE 186 <br />
BASIC 1Z-013B V1.0A <br />
10350 286E E3 EX (SP) .HL FORMAT + DESCRIPTOR ~<br />
10351 286F 7E LD A. (HL> LÄNGE STRING HOLEN<br />
10352 2870 BA CP D FORMATLÄNGE<br />
10353 2871 38 17 JR C. 17 ~ 288AH STRING IST KüRZER FORMAT<br />
10354<br />
10355 2873 23 INC HL<br />
10356 2874 7E LD A. (HL> 'OFFSET AUF STRING HOLEN<br />
10357 2875 23 INC HL I<br />
10358 2876 66 LD H. (HL> I<br />
10359 2877 6F LD L.A I<br />
10360 2878 C5 PUSH BC REGISTER RETTEN<br />
10361 2879 ED 4B B5 6A LD BC. (6AB5) ANFANG STRINGTEXTBEREICH<br />
10362<br />
10363<br />
10364<br />
10365 287D 09 ADD HL.BC ZEIGER AUF STRING ERRECHNEN<br />
10366 287E Cl POP BC GERETTETES REGISTER HOLEN<br />
10367 287F 7E LD A. (HL> EIN ZEICHEN TEXT HOLEN<br />
10368 2880 CD lE 1F CALL IFIE IASCII-ZEICHEN IM ACCU<br />
10369 lAUF GEWÄHLTEM GERÄT<br />
10370 I AUSGEBEN<br />
10371 2883 23 INC HL ZEIGER AUF TEXTSTRING<br />
10372 2884 15 DEC D RESTANZAHL ZEICHEN<br />
10373 2885 20 F8 JR NZ. F8 ~ 287FH WEITERE ZEICHEN AUSGEBEN<br />
10374<br />
10375 2887 C3 F9 27 JP 27F9 I UNTERSUCHEN. OB TEXT<br />
10376 IKONSTANTE IM USING-FORMAT<br />
10377<br />
String. der kürzer Format und Rest Spaces ausgeben<br />
10378 288A 5E LD E. (HL> LÄNGE STRING HOLEN<br />
10379 288B 23 INC HL<br />
10380 288C 7E LD A. (HL> I OFF SET AUF STRING<br />
10381 288D 23 INC HL I HOLEN<br />
10382 288E 66 LD H. (HL> I<br />
10383 288F 6F LD L.A I<br />
10384 2890 7B LD A.E STRINGLÄNGE<br />
10385 2891 B7 OR A GLEICH NULL ?<br />
10386 2892 28 15 JR Z. 15 ~ 28A9H NUR Spaces AUSGEBEN<br />
10387<br />
10388 2894 C5 PUSH BC REGISTER RETTEN<br />
10389 2895 ED 48 B5 6A LD BC. (6AB5) ANFANG STRINGTEXTBEREICH<br />
10390<br />
10391<br />
10392<br />
10393 2899 09 ADD HL.BC ZEIGER AUF STRING ERRECHNEN<br />
10394 289A Cl POP BC GERETTETES REGISTER HOLEN<br />
10395 289B 7E LD A. (HL> I EIN ZEICHEN TEXT AUSGEBEN<br />
10396 289C CD lE IF CALL 1FIE 'ASCII-ZEICHEN IM ACCU<br />
10397 lAUF GEWÄHLTEM GERÄT<br />
10398 • AUSGEBEN<br />
10399 289F 23 INC HL ; ZEIGER AUF TEXT<br />
10400 28AO 1D DEC E RESTANZAHL ZEICHEN TEXT<br />
10401 28Al 28 OB JR Z. OB ~ 28AEH ; REST Sp~ces AUSGEBEN<br />
10402<br />
10403 28A3 15 DEC D RESTANZAHL ZEICHEN FORMAT<br />
10404 28A4 20 F5 JR NZ. F5 ~ 289BH 'WEITERE ZEICHEN TEXT<br />
10405 • AUSGEBEN<br />
10406 28A6 C3 F9 27 JP 27F9 $ • UNTERSUCHEN. OB TEXT<br />
10407 IKONSTANTE IN FORMAT<br />
BASIC 1Z<br />
10408<br />
Bei Stringformat nicht vor<br />
10409 28A9 3E 20 LD A.<br />
10410<br />
10411 28AB CD lE IF CALL I<br />
10412<br />
10413<br />
10414 28AE 15 DEC D<br />
10415 28AF 20 F8 JR NI.<br />
10416<br />
10417 28Bl C3 F9 27 JP 27F<br />
10418<br />
10419<br />
Real-Zahl (OE) entsprechen<br />
10420 28B4 D5 PUSH O<br />
10421 28B5 AF XOR A<br />
10422 28B6 32 48 2A LD (2A<br />
10423<br />
10424<br />
10425 28B9 32 99 2A LD (2A<br />
10426<br />
10427<br />
10428 28BC 32 80 2A LD (2A<br />
10429<br />
10430<br />
lQ431 28BF 32 3E 2A LD (2A<br />
10432<br />
10433<br />
10434 28C2 32 F8 29 LD (29<br />
10435<br />
10436<br />
10437 28C5 32 25 2A LD (2A<br />
10438<br />
10439<br />
10440 28C8 32 43 2A LD (2A<br />
10441<br />
10442<br />
10443 28CB 32 Fl 29 LD (29<br />
10444<br />
10445<br />
10446 28CE 3D DEC A<br />
10447 28CF 32 EE 29 LD (29<br />
10448<br />
10449<br />
10450 28D2 2A B5 6A LD HL.<br />
10451<br />
10452<br />
10453 2805 ED 5B 74 27 LD DE.<br />
10454<br />
10455<br />
10456<br />
10457 28D9 19 ADD HL<br />
10458 28DA 7E LD A.<br />
10459 28DB B7 OR A<br />
10460 28DC CA Ot 21 JP Z.<br />
10461
SEITE 188<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
10462<br />
10463 28DF<br />
10464 -<br />
10465 28El<br />
10466<br />
10467<br />
10468 28E4<br />
10469<br />
10470 28E6<br />
10471<br />
10472<br />
10473 28E9<br />
10474<br />
10475 28EB<br />
10476<br />
10477<br />
10478 28EE<br />
10479<br />
10480 28FO<br />
10481<br />
10482<br />
10483 28F3<br />
10484<br />
10485 28F5<br />
10486<br />
10487<br />
10488 28F8<br />
10489<br />
10490 28FA<br />
10491<br />
10492<br />
10493 28FD<br />
10494<br />
10495 28FF<br />
10496<br />
10497<br />
10498 2902<br />
10499<br />
10500<br />
10501<br />
10502<br />
10503<br />
10504<br />
10505<br />
10506<br />
10507<br />
10508<br />
10509<br />
10510<br />
10511<br />
10512<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
21<br />
01 21<br />
26<br />
01 21<br />
23<br />
5C 29<br />
2A<br />
17 29<br />
24<br />
3A 29<br />
FB<br />
3A 29<br />
2E<br />
4F 29<br />
28<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
21<br />
Z. 2101<br />
26<br />
Z. 2101<br />
23<br />
Z. 295C<br />
2A<br />
Z. 2917<br />
24<br />
Z. 293A<br />
FB<br />
Z. 293A<br />
2E<br />
Z. 294F<br />
28<br />
;<br />
(Ein Zeichen String)<br />
STRINGFORMAT + DATENFEHLER<br />
& (mehrere Textzeichen)<br />
STRINGFORMAT + DATENFEHLER<br />
I (Nummernzeichen)<br />
I ANZAHL VORKOMMASTELLEN<br />
I AUSZÄHLEN<br />
* (Schecksperre)<br />
I UNTERSUCHEN. OB ZWEITES<br />
I ZEICHEN ALS FORMAT-ANFANG<br />
$ (Währungszeichen)<br />
I UNTERSUCHEN. 08 ZWEITES<br />
I ZEICHEN ALS FORMAT-ANFANG<br />
L (Währungszeichen)<br />
I UNTERSUCHEN. OB ZWEITES<br />
I ZEICHEN ALS FORMAT-ANFANG<br />
(Punkt)<br />
IUNTERSUCHEN. 08 PUNKT<br />
I IM ZAHLFORMAT STEHT<br />
+ (Vorzeichen plus)<br />
10519<br />
10520<br />
10521<br />
10522<br />
10523<br />
10524<br />
10525<br />
10526<br />
10527<br />
10528<br />
10529<br />
10530<br />
10531<br />
10532<br />
10533<br />
10534<br />
10535<br />
10536<br />
10537<br />
10538<br />
10539<br />
10540<br />
10541<br />
10542<br />
10543<br />
10544<br />
10545<br />
10546<br />
10547<br />
10548<br />
10549<br />
10550<br />
10551<br />
10552<br />
10553<br />
auf zweites Schecksperrzei<br />
2904 CA 45 29 JP Z. 2945 I MERKEN UND ANZAHL VOR<br />
I KOMMASTELLEN AUSGEBEN bei erstem Währungszeichen<br />
2907<br />
2909<br />
290B<br />
290C<br />
290D<br />
290E<br />
10513 2911 CD lE IF CALL IFIE<br />
IASCII-ZEICHEN IM ACCU<br />
10514 lAUF GEWÄHLTEM GERÄT<br />
10515<br />
10516 2914 23 INC HL ;<br />
18 C3 JR C3 + 28DAH ; WEITER UNTERSUCHEN<br />
10517 2915<br />
10518<br />
FE C4<br />
20 06<br />
23<br />
7E<br />
B7<br />
CA 01<br />
21<br />
CP C4<br />
JR NZ. 06<br />
INC HL<br />
LD A. (HL><br />
OR A<br />
JP Z. 2101<br />
+ 2911H<br />
;<br />
(Nächstes Zeichen ausg.<br />
ZEICHEN AUSGEBEN<br />
ZEIGER AUF USING-FORMAT<br />
NÄCHSTES ZEICHEN HOLEN<br />
FORMAT-ENDE ?<br />
JA + DATENFEHLER<br />
2917<br />
2918<br />
29 19<br />
291A<br />
291C<br />
291E<br />
2921<br />
2922<br />
2923<br />
2924<br />
2926<br />
2928<br />
292A<br />
292C<br />
292E<br />
292F<br />
2930<br />
2933<br />
2935<br />
2938<br />
10554 293A<br />
10555 293B<br />
10556 293C<br />
10557 2930<br />
10558<br />
10559 293F<br />
10560 2940<br />
10561 2941<br />
10562<br />
10563 2943<br />
10564<br />
23<br />
BE<br />
2B<br />
20 F5<br />
3E 01<br />
32 99<br />
23<br />
23<br />
7E<br />
16 02<br />
FE FB<br />
28 04<br />
FE 24<br />
20 3 1<br />
23<br />
14<br />
32 F4<br />
3E 01<br />
32 80<br />
18 25<br />
23<br />
BE<br />
28<br />
20<br />
23<br />
23<br />
16<br />
18<br />
02<br />
02<br />
E8<br />
2A<br />
2A<br />
2A<br />
INC HL<br />
CP (H<br />
DEC HL<br />
JR NZ<br />
LD A.<br />
LD (2A<br />
INC HL<br />
INC HL<br />
LD A.<br />
LD D.<br />
CP FB<br />
JR Z.<br />
CF' 24<br />
JR NZ<br />
INC HL<br />
INC 0<br />
LD (2A<br />
LD -. A •.<br />
LD (2A<br />
JR 25<br />
INC HL<br />
CP (H<br />
DEC HL<br />
JR NZ<br />
INC HL<br />
INC HL<br />
LO D.<br />
JR EB<br />
I AUSGEBEN<br />
ZEIGER AUF USING-FORMAT Vorzeichen vor Zahl format<br />
10565<br />
10566<br />
2945 3E 01 LO A.<br />
10567 2947 32 48 2A LD (2A<br />
10568<br />
10569<br />
10570 294A 23 I NC HL<br />
;
SEITE 190 <br />
BASIC 1Z-013B V1_0A <br />
10571 294B 16 01 LD D. 01 ; EIN VORKOMMASTELLE<br />
10572<br />
10573 2940 18 10 JR 10 ... 295FH I ANZAHL VORKOMMSTELLEN<br />
10574 I AUSZÄHLEN<br />
bei Punkt untersuchen. ob im Zahl format<br />
10575 294F 23 INC HL ZEIGER AUF USING-FORMAT<br />
10576 2950 7E LD A. (HL> NÄCHSTES FORMAT-ZEICHEN<br />
10577 2951 2B DEC HL ZEIGER AUF USING-FORMAT<br />
10578 2952 FE 23 CP 23 # (Nummernzeichen><br />
10579<br />
10580 2954 3E 2E LD A. 2E (Punkt)<br />
10581<br />
10582 2956 20 B9 JR NZ. B9 ... 2911H INICHT ZAHLFORMAT ...<br />
10583 I ZEICHEN AUSGEBEN<br />
10584 2958 16 00 LD D. 00 I VORGABE VORKOMMASTELLEN<br />
10585<br />
10586 295A 18 03 JR 03 ... 295FH VORKOMMASTELLEN MERKEN<br />
10587<br />
Anzahl VorkommastelIen aus Format auszählen<br />
10588 295C 16 01 LD D. 01 VORGABE ANZAHL STELLEN<br />
10589<br />
10590 295E 23 INC HL ZEIGER AUF USING-FORMAT<br />
10591 295F EB EX OE.HL NACH OE<br />
10592 2960 25 OEC H ZÄHLER VORKOMMASTELLEN<br />
10593 2961 24 INC H ZÄHLER VORKOMMASTELLEN<br />
10594 2962 1A LD A. <br />
10616<br />
10617 2979 20 08 JR NZ. 08 ... 2983H AUF PLUS UNTERSUCHEN<br />
10618<br />
10619 297B 3E 01 LD A. 01 CODE VORZEICHEN<br />
10620<br />
10621 2970 32 3E 2A LD (2A3E>.A FLAG - HINTEN ANGEGEBEN<br />
10622<br />
BASIC 1Z<br />
10623<br />
10624 2980 13 INC O<br />
10625 2981 18 10 JR 10<br />
10626<br />
10627 29B3 FE 2B CP 2<br />
10628<br />
10629 2985 20 OC JR NZ<br />
10630<br />
10631 2987 .3A 48 2A LO A.<br />
10632<br />
10633<br />
10634 298A B7 OR A<br />
10635 2988 20 06 JR NZ<br />
10636<br />
10637 2980 3E 01 LO A,<br />
10638<br />
1063 9 298F 32 43 2A LO (2<br />
10640<br />
10641<br />
10642 2992 13 INC O<br />
10643 2993 IB OEC O<br />
10644 2994 7C LO A,<br />
10645 2995 32 25 2A LO (2<br />
10646<br />
10647<br />
10648 2998 18 33 JR 33<br />
10649<br />
NachkommastelIen auszähle<br />
10650 299A 7C LO A,<br />
10651 299B 32 25 2A LD (2<br />
10652<br />
10653<br />
10654 299E 26 FF LD H.<br />
10655<br />
10656 29AO 24 INC H<br />
10657 29A1 lA LD A.<br />
10658 29A2 13 INC D<br />
10659 29A3 FE 23 CP 2<br />
10660<br />
10661 29A5 28 F9 JR Z.<br />
10662<br />
10663 29A7 FE 20 CP 2<br />
10664<br />
10665 29A9 20 08 JR NZ<br />
10666<br />
10667 29AB 3E 01 LD A.<br />
10668<br />
10669 29AO 32 3E 2A LO (2<br />
10670<br />
10671<br />
10672 29BO 13 INC O<br />
10673 29B1 18 10 JR 10<br />
10674
SEITE 192<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
10675<br />
10676<br />
10677<br />
10678<br />
10679<br />
10680<br />
10681<br />
10682<br />
10683<br />
10684<br />
10685<br />
10686<br />
10687<br />
10688<br />
10689<br />
10690<br />
10691<br />
10692<br />
10693<br />
10694<br />
29B3<br />
29B5<br />
29B7<br />
29BA<br />
29B8<br />
29BD<br />
29BF<br />
29C2<br />
29C3<br />
29C4<br />
29C5<br />
FE<br />
20<br />
3A<br />
B7<br />
20<br />
3E<br />
32<br />
13<br />
2B<br />
OC<br />
48<br />
06<br />
01<br />
43<br />
2A<br />
2A<br />
1B<br />
7C<br />
32 EE 29<br />
CP 2B<br />
JR NZ. OC ~<br />
LD A. (2A48)<br />
OR A<br />
JR NZ. 06 ~<br />
LO A. 01<br />
LO (2A43).A<br />
INC OE<br />
DEC OE<br />
LO A.H<br />
LO (29EE).A<br />
29C3H<br />
29C3H<br />
+ (Vorzeichen plus)<br />
INACHKOMMASTELLEN MERKEN<br />
I UND AUF EXPONENT UNTERS.<br />
FLAG + VORNE ANGEGEBEN<br />
GESETZT ?<br />
IJA ~ VORZEICHEN WIRD<br />
IVOR ZAHL GESCHRIEBEN<br />
CODE VORZEICHEN<br />
FLAG + HINTEN ANGEGEBEN<br />
ZEIGER AUF USING-FORMAT<br />
ZEIGER<br />
ANZAHL<br />
MERKEN<br />
AUF USING-FORMAT<br />
NACHKOMMASTELLEN<br />
10731<br />
10732<br />
10733<br />
10734<br />
10735<br />
10736<br />
10737<br />
10738<br />
10739<br />
10740<br />
10741<br />
10742<br />
10743<br />
10744<br />
10745<br />
10746<br />
10747<br />
10748<br />
10749<br />
10750<br />
10695 1~751<br />
10696 29C8 18 03 JR 03 ~ 29COH AUF EXPONENTEN UNTERSUCHEN 10752<br />
10697 10753<br />
10754<br />
10755<br />
10698 29CA D1<br />
POP DE<br />
ZEIGER AUF USING-FORMAT<br />
10756<br />
10699 29CB 18 12 JR 12 ~ 29DFH<br />
ZAHL AUFBEREITEN<br />
10757<br />
10700 10758<br />
10759<br />
10701<br />
10702<br />
10703<br />
10704<br />
10705<br />
10706<br />
10707<br />
10708<br />
10709<br />
10710<br />
10711<br />
29EC<br />
29ED<br />
29EF<br />
29FO<br />
29F2<br />
29F3<br />
29F6<br />
29F7<br />
29F9<br />
29FA<br />
29FC<br />
29FD<br />
29FE<br />
2A01<br />
2A02<br />
2A04<br />
2A05<br />
57<br />
3E<br />
5F<br />
3E<br />
C5<br />
CD<br />
Cl<br />
3E<br />
B7<br />
28<br />
00<br />
00<br />
7E<br />
00<br />
41<br />
3E<br />
C5<br />
D5<br />
3A 25 2A<br />
6F<br />
26 00<br />
19<br />
11 26 6A<br />
10760 2A08 OE 00 LD C.<br />
auf Exponenten im USING - Format untersuchen 10761<br />
29CD<br />
29CF<br />
2900<br />
29D1<br />
2902<br />
2904<br />
2906<br />
2907<br />
26<br />
D5<br />
1A<br />
13<br />
FE<br />
20<br />
25<br />
20<br />
04<br />
5E<br />
F4<br />
LD H. 04<br />
PUSH OE<br />
LD A, (DE)<br />
INC DE<br />
CP 5E<br />
JR NZ. F4<br />
DEC H<br />
JR NZ. F7<br />
~<br />
29CAH<br />
:<br />
;<br />
VIER EXPONENTZEICHEN<br />
ZEIGER AUF ANFANG FORMAT<br />
EIN ZEICHEN FORMAT HOLEN<br />
ZEIGER AUF USING-FORMAT<br />
~ (Exponentenzeichen)<br />
IKEIN EXPONENT-FORMAT ~<br />
I ZEIGER AUF ANFANG HOLEN<br />
RESTANZAHL MINUS EINS<br />
lAUF WEITERE ZEICHEN<br />
I VERGLEICHEN<br />
LD O.A<br />
LD A.<br />
LO E.A<br />
LD A.<br />
PUSH B<br />
CALL 3<br />
POP BC<br />
LD A.<br />
OR A<br />
JR Z.<br />
PUSH B<br />
PUSH D<br />
LD A.<br />
LD<br />
LD<br />
L.A<br />
H.<br />
ADD HL<br />
LD OE.<br />
10762 2AOA 2B DEC HL<br />
2AOB 06 03<br />
LD B.<br />
F7<br />
~ 29DOH<br />
10712<br />
F5<br />
10713 29D9 F1<br />
POP AF<br />
; ZEIGER AUF ANFANG VERWERFEN<br />
10775<br />
10714 290A 3E 01<br />
LD A. 01<br />
CODE EXPONENT AUFBEREITEN<br />
10776 2A18 7E<br />
LD<br />
10715<br />
10777 2A19 FE 20<br />
CP<br />
10716 290C 32 F1 29 LD (29F1).A ; FLAG EXPONENT AUSGEBEN 10778<br />
10717<br />
10779 2AIB 28 07 JR Z.<br />
10718<br />
10780<br />
10719 29DF E1 POP HL ZEIGER AUF REAL-ZAHL<br />
10781 2AID 3E 2C LD A.<br />
10720<br />
10721<br />
10722<br />
10723<br />
10724<br />
10725<br />
10726<br />
10727<br />
10728<br />
10729<br />
10730<br />
29EO<br />
29El<br />
29E2<br />
29E3<br />
29E5<br />
29E6<br />
29E9<br />
05<br />
23<br />
7E<br />
CB BE<br />
2B<br />
32<br />
3A<br />
75<br />
25<br />
2A<br />
2A<br />
PUSH OE<br />
INC HL<br />
LD A. (HU<br />
RES 7. (HU ;<br />
DEC HL<br />
LD (2A75).A<br />
LD A. (2A25)<br />
ZEIGER AUF USING-FORMAT<br />
ZEIGER AUF MANTISSE<br />
MSBYTE MANTISSE HOLEN<br />
VORZEICHEN ZAHL AUF PLUS<br />
; ZEIGER WIEDER AUF EXPONENT<br />
VORZEICHEN DER ZAHL MERKEN<br />
ANZAHL VORKOMMASTELLEN<br />
10763<br />
10764<br />
10765<br />
10766<br />
10767<br />
10768<br />
10769<br />
10770<br />
10771<br />
10772<br />
10773<br />
10774<br />
10782<br />
10783<br />
10784<br />
10785<br />
10786<br />
10787<br />
10788<br />
10789<br />
10790<br />
10791<br />
10792<br />
2AOD<br />
2AOE<br />
2A10<br />
2A12<br />
2A13<br />
2A14<br />
2A15<br />
2A16<br />
2AIF<br />
2A20<br />
2A21<br />
2A22<br />
2A24<br />
2A26<br />
2A27<br />
7E<br />
FE<br />
28<br />
OC<br />
12<br />
13<br />
2B<br />
10<br />
20<br />
12<br />
12<br />
13<br />
OC<br />
18 E7<br />
3E<br />
B9<br />
DA<br />
00<br />
DB 2A<br />
LD A.<br />
CP 20<br />
JR Z.<br />
INC C<br />
LD <br />
JP<br />
A.<br />
C<br />
C.<br />
~
SEITE 194<br />
BASIC 1Z-013B V1.0A<br />
10793<br />
10794<br />
10795<br />
10796<br />
10797<br />
10798<br />
10799<br />
10800<br />
10801<br />
10802<br />
10803<br />
10804<br />
10805<br />
10806<br />
10807<br />
10808<br />
2A2A<br />
2A2B<br />
2A2C<br />
2 A2E<br />
2A2F<br />
2A30<br />
2A31<br />
2A34<br />
2A35<br />
2A36<br />
2A37<br />
2A38<br />
2A39<br />
41<br />
6F<br />
26 00<br />
01<br />
05<br />
19<br />
11<br />
2B<br />
lA<br />
77<br />
2B<br />
13<br />
10<br />
26<br />
6A<br />
LD<br />
LD<br />
LD<br />
B,C<br />
L,A<br />
H, 00<br />
POP DE<br />
PUSH OE<br />
ADD HL,DE<br />
LD OE, 6A26<br />
DEC HL<br />
LD A, ,A<br />
DEC HL<br />
INC DE<br />
DJNZ FA ~ 2A35H<br />
LÄNGE TEXT MIT Komma<br />
ANZAHL VORKOMMASTELLEN<br />
ZEIGER AUF ANFANG ZAHL<br />
WIEDER MERKEN<br />
ZEIGER AUF DEZIMALPUNKT<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER MIT Komma-TEXT<br />
ZEIGER AUF VORKOMMASTELLEN<br />
EIN ZEICHEN TEXT HOLEN<br />
ALS VORKOMMASTELLE EINTRAG.<br />
ZEIGER AUF VORKOMMASTELLEN<br />
ZEIGER AUF TEXT<br />
WEITERE ZEICHEN üBERTRAGEN<br />
10809<br />
FA<br />
10810<br />
10811 2A3B 01 POP DE ZEIGER AUF ASCII-ZAHL<br />
10812 2A3C Cl<br />
POP BC<br />
GERETTETES REGISTER HOLEN<br />
10813 2A30 3E 00<br />
LD A, 00<br />
IFLAG - HINTEN ANGEGEBEN<br />
10814<br />
I (w ird eingetragen)<br />
10815 2A3F B7<br />
OR A<br />
GESETZT ?<br />
10816 2A40 20 3 0 JR NZ, 30 ~ 2A7FH IJA T VORZEICHEN HINTER<br />
10817 I ZAHL SCHREIBEN<br />
10818 2A42 3E 00 LD A, 00 IFLAG + HINTEN ANGEGEBEN<br />
10819<br />
I (wird eingetragen)<br />
10820<br />
10821<br />
10822<br />
10823<br />
10824<br />
10825<br />
10826<br />
10827<br />
10828<br />
10829<br />
10830<br />
10831<br />
10832<br />
10833<br />
10834<br />
10835<br />
10836<br />
10837<br />
10838<br />
10839<br />
10840<br />
10841<br />
10842<br />
10843<br />
10844<br />
10845<br />
10846 2A5E D5 PUSH DE ZEIGER ANFANG ASCII-ZAHL<br />
10847<br />
10848<br />
10849<br />
10850<br />
10851<br />
10852<br />
10853<br />
10854<br />
2A44<br />
2A45<br />
2A47<br />
2A49<br />
2A4A<br />
2A4C<br />
2A4F<br />
2A50<br />
2A52<br />
2A53<br />
2A55<br />
2A57<br />
2A59<br />
2A5B<br />
2A5F<br />
2A60<br />
2A61<br />
2A63<br />
2A65<br />
B7<br />
20<br />
3E<br />
B7<br />
20<br />
3A<br />
07<br />
30<br />
lA<br />
FE<br />
26<br />
28<br />
FE<br />
C2<br />
1A<br />
13<br />
FE<br />
28<br />
FE<br />
3 8<br />
00<br />
28<br />
75<br />
2D<br />
20<br />
2D<br />
05<br />
30<br />
DB<br />
20<br />
FA<br />
30<br />
2A<br />
2A<br />
OR A<br />
JR NZ, 38 ~ 2A7FH<br />
LD A, 00<br />
OR A<br />
JR NZ, 28 T 2A74H<br />
LD A. (2A75)<br />
RLCA<br />
JR NC. 20 T 2A7FH<br />
LD A.
SEITE 196<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
10909<br />
10910<br />
10911<br />
10912<br />
2A9D<br />
2A9E<br />
2A9F<br />
D5<br />
1A<br />
FE 20<br />
PUSH OE<br />
LD A.
SEITE 198<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
11015<br />
11016<br />
11 017<br />
2B07<br />
2B08<br />
2809<br />
CE<br />
52<br />
45<br />
N<br />
R<br />
E<br />
Befehl RESTORE (85)<br />
1107'7 21345 41 A<br />
11018 2BOA 53 S 11081 2B49 CD M<br />
11019 2808 54<br />
T<br />
11082 2B4A 52<br />
R<br />
11020 2BOC 4F<br />
o<br />
11083 21348 45<br />
E<br />
CD<br />
11021 2BOO<br />
11022 2BOE<br />
11023 280F<br />
11024<br />
11025<br />
11026<br />
2810<br />
2B11<br />
2812<br />
11027 2B13<br />
11028 2814<br />
11029 2B15<br />
11030 2816<br />
1103 1 2B17<br />
1103 2 2818<br />
1103 3 2B19<br />
1103 4 281A<br />
11035 2B1B<br />
11036 2BIC<br />
11037 2 BI0<br />
11038 2B1E<br />
11039 281F<br />
11040 2 B20<br />
11041 2B21<br />
11042 2B22<br />
11043 2B23<br />
11044 2824<br />
11045 2B25<br />
11046 2B26<br />
11047 2B27<br />
11048 2828<br />
11049 2B29<br />
11050 282A<br />
11051 282B<br />
11052 2B2C<br />
11053 2 B20<br />
11054 2B2E<br />
11055 2 82F<br />
11056 2830<br />
11057 2831<br />
11058 2832<br />
11059 2833<br />
11060 2B34<br />
11061 2B35<br />
11062 2 B36<br />
11063 2 B37<br />
11064 2838<br />
11065 2B3 9<br />
11066 2B3A<br />
11067 2838<br />
11068 2B3C<br />
11069 2830<br />
11070 283E<br />
11071 2B3F<br />
11072 2B40<br />
11073 2B41<br />
11074 2B42<br />
11075 2843<br />
11076 2844<br />
52<br />
C5<br />
52<br />
45<br />
53<br />
55<br />
40<br />
C5<br />
4C<br />
49<br />
53<br />
04<br />
80<br />
44<br />
45<br />
4C<br />
45<br />
54<br />
C5<br />
52<br />
45<br />
4E<br />
55<br />
CO<br />
41<br />
55<br />
54<br />
CF<br />
80<br />
46<br />
4F<br />
02<br />
4E<br />
45<br />
58<br />
04<br />
50<br />
52<br />
49<br />
4E<br />
04<br />
80<br />
49<br />
4E<br />
50<br />
55<br />
04<br />
80<br />
49 I<br />
C6<br />
44<br />
41<br />
54<br />
Cl<br />
52<br />
45<br />
R<br />
E<br />
R Befehl RESUME (86)<br />
E<br />
S<br />
U<br />
M<br />
E<br />
L<br />
o<br />
E<br />
L<br />
E<br />
T<br />
E<br />
R<br />
E<br />
N<br />
U<br />
M<br />
A<br />
U<br />
T<br />
o<br />
F<br />
o<br />
R<br />
E<br />
X<br />
T<br />
P<br />
R<br />
P<br />
U<br />
T<br />
;<br />
c<br />
Befehl<br />
Frei<br />
Befehl<br />
Befehl<br />
Befehl<br />
Frei<br />
Befehl<br />
Befehl<br />
Befehl<br />
Frei<br />
Befehl<br />
LIST<br />
OELETE<br />
RENUM<br />
AUTO<br />
FOR<br />
NEXT<br />
PRINT<br />
INPUT<br />
(87)<br />
(89)<br />
(8A)<br />
(8B)<br />
(80)<br />
(8E)<br />
(8F)<br />
(91)<br />
Frei<br />
Befehl IF (93)<br />
F<br />
o Befehl OATA (94)<br />
A<br />
T<br />
A<br />
R<br />
E<br />
Befehl REAO (95)<br />
11078<br />
11079<br />
11080<br />
11084<br />
11085<br />
11086<br />
11087<br />
11088<br />
11089<br />
2846<br />
2B47<br />
21348<br />
2B4C<br />
2B40<br />
2B4E<br />
2B4F<br />
2850<br />
2851<br />
11090 2852<br />
11091 2B53<br />
11092 2B54<br />
11093 2B55<br />
11094 2B56<br />
11095 2 B57<br />
11096 2858<br />
11097 2 B59<br />
11098 285A<br />
11099 2 958<br />
11100 2B5C<br />
11101 2850<br />
11102 285E<br />
11103 285F<br />
11104 2 B60<br />
11105 2 861<br />
1110 6 2 862<br />
11107 2 863<br />
11108 2864<br />
11109 2B65<br />
11110 2 B66<br />
11111 2867<br />
11112 2868<br />
11113 2869<br />
11114 2 B6A<br />
11115 286B<br />
1 1116 286C<br />
11117 2 B60<br />
11118 2B6E<br />
11119 2B6F<br />
11120 2870<br />
11121 2B71<br />
11122 2872<br />
11123 2873<br />
11124 2874<br />
11125 2875<br />
11126 2 876<br />
11127 2877<br />
11128 2B78<br />
11129 2B79<br />
11130 2B7A<br />
11131 2878<br />
11132 287C<br />
111 3 3 2870<br />
11134 287E<br />
11135 287F<br />
11136 2B80<br />
1113 7 2881<br />
11138 2882<br />
C4<br />
44<br />
49<br />
45<br />
4E<br />
C4<br />
53<br />
54<br />
4F<br />
00<br />
43<br />
4F<br />
4E<br />
04<br />
43<br />
4C<br />
03<br />
80<br />
4F<br />
CE<br />
4C<br />
45<br />
04<br />
4E<br />
45<br />
07<br />
50<br />
4F<br />
4B<br />
C5<br />
4F<br />
46<br />
C6<br />
40<br />
4F<br />
44<br />
C5<br />
53<br />
4B<br />
49<br />
00<br />
50<br />
4C<br />
4F<br />
04<br />
4C<br />
49<br />
4E<br />
C5<br />
52<br />
4C<br />
49<br />
4E<br />
C5<br />
40<br />
4F<br />
56<br />
o<br />
r<br />
M<br />
E<br />
N<br />
o<br />
S<br />
T<br />
o<br />
P<br />
C<br />
o<br />
N<br />
T<br />
C<br />
L<br />
S<br />
o<br />
N<br />
L<br />
E<br />
T<br />
N<br />
E<br />
W<br />
P<br />
o<br />
K<br />
E<br />
o<br />
F<br />
F<br />
M<br />
o<br />
o<br />
E<br />
S<br />
K<br />
L<br />
o<br />
T<br />
L<br />
R<br />
L<br />
N<br />
E<br />
M<br />
o<br />
V<br />
P<br />
P<br />
I<br />
S<br />
T<br />
I<br />
N<br />
T<br />
I<br />
N<br />
I<br />
I<br />
N<br />
E<br />
I
SEITE 200<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1 Z<br />
11139 2B83 C5 E<br />
11140 2B84<br />
11201 2BC1 47<br />
G<br />
52 R Befehl RMOVE (A8)<br />
11202 2BC2<br />
11141 2885<br />
C5<br />
40<br />
E<br />
M<br />
11203 2BC3<br />
11142 2B86 4F<br />
80<br />
0<br />
11204 2BC4<br />
11143 2887<br />
43<br />
56<br />
C<br />
V<br />
11205 2BC5<br />
11144 2B88<br />
4F 0<br />
C5 E<br />
11206 2BC6<br />
11145 2B89<br />
4E<br />
54<br />
N<br />
T Befehl TRON (A9)<br />
11207 28C7<br />
11146 2B8A<br />
53<br />
52<br />
S<br />
R<br />
11208 28C8<br />
11147 2B88 4F<br />
4F 0<br />
0<br />
11209 28C9 4C<br />
11148 2B8C CE<br />
L<br />
N 11210 2BCA C5 E<br />
11149 2B80 54 T Befehl TROFF (AA) 11211 2BCB 80<br />
11150 2B8E 52 R 11212 2BCC 4F 0<br />
11151 2B8F 4F 0<br />
11213 2BCO 55 U<br />
11152 2B90 46 F<br />
11214 2BCE 54 T<br />
11153 2B91 C6 F<br />
11215 2BCF A3 #<br />
11154 2B92 49 I Befehl INPtt (AB)<br />
11216 2BOO 43 C<br />
11155 2B93 4E N<br />
11217 2BOl 49 I<br />
11156 2B94 50 P 11218 2B02 52 R<br />
11157 2B95 A3 #<br />
11219 2B03 43<br />
11158 2B96<br />
C<br />
80 Frei 11220 2B04 4C<br />
11159 2B97<br />
L<br />
47 G Befehl GET (AO)<br />
11221 2B05 C5<br />
11160 2B98<br />
E<br />
45 E<br />
11222 2B06 54<br />
11161 2B99<br />
T<br />
04 T<br />
11223 2B07 45<br />
11162 2B9A 50<br />
E<br />
P Befehl PCOLOR (AE) c-..,..<br />
11224 2B08 -.J • .,)<br />
11163 2B9B 43<br />
S<br />
C<br />
11225 2B09<br />
11164 2B9C<br />
04 T<br />
4F 0<br />
11226 2BOA<br />
11165 2B90<br />
50<br />
4C<br />
P<br />
L<br />
11227 2BOB<br />
11166 2B9E<br />
41<br />
4F<br />
A<br />
0<br />
11228 2BOC 47 G<br />
11167 2B9F 02 R<br />
11168 2BAO<br />
11229 2BDO<br />
50<br />
C5<br />
P<br />
E<br />
Befehl PHOME (AF)<br />
11230 2BOE<br />
11169 2BAl<br />
80<br />
48 H<br />
11231 2BOF<br />
11170 2BA2 4F<br />
80<br />
0<br />
11232 2BEO<br />
11171 2BA3<br />
45<br />
40<br />
E<br />
M<br />
11233 2BEl<br />
11172 2BA4<br />
52 R<br />
C5 E<br />
11234 2BE2 41<br />
11173 2BA5 48<br />
A<br />
H Q Befehl HSET (BO)<br />
11235 2BE3<br />
11174 2BA6<br />
53<br />
53<br />
S<br />
S<br />
11236 2BE4<br />
11175 2BA7 45<br />
C5 E<br />
E<br />
11237 2BE5 45<br />
11176 2BA8<br />
E<br />
04 T<br />
11238 2BE6 52 R<br />
11177 2BA9 47 G Befehl GPRINT (B1> 11239 2BE7 52<br />
11178 2BAA<br />
R<br />
50 P<br />
11240 2BE8 4F 0<br />
11179 2BAB 52 R<br />
11241 2BE9<br />
11180 2BAC<br />
02 R<br />
49 I<br />
11242 2BEA 80<br />
11181 2BAO 4E N<br />
11243 2BEB<br />
11182 2BAE<br />
55<br />
04<br />
U<br />
T<br />
11244 2BEC 53<br />
11183 2BAF 4B<br />
S<br />
K Befehl KEV (B2)<br />
11245 2BEO 02<br />
11184 2BBO 45<br />
R<br />
E<br />
11246 2BEE 42<br />
11185 2BBI 09<br />
B<br />
Y<br />
11247 2BEF 59 Y<br />
11186 2BB2 41 A Befehl AXIS (B3)<br />
11248 2BFO<br />
11187 2BB3<br />
C5<br />
58<br />
E<br />
X<br />
11249 2BFI<br />
11188 2BB4<br />
80<br />
49 I<br />
11189 2BB5<br />
11250 2BF2 80<br />
03 S<br />
11251 2BF3<br />
11190 2BB6 4C<br />
44 0<br />
L Befehl LOAD (B4)<br />
11252 2BF4 45<br />
11191 2BB7 4F<br />
E<br />
0<br />
11192 2BB8<br />
11253 2BF5<br />
41<br />
C6<br />
A<br />
F<br />
11193 2BB9<br />
11254 2BF6<br />
C4<br />
80<br />
0<br />
11194 2BBA 53<br />
11255 2BF7 80<br />
S<br />
11195 2BBB 41 • Befehl SAVE (B:5) 11256 2BF8<br />
A<br />
80<br />
11196 2BBC 56<br />
11257 2BF9<br />
V<br />
80<br />
11197 2BBO C5<br />
11258 2BFA 80<br />
E<br />
11198 2BBE 40<br />
11259 2BFB 80<br />
M ; Befehl MERGE (B6)<br />
11199 2BBF 45<br />
11260 2BFC 57<br />
E<br />
W<br />
11200 2BCO<br />
11261 2BFO<br />
52<br />
4F<br />
R<br />
0<br />
11262 2BFE 50 P
SEITE 202<br />
11263 2BFF<br />
11264 2COO<br />
11265 2C01<br />
11266 2C02<br />
11267 2C03<br />
11268 2C04<br />
11269 2C05<br />
11270 2C06<br />
11271 2C07<br />
11272 2C08<br />
11273 2C09<br />
11274 2COA<br />
11275 2COB<br />
11276 · 2COC<br />
11277 2COO<br />
11278 2COE<br />
11279 2COF<br />
11280 2C10<br />
11281 2C11<br />
11282 2C12<br />
11283 2C13<br />
11284 2C14<br />
11285 2C15<br />
11286 2C16<br />
11287 2C17<br />
11288 2C18<br />
11289 2C19<br />
11290 2C1A<br />
11 29 1 2C 1 B<br />
11292 2C1C<br />
11293 2C10<br />
11294 2C1E<br />
11295 2C1F<br />
11296 2C20<br />
11297 2C21<br />
11298 2C22<br />
11299 2C23<br />
11300 2C24<br />
11301 2C25<br />
11302 2C26<br />
11303 2C27<br />
11 304 2C28<br />
11305 2C29<br />
11306 2C2A<br />
11307 2C2B<br />
11308 2C2C<br />
11309 2C20<br />
11310 2C2E<br />
11311 2C2F<br />
11312 2C30<br />
11313 2C31<br />
11314 2C32<br />
11315 2C33<br />
11316 2C34<br />
11317 2C35<br />
11318 2C36<br />
11319 2C37<br />
11320 2C38<br />
11321 2C39<br />
11322 2C3A<br />
11323 2C3B<br />
11324 2C3C<br />
45<br />
CE<br />
43<br />
4C<br />
4F<br />
53<br />
C5<br />
52<br />
4F<br />
50<br />
45<br />
CE<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
4B<br />
49<br />
4C<br />
CC<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
54<br />
CF<br />
53<br />
54<br />
45<br />
00<br />
54<br />
48<br />
45<br />
CE<br />
55<br />
53<br />
49<br />
4E<br />
C7<br />
80<br />
80<br />
54<br />
41<br />
C2<br />
53<br />
50<br />
C3<br />
80<br />
80<br />
80<br />
4F<br />
02<br />
41<br />
4E<br />
C4<br />
80<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
E<br />
N<br />
C<br />
L<br />
o<br />
S<br />
E<br />
R<br />
o<br />
P<br />
E<br />
N<br />
K<br />
L<br />
T<br />
o<br />
S<br />
T<br />
E<br />
P<br />
T<br />
H<br />
E<br />
N<br />
U<br />
S<br />
I<br />
N<br />
G<br />
T<br />
A<br />
B<br />
S<br />
P<br />
C<br />
o<br />
R<br />
A<br />
N<br />
o<br />
Befehl CLOSE<br />
Befehl ROPEN<br />
Frei<br />
Frei<br />
Frei<br />
Frei<br />
Frei<br />
; Frei<br />
Frei<br />
Frei<br />
Befehl KILL<br />
Frei<br />
Frei<br />
Frei<br />
Frei<br />
Frei<br />
Frei<br />
Befehl TO<br />
Befehl STEP<br />
Befehl THEN<br />
; Befehl USING<br />
= Frei<br />
Frei<br />
• Befehl TAB<br />
a Befehl SPC<br />
Frei<br />
Frei<br />
Frei<br />
,Befahl OR<br />
• Befehl AND<br />
Frei für NOT<br />
(CF)<br />
(00)<br />
(09)<br />
(EO)<br />
(EU<br />
(E2)<br />
(E3)<br />
(E6)<br />
SEITE 204<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
Befehle V<br />
11383 2C77 80 Frei <br />
Tabelle der mit 11384 2C78 80 Frei 12457 30A9 49 I<br />
11385 2C79 80 Frei 12458 30AA 4E N <br />
11386 2C7A 80 Frei 12459 30AB 04 T <br />
11387 2C7B 80 Frei 12460 30AC 41 A<br />
11388 2C7C 80 Frei 12461 30AO 42 B <br />
11389 2C70 80 Frei 12462 30AE 03 S <br />
11390 2C7E 80 Frei 12463 30AF 53 S<br />
11391 2C7F 80 Frei 12464 30BO 49 I <br />
11392 2C80 40 M Befehl MUSIC (A2) 12465 30Bl CE N <br />
11393 2C81 55 U 12466 30B2 43 C<br />
11394 2C82 53 S 12467 30B3 4F 0 <br />
11395 2C83 49 I 12468 30B4 03 S <br />
11396 2C84 C3 C 12469 30B'5 54 T<br />
11397 2C85 54 T Befehl TEMPO (A3) 12470 30B6 41 A<br />
11398 2C86 45 E 12471 30B7 CE N )<br />
11399 2C87 40 M 12472 30B8 4C L<br />
11400 2C88 50 P 12473 30B9 CE N<br />
11401 2C89 CF 0 12474 30BA 45 E<br />
11402 2C8A 43 C Befehl CURSOR (A4)<br />
12475 30BB 58 X<br />
11403 2C8B 55 U =<br />
12476 30BC 00 P<br />
11404 2C8C 52 R 12477 30BO 53 S<br />
11405 2C80 53 S 12478 30BE 51 Q<br />
11406 2C8E 4F 0 12479 30BF 02 R<br />
11407 2C8F 02 R 12480 30CO 52 R<br />
11408 2C90 56 V Befehl VERIFY (A5)<br />
=<br />
12481 30C1 4E N<br />
11409 2C91 45 E 12482 30C2 C4 0<br />
11410 2C92 52 R 12483 30C3 50 P<br />
11411 2C93 49 I 12484 30C4 45 E<br />
11412 2C94 46 F 12485 30C5 45 E<br />
11413 2C95 09 Y 12486 30C6 CB ( •. K .><br />
11414 2C96 43 C Befehl CLR (A6) 12487 30C7 41 A<br />
11415 2C97 4C L 12488 30C8 54 T<br />
11416 2C98 02 R 12489 30C9 CE N )<br />
11417 2C99 4C L Befehl LIMIT (A7) 12490 30CA 53 S<br />
11418 2C9A 49 I 12491 30CB 47 G<br />
11419 2C9B 40 M 12492 30CC CE N<br />
11420 2C9C 49 I 12493 30CO 4C L<br />
11421 2C9D 04 T 12494 30CE 4F 0<br />
11422 2C9E 80<br />
=<br />
Frei 12495 30CF C7 G<br />
11423 2C9F 80 Frei 12496 3000 80<br />
11424 2CAO 80 Frei 12497 3001 50 P<br />
11425 2CA1 80 =<br />
Frei 12498 3002 41 A<br />
11426 2CA2 80 Frei 12499 3003 C9 I<br />
11427 2CA3 80 Frei 12500 3004 52 R<br />
11428 '2CA4 42 B Befehl BOOT (AE) 12501 3005 41 A<br />
11429 2CA5 4F 0 12502 3006 C4 0<br />
11430 2CA6 4F 0 12503 3007 80<br />
11431 2CA7 04 T 12504 3008 80<br />
11432 2CA8 FF Tabellenende 12505 3009 80<br />
12506 300A 80<br />
12507 300B 80<br />
12508 300C 45 E<br />
12509 3000 4F 0<br />
Der Bereich $2CA9 - $30A8 wird zur Zeit noch nicht genutzt. ~I 12510 300E C6 F<br />
12511 300F 80<br />
12512 30EO 80<br />
12513 30El 80<br />
12514 30E2 80<br />
12515 30E3 80<br />
12516 30E4 80
SEITE 206<br />
BASIC 1Z-013B V1.0A<br />
12517 30E5 80 Frei<br />
12518 30E6 80 Frei<br />
12519 30E7 4A J Befehl JOY (9E)<br />
12520 30E8 4F 0<br />
12521 30E9 D9 Y<br />
12522 30EA 80 Frei<br />
12523 30EB 43 C Befehl CHR$ (AO)<br />
12524 30EC 48 H<br />
12525 30EO 52 R<br />
12526 30EE A4 $<br />
12527 30EF 53 S Befehl STR$ (Al><br />
12528 30FO 54 T<br />
12529 30Fl 52 R<br />
12530 30F2 A4 $<br />
12531 30F3 48<br />
H<br />
Befehl •<br />
HEX$ (A2)<br />
12532 30F4 45<br />
E<br />
12533 30F5 58 X<br />
12534 30F6 A4 $<br />
12535 30F7 80 Frei<br />
12536 30F8 80 ; Frei<br />
12537 30F9 80 ; Frei<br />
12538 30FA 80 Frei<br />
12539 30FB 80 ; Frei<br />
12540 30FC 80 Frei<br />
12541 30FO 80 Frei<br />
12542 30FE 80 Frei<br />
12543 30FF 41 A Befehl ASC (AB)<br />
12544 3100 53 S<br />
12545 3101 C3 C<br />
12546 3 102 4C Befehl LEN (AC)<br />
12547 3103 45 E<br />
12548 3104 CE N<br />
12549 3105 56 V Befehl VAL (AO)<br />
12550 3106 41 A<br />
12551 3107 CC L<br />
12552 3108 80 Frei<br />
12553 3109 80<br />
Frei<br />
12554 310A 80<br />
• Frei<br />
Frei<br />
80<br />
12555 310B<br />
12556 310C<br />
80<br />
• Frei<br />
Frei<br />
12557 3100 45 E Befehl ERN (B3)<br />
12558 310E 52 R<br />
12559 310F CE N<br />
12560 3110 45 E , Befahl ERL (B4)<br />
12561 3111 52 R<br />
12562 3112 CC L<br />
12563 3113<br />
53<br />
Befehl SIZE (B5)<br />
12564 3114 49<br />
12565 3115 5A Z<br />
12566 3116 C5 E<br />
12568 3118 80 Frei<br />
12567 3117 80 Frei<br />
, 12569 3119 80 Frei<br />
12570 311A 80 Frei<br />
12571 311B 4C L Befehl LEFTS (BA)<br />
12572 311C 45 E<br />
12573 3110 46 F<br />
12574 311E 54 T<br />
12575 311F A4 $<br />
12576 3120 52<br />
R<br />
Befahl •<br />
·RIGHT$ (BB)<br />
12577 3121 49<br />
I<br />
12578 3122 47 (3<br />
S<br />
•<br />
I<br />
12579 3123<br />
12580 3124<br />
12581 3125<br />
12582 3 126<br />
12583 3127<br />
12584 3 128<br />
12585 3129<br />
12586 312A<br />
12587 312B<br />
12588 3 12C<br />
12589 3120<br />
12590 3 12E<br />
12591 312F<br />
12592 3130<br />
12593 3131<br />
12594 3132<br />
12595 3133<br />
12596 3134<br />
12597 313 5<br />
12598 3136<br />
12599 31 3 7<br />
12600 3 13 8<br />
12601 3139<br />
12602 3 13 A<br />
12603 3 13B<br />
12604 3 13C<br />
12605 3130<br />
12606 3 13 E<br />
12607 3 13 F<br />
12608 3 140<br />
12609 3141<br />
12610 3 142<br />
12611 3 143<br />
12612 3144<br />
12613 3 145<br />
12614 3 146<br />
48<br />
54<br />
A4<br />
40<br />
49<br />
44<br />
A4<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
53<br />
54<br />
52<br />
49<br />
4E<br />
47<br />
A4<br />
54<br />
49<br />
A4<br />
80<br />
80<br />
46<br />
CE<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
FF<br />
BASIC 1<br />
H <br />
T <br />
$ <br />
M <br />
I <br />
D <br />
$ <br />
S <br />
T <br />
R<br />
I<br />
N<br />
G<br />
$<br />
T<br />
$<br />
F<br />
N<br />
I
SEITE 208 <br />
BASIC 1Z-013B V1_0A <br />
Tabelle mit Anfangsadressen der einzelnen 8efehlsroutinen<br />
12615 3147 07 38 Adresse GOTO<br />
12616<br />
12617 3149 CD 36 Adresse GOSUB<br />
12618<br />
12619 3148 FE 20 Adresse GD<br />
12620<br />
12621 314D 6E 1C Adresse RUN<br />
12622<br />
12623 314F 94 36 Adresse RETURN<br />
12624<br />
12625 3151 A8 25 Adresse RES TORE<br />
12626<br />
12627 3153 FB 36 Adresse RESUME<br />
12628<br />
12629' 3155 02 41 Adresse LIST<br />
12630<br />
12631 3157 FE 20 Adresse Syntax - Fehler<br />
12632<br />
12633 3159 56 34 Adresse DELETE<br />
12634<br />
12635 315B 71 34 Adresse RENUM<br />
12636<br />
12637 315D D5 21 Adresse AUTO<br />
12638<br />
12639 315F FE 20 Adresse Syntax - Fehler<br />
12640<br />
12641 3161 BF lC Adresse FOR<br />
12642<br />
12643 3163 6F 10 Adresse NEXT<br />
12644<br />
12645 3165 6A 1E Adresse PRINT<br />
12646<br />
12647 3167 FE 20 Adresse Syntax - Fehler<br />
12648<br />
12649 3169 CA 22 Adresse INPUT<br />
12650<br />
12651 316B FE 20 Adresse Syntax - Fehler<br />
12652<br />
12653 316D 3F 38 Adresse IF<br />
12654<br />
12655 316F 23 33 Adresse DATA<br />
12656<br />
12657 3171 E3 25 Adresse READ<br />
1265B<br />
12659 3173 EA 5A Adresse OlM<br />
12660<br />
12661 3175 23 33 Adresse REM<br />
12662<br />
12663 3177 B7 21 Adresse END<br />
12664<br />
12665 3179 71 20 Adresse STOP<br />
12666<br />
12667 317B 9F 20 Adresiie CONT<br />
12668<br />
12669 317D CE 38 Adresse CLS<br />
12670<br />
12671 317F FE 20 ~ Adresse Syntax - Fehler<br />
12672<br />
12673 3181 92 37 Adresse ON<br />
12674<br />
BASIC 1Z<br />
12675 3183 59 19<br />
12676<br />
12677 3185 48 22<br />
12678<br />
12679 3187 07 33<br />
12680<br />
12681 3189 FE 20<br />
12682<br />
12683 3188 00 4D<br />
12684<br />
12685 3180 2C 4E<br />
12686<br />
12687 318F 31 3A<br />
12688<br />
12689 3191 8C 4E<br />
12690<br />
12691 3193 FE 4E<br />
12692<br />
12693 3 195 05 4F<br />
12694<br />
12695 3 197 14 4F<br />
12696<br />
12697 3 199 7E 22<br />
12698<br />
12699 3 198 82 22<br />
12700<br />
12701 319D 50 33<br />
12702<br />
12703 3 19F FE 20<br />
12704<br />
12705 3 1A1 89 33<br />
12706<br />
12707 31A3 1B 4F<br />
12708<br />
12709 31A5 50 4F<br />
12710<br />
12711 3 1A7 64 4F<br />
12712<br />
12713 3 1A9 76 4F<br />
12714<br />
12715 31AB 21 43<br />
12716<br />
1 2717 31AO FC 4F<br />
12718<br />
12719 31AF 01 41<br />
12720<br />
12721 31B1 A4 42<br />
12722<br />
12723 31B3 AB 41<br />
12724<br />
12725 31B5 FE 20<br />
12726<br />
12727 31B7 CB 39<br />
1272 8<br />
12729 31B9<br />
1273 0<br />
FE 20<br />
1273 1 31BB 39 33<br />
12732<br />
12733 3180 50 50<br />
12734<br />
12735 31BF 27 52<br />
12736
SEITE 210<br />
12737 31Cl 3B 52<br />
12738<br />
12739 31C3 FE 20<br />
12740<br />
12741 31C5 FE 20<br />
12742<br />
12743 31C7 FE 20<br />
12744<br />
12745 31C9 05 21<br />
12746<br />
12747 31CB FE 20<br />
12748<br />
12749 31CO 05 33<br />
12750<br />
12751 31CF C2 13<br />
12752<br />
12753 3101 FE 20<br />
12754<br />
12755 3103 FE 20<br />
12756<br />
12757 3105 IB 25<br />
12758<br />
12759 3107 FE 20<br />
12760<br />
12761 3109 FE 20<br />
12762<br />
12763 310B FE 20<br />
12764<br />
12765 310D FE 20<br />
12766<br />
12767 31DF FE 20<br />
12768<br />
12769 31El FE 20<br />
12770<br />
12771 31E3 A3 46<br />
12772<br />
12773 31E5 45 45<br />
12774<br />
12775 31E7 OF 46<br />
12776<br />
12777 31E9 FE 20<br />
12778<br />
12779 31EB FE 20<br />
12780<br />
12781 31ED FE 20<br />
12782<br />
12783 31EF FE 20<br />
12784<br />
12785 31F1 FE 20<br />
12786<br />
12787 31F3 FE 20<br />
12788<br />
12789 31F5 FE 20<br />
12790<br />
12791 31F7 FE 20<br />
12792<br />
12793 31F9 FE 20<br />
12794<br />
12795 31FB FE 20<br />
12796<br />
12797 31FO FE 20<br />
12798<br />
BASIC 1Z-013B V1.0A<br />
Adresse PAGE<br />
Adresse Syntax <br />
Adresse Syntax<br />
Adresse ERASE<br />
Adresse ERROR<br />
Adres!iie ELSE<br />
Adres!iie USR<br />
Adresse BVE<br />
Adresse Syntax <br />
Adresse Syntax <br />
Adr,esse DEF<br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax<br />
Adresse Syntax <br />
Adresse WOPEN<br />
Adresse CLOSE<br />
Adresse ROPEN<br />
Adre!iise Syntax <br />
Adresse Syntax <br />
Adresse Syntax<br />
Adresse Syntax<br />
Adres;se Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax<br />
Adre!ise KILL<br />
Adresse Syntax <br />
Adresse Syntax<br />
Fehler <br />
Fehler <br />
Fehler <br />
Fehler <br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
BASIC 1 Z<br />
12799 3 1FF<br />
12800<br />
12801 3201<br />
12802<br />
12803 3203<br />
12804<br />
12805 3205<br />
12806<br />
FE<br />
FE<br />
FE<br />
FE<br />
20<br />
20<br />
20<br />
20<br />
Anfangsadressen der Routin<br />
12807 3207 FE 20 <br />
12808 <br />
12809 3209 02 39<br />
12810 <br />
12811 320B 35 39 <br />
12812 <br />
12813 320D 73 44 <br />
12814 <br />
12815 320F FE 20 <br />
12816 <br />
12817 3211 FE 20 <br />
12818 <br />
12819 3213 FE 20 <br />
12820 <br />
12821 3215 FE 20 <br />
12822 <br />
12823 3217 FE 20 <br />
12824 <br />
12825 3219 FE 20 <br />
12826 <br />
12827 321B FE 20 <br />
12828 <br />
12829 3210 FE 20 <br />
12830 <br />
12831 321F FE 20 <br />
12832 <br />
12833 3221 FE 20 <br />
12834 <br />
12835 3223 FE 20<br />
12836<br />
12837 3225 FE 20<br />
12838<br />
12839 3227 FE 20 <br />
12840<br />
12841 3229 FE 20<br />
12842<br />
12843 322B FE 20<br />
12844<br />
12845 322D FE 20<br />
12846<br />
12847 322F FE 20<br />
12848<br />
12849 3231 FE 20<br />
12850<br />
12851 3233 FE 20<br />
12852<br />
12853 3235 FE 20<br />
12854<br />
12855 3237 FE 20<br />
12856
SEITE 212<br />
BASIC 1Z-013B V1_0A<br />
12857 3239 <br />
<br />
<br />
FE 20 Adresse Syntax<br />
12858<br />
12859 3238 FE 20 Adresse Syntax<br />
12860<br />
12861 323D FE 20 Adresse Syntax<br />
12862<br />
12863 323F FE 20 Adresse Syntax<br />
12864<br />
12865 3241 FE 20 Adresse Syntax<br />
12866<br />
12867 3243 FE 20 Adresse Syntax 12868<br />
12869 3245 FE 20 Adresse Syntax 12870<br />
12871 3247 FE 20 Adresse Syntax<br />
12872<br />
12873 3249 FE 20 Adresse Syntax<br />
12874<br />
12875 3248 3C 44 Adresse MUSIC<br />
12876<br />
12877 3240 63 44 Adresse TEMPO<br />
12878<br />
12879 324F 6C 33 Adresse CURSOR<br />
12880<br />
12881 3251 01 42 Adresse VERIF'(<br />
12882<br />
12883 3253 4E 22 Adresse CLR <br />
12884 <br />
12885 3255 08 34 Adresse LIMIT<br />
12886<br />
12887 3257 FE 20 Adresse Syntax<br />
12888<br />
12889 3259 FE 20 Adresse Syntax 12890<br />
12891 3258 FE 20 Adresse Syntax <br />
12892 <br />
12893 3250 FE 20 Adresse Syntax <br />
12894 <br />
12895 325F FE 20 Adresse Syntax <br />
12896 <br />
12897 3261 FE 20 Adresse Syntax <br />
12898 <br />
12899 3263 6A 3A Adresse BOOT <br />
12900 <br />
Anfangsadressen der Routinen für· Befehle mit Vorbyte FFH<br />
12901 3265 77 62 Adresse INT <br />
12902 <br />
12903 3267 72 62 Adresse A8S <br />
12904 <br />
12905 3269 C6 63 Adresse SIN <br />
12906 <br />
12907 326B BO 63 Adresse cas <br />
12908 <br />
12909 3260 BO 64 Adresse TAN <br />
12910 <br />
12911 326F 36 67 Adresse LN <br />
12912 <br />
12913 3271 15 66 Adresse EXP <br />
12914 <br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehl er<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
12915 3273<br />
12916<br />
12917 3275<br />
12918<br />
12919 3277<br />
12920<br />
12921 3279<br />
12922<br />
12923 3278<br />
12924<br />
12925 3270<br />
12926<br />
12927 327F<br />
12928<br />
12929 3281<br />
12930<br />
12931 3283<br />
12932<br />
12933 3285<br />
12934<br />
12935 3287<br />
12936<br />
12937 3289<br />
12938<br />
12939 328B<br />
12940<br />
12941 3280<br />
12942<br />
12943 328F<br />
12944<br />
12945 3291<br />
12946<br />
12947 3293<br />
12948<br />
12949 3295<br />
12950<br />
12951 3297<br />
12952<br />
12953 3299<br />
12954<br />
12955 3298<br />
12956<br />
12957 3290<br />
12 958<br />
12959 329F<br />
12960<br />
12961 32A1<br />
12962<br />
12963 32A3<br />
12964<br />
12965 32A5<br />
12966<br />
12967 32A7<br />
12968<br />
12969 32A9<br />
12970<br />
12971 32AB<br />
12972<br />
12973 32AO<br />
12974<br />
12975 32AF<br />
12976<br />
BASIC 1Z-<br />
00 62<br />
00 65<br />
85 65<br />
EE 62<br />
7A 65<br />
2A 67<br />
FE 20<br />
A2 65<br />
90 65<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
A3 39<br />
FE 20<br />
FE 20<br />
77 56<br />
EC 55<br />
FE 20<br />
FE 20<br />
FE 20
SEITE 214<br />
12977 32B1 FE 20<br />
12978<br />
12979 32B3 FE 20<br />
12980<br />
12981 32B5 FE 20<br />
12982<br />
1298.3 32B7 FE 20<br />
12984<br />
12985 32B9 FE 20<br />
12986<br />
12987 32BB AO 56<br />
12988<br />
12989 32BO AC 56<br />
12990<br />
12991 32BF B4 56<br />
12992<br />
12993 32C1 FE 20<br />
12994<br />
12995 32C3 FE 20<br />
12996<br />
12997 32C5 FE 20<br />
12998<br />
12999 32C7 FE 20<br />
13000<br />
13001 32C9 FE 20<br />
13002<br />
13003 32CB 62 55<br />
13004<br />
13005 32CO 6A 55<br />
13006<br />
13007 32C~ 48 55<br />
13008<br />
13~)9 3201 FE 20<br />
13010<br />
13011 3203 FE 20<br />
13012<br />
13013 3205 FE 20<br />
13014<br />
13015 3207 FE 20<br />
13016<br />
13017 3209 C7 56<br />
13018<br />
13019 320B E4 56<br />
13020<br />
13021 3200 02 57<br />
13022<br />
13023 320F FE 20<br />
1.3024<br />
13025 32E1 FE 20<br />
13026<br />
13027 32E3 FE 20<br />
13028<br />
13029 32E5 FE 20<br />
13030<br />
13031 32E7 FE 20<br />
13032<br />
13033 32E9 FE 20<br />
13034<br />
13035 32EB FE 20<br />
13036<br />
13037 32EO 3F 57<br />
13038<br />
BASIC 1Z-013B<br />
V1_0A<br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax<br />
Adresse Syntax <br />
Adresse ASC<br />
Adresse LEN<br />
Adresse VAL<br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse ERN<br />
Adresse ERL<br />
Adresse SIZE<br />
Adresse Syntax <br />
Adresse Syntax<br />
Adresse Syntax<br />
Adresse Syntax <br />
•<br />
Adresse LEFT$<br />
Adresse RIGHT$<br />
Adresse MID$<br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse Syntax <br />
Adresse STRING$<br />
Adresse TI$<br />
Fehler<br />
·Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
Fehler<br />
13039 32EF<br />
13040<br />
13041 32F1<br />
13042<br />
13043 32F3<br />
13044<br />
13045 32F5<br />
13046<br />
13047 32F7<br />
13048<br />
13049 32F9<br />
13050<br />
13051 32FB<br />
13052<br />
13053 32FO<br />
13054<br />
13055 32F~<br />
13056<br />
13057 3301<br />
13058<br />
13059 3303<br />
13060<br />
Befehl<br />
13061 3305<br />
13062<br />
13063<br />
13064 3308<br />
13065<br />
13066<br />
13067 330B<br />
13068 330C<br />
13069 3300<br />
13070<br />
13071 330F<br />
13072<br />
13073 3 311<br />
13074 3312<br />
13075<br />
13076<br />
13077 3315<br />
13078<br />
13079<br />
13080 3318<br />
13081 .3319<br />
13082<br />
13083<br />
13084 331C<br />
13085 3310<br />
13086<br />
13087<br />
13088 3320<br />
13089 3321<br />
13090 3322<br />
BASIC 1Z<br />
FE 20<br />
FE 20<br />
F7 5C<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
FE 20<br />
USR<br />
CO FO 57 CALL 57<br />
CO 65 40 CALL 40<br />
05 PUSH DE<br />
23 INC HL<br />
FE 29 CP 29<br />
28 OB JR Z. O<br />
2B DEC HL<br />
CD 32 33 CALL 33<br />
CD BC 40 CALL 40B<br />
48 LO C.B<br />
CD 04 58 CALL 58<br />
E3 EX (SP)<br />
CD 22 33 CALL 33<br />
E1 POP HL<br />
C9 RET<br />
E9 JP (HL>
SEITE 216 <br />
BASIC 1Z-013B <br />
Befehl REM / DATA<br />
13091 3323 <br />
2B DEC HL <br />
13092 3324 CD 80 38 CALL 3880 <br />
13093 <br />
13094 <br />
13095 3327 B7 OR A <br />
13096 3328 37 SCF <br />
13097 3329 C8 RET Z <br />
13098 332A FE 3A CP 3A<br />
13099 <br />
13100 332C C8 RET Z<br />
13101 3320 18 F5 JR F5 .. 3324H ~ 13102 <br />
Syntax untersuchung auf Komma<br />
13103 332F <br />
CD 14 54 CALL 5414 <br />
13104 <br />
13105 <br />
13106 3332 FE 2C CP 2C <br />
13107 <br />
13108 3334 C2 FE 20 JP NZ. 20FE <br />
13109 <br />
13110 <br />
13111 3337 23 INC HL ~ 13112 3338 C9 RET <br />
Befehl OUT *<br />
13113 3339 CD 50 4D CALL 4D50 <br />
13114 <br />
13115 <br />
13116 333C FE EO CP EO<br />
13117 <br />
13118 333E 38 05 JR C. 05 .. 3345H<br />
13119 <br />
13120 3340 FE E7 CP E7 <br />
13121 <br />
13122 3342 DA 01 21 JP C. 2101 <br />
13123 <br />
13124 <br />
13125 3345 CO 2F 33 CALL 332F <br />
13126 <br />
13127 <br />
13128 3348 05 PUSH DE <br />
13129 3349 CO 50 40 CALL 4D50 <br />
13130 <br />
13131 <br />
13132 334C Cl POP BC<br />
13133 3340 EO 79 OUT (C).A <br />
13134 <br />
13135 334F C9 RET<br />
V1.0A<br />
PROGRAM<strong>MZ</strong>EIGER<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES BEFEHLS<br />
I BYTE STELLEN<br />
ZEILENENDE ?<br />
CODE ZEILENENDE<br />
ZEILENENDE<br />
(Doppelpunkt)<br />
BEFEHLSENDE<br />
ENDE BEFEHL SUCHEN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
(Komma)<br />
SYNTAX - FEHLER<br />
Komma üBERSPRINGEN<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
ANFANG UMSCHALTPORTS<br />
PORTNUMMER IST OK<br />
ENDE UMSCHALTPORTS<br />
I UMSCHAL TPORT ..<br />
I DATENFEHLER<br />
SYNTAX Komma<br />
PORT-NUMMER MERKEN<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
PORT-NUMMER HOLEN<br />
WERT AUF PORT AUSGEBEN<br />
Befehl<br />
13136 3350 <br />
13137 <br />
13139 <br />
13139 3353 <br />
13140 <br />
13141 <br />
13142 3356 <br />
13 143 3357 <br />
13144 <br />
13145 <br />
13146 335A <br />
13147 <br />
13148 335C <br />
13149 <br />
13150 <br />
13151 ' 335F <br />
13152 3360 <br />
13153 3361 <br />
13154 3362 <br />
13155 3363 <br />
13 156 <br />
13157 3365 <br />
13158 <br />
13159 3367 <br />
13160 <br />
13161 <br />
13162 336A <br />
13163 336B <br />
Befehl<br />
13164 336C <br />
13165 <br />
13166 <br />
13 167 336F <br />
13168 <br />
13169 3371 <br />
13170 <br />
13171 <br />
13172 3374 <br />
13173 <br />
13 174 <br />
13175 3377 <br />
13176 <br />
13177 <br />
13178 337A <br />
13179 <br />
13180 <br />
13181 337D <br />
13182 <br />
13193 <br />
13184 3380 <br />
13185 <br />
13186 3382 <br />
13187 <br />
13188 <br />
13189 3385 <br />
1319(1 <br />
13191 <br />
BASIC<br />
INP# <br />
CD 50 40 <br />
CD 2F 33 <br />
05 <br />
CD OB 58 <br />
FE 05 <br />
C2 FB 20 <br />
E3 <br />
C5 <br />
E3 <br />
Cl <br />
ED 58 <br />
16 00 <br />
CO 82 3 A<br />
EI<br />
C9<br />
CURSOR <br />
CD 50 40 <br />
FE 28 <br />
D2 01 21 <br />
32 54 00 <br />
CD 14 54 <br />
CD 32 33 <br />
CD 50 4D<br />
FE 19 <br />
D2 01 21 <br />
32 55 00 <br />
1Z<br />
CALL 4<br />
CALL 3<br />
PUSH O<br />
CALL 5<br />
CP 05<br />
JP NZ<br />
EX (S<br />
PUSH<br />
EX (S<br />
POP BC<br />
IN E.<br />
LD D.<br />
CALL<br />
POP H<br />
RET<br />
CALL<br />
CF' 2<br />
JP NC<br />
LD (0<br />
CALL<br />
CALL<br />
CALL<br />
CP 1<br />
JP NC<br />
LD (0
SEITE 218 <br />
13192 3388 C9 <br />
Befehl GET<br />
13193 3389 CO OB <br />
13194 <br />
13195 <br />
13196 338C 32 65 <br />
13197 <br />
13198 <br />
13199 338F FE 05 <br />
13200 <br />
13201 3391 CA BE <br />
13202 <br />
13203 <br />
13204 3394 E5 <br />
13205 3395 C5 <br />
13206 3396 3E FF <br />
13207 <br />
13208 3398 CD 58 <br />
13209 <br />
13210 <br />
13211 339B 87 <br />
13212 339C 28 00 <br />
13213 <br />
13214 339E 2A 03 <br />
13215 <br />
13216 <br />
13217 33Al 77 <br />
13218 33A2 ED 4B <br />
13219 <br />
13220 <br />
13~21<br />
13222 33A6 B7 <br />
13223 33A7 ED 42 <br />
13224 <br />
13225 33A9 3E 01 <br />
13226 <br />
13227 33A8 ED 58 <br />
13228 <br />
13229 <br />
13230 <br />
13231 33AF EB <br />
13232 3380 77 <br />
13233 3381 23 <br />
13234 3382 73 <br />
13235 3383 23 <br />
13236 3384 72 <br />
13237 3385 2A B9 <br />
13238 <br />
13239 <br />
13240 3388 Dl <br />
13241 33B9 CD 82 <br />
13242 <br />
13243 <br />
13244 338C E1 <br />
13245 33BD C9 <br />
BASIC 1Z-013B<br />
RET<br />
58 CALL 580B<br />
6A LO (6A65).A<br />
CP 05<br />
33 JP Z. 338E<br />
PUSH HL<br />
PUSH BC<br />
LO A. FF<br />
00 CALL 0058<br />
OR A<br />
JR Z. 00 ~ 33ABH<br />
38 LO HL. (3803)<br />
LO (HU.A<br />
85 6A LD BC. (6AB5)<br />
OR A<br />
SBC HL.8C<br />
LO A. 01<br />
89 6A LO OE. (6A89)<br />
EX DE.HL<br />
LD (HU.A<br />
INC HL<br />
LD (HU.E<br />
INC HL<br />
LD (HU.D<br />
6A LD HL. (6A89)<br />
POP OE <br />
18 CALL 1B82 <br />
POP HL<br />
RET<br />
V1_0A<br />
NÄCHSTER BEFEHL<br />
IVARIABLENNAME (HL) AUS<br />
I WERTEN UNO ZEIGER AUF <br />
I VARIABLE BEREITSTELLEN <br />
TYP IM WERTFLAG MERKEN <br />
REAL - VARIABLE ?<br />
GET ZAHL<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
ZEIGER AUF VARIA8LE<br />
I CODE TASTATURABFRAGE<br />
I MIT ENTPRELLEN<br />
ABFRAGE. 08 TASTE GEDRUCKT<br />
GEDRUCKTE TASTE <br />
KEINE TASTE GEDRUCKT <br />
ANFANG STRINGARBEITSBEREICH<br />
ZEICHEN EINTRAGEN<br />
ANFANG STRINGTEXTBEREICH<br />
CARRY-FLAG ZURUCKSETZEN<br />
OFFSET AUF TEXT ERRECHNEN<br />
LÄNGE EIN ZEICHEN<br />
ZEIGER AUF RECHENSPEICHER<br />
, TEXTLÄNGE EINTRAGEN<br />
IOFFSET AUF TEXT<br />
; 'EINTRAGEN<br />
I <br />
'ZEIGER AUF FUR TASTEN<br />
ITEXT AUFGEBAUTEN <br />
IDESCRIPTOR <br />
; ZEIGER AUF VARIABLENDESCR.<br />
I ZEICHEN DER VARIABLEN<br />
I ZUWEISEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN <br />
NÄCHSTER 8EFEHL <br />
BASIC<br />
GET Zahl-Variable<br />
13246 <br />
13247 <br />
13248 <br />
13249 <br />
13250 <br />
13251 <br />
13252 <br />
13253 <br />
13254 <br />
13255 <br />
13256 <br />
13257 <br />
13258 <br />
13259 <br />
13260 <br />
13261 <br />
13262 <br />
13263 <br />
13264 <br />
13265 <br />
13266 <br />
13267 <br />
13268 <br />
13269 <br />
13270 <br />
33BE E5 <br />
33BF C5 <br />
33CO 3E FF <br />
33C2 CO 58 00<br />
33C5 06 30 <br />
33C7 38 04<br />
33C9 FE OA<br />
33CB 38 01<br />
33CO AF <br />
33CE 5F <br />
33CF 16 00 <br />
3301 EI <br />
3302 CD 82 3A <br />
3305 E1 <br />
3306 C9 <br />
Befehl POKE<br />
13271 <br />
13272 <br />
13273 <br />
13274 <br />
13275 <br />
13276 <br />
13277 <br />
13278 <br />
13279 <br />
13280 <br />
13281 <br />
13282 <br />
13283 <br />
13284 <br />
13285 <br />
13286 <br />
13287 <br />
13288 <br />
13289 <br />
13290 <br />
13291 <br />
13292 <br />
13293 <br />
13294 <br />
13295 <br />
13296 <br />
13297 <br />
13298 <br />
13299 <br />
13300 <br />
13301 <br />
3307 FE 40 <br />
3309 20 24 <br />
33DB 01 FD 33 <br />
33DE ED 43 FO 33 <br />
33E2 23 <br />
33E3 CO 65 40 <br />
33E6 CD 32 33 <br />
33E9 D5 <br />
33EA CD 50 40 <br />
33ED 01 <br />
33EE E8 <br />
33EF CD F2 00 <br />
FD 33 <br />
33F2 EB <br />
33F3 13 <br />
33F4 CD 14 54 <br />
1Z<br />
PUSH H<br />
PUSH B<br />
LD A.<br />
CALL 0<br />
SU8 A.<br />
JR C.<br />
CP OA<br />
JR C.<br />
XOR A<br />
LD E.A<br />
LO D.<br />
POP HL<br />
CALL 3<br />
POP HL<br />
RET<br />
CP 40<br />
JR NZ.<br />
LD BC.<br />
LD (33<br />
INC HL<br />
CALL 4<br />
CALL 3<br />
PUSH D<br />
CALL 4<br />
POP DE<br />
EX DE.H<br />
CALL 0<br />
3<br />
EX OE.H<br />
INC OE<br />
CALL 5
SEITE 220<br />
BASIC 1Z-013B<br />
13302<br />
13303 33F7 FE 2C CP 2C<br />
13304<br />
13305 33F9 CO RET NZ<br />
13306 33FA 23 INC HL<br />
13307 33FB 18 EC JR EC 13308<br />
13309 33FD 77 LD (HL>.A<br />
13310 33FE C9 RET<br />
13311 33FF 01 F2 00 LD BC. 00F2<br />
13312<br />
13313<br />
13314 3402 ED 43 FO 33 LD (33FO).BC<br />
13315 <br />
13316 <br />
13317 <br />
13318 3406 18 DB JR OB ~ 33E3H <br />
13319 <br />
13320 3408 CA 4E 22 JP Z. 224E <br />
13321 <br />
13322 <br />
Befehl LIMIT<br />
133 23 340B E5<br />
13324 340C CD 14 54 <br />
13325 <br />
13326 <br />
PUSH HL <br />
CALL 5414 <br />
13327 340F FE 4D CP 4D <br />
13328 <br />
13329 3411 20 18 JR NZ. 18 ~ 342BH<br />
13330<br />
13331 3413 23 INC HL <br />
13332 3414 CD 14 54 CALL 5414 <br />
13333 <br />
13334 <br />
13335 3417 FE 41 CP 41 <br />
13336 <br />
13337 3419 20 10 JR NZ. 10 ~ 342BH<br />
13338<br />
13339 341B 23 INC HL<br />
13340 341C CD 14 54 CALL 5414<br />
13341<br />
13342<br />
13343 341F FE 58 CP 58<br />
13344<br />
13345 3421 ~ 342BH<br />
20 08 JR NZ. 08 13346<br />
13347 3423 23 INC HL <br />
13348 3424 01 POP OE <br />
13349 3425 E5 PUSH HL <br />
13350 3426 21 00 FF LD HL. FFOO <br />
13351 <br />
13352 <br />
13353 3429 18 lC JR 1C ~ 3447H <br />
13354 <br />
V1_0A<br />
I ZEICHEN SETZEN <br />
(Komma) ? <br />
NÄCHSTER BEFEHL <br />
PROGRAM<strong>MZ</strong>EIGER <br />
WEITERE DATEN ANGEGEBEN <br />
WERT IM RAM ABLEGEN<br />
• I ROUTINE AUF POKE IM<br />
IBILDSPEICHER UMSTELLEN<br />
I <br />
I <br />
POKE AUSFüHREN<br />
VARIABLEN LöSCHEN<br />
PROGRAM<strong>MZ</strong>EIGER <br />
IPROGRAM<strong>MZ</strong>EIGER AUF <br />
I NÄCHSTES RELEVANTES <br />
I ZEICHEN SETZEN <br />
M (MAX) <br />
• NICHT LIMIT MAX<br />
PROGRAM<strong>MZ</strong>EIGER<br />
; IPROGRAM<strong>MZ</strong>EIGER AUF <br />
'NÄCHSTES RELEVANTES <br />
'ZEICHEN SETZEN <br />
A (MAX) <br />
; NICHT LIMIT MAX<br />
PROGRAM<strong>MZ</strong>EIGER<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
X (MAX)<br />
NICHT LIMIT MAX<br />
PROGRAM<strong>MZ</strong>EIGER<br />
; ALTEN PROGRAM<strong>MZ</strong>EIGER VERG.<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
ADRESSE FüR LIMIT MAX<br />
LI MIT MERKEN<br />
13355<br />
13356<br />
13357<br />
13358<br />
13359<br />
13 360<br />
13 361<br />
13362<br />
13363<br />
13364<br />
13365<br />
13366<br />
13367<br />
13368<br />
13369<br />
133 70<br />
13371<br />
13372<br />
13373<br />
13374<br />
13 375<br />
13376<br />
13377<br />
13378<br />
13379<br />
1338 0<br />
1338 1<br />
13382<br />
1338 3<br />
13384<br />
133 85<br />
13386<br />
13387<br />
13388<br />
133 89<br />
13390<br />
133 91<br />
133 92<br />
13393<br />
13394<br />
133 95<br />
13396<br />
13397<br />
13398<br />
13399<br />
13400<br />
13401<br />
13402<br />
13403<br />
13404<br />
13405<br />
13406<br />
13407<br />
13 408<br />
13 409<br />
1341 0<br />
LIMIT<br />
3 42B<br />
342C<br />
3 42F<br />
3430<br />
3 43 3<br />
3434<br />
3436<br />
3439<br />
343C<br />
343D<br />
3 43E<br />
343F<br />
3440<br />
3 441<br />
3443<br />
3446<br />
3447<br />
344A<br />
3 448<br />
3 44C<br />
3450<br />
3453<br />
3454<br />
3455<br />
Befehl<br />
3456<br />
3459<br />
3 45C<br />
3 45F<br />
3460<br />
3 461<br />
3462<br />
BASIC<br />
mit Angabe von<br />
E1<br />
CD 65 4D<br />
E5<br />
2A BD 6A<br />
B7<br />
ED 52<br />
DA B9 20<br />
2A B7 6A<br />
24 <br />
24 <br />
24 <br />
24 <br />
B7 <br />
ED 52 <br />
02 01 21<br />
EB<br />
CD 3 1 22<br />
E1<br />
D1<br />
ED 7B B9 6A<br />
01 FF FF<br />
C5<br />
D5<br />
C9<br />
DELETE<br />
CA FE 20<br />
CD 2F 35<br />
CD EF 35<br />
E8 <br />
59 <br />
50 <br />
CD 74 69 <br />
1Z<br />
Adre<br />
POP H<br />
CALL<br />
PUSH<br />
LD HL<br />
OR A <br />
SBC H<br />
JP C.<br />
LD HL<br />
INC H<br />
INC H<br />
INC H<br />
INC H<br />
OR A <br />
SBC H<br />
JP NC<br />
EX DE<br />
CALL -<br />
POP H<br />
POP D<br />
LD SP<br />
LD BC<br />
PUSH<br />
PUSH<br />
RET <br />
JP Z.<br />
CALL<br />
CALL<br />
EX DE<br />
LD E.C<br />
LD D.<br />
CALI_
13411<br />
13412<br />
13413<br />
13414<br />
13415<br />
SEITE 222<br />
13416 3468<br />
13417<br />
13418<br />
13419 346B<br />
13420 346C<br />
13421 3460<br />
13422 346E<br />
13423<br />
13424<br />
13425 3471<br />
13426<br />
13427<br />
13428 3474<br />
13429<br />
13430<br />
13431<br />
13432 3478<br />
13433<br />
13434<br />
13435<br />
13436 347C<br />
13437<br />
13438 347E<br />
13439<br />
13440<br />
13441<br />
13442 3482<br />
13443<br />
13444 3484<br />
13445<br />
13446 3486<br />
13447<br />
13448 3488<br />
13449<br />
13450<br />
13451 348B<br />
13452<br />
13453<br />
13454<br />
13455 348F<br />
13456<br />
13457<br />
13458 3492<br />
13459<br />
13460 3494<br />
13461<br />
13462<br />
BASIC 1Z-013B V1.0A<br />
3465 C3 40 18 JP 1840 WARMSTART BASIC<br />
Zeilennummer bereitstellen mit Untersuchung auf ungleich Null<br />
CD<br />
7A<br />
B3<br />
CO<br />
C3<br />
65<br />
01<br />
40<br />
21<br />
CALL 4065<br />
LD A,D<br />
OR E<br />
RET NZ<br />
JP 2101<br />
ZWEI-BYTE-WERT NACH OE<br />
IZEILENNUMMER<br />
I GLEICH NULL ?<br />
NEIN + OK<br />
INICHT ERLAUBTE ZEILEN<br />
INUMMER + DATENFEHLER<br />
13465<br />
13466<br />
13467<br />
13468<br />
13469<br />
13470<br />
13471<br />
349B<br />
3490<br />
FE<br />
28<br />
BASIC 1Z<br />
2C<br />
10<br />
CP 2C<br />
JR Z.<br />
349F CD 68 34 CALL 3<br />
13472<br />
13473<br />
13474 34A2 ED 53 DC 34 LD (34<br />
13475<br />
13476<br />
13477<br />
13478<br />
13479<br />
13480<br />
13481<br />
13482<br />
13483<br />
13484<br />
13485<br />
Befehl RENUM 13486<br />
11<br />
ED<br />
ED<br />
lE<br />
ED<br />
28<br />
FE<br />
28<br />
CD<br />
ED<br />
CD<br />
28<br />
CD<br />
OA<br />
53<br />
53<br />
00<br />
53<br />
33<br />
2C<br />
10<br />
68<br />
53<br />
66<br />
23<br />
2F<br />
00<br />
ED<br />
FF<br />
DC<br />
34<br />
ED<br />
1C<br />
33<br />
34<br />
34<br />
34<br />
34<br />
LD OE, OOOA<br />
LD (34ED),DE<br />
LD (34FF),DE<br />
LD E, 00<br />
LD (34DC),DE<br />
JR Z, 33 + 34B7H<br />
CP 2C<br />
JR Z, 10 + 3498H<br />
CALL 3468<br />
LD (34ED),DE<br />
CALL 1C66<br />
JR Z, 23 + 34B7H<br />
CALL 332F<br />
13463 3497 2B<br />
DEC HL<br />
PROGRAM<strong>MZ</strong>EIGER<br />
13464 3498 CD 13 54 CALL 5413 IPROGRAM<strong>MZ</strong>EIGER AUF<br />
10<br />
NEUE ANFANGSZEILENNUMMER<br />
OFFSET<br />
= NULL<br />
AB ALTE ZEILENNUMMER<br />
IKEINE ZAHLEN ANGEGEBEN<br />
1+ STANDARTWERTE BENUTZEN<br />
(Komma)<br />
'KEINE NEUE ANFANGSZEILEN<br />
I NUMMER ANGEGEBEN<br />
'ZWEI-BYTE-WERT UNGLEICH<br />
I NULL BEREITSTELLEN<br />
NEUE ANFANGSZEILENNUMMER<br />
• I üBERPRüFEN, OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENDEZEICHEN IST<br />
• I KEINE WEITEREN WERTE<br />
I ANGEGEBEN<br />
~ SYNTAX KOMMA<br />
13487<br />
13488<br />
13489<br />
13490<br />
13491<br />
13492<br />
13493<br />
13494<br />
13495<br />
13 496<br />
13497<br />
13498<br />
13499<br />
13500<br />
13501<br />
13502<br />
13503<br />
13504<br />
13505<br />
13506<br />
13507<br />
13508<br />
13509<br />
13510<br />
13511<br />
13512<br />
1351 3<br />
13514<br />
135 15<br />
13516<br />
13517<br />
13518<br />
13519<br />
13520<br />
13521<br />
13522<br />
13523<br />
13524<br />
13525<br />
13526<br />
34A6<br />
34A9<br />
34AB<br />
34AE<br />
34AF<br />
34BO<br />
34B3<br />
34B7<br />
34B8<br />
34BB<br />
3 4BC<br />
34BF<br />
34CO<br />
34C2<br />
34C5<br />
34C8<br />
34CB<br />
34CC<br />
34CD<br />
34CE<br />
34CF<br />
3400<br />
34D2<br />
3403<br />
3404<br />
34D5<br />
34D6<br />
CD<br />
28<br />
CD<br />
2B<br />
23<br />
CO<br />
ED<br />
E5<br />
2A<br />
EB<br />
2A<br />
B7<br />
ED<br />
DA<br />
CD<br />
2A<br />
5E<br />
23<br />
56<br />
7A<br />
B3<br />
28<br />
EB<br />
19<br />
2B<br />
EB<br />
23<br />
66<br />
OC<br />
2F<br />
68<br />
53<br />
DC<br />
EO<br />
52<br />
01<br />
22<br />
BF<br />
37<br />
1C<br />
33<br />
34<br />
FF<br />
34<br />
34<br />
21<br />
35<br />
6A<br />
34<br />
CALL 1<br />
JR Z.<br />
CALL 3<br />
DEC<br />
INC<br />
HL<br />
HL<br />
CALL 3<br />
LD (34<br />
PUßH H<br />
LO" HC<br />
EX DE<br />
LD HL<br />
OR A<br />
SBC H<br />
JP C.<br />
CALL 3<br />
LO HL<br />
LD E.<br />
INC HL<br />
LD D.<br />
LD A.D<br />
OR E<br />
JR Z.<br />
EX DE<br />
ADO H<br />
OEC HL<br />
EX OE<br />
INC HL
SEITE 224<br />
BASIC 1Z-013B V1_0A<br />
13527 34D7 4E LD C. (HU IZEILENNUMMER DER ZEILE<br />
13528 34D8<br />
I HOLEN<br />
13529 3 4D9<br />
13530 34DA<br />
13531 34DB<br />
13532<br />
13533<br />
13534 34DE<br />
13535 34DF<br />
13536<br />
13537 34El<br />
13538 34E2<br />
13539<br />
13540 34E4<br />
13541<br />
13542 34E6<br />
13543 34E7<br />
13544<br />
13545 34E9<br />
13546 34EA<br />
13547 34EB<br />
13548 34EC<br />
23<br />
46<br />
E5<br />
21 00 00<br />
B7<br />
ED 42<br />
EI<br />
28 05<br />
38 03<br />
EB<br />
18 E2<br />
2B<br />
2B<br />
2B<br />
01 00 00<br />
INC HL<br />
LD B. (HU<br />
PUSH HL<br />
LD HL. 0000<br />
OR A<br />
SBC HL.BC<br />
POP HL<br />
JR Z. 05 + 34E9H<br />
JR C. 03 + 34E9H<br />
EX DE.HL<br />
JR E2 + 34CBH<br />
DEC HL<br />
DEC HL<br />
DEC HL<br />
LD BC. 0000<br />
ZEIGER AUF ZEILE MERKEN<br />
lAB ALTE ZEILENNUMMER<br />
I (Wert wird eingetragen)<br />
CARRY-FLAG ZURüCKSETZEN<br />
I üBERPRüFEN. OB ZEILENNR.<br />
I GEÄNDERT WERDEN SOLL<br />
ZEIGER AUF ANFANG ZEILE<br />
ZEILENNUMMER ÄNDERN<br />
ZEILENNUMMER ÄNDERN<br />
NÄCHSTE ZEILE TESTEN<br />
I ZEIGER WIEDER AUF<br />
I ANFANG ZEILE<br />
I NEUE ANFANGSZEILENNUMMER<br />
13549 I (Wird eingetragen)<br />
13550<br />
13551 34EF 5E LD E. (HL> IOFFSET AUF NÄCHSTE ZEILE<br />
I HOLEN<br />
13552 34FO<br />
13553 34Fl<br />
13554 34F2<br />
13555 34F3<br />
13556 34F4<br />
13557<br />
13558 34F6<br />
13559 34F7<br />
13560 34F8<br />
13561 34F9<br />
13562 34FA<br />
13563 34FB<br />
13564 34FC<br />
13565 34FD<br />
13566 34FE 21 00 00 LD HL. 0000 IOFFSET<br />
13567<br />
I (Wird eingetragen)<br />
13568<br />
13569 3501<br />
13570 3502<br />
13571<br />
13572 3504<br />
13573 3505<br />
13574 3506<br />
13575 3507<br />
13576<br />
13577 3509<br />
13578<br />
13579<br />
13580 350C<br />
13581 350D<br />
23<br />
56<br />
7A<br />
B3<br />
28<br />
EB<br />
19<br />
2B<br />
EB<br />
23<br />
71<br />
23<br />
70<br />
13<br />
09<br />
38 OA<br />
4D<br />
44<br />
EB<br />
18 E6<br />
CD 2F<br />
EI<br />
C9<br />
35<br />
INC HL<br />
LD D. (HU<br />
LD A.D<br />
OR E<br />
JR Z. 13<br />
EX DE.HL<br />
ADD HL.DE<br />
DEC HL<br />
EX DE.HL<br />
INC HL<br />
LD (HU. C<br />
INC HL .<br />
LD (HU.B<br />
+ 3509H<br />
ADD HL.BC<br />
JR C. OA + 350EH<br />
LD C.L<br />
LD B.H<br />
EX DE.HL<br />
JR E6 + 34EFH<br />
CALL 352F<br />
POP HL<br />
RET<br />
=<br />
•<br />
I GLEICH NULL ?<br />
I<br />
ENDE PROGRAMM<br />
I ZEIGER AUF NÄCHSTE<br />
I ZEILE ERRECHNEN<br />
INEUE ZEILENNUMMER<br />
I EINTRAGEN<br />
NÄCHSTE NEUE ZEILENNR.<br />
ZEILENNUMMER ZU GROSS<br />
INEUE ZEILENNUMMER<br />
I NACH BC üBERTRAGEN<br />
NÄCHSTE ZEILE ÄNDERN<br />
I ZEIGER AUF ZEILEN IM<br />
IPROGRAMM IN ZEILEN<br />
INUMMERN UMSETZEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTER BEFEHL<br />
ERR.<br />
BASIC 1Z<br />
Bei Fehler in RENUM Program<br />
13582<br />
1.3583<br />
13584<br />
13585<br />
13586<br />
13587<br />
13588<br />
13589<br />
13590<br />
13591<br />
13592<br />
13593<br />
13594<br />
13595<br />
13596<br />
13597<br />
13598<br />
13599<br />
13600<br />
13601<br />
350E<br />
3511<br />
3514<br />
3517<br />
3519<br />
351C<br />
351F<br />
21 OA<br />
22 FF<br />
22 ED<br />
2E 00<br />
22 OC<br />
CD B7<br />
C3 01<br />
00<br />
3 4<br />
34<br />
34<br />
34<br />
21<br />
LD HL.<br />
LD (34<br />
LD (34<br />
LD L.<br />
LD (34<br />
CALL 3<br />
JP 2101<br />
Zeilennummern im Programm<br />
13602<br />
13603<br />
13604<br />
13605<br />
13606<br />
13607<br />
13608<br />
13609<br />
13610<br />
13611<br />
13612<br />
13613<br />
13614<br />
3522<br />
3523<br />
3524<br />
3527<br />
3 52A<br />
3 52C<br />
3520<br />
352E<br />
05<br />
E5<br />
21<br />
22<br />
18<br />
EI<br />
Dl<br />
C9<br />
74<br />
58<br />
OB<br />
3 5<br />
35<br />
PUSH O<br />
PUSH H<br />
LD HL.<br />
LD (35<br />
JR OB<br />
POP HL<br />
POP OE<br />
RET<br />
Zeiger auf Zeilen im Progra<br />
13615 352F<br />
13616 3530<br />
13617 3531<br />
13618<br />
13619<br />
13620 3534<br />
13621<br />
13622<br />
13623 3537<br />
13624<br />
13625<br />
13626 353A<br />
13627 353B<br />
D5<br />
E5<br />
21 5A<br />
22 58<br />
2A BF<br />
2B<br />
23<br />
35<br />
3 5<br />
6A<br />
PUSH O<br />
PUSH H<br />
LD HL.<br />
LD (35<br />
LD HL.<br />
DEC HL<br />
INC HL<br />
13628 353C 13629 3530 7E<br />
23<br />
LD A. (<br />
INC HL<br />
13630 353E B6 OR (HU<br />
13631 353F 28 EB JR Z.<br />
13632<br />
13633 3541 23 INC HL<br />
,<br />
I<br />
I<br />
I<br />
I
SEITE 226<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
13634 3542 5E LD E. (HU IZEILENNUMMER DER<br />
I ZEILE HOLEN<br />
13635 3543<br />
13636 3544<br />
13637 3545<br />
13638<br />
13639<br />
13640<br />
13641 3549<br />
13642<br />
13643<br />
13644 354C<br />
13645 354D<br />
13646<br />
13647 354F<br />
13648<br />
13649 3551<br />
13650<br />
13651 3553<br />
13652<br />
13653 3555<br />
13654<br />
13655 3557<br />
13656<br />
13657<br />
13658 355A<br />
13659<br />
13660 355C<br />
13661<br />
13662 355E<br />
23<br />
56<br />
ED 53 AC 35<br />
CD 80 38<br />
B7<br />
28 EC<br />
FE OB<br />
28 04<br />
FE OC<br />
20 F2<br />
C3 5A 35<br />
(74 35)<br />
INC HL<br />
LD D. (HU<br />
LD (35AC).DE<br />
CALL 3880<br />
OR A<br />
JR Z. EC .. 353BH<br />
CP OB<br />
JR Z. 04 .. 3557H<br />
CP OC<br />
JR NZ. F2 .. 3549H<br />
JP 355A<br />
(3574)<br />
Zeiger auf Zeile umsetzen in Zeilennummer<br />
FE<br />
28<br />
2B<br />
OB<br />
EB<br />
CP OB<br />
JR Z. EB<br />
DEC HL<br />
.. 3549H<br />
I<br />
IMOMENTANE ZEILENNUMMER<br />
I FüR FEHLERAUSGABE IN<br />
I ROUTINE EINTRAGEN<br />
I ZEIGER IN HL AUF NÄCHSTES<br />
I RELEVANTE PROGRAMMBYTE<br />
I STELLEN<br />
ZEILENENDE ?<br />
NÄCHSTE ZEILE BEARBEITEN<br />
CODE ZEILENNUMMER<br />
CODE ZEIGER AUF ZEILE<br />
WEITER UNTERSUCHEN<br />
I RICHTIGES UMSETZSTüCK<br />
I AUFRUFEN<br />
I (Adresse wird eingetragen)<br />
CODE ZEILENNUMMER ?<br />
I ST I MMT SCHON ..<br />
I WEITER UNTERSUCHEN<br />
13663 355F 5E LD E. (HU I ZEIGER AUF ZEILE HOLEN<br />
13664 3560<br />
13665 3561<br />
13666 3562<br />
13667 3563<br />
13668 3564<br />
13669 3565<br />
13670 3566<br />
13671 3567<br />
13672 3568<br />
13673 3569<br />
13674 356A<br />
13675 356B<br />
13676 356C<br />
13677 356D<br />
13678 356E<br />
13679<br />
13680 3570<br />
13681 3571<br />
13682 3572<br />
13683<br />
23<br />
56<br />
E5<br />
EB<br />
23<br />
23<br />
5E<br />
23<br />
56<br />
EI<br />
72<br />
2B<br />
73<br />
2B<br />
36<br />
23<br />
23<br />
18<br />
OB<br />
D5<br />
INC HL<br />
LD D. (HU<br />
PUSH HL<br />
EX OE.HL<br />
INC HL<br />
INC HL<br />
LD E. (HU<br />
INC HL<br />
LD D. (HU<br />
POP HL<br />
LD (HU.O<br />
DEC HL<br />
LD (HU.E<br />
OEC HL<br />
LD (HU. OB<br />
INC HL<br />
INC HL<br />
JR 05 .. 3549H<br />
ZEIGER AUF PROGRAMM<br />
IOFFSET. AUF NÄCHSTE<br />
I ZEILE üBERSPRINGEN<br />
I ZEILENNUMMER DER<br />
I ZEILE HOLEN<br />
ZEIGER AUF PROGRAMM<br />
I ZEILENNUMMER IN<br />
I PROGRAMM EINTRAGEN<br />
CODE ZEILENNUMMER EINTRAGEN<br />
I ZEILENNUMMER üBERSPRINGEN<br />
I<br />
I REST PROGRAMM UNTERSUCHEN<br />
I UND UMSETZEN<br />
13684 3574<br />
13685<br />
13686 3576<br />
13687<br />
13688 3578<br />
13689 3579<br />
13690 357A<br />
13691<br />
13692<br />
13693 3570<br />
13694 357E<br />
13695 357F<br />
13696 3580<br />
13697 3 581<br />
13698<br />
13699 3583<br />
13700<br />
13 701<br />
13702 3586<br />
13703<br />
13704 3588<br />
13705 3589<br />
13706 358A<br />
13707 358B<br />
13708<br />
137 09<br />
1371 0<br />
13711<br />
1371 2<br />
13713<br />
13714<br />
Zeilennummer umsetzen in Z<br />
3580<br />
358E<br />
358F<br />
3590<br />
3591<br />
13715 3593<br />
13716 3594<br />
13717<br />
13718<br />
13719 3597<br />
13720<br />
13721<br />
13722 359A<br />
13723<br />
13724 359C<br />
13725<br />
13726<br />
137 2 7 359F<br />
13728<br />
13729<br />
13730 35A2<br />
13731<br />
13732<br />
FE<br />
28<br />
2B<br />
E5<br />
CD<br />
50<br />
54<br />
70<br />
B4<br />
28<br />
CO<br />
38<br />
EB<br />
E1<br />
2 B<br />
36<br />
23<br />
OC<br />
01<br />
60<br />
34<br />
BB<br />
OB<br />
7 3<br />
23<br />
72<br />
18 OF<br />
3 A<br />
35<br />
CP OC<br />
JR Z.<br />
OEC HL<br />
PUSH H<br />
CALL 3<br />
LD E.L<br />
LO O.H<br />
LD A.L<br />
OR H<br />
JR Z.<br />
CALL 35<br />
JR C.<br />
EX OE.H<br />
POP HL<br />
DEC HL<br />
OC LO (HU<br />
INC HL<br />
LD INC HL<br />
(HU<br />
LD (HU<br />
JR DF<br />
Fehl e rmeldung Zeile nicht<br />
EB<br />
11 59<br />
CD 5 1<br />
3 E 20<br />
CO D3<br />
CD A7<br />
CD 51<br />
4C<br />
00<br />
17<br />
21<br />
00<br />
EX OE.H<br />
LO DE.<br />
CALL 00<br />
LD A. 2<br />
CALL 1<br />
CALL 21<br />
CALL 00<br />
13733 35A5 11 96 2 1 LD DE.<br />
1373 4<br />
13735<br />
13736 35A8 CD 51 00 CALL 00<br />
1373 7<br />
1373 8<br />
137 3 9 3 5AB 2 1 00 00 LD HL.<br />
I<br />
I<br />
I<br />
I
SEITE 228<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
13740<br />
13741<br />
13742<br />
13743<br />
13744<br />
13745<br />
13746<br />
13747<br />
13748<br />
13749<br />
13750<br />
13751<br />
35AE<br />
35B l<br />
3584<br />
3587<br />
CO<br />
CO<br />
CD<br />
EI<br />
A7<br />
51<br />
09<br />
21<br />
00<br />
00<br />
CALL 21A7<br />
CALL 0051<br />
CALL 0009<br />
POP HL<br />
13752 35B8 23 INC HL<br />
13753<br />
13754<br />
I MOMENTANEN ZEILE<br />
I (Wi rd ei ngetragen)<br />
IHEX-WERT IN HL UMSETZEN<br />
I IN ASCII NACH ZWISCHEN<br />
I SPEICHER<br />
TEXT (OE) AUSGEBEN<br />
I ZEILENVORSCHUB AUSGEBEN.<br />
I WENN CURSOR NICHT AUF<br />
IANFANG ZEILE STEHT<br />
ZEIGER AUF PROGRAMM<br />
3589 18 06 JR 06 -+ 3591H RESTPROGRAMM UMSETZEN<br />
Untersuchen. ob Zeile mit Nummer in HL vorhanden ist<br />
wenn ja -+ Zeiger auf Zeile nach HL bereitstellen<br />
13755 35BB C5 PUSH BC I REGISTER RETTEN<br />
13756 35BC 05 PUSH DE I<br />
13795 35E3<br />
13796 35E4<br />
13797 35E5<br />
13798 35E6<br />
13799<br />
13800 35E8<br />
13801 35E9<br />
13802 35EA<br />
13803<br />
13804 35EC<br />
13805 35EO<br />
13806<br />
05<br />
EB<br />
B7<br />
EO<br />
01<br />
El<br />
30<br />
37<br />
18<br />
42<br />
05<br />
Fl<br />
PUSH DE<br />
EX DE.H<br />
OR A<br />
SBC HL.<br />
POP DE<br />
POP HL<br />
JR NC.<br />
SCF<br />
JR Fl<br />
Anfangs und Endzeilennumme<br />
13807 35EF 11 00 00 LD DE.<br />
1.3808<br />
13809<br />
13810 35F2 01 FF FF LD BC.<br />
13811<br />
13757 35BO EB EX DE.HL<br />
13813 35F5 CD 66 lC CALL lC<br />
13758 35BE 2A BF 6A<br />
13814<br />
LO HL. (6ABF) I ZEIGER AUF ANFANG<br />
13759<br />
13815<br />
I PROGRAM<strong>MZ</strong>EIGER<br />
13760<br />
13816 35F8 C8 RET Z <br />
13761 35Cl 4E LO<br />
13817 35F9 FE 20<br />
C. (HU I OFFSET AUF NÄCHSTE<br />
CP 20<br />
13818<br />
13762 35C2 23 INC HL I ZEILE HOLEN<br />
13763 35C3 46<br />
13819 35F8 28 2A<br />
LO B. (HL> I<br />
JR Z. 2A<br />
13820<br />
13764 35C4 78 LD A.B I GLEICH NULL 7<br />
13765 35C5 BI<br />
13821 35FD FE 2C<br />
OR C I<br />
CP 2C<br />
13822<br />
13766 35C6 28 24 JR Z. 24 -+ 35ECH ENDE PROGRAMM<br />
13767<br />
13823 35FF CA FE 20 JP Z. 2<br />
13824<br />
13768 35C8 E5 PUSH HL ZEIGER MERKEN<br />
13769 35C9 09<br />
13825<br />
ADD HL.BC I ZEIGER AUF NÄCHSTE ZEILE<br />
13770 35CA 2B<br />
13826 3602 FE 2E CP 2E<br />
DEC HL I ERRECHNEN<br />
13827<br />
13771 35CB 40 LO C.L I MERKEN<br />
13772 35CC 44 LD B.H<br />
13828 3604 20 06 JR NZ.<br />
I<br />
13829<br />
13773 35CO EI POP HL ZEIGER AUF AKTUELLE ZEILE<br />
13774 35CE C5<br />
13830 3606 ED 58 E2 38 LD OE. (<br />
PUSH BC ZEIGER AUF NÄCHSTE ZEILE 13831<br />
13775 35CF 23 INC HL<br />
13832<br />
13776 35DO 4E LO C. (HU • I ZEILENNUMMER HOLEN 13833<br />
13777 35Dl 23 INC HL I<br />
13778 35D2 46 LD B. (HL> , I 13834 360A 18 09 JR 09<br />
13835<br />
13779 35D3 79 LD A.C IL-BYTE ZEILENNUMMER<br />
13780 35D4 BB CP E<br />
13836 360C FE OB CP OB<br />
I VERGLEICHEN<br />
13837<br />
13781 35D5 20 OC JR NZ. OC -+ 35E3H NICHT GLEICH<br />
13782<br />
13838 360E C2 FE 20 JP NZ. 2<br />
13839<br />
13783 35D7 78 LD A.B IH-BYTE ZEILENNUMMER<br />
13840<br />
13784 35D8 BA CP 0 I VERGLEICHEN<br />
13785 35D9<br />
13841 3611<br />
2B DEC HL<br />
23<br />
I ZEIGER WIEDER AUF<br />
INC HL<br />
13842 3612<br />
13786 35DA 2B DEC HL<br />
5E LD E. (H<br />
I ANFANG ZEILE<br />
13843 3613<br />
13787 350B 2B DEC HL<br />
23<br />
I<br />
INC HL<br />
13844 3614<br />
13788 35DC 20 05<br />
56<br />
JR NZ. 05 -+ 35E3H NICHT GLEICH<br />
LD D. (HL<br />
13845 3615<br />
13789<br />
23 INC HL<br />
13846 3616<br />
13790 35DE Cl POP BC<br />
CO 66 lC<br />
ZEIGER AUF NÄCHSTE ZEILE<br />
CALL lC6<br />
13847<br />
13791 35DF B7 OR A CARRY-FLAG ZURüCKSETZEN 13848<br />
13792 35EO 01 POP OE I GERETTETE REGISTER HOLEN<br />
13849 361 9<br />
13793 35El Cl POP BC<br />
28 09<br />
I<br />
JR Z. 09<br />
13850<br />
13794 35E2 C9 RET<br />
1.3812<br />
13851 3618 FE 20 CP 20<br />
13852
SEITE 230 <br />
BASIC 1Z-013B V1_0A <br />
13853 3610 28 08 JR Z. 08 ~ 3627H WEITER UNTERSUCHEN<br />
13854<br />
13855 361F FE 2C CP 2C (Komma)<br />
13856<br />
13857 3621 CA FE 20 JP Z. 20FE SYNTAX - FEHLER<br />
13858<br />
13859<br />
13860 3624 4B LO C.E IANFANGSZEILENNUMMER ALS<br />
13861 3625 42 LD B.O IENDZEILENNUMMER VORGEBEN<br />
13862 3626 C9 RET<br />
13863 3627 23 INC HL ZEIGER AUF TEXT<br />
13864 3628 CO 66 lC CALL 1C66 I üBERPRüFEN. OB ZEICHEN<br />
13865 I (HL) GLEICH BEFEHLS<br />
13866 lENDEZEICHEN IST<br />
1.3867 362B C8 RET Z KEINE ENDZEILENNR ANGEGEBEN<br />
13868 362C FE 2E CP 2E (Punkt)<br />
13869<br />
13870 362E 20 06 JR NZ. 06 ~ 3636H WEITER UNTERSUCHEN<br />
13871<br />
13872 3630 EO 4B E2 38 LD BC. (38E2) I LETZTE EDITORZEILENNUMMER<br />
13873 I (AUTO-ZEI LENNUMMER)<br />
13874<br />
13875<br />
13876 3634 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
13877 3635 C9 RET<br />
13878 3636 FE OB CP OB CODE ZEILENNUMMER ?<br />
13879<br />
13880 3638 20 04 JR NZ. 04 ~ 360EH NEIN ~ SYNTAX - FEHLER<br />
13881<br />
13882 363A 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
13883 363B 4E LO C. (HL> I ZEILENNUMMER HOLEN<br />
13884 363C 23 INC HL I<br />
13885 3630 46 LO B. (HL> I<br />
13886 363E 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
13887 363F C9 RET<br />
Befehl EOIT
SEITE 232<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
Cursor auf Anfang des ausgegebenen Textes stellen Beim Suchen von GOSUB-Dat<br />
13961<br />
13962<br />
13963<br />
13964<br />
13965<br />
13966<br />
13967<br />
3689<br />
368A<br />
368B<br />
368C<br />
78<br />
B7<br />
C8<br />
3E 14<br />
LD A,8<br />
OR A<br />
RET Z<br />
LD A, 14<br />
ANZAHL<br />
GLEICH<br />
FERTIG<br />
Cursor<br />
AUSGEGEBENE<br />
NULL ?<br />
links<br />
ZEICHEN<br />
14013<br />
14014<br />
14015<br />
14016<br />
14017<br />
368E CD D3 17 CALL 1703 ZEICHEN IM ACCU AUSGEBEN 14018<br />
14019<br />
36BO<br />
36BE<br />
36BF<br />
08<br />
OB<br />
3E<br />
12<br />
DEC BC<br />
DEC BC<br />
LD A.<br />
36Cl B9<br />
CF' C<br />
36C2 20 F5 JR NZ.<br />
13968 14020 36C4 E8 EX DE<br />
13969 3691 10 FB DJNZ FB + 368EH I WEITERE Cursor links 14021 36C5 21 10 00 LO HL<br />
13970 I AUSGEBEN 14022<br />
13971 3693 C9 RET 14023<br />
14024 36C8 39 ADD H<br />
14025 36C9 F9 LD SP.<br />
Befehl RETURN 14026<br />
14027<br />
13972 3694 DD EI POP IX I RüCKSPRUNGADRESSE VOM 14028<br />
13973 I STACK HOLEN<br />
13974<br />
13975<br />
13976<br />
13977<br />
13978<br />
13979<br />
3696<br />
3697<br />
3698<br />
3699<br />
369A<br />
Cl<br />
03<br />
78<br />
B1<br />
28 ID<br />
POP<br />
INC<br />
LD<br />
OR<br />
JR<br />
8C<br />
8C<br />
WERTCODE VOM<br />
GLEICH ENDE<br />
A,B<br />
C<br />
Z, ID + 3689H JA + RETURN<br />
FEHLER<br />
STACK<br />
STACK<br />
ohne GOSUB<br />
36CA<br />
36CB<br />
EB<br />
18 C9<br />
HOLEN<br />
? 8efehl GOSU8<br />
14029<br />
14030<br />
14031<br />
13980 369C 03 INC BC GLEICH GOSU8-DATENSATZ ? 14032<br />
13981<br />
J3982<br />
3 69D<br />
369E<br />
78<br />
BI<br />
LD<br />
OR<br />
A,B<br />
C<br />
14033<br />
14034<br />
36CO<br />
36CE<br />
3601<br />
.3602<br />
E5<br />
CO 23 33<br />
13983 369F 20 lC JR NZ, lC + 368DH NEIN ~ AUF FOR-DATEN<br />
14035 3603 Cl<br />
POP 8C<br />
13984<br />
UNTERSUCHEN<br />
14036 3604 05<br />
PUSH D<br />
13985 36Al CD 14 54 CALL 5414 PROGRAM<strong>MZ</strong>EIGER AUF 14037 3605 09 EXX<br />
13986<br />
NÄCHSTES RELEVANTES<br />
14038 3606 2A EO 38 LD HL.<br />
13987<br />
ZEICHEN SETZEN<br />
14039<br />
13988<br />
13989<br />
14040<br />
14041<br />
13990<br />
13991<br />
36A4<br />
36A5<br />
36A6<br />
EB<br />
EI<br />
22 E6 38<br />
EX DE,HL<br />
POP HL<br />
LD (38E6),HL<br />
PROGRAM<strong>MZ</strong>EIGER NACH OE<br />
ALTE ZEILENNUMMER HOLEN<br />
IALS AKTUELLE ZEILEN<br />
INUMMER VORGEBEN<br />
14042<br />
14043<br />
3609<br />
360A<br />
E8<br />
EI<br />
E5<br />
2A E6 38<br />
13992 14044<br />
13993 36A9 EI POP HL ALTEN ZEIGER HOLEN 14045 3600 E5 PUSH H<br />
13994 36AA 22 EO 38 LD (38EO),HL tALS ZEIGER AUF NÄCHSTE 14046 360E 21 FE FF LD HL.<br />
13995<br />
IZEILE MERKE N<br />
14047<br />
13996 14048<br />
13997 36AD EI POP HL ALTEN PROGRAM<strong>MZ</strong>EIGER HOLEN 14049 36El E5 PUSH H<br />
13998 36AE DD E5 PUSH IX I RüCKSPRUNGADRESSE AUF 14050 36E2 21 00 00 LD HL.<br />
13999 IBEFEHLSDECODIERROUTINE 14051<br />
14000 36BO FE 3A CP 3A
SEITE 234<br />
BASIC 1Z-013B<br />
14069 36F5 C3 07 38 JP 3807<br />
14070<br />
14071<br />
14072 36F8 C3 FE 20 JP 20FE<br />
14073<br />
14074<br />
Befehl RESUME<br />
14075 36FB 3A D8 38 LD A. (38D8)<br />
14076<br />
14077<br />
14078 36FE FE 02 CP 02<br />
14079<br />
14080 3700 DA D4 20 JP C. 2004<br />
14081<br />
14082<br />
14083 3703 3D DEC A<br />
14084 3704 32 D8 38 LD (38D8).A<br />
14085<br />
14086<br />
14087 3707 CD 66 lC CALL 1C66<br />
14088<br />
14089<br />
14090 370A EB EX DE.HL<br />
14091 3 70B 2A EA 38 LD HL. (38EA)<br />
14092<br />
14093<br />
14094 370E 22 E6 38 LD (38E6),HL<br />
14095<br />
14096<br />
14097 3711 2A EC 38 LD HL, (38EC)<br />
14098<br />
14099<br />
14100 3714 22 EO 38 LD (38EO),HL<br />
14101<br />
14102<br />
14103 3717 2A EE 38 LD HL, (38EE)<br />
14104<br />
14105<br />
14106 371A 20 04 JR NZ. 04 + 3720H •<br />
14107<br />
14108 371C Cl POP BC<br />
14109 371D C3 29 19 JP 1929<br />
14110<br />
14111<br />
14112 3720 FE 8E CP 8E<br />
14113<br />
14114 3722 CA 23 33 JP Z, 3323<br />
14115<br />
14116<br />
14117 3725 EB EX DE,HL ,<br />
14118 3726 C3 07 38 JP 3807<br />
14119<br />
14120<br />
V1.0A<br />
GOTO - ROUTINE<br />
SYNTAX - FEHLER<br />
ON-ERROR-GOTO FLAG<br />
CODE FEHLER AUFGETRETEN<br />
I FEHLER 21<br />
IRESUME OHNE FEHLER<br />
STATUS AUF ON ERROR GOTO<br />
UND WIEDER MERKEN<br />
I UNTERSUCHEN, OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENDEZEICHEN IST<br />
PROGRAM<strong>MZ</strong>EIGER NACH DE<br />
ZEILENNUMMER BEI FEHLER<br />
AKTUELLE ZEILENNUMMER<br />
I ZEIGER AUF NÄCHSTE ZEILE<br />
I BEI FEHLER<br />
ZEIGER AUF NÄCHSTE ZEILE<br />
PROGRAM<strong>MZ</strong>EIGER BEI FEHLER<br />
SPEZIELLER RESUME<br />
STACK CORRIGIEREN<br />
BEFEHL ERNEUT AUSFüHREN<br />
NEXT (Zwi schencode)<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I ANFANG NÄCHSTER BEFEHL<br />
I STELLEN<br />
ALTEN PROGRAM<strong>MZ</strong>. NACH HL<br />
GOTO - ROUTINE<br />
Befehl<br />
14121 3729<br />
14122<br />
14123<br />
14124 372C<br />
14125<br />
14126 372E<br />
14127<br />
14128 3730<br />
14129<br />
14130 3732<br />
14131<br />
14132<br />
14133 3735<br />
14134<br />
14135<br />
14136 3738<br />
14137<br />
14138 373A<br />
14139<br />
14140<br />
14141 373D<br />
14142<br />
14143<br />
14144 3740<br />
14145<br />
14146 3742<br />
14147<br />
14148 3744<br />
14149 .3745<br />
14150 3746<br />
14151<br />
14152<br />
14153 3749<br />
14154 3 74A<br />
14155 374B<br />
14156<br />
14157 3740<br />
14158<br />
14159<br />
14160 3750<br />
14161<br />
14162<br />
14163 3753<br />
14164<br />
14165<br />
14166 3756<br />
14167<br />
14168 3758<br />
14169<br />
14170<br />
14171 375B<br />
14172 375C<br />
14173 3750<br />
14174 375E<br />
BASIC<br />
ON ERROR<br />
CD 13 54<br />
FE 80<br />
28 00<br />
FE 82<br />
C2 FE 20<br />
CD 13 54<br />
FE EO<br />
C2 FE 20<br />
CD 13 54<br />
FE OB<br />
20 1B<br />
23<br />
E5<br />
CD 60 3 A<br />
70<br />
B4<br />
28 2F<br />
CO BB 35<br />
DA CB 20<br />
22 E8 38<br />
3E 01<br />
32 D8 38<br />
E1<br />
23<br />
23<br />
C9<br />
1Z<br />
CALL 5<br />
CP 80<br />
JR Z.<br />
CP 82<br />
JP NZ<br />
CALL 5<br />
CP EO<br />
JP NZ.<br />
CALL 5<br />
CP OB<br />
JR NZ<br />
INC HL<br />
PUSH H<br />
CALL 3<br />
LD A.L<br />
OR H<br />
JR Z,<br />
CALL 3<br />
JP C.<br />
LD (38<br />
LD A,<br />
LD (38<br />
POP HL<br />
INC HL<br />
INC HL<br />
RET
SEITE 236<br />
BASIC 1Z-013B<br />
ON ERROR GOTO Label<br />
14175 375F FE 22 CP 22<br />
14176<br />
14177 3761 C2 CB 20 JP NZ. 20CB<br />
14178<br />
14179<br />
14180 3764 E5 PUSH HL<br />
14181 3765 CO 67 3A CALL 3A67<br />
14182<br />
14183<br />
14184 3768 21 00 00 LD HL. 0000<br />
14185<br />
14186<br />
14187 376B 22 E8 38 LD (38E8).HL<br />
14188<br />
14189<br />
14190 376E E1 POP HL<br />
14191 376F CO C5 38 CALL 38C5<br />
14192<br />
14193<br />
14194 3772 B7 OR A<br />
14195 3773 28 01 JR Z. 01 + 3776H<br />
14196<br />
14197 3775 23 INC HL<br />
14198 3776 3E 01 LO A. 01<br />
14199<br />
14200 3778 32 08 38 LD (3808>.A<br />
14201<br />
14202<br />
14203 377B C9 RET<br />
ON ERROR GOTO 0<br />
14204 377C 3A 08 38 LD A. (38D8)<br />
14205<br />
14206<br />
14207 377F 30 DEC A<br />
14208 3780 28 06 JR Z. 06 + 3758H<br />
14209<br />
14210 3782 AF XOR A<br />
14211 3783 32 08 38 LD (38D8).A<br />
14212<br />
14213<br />
14214 3786 2A EA 38 LD HL. (38EA)<br />
14215<br />
14216<br />
14217 3789 22 E6 38 LD (38E6).HL<br />
14218<br />
14219<br />
14220 378C 3A F2 38 LD A. (38F2)<br />
14221<br />
14222<br />
14223 378F C3 08 21 JP 2108<br />
14224<br />
14225<br />
V1.0A<br />
(Anführungszeichen)<br />
IKEIN LABEL + FEHLER 16<br />
IZEILENNUMMER NICHT VORH.<br />
PROGRAM<strong>MZ</strong>EIGER <br />
I SYNTAX - FEHLER <br />
I (ROUTINE FüR LABELS <br />
I FEHLT> <br />
ZEIGER AUF ON-ERROR-ZEILE <br />
PROGRAM<strong>MZ</strong>EIGER <br />
IPROGRAM<strong>MZ</strong>EIGER AUF 2tes <br />
IA~FüHRUNGSZEICHEN ODER <br />
IZEILENENDE STELLEN <br />
ZEILENENDE ? <br />
JA <br />
ANFüHRUNGSZEICHEN üBERSPR. <br />
CODE ON ERROR GOTO GESETZT <br />
ON ERROR GOTO FLAG <br />
ON ERROR GOTO FLAG <br />
GESETZT ? <br />
JA + NEUEN STATUS MERKEN <br />
ACCU AUF NULL<br />
~ ON ERROR FLAG<br />
ZEILENNUMMER BEI FEHLER<br />
AKTUELLE ZEILENNUMMER<br />
I NUMMER DES AUFGETRETENEN<br />
I FEHLERS<br />
FEHLER AUSGEBEN<br />
Befehl<br />
14226 3792<br />
14227<br />
14228<br />
14229 3795<br />
14230<br />
14231 3797<br />
14232<br />
14233 3799<br />
14234<br />
14235<br />
14236 379C<br />
14237 379D<br />
14238 379E<br />
14239<br />
14240 37AO<br />
14241<br />
14242<br />
14243 37A3<br />
14244<br />
14245 37A5<br />
14246<br />
14247 37A7<br />
14248<br />
14249<br />
14250 37AA<br />
14251<br />
14252 37AC<br />
14253<br />
14254 37AE<br />
14255<br />
14256 37BO<br />
14257<br />
14258 37B2<br />
14259<br />
14260<br />
14261 37B5<br />
14262 37B6<br />
14263 37B7<br />
14264 37B8<br />
14265<br />
14266'<br />
14267 37BB<br />
14268<br />
14269 37BD<br />
14270 37BE<br />
14271 37BF<br />
14272<br />
14273 37C1<br />
14274 37C2<br />
14275<br />
14276<br />
14277 37C5<br />
14278 37C6<br />
14279 37C7<br />
14280 37C8<br />
14281 37C9<br />
14282<br />
14283 37CB<br />
14284 37CC<br />
14285 37CO<br />
BASIC<br />
ON<br />
CD 14 54<br />
FE Cl<br />
28 90<br />
CD 65 4D<br />
4B<br />
42<br />
FE 87<br />
D2 FE 20<br />
FE 82<br />
20 10<br />
CD 13 54<br />
lE 81<br />
FE E4<br />
28 06<br />
FE EO<br />
C2 FE 20<br />
10<br />
7B<br />
E5<br />
21 47 31<br />
D6 80<br />
87<br />
5F<br />
16 00<br />
19<br />
CD 60 3A<br />
E3<br />
23<br />
78<br />
B7<br />
20 22<br />
79<br />
B7<br />
28 lE<br />
1<br />
CALL<br />
CP C<br />
JR Z,<br />
CALL<br />
LD C<br />
LD B<br />
CP 8<br />
JP N<br />
CP 8<br />
JR N<br />
CALL<br />
LO E,<br />
CP E<br />
JR Z.<br />
CP E<br />
JP N<br />
DEC E<br />
LO A<br />
PUSH<br />
LO H<br />
SUB A<br />
ADD A<br />
LD E.<br />
LD 0,<br />
ADD H<br />
CALL<br />
EX (S<br />
INC H<br />
LO A<br />
OR A<br />
JR N<br />
LD A<br />
OR A<br />
JR Z
SEITE<br />
14286 <br />
14287 37CF<br />
14288 3700 <br />
14289 3701 <br />
14290 3702 <br />
14291 <br />
14292 <br />
14293 3705 <br />
14294 <br />
14295 3707 <br />
14296 <br />
14297 3709 <br />
14298 <br />
14299 37DB<br />
14300 <br />
14301 3700 <br />
14302 <br />
14303 37DF<br />
14304 <br />
14305 <br />
14306 37E2<br />
14307 37E3<br />
14308 37E4<br />
14309 <br />
14310 <br />
14311 37E7<br />
14312 <br />
14313 37E9<br />
14314 37EA<br />
14315 <br />
14316 37EC<br />
14317 37ED<br />
14318 37EE<br />
14319 <br />
14320 <br />
14321 37Fl <br />
14322 <br />
14323 <br />
14324 37F4 <br />
14325 37F5 <br />
14326 <br />
14327 37F7 <br />
14328 <br />
Befehl<br />
14329 37F9 <br />
14330 <br />
14331 <br />
14332 37FC <br />
14333 37FD <br />
14334 <br />
14335 37FF <br />
14336 <br />
14337 <br />
14338 3802 <br />
14339 <br />
14340 3804 <br />
14341 <br />
238 <br />
47 <br />
05 <br />
C8 <br />
CD 14 <br />
FE 22 <br />
28 18 <br />
FE OB <br />
28 05 <br />
FE OC <br />
C2 FE <br />
23 <br />
23 <br />
CD 13 <br />
FE 2C<br />
23 <br />
28 E4 <br />
2B <br />
Dl <br />
C3 23 <br />
CD C5<br />
B7<br />
28 F6<br />
18 EB<br />
GO <br />
CD 14 <br />
23 <br />
FE E4 <br />
CA CD<br />
FE EO<br />
C2 FE<br />
BASIC 1Z-013B<br />
LD B.A <br />
DEC B <br />
RET Z <br />
54 CALL 5414 <br />
CP 22 <br />
JR Z. 18 ~ 37FIH <br />
CP OB <br />
JR Z. 05 ~ 37E2H <br />
CP OC <br />
20 JP NZ. 20FE<br />
INC HL <br />
INC HL <br />
54 CALL 5413 <br />
CP 2C<br />
INC HL<br />
JR Z. E4 ~ 37DOH<br />
DEC HL <br />
POP DE <br />
33 JP 3323 <br />
38 CALL 38C5<br />
OR A<br />
JR Z. F6 ~ 37EDH<br />
JR EB ~ 37E4H<br />
54 CALL 5414 <br />
INC HL c<br />
CP E4<br />
36 JP Z. 36CD ~<br />
CP EO<br />
20 JP NZ. 20FE<br />
V1.0A<br />
ZÄHLER WIEVIELTE ADRESSE<br />
MINUS EINS<br />
STEHT AUF ADRESSE<br />
'PROGRAM<strong>MZ</strong>EIGER AUF<br />
• NÄCHSTES RELEVANTES<br />
• ZEICHEN SETZEN<br />
(Anführungszeichen)<br />
ENDE LABEN SUCHEN<br />
CODE INTEGER-ZEILENNUMMER<br />
ZEILENNUMMER üBERSPRINGEN<br />
CODE ZEIGER AUF ZEILE<br />
SYNTAX - FEHLER<br />
, ZEILENNUMMER/ZEIGER<br />
I üBERSPR I NGEN<br />
'PROGRAM<strong>MZ</strong>EIGER AUF<br />
'NÄCHSTES RELEVANTE<br />
I ZEICHEN SETZEN<br />
(Komma)<br />
PROGRAM<strong>MZ</strong>EIGER<br />
WEITERE ADRESSEN ANGEGEBEN<br />
PROGRAM<strong>MZ</strong>EIGER CORRIGIEREN<br />
STACK CORRIGIEREN<br />
• ANFANG DES NÄCHSTEN<br />
• BEFEHLS SUCHEN<br />
• ZEIGER IN HL AUF ENDE<br />
• LABEL STELLEN<br />
ZEILENENDE ? <br />
NÄCHSTEN BEFEHL ABARBEITEN <br />
• UNTERSUCHEN. OB WEITERE<br />
• ZEILENNUMMERN ANGEGEBEN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
• NÄCHSTES RELEVANTES<br />
• ZEICHEN SETZEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
SUB (Zwischencode)<br />
GOSUB - ROUTINE<br />
TO (Zwi$chencode)<br />
SYNTAX - FEHLER<br />
14342 <br />
Befehl<br />
14343 3807 <br />
14344 <br />
143 45 <br />
14346 380A <br />
143 47 380B <br />
14348 <br />
14349 3800 <br />
14350 <br />
14351 380F <br />
14352 <br />
14353 <br />
14354 3812 <br />
14355 <br />
14356 <br />
14357 381 5 <br />
14358 3816 <br />
14359 <br />
14360 <br />
14361 3819 <br />
143 6 2 <br />
14363 <br />
14364 381C <br />
14365 <br />
14366 <br />
14367 381F <br />
14368 <br />
14369 3 82 1 <br />
14370 <br />
143 71 3823 <br />
14372 <br />
14373 <br />
14374 3826 <br />
14375 3827 <br />
14376 3828 <br />
14377 3829 <br />
14378 382A <br />
14379 382 8 <br />
14380 <br />
143 81 382D <br />
14.382 38 2E <br />
143 8 3 <br />
14384 <br />
14385 3 83 1 <br />
14386 <br />
14387 <br />
14388 383 4 <br />
14389 3 83 5 <br />
14390 3836 <br />
143 91 3837 <br />
14392 38 38 <br />
14393 38 39 <br />
14394 <br />
14395 383B <br />
BASIC<br />
GOTO<br />
CD 14 54 <br />
23 <br />
FE OC <br />
20 12 <br />
CD 60 3A<br />
22 EO 38 <br />
AF <br />
32 D9 38 <br />
C3 FE 18 <br />
2A ElF 6A<br />
18 Fl<br />
FE OB<br />
C2 F8 36 <br />
5E <br />
23 <br />
56 <br />
7A <br />
B3 <br />
28 EF <br />
EB <br />
CD BB 35 <br />
DA CB 20 <br />
ES <br />
72 <br />
2B <br />
73 <br />
2B <br />
3 6 OC <br />
EB<br />
1Z<br />
CALL<br />
INC H<br />
CP O<br />
JR N<br />
CALL<br />
LD (3<br />
XOR A<br />
LD (3<br />
JP 1<br />
LD H<br />
JR'· F<br />
CP<br />
JP N<br />
LD E<br />
INC<br />
LD D<br />
LD A<br />
OR E<br />
JR Z<br />
EX D<br />
CALL<br />
JP C<br />
EX D<br />
LD (<br />
DEC<br />
LD (<br />
DEC<br />
LD (<br />
EX D
SEITE 240<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
14396 383C C3 12 38 JP 3812 SPRUNG ZUR ZEILE Zeilenende oder zum IF geh<br />
14397<br />
14398<br />
14441 3869 14442<br />
CD 80 38 CALL 3<br />
Befehl IF<br />
14399 383F<br />
14400<br />
14401<br />
14402 3842<br />
14403 3843<br />
14404 3844<br />
14405 3845<br />
14406<br />
14407 3847<br />
14408 3848<br />
14409<br />
14410 384A<br />
14411<br />
14412 384C<br />
14413 3840<br />
14414<br />
14415<br />
14416 3850<br />
14417<br />
14418 3852<br />
14419<br />
14420 3854<br />
14421<br />
14422 3856<br />
14423<br />
14424 3858<br />
14425<br />
14426 385A<br />
14427<br />
14428 385C<br />
14429 3850<br />
14430<br />
14431<br />
14432 3860<br />
14433 3861<br />
14434<br />
14435<br />
14436 3864<br />
14437<br />
14438 3866<br />
14439<br />
14440<br />
CO 8B 52<br />
08<br />
1A<br />
B7<br />
28 19<br />
08<br />
FE E2<br />
20 10<br />
23<br />
CO 14 54<br />
FE OB<br />
28<br />
FE<br />
28<br />
FE<br />
28<br />
F1<br />
C3<br />
B6<br />
OC<br />
B2<br />
22<br />
AE<br />
25 19<br />
CALL 528B<br />
EX AF.AF'<br />
LO A.
SEITE 242<br />
BASIC 1Z-013B<br />
14496 38AO 30 18 JR NC, 18 ~ 38BAH<br />
14497<br />
14498 38A2 23 INC HL<br />
14499 38A3 23 INC HL<br />
14500 38A4 C9 RET<br />
Zeiger in HL auf Ende des Befehls stellen<br />
14501 38A5 ~ 38B2H<br />
38A5H<br />
7E LD A, (HL><br />
14502 38A6 B7 OR A<br />
14503 38A7 C8 RET Z<br />
14504 38A8 FE 3A CP 3A<br />
14505<br />
14506 38AA C8 RET Z<br />
14507 38AB FE 22 CP 22<br />
14508<br />
14509 38AD 28 03 JR Z, 03 14510<br />
14511 38AF 23 INC HL<br />
14512 38BO 18 F3 JR F3 ~ 14513<br />
14514 38B2 CD C5 38 CALL 38C5<br />
14515<br />
14516<br />
14517 38B5 B7 OR A<br />
14518 3886 C8 RET Z<br />
14519 3887 23 INC HL<br />
14520 3888 18 EB JR EB ~ 38A5H<br />
14521<br />
Zahl im interen Format überspringen<br />
14522 388A E6 OF ANO A. OF<br />
14523<br />
14524 38BC 85 AOD A,L<br />
14525 38BD 6F LD L.A<br />
14526 388E 3E 00 LO A. 00<br />
14527<br />
14528 38CO 8C ADC A.H<br />
14529 38C1 67 LD H,A<br />
14530 38C2 3E 20 LD A. 20<br />
14531<br />
14532 38C4 C9 RET<br />
Zeiger in HL auf zweites Anführungszeichen<br />
14533 38C5 ~ 38C5H<br />
23 INC HL<br />
14534 38C6 7E LD A. (HL><br />
14535 38C7 B7 OR A<br />
14536 38C8 C8 RET Z ;<br />
14537 38C9 FE 22 CP 22<br />
14538<br />
14539 38CB C8 RET Z<br />
14540 38CC 18 F7 JR F7 14541<br />
V1_0A<br />
ZAHL IM INTERNEN FORMAT<br />
IPROGRAM<strong>MZ</strong>EIGER HOCHZÄHLEN<br />
I (Zeilennr/Zeiger überspro)<br />
NÄCHSTES PROGRAMMBYTE<br />
GLEICH NULL ?<br />
ZEILENENOE<br />
(Doppelpunkt)<br />
ENDE BEFEHL<br />
(Anführungszeichen)<br />
I ZWEITES Anführungs<br />
Izeichen SUCHEN<br />
PROGRAMMBYTE üBERSPRINGEN<br />
BEFEHLSENDE SUCHEN<br />
IZEIGER IN HL AUF ZWEITES<br />
IAnführungszeichen STELLEN<br />
ZEILENENDE ?<br />
JA<br />
" üBERSPRINGEN<br />
BEFEHLSENDE SUCHEN<br />
LÄNGE ZAHL MASKIEREN<br />
PLUS L-BYTE ZEIGER<br />
ERGEBNIS MERKEN<br />
I EVENTUELLEN üBERTRAG<br />
CORRIGIEREN<br />
• Space ALS ZEICHEN VORGEBEN<br />
oder Zeilenende stellen<br />
PROGRAM<strong>MZ</strong>EIGER<br />
NÄCHSTES PROGRAMMBYTE<br />
GLEICH NULL ?<br />
ZEILENENOE<br />
(Anführungszeichen)<br />
ZEICHEN GEFUNDEN<br />
WEITER SUCHEN<br />
Befehl<br />
14542 38CE<br />
14543<br />
14544 38DO<br />
14545<br />
14546<br />
14547 38D3<br />
14548<br />
14549 3805<br />
14550<br />
14551 3807<br />
14552 3808<br />
14553 38D9<br />
14554 38DA<br />
14555<br />
14556 380C<br />
14557 380D<br />
14558 38°0E<br />
14559 38DF<br />
14560 38~0<br />
14561<br />
14562 38E2<br />
14563<br />
14564 38E4<br />
14565<br />
14566 38E6<br />
14567<br />
14568 38E8<br />
14569<br />
14570 38EA<br />
14571<br />
14572 38EC<br />
14573<br />
14574 38EE<br />
14575<br />
14576 38FO<br />
14577<br />
14578 38F2<br />
BASIC<br />
CLS<br />
3E 16 LD<br />
C3 12 00 JP<br />
00 00<br />
00 00<br />
01<br />
00<br />
00<br />
OO~)<br />
00<br />
00<br />
00<br />
00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00<br />
1Z<br />
A.<br />
001
SEITE 244<br />
14579 38F3 00 00<br />
14580<br />
14581 38F5 00 00<br />
14582<br />
14583 38F7 00 00<br />
14584<br />
14585 38F9 00<br />
14586 38FA 00<br />
14587 38FB 00 00<br />
14588<br />
14589 38FD 00<br />
14590 38FE 00<br />
14591 38FF 00<br />
14592 3900 00<br />
14593 3901 00<br />
Befehl SET<br />
14594 3902 CD 5B<br />
14595<br />
14596<br />
14597 3905 E5<br />
14598 3906 06 01<br />
14599<br />
14600 3908 CB 3A<br />
14601<br />
14602 390A 30 02<br />
14603<br />
14604 390C CB 20<br />
14605<br />
14606 390E CB 3B<br />
14607<br />
14608 3910 30 04<br />
14609<br />
14610 3912 CB 20<br />
14611<br />
14612 3914 CB 20<br />
14613<br />
14614 3916 CD SE<br />
14615<br />
14616<br />
14617 3919 CB DC<br />
14618<br />
14619 391B CD EA<br />
14620<br />
14621<br />
14622 391E E6 8F<br />
14623<br />
14624 3920 Bl<br />
14625 3921 CD F2<br />
14626<br />
14627<br />
14628 3924 CB 9C<br />
14629<br />
BASIC 1Z-013B<br />
39<br />
CALL 395B<br />
PUSH HL<br />
LD B. 01<br />
SRL 0<br />
JR NC. 02 ~ 390EH<br />
SLA B<br />
SRL E<br />
JR NC. 04 ~ 3916H<br />
SLA B<br />
SLA B<br />
39 CALL 398E<br />
SET 3.H<br />
00<br />
CALL OOEA<br />
AND A. BF<br />
00<br />
OR C<br />
CALL 00F2<br />
RES 3.H<br />
V1.0A<br />
PROGRAM<strong>MZ</strong>EIGER FüR CONT<br />
ZEILENNUMMER FüR CONT<br />
I ZEIGER AUF NÄCHSTE<br />
I ZEILE FüR CONT<br />
~ IZWISCHENSPEICHER FüR<br />
I ZEIGER AUF SCHLEIFENVAR.<br />
ZÄHLER FüR NULL-BEFEHL<br />
OPTION BASE FLAG<br />
I XIV - KOORDINATE UND<br />
IZEICHENFARBE BEREITSTELLEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
VORGABE FüR PIXELWERT<br />
X- KOORDINATE DURCH ZWEI<br />
ERSTE ZEICHENHÄLFE<br />
PIXELWERT CORRIGIEREN<br />
V-KOORDINATE DURCH ZWEI<br />
OBERE ZEICHENHÄLFE<br />
~ IPIXELWERT CORRIGIEREN<br />
; I<br />
I<br />
; IBILDSPEICHERPOSITION<br />
lAUS KOORDINATEN ERRECHNEN<br />
KOORDINATE AUF FARBSPEICHER<br />
I ZEICHEN AUS FARBSPEICHER<br />
I~L~<br />
~ ZEICHENFARBE AUSBLENDEN<br />
PLUS NEUE ZEICHENFARBE<br />
I ZEICHEN/HINTERGRUNDFARBE<br />
I IN FARBSPEICHER EINTRAGEN<br />
ZEIGER AUF BILDSPEICHER<br />
14630<br />
14631<br />
14632<br />
14633<br />
14634<br />
14635<br />
14636<br />
14637<br />
14638<br />
14639<br />
14640<br />
14641<br />
14642<br />
14643<br />
14644<br />
14645<br />
14646<br />
14647<br />
14648<br />
14649<br />
14650<br />
14651<br />
14652<br />
14653<br />
14654<br />
14655<br />
14656<br />
14657<br />
14658<br />
14659<br />
14660<br />
14661<br />
14662<br />
14663<br />
14664<br />
14665<br />
14666<br />
14667<br />
14668<br />
14669<br />
14670<br />
14671<br />
14672<br />
14673<br />
14674<br />
14675<br />
14676<br />
14677<br />
14678<br />
14679<br />
14680<br />
14681<br />
14682<br />
3926<br />
3929<br />
392B<br />
392D<br />
392F<br />
3930<br />
3933<br />
3934<br />
Befehl<br />
3935<br />
3 9.38<br />
3939<br />
393B<br />
393D<br />
393F<br />
3941<br />
3943<br />
3945<br />
3947<br />
3949<br />
394C<br />
394F<br />
3951<br />
3953<br />
3955<br />
3956<br />
3959<br />
395A<br />
BASIC<br />
CD EA 00<br />
FE FO<br />
30 02<br />
3E FO<br />
BO<br />
CD F2 00<br />
El<br />
C9<br />
RESET<br />
CD 5B 39<br />
E5<br />
06 FE<br />
CB 3A<br />
30 02<br />
CB 10<br />
CB 3B<br />
30 04<br />
CB 10<br />
CB 10<br />
CD BE 39<br />
CD EA 00<br />
FE FO<br />
30 02<br />
3E FO<br />
AO<br />
CD F2 00<br />
EI<br />
C9<br />
1Z<br />
CALL OO<br />
CP FO<br />
JR NC.<br />
LD A, F<br />
OR B<br />
CALL O<br />
POP HL<br />
RET<br />
CALL 39<br />
PUSH HL<br />
LD B, F<br />
SRL 0<br />
JR Ne,<br />
RL B<br />
SRL E<br />
JR NC,<br />
RL B<br />
RL B<br />
CALL 39<br />
CALL OO<br />
CP FO<br />
JR NC,<br />
LD A. F<br />
AND B<br />
CALL OO<br />
POP HL<br />
RET
SEITE 246<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
X/Y - Koordinate und Zeichenfarbe bereitstellen<br />
aus Koordinaten in 0 und E<br />
14734 398E D5<br />
CALL 4050 EIN-BYTE-WERT NACH DE/ACCU<br />
PUSH DE<br />
14683 395B CD 50 4D<br />
14735 398F 16 00 LD D. 0<br />
14684 14736<br />
14685 147.37 3991 62 LD H.D<br />
FE 50 CP 50 80 (X-KOORDINATE MAXIMAL)<br />
14686 395E 14738 3992 6B LD L.E<br />
14687<br />
14688 3960 D2 01 21 JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14739 3993 29 ADD HL<br />
14740 3994 29 ADD HL<br />
14689 14741 3995 19 ADD HL<br />
14690 14742 ·3996 29 ADD HL<br />
14691 3963 F5 PUSH AF X-KOORDINATE PUNKT<br />
14743 3997 29 ADD HL<br />
14692 3964 7E LD A. (HL> NÄCHSTES PROGRAMMBYTE<br />
14744 .3998 29<br />
CALL 3332 SYNTAX Komma<br />
ADD HL.<br />
14693 3965 CD 32 33<br />
14745 3999 01 POP DE<br />
14694 14746 399A 5A LD E.D<br />
14695<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
14747 399B 16 00 LD D. 0<br />
14696 3968 CD 50 4D CALL 4050<br />
14748<br />
14697 14749 399D 19 ADD HL<br />
14698<br />
100 (Y-KOORDINATE MAXIMAL)<br />
14750 399E 11 00 DO LD DE.<br />
14699 396B FE 64 CP 64<br />
14751<br />
14700<br />
JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14752<br />
14701 396D D2 01 21<br />
14753 39Al 19 ADD HL<br />
14702 14754 39A2 C9 RET<br />
14703<br />
14704 3970 5F LD E.A Y-KOORDINATE<br />
14705 3971 F1 POP AF X-KOORDINATE HOLEN<br />
Befehl JOY<br />
14706 3972 57<br />
LD D.A UND MERKEN<br />
14707 3973 3A 50 00 LD A. (005D)<br />
ZEICHEN/HINTERGRUNDFARBE<br />
14755 39A3 E5 PUSH HL<br />
14708 14756 39A4 CD 21 3D CALL 3D<br />
14709<br />
ZEICHENFARBE MASKIEREN<br />
14757<br />
14710 3976 E6 70 AND A. 70<br />
14711<br />
UND MERKEN<br />
14759 39A7 7C LD A.H<br />
14712 3978 4F LD C.A<br />
14760 3 9A8 B7 oR A<br />
14713 3979 7E LD A. (HL> NÄCHSTES PROGRAMM BYTE<br />
14761 39A9 C2 01 21 JP NZ,<br />
14714 397A FE 2C CP 2C (Komma) ?<br />
14762<br />
14715 14763<br />
14716 3 97C CO RET NZ KEINE FARBE ANGEGEBEN<br />
14764 39AC 70 LD A.L<br />
14717 397D 23 INC HL Komma üBERSPRINGEN<br />
14765 39AD FE 08 CP 08<br />
14718 397E 05 PUSH DE X/Y -KOORDINATE<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
14766<br />
14719 397F CD 50 40 CALL 4050<br />
14767 39AF D2 01 2 1 JP NC.<br />
14720 14768<br />
14758<br />
14721<br />
X/Y - KOORDINATE<br />
14769<br />
14722 3982 01 POP OE<br />
14770 39B2 CD 61 00 CALL 00<br />
14723 3983 FE 08 CP 08 FARBE MAXIMAL<br />
14771<br />
14724 14772<br />
14725 3985 02 01 21 JP NC. 2101 ZU GROSS + DATENFEHLER<br />
14773 39B5 E1 POP HL<br />
14726 14774 3986 38 OE JR C. O<br />
14727 14775<br />
14728 3988 07 RLCA I FARBE AUF H-NIBBLE<br />
14776 3 988 28 OC JR Z. O<br />
14729 .3989 07 RLCA I SCHIEBEN<br />
14777<br />
14730 398A 07 RLCA I<br />
14778 3 9BA 11 FF FF LD DE.<br />
14731 398B 07 RLCA I<br />
14779<br />
14732 398C 4F LD C.A ZEICHENFARBE<br />
14780<br />
14733 398D C9 RET<br />
14781 39BD CD 82 3A CALL 3A<br />
14782<br />
14783<br />
14784 39CO 3E 05 LD A. 0<br />
14785<br />
14786 39C2 32 65 6A LD (6A<br />
14787<br />
14788<br />
14789 39C5 C9 RET
SEITE 248<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
14790 39C6 5F LD E,A ABGEFRAGTER WERT<br />
39C7 16 00<br />
LD 0, 00<br />
14791<br />
14792<br />
14793<br />
14794<br />
14795<br />
14796<br />
14797<br />
14798<br />
14799<br />
14800<br />
14801<br />
14802<br />
14803<br />
14804<br />
14805<br />
14806<br />
39C9<br />
18<br />
F2<br />
Befehl CONSOLE<br />
39CB<br />
39CD<br />
39CF<br />
39D2<br />
39D5<br />
28<br />
3E<br />
32<br />
3A<br />
06<br />
2E<br />
01<br />
4E<br />
56<br />
19<br />
00<br />
00<br />
JR<br />
JR<br />
LD<br />
LD<br />
LD<br />
LD<br />
F2<br />
~ 39BDH IWERT IN<br />
I IN REAL<br />
Z, 2E ~ 39FBH<br />
A, 01<br />
SEITE 250<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
14897 3A31<br />
14898<br />
14899 3A33<br />
14900<br />
14901 3A35<br />
14902<br />
Befehl PLOT<br />
14903 3A37<br />
14904<br />
14905<br />
14906 3A3A<br />
14907 3A3B<br />
14908<br />
14909<br />
14910<br />
14911<br />
14912<br />
14913<br />
14914<br />
3A3E<br />
3A3F<br />
FE<br />
28<br />
FE<br />
C2<br />
90<br />
OB<br />
Al<br />
FE 20<br />
AF<br />
32 40 00<br />
23<br />
C9<br />
CP 90<br />
JR Z. OB ~<br />
CP Al<br />
JP NZ. 20FE<br />
XOR A<br />
LD (0040).A<br />
INC<br />
RET<br />
Parallelausgabe einschalten<br />
3A40H<br />
ON (Zwischencode)<br />
PARALLELAUSGABE EINSCHALTEN<br />
OFF
SEITE 252 <br />
BASIC 1Z-013B V1.0A <br />
14989<br />
14990 3A8E 7A LO A,O I NEG OE<br />
14991 3A8F 2F CPL I<br />
14992 3A90 57 LO O.A I<br />
14993 3A91 78 LO A,E I<br />
14994 3A92 2F CPL I<br />
14995 3A93 5F LO E.A I<br />
14996 3A94 13 INC OE I<br />
14997 3A95 3E FF LO A. FF I MASKE FüR MS8 FüR<br />
14998 I NEGATIVE ZAHL<br />
14999 3A97 06 91 LO 8. 91 VORGABE FüR EXPONENT<br />
15000<br />
15001 3A99 05 OEC B EXPONENT MINUS EINS<br />
15002 3A9A C8 7A BIT 7.0 1tes BIT MANTISSE GESETZT<br />
15003<br />
15004 3A9C 20 06 JR NZ, 06 -+ 3AA4H INTERNES FORMAT STIMMT<br />
15005<br />
15006 3A9E C8 13 RL E IMANTISSE MAL ZWEI<br />
15007 I<br />
15008 3AAO C8 12 RL 0 I<br />
15009<br />
15010 3AA2 18 F5 JR F5 -+ 3A99H lüBERPRüFEN, - 08 FORMAT<br />
15011 I STIMMT<br />
15012 3AA4 70 LO (HU ,8 EXPONENT EINTRAGEN<br />
15013 3AA5 23 INC HL ZEIGER AUF MANTISSE<br />
15014 3AA6 A2 ANO 0 VORZEICHEN SETZEN<br />
15015 3AA7 77 LD (HU ,A MSBYTE MANTISSE EINTRAGEN<br />
15016 3AA8 23 INC HL ZEIGER AUF MANTISSE<br />
15017 3AA9 73 LD (HU ,E ZWEITES BYTE MANTISSE<br />
15018 3AAA 28 OEC HL I ZEIGER WIEDER AUF<br />
15019 3AA8 28 OEC HL I EXPONENT<br />
15020 3AAC C9 RET<br />
Zeiger in DE auf nächsten Real - Wert in Tabelle stellen<br />
15021 3 AAO E5 PUSH HL REGISTER RETTEN <br />
15022 3AAE 21 05 00 LD HL. 0005 ; LÄNGE REAL-WERT <br />
15023 <br />
15024 <br />
15025 3A81 19 ADO HL,OE , ZEIGER AUF NÄCHSTEN WERT <br />
15026 3A82 E8 EX DE,HL NACH OE <br />
15027 3A83 E1 POP HL ; GERETTETES REGISTER HOLEN <br />
15028 3A84 C9 RET <br />
Plus Eins im Real - Format nach (OE) übertragen<br />
15029 3A85 21 77 3D LD HL. 3077 ZEIGER AUF +1 (Real-Format)<br />
15030 <br />
15031 <br />
15032 3ABB 01 05 00 LO BC, 0005 • LÄNGE REAL-ZAHL <br />
15033<br />
15034 <br />
15035 3A88 ED 80 LOIR , IZAHLWERT VON (HL) NACH <br />
15036 I (OE) üBERTRAGEN <br />
15037 3A80 C9 RET <br />
BASIC 1Z<br />
UberprGfen. ob ASCII im A<br />
15038 3ABE FE 30 CP 3<br />
15039<br />
15040 3ACO 08 RET C<br />
15041 3AC1 FE 3A CP 3<br />
15042<br />
15043 3AC3 3F CCF<br />
15044 3AC4 C9 RET<br />
Zeichen (OE) nach Accu ho<br />
15045 3AC5 1A LO A.<br />
15046 3AC6 C9 RET<br />
UntersLlchen. ob Zeichen i<br />
15047 3AC7 FE 5F CP 5<br />
15048<br />
15049 3AC9 C8 RET Z<br />
15050 3ACA FE 30 CP 3<br />
15051<br />
15052 3ACC 08 RET C<br />
15053 3ACO FE 5B CP 5<br />
15054<br />
15055 3ACF :.F CCF<br />
15056 3AOO 08 RET C<br />
15057 3AD1 FE 3A CP 3<br />
15058<br />
15059 3AD3 3F CCF<br />
15060 3AD4 00 RET N<br />
15061 3AD5 FE 41 CP 4<br />
15062<br />
15063 3AD7 C9 RET<br />
ASCII-He;-:-Zahl
SEITE 254 <br />
BASIC 1Z-013B V1.0A <br />
15086<br />
15087 3AEF 85 ADO A,L PLUS NEUE STELLE<br />
15088 3AFO 6F LD L,A ERGEBNIS MERKEN<br />
15089 3AF1 3E 00 LO A, 00 • EVENTUELLEN üBERTRAG<br />
15090 • ADDIEREN<br />
15091 3AF3 8C AOC A,H<br />
15092 3AF4 OA F5 20 JP C, 20F5<br />
• üBERLAUF ~ üBERLAUFEHLER<br />
15093<br />
15094<br />
15095 3AF7 67 LD H,A H-BYTE ERGEBNIS MERKEN<br />
15096 3AF8 18 E2 JR E2 ~ 3AOCH NÄCHSTE STELLE UMSETZEN<br />
15097<br />
15098 3AFA 1B OEC OE ZEIGER AUF TEXT CORRIGIEREN<br />
15099 3AFB EB EX OE,HL ZEIGER NACH HL; WERT OE<br />
15100 3AFC E3 EX (SP),HL ZEIGER AUF STELLE FüR WERT<br />
15101 3AFD CD 82 3A CALL 3A82 I INTEGER-WERT IN OE UM<br />
15102 ISETZEN IN REAL-WERT<br />
15103 I NACH (HU<br />
15104 3800 D1 POP DE ZEIGER AUF RESTTEXT<br />
15105 3801 3E 05 LD A, 05 COOE REAL-WERT<br />
15106<br />
15107 3803 C9 RET<br />
ASCII-Zeichen im Accu umsetzen in HEX-Wert<br />
15108 3B04 06 30 SUB A, 30 I ASCII-ZEICHEN UMSETZEN<br />
15109 I IN DEZIMAL<br />
15110 3B06 D8 RET C KEIN HEX-WERT<br />
15111 3B07 FE OA CP OA 0-9 ?<br />
15112<br />
15113 3809 3F CCF ERGEBNIS UMKEHREN<br />
15114 3BOA 00 RET NC HEX - WERT<br />
15115 3BOB FE 11 CP 11 KLEINER A ?<br />
15116<br />
15117 3BOO 08 RET C KEIN HEX-WERT<br />
15118 3BOE 06 07 SUB A, 07 FüR A-F CORRIGIEREN<br />
15119<br />
15120 3B10 FE 10 CP 10 o - F ?<br />
15121<br />
15122 3B12 3F CCF = ERGEBNIS UMKEHREN<br />
15123 3B13 C9 RET<br />
ASCII-Text (OE) umsetzen in Real-Zahl-Wert nach (HL)<br />
15124 3B14 CD 87 50 CALL 5087 • (HL) REAL-WERT NULL<br />
15125 'EINTRAGEN<br />
15126<br />
15127 3B17 32 81 6A LO (6A8l> ,A ANZAHL STELLEN<br />
15128<br />
15129<br />
15130 3BIA 32 82 6A LO (6A82),A ~ FLAG STELLEN ANGEGEBEN<br />
15131<br />
15132<br />
15133 3B10 32 83 6A LO (6A83),A FLAG REAL-ZAHL<br />
15134<br />
15135<br />
15136 3B20 32 84 6A LD (6A84),A OEZIMALPUNKT-FLAG<br />
15137<br />
15138<br />
15139 3823<br />
15140<br />
15141 3B25<br />
15142<br />
15143<br />
15144 3B28<br />
15145<br />
15146<br />
15147 3828<br />
15148<br />
15149 3B2D<br />
15150<br />
15151 382F<br />
15152<br />
15153 3831<br />
15154<br />
15155 3B33<br />
15156<br />
15157<br />
15158 3B36<br />
15159<br />
15160<br />
15161 3839<br />
15162<br />
15163 3B3B<br />
15164<br />
15165<br />
15166 383E<br />
15167<br />
15168 3840<br />
15169<br />
15170 3B42<br />
15171 3843<br />
15172 3B44<br />
15173<br />
15174 3 B46<br />
15175 3847<br />
15176 3848<br />
15177<br />
15178 3 84A<br />
15179<br />
15180 3 84C<br />
15181<br />
15182<br />
15183 384F<br />
15184 3850<br />
15185<br />
15186 3852<br />
15187<br />
15188 3B54<br />
15189<br />
15190 3856<br />
15191<br />
15192<br />
15193 3B59<br />
15194<br />
BASIC<br />
3E 05<br />
32 65 6A<br />
CD 62 3C<br />
FE 28<br />
28 F9<br />
FE 20<br />
20 06<br />
CO 28 38<br />
C3 91 50<br />
FE 24<br />
CA 08 3A<br />
FE 30<br />
20 06<br />
1A<br />
13<br />
18 F8<br />
1A<br />
13<br />
FE 20<br />
20 06<br />
3A 80 6A<br />
87<br />
28 F4<br />
FE 2E<br />
28 18<br />
CD BE 3A<br />
38 56<br />
1<br />
LD A<br />
LD (6<br />
CALL<br />
CP 2<br />
JR Z<br />
CP 2<br />
JR N<br />
CALL<br />
JP 50<br />
CP 2<br />
JP Z<br />
CP 3<br />
JR N<br />
LD A<br />
INC D<br />
JR Fa<br />
LO A<br />
INC D<br />
CP 2<br />
JR NZ<br />
LD A.<br />
OR A<br />
JR Z,<br />
CP 2<br />
JR Z,<br />
CALL<br />
JR C,
SEITE 256<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
15195<br />
15196<br />
15197<br />
15198<br />
15199<br />
15200<br />
15201<br />
15202<br />
15203<br />
15204<br />
15205<br />
15206<br />
15207<br />
15208<br />
15209<br />
15210<br />
15211<br />
15212<br />
15213<br />
15214<br />
15215<br />
152 16<br />
15217<br />
15218<br />
15219<br />
15220<br />
15221<br />
3858<br />
3850<br />
3860<br />
3B63<br />
3865<br />
3B68<br />
3 B68<br />
3B6C<br />
06<br />
CD<br />
CD<br />
3E<br />
32<br />
3A<br />
3C<br />
32<br />
30<br />
OA<br />
4E<br />
01<br />
82<br />
81<br />
81<br />
3D<br />
3C<br />
6A<br />
6A<br />
6A<br />
SU8 A. 30<br />
CALL 3DOA<br />
CALL 3C4E<br />
LD A. 01<br />
LD (6A82).A<br />
LD A. (6A8l><br />
INC A<br />
LD (6A81).A<br />
ASCII UMSETZEN IN DEZIMAL<br />
ALTES TEILERGE8NIS * 10<br />
I WERT NEUE STELLE DAZU<br />
I ADDIEREN<br />
CODE STELLE UMGESETZT<br />
FLAG STELLEN ANGEGEBEN<br />
ANZAHL STELLEN<br />
PLUS EINS<br />
UND WIEDER MERKEN<br />
3B6F 18 05 JR D5 -+ 3B46H INÄCHSTES ZEICHEN<br />
I UNTERSUCHEN<br />
3 871<br />
3873<br />
15222 3 876<br />
15223 3B77<br />
15224 3B78<br />
15225 3B79<br />
15226<br />
15227<br />
15228<br />
15229<br />
15230<br />
15231<br />
3B7B<br />
3B7D<br />
3E<br />
32<br />
0 1<br />
4F<br />
1A<br />
13<br />
FE 20<br />
20<br />
3A<br />
84 6A<br />
06<br />
80 6A<br />
LD<br />
LD<br />
A. 01<br />
(6A84>.A<br />
LD C.A<br />
LD A. .A FLAG STELLE ANGEGEBEN 15302<br />
15303<br />
15250<br />
15251 3893<br />
15252 3894<br />
15253 3895<br />
15254<br />
F5<br />
3E 01<br />
F1<br />
F5<br />
3A 82 6A<br />
PUSH AF<br />
LD A. 01<br />
POP AF<br />
PUSH AF<br />
LD A. (6A82)<br />
; ZAHLWERT RETTEN<br />
CODE STELLE ANGEGEBEN<br />
GERETTETE ZAHL HOLEN<br />
ZAHLWERT RETTEN<br />
FLAG STELLEN ANGEGEBEN<br />
15299<br />
15300<br />
15301<br />
15304<br />
15305<br />
15306<br />
15307<br />
15308<br />
38C3<br />
3 BC4 ,<br />
lA<br />
FE 2D<br />
6A<br />
JR F8<br />
CP<br />
JR<br />
4<br />
Z.<br />
DEC D<br />
LD A.<br />
LD<br />
CP<br />
A.<br />
2<br />
3 8Cb 28 09 JR Z.<br />
3 8C8<br />
3 8CA<br />
3 BCC<br />
FE<br />
28<br />
CD<br />
2B<br />
05<br />
BE 3 A<br />
CP 2B<br />
JR Z.<br />
CALL
SEITE<br />
15309<br />
15310<br />
15311 3BCF<br />
15312<br />
15313 3BOl<br />
15314<br />
15315 3B03<br />
153 16<br />
15317<br />
15318 3B06<br />
15319 3B07<br />
15320<br />
15321<br />
15322 3BOA<br />
15323<br />
15324<br />
15325 3BOO<br />
15326<br />
15327<br />
15328 3BEO<br />
15329 3BEI<br />
15330 3BE2<br />
15331<br />
15332 3BE4<br />
15333<br />
15334 3BE6<br />
15335<br />
15336 3BE8<br />
15337<br />
15338 3BEA<br />
15339 3BEB<br />
15340<br />
15341<br />
15342 3BEE<br />
15343<br />
15344<br />
15345 38Fl<br />
15346 38F2<br />
15347 3BF3<br />
15348 3BF4<br />
15349<br />
15350 38F6<br />
15351<br />
15352 3BF8<br />
15353<br />
15354 3BFA<br />
15355<br />
15356 3BFC<br />
15357 3BFO<br />
15358<br />
15359<br />
15360 3COO<br />
15361 3C01<br />
15362 3C02<br />
15363<br />
15364<br />
15365 3C05<br />
15366<br />
15367<br />
15368 3C08<br />
15369<br />
15370<br />
258<br />
BASIC 1Z-0138<br />
38 E4 JR C. E4 ~ 3BB5H<br />
3E 01 LD A. 01<br />
32 84 6A LD (6A84).A<br />
E5 PUSH HL<br />
21 El 5F LD HL. 5FE1<br />
22 31 3C LD (3C31>. HL<br />
21 00 00 LD HL. 0000<br />
1A LD A. . HL<br />
EI POP HL<br />
lA LD A.
SEITE 260 <br />
BASIC 1Z-013B V1.0A <br />
15427 3C43 F1 POP AF<br />
15428 3C44 C9 RET<br />
HL HL + OE mit Untersuchung auf überlauf<br />
15429 3C45 19 ADO HL.OE ZAHLEN ADDIEREN<br />
15430 3C46 00 RET NC ERGEBNIS OK<br />
15431 3C47 18 02 JR 02 ~ 3C4BH üBERLAUFFEHLER<br />
15432<br />
HL HL + HL mit Untersuchung auf überlpuf<br />
15433 3C49 29 AOD HL.HL ZAHLEN ADDIEREN<br />
1543 4 3C4A DO RET NC ERGEBNIS OK<br />
15435 3C4B C3 F5 20 JP 20F5 üBERLAUF FEHLER<br />
15436<br />
15437<br />
Dezimal - Wert im Accu zur Real - Zahl (HL) addieren<br />
15438 3C4E 05 PUSH DE REGISTER RETTEN<br />
15439 3C4F E5 PUSH HL ZEIGER AUF REAL-ZAHL<br />
15440 3C50 21 66 6A LO HL. 6A66 ZEIGER AUF ZWISCHENSPEICHER<br />
15441<br />
15442<br />
15443 3C53 5F LO E.A DEZIMAL- ZIFFER<br />
15444 3C54 16 00 LO O. 00<br />
15445<br />
15446 3C56 CD 82 3 A CALL 3A82 IHEX-WERT IN DE UMSETZEN<br />
15447 I IN REAL-ZAHL NACH (HL)<br />
15448<br />
15449 3C59 EB EX OE.HL ZEIGER AUF WERT NACH OE<br />
15450 3C5A E1 POP HL ZEIGER AUF REAL-ZAHL<br />
15451 3C5B C5 PUSH BC REGISTER RETTEN<br />
15452 3C5C CD AF 50 CALL 50AF ; + - ROUTINE<br />
15453<br />
15454<br />
15455 3C5F Cl POP BC<br />
15456 3C60 01 POP OE<br />
15457 3C61 C9 RET<br />
Zeiger in OE auf nächstes relevantes Zeichen setzen<br />
15458 3C62 1A LO A. (OE) EIN ZEICHEN HOLEN <br />
15459 3C63 FE 20 CP 20 Space ? <br />
15460 <br />
15461 3C65 13 INC OE ZEIGER AUF TEXT <br />
15462 3C66 28 FA JR Z. FA ~ 3C62H I NÄCHSTES RELEVANTES <br />
15463 I ZEICHEN HOLEN <br />
15464 3C68 C9 RET <br />
BASIC 1Z-<br />
Real - Zahl (HL) Llmsetzen i<br />
15465 3C69 3E 05 LO A. 0<br />
15466<br />
15467 3C6B 32 65 6A LO (6A6<br />
15468<br />
15469<br />
15470 3C6E 7E LD A. (H<br />
15471 3C6F 87 OR A<br />
15472 3C70 28 04 JR Z. 0<br />
15473<br />
15474 3C72 23 INC HL<br />
15475 3C73 7E LO A. (H<br />
15476 3C74 2B OEC HL<br />
15477 3C75 07 RLCA<br />
15478 3C76 3E 20 LO A. 2<br />
15479<br />
15480 3C78 30 05 JR NC.<br />
15481<br />
15482 3C7A CO 91 50 CALL 50<br />
15483<br />
15484<br />
15485 3C7D 3E 20 LD A. 2<br />
15486<br />
15487 3C7F F5 PUSH AF<br />
15488 3C80 CD AF 3F CALL 3F<br />
15489<br />
15490<br />
15491 3C83 CD 3A 40 CALL 40<br />
15492<br />
15493<br />
15494 3C86 F1 POP AF<br />
15495 3C87 1B OEC OE<br />
15496 3C88 12 LO
SEITE 262 <br />
BASIC 1Z-013B V1.0A <br />
15517 3C9D 38 F1 JR C, F1 + 3C90H ERGBNIS IST NULL<br />
15518<br />
15519 3C9F 7E<br />
LD A, (HU EXPONENT HOLEN<br />
1552.0 3CAO FE AO CP AO<br />
15521<br />
15522 3CA2 30 EF JR NC, EF + 3C93H I ZAHL HAT KEINE NACHKOMMA<br />
15523<br />
15524 3CA4 23 INC HL<br />
15525 3CA5 CD D3 3C CALL 3CD3<br />
15526<br />
15527<br />
ISTELLEN<br />
ZEIGER AUF MANTISSE<br />
IDREI BYTE MANTISSE AUS<br />
IRAM (HL) NACH REGISTER<br />
I LADEN<br />
ZEIGER AUF ENDE MANTISSE<br />
15528 3CA8 E5 PUSH HL<br />
15529 3CA9 6E<br />
LD L, (HU VIERTES BYTE MANTISSE LADEN<br />
15530 3CAA 06 00 LD B, 00<br />
15531<br />
15532 3CAC CB 3B SRL E<br />
15533<br />
15534 3CAE CB 1A RR 0<br />
15535<br />
1553 6 3 CBO CB 19 RR C<br />
1553 7<br />
15538 3 CB2 CB 1D RR L<br />
15539<br />
ZÄHLER WIE OFT GESCHOBEN<br />
I MANTISSE UM EIN BIT<br />
I NACH RECHTS SCHIEBEN<br />
I (ei n Bi t vergessen)<br />
155 40 3CB4 3 C INC A<br />
EXPONENT PLUS EINS<br />
15541 3 CB5 04 <br />
INC B ZÄHLER WIE OFT GESCHOBEN<br />
15542 3CB6 FE AO CP AO <br />
15543 <br />
15544 3 CB8 20 F2 JR NZ. F2 + 3 CACH WEITER SCHIEBEN <br />
15545 <br />
15546 3CBA CB 25<br />
SLA L<br />
15547<br />
15548 3CBC CB 11 RL C<br />
15549<br />
1555 0 3 CBE CB 12 RL 0<br />
15551 <br />
15552 3 CCO CB 13 RL E I<br />
15553 <br />
I MANTISSE WIEDER AUF<br />
I RICHTIGE WERTIGKEIT<br />
I SCHIEBEN<br />
15554 3CC2 10 F6 DJNZ F6 + 3CBAH WEITER SCHIEBEN <br />
15555<br />
15556 3CC4 70<br />
LD A,L VIERTES BYTE MANTISSE<br />
15557 3 CC5 EI POP HL<br />
ZEIGER AUF ENDE MANTISSE<br />
15558 3 CC6 77<br />
LD (HU ,A VIERTES BYTE MANTISSE MERK.<br />
15559 3CC7 2B OEC HL<br />
ZEIGER AUF MANTISSE<br />
15560 3 CC8 CD CD 3C CALL 3CCD<br />
IDREI BYTE MANTISSE AUS<br />
15561<br />
I REGISTER NACH RAM (HL)<br />
15562<br />
I ABLEGEN<br />
JR C6 + 3C93H GERETTETE REGISTER HOLEN<br />
15563 3CCB 18 C6 <br />
15564 <br />
drei Byte aus Registern nach RAM (HL) übertragen<br />
15565 3CCD 71 LD (HU ,C<br />
I BYTES AUS REGISTERN<br />
15566 3CCE 2B <br />
DEC HL I IM RAM (HL) ABLEGEN<br />
15567 3CCF 72 LD (HU.O I<br />
15568 3CDO 2B DEC HL<br />
15569 3CDl 73 LD (HU ,E<br />
15570 3CD2 C9 RET<br />
I<br />
I<br />
I<br />
I<br />
I<br />
I<br />
BASIC 1Zdrei<br />
Byte aus RAM (HL) nach<br />
15571 3C03 5E LD E, (H<br />
15572 .3CD4 23 INC HL<br />
15573 3CD5 56 LD D, (H<br />
15574 .3CD6 23 INC HL<br />
15575 3CD7 4E LD C, (H<br />
15576 3C08 23 INC HL<br />
15577 3CD9 C9 RET<br />
NachkommastelIen der Zahl (<br />
15578 3CDA 7E LD A, (H<br />
15579 3COB B7 OR A<br />
15580 3CDC C8 RET Z<br />
15581 3CDD 2 3 INC HL<br />
15582 3CDE 7E LO A, (H<br />
15583 3CDF CB BE RES 7, (<br />
15584<br />
15585 3CE1 2B DEC HL<br />
15586 3CE2 F5 PUSH AF<br />
15587 3CE3 CD EC 3C CALL 3C<br />
15588<br />
15589<br />
15590 3CE6 F1 POP AF<br />
15591 3 CE7 07 RLCA<br />
15592 3CE8 DO RET NC<br />
15593 3CE9 C3 91 5D JP 5091<br />
15594<br />
15595<br />
Nachkommastellen des positiv<br />
15596 3CEC C5 PUSH BC<br />
15597 3CED E5 PUSH HL<br />
155'78 3CEE D5 PUSH DE<br />
15599 3CEF 7E LO A, (H<br />
15600 3CFO FE 81 CP 81<br />
15601<br />
15602 3CF2 DA 93 3C JP C, 3<br />
15603<br />
15604<br />
15605 3CF5 11 66 6A LD DE,<br />
15606<br />
15607<br />
15608 3CF8 E5 PUSH HL<br />
15609 3CF9 CD B8 3 A CALL 3A<br />
15610<br />
15611<br />
15612 3CFC 21 66 6A LD HL,<br />
15613<br />
15614<br />
15615 3CFF CO 97 3C CALL 3C<br />
15616<br />
15617<br />
15618 3D02 D1 POP DE<br />
15619 3003 EB EX DE,H<br />
15620 3D04 CO A6 5D CALL 5D<br />
156 21<br />
15622
SEITE 264<br />
BASIC 1Z-013B V1_0A<br />
15623 3007 C3 93 3C JP 3C93 GERETTETE REGISTER HOLEN<br />
15624<br />
15625<br />
Wert (HL) mal 10<br />
15626 300A F5 PUSH AF NEUE STELLE MERKEN<br />
15627 300B C5 PUSH BC REGISTER RETTEN<br />
15628 300C 05 PUSH OE ZEIGER AUF REST ASCII-TEXT<br />
15629 3000 11 72 3D LO OE. 3072 ZEIGER AUF +10 (Real)<br />
15630<br />
15631<br />
15632 3010<br />
CO EI 5F CALL 5FEI I * - ROUTINE<br />
I (HL> = (HL> * EXPONENT HOLEN<br />
15640 3018 FE 91 CP 91 IGRöSSTER UMSETZBARER<br />
15641 I EXPONENT<br />
15642 301A 38 05 JR C. 05 ~ 3021H ZAHL UMSETZBAR<br />
15643<br />
15644 301C 3F CCF CODE FEHLER SETZEN<br />
15645 3010 21 00 00 LO HL. 0000 VORGABE WERT NULL<br />
15646<br />
15647<br />
15648 3020 C9 RET<br />
Vorzeichenbehafteten Real - Wert (HL) umsetzen in Integer nach HL<br />
15649 3021 23 INC HL ZElGER AUF MANTISSE<br />
15650 3022 CB 7E BIT 7. (HL> ZAHL POSITIV ?<br />
15651<br />
15652 3024 28 OB JR Z. OB ~ 3031H JA<br />
15653<br />
15654 3026 CO 31 30 CALL 3031 , I BETRAG DER REAL ZAHL<br />
15655 I (HL> UMSETZEN IN INTEGER<br />
15656 I NACH HL<br />
15657 3029 7C LO A.H 12er COMPLEMENT OES<br />
15658 302A 2F CPL I WERTES BILOEN<br />
15659 302B 67 LO H.A I<br />
15660 302C 70 LO A.L , I<br />
15661 3020 2F CPL I<br />
15662 3D2E 6F LO L.A I<br />
15663 3 02F 23 INC HL I<br />
15664 3030 C9 RET<br />
BASIC 1Z-<br />
Betrag der Real-Zahl (HL> u<br />
15665 3031 2B OEC HL<br />
15666 3032 7E LO A. (H<br />
15667 3033 FE 91 CP 91<br />
15668<br />
15669 3035 02 F5 20 JP NC.<br />
15670<br />
15671<br />
15672 3038 FE 81 CP 81<br />
15673<br />
15674 3 03A 3 8 EO JR C. E<br />
15675<br />
15676 303C F5 PUSH AF<br />
15677 3030 23 INC HL<br />
15678 303E 7E LO A. (H<br />
15679 303F 23 INC HL<br />
15680 3040 6E LO L. (H<br />
15681 3 041 67 LO H.A<br />
15682 3 042 Fl POP AF<br />
15683 3 043 CB FC SET 7.H<br />
15684<br />
15685 3045 FE 90 CP 90<br />
15686<br />
15687 3047 C8 RET Z<br />
15688 3048 3C INC A<br />
15689 3 049 CB 3C SRL H<br />
15690<br />
15691 304B CB 10 RR L<br />
15692<br />
15693 3040 18 F6 JR F6<br />
15694<br />
Konstanten fUr Zahlumsetzr<br />
15695 304F 9B<br />
15696 3050 3E BC 20 00<br />
15697<br />
15698<br />
15699<br />
15700 3054 98<br />
15701 3055 18 96 80 00<br />
15702<br />
15703<br />
15704<br />
15705 3059 94<br />
15706 305A 74 24 00 00<br />
15707<br />
15708<br />
15709<br />
15710 305E 91<br />
15711 305F 4 3 50 00 00<br />
157 12<br />
15713<br />
15714<br />
15715 3063 8E<br />
15716 3064 lC 40 00 00<br />
157 17<br />
1571 8<br />
15719<br />
15720 3068 8A
SEITE 266<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
15721 3069 7A 00 00 00 Mantisse 1000<br />
15779 30A3 15722 15780<br />
CD B2 3D CALL 3<br />
15723 15781<br />
15724 15782 3DA6 7D LO A.L<br />
15725 3060 87 Exponent 100 15783 30A7 Dl POP OE<br />
15726 306E 48 00 00 00 Mantisse 100<br />
15784 30A8 F6 30 OR 30<br />
15727 15785<br />
15728 15786 30AA 12 LD
SEITE<br />
15833<br />
15834 3DDA<br />
15835<br />
15836<br />
15837 3DDD<br />
15838<br />
15839<br />
15840 3DEO<br />
15841<br />
15842 3DE2<br />
15843<br />
15844<br />
15845 3DE5<br />
15846 3DE6<br />
15847<br />
15848 3DE8<br />
15849 3DE9<br />
15850<br />
15851<br />
15852 3DEC<br />
15853<br />
15854<br />
15855 3DEF<br />
15856 3DFO<br />
15857 3DF1<br />
15858 3DF2<br />
15859 3DF3<br />
15860 3DF4<br />
15861<br />
15862 3DF6<br />
15863 3 DF7<br />
15864<br />
15865 3DF9<br />
15866 3DFA<br />
15867 3DFB<br />
15868 3DFC<br />
15869<br />
15870 3DFE<br />
15871<br />
15872 3EOO<br />
15873 3E01<br />
15874 3E02<br />
15875<br />
15876 3E04<br />
15877 3E05<br />
15878 3E06<br />
15879 3E07<br />
15880<br />
15881 3E09<br />
15882<br />
15883 3EOB<br />
15884<br />
15885 3EOD<br />
15886<br />
15887 3EOF<br />
15888<br />
15889 3E11<br />
15890 3E12<br />
15891 3E13<br />
15892<br />
15893 3E15<br />
15894<br />
268<br />
11 77<br />
CD 8A<br />
30 06<br />
CD OA<br />
05<br />
18 F2<br />
C5<br />
CD AF<br />
CD 3A<br />
Cl<br />
D5<br />
EB<br />
7E<br />
B7<br />
28 03<br />
23<br />
18 F9<br />
2B<br />
7E<br />
23<br />
FE 30<br />
20 02<br />
04<br />
2B<br />
3E 45<br />
77<br />
23<br />
78<br />
06 2B<br />
CB 7F<br />
28 04<br />
ED 44<br />
06 2D<br />
70<br />
23<br />
36 30<br />
D6 OA<br />
BASIC 12-013B<br />
3D LD DE. 3D77<br />
3C CALL 3C8A<br />
JR NC. 06 ~ 3DE8H<br />
3D CALL 3DOA<br />
DEC B<br />
JR F2 ~ 3DDAH<br />
PUSH BC<br />
3F CALL 3FAF<br />
40 CALL 403A<br />
POP BC<br />
PUSH DE<br />
EX DE.HL<br />
LD A, (HL><br />
OR A<br />
JR Z, 03 ~ 3DF9H<br />
INC HL<br />
JR F9 ~ 3DF2H<br />
DEC HL<br />
LD A. (HL><br />
INC HL<br />
CP 30<br />
JR NZ, 02 ~ 3E02H<br />
INC B<br />
DEC HL<br />
LD A. 45<br />
LD (HL> ,A<br />
INC HL<br />
LD A.B<br />
LD B. 2B ;<br />
BIT 7,A<br />
JR Z. 04 ~ 3E11H<br />
NEG<br />
LD B. 2D ;<br />
LD (HL>, B<br />
INC HL<br />
LD (HL>, 30<br />
SUB A, OA<br />
V1_0A<br />
ZEIGER AUF +1 (Real)<br />
IZAHLEN (HL) UND (DE)<br />
I VERGLEICHEN<br />
WERT (HL) IST >= +1<br />
WERT (HL) MAL 10<br />
EXPONENTENZÄHLER MINUS EINS<br />
I UNTERSUCHEN, OB WERT<br />
I (HL) GRöSSER GLEICH +1<br />
EXPONENTENZÄHLER MERKEN<br />
IZAHL (HL) AUFBEREITEN<br />
I IN ASCII, WENN OHNE<br />
I EXPONENTEN MöGLICH<br />
IREST ZAHL AUFBEREITEN<br />
I IN ASCII<br />
EXPONENTENZÄHLER HOLEN<br />
ZEIGER AUF ANFANG ZAHL<br />
NACH DE<br />
EIN ZEICHEN ZAHL<br />
ENDE ZAHLTEXT ?<br />
JA<br />
ZEIGER AUF ZAHLTEXT<br />
ENDE ZAHLTEXT SUCHEN<br />
ZEIGER AUF LETZTE STELLE<br />
STELLE HOLEN<br />
ZEIGER AUF FREIE STELLE<br />
STELLE GLEICH NULL ?<br />
NEIN<br />
EXPONENTENZÄHLER PLUS EINS<br />
ZEIGER AUF ZAHLTEXT<br />
E (Exponent)<br />
EINTRAGEN<br />
ZEIGER FüR ZAHLTEXT<br />
EXPONENTENZÄHLER HOLEN<br />
+ (Vorzeichen plus)<br />
ZÄHLER POSITIV ?<br />
EXPONENT POSITIV<br />
12er COMPLEMENT DES<br />
I EXPONENTENZÄHLERS BILDEN<br />
- (Vorzeichen minus)<br />
VORZEICHEN EXPONENT EINTR.<br />
ZEIGER FüR ZAHLTEXT<br />
IERSTE STELLE EXPONENT<br />
I VORGEBEN<br />
I STELLENWERT VOM ZÄHLER<br />
I ABZIEHEN<br />
15895 3E17 38<br />
15896<br />
15897 3E19 34<br />
15898 3E1A 18<br />
15899<br />
15900 3E1C C6<br />
15901<br />
15902 3E1E 23<br />
15903 3E1F 77<br />
15904 3 E20 23<br />
15905 3 E21 36<br />
15906<br />
15907 3E23 Dl<br />
15908 3E24 C9<br />
Hex - Wert<br />
15909 3E25 E5<br />
15910 3E26 5E<br />
15911 3E27 23<br />
15912 3E28 56<br />
15913 3E29 EB<br />
15914 3E2A CD<br />
15915<br />
15916<br />
15917 3E2D EI<br />
15918 3E2E C9<br />
Hex - Wert<br />
15919 3E2F 11<br />
15920<br />
15921<br />
15922 3E32 D5<br />
15923 3E33 CD<br />
15924<br />
15925<br />
15926 3E36 Dl<br />
15927 3E37 C3<br />
15928<br />
15929<br />
Integer <br />
15930 3E3A E5<br />
15931 3E3B 5E<br />
15932 3E3C 23<br />
15933 3E.3D 56<br />
15934 3E3E CS<br />
15935<br />
15936 3E40 28<br />
15937<br />
15938 3E42 2 1<br />
15939<br />
15940<br />
1594 1 3E45 B7<br />
15942 3E46 ED<br />
15943<br />
15944 3E48 CD<br />
BASIC 1Z<br />
03 JR C,<br />
INC (H<br />
F9 JR F9<br />
3A ADD A<br />
INC HL<br />
INC HL<br />
LD (H<br />
00 LD (H<br />
POP DE<br />
RET<br />
CHL) umsetzen<br />
PUSH<br />
LD E.<br />
INC HL<br />
LD D.<br />
EX DE<br />
2F 3E CALL 3<br />
POP HL<br />
RET<br />
in HL um setze~<br />
26 6A LD DE<br />
PUSH<br />
86 3 D CALL<br />
POP DE<br />
9E 40 JP 409<br />
Wert CHL) umsetz<br />
PUSH<br />
LD E.<br />
INC HL<br />
LD D.<br />
7A BIT 7<br />
E7 JR Z.<br />
00 00 LD HL<br />
OR A<br />
52 SBC H<br />
2F 3E CALL
SEITE 270<br />
BASIC 1Z-013B<br />
15945<br />
15946<br />
15947 3E4B 1B OEC OE<br />
15948 3E4C 3E 20 LO A, 20<br />
15949<br />
15950 3E4E 12 LO <br />
15970 3E62 20 05 JR NZ, 05 ~ 15971<br />
15972 3E64 23 INC HL<br />
15973 3E65 10 FA DJNZ FA ~ 3E61H<br />
15974<br />
15975 3E67 18 09 JR 09 ~ 3E72H<br />
15976<br />
15977 3E69 78 LD A.B<br />
15978 3E6A 32 81 6A LD (6A8l>. A<br />
15979<br />
15980<br />
15981 3E60 3E 01 LD A. 01<br />
15982<br />
15983 3E6F 32 82 6A LD (6A82).A<br />
15984<br />
15985<br />
15986 3E72 3E 2E LD A. 2E<br />
15987<br />
15988 3E74 32 36 6A LD (6A36).A<br />
15989<br />
15990<br />
15991 3E77 EI POP HL<br />
15992 3E78 CD DA 3C CALL 3CDA<br />
15993<br />
15994<br />
15995 3E7B C3 FF 3F JP 3FFF<br />
15996<br />
15997<br />
V1.0A<br />
ISETZEN IN ASCII NACH<br />
I ZWISCHENSPEICHER<br />
ZEIGER AUF STELLE VOR ZAHL<br />
(Vorzeichen Minus)<br />
VOR ASCII-ZAHLWERT EINTR.<br />
ZEIGER AUF INTEGER-ZAHLWERT<br />
ZEIGER AUF REAL-ZAHLWERT<br />
IREAL-ZAHL (HL) UMSETZEN<br />
I IN 15-BIT-INTEGER<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
MERKEN <br />
I INTEGER-WERT IN HL <br />
IUMSETZEN IN ASCII (DE) <br />
ZEIGER AUF ASCII-TEXT<br />
o (NULL><br />
FüNF ZEICHEN VERGLEICHEN<br />
STELLE GLEICH NULL ? <br />
RELEVANTE STELLE <br />
ZEIGER AUF ZAHL<br />
WEITERE STELLEN VERGLEICHEN<br />
ZAHL IST NULL<br />
RELEVANTE ANZAHL STELLEN<br />
MERKEN<br />
CODE STELLEN VORHANDEN<br />
FLAG STELLEN ANGEGEBEN<br />
;.
SEITE 272<br />
BASIC 1Z-013B V1_0A<br />
16054<br />
16055<br />
16056<br />
16057<br />
16058<br />
16059<br />
16060<br />
16061<br />
16062<br />
16063<br />
16064<br />
16065<br />
16066<br />
16067<br />
16068<br />
16069<br />
3EB7<br />
3EB8<br />
3EBB<br />
3EBE<br />
3ECO<br />
3EC3<br />
3EC4<br />
EI<br />
11 6E<br />
CO 8A<br />
30 06<br />
CD OA<br />
05<br />
18 F2<br />
6A<br />
3C<br />
3D<br />
POP HL<br />
LD OE. 6A6E<br />
CALL 3C8A<br />
JR NC. 06 ~ 3EC6H<br />
CALL 300A<br />
OEC B<br />
JR F2 ~ 3EB8H<br />
ZEIGER AUF REAL-WERT<br />
I ZEIGER AUF<br />
I NORM I ERUNGSFAKTOR<br />
I ZAHLEN (HL) UND (OE)<br />
I VERGLE I CHEN<br />
I REAL-WERT GRöSSER<br />
I NORMIERUNGSFAKTOR<br />
REAL-ZAHL (HL) MAL 10<br />
EXPONENTENZÄHLER MINUS EINS<br />
TESTEN. OB WERT NORMIERT<br />
16070<br />
16071<br />
16072<br />
16073<br />
3EC6<br />
3EC7<br />
3EC8<br />
Dl<br />
C5<br />
CD 23 3F<br />
POP OE<br />
PUSH BC<br />
CALL 3F23<br />
O=VORKOMMA E=NACHKOMMAANZAH<br />
REGISTER RETTEN<br />
WERT AUFBEREITEN IN ASCII<br />
16074<br />
16075 3ECB Cl POP BC GERETTETES REGISTER HOLEN<br />
16076 3ECC 05<br />
PUSH OE<br />
ZEIGER AUF ASCII-ZAHL<br />
16077 3ECO lA<br />
LO A. <br />
16108 3EEC 2B<br />
OEC HL<br />
16109 3EEO FE 2E CP 2E<br />
16110<br />
16111 3EEF 3E 30<br />
LO A. 30<br />
16112<br />
16113 3EFl 28 02 JR Z. 02 + 3EF5H<br />
NICHT Dezimalpunkt<br />
I ZEIGER AUF<br />
10EZIMALUNKTSTELLE<br />
ZEIGER AUF VORKOMMASTELLE<br />
EINE VORKOMMASTELLE HOLEN<br />
1 ' (EINS)<br />
I ZEIGER AUF ANFANG ZAHL<br />
I<br />
VORKOMMASTELLEN VORHANDEN<br />
STELLE FüR VORZEICHEN<br />
1 (Eins)<br />
ZEIGER AUF VORZEICHENSTELLE<br />
EXPONENTEN EINTRAGEN<br />
EINE NACHKOMMASTELLE<br />
ZEIGER AUF NACHKOMMASTELLEN<br />
EINE NACHKOMMASTELLE<br />
ZEIGER AUF NACHKOMMASTELLEN<br />
(Dezimalpunkt)<br />
o (Null)<br />
BASIC 1Z<br />
16114<br />
16115<br />
16116<br />
16117<br />
16118<br />
16119<br />
16120<br />
16121<br />
16122<br />
16123<br />
16124<br />
16125<br />
16126<br />
16127<br />
16128<br />
16129<br />
16130<br />
3EF3<br />
3EF5<br />
3EF6<br />
3EF7<br />
3EF8<br />
3EFA<br />
3EFC<br />
3EFE<br />
3EFF<br />
3FOO<br />
3FOl<br />
3F02<br />
3E<br />
77<br />
23<br />
7E<br />
FE<br />
28<br />
36<br />
EB<br />
04<br />
lA<br />
13<br />
B7<br />
20<br />
2E<br />
FA<br />
31<br />
LO A,<br />
LO (HL<br />
INC HL<br />
LO A,<br />
CP 2E<br />
JR Z.<br />
LD (H<br />
EX OE<br />
INC B<br />
LO A.<br />
INC OE<br />
OR A<br />
16131 3F03 20 FB JR NZ<br />
16132<br />
16133 3F05<br />
16134 3F06<br />
16135<br />
16136<br />
IB<br />
C3 02 3E<br />
OEC O<br />
JP 3E<br />
Zahl in Real-Format ohne<br />
16137 3F09<br />
16138 3FOA<br />
16139<br />
16140<br />
161 41 3FOO<br />
16142 3FOE<br />
16 143 3FOF<br />
16144 3FI0<br />
16145 3Fl1<br />
16146<br />
16147<br />
16148 3F14<br />
16149 3F15<br />
16150<br />
16151 3F17<br />
16152 3F18<br />
16153<br />
16154<br />
16155 3F1B<br />
16156 3FIC<br />
16157<br />
16158 3FIE<br />
16159 3FIF<br />
16160<br />
16161 3F21<br />
16162 3F22<br />
D5<br />
CD 23 3F<br />
Fl<br />
B7<br />
CO<br />
E5<br />
21 36 6A<br />
2B<br />
3E 30<br />
BE<br />
C2 OB 2A<br />
2B<br />
3E 20<br />
BE<br />
20 F7<br />
El<br />
C9<br />
PUSH<br />
CALL<br />
POP A<br />
OR A<br />
RET N<br />
PUSH<br />
LO HL<br />
OEC H<br />
LO A.<br />
CP (H<br />
JP NZ<br />
OEC H<br />
LO A.<br />
CP (H<br />
JR NZ<br />
POP H<br />
RET<br />
Zahl aufbereiten in ASCII<br />
161 63<br />
16164<br />
16165<br />
161 66<br />
16167<br />
3F23<br />
3F24<br />
3F27<br />
05<br />
CD<br />
DA<br />
AF<br />
DB<br />
3F<br />
2A<br />
PUSH<br />
CALL<br />
JP C.
SEITE<br />
16168<br />
16169<br />
16170 3F2A<br />
16171 3F2B<br />
16172 3F2C<br />
16173<br />
16174 3F2E<br />
16175 3F2F<br />
16176<br />
16177 3F31<br />
16178 3F32<br />
16179<br />
16180<br />
16181 3F35<br />
16182 3F36<br />
16183 3F37<br />
16184<br />
16185 3F39<br />
16186<br />
16187<br />
16188 3F3C<br />
16189<br />
16190 3F3E<br />
16191<br />
16192 3F40<br />
16193 3F41<br />
16194 3F42<br />
16195<br />
16196 3F44<br />
16197<br />
16198 3F46<br />
16199 3F47<br />
16200<br />
16201<br />
16202 3F4A<br />
16203 3F4B<br />
16204<br />
16205 3F4D<br />
16206<br />
16207 3F4F<br />
16208<br />
16209<br />
16210 3F52<br />
16211<br />
16212<br />
16213 3F55<br />
16214 3F56<br />
16215 3F57<br />
16216 3F58<br />
16217<br />
16218 3F5A<br />
16219 3F5B<br />
16220 3F5C<br />
16221 3F5D<br />
16222<br />
16223 3F5F<br />
16224<br />
16225<br />
16226 3F62<br />
16227 3F63<br />
16228 3F64<br />
16229<br />
274<br />
BASIC 1Z-013B<br />
El POP HL<br />
E5 PUSH HL<br />
26 00 LD H. 00<br />
2C INC L<br />
28 01 JR Z. 01 + 3F32H<br />
2D DEC L<br />
11 37 6A LD OE. 6A37<br />
19 ADD HL.DE<br />
7E LD A. (HU<br />
36 00 LD (HU. 00<br />
11 36 30 LD DE. 3036<br />
(36 30) (LD (HU. 30)<br />
FE 35 CP 35<br />
38 OF JR C. OF + 3F4FH<br />
2B DEC HL<br />
7E LD A. (HU<br />
FE 2E CP 2E<br />
28 FA JR Z. FA + 3F40H<br />
3C INC A<br />
CA DB 2A JP Z. 2ADB<br />
77 LD (HU.A<br />
FE 3A CP 3A<br />
28 EB JR Z. EB + 3F3AH<br />
21 OE 11 LD HL. 110E<br />
11 00 20 LD DE. 2000<br />
72 LD (HU.D<br />
23 INC HL<br />
ID DEC E<br />
20 FB JR NZ. FB + 3F55H<br />
E1 POP HL<br />
E5 PUSH HL<br />
SC LD E.H<br />
16 00 LD D. 00<br />
21 OF 11 LD HL . 110F<br />
19 ADD HL.DE<br />
E5 PUSH HL<br />
21 2D 6A LD HL. 6A2D<br />
V1.0A<br />
I üBERLAUF FEHLER<br />
IH ANZAHL VORKOMMASTELLEN<br />
IL ANZAHL NACHKOMMASTELL.<br />
ANZAHL NACHKOMMASTELLEN<br />
I ZEIGER AUF ERSTE AUFBE<br />
IREITETE NACHKOMMASTELLE<br />
ZEIGER AUF LETZTE STELLE<br />
STELLE HOLEN<br />
TEXTENDE EINTRAGEN<br />
I (I ST BESSER ALS SPRUNG)<br />
INULL EINTRAGEN<br />
5 (4/5tel RUNDUNG)<br />
NICHT RUNDEN<br />
ZEIGER AUF VORHERIGE STELLE<br />
STELLE HOLEN<br />
(Dezimalpunkt)<br />
JA + ZIFFER SUCHEN<br />
STELLE PLUS EI NS<br />
IZAHLANFANG +<br />
I üBERLAUF-FEHLER<br />
NEUE ZIFFER EINTRAGEN<br />
üBERLAUF AUFGETRETEN<br />
IJA + AUF VORHERIGE<br />
I STELLE ADDIEREN<br />
I ZEIGER AUF SPEICHER FüR<br />
I AUFBEREITUNG NACH FORMAT<br />
120 Space<br />
100 256 Zeichen<br />
IZWISCHENSPEICHER MIT<br />
ISpace VORINITIIEREN<br />
1<br />
1<br />
IH = ANZAHL VORKOMMASTELLEN<br />
IL = ANZAHL NACHKOMMASTELL.<br />
ANZAHL VORKOMMASTELLEN<br />
1 ZEIGER AUF SPEICHER FüR<br />
IFORMATIERTE ZAHL<br />
ZEIGER AUF DEZIMALPUNKTST.<br />
DEZIMALPUNKTSTELLE MERKEN<br />
ZEIGER AUF ASCII-ZAHL<br />
16230<br />
16231 3F67<br />
16232<br />
16233 3F69<br />
16234 3F6A<br />
16235<br />
16236 3F6C<br />
16237 3F6D<br />
16238<br />
16239 3F6F<br />
162 40<br />
16241 3F71<br />
16242<br />
16243 3F73<br />
16244 3F74<br />
16245 3F75<br />
16246<br />
16247 3F77<br />
16248 3F78<br />
16249 3F79<br />
16250 3F7A<br />
16251 3F7B<br />
16252 3F7C<br />
16253<br />
16254 3F7E<br />
16255<br />
16256<br />
16257 3F81<br />
16258 3F82<br />
16259 3F8 3<br />
16260 3F84<br />
16261 3F85<br />
16262<br />
16263 3F87<br />
16264<br />
16265 3F89<br />
16266<br />
16267 3F8B<br />
16268 3F8C<br />
16269 3F8D<br />
16270<br />
16271 3F8F<br />
16272<br />
16273 3F91<br />
16274 3F92<br />
16275<br />
16276<br />
16277 3F95<br />
16278 3F96<br />
16279 3F97<br />
16280 3F98<br />
16281<br />
16282 3F9A<br />
16283 3F98<br />
16284<br />
16285<br />
16286 3F9E<br />
16287<br />
16288 3FAO<br />
16289 3FA 1<br />
16290 3 FA2<br />
16291<br />
BASIC<br />
36 20<br />
~ ....<br />
L·J<br />
16 07<br />
7E<br />
FE 30<br />
20 06<br />
36 20<br />
23<br />
15<br />
20 F5<br />
E1<br />
E5<br />
43<br />
78<br />
B7<br />
28 17<br />
11 3 6 6A<br />
2B <br />
1B <br />
lA <br />
77 <br />
FE 20 <br />
28 OC<br />
10 F6<br />
18 <br />
1A <br />
FE 20 <br />
28 04<br />
3C <br />
C2 DB 2A <br />
E1 <br />
Dl <br />
lC <br />
28 OF <br />
43 <br />
11 37 6A <br />
36 2E<br />
..::;.,) <br />
05 <br />
28 05 <br />
1Z<br />
LD (HU<br />
INC HL<br />
LD D. 0<br />
LD A. (H<br />
CP 30<br />
JR NZ.<br />
LD (HU<br />
INC HL<br />
DEC D<br />
JR NZ.<br />
POP HL<br />
PUSH HL<br />
LD B.E<br />
LD A.B<br />
OR A <br />
JR Z.<br />
LD DE,<br />
DEC HL<br />
DEC DE<br />
LD A. <<br />
LD (HU<br />
CP 20<br />
JR Z.<br />
DJNZ F<br />
DEC DE<br />
LD A. <<br />
CP 20<br />
JR Z.<br />
INC A<br />
JP NZ,<br />
POP HL<br />
POP DE<br />
INC E<br />
JR Z,<br />
LD B,E<br />
LD DE,<br />
LD (H<br />
INC HL<br />
DEC B<br />
JR Z,
SEITE 276<br />
BASIC 1Z-013B V1_0A<br />
16292 3FA4 1A LD A. (DE) lEINE NACHKOMMASTELLE<br />
162 93 3FA5 13 INC OE I üBERTRAGEN<br />
16294 3FA6 77 LD (HL>. A I<br />
16295 3FA7 18 F7 JR F7 ~ 3FAOH I UNTERSUCHEN. OB WEITERE<br />
16296 INACHKOMMASTELLEN<br />
16297 3FA9 36 00 LD (HL>. 00 TEXTENDEZEICHEN EINTRAGEN<br />
16 298<br />
16299 3FAB 11 OF 11 LD DE. 110F I ZEIGER AUF ANFANG AUF BE<br />
16300 IREITETE ZAHL IM USING<br />
1630 1 I FORMAT (TEILWEISE)<br />
163 02 3 FAE C9 RET<br />
Zahl aufbereiten in ASCII. wenn ohne Exponent möglich<br />
16303 3FAF 22 7E 6A LD (6A7E).HL ZEIGER AUF REAL-ZAHLWERT<br />
16304<br />
16305<br />
16306 3FB2 AF XOR A ACCU AUF NULL<br />
16307 3FB 3 32 81 6A LD (6A81).A ANZAHL VORKOMMASTELLEN<br />
163 08<br />
16309<br />
163 10 3 FB6 32 8 2 6A LD (6A82).A FLAG STELLE AUFBEREITET<br />
163 11<br />
16312<br />
16313 3 FB9 E5 PUSH HL ZEIGER AUF REAL-ZAHLWERT<br />
1631 4 3 FBA 2 1 2D 6A LD HL. 6A2D I ZEIGER AUF ZWISCHEN<br />
163 15 I SPEICHER FüR ASCII<br />
1631 6 IZAHLWERT<br />
163 17 3 FBD 36 FF LD (HL>. FF CODE ZAHLANFANG EINTRAGEN<br />
163 18<br />
163 19 3FBF 06 2 1 LD B. 2 1 33 ZE I CHEN LÄNGE<br />
16320<br />
16321 3 FC1 3E 3 0 LD A. 30 o (NULL><br />
1632 2<br />
16323 3 FC3 23 INC HL I SPEICHER MIT NULL<br />
16324 3 FC4 77 LD (HL>. A I VORINITIIEREN<br />
16325 3FC5 10 FC DJNZ FC ~ 3 FC3 H I<br />
16326<br />
16327 3FC7 3E 2E LD A. 2E (Dezimal punkt)<br />
16328<br />
16329 3FC9 32 36 6A LD (6A36).A EINTRAGEN<br />
16330<br />
16331<br />
16332 3FCC E1 POP HL ZEIGER AUF REAL-ZAHL<br />
16333 3 FCD 7E LD A. (HL> EXPONENTEN HOLEN<br />
16334 3FCE B7 OR A GLEICH NULL ?<br />
16335 3 FCF C8 RET Z ZAHL GLEICH NULL<br />
1633 6 3 FDO 11 4F 3 D LD DE. 3D4F ZEIGER AUF .1E+09 (Real)<br />
16337<br />
1633 8<br />
16339 3FD3 CD 4A 5E CALL 5E4A IZAHLEN (HL) UND (DE)<br />
16340 I VERGLE I CHEN<br />
16341<br />
16342 3FD6 3F CCF ERGEBNIS UMKEHREN<br />
16343 3FD7 D8 RET C ZU GROSS FüR OHNE EXPONENT<br />
16344 3FD8 11 81 3D LD DE. 3D81 ZEIGER AUF .1E- 07 (Real)<br />
16345<br />
16346<br />
163 47 3FDB CD 4A 5E CALL 5E4A IZAHLEN (HL) UND (DE)<br />
163 48 I VERGLEICHEN<br />
163 49<br />
16350 3 FDE<br />
16351 3FDF<br />
16352<br />
16353<br />
16354 3FE2<br />
16355 3FE3<br />
16356<br />
163 57<br />
163 58 3FE6<br />
16359 3FE7<br />
16360 3FE8<br />
16361<br />
16362 3 FEA<br />
16363<br />
163 64 3FEC<br />
163 65<br />
16366 3FEE<br />
16367<br />
16368<br />
16369 3FF1<br />
16370<br />
16371<br />
16372<br />
16373 3FF5<br />
16374<br />
16375<br />
16376 3FF8<br />
16377<br />
16378<br />
16379 3FFB<br />
16380<br />
16381<br />
16382 3FFE<br />
16383 3FFF<br />
16384<br />
16385<br />
16386<br />
16387 4003<br />
16388<br />
16389<br />
16390 4006<br />
16391 4007<br />
16392<br />
16393 4009<br />
16394<br />
16395<br />
16396 400C<br />
16397<br />
16398 400E<br />
16399 400F<br />
16400<br />
16401<br />
16402 401 2<br />
16403<br />
16404<br />
16405 4015<br />
16406<br />
16407<br />
16408 4018<br />
16409<br />
16410 401A<br />
BASIC<br />
D8<br />
11 6E 6A<br />
D5<br />
CD 88 3A<br />
E1<br />
7E<br />
FE 81<br />
3 8 13<br />
FE 90<br />
DA 51 3E<br />
DD 21 2E 6A<br />
11 54 3D<br />
CD C6 40<br />
CD F8 40<br />
00<br />
DD 21 3 7 6A<br />
11 4F 3 ~<br />
C5<br />
DD E5<br />
CD E1 5F<br />
DD E1 <br />
Cl <br />
CD AD 3 A <br />
CD C6 40<br />
CD F8 40<br />
38 E9 <br />
C9 <br />
1Z-<br />
RET C<br />
LD OE.<br />
PUSH OE<br />
CALL 3A<br />
POP HL<br />
LD A. (H<br />
CP 81<br />
JR C. 1<br />
CP 90<br />
JP C. 3<br />
LD IX.<br />
LD DE.<br />
CALL 40<br />
CALL 40<br />
RET NC<br />
LD IX.<br />
LD DE.<br />
PUSH BC<br />
PUSH IX<br />
CALL 5F<br />
POP IX<br />
POP BC<br />
CALL 3A<br />
CALL 40<br />
CALL 40<br />
JR C.<br />
RET
SEITE 278<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z-<br />
Real - Zahl (HL) umsetzen in AACCI nac Zwischenspeicher 16465<br />
16466 4052 18 F5 JR F5 ~<br />
16411 401B 3E 05 LD A, 05 CODE REAL - WERT 16467<br />
16412<br />
16413 4010 32 65 6A 16414<br />
LD (6A65),A WERT - FLAG<br />
16468 4054 FE 30 CP 30<br />
16415<br />
16416<br />
16417<br />
16418<br />
16419<br />
16420<br />
16421<br />
16422<br />
16423<br />
16424<br />
16425<br />
16426<br />
16427<br />
16428<br />
16429<br />
16430<br />
16431<br />
1643 2<br />
16433<br />
16434<br />
16435<br />
16436<br />
16437<br />
16438<br />
4020<br />
4021<br />
4024<br />
4025<br />
4028<br />
4029<br />
402C<br />
402F<br />
4030<br />
4031<br />
4034<br />
4035<br />
4036<br />
E5<br />
11 76 6A<br />
D5<br />
CD<br />
EI<br />
CD<br />
CD<br />
EI<br />
C9<br />
11<br />
12<br />
1 B<br />
C9<br />
B8 3A<br />
AF<br />
37<br />
3 F<br />
40<br />
PUSH HL<br />
LD OE, 6A76<br />
PUSH OE<br />
CALL 3AB8<br />
POP HL<br />
CALL 3FAF<br />
CALL<br />
POP<br />
RET<br />
HL<br />
4037<br />
36 6A LD OE, 6A36<br />
LD (DE),A<br />
DEC DE<br />
RET<br />
Rest der Real - Zahl aufbereiten in ASCII<br />
16439 4037 DA C7 3D<br />
16440<br />
16441<br />
16442 403A 2A 7E 6A<br />
16443<br />
16444<br />
16445 403D 7E<br />
16446 403E B7<br />
16447 403F 28 FO<br />
16448<br />
16449 4041 11 2E 6A<br />
16450<br />
16451<br />
16452 4044<br />
16453 4045<br />
16454 4046<br />
16455<br />
16456<br />
16457<br />
16458<br />
16459<br />
16460<br />
16461<br />
16462<br />
16463<br />
16464<br />
4049<br />
404A<br />
404B<br />
IB<br />
EB<br />
11 01 00<br />
23<br />
7E<br />
FE<br />
JP C, 3DC7<br />
LD HL, (6A7E)<br />
LD A, (HL)<br />
OR A<br />
JR Z, FO ~ 4031H<br />
LD DE, 6A2E<br />
DEC DE<br />
EX DE,HL<br />
LD DE, 0001<br />
INC HL<br />
LD A, (HU<br />
CP 2E<br />
ZEIGER AUF REAL-ZAHL<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER FüR REAL-ZAHL<br />
MERKEN<br />
I REAL-ZAHL VON (HL) NACH<br />
I (OE) üBERTRAGEN<br />
ZEIGER AUF REAL-ZAHL<br />
I REAL-ZAHL UMSETZEN IN<br />
IASCII, WENN OHNE<br />
I EXPONENT MöGLICH<br />
IREAL ZAHL AUFBEREITEN<br />
I IN ASCI I<br />
ZEIGER AUF REAL-ZAHL<br />
I ZEIGER AUF<br />
IDEZIMALPUNKTSTELLE<br />
TEXTENDE EINTRAGEN<br />
ZEIGER AUF NULL<br />
I REAL-ZAHL UMSETZEN IN<br />
IASCII IN EXPONENTlAL<br />
I DARSTELLUNG<br />
ZEIGER AUF REAL- ZAHL HOLEN<br />
EXPONENT REAL-ZAHL<br />
GLEICH NULL ?<br />
IJA ~ TEXTENDE AUF<br />
IDEZIMALPUNKT EINTRAGEN<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER MIT ASCII-ZAHL<br />
FüR SCHLEIFE CORRIGIEREN<br />
NACH HL<br />
I VORGABE FüR ZÄHLER<br />
I ANZAHL VORKOMMASTELLEN<br />
ZEIGER AUF ASCII-ZAHL<br />
EINE ZIFFER HOLEN<br />
(Dezimal punkt) ?<br />
16469<br />
16470<br />
16471<br />
16472<br />
16473<br />
16474<br />
16475<br />
16476<br />
16477<br />
16478<br />
16479<br />
16480<br />
16481<br />
16482<br />
16483<br />
16484<br />
16485<br />
16486<br />
4056<br />
4058<br />
4059<br />
405C<br />
4050<br />
405E<br />
4060<br />
4062<br />
406'+<br />
4065<br />
4066<br />
28<br />
19<br />
11<br />
Fl<br />
19<br />
7E<br />
36 30<br />
FE<br />
38<br />
08 00<br />
35<br />
OF<br />
28<br />
7E<br />
FE 2E<br />
JR Z, F<br />
AOD HL,D<br />
LD DE, 0<br />
ADD HL,D<br />
LD A, (H<br />
LD (HU<br />
CP<br />
JR<br />
35<br />
C, O<br />
DEC HL<br />
LD A, (H<br />
CP 2E<br />
16487<br />
16488 4068 28 FA JR Z. FA<br />
16489<br />
16490<br />
16491<br />
16492<br />
16493<br />
16494<br />
406A<br />
406B<br />
4060<br />
406E<br />
16495<br />
16496 4070<br />
16497<br />
16498 4072<br />
16499 4073<br />
16500<br />
16501<br />
16502 4076<br />
16503 4077<br />
16504 4078<br />
16505<br />
16506 407A<br />
16507 407B<br />
16508<br />
16509 407D<br />
165 10<br />
1651 1<br />
16512 4080<br />
16513<br />
16514 4082<br />
16515 4083<br />
16516 4084<br />
16517<br />
16518<br />
16519<br />
16520<br />
16521<br />
16522<br />
4086<br />
4087<br />
3C<br />
28<br />
77<br />
FE<br />
40<br />
3 A<br />
28 EC<br />
23<br />
11 36 6A<br />
EB<br />
B7<br />
ED 52<br />
EB<br />
38 05<br />
21 36 6A<br />
18 17<br />
2B<br />
7E<br />
FE 2E<br />
2B<br />
28<br />
INC A<br />
JR Z, 4<br />
LD (HU<br />
CP 3A<br />
JR Z, E<br />
INC HL<br />
LD DE,<br />
EX DE,H<br />
oR A<br />
SBC HL,<br />
EX DE,H<br />
JR C, 0<br />
LD HL,<br />
JR 17<br />
DEC HL<br />
LD A. (H<br />
CP 2E<br />
DEC HL<br />
JR Z. O<br />
2E<br />
OF<br />
404D 20 05 JR NZ, 05 ~ 4054H NICHT DEZIMALPUNKT<br />
4089 23<br />
INC HL<br />
408A FE 30<br />
CP 30<br />
404F 11 00 00 LO DE, 0000 CODE KEINE VORKOMMASTELLEN 16523<br />
16524 408C 28 E5 JR Z. E
SEITE 280<br />
BASIC 1Z-013B<br />
16525<br />
16526 408E E5 PUSH HL<br />
16527 408F 11 3F 6A LD OE, 6A3F<br />
16528<br />
16529<br />
16530 4092 ED 52 SBC HL,OE<br />
16531<br />
16532 4094 EI POP HL<br />
16533 4095 D2 C7 3D JP NC, 3DC7<br />
16534<br />
16535<br />
16536 4098 23 INC HL<br />
16537 4099 36 00 LD (HU, 00<br />
16538<br />
16539 4098 11 2E 6A LD DE, 6A2E<br />
16540<br />
16541<br />
16542 409E 1A LD A,
16636<br />
16637<br />
16639<br />
16641 4101 00<br />
16644<br />
16645<br />
16647<br />
16648<br />
16650<br />
16652<br />
16655<br />
16656<br />
16658<br />
16660<br />
16661<br />
16664<br />
16665<br />
Befehl LIST<br />
16666 411A 3A CB 40 LD A, (40CB)<br />
1666'7<br />
16668<br />
16670<br />
16672<br />
16673<br />
16675<br />
16676<br />
16678<br />
16679<br />
16680<br />
16682<br />
16683<br />
16684<br />
16687<br />
16688<br />
16696<br />
16714<br />
16716<br />
16722<br />
16724<br />
16725<br />
16728<br />
16734<br />
16739<br />
16740<br />
16742<br />
16743<br />
16745<br />
16746<br />
INC HL<br />
LD HL,<br />
POP HL<br />
LD HL,<br />
JR NC,<br />
CALL 2<br />
16702 413E E8 EX OE,HL<br />
16736 4160 EB EX DE,H<br />
LD E, (HL<br />
2A BF 6A LD HL, (6<br />
PUSH HL<br />
BASIC 1Z -<br />
16689 4131 5E<br />
16690 4132 23<br />
16691 4133 56 LO 0, (HL<br />
JP Z, 41<br />
16697<br />
16698 413A EB EX DE,HL<br />
19 ADD HL,D<br />
LO 0, (H<br />
LD E, (H<br />
PUSH HL<br />
16703 413F 05 PUSH OE<br />
16701 4130 2B DEC HL <br />
16707 4143 23 INC HL<br />
16705 4141 23 INC HL<br />
16692 4134 23 INC HL<br />
16693 4135 7A LD A,D<br />
16694 4136 B3 OR E<br />
16699 4138<br />
16700 413C 2B OEC HL<br />
16713 4149 EO 52 SBC HL,<br />
16715 414B 38 06 JR C, 0<br />
16717 4140 28 04 JR Z, 0<br />
16720 4150 E1 POP HL<br />
16721 4151 18 OE JR OE<br />
16712 4148 B7 OR A<br />
16723 4153 21 00 00<br />
16726 4156 B7 OR A<br />
16727 4157 EO 52 S8C HL,<br />
16729 4159 30 04<br />
16730<br />
16735 415F EI POP HL<br />
16737 4161 05 PUSH O<br />
22 E2 38 LD (38<br />
16731 415B EI POP HL<br />
16732 415C EI POP HL<br />
16695 4137 CA A5 41<br />
16708 4144 E5<br />
16706 4142 56<br />
16685 4120 E5<br />
SEITE 282<br />
BASIC 1Z-013B V1.0A<br />
UberprUfen, ob Restwert gleich Null oder schon neun Stellen<br />
(Maximal Anzahl plus eine Stelle zum Runden) aufbereitet 16686 412E<br />
16632 40F8 7E LO A, (HLl<br />
16633 40F9 87 OR A<br />
16634 40FA C8 RET Z<br />
16635 40FB 3A 81 6A LD A, (6A81)<br />
EXPONENT RESTWERT HOLEN<br />
GLEICH NULL ?<br />
RESTWERT GLEICH NULL<br />
I ANZAHL AUF8EREITETE<br />
I STELLEN<br />
16638 40FE FE 09 CP 09 GLEICH NEUN ?<br />
16640 4100 C9 RET<br />
16642 4102 AF XOR A<br />
16643 4103 32 19 18 LO (1819) ,A<br />
16646 4106 CO 14 54 CALL 5414<br />
16649 4109 FE FB CP FB<br />
ACCU AUF NULL 16704 4140 5E<br />
AUSGABE - FLAG<br />
16651 4108 20 15 JR NZ, 15 ~ 4122H NICHT I<br />
16653 4100 23 INC HL<br />
16654 410E CD 14 54 CALL 5414<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I NÄCHSTES RELEVANTES 16709 4145 21 00 00<br />
16719 414F EI<br />
16738 4162<br />
16741 4165 CD A7 21<br />
16744 4168 CD E2 17 CALL 1<br />
I ZEICHEN STELLEN 16710<br />
16711<br />
I (Zwischencode)<br />
I üBERSPRINGEN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I NÄCHSTES RELEVANTES<br />
16657 4111 FE 50 CP 50 P (Printer)<br />
16659 4113 C2 FE 20 JP NZ, 20FE IFALSCHES ZEICHEN ~<br />
16662 4116 23 INC HL<br />
16663 4117 32 19 18 LO (1819>,A<br />
I ZEICHEN SETZEN 16718<br />
I SYNTAX - FEHLER<br />
PROGRAM<strong>MZ</strong>EIGER<br />
IP IM AUSGA8EFLAG MERKEN<br />
DRUCKER-MODUS-FLAG<br />
16669 4110 FE 02 CP 02<br />
IM GRAPHIK-MODUS ?<br />
16671 411F CA F7 4F JP Z, 4FF7<br />
IJA" FEHLER 68 16733 415D 18 46 JR 46<br />
I DRUCKER MODUS FEHLER<br />
16674 4122 CD EF 35 CALL 35EF<br />
I ANFANGS- UND ENOZEILEN<br />
I NUMMER BEREITSTELLEN<br />
16677 4125 EO 53 46 41 LO (4146),OE<br />
IANFANGSZEILENNUMMER<br />
I IN ROUTINE EINTRAGEN<br />
16681 4129 EO 43 54 41 LO (4154),BC<br />
I ENDZEILENNUMMER<br />
I IN ROUTINE EINTRAGEN
SEITE<br />
16747 416B<br />
16748<br />
16749 4160<br />
16750<br />
16751<br />
16752 4170<br />
16753 4171<br />
16754<br />
16755<br />
16756 4174<br />
16757 4175<br />
16758<br />
16759<br />
16760 4178<br />
16761 4179<br />
16762<br />
16763<br />
16764 417C<br />
16765 4170<br />
16766<br />
16767 417F<br />
16768 4180<br />
16769 4181<br />
16770<br />
16771 4183<br />
16772<br />
16773<br />
16774 4186<br />
16775 4187<br />
16776<br />
16777 4189<br />
16778<br />
16779<br />
16780 418C<br />
16781<br />
16782<br />
16783 418F<br />
16784 4190<br />
16785 4191<br />
16786<br />
16787<br />
16788 4194<br />
16789<br />
16790 4196<br />
16791<br />
16792 4198<br />
16793<br />
16794 419A<br />
16795<br />
16796<br />
16797 4190<br />
16798 419E<br />
16799 419F<br />
16800<br />
16801<br />
16802 41A2<br />
16803<br />
16804<br />
16805 41A5<br />
16806 41A6<br />
16807 41A7<br />
16808<br />
284<br />
BASIC 1Z-013B<br />
3E 20 LO A, 20<br />
CO 03 17 CALL 1703<br />
El POP HL<br />
11 OF 11 LO DE, 110F<br />
05 PUSH DE<br />
CO CO 49 CALL 49CD<br />
01 POP DE<br />
3A 19 18 LD A. (1819)<br />
B7 ~ 4189H<br />
oR A<br />
20 OA JR NZ, OA lA ~ 418CH<br />
LD A.
SEITE 286<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z-<br />
16863<br />
16864<br />
16865<br />
16866<br />
16867<br />
16868<br />
16869<br />
16870<br />
16871<br />
16872<br />
16873<br />
16874<br />
16875<br />
16876<br />
16877<br />
16878<br />
16879<br />
16880<br />
16881<br />
16882<br />
41DF<br />
41E2<br />
41E5<br />
41E7<br />
41E9<br />
41EB<br />
41ED<br />
41EE<br />
16883<br />
16884 41F4<br />
16885<br />
16886<br />
16887 41F7<br />
16888<br />
16889<br />
16890 41FA<br />
16891 41FB<br />
16892<br />
16893 41FD<br />
16894<br />
16895<br />
16896 4200<br />
16897<br />
16898<br />
16899 4203<br />
16900<br />
16901 4205<br />
16902<br />
16903 4207<br />
16904<br />
16905<br />
16906 420A<br />
16907<br />
16908 420C<br />
16909<br />
16910 420E<br />
16911<br />
16912<br />
16913 4211<br />
16914<br />
16915<br />
16916<br />
16917<br />
16918<br />
16919<br />
16920<br />
16921<br />
16922<br />
16923<br />
16924<br />
CD<br />
3A<br />
FE<br />
28<br />
FE<br />
28<br />
AF<br />
32<br />
3F<br />
FC<br />
01<br />
45<br />
04<br />
DF<br />
47<br />
OF<br />
A3 42<br />
CALL 473F<br />
LD A. . HL<br />
LD A. (OFFC)<br />
CP 02<br />
JR Z. 46 ~ 424DH<br />
LD A. (42A3)<br />
CP 01<br />
JR Z. 42 ~ 4250H<br />
LD HL. (6ABF)<br />
LD (1010).HL<br />
LIMIT - ADRESSE<br />
VORGABE FüR STACK ETC.<br />
CARRY-FLAG ZURüCKSETZEN<br />
I HöCHSTE BENUTZTBARE<br />
IRAM-ADRESSE ERRECHNEN<br />
UND IN ROUTINE EINTRAGEN<br />
PROGRAMMTYP - FLAG HOLEN<br />
<strong>MZ</strong>-80 K BASIC-PROGRAMM<br />
IJA ~ PROGRAMM LADEN<br />
I UND CONVERTIEREN<br />
FLAG LOAD/MERGE/CONVERT<br />
MERGE ?<br />
I PROGRAMM ZUM VORHANDENEN<br />
I PROGRAMM DAZULADEN<br />
I ZEIGER AUF<br />
IBASIC PROGRAMMANFANG<br />
ALS LADEADRESSE EINTRAGEN<br />
4214 ED 4B OE 10 LD BC. (100E) ; PROGRAMMLÄNGE HOLEN<br />
4218<br />
421B<br />
CD<br />
DA<br />
2A<br />
79<br />
00<br />
47<br />
CALL 002A<br />
JP C. 4779<br />
• PROGRAMM VOM BAND LADEN<br />
FEHLER AUFGETRETEN<br />
16942 422E<br />
16943<br />
16944<br />
16945 4231<br />
16946 4232<br />
16947 4233<br />
16948<br />
16949<br />
. 16950<br />
16951 4237<br />
16952 4238<br />
16953<br />
16954 423A<br />
16955<br />
16956 423C<br />
16957<br />
16958<br />
16959 423F<br />
16960 4240<br />
16961 4241<br />
16962<br />
16963<br />
16964<br />
16965 4245<br />
16966<br />
16967<br />
16968 4248<br />
16969<br />
16970<br />
16971 424B<br />
16972 424C<br />
2A<br />
ED<br />
10<br />
5B<br />
19<br />
22 B3<br />
CD 4E<br />
E1<br />
C9<br />
10<br />
OE 10<br />
6A<br />
22<br />
2A 10 10<br />
E5<br />
05<br />
ED 5B BB 6A<br />
B7<br />
ED 52<br />
3E 12<br />
DA 08 21<br />
01<br />
E1<br />
ED 4B OE 10<br />
CD 2A 00<br />
DA 7E 47<br />
E1<br />
C9<br />
LD<br />
LD<br />
HL. (<br />
DE.<br />
ADD HL<br />
LD (6A<br />
CALL 22<br />
POP HL<br />
RET<br />
LD HL.<br />
PUSH H<br />
PUSH O<br />
LD OE.<br />
OR. A<br />
SBt HL<br />
LD A.<br />
JP C.<br />
POP DE<br />
POP HL<br />
LD BC.<br />
CALL 0<br />
JP C.<br />
POP H<br />
RET<br />
<strong>MZ</strong>-80 K BASIC-Programm vo<br />
16973 4240<br />
16974<br />
16975<br />
16976 4250<br />
16977<br />
16978<br />
32<br />
21<br />
A3<br />
00<br />
42<br />
00<br />
LD<br />
LD<br />
(4<br />
HL
SEITE<br />
16979 4253<br />
16980<br />
16981<br />
16982<br />
16983 4257<br />
16984 4258<br />
16985<br />
16986 425A<br />
16987<br />
16988<br />
16989 425D<br />
16990<br />
16991<br />
16992 4260<br />
16993<br />
16994<br />
16995<br />
16996 4264<br />
16997 4265<br />
16998 4266<br />
16999 4267<br />
17000 4268<br />
17001 4269<br />
17002 426A<br />
17003<br />
17004 426C<br />
17005<br />
17006<br />
17007 426F<br />
17008<br />
17009<br />
17010 4272<br />
17011<br />
17012<br />
17013<br />
17014 4276<br />
17015<br />
17016<br />
17017 4279<br />
17018<br />
17019<br />
17020 427C<br />
17021<br />
17022<br />
17023 42 7F<br />
17024<br />
17025 4281<br />
17026<br />
17027 4283<br />
17028<br />
17029<br />
17030 4286<br />
17031<br />
17032<br />
17033 4289<br />
1703 4<br />
17035<br />
17036 428C<br />
17037 428D<br />
17038<br />
17039<br />
288 <br />
BASIC 1Z-013B<br />
ED SB OE 10 LD DE. (100E) <br />
B7 oR A<br />
ED 52 SBC HL.DE<br />
22 10 10 LD (1010).HL<br />
22 Al 42 LD (42Al).HL<br />
ED 5B B3 6A LD DE. (6AB3)<br />
14 INC D<br />
14 INC D<br />
14 INC D<br />
14 INC D<br />
14 INC D<br />
B7 oR A<br />
ED 52 SBC HL.DE<br />
DA B9 20 JP C. 20B9<br />
2A 10 10 LD HL. (1010)<br />
ED 4B OE 10 LD BC. (100E)<br />
CD 2A 00 CALL 002A<br />
DA 79 47 JP C. 4779<br />
3A FC OF LD A. (OFFC)<br />
FE 05 CP 05<br />
28 09 JR Z. 09 ~ 428CH<br />
11 90 42 LD DE. 4290<br />
CD 51 00 CALL 0051<br />
CD 06 00 CALL 0006<br />
EI POP HL<br />
C3 76 18 JP 1876<br />
V1.0A<br />
PROGRAMMLÄNGE<br />
CARRY-FLAG ZURüCKSETZEN<br />
LADEADRESSE ERRECHNEN<br />
UND EINTRAGEN<br />
I ZEIGER AUF EINZUFüGENDE<br />
IBASIC-PRoGRAM<strong>MZ</strong>EILEN<br />
I ZEIGER AUF ENDE BIS<br />
IHERIGES PROGRAMM<br />
I PLUS 5 * 256 BYTE<br />
I ALS RESERVE<br />
I<br />
CARRY-FLAG ZURüCKSETZEN<br />
I üBERPRüFEN. OB BEREICHE<br />
ISICH NICHT üBERLAPPEN<br />
(FEHLER 6<br />
I SPEICHER ZU KLEIN<br />
ZEIGER AUF LADEBEREICH<br />
PROGRAMMLÄNGE<br />
PROGRAMM VOM BAND LADEN<br />
FEHLER AUFGETRETEN<br />
PROGRAMMTYP - FLAG<br />
<strong>MZ</strong>-700 BASIC- PROGRAMM?<br />
JA ~ ZEILEN EINFüGEN<br />
TEXT CoNVERTING TEXT<br />
TEXT (DE) AUSGEBEN<br />
ZEILENVORSCHUB AUSGEBEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
I ZEILEN (KONVERTIEREN UND)<br />
I EINFüGEN<br />
17040 4290<br />
1704 1 4291<br />
17042 4292<br />
17043 4293<br />
17044 4294<br />
17045 4295<br />
17046 4296<br />
17047 4297<br />
17048 4298<br />
17049 4299<br />
17050 429A<br />
17051 429B<br />
17052 429C<br />
17053 429D<br />
17054 429E<br />
17055 429F<br />
17056 42AO<br />
17057 42Al <br />
17058 <br />
17059 42A3<br />
Befehl<br />
17060 42A4<br />
'1706 1<br />
17062<br />
17063 42 A7<br />
17064 42A8<br />
17065<br />
17066<br />
17067 42 AB<br />
17068<br />
17069 42 AD<br />
17070<br />
17071<br />
17072 42 BO<br />
17073<br />
17074<br />
17075 42B3<br />
17076 4284<br />
170 77<br />
17078<br />
17079 42 B7<br />
17080 42B8<br />
17081<br />
17082 428A<br />
17083<br />
17084<br />
17085 428D<br />
17086 428E<br />
17087<br />
17088<br />
17089 42Cl<br />
17090 42C2<br />
1709 1<br />
17092<br />
17093 42C5<br />
BASIC<br />
43<br />
4F<br />
4E<br />
56<br />
45<br />
52<br />
54<br />
49<br />
4E<br />
47<br />
20<br />
54<br />
45<br />
58<br />
54<br />
00<br />
00<br />
00 00<br />
00<br />
SAVE<br />
CD 2F 35<br />
E5 <br />
21 FC OF <br />
3 6 05<br />
2A BF 6A<br />
22 10 10<br />
EB <br />
2A B3 6A <br />
B7<br />
ED 52<br />
2 2 OE 10<br />
EI<br />
CD Cl 46<br />
ES<br />
2A 10 10<br />
ED 4B OE 10<br />
1Z-<br />
C<br />
o<br />
N<br />
V<br />
E<br />
R<br />
T<br />
I<br />
N<br />
G<br />
T<br />
E <br />
X <br />
T<br />
Spac<br />
CALL 35<br />
PUSH HL<br />
LD HL.<br />
LD (HL<br />
LD HL.<br />
LD (10<br />
EX DE.H<br />
LD HL.<br />
oR A<br />
SBC HL<br />
LD (10<br />
POP HL<br />
CALL 4<br />
PUSH H<br />
LD HL.<br />
LD BC.<br />
I<br />
I
SEITE 290<br />
BASIC 1Z-013B<br />
17094<br />
17095<br />
17096<br />
17097 42C9 CD 24 00 CALL 0024<br />
17098<br />
17099<br />
17100 42CC DA 7E 47 JP C. 477E<br />
17101<br />
17102<br />
17103 42CF EI POP HL<br />
17104 4200 C9 RET<br />
Befehl VERIFV<br />
17105 42Dl ~ 42F7H<br />
CD 2F 35 CALL 352F<br />
17106<br />
17107<br />
17108 42D4 CD 06 46 CALL 46D6<br />
17109<br />
17110<br />
17111 4207 E5 PUSH HL<br />
17112 42D8 11 16 43 LD DE. 4316<br />
17113<br />
17114<br />
17115 42DB 21 FC OF LD HL. OFFC<br />
17116<br />
17117<br />
17118 420E CD 3F 47 CALL 473F<br />
17119<br />
17120<br />
17121 42E1 ED 48 OE 10 LD BC. (100E)<br />
17122<br />
17123<br />
17124<br />
17125 42E5 3A FC OF LO A. (OFFC)<br />
17126<br />
17127<br />
17128 42E8 2A BF 6A LD HL. (6ABF)<br />
17129<br />
17130<br />
17131 42EB FE 05 CP 05<br />
17132<br />
17133 42EO 28 08 JR Z. 08 17134<br />
17135 42EF FE 01 CP 01<br />
17136<br />
17137 42Fl C2 CC 41 JP NZ. 41CC<br />
17138<br />
17139<br />
17140 42F4 2A 10 10 LD HL. (1010)<br />
17141<br />
17142<br />
17143 42F7 CD 2D 00 CALL 002D<br />
17144<br />
17145<br />
17146 42FA DA 7E 47 JP C. 477E<br />
17147<br />
17148<br />
17149 42FD CD 09 00 CALL 0009 ;<br />
17150<br />
17151<br />
V1_0A<br />
'PROGRAMM AUF BAND<br />
I SCHREIBEN<br />
FEHLER AUFGETRETEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
NÄCHSTER BEFEHL<br />
I ZEIGER AUF ZEILEN IM<br />
I PROGRAMM UMSETZEN IN<br />
IZEILENNUMMERN<br />
IPROGRAMMNAMEN BEREIT<br />
ISTELLEN UND RICHTIGE<br />
I t
17207<br />
17209<br />
17210 433A 18 06 .JR 06 • 4342H UND AUSGEBEN<br />
17211<br />
17212 433C 3E 31 LD A. 31<br />
17213<br />
<br />
17294 438E 1A LO A. <br />
JR Z. 29<br />
OE 00 LO C. 00<br />
36 2B LO (HL><br />
17295 438F 77 LD (HU<br />
LD C. 0<br />
EX DE.HL<br />
17285 4385 36 29 LO (HL><br />
Te>:t der Taste (HL) nach Zw<br />
17314 43A2 79 LD A.C<br />
17315 43A3 FE FF CP FF<br />
17311 439F 23 INC HL<br />
17307 439B Cl POP BC<br />
17304 4398 23 INC HL<br />
LD (HU<br />
PUSH BC<br />
17293 4380 23 INC HL<br />
23 INC HL<br />
18 F4 JR F4<br />
17273 4379 FE 22 CP 22<br />
17278 437E FE 01 CP 01<br />
17269 4375 FE 20 CP 20<br />
78 LD A.B<br />
17317 43A5 28 37<br />
17318<br />
17319 43A7 B7 OR A<br />
17275 4378 28 25 JR Z.<br />
17282 4382 El7 OR A<br />
17308 439C C9 RET<br />
17263 436F B7 OR A<br />
17309 4390 36 22<br />
17302 4396 36 22<br />
17291 438B 36 22<br />
17298 4392 OE 01<br />
17283 4383 28 06<br />
17280 4380 28 OC<br />
17271 4377 38 29<br />
17266 4372 28 29<br />
17277 4370 79<br />
17268 4374 lA<br />
17260 436C EB<br />
17261 436D C5<br />
17288 4388<br />
17287 4387<br />
17264 4370<br />
17262 436E<br />
SEITE 292<br />
BASIC 1Z-013B V1_0A<br />
17206 4336 28 04 JR Z. 04 • 433CH JA<br />
17226 434A 3E 3D LD A. 3 0 (Gleich)<br />
17227 17279<br />
1723 1 434F 79 LO A.C TASTENNUMMER<br />
17232 4350 CD 24 44 CALL 4424 IHL AUF TEXT OER TASTE<br />
17235 4353 46 LO B. (HL> TEXTLÄNGE HOLEN<br />
17208 4338 C6 31 ADD A. 31 NUMMER UMSETZEN IN ASCII<br />
17214 433E CO 03 17 CALL 1703 IASCII-ZEICHEN IM ACCU<br />
17217 4341 30 OEC A o
SEITE<br />
17320 43A8<br />
1T!.21<br />
17322 43AA<br />
17323<br />
17324 43AC<br />
17325 43AD<br />
17326<br />
17327 43AF<br />
17328 43BO<br />
17329<br />
17330 43B2<br />
17331 43B3<br />
17332<br />
17333 43B5<br />
17334 43B6<br />
17335<br />
17336 43B8<br />
17337 43B9<br />
17338<br />
17339 43BB<br />
17340 43BC<br />
17341<br />
17342 43BE<br />
17343 43BF<br />
17344 43CO<br />
17345 43Cl<br />
17346 43C2<br />
17347 43C3<br />
17348 43C4<br />
17349<br />
17350 43C6<br />
17351<br />
17352<br />
17353 43C9<br />
17354 43CA<br />
17355 43CB<br />
17356 43CC<br />
17357 43CD<br />
17358<br />
17:359 43CF<br />
17360 4300<br />
17361 4301<br />
17362 4302<br />
17363<br />
17.364 4304<br />
17365 4305<br />
17366 4306<br />
17367<br />
17368 4308<br />
17369<br />
17370 430A<br />
17371<br />
17372 430C<br />
17373<br />
17374 430E<br />
17375<br />
17376 43EO<br />
17377<br />
294<br />
BASIC 1Z-013B<br />
28 06 JR Z. 06 ~ 43BOH<br />
36 22 LD (HL>. 22<br />
23 INC HL<br />
36 2B LD (HL>. 2B :<br />
23 INC HL<br />
36 43 LO (HL>. 43<br />
23 INC HL<br />
36 48 LD (HL>. 48<br />
23 INC HL<br />
36 52 LD (HL>. 52<br />
23 INC HL<br />
36 24 LO (HL>. 24<br />
23 INC HL<br />
36 28 LD (HL>. 28<br />
23 INC HL<br />
05 PUSH OE<br />
E5 PUSH HL<br />
C5 PUSH BC<br />
EB EX DE.HL<br />
6E LD L. (HL><br />
26 00 LD H. 00<br />
CD A7 21 CALL 21A7<br />
Cl ~ 4304H<br />
POP BC<br />
E1 POP HL<br />
lA LD A. . A<br />
13 INC OE<br />
23 INC HL<br />
18 F7 JR F7 ~ 43CBH<br />
Dl POP OE<br />
13 INC OE<br />
OE FF LD C. FF<br />
10 9A DJNZ 9A ~ 4374H<br />
36 29 LD (HL>. 29<br />
18 BA JR BA ~ 4398H<br />
36 2C LD (HU. 2C<br />
18 DC JR OC ~ 43BEH<br />
V1_0A<br />
JA ~ CHR$ EINTRAGEN<br />
(AnfUhrungszeichen)<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
+ (Plus)<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
C (CHR$ ()<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
H (CHR$ ()<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
R (CHR$ ()<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
$ (CHR$ ()<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
( (CHR$ ()<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
ZEIGER AUF TASTENTEXT<br />
ZEIGER AUF ZWISCHENSPEICHER<br />
TEXTFLAG / RESTTEXTLÄNGE<br />
ASCII-ZEICHEN HOLEN<br />
HL ENTHÄLT ZEICHENWERT<br />
I INTEGER-WERT IN HL AUF<br />
IBEREITEN IN ASCII NACH<br />
I ZWISCHENSPEICHER<br />
TEXTFLAG / RESTTEXTLÄNGE<br />
ZEIGER AUF TEXT-Z-SPEICHER<br />
EIN ZEICHEN ASCII-ZAHL<br />
GLEICH NULL ?<br />
ENDE ZAHL<br />
ZIFFER üBERTRAGEN<br />
ZEIGER AUF ASCII-ZAHL<br />
ZEIGER AUF TEXT-Z-SPEICHER<br />
UNTERSUCHEN. ZAHLENDE<br />
ZEIGER AUF TASTENTEXT<br />
AUF NÄCHSTES ZEICHEN<br />
CODE IM CHR$<br />
WEITERE ZEICHEN AUFBEREITEN<br />
(Klammer zu)<br />
TEXTENDEZEICHEN EINTRAGEN<br />
(Komma)<br />
CHR$ - WERT AUFBEREITEN<br />
Befehl<br />
17378 43E2<br />
17379<br />
17380<br />
17381 43E5<br />
17382<br />
17383 43E7<br />
17384 43E8<br />
17385<br />
17386<br />
17387 43EB<br />
17388<br />
17389<br />
17390 43EE<br />
17391 43EF<br />
17392<br />
17393<br />
17394 43F2<br />
17395<br />
17396<br />
17397 43F5<br />
17398<br />
17399<br />
17400 43F8<br />
17401<br />
17402 43FA<br />
17403<br />
17404<br />
17405 43FO<br />
17406 43FE<br />
17407 43FF<br />
17408 4400<br />
17409<br />
17410 4402<br />
17411<br />
17412<br />
17413 4405<br />
17414 4406<br />
17415<br />
17416<br />
17417 4409<br />
17418 440A<br />
17419<br />
17420<br />
17421 4400<br />
17422 440E<br />
17423 440F<br />
17424<br />
17425 4411<br />
17426<br />
17427 4413<br />
17428<br />
17429 4415<br />
17430 4416<br />
17431 4417<br />
17432<br />
17433 4419<br />
17434 441A<br />
17435 441B<br />
17436 441C<br />
17437 441D<br />
BASIC<br />
DEF t
SEITE 296<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z-<br />
17438 441E 23<br />
17439 441F 10 FA<br />
17440<br />
17441 4421 E1<br />
17442 4422 FB<br />
17443 4423 C9<br />
INC HL<br />
DJNZ FA ~ 441BH<br />
POP HL<br />
EI<br />
RET<br />
ZEIGER AUF TASTENSPEICHER<br />
WEITERE ZEICHEN üBERTRAGEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTER BEFEHL<br />
Zeiger auf Zwischenspeicher für Funktionstastentext nach<br />
Tastennummer im Accu nach HL bereitstellen<br />
17444 4424 87<br />
17445 4425 87<br />
17446 4426 87<br />
17447 4427 87<br />
17448 4428 21 22 13<br />
17449<br />
17450<br />
17451 442B 85<br />
ADD A.A<br />
ADD A.A<br />
ADD A.A<br />
ADD A.A<br />
LD HL. 1322<br />
ADD Po.L<br />
LD L,A<br />
TASTENNUMMER * 2<br />
4<br />
8<br />
* 16<br />
ZEIGER AUF ANFANG<br />
SPEICHERBEREICHE FiJR<br />
FüNKTIONSTASTENTEXTE<br />
ZEIGER AUF RICHTIGEN<br />
SPEICHERBEREICH FüR<br />
17487 444F<br />
17488 4450<br />
17489<br />
17490<br />
17491 4453<br />
17492<br />
17493<br />
17494 4456<br />
17495 4457<br />
17496<br />
17497<br />
17498 445A<br />
17499<br />
17500 445C<br />
17501<br />
17502 445E<br />
1750:.<br />
17504 4460<br />
17505<br />
17506 4462<br />
17452 442C 6t=<br />
17453 442D 3E 00 LD A. 00 FUNKTIONTASTETEXT<br />
ERRECHNEN Befehl<br />
17454<br />
17455<br />
17456<br />
17457<br />
442F<br />
4430<br />
4431<br />
17458 4432<br />
17459 4433<br />
17460 4434<br />
17461 4435<br />
17462 4436<br />
17463 4437<br />
17464 4438<br />
17465 4439<br />
17466 443A<br />
8C<br />
67<br />
C9<br />
44<br />
45<br />
46<br />
20<br />
4B<br />
45<br />
59<br />
28<br />
00<br />
ADC A,H<br />
LD H,A<br />
RET<br />
D<br />
E<br />
F<br />
K<br />
E<br />
Y<br />
Space<br />
DEF KEY(<br />
Textende<br />
17467 443B 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
17507 4463<br />
17508<br />
17509<br />
17510 4466<br />
17511 4467<br />
17512<br />
17513<br />
17514 446A<br />
17515<br />
17516 446C<br />
17517<br />
17518<br />
17519 446F<br />
12<br />
11 OF 11<br />
CD 30 00<br />
E1<br />
CD 14 54<br />
FE 3B<br />
28 DD<br />
FE 2C<br />
28 D9<br />
C9<br />
TEMPO<br />
LD
SEITE 298<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
17541<br />
17542 4485 21 5D 00 LD HL. 0050<br />
• ZEIGER AUF STELLE FüR 17603<br />
17543<br />
• ZEICHEN/HINTERGRUNDFARBE<br />
17604<br />
17544<br />
17545 4488 22 33 45 17605<br />
LD (4533).HL<br />
MERKEN<br />
17606<br />
17546 17607<br />
17547<br />
17548<br />
17549<br />
448B<br />
448C<br />
E1<br />
18 40<br />
POP HL<br />
JR 40 .. 44CEH<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
• ANGEGEBENE FARBEN<br />
17608<br />
17609<br />
17610<br />
44C4<br />
44C5<br />
44C8<br />
E1<br />
CD 14 54<br />
44CA C2 FE 20 JP NZ,<br />
17550 448~ CD 50 40 • AUSWERTEN<br />
17611<br />
CALL 4D50<br />
17551<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
17612<br />
17552<br />
1761 3 44CD 23 INC HL<br />
17553<br />
17554 4491 FE 28 17614 44CE CD 14 54 CALL 5<br />
CP 28<br />
X-KOORDINATE MAXIMAL<br />
17615<br />
17555<br />
17556 4493 02 01 21 17616<br />
JP NC. 2101<br />
~ ZU GROSS.. DATENFEHLER<br />
17617 44D1 FE 2C CP 2C<br />
17557 17618<br />
17558<br />
17559 4496 32 35 45 17619 44D3 23<br />
INC HL<br />
LD (4535),A<br />
X-KOORDINATE MERKEN<br />
17620 4404 28 2B JR Z,<br />
17560 17621<br />
17561<br />
17562<br />
17563<br />
17564<br />
17565<br />
17566<br />
17567<br />
17568<br />
17569<br />
17570<br />
17571<br />
4499 CO 14 54 CALL 5414<br />
449C<br />
449E<br />
44Al<br />
44A2<br />
FE<br />
C2<br />
2C<br />
FE 20<br />
23<br />
CD 14 54<br />
CP<br />
JP<br />
2C<br />
NZ, 20FE<br />
INC HL<br />
CALL 5414<br />
'PRORAM<strong>MZ</strong>EIGER AUF<br />
• NÄCHSTES RELEVANTES<br />
• ZEICHEN STELLEN<br />
(Komma)<br />
SYNTAX - FEHLER<br />
PROGRAM<strong>MZ</strong>EIGER<br />
'PROGRAM<strong>MZ</strong>EIGER AUF<br />
17622<br />
17623<br />
17624<br />
17625<br />
17626<br />
17627<br />
17628<br />
17629<br />
17630<br />
1763 1<br />
17632<br />
44D6<br />
44D7<br />
44DA<br />
44DC<br />
44 DF<br />
44EO<br />
FE<br />
2C<br />
2B<br />
CD 50 40<br />
17572 • NÄCHSTES RELEVANTES 17633 44E1 17 RLA<br />
17573 44A5 FE 2C<br />
• ZEICHEN STELLEN<br />
1763 4 44E2 17<br />
RLA<br />
CP 2C<br />
17574<br />
(Komma)<br />
17635 44E3 E6 70<br />
AND A,<br />
17575 44A7 CA FE 20<br />
17636<br />
JP Z. 20FE<br />
17576<br />
• KEINE ZWEITE KOORDINATE<br />
17637 44E5 47<br />
LO B,A<br />
17577 • ANGEGEBEN .. SYNTAX FEHLER 1763 8 44E6 E5 PUSH H<br />
44AA CD 50 4D<br />
44E7 2A 3 3 45 LD HL,<br />
CALL 4D50<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
17578<br />
17579<br />
17580<br />
17581 44AD FE 25<br />
17642<br />
CP 25<br />
17582<br />
Y-KOORDINATE MAXIMAL<br />
17643<br />
17583<br />
17584 44AF D2 01 21 JP NC. 2101<br />
ZU GROSS .. DATENFEHLER<br />
17585 17646<br />
44B2 32 36 45 LO (4536),A<br />
; Y-KOODINATE MERKEN<br />
17586<br />
17587<br />
17588<br />
17589 44B5<br />
17590 4486<br />
17591<br />
17592<br />
17593 4489<br />
17594 44BA<br />
1759~<br />
17596<br />
17597 448D<br />
17598<br />
17599 44BF<br />
"17600 44CO<br />
17601 44Cl<br />
17602<br />
E5<br />
2A 35 45<br />
D5<br />
CO CS 05<br />
16 D8<br />
19<br />
01<br />
22 33 45<br />
PU8H HL<br />
LO HL. (4535)<br />
PU8H DE<br />
CALL 05C5<br />
LO O. 08<br />
ADD HL.DE<br />
POP OE<br />
LD (4533),HL<br />
;<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
X/Y - KOORDINATE<br />
REGISTER RETTEN<br />
'BILDSPEICHEROFFSET AUF<br />
'ANFANG ZEILE AUS KOORDI<br />
• NATEN ERRECHNEN<br />
ANFANG FARBSPEICHER<br />
ZEIGER AUF FARBSPEICHER<br />
GERETTETES REGISTER HOLEN<br />
• ZEIGER AUF STELLE FüR<br />
• FARBE MERKEN<br />
17639<br />
17640<br />
17641<br />
44EA<br />
44E8<br />
FE<br />
02<br />
17<br />
17<br />
08<br />
7C<br />
FE 08<br />
01 21<br />
POP HL<br />
CALL 5<br />
CP<br />
2C<br />
DEC HL<br />
CALL 4<br />
CP<br />
JP<br />
RLA<br />
RLA<br />
LD<br />
CP<br />
08<br />
NC,<br />
A,H<br />
D8<br />
17644<br />
17645 44ED 30 08 JR NC,<br />
17647<br />
17648<br />
17649<br />
17650<br />
17651<br />
17652<br />
17653<br />
17654<br />
17655<br />
17656<br />
17657<br />
17658<br />
17659<br />
17660<br />
17661<br />
17662<br />
17663<br />
17664<br />
44EF<br />
44FO<br />
44F2<br />
44F3<br />
44F4<br />
44F5<br />
44F7<br />
44FA<br />
44FC<br />
44FO<br />
4500<br />
7E<br />
E6 8F<br />
BO<br />
77<br />
E1<br />
18<br />
CD<br />
E6<br />
BO<br />
CD<br />
E1<br />
OA<br />
EA<br />
8F<br />
F2<br />
00<br />
00<br />
LD A, (<br />
AND A,<br />
OR B<br />
LD (H<br />
POP HL<br />
JR OA<br />
CALL O<br />
AND A,<br />
OR B<br />
CALL O<br />
POP HL<br />
~<br />
~
17666<br />
17667<br />
17669<br />
17671<br />
17674<br />
17675<br />
17678<br />
17679<br />
17681<br />
17683<br />
17684<br />
17686<br />
17690<br />
17691<br />
17694<br />
17696<br />
17699<br />
17705<br />
17706<br />
17708<br />
17711<br />
17712<br />
17716<br />
IM FARBSPEICHER ?<br />
17720<br />
17721<br />
17722<br />
17724<br />
17725<br />
17727<br />
17729<br />
17730<br />
17735<br />
17736<br />
17738<br />
17740<br />
17741<br />
17743<br />
17745<br />
17747<br />
17748<br />
17750<br />
17752<br />
17754<br />
17755<br />
17757<br />
17759<br />
17762<br />
17763<br />
17766<br />
17767<br />
17769<br />
17770<br />
17772<br />
17773<br />
17774 <br />
Befehl<br />
CLOSE<br />
OR A<br />
RET<br />
JR ~Z;<br />
CALL 4<br />
2<br />
LD A. (IY<br />
36 lA LD (HU<br />
17758 455E FD E5 PUSH IY<br />
CALL 46<br />
FD 7E 00 LD A, ZEICHEN/HINTERGRUNDFARBE<br />
CD 66 lC CALL lC66 I üBERPRüFEN. OB NÄCHSTES<br />
HINTERGRUNDFARBE MERKEN<br />
IBEFEHLSENDEZEICHEN IST<br />
LD HL. (4533) 'ZEIGER AUF STELLE FüR<br />
JP NC. 2101 ZU GROSS ~ DATENFEHLER<br />
KEINE HINTERGRUNDFARBE<br />
PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
'PROGRAMMBYTE GLEICH<br />
• NÄCHSTES RELEVANTES<br />
E6 07 AND A. 07 'FA~BWERT MASKIEREN<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
E6 F8 AND A. F8 ; 'HINTERGRUNDFARBE<br />
FARBWERT MAXIMAL<br />
I ZEICHEN STELLEN<br />
, (überflüssig)<br />
23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
H-BYTE ZEIGER<br />
'FARBE HOLEN<br />
SEITE 300 <br />
BASIC 1Z-013B V1.0A <br />
BO OR B PLUS NEUE HINTERGRUNDFARBE<br />
IZEICHEN IM FARBSPEICHER<br />
I VERGESSEN<br />
(Komma)<br />
JR NZ. 01 ~ 4509H KEIN KOMMA<br />
17695 451F 30 07 JR NC. 07 ~ 4528H JA<br />
17700 4524<br />
17701 4525 77<br />
17702 4526 El<br />
LD (HU ,A NEUEN FARBWERT MERKEN<br />
POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
I ZEICHEN AUS FARB<br />
NÄCHSTER BEFEHL<br />
17703 4527 C9 RET ~<br />
17704 4528 CD EA 00 CALL OOEA<br />
17707 452B E6 F8<br />
AND A. F8 IHINTERGRUNDFARBE<br />
BO OR B PLUS NEUE FARBWERT<br />
I VERGESSEN<br />
, ABLEGEN<br />
17709 452D<br />
17710 452E CO F2 00 CALL 00F2<br />
17713 4531 El POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
X-KOORDINATE COLOR<br />
17714 4532 C9<br />
RET NÄCHSTER BEFEHL<br />
17715 4533 00 00 'ZEIGER AUF STELLE<br />
I FüR FARBE<br />
17717 4535 00<br />
17718 4536 00 Y-KOORDINATE COLOR<br />
17665 4501 CD 14 54 CALL 5414<br />
17693 451D FE 08 CP D8<br />
17692 451C 7C LD A.H<br />
17687 4517 47 LD B.A<br />
17680 4510 FE 08 CP 08<br />
17668 4504 FE 2C CP 2C<br />
17676 450C C8 RET Z<br />
17689 4519 2A 33 45<br />
17682 4512 D2 01 21<br />
17670 4506 20 01<br />
17697 4521 7E<br />
17688 4518 E5<br />
17698 4522<br />
17685 4515<br />
17672 4508<br />
17673 4509
SEITE 302 <br />
BASIC 1Z-013B V1_0A <br />
17775 456F El POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN <br />
17776 4570 C9 RET NÄCHSTER BEFEHL <br />
ein Zeichen aus Dateipuffer bereitstellen<br />
17777 4571 E5 PUSH HL I REGISTER RETTEN <br />
17778 4572 C5 PUSH BC I <br />
17779 4573 CD B5 45 CALL 45B5 I üBERPRüFEN, OB NOCH <br />
17780 I ZEICHEN IM PUFFER SIND <br />
17781 <br />
17782 4576 DA 89 45 JP C, 4589 INEIN ~ FEHLER 63 <br />
17783 I OUT OF FILE ERROR <br />
17784 <br />
17785 4579 CD 96 46 CALL 4696 I ZEIGER AUF DATEI-PUFFER <br />
17786 lAUF NÄCHSTES ZEICHEN <br />
17787 I BERE I TSTELLEN <br />
17788 457C 7E LD A, (HL) ZEICHEN AUS PUFFER HOLEN <br />
17789 457D FD 34 OB INC (IY+081 OFFSET AUF PUFFER PLUS 1 <br />
17790 <br />
17791 <br />
17792 4580 20 04 JR NZ, 04 ~ 4586H NOCH ZEICHEN IM PUFFER <br />
17793 <br />
17794 4582 FD 36 OC 00 LD (IY+OC1, 00 CODE PUFFER LEER <br />
17795 <br />
17796 <br />
17797 <br />
17798 4586 Cl POP BC I GERETTETE REGISTER HOLEN <br />
17799 4587 El POP HL I <br />
17800 4588 C9 RET <br />
17801 4589 3E 3F LD A, 3F I FEHLER 63 <br />
17802 laUT OF FILE ERROR <br />
17803 458B C3 08 21 JP 2108 FEHLER BEHANDELN <br />
17804 <br />
17805 <br />
17806 458E 04 DATEI-TYP-FLAG<br />
bei <strong>MZ</strong>-80 K - Datei überprüfe.n, ob noch Zeichen im Puffer sind<br />
17807 458F FD 7E OC LD A, (IY+OCl FLAG PUFFER LEER <br />
17808 <br />
17809 <br />
17810 4592 B7 OR A ; GESETZT ? <br />
17811 4593 20 18 JR NZ, 18 ~ 45ADH NaCH DATEN IN PUFFER <br />
17812 <br />
17813 4595 01 90 00 LD BC, 0090 OFFSET ZUR PUFFERSTELLE <br />
17814 <br />
17815 <br />
17816 4598 09 ADD HL,BC ZEIGER AUF PUFFERSTELLE <br />
17817 4599 01 80 00 LD BC, 0080 ; BLOCKLÄNGE BEI <strong>MZ</strong>-80 K <br />
17818 <br />
17819 <br />
17820 459C CD 4F 47 CALL 474F ITEXTAUSGABEFLAG FüR <br />
17821 I BAND SETZEN <br />
17822 <br />
17823 459F CD 2A 00 CALL 002A I NÄCHSTEN BLOCK VOM BAND <br />
17824 I LESEN <br />
BASIC 1Z-<br />
17825 <br />
17826 45A2 DA 7E 47 JP C, 47<br />
17827 <br />
17828 <br />
1782945A5 FD 36 OB 80 LD (IY+O<br />
17830 <br />
17831 <br />
17832 <br />
17833 45A9 FD 36 OC 01 LD (IY+C<br />
17834 <br />
17835 <br />
17836 <br />
17837 45AD CD 96 46 CALL 46<br />
17838 <br />
17839 <br />
17840 45BO 7E LD A, (H<br />
17841 45B1 FE FF CP FF<br />
17842 <br />
17843 4583 18 3C JR 3C<br />
17844 <br />
übeprUfen, ob noch Zeichen<br />
17845 4585 C5 <br />
PUSH BC<br />
17846 45B6 D5 PUSH DE<br />
17847 4587 E5 PUSH HL<br />
17848 45B8 CD 26 46 CALL 46<br />
17849 <br />
17850 <br />
17851 45 BB FD E5 PUSH IY<br />
17852 <br />
17853 45BD E1 POP HL<br />
17854 45BE 3 A 8E 45 LD A, (4<br />
17855 <br />
17856 <br />
17857 45C1 FE 03 CP 03<br />
17858 <br />
17859 45C3 28 CA JR Z, C<br />
17860 <br />
17861 45C5 01 OE 00 LD BC.<br />
17862 <br />
17863 <br />
17864 45C8 09 ADD HL,<br />
17865 45C9 FD 7E OC LD A, (I<br />
17866 <br />
17867 <br />
17868 45CC B7 OR A<br />
17869 45CD 20 00 JR NZ,<br />
17870 <br />
17871 45CF ES PU6H HL<br />
17872 45DO CD Fa 45 CAL~ 4~<br />
17873 <br />
17874 <br />
17875 45D3 E1 POP- HL<br />
17876 4504 FD 36 08 00 LP CIY+<br />
17877 <br />
17878 <br />
17879 <br />
17880 45D8 FD 3 6 oe 01 LD (IY+<br />
17881 <br />
17882
SEITE 304<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z-0<br />
17883<br />
17884<br />
17885<br />
17886<br />
17887<br />
17888<br />
17889<br />
17890<br />
17891<br />
17892<br />
17893<br />
17894<br />
17895<br />
17896<br />
17897<br />
17898<br />
17899<br />
17900<br />
17901<br />
17902<br />
45DC<br />
45DD<br />
45DE<br />
45DF<br />
45EO<br />
45El<br />
45E3<br />
45E6<br />
45E7<br />
45E8<br />
45E9<br />
45EA<br />
45EB<br />
17903<br />
17904 45FO<br />
17905 45Fl<br />
17906 45F2<br />
17907 45F3<br />
17908 45F4<br />
17909 45F5<br />
7E<br />
23<br />
A6<br />
3C<br />
B7<br />
20 OF<br />
01<br />
09<br />
7E<br />
2B<br />
OD<br />
B7<br />
28<br />
00<br />
FA<br />
LD A, (HU<br />
INC HL<br />
AND (HU<br />
INC A<br />
OR<br />
I BLOCK ZÄHLER<br />
• 65535 ?<br />
GLEICH<br />
17937<br />
17938<br />
17939<br />
17940<br />
17941<br />
4613<br />
4614<br />
F1<br />
18 E9<br />
A<br />
Blockzähler plus eins<br />
JR NZ, A<br />
OF + 45F2H • NEIN + NICHT LETZTER BLOCK 01 LD BC, 0100<br />
ADD HL,BC<br />
LD A, (HU<br />
DEC HL<br />
DEC C<br />
OR A<br />
JR Z, FA + 45E7H<br />
PUFFERLÄNGE<br />
ZEIGER AUF ENDE PUFFER<br />
EIN ZEICHEN HOLEN<br />
ZEIGER AUF PUFFER<br />
ZÄHLER ZEICHEN IM PUFFER<br />
ZEICHEN GLEICH NULL ?<br />
ZEICHEN IM PUFFER SUCHEN<br />
17942<br />
1794.3<br />
17944<br />
17945<br />
17946<br />
17947<br />
17948<br />
17949<br />
4616<br />
4619<br />
461A<br />
461D<br />
FD<br />
CO<br />
FD<br />
C9<br />
34 OE<br />
34 OF<br />
POP AF<br />
JR E9 .;.<br />
45ED FD 7E OB LD A, (IY+OB) OFFSET AUF PUFFER letzten Block. auf Band schre<br />
B9<br />
3F<br />
Ei<br />
Dl<br />
Cl<br />
C9<br />
CP C<br />
CCF<br />
POP HL<br />
POP DE<br />
POP BC<br />
RET<br />
nächsten Block vom Band lesen<br />
ZEICHEN IM<br />
I GERETTETE<br />
17910 45F6 01 02 01 LD BC, 0102 BLOCKLÄNGE<br />
17911<br />
17912<br />
17913 45F9<br />
17914<br />
17915<br />
17916 45FC<br />
17917<br />
17918<br />
17919 45FF<br />
17920<br />
17921<br />
17922 4602<br />
CD<br />
CD<br />
DA<br />
C9<br />
4F<br />
2A<br />
7E<br />
47<br />
00<br />
47<br />
CALL 474F<br />
CALL 002A<br />
JP C, 477E<br />
RET<br />
vollen Puffer auf Band schreiben<br />
PUFFER<br />
REGISTER HOLEN<br />
'TEXTAUSGABEFLAG FüR<br />
• BAND SETZEN<br />
BLOCK VOM BAND LESEN<br />
FEHLER AUFGETRETEN<br />
17950<br />
17951<br />
17952<br />
17953<br />
17954<br />
17955<br />
17956<br />
17957<br />
461E<br />
4620<br />
4621<br />
4622<br />
4623<br />
4624<br />
17958 4626<br />
17959 4627<br />
17960<br />
17961<br />
17962 462A<br />
17963<br />
17964<br />
17965 '462D<br />
17966<br />
17967 462F<br />
17968<br />
17969<br />
17970 4632<br />
3E<br />
77<br />
23<br />
77<br />
2B<br />
18<br />
FF<br />
DD<br />
INC<br />
RET<br />
INC<br />
RET<br />
(IY+<br />
NZ<br />
(IY+<br />
LD A, FF<br />
LD (HU,<br />
INC HL<br />
LD (HU ,<br />
DEC HL<br />
JR DD +<br />
Überprüfen, ob Band-Datei zu<br />
F5<br />
CD<br />
FD<br />
FE<br />
C2<br />
45<br />
7E<br />
49<br />
40<br />
46<br />
01<br />
46<br />
PUSH AF<br />
CALL 46<br />
LD A, (IY<br />
CP 49<br />
JP NZ,<br />
Fl<br />
POP AF<br />
17971 4633 C9 RET<br />
17923<br />
17924 4603 01 02 01 LD BC, 0102 BLOCKLÄNGE überprüfen, ob Banddatei zu<br />
17925<br />
17926 4606<br />
17927<br />
17928<br />
17929 4609<br />
17930<br />
17931<br />
17932 460C<br />
17933 460D<br />
17934<br />
17935<br />
17936 4610<br />
CD<br />
CD<br />
F5<br />
CD<br />
CD<br />
4F 47<br />
24 00<br />
58 47<br />
16 46<br />
CALL<br />
CALL<br />
PUSH<br />
CALL<br />
CALL<br />
474F<br />
0024<br />
AF<br />
4758<br />
4616<br />
;<br />
;<br />
•<br />
•<br />
'TEXTAUSGABEFLAG FüR<br />
• BAND SETZEN<br />
BLOCK AUF BAND SCHREIBEN<br />
ERGEBNISFLAG MERKEN<br />
PUFFER LöSCHEN<br />
BLOCK ZÄHLER PLUS EINS<br />
17972 4634<br />
17973 4635<br />
17974<br />
17975<br />
17976 4638<br />
17977<br />
17978<br />
17979 463B<br />
17980<br />
17981 463D<br />
17982<br />
F5<br />
CD<br />
FD<br />
FE<br />
CA<br />
45 46<br />
7E 01<br />
4F<br />
32 46<br />
PUSH AF<br />
CALL 46<br />
LD A, (I<br />
CP 4F<br />
JP Z, 4<br />
•I<br />
I<br />
I
17983<br />
17987<br />
17988<br />
17990<br />
17991<br />
17993 4649 3E 18 LD A. 18<br />
17994<br />
17997<br />
17998 464E CD 37 45 CALL 4537<br />
17999<br />
18000<br />
18001 4651 LD A. (IY+OD) , BAND-CURSOR-ZÄHLER HOLEN<br />
18002<br />
18003<br />
18005 4655 CD 34 46 CALL 4634<br />
18006<br />
18007<br />
18011<br />
18012<br />
18014<br />
18015<br />
18017<br />
laQ~O<br />
1802 ~<br />
18023<br />
18Q~5<br />
18027<br />
18028<br />
3E FF<br />
I IST<br />
18037<br />
18042<br />
18051<br />
18053<br />
18057 <br />
18063<br />
18071<br />
18074<br />
18076<br />
18079<br />
IY<br />
18075 469B 06 00 LD B. 00<br />
18081 46Al 09 ADD HL.B<br />
18077 469D 09 ADD HL.B<br />
18078 469E FD 4E OB LD C. (IY<br />
ASCII - Zeichen im Accu an Ba<br />
18045 467D 77 LD (HU.A<br />
INC (IY+O<br />
SEITE 306<br />
BASIC 1Z-013B<br />
V1_0A BASIC 1Z-0<br />
LO A. OD<br />
18032 4670 D5 PUSH DE<br />
18033 4671 C5 PUSH BC<br />
18034 4672 F5 PUSH AF<br />
18031 466F E5 PUSH HL<br />
17984 4640 3E 18 18029 4660 3E OD<br />
LD A. 18<br />
17985<br />
FEHLER 24 LESEFEHLER 77 18030<br />
17986 4642 C3 08 21 JP 2108 FEHLER BEHANDELN<br />
UberprUfen. ob Band -<br />
Datei eröffnet ist<br />
17989 4645 CD 37 45 CALL 4537 18035 4673 CD 34 46 CALL 4634<br />
18046 467E F5 PUSH AF<br />
18047 467F FO 34 OB INC (IY+O<br />
I ABFRAGE. OB BAND-DATEI<br />
• ERöFFNET IST 18036<br />
17992 4648 CO RET NZ IST ERöFFNET 18038 4676 FD 34 OD<br />
FEHLER 24 LESEFEHLER 77 18039<br />
17995 464B C3 08 21 18040<br />
JP 2108<br />
17996<br />
; FEHLER BEHANDELN 1804 1 4679 CD 96 46 CALL 4696<br />
CALL 475<br />
CD 03 46 CALL 460<br />
18058 468A 09 AOO HL.B<br />
Zeiger auf Puffer auf aktue<br />
JR NZ. 0<br />
18054 4686 El POP HL<br />
18055 4687 01 OE 00 LD BC. O<br />
18056 <br />
OE 10 LD C. 1<br />
FO E5 PUSH IY<br />
18072 4698 EI POP HL<br />
18068 4694 E1 POP HL<br />
Cl POP BC<br />
Fl POP AF<br />
18043<br />
18044 467C F1 POP AF<br />
18050 4682 20 OD<br />
18052 4684<br />
Aktuelle Position auf Bandpuffer holen<br />
FD 7E 00<br />
18004 4654 C9 RET<br />
I ZEIGER AUF DATEI-FLAGS 18048<br />
I BERE I TSTELLEN 18049<br />
Ausgabe auf Band auf nächsten 8ter - Tab<br />
• 'UBERPRUFEN. OB BAND 18059 468B<br />
'DATEI ZUM SCHREIBEN 18060<br />
I ERöFFNET IST 18061<br />
19008 4658 3E 20 LD A. 20<br />
18009<br />
I 9pac:e 18062 468E CD 58 47<br />
18066 4692<br />
18065 4691<br />
18010 465A CD cF 46 CALL 466F , I ZEICHEN IM ACCU AN 18064<br />
'BAND-DATEI AUSGEBEN<br />
~e013 46~D FD 7E 00 LD A. (IY+OD) • BAND-CURSOR HOLEN 18067 4693 D1 POP DE<br />
18070 4696 FD E5 PUSH<br />
18082 46A2 C9 RET<br />
18069 4695 C9 RET<br />
18073 4699<br />
16016 4660 E6 07 AND A. 07 , AUF 8ter TAB SETZEN<br />
19018 4662 Ce RET Z • STEHT AUF TAB-POSITION<br />
leOl~ 4663 18 F3 JR F:5 .. 4658H , WEITER Spac:•• AUSGEBEN<br />
Z ~il~nvorsc:h~b ~n e.nd ~uMg.b.n<br />
lS021 466~ CD ~4 46 CALL 4634<br />
180~4 4669 1.,0 A. FF<br />
18026 466A FD 77 00 LD ( IY+OO).A<br />
IOBERPROFEN. OB BAND-DATEI<br />
I ZUM SCHREIBEN ER~FFNET<br />
VORGABE FUR BAND-CURSOR<br />
BAND-CURSOR MERKEN 18080
SEITE 308<br />
BASTe 1Z-013B V1.0A<br />
8efeh l WOPEN<br />
1 80R~ 46A3<br />
18084<br />
18085 46A5<br />
18086<br />
18087<br />
18088 46A8<br />
18089<br />
18090<br />
18091 46A8<br />
3E<br />
32<br />
CD<br />
E5<br />
04<br />
FC<br />
2C<br />
OF<br />
17<br />
LD A, 04<br />
LD (OFFC),A<br />
CALL 172C<br />
PUSH HL<br />
CODE <strong>MZ</strong>-700-DATEI<br />
DATEI-TYP-FLAG<br />
I DATEI KENNUNG AUS DATEN<br />
I (HL) AUFBERE I TEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
18092 46AC CD 37 45 CALL 4537 I ABFRAGE. OB BAND-DATEI<br />
18093<br />
IERöFFNET IST<br />
18094<br />
18095<br />
18096<br />
18097<br />
18098<br />
18099<br />
18100<br />
18101<br />
18102<br />
18103<br />
18104<br />
18105<br />
18106<br />
18107<br />
18108<br />
18109<br />
18110<br />
18111<br />
18112<br />
46AF<br />
4681<br />
46B4<br />
46B8<br />
46BB<br />
46BC<br />
46CO<br />
20<br />
CD<br />
FD<br />
CD<br />
EI<br />
FD<br />
C9<br />
7C<br />
64<br />
36<br />
C4<br />
36<br />
47<br />
01<br />
46<br />
00<br />
4F<br />
01<br />
JR NZ. 7C + 472DH<br />
CALL 4764<br />
LD (IY+Ol). 4F<br />
CALL 46C4<br />
POP HL<br />
LD (IY+OO), 01<br />
RET<br />
I SCHON ERöFFNET ~<br />
I FEHLER 49<br />
IDATEIFLAGS UND PUFFER<br />
I LöSCHEN<br />
10 (SCHREIBEN)<br />
I ALS DATEI-RICHTUNGS-FLAG<br />
I DATEI KENNUNG AUF<br />
I BAND SCHRE I BEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
CODE DATEI ERöFFNET<br />
Programmnamen bereitstellen und Kennung schreiben"<br />
1811 3<br />
18114<br />
18115<br />
18116<br />
18117<br />
18118<br />
18119<br />
18120<br />
18121<br />
18122<br />
18123<br />
18124<br />
18125<br />
18126<br />
18127<br />
18128<br />
18129<br />
18130<br />
18131<br />
46Cl<br />
46C4<br />
46C5<br />
46C8<br />
46CB<br />
46CE<br />
4601<br />
CD<br />
E5<br />
21<br />
01<br />
CD<br />
CD<br />
DA<br />
2C<br />
FC<br />
80<br />
4F<br />
21<br />
7E<br />
17<br />
OF<br />
00<br />
47<br />
00<br />
47<br />
CALL 172C<br />
PUSH HL<br />
LD HL, OFFC<br />
18132 4604 EI<br />
POP HL<br />
18133 4605 C9 RET<br />
LD BC, 0080<br />
CALL 474F<br />
CALL 0021<br />
JP C. 477E<br />
I DATE I KENNUNG AUS DATEN<br />
I (HU AUFBEREITEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER FüR KENNUNG<br />
LÄNGE PROGRAMMKENNUNG<br />
•<br />
ITEXTAUSGABEFLAG FüR<br />
I BAND SETZEN<br />
KENNUNG AUF BAND SCHREIBEN<br />
FEHLER AUFGETRETEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
BASIC 1Z-0<br />
Datei-Namen bereitstellen und<br />
18 134<br />
18135<br />
18136<br />
18137<br />
18138<br />
18139<br />
18140<br />
18141<br />
18142<br />
46D6<br />
46D9<br />
46DA<br />
46DD<br />
46DE<br />
CD<br />
E5<br />
CD<br />
EI<br />
C9<br />
2C<br />
08<br />
17<br />
47<br />
CALL 172C<br />
PUSH HL<br />
CALL 4708<br />
POP HL<br />
RET<br />
Befehl ROPEN<br />
18143 46DF<br />
18144<br />
1814546El<br />
18 146<br />
18147<br />
18148 46E4<br />
18149<br />
18150<br />
18151 46E7<br />
181 52 46E8<br />
181 53<br />
181 54<br />
18 155 46EB<br />
18156<br />
18157 46ED<br />
18158<br />
18159<br />
18160 46FO<br />
181 61<br />
181 62<br />
18163<br />
181 64<br />
18165<br />
18166<br />
18167<br />
18168<br />
18169<br />
18170<br />
18171<br />
18172<br />
18173<br />
18174<br />
18175<br />
18176<br />
181 77<br />
18178<br />
18179<br />
18180<br />
181 81<br />
181 82<br />
IB183<br />
46F4<br />
46F7<br />
46FA<br />
46F"D<br />
46FF<br />
4701<br />
4703<br />
4706<br />
3E<br />
32<br />
CD<br />
E5<br />
CD<br />
20<br />
CD<br />
FD<br />
CD<br />
3A<br />
32<br />
FE<br />
28<br />
FE<br />
C2<br />
18<br />
00<br />
FC<br />
2C<br />
37<br />
40<br />
64<br />
36<br />
08<br />
FC<br />
8E<br />
04<br />
BA<br />
03<br />
CC<br />
B3<br />
OF<br />
17<br />
45<br />
47<br />
0149<br />
47<br />
OF<br />
45<br />
41<br />
LD A, 00<br />
LD (OFFC)<br />
CALL 172C<br />
PUSH HL<br />
CALL 4537<br />
JR NZ, 40<br />
CALL 4764<br />
LD (IY+O<br />
CALL 4708<br />
LD A, (OF~<br />
LD (458E)<br />
CP 04<br />
JR Z, BA<br />
CP 03<br />
JP NZ, 41<br />
JR B3 +
SEITE 310 <br />
BASIC 1Z-013B V1_0A <br />
richtige Kennung nach vorgegebenem Namen vom Band lesen<br />
18184 4708 21 OF 11 LD HL. 110F I ZEIGER AUF ZWISCHEN<br />
18185 I SPEICHER FüR KENNUNG<br />
18186<br />
18187 470B 01 80 00 LD BC. 0080 ; LÄNGE KENNUNG<br />
18188<br />
18189<br />
18190 470E CD 4F 47 CALL 474F ITEXTAUSGABEFLAG FüR<br />
18191 I BAND SETZEN<br />
18192<br />
18193 4711 CD 27 00 CALL 0027 KENNUNG VON BAND LESEN<br />
18194<br />
18195<br />
18196 4714 38 68 JR C. 68 + 477EH FEHLER AUFGETRETEN<br />
18197<br />
18198 4716 11 OE 18 LD DE. 180E TEXT Found<br />
18199<br />
18200<br />
18201 4719 CD 3F 47 CALL 473F I IN DIREKTER PROGRAMM<br />
18202 I IERUNG + Found UND<br />
18203 I FILE-NAMEN AUSGEBEN<br />
18204 471C CD EE 16 CALL 16EE. I VORGEGEBENEM FILE-NAMEN<br />
18205 IMIT GELESENEM VERGLEICHEN<br />
18206<br />
18207 471F 20 E7 JR NZ. E7 + 4708H I FALSCHER NAME +<br />
18208 I NÄCHSTE KENNUNG LESEN<br />
18209 4721 21 OF 11 LD HL. 110F I ZEIGER AUF GELESENE<br />
18210 I KENNUNG<br />
18211<br />
18212 4724 11 FC OF LD DE. OFFC I ZEIGER AUF SPEICHER<br />
18213 I FüR KENNUNG<br />
18214<br />
18215 4727 01 80 00 LD BC. 0080 LÄNGE KENN UNG<br />
18216<br />
18217<br />
18218 472A ED BO LDIR KENNUNG MERKEN<br />
18219<br />
18220 472C C9 RET<br />
18221 472D 3E 2B LD A. 2B • FEHLER 49<br />
18222<br />
18223 472F C3 08 21 JP 2108 FEHLER BEHANDELN<br />
18224<br />
18225<br />
Na men der geöffneten Datei merken<br />
18226 4732 11 FC OF LD DE. OFFe I ZEIGER AUF SPEICHER<br />
18227 I FüR KENNUNG<br />
18228<br />
18229 4735 01 20 00 LD BC. 0020 LÄNGE DATEIKENNUNGSDATEN<br />
18230<br />
18231<br />
18232 4738 E5 PUSH HL • ZEIGER AUF TEXT<br />
18233 4739 ED BO LDIR ; I DATEN NACH SPEICHER<br />
1823 4 I üBERTRAGEN<br />
18235 473B EI POP HL ZEIGER AUF TEXT<br />
18236 473C C3 BB 46 JP 46B8 DATEI ERöFFNET MERKEN<br />
18237<br />
BASIC 1Z-0<br />
18238<br />
in direkter Programmierung Te<br />
18239 473F<br />
18240 <br />
18241<br />
CD 46 47<br />
18242 4742 CC C8 16<br />
18243 <br />
18244 <br />
18245 4745 C9<br />
CALL 4746<br />
CALL Z. 1<br />
RET<br />
testen. ob in direkter Progra<br />
18246 4746 E5<br />
18247 4747 2A E6 38 <br />
18248 <br />
18249 <br />
PUSH HL<br />
LD HL. (3<br />
18250 474A 23<br />
INC HL<br />
18251 474B 7C<br />
LD A.H<br />
18252 474C 85<br />
OR L<br />
18253 474D E1<br />
POP HL<br />
18254 474E C9 RET<br />
Textausgabeflag fUr Band set<br />
(im Programm werden Texte wi<br />
18255 474F F5<br />
18256 4750 CD 46 47<br />
18257<br />
18258<br />
18259 4753 32 50 00 LD<br />
18260<br />
18261<br />
18262 4756 Fl<br />
18263 4757 C9<br />
PUSH AF<br />
CALL 474<br />
POP AF<br />
RET<br />
SEITE 312<br />
BASIC 1Z-013B V1.0A<br />
Dateiflags und<br />
Band-Puffer löschen<br />
18276 4764<br />
18277 4765<br />
18278 4766<br />
18279<br />
18280 4768<br />
18281 4769<br />
18282<br />
18283 476B<br />
18284 476C<br />
18285 476D<br />
18286 476E<br />
18287<br />
18288 4770<br />
18289<br />
18290 4772<br />
18291 4773<br />
18292 4774<br />
18293<br />
18294 4776<br />
18295 4777<br />
18296 4778<br />
E5<br />
C5<br />
FD E5<br />
E1<br />
06 10<br />
AF<br />
77<br />
23<br />
10 FC<br />
06 00<br />
77<br />
23<br />
10 FC<br />
Cl<br />
E1<br />
C9<br />
PUSH HL<br />
PUSH BC<br />
PUSH IY<br />
POP HL<br />
LD B. 10<br />
XOR A<br />
LD (HL>. A<br />
INC HL<br />
DJNZ FC + 476CH<br />
LD B. 00<br />
LD (HL> ,A<br />
INC HL<br />
DJNZ FC + 4772H<br />
POP BC<br />
POP HL<br />
RET<br />
I REGISTER RETTEN<br />
I ZEIGER AUF DATEI-FLAGS<br />
ANZAHL FLAGS<br />
ACCU AUF NULL<br />
I DATE I FLAGS LöSCHEN<br />
256 ZEICHEN (?ufferlänge)<br />
IBAND-DATEI-PUFFER<br />
I LöSCHEN<br />
I GERETTETE REGISTER HOLEN<br />
Bandfehler behandeln<br />
18297 4779 F5<br />
18298 477A CD 39 22<br />
18299<br />
18300<br />
18301 477D F1<br />
18302 477E 08<br />
18303 477F AF<br />
18304 4780 32 19 18<br />
18305<br />
18306<br />
18307 4783 CD 37 45<br />
18308<br />
18309<br />
18310 4786 FD 36 00 00<br />
18311<br />
18312<br />
18313<br />
18314 478A 08<br />
18315 478B FE 02<br />
18316<br />
18317 478D C2 69 20<br />
18318<br />
18319<br />
18320 4790 3E 18<br />
18321<br />
18322 4792 C3 08 21<br />
18323<br />
18324<br />
PUSH AF<br />
CALL 2239<br />
POP AF<br />
EX AF,AF'<br />
XOR A<br />
LD (1819),A<br />
CALL 4537<br />
LD
SEITE 314<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z-<br />
18385<br />
Text<br />
Wenn<br />
(OE)<br />
ja ..<br />
auf Basic - Befehl<br />
in richtigen Zwisc<br />
18386<br />
18387<br />
18388<br />
18389<br />
18390<br />
18391<br />
18392<br />
18393<br />
18394<br />
18395<br />
18396<br />
18397<br />
18398<br />
18399<br />
18400<br />
18401<br />
18402<br />
18403<br />
18404<br />
18405<br />
18406<br />
18407<br />
18408<br />
18409<br />
47D2<br />
47D4<br />
47D6<br />
47D8<br />
47DB<br />
47DD<br />
47DE<br />
47DF<br />
47EO<br />
47E1<br />
47E4<br />
47E6<br />
18410 47EA<br />
18411 47EB<br />
18412 47EC<br />
18413<br />
18414<br />
18415 47EF<br />
18416<br />
18417 47Fl<br />
18418<br />
18419<br />
18420 47F4<br />
18421 47F5<br />
18422<br />
18423<br />
18424 47F8<br />
18425<br />
18426<br />
18427 47FB<br />
18428<br />
18429<br />
18430<br />
18431<br />
18432<br />
18433<br />
36 E4<br />
18 02<br />
36 8F<br />
CD 37<br />
18 Cl<br />
77<br />
Cl<br />
Dl<br />
C9<br />
CD 2B<br />
28 F7<br />
18 B6<br />
49<br />
LD (HU. E4<br />
JR 02 .. 47D8H<br />
LD (HU. 8F<br />
CALL 4937<br />
JR Cl .. 479EH ;<br />
LD (HU. A<br />
POP BC<br />
POP OE<br />
RET<br />
49 CALL 4928<br />
JR Z. F7 .. 47DDH<br />
JR B6 .. 479EH<br />
~ (Zwischencode)<br />
ZEIGER UND ZÄHLER CORR.<br />
PRINT (Zwischencode)<br />
(ZEIGER UND ZÄHLER<br />
( CORRIGIEREN<br />
WEITER UMSETZEN<br />
ZEILENENDE EINTRAGEN<br />
• GERETTETES REGISTER HOLEN<br />
ZEIGER AUF ASCII-TEXT<br />
I TEXT BIS ZUM 2ten 11<br />
I üBERTRAGEN<br />
IZEILENENDE .. MERKEN UND<br />
I GERETTETE REGISTER HOLEN<br />
WEITER UMSETZEN<br />
18434 4802<br />
18435 4803<br />
18436<br />
18437<br />
18438 4806<br />
1843 9<br />
18440<br />
18441 4809<br />
18442<br />
18443 480B<br />
18444<br />
18445<br />
18446 480E<br />
18447<br />
18448<br />
18449 4811<br />
18450<br />
18451 481 3<br />
18452<br />
18453 4815<br />
18454<br />
18455<br />
18456 4818<br />
18457<br />
C5<br />
01 F5 2A<br />
CD F4 48<br />
30 39<br />
01 54 2C<br />
CD<br />
OE<br />
F4<br />
FE<br />
30 OA<br />
01 A9 30<br />
CD F4 48<br />
PUSH BC<br />
LD BC. 2<br />
CALL 48F<br />
JR NC. 3<br />
LD BC. 2<br />
48 CALL 48F<br />
LD C. FE<br />
JR NC. O<br />
LD BC.<br />
CALL 48<br />
47E8 18 B4 JR 84 .. 479EH WEITER üBERSETZEN 18458<br />
18459 481B OE FF LD C. F<br />
47FD<br />
4800<br />
Cl<br />
lA<br />
CD C7<br />
38 OC<br />
CD 36<br />
1A<br />
CD BE<br />
DA 9E<br />
18 F4<br />
CD 36<br />
18 9C<br />
3A<br />
49<br />
3A<br />
47<br />
POP BC<br />
LD A.
SEITE 316<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z-<br />
18493 18551<br />
18552<br />
18494<br />
18495<br />
18496<br />
18497<br />
18498<br />
18499<br />
483E<br />
4841<br />
18500 4844<br />
18501 4845<br />
CO<br />
C3<br />
78<br />
Cl<br />
36<br />
OE<br />
49<br />
48<br />
CALL 4936<br />
JP 48DE<br />
LD A.B<br />
POP BC<br />
I ZEICHEN IM ACCU FüR<br />
I Z-CODE-ZEILE MERKEN<br />
IUNO ZEIGER CORRIGIEREN<br />
I TEXT BIS ENDE BEFEHL<br />
lOHNE ZU üBERSETZEN<br />
I üBERNEHMEN<br />
ZWISCHENCODE MERKEN<br />
ZEILENLÄNGE HOLEN<br />
18502 4846 CD 38 49 CALL 4938 I ZWISCHENCODE IM ACCU<br />
18503<br />
I MERKEN UND ZEIGER<br />
18504<br />
ICORRIGIEREN<br />
18505 4849<br />
18506<br />
18507 484B<br />
18508<br />
18509<br />
18510 484E<br />
18511<br />
18512 4850<br />
18513'<br />
18514<br />
18515 4853<br />
18516<br />
18517 4855<br />
18518<br />
18519 4857<br />
18520<br />
18521 4859<br />
18522<br />
18523 485B<br />
18524<br />
18525 4850<br />
18526<br />
18527 485F<br />
18528<br />
FE<br />
CA<br />
FE<br />
CA<br />
FE<br />
28<br />
FE<br />
28<br />
FE<br />
30<br />
FE<br />
97<br />
OE<br />
94<br />
OE<br />
C2<br />
70<br />
E2<br />
29<br />
80<br />
89<br />
87<br />
48<br />
48<br />
CP<br />
JP<br />
CP<br />
JP<br />
CP<br />
JR<br />
CP<br />
JR<br />
CP<br />
JR<br />
CP<br />
97<br />
Z. 48DE<br />
94<br />
Z. 48DE<br />
C2<br />
Z. 70 ~ 48D4H<br />
E2<br />
Z. 29 ~ 4884H<br />
80<br />
NC. 89 ~ 47E8H<br />
87<br />
REM
18609<br />
18611<br />
18612<br />
18614<br />
18616<br />
18619<br />
18624<br />
18626<br />
18628<br />
18630<br />
18632<br />
18635<br />
18637<br />
18638<br />
18646<br />
18651<br />
IM<br />
18660<br />
18662<br />
18665<br />
18667<br />
18669<br />
18670<br />
18672<br />
18673<br />
18675<br />
18681<br />
18696 <br />
18698 <br />
18705<br />
22<br />
JR NZ,<br />
JR EA<br />
PUSH H<br />
A<br />
JR NZ.<br />
LD C.<br />
INC Oe<br />
JR Z,<br />
18702 490E FE 2E CP 2E<br />
18703<br />
18668 48EC CD 2F 49 CALL 49<br />
LD A, auf Basic-Befeh<br />
05 PUSH D<br />
18682 48FA Dl POP DE<br />
18685 48FD 7E LD A. (<br />
CD C8 49 CALL 49<br />
18706 4912 91 SUB C<br />
69 LD L.C<br />
60 LD H.B<br />
18709 49 15 FE 80 CP 8<br />
18688<br />
18689 4901 01 POP DE<br />
18700 490C 23 INC H<br />
18684 48FC 04 INC B<br />
18704 4910 28 OF JR Z.<br />
18697 4909 28 FA JR Z.<br />
LO A.<br />
18680 48F8 06 7F LD B.<br />
18671 48EF CA DD 47 JP Z,<br />
C9 RET<br />
18691 4903 37 SCF<br />
18642 4802 18 CA JR CA ~ 489EH • lAUF WEITERE ZEILENNUMMERN 18686 48FE 3C INC<br />
18618 'TEXT MERKEN 18664 48E8 FE 22 CP<br />
18701 4913 2 8 Fl<br />
18708<br />
18687 48FF 20 05<br />
18674 48F2 18 EA<br />
18666 48EA 20 F2<br />
ASCII - Tex t<br />
18699 490B 4E<br />
18701 4900 13<br />
18694 4906 lA<br />
18676 48F4 E5<br />
18608 I UND ZEIGER CORRIGIEREN 18654 48DE lA<br />
18693 4905<br />
18644 48D4 2B DEC HL • ZEIGER AUF Z-CODE ELSE 18692 4904<br />
18690 4902<br />
18679 48F7<br />
CD BE 3A CALL 3A8E I TESTEN. OB ASCII 18677 48F5<br />
18634 I ACCU GLEICH ZIFFER IST 18678 48F6<br />
18658 48E2<br />
18655 48DF<br />
CD 28 49 CALL 4928 ILABEL IM ZWISCHENCOOE 1866.3<br />
18613 48B5 FE 22 CP 22 (Anführungszeichen) 18659<br />
I (HL) üBERTRAGEN 18657<br />
18610 48B2 CD 3E 49 CALL 493E ISpaces VON (OE) NACH 18656<br />
18623 'GERETTETE REGISTER HOLEN<br />
18621 lAUF ZEILENNUMMER UNTERS.<br />
18627 48C3 38 07 JR C. 07 . ~ 48CCH KEINE ZEILENNUMMER MEHR<br />
CD 83 49 CALL 4983 , IA9CII-ZEILENNUMMER UM<br />
18607 48AF CD 36 49 CALL 4936 ITEXTZEICHEN MERKEN (P)<br />
C3 DD 47 JP 47DD • lENDE ZEILE MERKEN UND<br />
18639 48CF<br />
18640 ISETZEN IN HEX UND MIT<br />
18648 48D8 77 LO (HU.A ; Z-CODE ELSE EINTRAGEN<br />
18620 48BC 20 EO JR NZ~ EO ~ 489EH I NICHT ZEILENENDE ~<br />
18649 48D9 CD 38 49 CALL 4938 I ZEIGER UND ZÄHLER<br />
(HU. 3A
SEITE 320<br />
BASIC 1Z-013B V1.0A<br />
18710<br />
18711 4917 28 OE<br />
18712<br />
18713 4919 2B<br />
18714 491A 7E<br />
18715 491B 07<br />
18716 491C 23<br />
18717 4910 30 FB<br />
18718<br />
18719 491F 18 09<br />
18720<br />
18721 4921 78<br />
18722 4922 FE EE<br />
18723<br />
18724 4924 30 F3<br />
18725<br />
18726 4926 3F<br />
18727 4927 E1<br />
18728 4928 El<br />
18729 4929 70<br />
18730 492A C9<br />
JR Z. OE ~ 4927H<br />
OEC HL<br />
LD A. (HL><br />
RLCA<br />
INC HL<br />
JR NC. FB -+ 491AH<br />
JR 09 -+ 48FAH<br />
LD A.B<br />
CP EE<br />
JR NC. F3 ~ 4919H<br />
CCF<br />
POP HL<br />
POP HL<br />
LD (HL> .8<br />
RET<br />
• JA ~ BEFEHL GEFUNDEN<br />
ZEIGER AUF TABELLE<br />
EIN ZEICHEN AUS TABELLE<br />
BEFEHLSENDE ?<br />
ZEIGER AUF TABELLE<br />
BEFEHLSENDE SUCHEN<br />
I NÄCHSTEN BEFEHL AUS<br />
I TABELLE VERGLEICHEN<br />
; ZWISCHENCODE HOLEN<br />
SONDERZEICHENBEFEHL ?<br />
IJA ~ ABKüRZUNG NICHT<br />
I ERLAUBT<br />
CODE BEFEHL GEFUNDEN<br />
ZEIGER ANFANG TEXT V~RGESS.<br />
ZEIGER FüR ZWISCHENCODE<br />
ZWISCHENCODE EINTRAGEN<br />
Text bis zum 2ten<br />
Anführungzeichen oder<br />
Zeilenende übertragen<br />
18731 492B<br />
18732 492C<br />
18733<br />
18734<br />
18735 492F<br />
18736 4930<br />
18737 4931<br />
18738 4932<br />
18739<br />
18740 4934<br />
18741<br />
18742 4936<br />
18743 4937<br />
18744 4938<br />
18745 4939<br />
18746 493A<br />
18747 4938<br />
18748<br />
18749<br />
77<br />
CD 37 49<br />
lA<br />
B7<br />
C8<br />
FE 22<br />
20 F5<br />
77<br />
13<br />
23<br />
OC<br />
CO<br />
C3 F2 20<br />
LD (HL>. A<br />
CALL 4937<br />
LD A. (OE)<br />
OR A<br />
RET Z<br />
CP 22<br />
JR NZ. F5 + 4928H<br />
LD (HU .A<br />
INC DE<br />
INC HL<br />
INC C<br />
RET NZ<br />
JP 20F2<br />
•<br />
ZEICHEN EINTRAGEN<br />
I ZEIGER UND ZEILENLÄNGE<br />
I CORRIGIEREN<br />
EIN ZEICHEN ASCII-TEXT<br />
• ZEILENENDE ?<br />
JA<br />
(Anführungszeichen)<br />
INICHT TEXTENDE ~ ZEICHEN<br />
I MERKEN UND TEXTENDE SUCHEN<br />
ZEICHEN IN Z-CODE MERKEN<br />
ZEIGER AUF ASCII-TEXT<br />
ZEIGER FüR ZWISCHENCODE<br />
ZEILENLÄNGE PLUS EINS<br />
NOCH OK<br />
I GRöSSER 2~6 ~<br />
I ZEILE ZU LANG FEHLER<br />
Spaces<br />
von übertragen<br />
18750 493E<br />
18751 493F<br />
18752<br />
18753 4941<br />
18754 4942<br />
lA<br />
FE<br />
CO<br />
77<br />
CD<br />
20<br />
LD A.
SEITE 322 <br />
BASIC 1Z-013B V1_0A <br />
BASIC 1Z-<br />
Auf ELSE untersuchen<br />
Zeilennummer- .C • I WERT MERKEN<br />
18850 49A2 23 INC HL<br />
18899<br />
I<br />
18851 49A3 70<br />
18900 4904<br />
LD (HU.B<br />
OE 00<br />
I<br />
LO C. 00<br />
'? 18901<br />
188~2 49A4 23 INC HL.. , ZEIGER FüR ZWISCHENCODE ' J 18902 4906 7E LD A. (HL<br />
18853 49A:3 Cl POP BC , ZEILENLÄNGE HOLEN ''I'<br />
' t' 18903 4907 FE 27 CP 27<br />
188S4 49A6 81 ADD A.·C , PLUS ANZAHL FüR WERT<br />
'I<br />
18855 49A7 DA F2 20<br />
18904<br />
JP C. 20F2 I I ZEILE HAT MEHR ALS 2S6 1' 1<br />
18856<br />
18857 IPROGRAM<strong>MZ</strong>EILE ZU LANG 1<br />
18858 49AA 4F LD C.A • NEUE ZEILENLÄNGE MERKEN<br />
,i<br />
18905 4909 28 4B JR Z. 4B<br />
I ZEICHEN ... FEHLER 8 ;1:: 18906<br />
18907 490B 23 INC HL<br />
18859 49AB 1B<br />
~<br />
DEC OE<br />
18908 490C 87<br />
ZEIGER AUF ASCII-TEXT<br />
OR A<br />
,I ~I 18909 4900 28 25 JR Z. 25<br />
18860 49AC 1A LD A.
SEITE 324<br />
BASIC 1Z-013B<br />
18917<br />
18918<br />
18919 49E7 FE 22 CP 22<br />
18920<br />
18921 49E9 28 ~B JR Z. 5B ~ 4A46H<br />
18922<br />
18923 49EB FE 3A CP 3A<br />
18924<br />
18925 49ED 28 69 JR Z, 69 ~ 4A58H<br />
18926<br />
18927 49EF FE 97 CP 97<br />
18928<br />
18929 49F1 28 2E JR Z, 2E + 4A21H<br />
18930<br />
18931 49F3 FE 94 CP 94<br />
18932<br />
18933 49F5 28 2A JR Z, 2A ~ 4A21H<br />
18934<br />
18935 49F7 FE E4 CP E4<br />
18936<br />
18937 49F9 28 OE JR Z, OE ~ 4A09H<br />
18938<br />
18939 49FB FE 80 CP 80<br />
18940<br />
18941 49FD 30 OE JR NC. OE ~ 4AODH<br />
18942<br />
18943 49FF CD E3 4A CALL 4AE3<br />
18944<br />
18945<br />
18946 4A02 18 D2 JR D2 + 49D6H<br />
18947<br />
18948 4A04 12 LD eDE) ,A<br />
18949 4A05 Cl POP BC<br />
18950 4A06 Dl POP DE<br />
18951 4A07 EI POP HL<br />
18952 4A08 C9 RET<br />
18953 4A09 3E FF LD A, FF<br />
18954<br />
18955 4AOB 18 F2 JR F2 + 49FFH<br />
18956<br />
einen Zwischencode umsetzen in ASCII<br />
189~7 4AOD FE FE CP FE<br />
189~8<br />
18959 4AOF 38 OB JR C. OB ~ 4A1CH<br />
18960<br />
18961 4Al1 3C INC A<br />
18962 4A12 01 A9 30 LD BC. 30A9<br />
18963<br />
18964<br />
18965 4A15 28 03 JR Z. 03 ~ 4A1AH<br />
18966<br />
18967 4A17 01 54 2C LD BC. 2C54<br />
18968<br />
18969<br />
18970 4AIA 7E LD A, (HU<br />
V1.0A<br />
SEITE 326<br />
BASIC 1Z-013B V1_0A BASIC 1Z-0<br />
19021 4A40 28 B5<br />
19022<br />
19023 4A4F 23<br />
19024 4A50 88<br />
19025 4A51 28 AC<br />
19026<br />
19027 4A53 CO E3 4A<br />
19028<br />
19029<br />
19030 4A56 18 F3<br />
19031<br />
19032 4A58<br />
19033 4A59<br />
19034 4A5A<br />
19035<br />
19036 4A5C<br />
19037<br />
12<br />
7E<br />
FE C2<br />
CA 06 49<br />
19038<br />
19039 4A5F CD E6 4A<br />
19040<br />
19041<br />
19042 4A62 C3 02 4A<br />
19043<br />
19044<br />
JR Z. 85 • 4A04H<br />
INC HL<br />
CP 8<br />
JR Z. AC ~ 49FFH<br />
CALL 4AE3<br />
JR F3 ~ 4A48H<br />
LO (OE).A<br />
LO A. (HU<br />
CP C2<br />
JP Z. 4906<br />
CALL 4AE6<br />
JP 4A02<br />
Zahl konstante umsetzen in ASCII<br />
19045 4A65 FE 15<br />
19046<br />
19047 4A67 28 44<br />
19048<br />
19049 4A69 FE OB<br />
19050<br />
19051 4A6B 30 05<br />
19052<br />
19053 4A6D 3D<br />
CP 15<br />
JR Z. 44 ~ 4AAOH<br />
CP 08<br />
JR NC. 05 ~ 4A72H<br />
OEC A<br />
JA + FERTIG<br />
ZEIGER AUF Z-CODE ZEILE<br />
Anführungszeichen ?<br />
IJA ~ ZEICHEN MERKEN<br />
IUNO RESTZEILE UMSETZEN<br />
IASCII-ZEICHEN IM ACCU<br />
I FüR ASCII-TEXT-ZEILE<br />
I MERKEN<br />
TEXTKONSTANTENENDE SUCHEN<br />
$ MERKEN<br />
NÄCHSTES Z-CODE ZEICHEN<br />
ELSE
19135<br />
19136<br />
19140<br />
19141<br />
19143<br />
19145<br />
19151<br />
19152<br />
19156<br />
19161<br />
19163<br />
19164<br />
19168<br />
19170 <br />
19176<br />
19177<br />
19180<br />
19181<br />
19187<br />
19189<br />
19193<br />
19194<br />
19197<br />
19199<br />
19202<br />
19207<br />
19214<br />
19215<br />
19217<br />
19218<br />
19221<br />
19222<br />
19229<br />
1923 0<br />
19238<br />
19240<br />
19241 <br />
Hex <br />
CP 30<br />
LO C.E<br />
LD A,L<br />
RRCA<br />
RRCA<br />
AND A.<br />
0<br />
Hex-Wert umsetzen in ASCII - H<br />
19220 4B14 CO IB 4B CALL 4B<br />
EB EX DE.HL<br />
19195 4AFB CO 13 4B CALL 4B1<br />
19196<br />
19219 4813 05 PUSH DE<br />
LO A. 24<br />
CALL 4A<br />
19216 4BI0 C3 A2 4A JP 4AA2<br />
19232 4B20 F5 PUSH A<br />
19239 4B27 CD 20 4B CALL 4<br />
19212 4BOC 08 EX AF.A<br />
LO A,
SEITE 330 <br />
BASIC 1Z-013B V1.0A <br />
19242 4B2A F1 POP AF WERT HOLEN<br />
19243 4B28 E6 OF AND A. OF I L-NIBBLE MASKIEREN<br />
19244<br />
19245 4B2D C6 30 ADD A. 30 UMSETZEN IN ASCII<br />
19246<br />
19247 4B2F FE 3A CP 3A l 0 - 9 ?<br />
19248<br />
19249 4B31 38 02 JR C. 02 ~ 4B35H JA ~ ZEICHEN OK<br />
19250<br />
19251 4833 C6 07 ADD A. 07 FüR A - F CORRIßIEREN<br />
19252<br />
19253 4835 12 LD (DE).A ASCII-ZEICHEN MERKEN<br />
19254 4836 13 INC DE , ZEIGER FüR ASCII-TEXT<br />
192:i5 4837 C9 RET<br />
(DE) angegebene Dezimal-Zeilennummer umsetzen in HEX nach BC<br />
19256 4838 E5 PUSH HL REGISTER RETTEN<br />
19257 4839 CD 48 48 CALL 4B4B IDEZIMAL-ASCII (DE) UM<br />
19258 ISETZEN IN HEX-WERT NACH HL<br />
19259<br />
19260 4B3C 4D LD C.L I WERT NACH BC<br />
19261 483D 44 LD B.H<br />
19262 483E 18 DEC DE • I ZEIGER AUF ASCII-TEXT<br />
19263 4B3F IB DEC DE I<br />
19264 4B40 EI POP HL 9ERETTETES REGISTER HOLEN<br />
19265 4841 1A LD A. <br />
19294<br />
19295 4B5F CD 6E 4B CALL 486E I HL * 2<br />
BASIC 1<br />
19296<br />
19297 <br />
19298 4862 09 ADD<br />
19299 4863 38 06 JR C<br />
19300<br />
19301 4B65 4F LD C<br />
19302 4866 06 00 LD 8<br />
19303 <br />
19304 4868 09 ADD<br />
19305 4869 30 E3 JR N<br />
19306<br />
19307 4868 C3 F5 20 JP 20<br />
19308 <br />
19309 <br />
HL * 2 mit Untersuchung<br />
19310 4B6E 29 ADD H<br />
19311 486F DO RET N<br />
19312 4870 18 F9 JR F9<br />
19313<br />
Texte für Fehlermeldungen<br />
19314 4872 53 S<br />
19315 4B73 BD <br />
y <br />
19316 4B74 BO n<br />
19317 4B75 96 t<br />
19318 4B76 Al a <br />
19319 4877 98 x <br />
19320 4B78 20 Sp<br />
19321 4B79 92 e<br />
19322 487A 9D r<br />
19323 4B7B 9D r<br />
19324 487C B7 o<br />
19325 4B7D 9D r<br />
19326 487E 00<br />
19327 487F 4F o<br />
19328 4880 AB v<br />
19329 4B81 92 e<br />
19330 4B82 9D r<br />
19331 4B83 20 Sp<br />
19332 4B84 AA f<br />
19333 4B85 B8 1<br />
19334 4886 87 o<br />
19335 4B87 A3 w<br />
19336 4B88 20 Sp<br />
19337 4B89 92 e<br />
19338 4B8A 9D r<br />
19339 4B8B 9D r<br />
19340 4B8C B7 o<br />
19341 4B8D 9D r<br />
19342 4B8E 00<br />
19343 4B8F 49<br />
19344 4890 B8<br />
19345 4B91 B8<br />
19346 4892 92 e<br />
19347 4B93 97 9
BO<br />
a<br />
e<br />
0<br />
r<br />
i<br />
I<br />
S<br />
t<br />
r<br />
r<br />
e<br />
n<br />
t<br />
h<br />
M<br />
e<br />
m<br />
0<br />
r<br />
i<br />
t<br />
e<br />
r<br />
a<br />
c<br />
~.~ :~'<br />
~ ,<br />
I ,<br />
1<br />
"<br />
1-<br />
I<br />
19421 4BOO 4C L<br />
19426 4BE2 B8 I<br />
"/ 19430 4BE6 96 t<br />
19433 48E9 92 e<br />
19443 4BF3 55 U<br />
19450 4BFA A6 i<br />
19451 48F8 BO n<br />
19462 4C06 52 R<br />
e<br />
BASIC 1Z<br />
19445 4BF5 20 Sp<br />
19405 48CO 41 A<br />
19406 4BCE 90 ,..<br />
19407 48CF 90 ,..<br />
19408 4800 Al a<br />
19409 4801 BO y<br />
19410 4B02 20 Sp<br />
19411 4803 9C d<br />
19412 4B04 92 e<br />
19413 4805 AA f<br />
19414 4806 20 Sp<br />
19415 4B07 92 e<br />
19416 4B08 90 ,..<br />
19417 4B09 90 r<br />
19418 4BOA B7<br />
0<br />
19419 480B 90 r<br />
19420 480C 00<br />
19422 4BOE A6<br />
19423 4BOF BO n<br />
19424 4BEO 92 e<br />
19425 4BEl 20 Sp<br />
19427 4BE3 92 e<br />
19428 4BE4 BO n<br />
I 19429 48E5 97 9<br />
19432 4BE8 20 Sp<br />
19444 4BF4 42 B<br />
" 19431 48E7 98 h<br />
19434 4BEA 90 r<br />
19435 48EB 90 r<br />
19436 4BEC B7<br />
0<br />
19437 4BEO 90 r<br />
19438 4BEE 00<br />
19439 4BEF 80<br />
19440 48FO 47 G<br />
19441 4BFI 4F 0<br />
19442 48F2 53 S<br />
19446 4BF6 BO n<br />
19447 4BF7 " 92<br />
19448 48F8 A4 s<br />
19449 4BF9 96 t<br />
19452 48FC 97 9<br />
19453 4BFO 20 S<br />
19454 48FE 92 e<br />
19455 4BFF 90 r<br />
19456 4COO 90 r<br />
19457 4C01 87<br />
0<br />
19458 4C02 90 r<br />
19459 4C03 00<br />
19460 4C04 46 F<br />
19461 4C05 4F 0<br />
Text für Fehler 4 <br />
Text für Fehler 5<br />
BASIC 1Z-013B V1.0A<br />
Te)(tende<br />
19349 4B9:5 B8 1<br />
19351 4897 9C d<br />
Space<br />
19352 4B98 Al a<br />
19353 4B99 96 t<br />
19354 4B9A Al a<br />
19357 4B90 90 r<br />
Space<br />
19358 4B9E 90 r<br />
19365 4BA5 90 r<br />
19366 4BA6 A6<br />
19367 4BA7 BO n<br />
20 " Space<br />
19368 4BA8 97 9<br />
19370 4BAA B8<br />
19371 48A8 92<br />
19372 4BAC BO<br />
9 ~ t<br />
; Text für Fehler 6<br />
Textende<br />
Textende<br />
19373 4BAO 97<br />
19374 48AE 96<br />
19375 4BAF 98<br />
19376 48BO 20<br />
Space<br />
20 '"Space<br />
19377 4B81 92 e<br />
19378 48B2 90<br />
19379 4883 90 r <br />
19380 48B4 87 0<br />
19381 4B85 90<br />
19382 48B6 00<br />
19383 48B7 40<br />
19384 4BB8 92<br />
19385 4B89 B3<br />
19386 4BBA B7<br />
19387 48BB 90<br />
19390 4BBE 9F c<br />
19393 4BCl Al<br />
19394 48C2 9F<br />
19395 4BC3 A6<br />
19396 4BC4 96<br />
Al<br />
•<br />
9E p<br />
19397 48C5 BO<br />
19398 48C6 20<br />
19399 4BC7 92<br />
19400 4BC8 9D<br />
19401 48C9 90 r<br />
'"Space<br />
19402 4BCA B7 0<br />
19404 4BCC 00<br />
90 r<br />
19363 4BA3 53<br />
19364 4BA4 96<br />
SEITE 332<br />
19362 4BA2 80<br />
19361 4BAl 00<br />
19359 489F B7<br />
19360 4BAO 90<br />
19355 4B98 20<br />
19356 4B9C 92<br />
19350 4896 20<br />
19348 4B94 Al<br />
19403 48CB<br />
19392 48CO<br />
19391 4B8F<br />
19388 4BBC<br />
19389 48BO<br />
19369 4BA9
T<br />
,<br />
BASIC<br />
o::-r:::<br />
19533 4C40 9F<br />
Text für Fehler 12 19538 4C52 20 S<br />
19546 4C5A 80<br />
R Text für Fehler 14 19570 4C72 BO n<br />
T<br />
R<br />
r<br />
r<br />
19576 4C78 81) <br />
19~77 4C79<br />
Q <br />
i<br />
u<br />
0<br />
n<br />
~<br />
1<br />
n<br />
m<br />
c<br />
t<br />
U<br />
e<br />
S<br />
Sj:<br />
S"'<br />
1<br />
19522 4C42 ....J....J<br />
1952"3 4C43 BO n<br />
19524 4C44 20 S<br />
19525 4C45 9C d<br />
19526 4C46 92<br />
19527 4C47 AA f<br />
19528 4C48 2E<br />
19529 4C49 20 S<br />
19530 4C4A AA f<br />
19531 4C48 A5 u<br />
19532 4C4C BO n<br />
19534 4C4E 96<br />
19535 4C4F A6<br />
C Textende 19536 4C50 B7<br />
0<br />
19537 4C51 BO n<br />
19539 4C53 92 e<br />
19540 4C54 90 r<br />
19541 4C55 90 r<br />
19542 4C56 97<br />
19543 4C57 90 r<br />
19544 4C58 00<br />
19547 4C5B 20<br />
19548 4C5C 9C d<br />
19549 4C50 92 e<br />
19550 4C5E AA f<br />
19551 4C5F 2E<br />
19552 4C60 20<br />
19553 4C61 B8<br />
19554 4C62 A6 i<br />
19555 4C63 BO<br />
19556 4C64 92<br />
Textende 19557 4C65 20 • 91<br />
19558 4C66 BO n<br />
Text für Fehler 13 19559 4C67 A5 u<br />
19560 4C68 83<br />
19561 4C69 2E<br />
19562 4C6A 92<br />
•<br />
19563 4C6B 90 r<br />
19565 4C60 87 Q<br />
19566 4C6E 90 r<br />
19508 4C34 00 ; Textende 19568 4C70 43 C<br />
19569 4C71 Al<br />
,jl <br />
Textende<br />
19571 4C73 27<br />
19572 4C74 96 t<br />
19573 4C7:!i 20<br />
19~74 4C76 9F c<br />
19575 4C77 B7<br />
19578 4C7A Ab<br />
96 "t<br />
19579 4C7B 80 n<br />
19580 4C7C A5<br />
i r rS81 4C70 92 e<br />
SEITE 334<br />
BASIC 1Z-013B V1.0A<br />
19470 4COE 20 Space<br />
19472 4C10 9D r<br />
19473 4C11 90 r<br />
19474 4C12 B7 0<br />
19475 4C13 9D r<br />
19476 4C14 00<br />
19477 4C15 44 D<br />
19478 4C16 45 E<br />
19479 4C17 46 F<br />
19480 4C18 20 Spaee<br />
19481 4C19 46 F<br />
19482 4C1A 4E N<br />
19483 4C1B 20 Spaee<br />
19484 4C1C BO n <br />
19485 4C10 92 e 19545 4C59 55 U<br />
19486 4C1E A4 s<br />
19487 4C1F 96 t<br />
19488 4C20 A6<br />
19489 4C21 BO n<br />
19490 4C22 97 9<br />
19491 4C23 20 Spaee<br />
19492 4C24 92 e<br />
19493 4C25 90 r<br />
19494 4C26 90 r<br />
19495 4C27 B7 0<br />
19496 4C28 90 r<br />
19497 4C29 00<br />
19498 4C2A 4E N<br />
19499 4C2B 45 E<br />
19500 4C2C 58 X <br />
19501 4C20 54<br />
19502 4C2E<br />
19503 4C2F 92 <br />
20 Spaee<br />
19504 4C30 90 r<br />
19505 4C31 90 r<br />
19506 4C32 B7<br />
19507 4C33 90 r <br />
e 19564 4C6C 90 ,.<br />
0<br />
19567 4C6F 00<br />
19515 4C3B 20 Spaee<br />
19509 4C35 52<br />
19510 4C36 4:5 E<br />
19511 4C37 :54<br />
19512 4C38 :55 U<br />
19:513 4C39 52<br />
19514 4C3A 4E N<br />
19516 4C3C 92 e<br />
19517 4C30 90 r<br />
19518 4C3E 9D<br />
19519 4C3F 87 0<br />
19520 4C40 9D<br />
19521 4C41 00<br />
19468 4COC 58 X<br />
19469 4COO 54 T<br />
19467 4COB 45 E<br />
19466 4COA 4E N<br />
19471 4COF 92 e<br />
19464 4C08 2E<br />
19465 4C09 2E<br />
19463 4C07 2E
SEITE<br />
19582 4C7E<br />
19583 4C7F<br />
19584 4C80<br />
19585 4C81<br />
19586 4C82<br />
19587 4C83<br />
19588 4C84<br />
19589 4C85<br />
19590 4C86<br />
19591 4C87<br />
19592 4C88<br />
19593 4C89<br />
19594 4C8A<br />
19595 4C8B<br />
19596 4C8C<br />
19597 4C80<br />
19598 4C8E<br />
19599 4C8F<br />
19600 4C90<br />
19601 4C91<br />
19602 4C92<br />
19603 4C93<br />
19604 4C94<br />
19605 4C95<br />
19606 4C96<br />
19607 4C97<br />
19608 4C98<br />
19609 4C99<br />
19610 4C9A<br />
19611 4C9B<br />
19612 4C9C<br />
19613 4C90<br />
19614 4C9E<br />
19615 4C9F<br />
19616 4CAO<br />
19617 4CA1<br />
19618 4CA2<br />
19619 4CA3<br />
19620 4CA4<br />
19621 4CA5<br />
19622 4CA6<br />
19623 4CA7<br />
19624 4CA8<br />
1962:5 4CA9<br />
19626 4CAA<br />
19627 4CAB<br />
19628 4CAC<br />
19629 4CAO<br />
19630 4CAE<br />
19631 4CAF<br />
19632 4CBO<br />
19633 4CB1<br />
19634 4CB2<br />
19635 4CB3<br />
19636 4CB4<br />
19637 4CB5<br />
336<br />
00<br />
40<br />
92<br />
B3<br />
B7<br />
90<br />
BO<br />
20<br />
9E<br />
90<br />
B7<br />
96<br />
92<br />
9F<br />
96<br />
A6<br />
B7<br />
BO<br />
00<br />
49<br />
BO<br />
A4<br />
96<br />
90<br />
A5<br />
9F<br />
96<br />
A6<br />
B7<br />
BO<br />
20<br />
92<br />
9D<br />
90<br />
B7<br />
90<br />
00<br />
43<br />
Al<br />
BO<br />
27<br />
96<br />
20<br />
52<br />
45<br />
53<br />
55<br />
40<br />
45<br />
20<br />
92<br />
90<br />
90<br />
B7<br />
9D<br />
00<br />
BASIC 1Z-013B V1_0A<br />
t<br />
Textende<br />
19638 4CB6<br />
19639 4CB7<br />
M Text für Fehler 18<br />
19640 4CB8<br />
19641 4CB9<br />
e 19642 4CBA<br />
m 19643 4CBB<br />
0 19644 4CBC<br />
r 19645 4CBO<br />
y<br />
19646 4CBE<br />
Space 19647 4CBF<br />
P 19648 4CCO<br />
r 19649 4CCl<br />
o. 19650 4CC2<br />
e 19651 4CC3<br />
C<br />
t 19652 4CC4<br />
0<br />
19653 4CC5<br />
n<br />
Textende<br />
19654 4CC6<br />
19655 4CC7<br />
t<br />
Text für Fehler 19<br />
19656 4CC8<br />
19657 4CC9<br />
n 19658 4CCA<br />
fi<br />
19659 4CCB<br />
t 19660 4CCC<br />
r 19661 4CCO<br />
u 19662 4CCE<br />
C<br />
19663 4CCF<br />
19664 4COO<br />
0<br />
19665 4COl<br />
n 19666 4C02<br />
Spiiace<br />
19667 4C03<br />
e 19668 4C04<br />
r 19669 4CD5<br />
r 19670 4C06<br />
0<br />
19671 4CD7<br />
r 19672 4C08<br />
I Textende<br />
19673 4C09<br />
C<br />
iia 19674 4COA<br />
; Text für Fehler 20<br />
19675 4COB<br />
19676 4COC<br />
n 19677 4COO<br />
t 19678 4COE<br />
19679 4COF<br />
SPiiace<br />
19680 4CEO<br />
R<br />
19681 4CE1<br />
E 19682 4CE2<br />
S<br />
U<br />
r<br />
19683 4CE3<br />
M<br />
E<br />
19684 4CE4<br />
SPiiace<br />
• 19685 4CE5<br />
r 19686 4CE6<br />
Q<br />
r I Te)(tende<br />
19687 4CE7<br />
19688 4CE8<br />
52<br />
45<br />
53<br />
55<br />
40<br />
45<br />
20<br />
92<br />
90<br />
90<br />
B7<br />
90<br />
00<br />
80<br />
80<br />
52<br />
45<br />
41<br />
44<br />
20<br />
92<br />
90<br />
90<br />
B7<br />
90<br />
00<br />
41<br />
B8<br />
90<br />
92<br />
Al<br />
9C<br />
BO<br />
20<br />
B7<br />
9E<br />
92<br />
BO<br />
20<br />
92<br />
90<br />
90<br />
B7<br />
90<br />
00<br />
80<br />
80<br />
80<br />
80<br />
80<br />
80<br />
BASIC 1Z<br />
R<br />
E<br />
S<br />
U<br />
M<br />
E<br />
0<br />
r<br />
e<br />
r<br />
r<br />
Sp<br />
R<br />
E<br />
A<br />
0<br />
0<br />
r<br />
e<br />
r<br />
r<br />
Sp<br />
A<br />
r<br />
r<br />
e<br />
a<br />
d<br />
y<br />
Sp<br />
p<br />
e<br />
n<br />
Sp<br />
0<br />
0<br />
e<br />
r<br />
r<br />
I
BASIC 1Z-013B V1_0A BASIC 1Z-<br />
SEITE 338 .1<br />
19689 4CE9 80 ; Text für Fahler 50 19736 4018 90 r<br />
, 19737 4019 92 e<br />
19690 4CEA 80 Text für Fehler 51 19738 401A Al a<br />
19739 401B 9C d<br />
19691 4CEB 80 ; Text für Fehler ~2 19740 401C BO y<br />
19741 4010 00<br />
19692 4CEC 80 ; Text für Fehler 53<br />
19693 4CEO 80 Text für Fehler ~4<br />
, 19742 401E 80<br />
19743 401F 4F 0<br />
19694 4CEE 80 ; Text für Fehler 55 19744 4020 A5 u<br />
19745 4021 96 t<br />
19695 4CEF 80 , Text für Fehler 56 19746 4022 20 Spac<br />
19747 4023 B7 0<br />
19696 4CFO 80 19748 4024 AA f<br />
• Text für Fehler ~7<br />
19749 4025 20 Spac<br />
19697 4CFl 80 ; Text für Fehler 58 19750 4026 9E p<br />
19751 4027 Al a<br />
19698 4CF2 80 Text für Fehler 59 • 19752 4028 9E p<br />
19 753 4029 92 e<br />
19699 4CF3 80 Text für Fehler 60 • 19754 402A 90 r<br />
19 755 402B 00<br />
19700 4CF4 80 , Text für Fehler 61<br />
19756 4D2C 50 P<br />
19701 4CF5 80 Text für Fehler 62 19757 4020 90 r<br />
, 19758 402E A6<br />
19702 4CF6 4F 0 Text für Fehler 64 19759 402F BO n<br />
19703 4CF7 A~ u ' 19760 4030 96 t<br />
19704 4CF8 96 t 19761 4031 92 · e<br />
1970:5 4CF9 20 SPtice 1976 2 4032 90 r<br />
19706 4CFA B7 0 19763 4033 20 Spac<br />
19707 4CFB AA f 19764 4034 B3 m<br />
19708 4CFC 20 SPtlce 19765 4035 B7 0<br />
19709 4CFO AA f I 19766 4036 9C d<br />
19710 4CFE Ac t '1<br />
197 67 4037 92 e<br />
19711 4CFF B8 1 19768 4038 20 Spac<br />
19712 4000 92 e 19769 4039 92 e<br />
1971:5 4001 20 SPtlc. 19770 403A 90 r<br />
19714 4002 92 19771 403B 90 r<br />
•<br />
1971f5 4003 9D r 19772 403C B7 0<br />
19716 4004 9D r 19773 4030 90 r<br />
19717 4005 81 0 19774 403E 00<br />
19718 4006 90 r<br />
19719 4001 00 T.xt.nd. 19775 403F 80<br />
19776 4040 43 C<br />
1912 0 4D08 80 Text für Fehler 64 l' 19777 4041 98 h<br />
'J 19778 4042 92 e<br />
, 1912 1 4D09 :50 P T.xt für Fehl.r 65<br />
.1<br />
1 . 19779 4043 9F c<br />
19722 4DOA 90 r<br />
't<br />
19780 4044 A9 k<br />
1972:3 4D08 AQ t 19781 4045 20 Spac<br />
1912 4 4DOC 80 n 19782 4046 A4 s<br />
1972 15 4DOD 96 t 19783 4047 A5 u<br />
19'12 6 4DOl; '2<br />
19784 4048 B3 m<br />
1912 7 4DOF 90 ,.•<br />
19785 4049 20 Spac<br />
1912 6 4D10 20 .,..c:.<br />
19786 404A 92 e<br />
191~9 4D11 ~6 i 19787 4048 90 r<br />
19730 4012 A4 19788 404C 90 r<br />
•<br />
197~1 4Dl::S 20 SP.c:. 19789 4040 87 0<br />
197~2 4D14 BO n 19790 404E 90 r<br />
1913 3 4010 87 0 19791 404F 00<br />
19734 4016 9~ t<br />
19735 4017 20 Space
SEITE 340 <br />
BASIC 1Z-013B V1_0A <br />
Ausdruck (HL) auswerten und I-Byte-Wert nach DE/Accu<br />
19792 4D50 CD 65 4D CALL 4D65 2 BYTE NACH DE<br />
19793<br />
19794<br />
19795 4D53 7A LD A. D H-BYTE WERT<br />
19796 4D54 B7 OR A GLEICH NULL ?<br />
19797 4D55 C2 01 21 JP NZ. 2101 NEIN ~ DATENFEHLER<br />
19798<br />
19799<br />
19800 4D58 7B LD A.E L-BYTE WERT<br />
19801 4D59 C9 RET<br />
BASIC 1Z<br />
19839<br />
19840 4D80 CD 69 3C CALL 3C<br />
19841<br />
19842<br />
19843 4083 1A LD A. <<br />
19844 4D84 FE 00 CP 00<br />
19845<br />
19846 4086 28 06 JR Z.<br />
19847<br />
19848 4088 CD 7E 16 CALL 1<br />
19849<br />
19850<br />
19851 4D8B 13 INC OE<br />
19852 4D8C 18 F5 JR F5<br />
19853<br />
19854 4D8E EI POP HL<br />
19855 4D8F Fl POP AF<br />
19856 4090 C9 RET<br />
Wert in OE auf gesetzte Gr<br />
19857 4091 E5 PUSH HL<br />
19858 4092 21 10 00 LD HL.<br />
19859 (E7 03)<br />
19860 (EO 01)<br />
19861 4D95 CB 7A BIT 7.0<br />
19862<br />
19863 4D97 20 06 JR NZ.<br />
19864<br />
19865 4D99 87 OR A<br />
19866 409A EO 52 SBC HL<br />
19867<br />
19868 409C DA 01 21 JP C. 2<br />
19869<br />
19870<br />
19871 4D9F 05 PUSH DE<br />
19872 40AO 21 01 00 LD HL.<br />
19873 (19 FC)<br />
19874 (20 FE)<br />
19875 4DA3 CB 7C BIT 7. H<br />
19876<br />
19877 40A5 20 OF JR NZ.<br />
19878<br />
19879 40A7 CB 7A BIT 7,0<br />
19880<br />
19881 40A9 C2 01 21 JP NZ.<br />
19882<br />
1988 3<br />
L9884 40AC B7 OR A<br />
19885 4DAD EB EX OE.H<br />
19886 40AE ED 52 SBC HL<br />
19887<br />
19888 40BO DA 01 21 JP C. 2<br />
19889<br />
l r~89 0<br />
1'189 1 4DB3 01 POP OE<br />
19892 4084 EI POP HL<br />
19893 40B5 C9 RET<br />
Ausdruck (HL) auswerten und 2-Byte - Wert nach DE <br />
ohne vorherige Zwischenergebnisse zu vergessen <br />
19802 4D5A CD 9D 52 CALL 529D AUSDRUCK (HL) AUSWERTEN<br />
19803<br />
19804<br />
19805 4D5D EB EX DE.HL ZEIGER FüR ERGEBNIS NACH DE<br />
19806 4D5E 01 FB FF LD BC. FFFB -5 (LÄNGE ERGEBNIS)<br />
19807<br />
19808<br />
19809 4D61 09 ADD HL.8C ZEIGER AUF ERGEBNIS<br />
19810 4D62 EB EX DE.HL NACH DE<br />
19811 4D63 18 03 JR 03 ~ 4D68H I SYNTAX REAL-WERT UND UM<br />
19812 I SETZEN IN HEX-WERT NACH DE<br />
Ausdruck (HL) auswerten und 2 Byte-Wert nach DE bereitstellen<br />
19813 4D65 CO 8B 52 CALL 528B 'AUSDRUCK (HL) AUSWERTEN<br />
19814 I UND ZEIGER AUF ERGEBNIS<br />
19815 'BEREITSTELLEN <br />
19816 4D68 F5 PUSH AF NÄCHSTES PROGRAMM8YTE<br />
19817 4D69 E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN <br />
19818 4D6A EB EX DE.HL ZEIGER AUF ERGEBNIS NACH HL<br />
19819 4D6B CE 9B 5D CALL 5D9B 'SYNTAX-UNTERSUCHUNG AUF <br />
19820 'ERGEBNIS GLEICH REAL-WERT <br />
19821 <br />
19822 406E CO 21 3D CALL 3D21 'REAL-WERT (HL) UMSETZEN <br />
19823 , IN HEX-WERT NACH HL <br />
19824 <br />
19825 4D71 EB EX DE.HL • HEX-WERT NACH OE <br />
19826 4D72 EI POP HL P~OGRAM<strong>MZ</strong>EIGER HOLEN <br />
19827 4D73 F1 POP AF NÄCHSTES PROGRAMMBYTE HOLEN<br />
19828 4074 C9 RET<br />
Wert bereitstellen und als ASCII-Wert an Drucker übergeben<br />
19829 4D75 CO 65 40 CALL 4D65 2 BYTE-WERT NACH OE <br />
19830 <br />
19831 <br />
19832 4078 F5 PUSH AF <br />
• NÄCHSTES PR08RAMMBYTE <br />
19833 4D79 E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN <br />
19834 4D7A 2A B9 6A LO HL, (6AB9) 'ZEIGER AUF ANFANG <br />
19835 I RECHENSPE I CHER <br />
19836 <br />
19837 4070 CO 82 3A CALL 3A82 'HEX-WERT IN DE UMSETZEN<br />
19838<br />
I IN REAL-WERT NACH (HL)
SEITE 342<br />
BASIC 1Z-013B<br />
19894 4DB6 CB 7A BIT 7. D<br />
19895<br />
19896 4DB8 28 F9 JR Z. F9 ~ 4DB3H<br />
19897<br />
19898 4DBA 18 FO JR FO ~ 4DACH<br />
19899<br />
Stringausdruck auswerten und Zeiger auf<br />
19900 4DBC CD 8B 52 CALL 528B<br />
19901<br />
19902<br />
19903 4DBF F5 PUSH AF<br />
19904 4DCO CD 7A 5D CALL 5D7A<br />
19905<br />
19906<br />
19907 4DC3 E5 PUSH HL<br />
19908 4DC4 EB EX DE.HL<br />
19909 4DC5 CD 7F 52 CALL 527F<br />
19910<br />
19911<br />
19912 4DC8 El POP HL<br />
19913 4DC9 F1 POP AF<br />
19914 4DCA C9 RET<br />
19915 4DCB 01<br />
19916 4DCC 01<br />
19917 4DCD 4E<br />
19918 4DCE 00 NOP<br />
19919 4DCF 00 NOP<br />
Befehl MODE<br />
19920 4DDO 3A 4D 00 LD A. (0040)<br />
19921<br />
19922<br />
19923 4DD3 B7 OR A<br />
19924 4DD4 C2 F7 4F JP NZ. 4FF7<br />
19925<br />
19926<br />
19927 4DD7 CD 14 54 CALL 5414<br />
19928<br />
19929<br />
19930 4DDA 23 INC HL<br />
1993 1 4DDB FE 47 CP 47<br />
19932<br />
19933 4DDD CA 5F 4E JP Z. 4E5F<br />
19934<br />
19935<br />
19936 4DEO FE ~4 CP 54<br />
19937<br />
19938 4DE2 C2 FE 20 JP NZ. 20FE<br />
19939<br />
19940<br />
19941 4DE5 3E 01 LD A. 01<br />
19942<br />
V1_0A<br />
ZU PRüFENDER WERT NEGATIV ?<br />
NEIN ~ WERT OK<br />
WERT üBERPRüFEN<br />
String bereitstellen<br />
lAUSDRUCK (HL) AUSWERTEN<br />
IUND ZEIGER AUF ERGEBNIS<br />
I NACH DE BEREITSTELLEN<br />
NÄCHSTES PROGRAMMBYTE<br />
I SYNTAX UNTERSUCHUNG AUF<br />
I ERGEBNIS VOM TYP STRINB '<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
ZEIGER AUF DESCRIPTOR<br />
I ZEIGER AUF STRING NACH<br />
IDESCRIPTOR (HL) NACH<br />
IDE BEREITSTELLEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTES PROGAMMBYTE<br />
DRUCKER MODUS FLAG<br />
TEXTGRöSSENFLAG<br />
PARALLELAUSGABEFLAG DRUCKER<br />
GESETZT ?<br />
• IJA ~ FEHLER 68 <br />
I DRUCKER MODUS FEHLER <br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
G (MODE G)<br />
MODE G<br />
T (MODE T)<br />
SYNTAX - FEHLER<br />
CODE TEXTMODUS<br />
19943 4DE7<br />
19944<br />
19945<br />
19946 4DEA<br />
19947<br />
19948<br />
19949 4DED<br />
19950 4DEE<br />
19951<br />
19952 4DFO<br />
19953<br />
19954 4DF2<br />
19955<br />
19956 4DF4<br />
19957<br />
19958 4DF6<br />
19959<br />
19960 4DF8<br />
1996 1<br />
19962<br />
19963 4DFB<br />
19964<br />
19965<br />
19966 4DFE<br />
19967<br />
19968<br />
19969 4EOl<br />
19970<br />
1997 1<br />
19972 4E04<br />
19973<br />
19974 4E06<br />
19975<br />
19976<br />
19977 4E09<br />
19978<br />
19979<br />
19980 4EOC<br />
19981<br />
19982 4EOE<br />
~99 83<br />
19984 4El0<br />
.L9985<br />
19986 4E12<br />
19987<br />
t9988 4E14<br />
19989<br />
lr~9 90 4E16<br />
1999 1<br />
19992 4E18<br />
1?993<br />
19994<br />
19995 4E1B<br />
19996<br />
19997<br />
,rt'998 4E1E<br />
19999<br />
BASIC<br />
32 CB 4D<br />
CD 14 54<br />
23<br />
FE 4E<br />
28 09<br />
FE 4C<br />
28 05<br />
FE 53<br />
C2 FE 20<br />
32 CD 4D<br />
CD 66 1C<br />
C2 FE 20<br />
3E 01<br />
CD 7E 16<br />
3A CD 4D<br />
FE 4E<br />
28 11<br />
FE 4C<br />
3E OB<br />
28 08<br />
3E 09<br />
CD 7E 16<br />
CD 7E 16<br />
CD 7E 16<br />
1Z-<br />
LD (4DC<br />
CALL 54<br />
INC HL<br />
CP 4E<br />
JR Z. 0<br />
CP 4C<br />
JR Z. 0<br />
CP 53<br />
JP NZ.<br />
LD (4DC<br />
CALL 1C<br />
JP NZ.<br />
LD A, 0<br />
CALL 16<br />
LD A. (4<br />
CP 4E<br />
JR Z. 1<br />
CP 4C<br />
LD A. O<br />
JR Z. 0<br />
LD A. 0<br />
CALL 16<br />
CALL 16<br />
CALL 16
SEITE<br />
MODE<br />
20001 4E21<br />
20002<br />
20003 4E23<br />
20004<br />
20005<br />
20006 4E26<br />
20007<br />
20008 4E28<br />
20009<br />
20010<br />
20011 4E2B<br />
Befehl<br />
20012 4E2C<br />
20013<br />
20014<br />
20015 4E2F<br />
20016<br />
20017 4E3l<br />
20018<br />
20019<br />
20020 4E34<br />
20021<br />
20022<br />
20023 4E37<br />
20024 4E38<br />
20025 4E39<br />
20026 4E3A<br />
20027<br />
20028 4E3C<br />
20029<br />
20030 4E3E<br />
20031<br />
20032 4E40<br />
20033<br />
20034<br />
20035 4E43<br />
20036<br />
20037<br />
20038 4E46<br />
20039<br />
20040<br />
20041 4E49<br />
20042<br />
20043 4E4B<br />
20044<br />
20045 4E4D<br />
20046<br />
20047 4E4F<br />
20048<br />
20049<br />
20050 4E52<br />
20051 4E:53<br />
20052<br />
20053 4E55<br />
344<br />
TN<br />
3E OA<br />
CD 7E<br />
3E 03<br />
CD 7E<br />
C9<br />
SKIP<br />
3A CB<br />
FE 01<br />
C2 F7<br />
CD 65<br />
7B<br />
B7<br />
C8<br />
FE EC<br />
30 05<br />
FE 15<br />
02 01<br />
CD 66<br />
C2 FE<br />
CB 7B<br />
20 09<br />
3E OA<br />
CD 7E<br />
10<br />
20 F8<br />
C9<br />
BASIC 1Z-013B<br />
LD A. OA<br />
16 CALL 167E<br />
LD A. 03<br />
16 CALL 167E<br />
RET<br />
40 LD A, (4DCB)<br />
CP 01<br />
4F JP NZ. 4FF7<br />
40 CALL 4D65<br />
LD A.E <br />
OR A <br />
RET Z <br />
CP EC <br />
' JR NC. 0:5 + 4E43H<br />
CP 15 ;<br />
21 JP NC, 2101<br />
lC CALL lC66<br />
20 JP NZ. 20FE<br />
BIT 7.E<br />
JR NZ. 09 + 4E56H<br />
LD A. OA ;<br />
16 CALL 167E •<br />
DEC E :<br />
JR NZ, F8 + 4E4DH ;<br />
RET<br />
V1_0A<br />
I NORMALMODUS (Wenn nur<br />
I OA gesendet wird><br />
IASCII-ZEICHEN IM ACCU<br />
lOHNE ZU ZÄHLEN AN<br />
I DRUCKER AUSGEBEN<br />
ZEllENRüCKSCHUB<br />
IASCII-ZEICHEN IM ACCU<br />
lOHNE ZU ZÄHLEN AN<br />
I DRUCKER AUSGEBEN<br />
DRUCKER MODUS FLAG<br />
IM TEXTMODUS ?<br />
INEIN + FEHLER 68<br />
I DRUCKER MODUS FEHLER<br />
IZWEI-BYTE-WERT NACH OE<br />
I (sollte eigentlich<br />
I Adresse $4050 sein)<br />
L-BYTE WERT<br />
GLEICH NULL ?<br />
JA + FERTIG<br />
- 20 ?<br />
WERT IST OK<br />
+ 20 ?<br />
ZU GROSS + DATENFEHLER<br />
I üBERPRüFEN. OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENDEZEICHEN IST<br />
SYNTAX - FEHLER<br />
WERT NEGATIV ?<br />
JA + ZEILENRüCKSCHUB<br />
ZEILENVORSCHUB<br />
IASCII-ZEICHEN IM ACCU<br />
lOHNE ZU ZÄHLEN AN<br />
I DRUCKER AUSGEBEN<br />
RESTZAHL VORSCHüBE<br />
IWEITERE ZEILENVORSCHüBE<br />
I AUSGEBEN<br />
BASIC 1Z<br />
20054<br />
20055<br />
20056<br />
20057<br />
20058<br />
20059<br />
20060<br />
20061<br />
20062<br />
4E56 3E 03 LD A.<br />
4E58<br />
4E58<br />
4E5C<br />
4E5E<br />
CD<br />
lC<br />
20<br />
C9<br />
7E<br />
FS<br />
16 CALL 1<br />
INC E<br />
JR NZ.<br />
RET<br />
Rest MODE G - Routine<br />
20063 '4E5F 23 INC HL<br />
20064 4E60 CD 66 lC CALL lC<br />
20065<br />
20066<br />
20067 4E63 C2 FE 20 JP NZ,<br />
20068<br />
20069<br />
20070 4E66 3 E 02 LD A. 0<br />
20071<br />
20072 4E68 32 CB 40 LD (4D<br />
20073<br />
200 74<br />
20075 4E6B CD 7E 16 CALL 16<br />
20076<br />
20077<br />
20078 4E6E C9 RET<br />
Wert in OE auf V-Koordinate<br />
20079 4E6F E5 PUSH HL<br />
20080 4E70 21 E7 03 LD HL.<br />
20081<br />
20082<br />
~ 00 83 4E73 22 93 40 LD (409<br />
0084<br />
20085<br />
0086 4E76 21 19 FC LD HL.<br />
20087<br />
0088<br />
0089 4E79 22 Al 40 LD (4DA<br />
20090<br />
20091<br />
0092 4E7C EI POP HL<br />
0093 4E7D C3 91 40 JP 4091<br />
"0094<br />
0095<br />
Wert i n OE auf X-Koordinate<br />
4E80 E5 pusH HL<br />
4E81 21 EO 01 LD HL.<br />
4E84 22 93 40 LO (409<br />
4E87 21 20 FE LD HL.
SEITE<br />
20104<br />
20105<br />
20106 4E8A<br />
20107<br />
Befehl<br />
20108 4E8C<br />
20109<br />
20110 4E8E<br />
20111<br />
20112<br />
20113 4E91<br />
20114<br />
20115<br />
20116 4E94<br />
20117<br />
20118 4E96<br />
20119<br />
20120<br />
20121 4E99<br />
20122<br />
20123<br />
20124 4E9C<br />
20125<br />
20126 4E9E<br />
20127<br />
20128 4EAO<br />
20129 4EAl<br />
20130<br />
20131<br />
20132 4EA4<br />
20133 4EA5<br />
20134 4EA6<br />
20135<br />
20136 4EA8<br />
20137<br />
20138<br />
20139 4EAB<br />
20140 4EAC<br />
20141<br />
20142 4EAE<br />
20143<br />
20144<br />
20145 4EB1<br />
20146<br />
20147<br />
20148 4EB4<br />
20149<br />
20150 4EB6<br />
20151<br />
201~2<br />
201~3 4EB9<br />
20154<br />
201~5<br />
201:56 4EBC<br />
20157 4EBO<br />
20158<br />
20159 4EBF<br />
20160<br />
20161<br />
346<br />
18 EO<br />
LI NE<br />
3E 44<br />
32 EO<br />
3A CB<br />
FE 02<br />
C2 F7<br />
CD 14<br />
FE 25<br />
20 23<br />
23<br />
CD 50<br />
7B<br />
3D<br />
FE 10<br />
02 01<br />
1B<br />
3E 4C<br />
CD 7E<br />
CD 78<br />
3E 00<br />
CO 7E<br />
CD 66<br />
C8<br />
FE 2C<br />
C2 FE<br />
BASIC 1Z-013B<br />
JR <br />
ED .. 4E79H<br />
LD <br />
A, 44<br />
4E LD (4EEO), A<br />
40 LO A, (40CB)<br />
CP <br />
02<br />
4F JP NZ, 4FF7<br />
54<br />
CALL 5414<br />
CP 25<br />
JR NZ, 23 .. 4EC3H<br />
40<br />
INC HL<br />
CALL 4050<br />
LD A,E<br />
DEC A<br />
CP 10<br />
21<br />
JP NC, 2101<br />
;<br />
DEC DE<br />
LD A, 4C .<br />
;<br />
16 CALL 167E<br />
;<br />
40 CALL 4D78<br />
LD A, OD<br />
C<br />
16 CALL 167E<br />
•<br />
lC CALL 1C66<br />
;<br />
RET Z<br />
CP 2C<br />
20<br />
JP NZ. 20FE<br />
V1.0A<br />
I IN ROUTINE EINTRAGEN UND<br />
IKOORDINATE IN DE üBERPRüF.<br />
D (Absolute Linie)<br />
IBEFEHLSBUCHSTABEN IN<br />
I ROUTINE EINTRAGEN<br />
DRUCKER MODUS FLAG<br />
IM GRAPHIK-MODUS 7<br />
INEIN .. FEHLER 68 <br />
I DRUCKER MODUS FEHLER <br />
IPROGRAM<strong>MZ</strong>EIGER IN HL <br />
lAUF NÄCHSTES RELEVANTE <br />
I ZEICHEN SETZEN <br />
X (Code Linientyp) <br />
LINIENTYP NICHT ANGEGEBEN <br />
X üBERSPRINGEN <br />
EIN-BYTE-WERT NACH DE/ACCU <br />
LINIENTYPWERT <br />
INTERN VON 0 - 15 <br />
TYPWERT MAXIMAL <br />
ZU GROSS .. DATENFEHLER <br />
TYPWERT CORRIGIEREN <br />
L (Linientyp setzen) <br />
IASCII-ZEICHEN IM ACCU <br />
lOHNE ZU ZÄHLEN <br />
IAN DRUCKER AUSGEBEN <br />
IWERT IN DE UMSETZEN IN <br />
'ASCII UND AN DRUCKER <br />
, AUSGEBEN <br />
W.genrüc:kl auf <br />
IASCII-ZEICHEN IM ACCU <br />
lOHNE ZU ZÄHLEN <br />
IAN DRUCKER AU8GEBEN <br />
I üBERPRüFEN. OB NÄCHSTES <br />
IPROGRAMMBYTE GLEICH <br />
IBEFEHLSENDEZEICHEN IST <br />
NÄCHSTER BEFEHL <br />
(Komma)<br />
SYNTAX FEHLER<br />
2 0 162<br />
20 163<br />
2 0 164<br />
2 01 65<br />
20 166<br />
2 0 167<br />
20 168<br />
20 169<br />
20 170<br />
20 171<br />
20 172<br />
20 173<br />
20 174<br />
20 175<br />
20 176<br />
2 01 77<br />
201 78<br />
20179<br />
20 180<br />
20 181<br />
20 182<br />
20 183<br />
0 184<br />
20 18 5<br />
0 186<br />
0 187<br />
20 188<br />
01 89<br />
0 190<br />
0 191<br />
01 92<br />
0 193<br />
""0 194<br />
0 195<br />
0 196<br />
0 197<br />
" 0 198<br />
0 199<br />
0200<br />
020 1<br />
0202<br />
0203<br />
020 4<br />
0 205<br />
0206<br />
0 207<br />
0208<br />
0209<br />
02 10<br />
02 1 1<br />
02 12<br />
02 13<br />
02 14<br />
4EC2<br />
4EC3<br />
4EC6<br />
4EC9<br />
4ECC<br />
4ECD<br />
4EDO<br />
4ED2<br />
4ED4<br />
4ED7<br />
4EOA<br />
4EDD<br />
4EDE<br />
4EDF<br />
4EEl<br />
4EE4<br />
4EE5<br />
4EE6<br />
4EE9<br />
4EEB<br />
4EEE<br />
4EEF<br />
4EF2<br />
4EF4<br />
4EF7<br />
4EFA<br />
4EFB<br />
4EFC<br />
BASIC<br />
23<br />
CO 65 40<br />
CD 32 .~ .~<br />
CD 80 4E<br />
05<br />
CD 65 40<br />
FE 2C<br />
28 06<br />
CD 66 1C<br />
C2 FE 20<br />
CO 6F 4E<br />
Cl<br />
D5<br />
3E 44<br />
CD 7E 16<br />
59<br />
50<br />
CD 78 40<br />
3E 2C<br />
CD 7E 16<br />
01<br />
CD 78 40<br />
3E OD<br />
CD 7E 16<br />
CD 66 1C<br />
C8<br />
23<br />
18 C5<br />
1Z<br />
INC H<br />
CALL<br />
CALL<br />
CALL<br />
PUSH<br />
CALL<br />
CP 2<br />
JR Z.<br />
CALL<br />
JP NZ<br />
CALL<br />
POP B<br />
PUSH<br />
LD A.<br />
CALL<br />
LD E,C<br />
LO D,<br />
CALL<br />
LO A,<br />
CALL<br />
POP D<br />
CALL<br />
LD A,<br />
CALL<br />
CALL<br />
RET Z<br />
INC H<br />
JR C5<br />
l<br />
l<br />
,
SEITE 348<br />
BASIC 1Z-013B<br />
Befehl RLINE<br />
20222 4EFE 3E 4A LD A. 4A <br />
20223 <br />
20224 4FOO 32 EO 4E LD (4EEO).A<br />
20225 <br />
20226 <br />
20227 4F03 18 8C JR 8C -+ 4E91H <br />
20228 <br />
Befehl MOVE<br />
20229 4F05 3E 4D LD A. 4D<br />
20230<br />
20231 4F07 32 EO 4E LD (4EEO).A<br />
20232<br />
20233<br />
20234 4FOA 3A CB 4D LD A. (4DCB) ;<br />
20235<br />
20236<br />
20237 4FOD FE 02 CP 02<br />
20238<br />
20239 4FOF C2 F7 4F JP NZ. 4FF7<br />
20240<br />
20241<br />
20242 4F12 18 AF JR AF -+ 4EC3H<br />
20243<br />
Befehl RMOVE<br />
20244 4F14 3E 52 LD A. 52<br />
20245<br />
20246 4F16 32 EO 4E LD (4EEO).A<br />
20247<br />
20248<br />
20249 4F19 18 EF JR EF -+ 4FOAH<br />
20250<br />
Befehl PCOLOR<br />
20251 4F1B CD 504D CALL 4D50<br />
20252<br />
20253<br />
20254 4F1E 7B LD A.E<br />
20255 4F1F FE 04 CP 04<br />
20256<br />
20257 4F21 D2 01 21 JP NC. 2101<br />
20258<br />
20259<br />
20260 4F24 CD 66 lC CALL 1C66<br />
20261<br />
20262<br />
20263 4F27 20264<br />
C2 FE 20 JP NZ. 20FE •<br />
20265<br />
20266 4F2A 3A CB 4D LD A. (4DCB)<br />
20267<br />
20268<br />
20269 4F2D FE 02 CP 02 ;<br />
V1.0A<br />
J (Relative Linie)<br />
'BEFEHLSBUCHSTABEN IN<br />
• ROUTINE EINTRAGEN<br />
EINSPRUNG IN LINE-ROUTINE<br />
M (Bewegung Druckkopf)<br />
'BEFEHLSBUCHSTABEN IN<br />
• ROUTINE EINTRAGEN<br />
DRUCKER MODUS FLAG<br />
IM GRAPHIK - MODUS ?<br />
'NEIN -+ FEHLER 68<br />
• DRUCKER MODUS FEHLER<br />
EINSPRUNG IN LINE-ROUTINE<br />
R (Relative Bewegung)<br />
'BEFEHLSBUCHSTABEN IN<br />
• ROUTINE EINTRAGEN<br />
EINSPRUNG IN MOVE-ROUTINE<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
WERT HOLEN<br />
FARBWERT MAXIMAL<br />
ZU GROSS -+ DATENFEHLER<br />
• üBERPRüFEN. OB NÄCHSTES<br />
IPROGRAMMBVTE GLEICH<br />
'BEFEHLSENDEZEICHEN IST<br />
SYNTAX - FEHLER<br />
DRUCKER MODUS FLAG<br />
IM GRAPHIK-MODUS ?<br />
BASIC 1Z<br />
20270<br />
20271 4F2F 28 OE JR Z.<br />
20272<br />
20273 4F31 CD 21 4E CALL 4E<br />
20 274<br />
20275<br />
20276 4F34 3E 02 LD A. 0<br />
20277<br />
20278 4F36 CD 7E 16 CALL 1<br />
20279<br />
20280<br />
2028 1 4F39 CD 3F 4F CALL 4F<br />
20282<br />
20283<br />
20284 4F3C C3 04 4E JP 4E04<br />
20285<br />
20286<br />
Stiftfarbe in E an Plotter<br />
20287 4F3F 3E 43 LD A. 4<br />
~02 88<br />
0289 4F41 CD 7E 16 CALL 1<br />
4F44 7B LD A.E<br />
4F45 F6 30 OR 30<br />
4F47 CD 7E 16 CALL 1<br />
4F4A 3E 00 LD A. O<br />
4F4C CD 7E 16 CALL 1<br />
4F4F C9 RET<br />
Befehl PHOME<br />
4F50 3A CB 4D LD A. (4<br />
4F53 FE 02 CP 02<br />
4F55 C2 F7 4F JP NZ.<br />
4F58 CD 66 lC CALL lC<br />
4F5B C2 FE 20 JP NZ.<br />
4F5E 3E 48 LD A. 4<br />
4F60 CD 7E 16 CALL 16<br />
4F63 C9 RET
SEITE<br />
Befehl<br />
20324 4F64<br />
20325<br />
20326<br />
20327 4F67<br />
20328<br />
20329 4F69<br />
20330<br />
20331<br />
20332 4F6C<br />
20333<br />
20334<br />
20335 4F6F<br />
20336<br />
20337<br />
20338 4F72<br />
20339<br />
20340 4F74<br />
20341<br />
Befehl<br />
20342 4F76<br />
20343<br />
20344<br />
20345 4F79<br />
20346<br />
20347 4F7B<br />
20348<br />
20349 4F7D<br />
20350<br />
20351<br />
20352 4F80<br />
20353<br />
20354 4F82<br />
20355<br />
20356 4F84<br />
20357 4F85<br />
20358<br />
20359<br />
20360 4F88<br />
20361<br />
20362 4F8A<br />
20363<br />
20364<br />
20365 4F8D<br />
20366 4F8E<br />
20367<br />
20368<br />
20369 4F91<br />
20370<br />
20371<br />
20372 4F94<br />
20373<br />
20374<br />
20375 4F97<br />
20376<br />
20377 4F99<br />
20378<br />
20379<br />
350<br />
HSET<br />
3A CB 40<br />
FE 02<br />
C2 F7 4F<br />
CD 66 lC<br />
C2 FE 20<br />
3E 49<br />
18 EA<br />
GPRINT<br />
3A CB 40<br />
FE 02<br />
20 7A<br />
CD 14 54<br />
FE 5B<br />
20 4A<br />
23<br />
CD 50 4D<br />
FE 40<br />
02 01 21<br />
05<br />
CO 14 54<br />
CD 32 33<br />
CD 50 40<br />
FE 04<br />
02 01 21<br />
BASIC 1Z-013B<br />
LO A. (4DCB)<br />
CP<br />
02<br />
JP<br />
NZ. 4FF'l ;<br />
CALL 1C66<br />
JP NZ. 20FE ,<br />
;<br />
LD A. 49<br />
JR<br />
EA + 4F60H<br />
LD A. (40CB)<br />
CP 02<br />
JR NZ. 7A +<br />
4FF7H<br />
CALL 5414<br />
CP SB<br />
JR NZ. 4A +<br />
4FCEH<br />
INC HL<br />
CALL 4050<br />
CP 40<br />
JP NC. 2101<br />
PUSH OE<br />
CALL 5414<br />
CALL 3332<br />
CALL 4D50<br />
•<br />
CP 04<br />
JP NC. 2101<br />
V1_0A<br />
DRUCKER MODUS FLAG<br />
IM GRAPHIK-MODUS<br />
INEIN + FEHLER 68 <br />
I DRUCKER MODUS FEHLER <br />
I UNTERSUCHEN. OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENOEZEICHEN IST<br />
SYNTAX FEHLER<br />
I (INITIALIZE)<br />
I ZEICHEN AN DRUCKER<br />
I AUSGEBEN<br />
DRUCKER MODUS FLAG<br />
IM GRAPHIK-MODUS ?<br />
INEIN + FEHLER 68<br />
I DRUCKER MODUS FEHLER<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
C (Zeichengröße/-lage)<br />
I KEINE WERTE FüR ZEICHEN<br />
IGRöSSE UND -LAGE ANGEGEBEN<br />
[ üBERSPRINGEN<br />
EIN-BYTE-WERT NACH DE/ACCU<br />
64 (Zeichengröße max)<br />
ZU GROSS + DATENFEHLER<br />
ZEICHENGRöSSE MERKEN<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
SYNTAX Komma<br />
EIN-BYTE-WERT NACH OE/ACCU<br />
ZEICHENLAGE MAXIMAL<br />
ZU GRaSS + DATENFEHLER<br />
20380 4F9C<br />
20381 4F9D<br />
2 03 82<br />
20383<br />
20384 4FAO<br />
20385<br />
20386 4FA2<br />
20387<br />
203 88<br />
20389 4FA5<br />
20390 4FA6<br />
20391 4FA7<br />
20392 4FA8<br />
20393 4FA9<br />
20394<br />
20395 4FAB<br />
20396<br />
20397<br />
20398 4FAE<br />
20399<br />
20400<br />
2040 1 4FB l<br />
20402<br />
20 403 4FB3<br />
20 40 4<br />
20 405<br />
20406 4FB6<br />
20407 4FB7<br />
20408<br />
20409 4FB9<br />
204 10<br />
204 11<br />
204 12 4FBC<br />
204 13<br />
204 14<br />
204 15 4FBF<br />
204 16<br />
204 17 4FC1<br />
204 18<br />
" 04 19<br />
0420 4FC4<br />
2042 1<br />
20422<br />
20423 4FC7<br />
20424 4FC8<br />
20 425<br />
20426 4FCA<br />
20427<br />
0428<br />
,.;0429 4FCO<br />
20430 4FCE<br />
":1043 1<br />
043 2<br />
20433 4FDl<br />
043 4<br />
20435<br />
0436 4FD4<br />
20437<br />
0438 4FD6<br />
0439<br />
0440 4FD8<br />
" 044 1<br />
BASIC<br />
05<br />
CD 14 54<br />
FE 50<br />
C2 FE 20<br />
23<br />
Cl<br />
01<br />
C5<br />
3E 53<br />
CD 7E 16<br />
CD 78 40<br />
3 E 2C<br />
CO 7E 16<br />
01<br />
3 E 51<br />
CD 7E 16<br />
CD 78 40<br />
3E 00<br />
CD 7E 16<br />
CD 66 lC<br />
C8<br />
FE 2C<br />
C2 FE 20<br />
23<br />
CD BC 40<br />
CD 66 lC<br />
28 05<br />
FE 2C<br />
C2 FE 2 0<br />
1Z<br />
PUSH<br />
CALL<br />
CP 5<br />
JP NZ<br />
INC H<br />
POP B<br />
POP O<br />
PUSH<br />
LD A.<br />
CALL<br />
CALL<br />
LO A.<br />
CALL<br />
POP O<br />
LO A.<br />
CALL<br />
CALL<br />
LD A.<br />
CALL<br />
CALL<br />
RET Z<br />
CP 2<br />
JP NZ<br />
INC H<br />
CALL<br />
CALL<br />
JR Z.<br />
CP 2<br />
JP NZ
SEITE<br />
20442<br />
20443 4FDB<br />
20444 4FDC<br />
20445 4FDD<br />
20446<br />
20447 4FDF<br />
20448<br />
20449 4FE 1<br />
20450<br />
20451<br />
20452 4FE4<br />
20453 4FE:5<br />
20454<br />
20455<br />
20456 4FE8<br />
20457 4FE9<br />
20458<br />
20459 4FEB<br />
20460<br />
20461 4FED<br />
20462<br />
20463<br />
20464 4FFO<br />
20465<br />
20466<br />
20467 4FF3<br />
20468 4FF4<br />
20469 4FF5<br />
20470<br />
,<br />
20471 4FF7<br />
20472<br />
20473 4FF9<br />
20474<br />
20475<br />
Befehl<br />
20476 4FFC<br />
20477<br />
20478<br />
20479 4FFF<br />
20480<br />
20481 5001<br />
20482<br />
20483<br />
20484 5004<br />
20485<br />
20486<br />
20487 5007<br />
20488<br />
20489 5009<br />
20490<br />
20491<br />
20492 ~OOC<br />
20493 500D<br />
20494<br />
,<br />
2049~<br />
20496 5010<br />
20497<br />
352<br />
78<br />
B7<br />
28 11<br />
3E 50<br />
CD 7E<br />
1A<br />
CD 7E<br />
13<br />
10 F9<br />
3E OD<br />
CD 7E<br />
CD 66<br />
C8<br />
23<br />
18 D7<br />
3E 44<br />
C3 08<br />
AXIS<br />
3A CB<br />
FE 02<br />
C2 F7<br />
CD 50<br />
FE 02<br />
D2 01<br />
F5<br />
CD 14<br />
CD 32<br />
BASIC 1Z-013B<br />
LD A.B<br />
OR A<br />
JR Z. 11 + 4FFOH<br />
LD A. 50<br />
16<br />
CALL 167E<br />
16<br />
LD A,
SEITE 354<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
Befehl CIRCLE Y-Koordinate Mittelpunkt f<br />
20560<br />
20561<br />
20562<br />
20563<br />
20564<br />
20565<br />
20566<br />
20567<br />
20568<br />
20569<br />
20570<br />
20571<br />
20572<br />
20573<br />
20574<br />
5050<br />
5053<br />
5055<br />
5057<br />
5058<br />
505B<br />
505E<br />
3A<br />
FE<br />
20<br />
ES<br />
11<br />
21<br />
CD<br />
CB<br />
02<br />
AO<br />
00<br />
04<br />
82<br />
40<br />
00<br />
52<br />
3A<br />
LD A. (4DCB)<br />
CP 02<br />
JR NZ. AO ~<br />
PUSH HL<br />
LD OE. 0000<br />
LD HL. 5204<br />
CALL 3A82<br />
4FF7H<br />
• DRUCKER MODUS FLAG<br />
• IM GRAPHIK-MODUS ?<br />
INEIN ~ FEHLER 68<br />
I DRUCKER MODUS FEHLER<br />
PROGRAM<strong>MZ</strong>EIGER RETTEN<br />
0 (Vorgabe Anfanggwinkel)<br />
I ZEIGER AUF SPEICHER<br />
I FüR ANFANGSWINKEL<br />
• I INTEGER-WERT IN DE UM<br />
20575 ISETZEN IN REAL-WERT<br />
20576<br />
20577 5061 11 68 01 LD DE. 0168<br />
20578<br />
20579<br />
20580<br />
20581<br />
20582<br />
20583<br />
20584<br />
20585<br />
20586<br />
20587<br />
20588<br />
20589<br />
20590<br />
20591<br />
20592<br />
20593<br />
20594<br />
20595<br />
20596<br />
20597<br />
20598<br />
20599<br />
20600<br />
20601<br />
20602<br />
5064<br />
5067<br />
506A<br />
5060<br />
5070<br />
5073<br />
21<br />
CD<br />
21<br />
11<br />
CD<br />
El<br />
09<br />
82<br />
72<br />
OE<br />
B8<br />
52<br />
3A<br />
3D<br />
52<br />
3A<br />
LD HL. :5209<br />
CALL 3A82<br />
LD HL. 3D72<br />
LD DE. 520E<br />
CALL 3AB8<br />
POP HL<br />
X-Koordinate Mittelpunkt für CIRCLE bereitstellen<br />
5074<br />
5077<br />
20603 S07A<br />
507B<br />
20604<br />
20605<br />
20606<br />
20607<br />
20608<br />
20609<br />
20610<br />
507E<br />
507F<br />
5082<br />
CD<br />
CD<br />
8B<br />
32<br />
52<br />
33<br />
ES<br />
21 F5 51<br />
EB<br />
CD<br />
El<br />
B8 3A<br />
CALL<br />
CALL<br />
:528B<br />
3332<br />
PUSH HL<br />
LD HL. 51F5<br />
EX DE.HL<br />
CALL 3AB8<br />
POP HL<br />
INACH (HL)<br />
360 (Vorgabe Endwinkel)<br />
I ZEIGER AUF SPEICHER<br />
I FüR ENDW I NKEL<br />
I INTEGER-WERT IN DE<br />
IUMSETZEN IN REAL<br />
I WERT NACH (HL)<br />
ZEIGER AUF +10 (Real)<br />
I ZEIGER AUF SPEICHER<br />
IFüR SCHRITTWINKEL<br />
I REAL-WERT VON (HL)<br />
INACH (DE) UBERTRAGEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
• I AUSDRUCK AUSWERTEN UND<br />
I ZEIGER AUF ERGEBNIS<br />
I BERE I TSTELLEN<br />
, SYNTAX Komma<br />
PROGRAM<strong>MZ</strong>EIGER RETTEN<br />
I ZEIGER AUF SPEICHER FüR<br />
IX-KOODINATE MITTELPUNKT<br />
I REAL-WERT VON (HL)<br />
INACH (OE) üBERTRAGEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
20611<br />
20612<br />
20613<br />
20614<br />
20615<br />
20616<br />
20617<br />
20618<br />
20619<br />
20620<br />
20621<br />
20622<br />
20623<br />
2 0624<br />
20625<br />
20626<br />
20627<br />
20628<br />
20629<br />
20630<br />
2063 1<br />
20632<br />
0633<br />
" 0634<br />
0635<br />
20636<br />
20637<br />
0638<br />
20639<br />
20640<br />
20641<br />
20642<br />
20643<br />
20644<br />
20645<br />
20646<br />
20647<br />
0648<br />
20649<br />
20650<br />
" 0651<br />
20652<br />
20653<br />
" 0654<br />
20655<br />
20656<br />
20657<br />
2 0658<br />
5083<br />
5086<br />
5089<br />
508A<br />
508D<br />
508E<br />
5091<br />
CD<br />
CD<br />
ES<br />
21<br />
EB<br />
CD<br />
El<br />
8B<br />
32<br />
FA<br />
B8<br />
52<br />
33<br />
51<br />
3A<br />
CALL 5<br />
CALL 3<br />
PUSH H<br />
LD HL.<br />
EX DE.<br />
CALL 3<br />
POP HL<br />
Radius für CIRCLE bereitst<br />
5092<br />
5095<br />
5096<br />
5097<br />
509A<br />
509B<br />
509E<br />
50Al<br />
50A2<br />
50A5<br />
50A6<br />
50A8<br />
50AA<br />
50AB<br />
CD<br />
E5<br />
F5<br />
21<br />
EB<br />
CO<br />
3A<br />
07<br />
DA<br />
8B<br />
FF<br />
B8<br />
00<br />
01<br />
F1<br />
FE 2C<br />
20<br />
El<br />
23<br />
52<br />
51<br />
3A<br />
52<br />
21<br />
CALL 5<br />
PUSH H<br />
PUSH A<br />
LD HL.<br />
EX DE.H<br />
CALL 3<br />
LD A. (<br />
RLCA<br />
JP C.<br />
POP<br />
CP<br />
AF<br />
2C<br />
3A JR NZ,<br />
POP HL<br />
INC HL<br />
Anfangswinkel für CIRCLE b<br />
50AC<br />
50AF<br />
5080<br />
50Bl<br />
CD<br />
ES<br />
F5<br />
21<br />
8B<br />
04<br />
52<br />
52<br />
CALL 5<br />
PUSH H<br />
PUSH A<br />
LD HL.<br />
20659<br />
20660 50B4 EB EX DE.<br />
20661 50B5 CD B8 3A CALL 3<br />
20662<br />
I<br />
l<br />
,
SEITE 356<br />
20663<br />
20664 50B8 Fl<br />
20665 50B9 FE 2C<br />
20666<br />
20667 50BB 20 27<br />
20668<br />
20669 5080 EI<br />
20670 508E 23<br />
Endwinkel für<br />
20671 508F CO 8B<br />
20672<br />
20673<br />
20674 50C2 E5<br />
20675 50C3 F5<br />
20676 50C4 21 09<br />
20677<br />
20678<br />
20679 50C7 EB<br />
20680 50C8 CD B8<br />
20681<br />
20682<br />
20683 50CB Fl<br />
20684 50CC FE 2C<br />
20685<br />
20686 50CE 20 14<br />
20687<br />
20688 5000 EI<br />
20689 5001 23<br />
Schrittwinkel<br />
20690 5002 CD 8B<br />
20691<br />
20692<br />
20693 5005 E5<br />
20694 5006 2 1 OE<br />
20695<br />
20696<br />
20697 5009 EB<br />
20698 50DA CD B8<br />
20699<br />
20700<br />
20701 5000 3A OF<br />
20702<br />
20703<br />
20704 50EO 07<br />
20705 50E1 DA 01<br />
20706<br />
20707<br />
20708 50E4 EI<br />
20709 ~OE5 CD 66<br />
20710<br />
20711<br />
20712 50E8 C2 FE<br />
20713<br />
20714<br />
20715 50EB E5<br />
BASIC 1Z-013B<br />
POP AF I<br />
CP 2C<br />
JR NZ, 27 ~ 50E4H<br />
POP HL<br />
INC HL<br />
CIRCLE bereitstellen<br />
52 CALL 528B<br />
PUSH HL<br />
PUSH AF<br />
52 LO HL, 5209<br />
EX OE,HL<br />
3A CALL 3AB8<br />
POP AF <br />
CP 2C <br />
JR NZ, 14 ~ 50E4H<br />
POP HL<br />
INC HL<br />
für CIRCLE bereitstellen<br />
52 CALL 528B I<br />
PUSH HL<br />
52 LO HL, 520E<br />
EX DE,HL<br />
3A CALL 3AB8 •<br />
~2 LO A, (520F)<br />
RLCA I<br />
21 JP C, 2101<br />
POP HL ,<br />
lC CALL lC66<br />
20 JP NZ, 20FE<br />
PUSH HL<br />
V1_0A<br />
NÄCHSTES PROGRAMMBYTE<br />
(Komma)<br />
KEINE WEITEREN PARAMETER<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
Komma üBERSPRINGEN<br />
I AUSDRUCK AUSWERTEN UND<br />
I ZEIGER AUF ERGEBNIS<br />
I NACH OE BEREITSTELLEN<br />
PROGRAM<strong>MZ</strong>EIGER<br />
NÄCHSTES PROGRAMMBYTE<br />
I ZEIGER AUF SPEICHER<br />
IFüR ENDWINKEL<br />
I REAL-WERT VON (HL)<br />
INACH (OE) üBERTRAGEN<br />
NÄCHSTES PROGRAMMBYTE<br />
(Komma)<br />
KEI NE WEITEREN PARAMETER<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
Komma üBERSPRINGEN<br />
I AUSDRUCK AUSWERTEN UND<br />
I ZEIGER AUF ERGEBNIS<br />
I NACH OE BEREITSTELLEN<br />
PROGRAM<strong>MZ</strong>EIGER RETTEN<br />
I ZEIGER AUF SPEICHER<br />
IFüR SCHRITTWINKEL<br />
I REAL-WERT VON (HL)<br />
INACH (OE) üBERTRAGEN<br />
MSB MANTISSE SCHRITTWINKEL<br />
VORZEICHEN NACH CARRY<br />
ISCHRITTWINKEL NEGATIV<br />
1+ DATENFEHLER<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
lüBERPRüFEN, OB NÄCHSTES<br />
IPROGRAMMBYTE GLEICH<br />
IBEFEHLSENDEZEICHEN IST<br />
SYNTAX - FEHLER<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
Kreis<br />
20716 50EC<br />
20717<br />
20718<br />
2071 9 50EF<br />
20720<br />
':)0721<br />
0722 50F2<br />
0723<br />
0724<br />
"0725 50F5<br />
0726 50F6<br />
0727<br />
0728<br />
0729 50F9<br />
0730<br />
073 1<br />
0732 50FC<br />
0733<br />
0734<br />
0735 50FF<br />
0736<br />
0737<br />
'0738 5102<br />
0739<br />
0740<br />
0741 5105<br />
0742<br />
0743<br />
0744 5108<br />
0745<br />
0746<br />
~7 47 510B<br />
0748<br />
0749<br />
0750 510E<br />
0751<br />
0752<br />
0753 5111<br />
0754 5112<br />
0755<br />
0756 5114<br />
0757<br />
0758<br />
0759 5117<br />
0760<br />
0761<br />
0762 511A<br />
0763<br />
0764<br />
0765 5110<br />
0766<br />
0767<br />
_0768 5120<br />
0769<br />
0770<br />
0771 5123<br />
0772<br />
0773 5125<br />
...0774<br />
0775<br />
BASIC 1Z<br />
nach bereitgestellten<br />
21 09 52<br />
LD HL,<br />
11 04 52<br />
LD OE,<br />
3A OE 52<br />
LD A, (5<br />
B7<br />
C4 4A 5E<br />
OR A<br />
CALL NZ<br />
DA 01 21<br />
JP C, 2<br />
CD AB 51<br />
CALL 51<br />
21 13 52<br />
LD HL,<br />
22 72 51<br />
LD (517<br />
21 18 52<br />
LD HL,<br />
22 7C 51<br />
LO (517<br />
CD 6E 51<br />
CALL 51<br />
3A OE 52<br />
LD A, (5<br />
B7<br />
28 34<br />
OR A<br />
JR Z, 3<br />
21 04 52<br />
LD HL,<br />
11 OE 52<br />
LD OE,<br />
CD AF 50<br />
CALL 5D<br />
11 09 52<br />
LD OE.<br />
CD 4A 5E<br />
CALL 5E<br />
30 00<br />
JR NC.<br />
CD AB 51<br />
CALL SIA
BASIC 1Z-013B V1_0A<br />
SEITE 358 BASIC 1Z-<br />
20776<br />
20777<br />
20778<br />
5128 CD 6B 51<br />
CALL 516B ILINIE<br />
• PUNKT<br />
ZUM ERRECHNETEN<br />
Z I EHEN<br />
20779<br />
20780 512B CD lE 00 CALL 001E ABFRAGE. BREAK GEDRUCKT<br />
20829<br />
20830<br />
20831<br />
515D 22 72 51 LD (5172<br />
20832 5160 21 18 52 LD HL. 5<br />
20781 20833<br />
20782<br />
20783<br />
20784<br />
20785<br />
20786<br />
20787<br />
20788<br />
20789<br />
20790<br />
20791<br />
20792<br />
20793<br />
20794<br />
20795<br />
20796<br />
512E<br />
5130<br />
5131<br />
20<br />
EI<br />
C9<br />
E4<br />
5132 CD 3A 51<br />
JR NZ.<br />
POP HL<br />
RET<br />
E4 ~ 5114H IWEITERE POLYGONSTüCKE<br />
I ZEICHNEN<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTER BEFEHL<br />
CALL 513A ~ IX/Y-KOORDINATE DES<br />
I ENDPUNKTES ERRECHNEN<br />
5135 CD 6B 51 CALL 516B ILINIE ZUM<br />
I ZEICHNEN<br />
5138<br />
5139<br />
EI<br />
C9<br />
POP<br />
RET<br />
ENDPUNKT<br />
HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTER BEFEHL<br />
513A 21 09 52 LD HL. 5209 I ZEIGER AUF SPEICHER<br />
I FüR ENDWINKEL<br />
20834<br />
20835<br />
20836<br />
20837<br />
20838<br />
20839<br />
20840<br />
20841<br />
20842<br />
5163<br />
5166<br />
5169<br />
516A<br />
22<br />
CD<br />
EI<br />
C9<br />
7C<br />
6B<br />
51<br />
51<br />
LD (517C<br />
CALL 516<br />
POP<br />
RET<br />
HL<br />
20843 516B 3E 44 LD A. 44<br />
20844<br />
20845<br />
20846<br />
20847<br />
20848<br />
20849<br />
516D<br />
516E<br />
21<br />
3E 4D LD A. 4D<br />
20850<br />
20797 513D 11 04 52 LD DE. 5204<br />
20851<br />
20798<br />
I ZEIGER AUF SPEICHER<br />
20852 5174 CD 21 3D CALL 3D2<br />
20799<br />
IFUR ANFANGSWINKEL<br />
20853<br />
20800<br />
20801 5140 01 05 00 LD BC. 0005<br />
20854<br />
LÄNGE REAL-ZAHL<br />
20855 5177 E5 PUSH HL<br />
20802 20856 5178 CD 9D 51 CALL 519<br />
5143 ED BO<br />
LDIR<br />
20803<br />
20804<br />
20805<br />
20806<br />
20807<br />
5145<br />
C3<br />
AB 51<br />
JP 51AB<br />
Schrittwinkel gleich Null ~ An f angspunkt.<br />
und Endpunkt mit Linie verbinden<br />
IENDWINKEL ALS ANFANGS<br />
IWINKEL VORGEBEN<br />
IX/Y-KOORDINATE AUS<br />
I MITTELPUNKT. RADIUS UND<br />
IANFANGSWINKEL ERRECHNEN<br />
20857<br />
20858<br />
20859<br />
20860<br />
20861<br />
20862<br />
20863<br />
Mittelpunkt 20864<br />
20865<br />
5170<br />
5171<br />
517B<br />
517E<br />
5181<br />
5182<br />
F5<br />
21 F5<br />
SEITE 360 <br />
BASIC 1Z-013B V1_0A <br />
20889<br />
20890 519A C3 7E 16 JP 167E IASCII-ZEICHEN IM ACCU<br />
20891 lOHNE ZU ZÄHLEN AN<br />
20892 I DRUCKER AUSGEBEN<br />
Untersuchen. ob Wert in HL im 8ereich -1000 < HL < +1000 liegt<br />
20893 519D EB EX OE.HL WERT NACH OE<br />
20894 519E 21 E7 03 LD HL. 03E7 999<br />
20895<br />
20896<br />
20897 51Al E5 PUSH HL ; MERKEN<br />
20898 51A2 19 ADD HL.DE<br />
20899 51A3 El POP HL 999<br />
20900 51A4 D8 RET C WERT GRöSSER -1000<br />
20901 51A5 ED 52 SBC HL.DE<br />
20902<br />
20903 51A7 DO RET NC WERT KLEINER +1000<br />
20904 51A8 C3 01 21 JP 2101 DATENFEHLER<br />
20905<br />
20906<br />
X/V-Koordinate des aktuellen Punktes aus Mittelpunkt.<br />
Radius und Anfangswinkel errechnen<br />
20907 51AB s)<br />
ED 5B B9 6A LD DE. (6AB9) I HöCHSTE BENUTZBARE<br />
20908 I RAM-ADRESSE<br />
20909 I
SEITE 362<br />
BASIC 1Z-013B<br />
V1_0A BASIC 1Z<br />
21000 <br />
21001 5209 00 <br />
Befehl PAGE<br />
21002 520A 00<br />
Exponent Endwinkel <br />
21003 Mantisse Endwi nl:el 2 1051 523B 3A CB 40 LD A. (<br />
21004 2 1052 <br />
21005 2 1053 <br />
21006 520E 00<br />
2 1054 523E FE 01 CP 01<br />
21007 520F Exponent<br />
00 00 00 00<br />
SCHRITTWINKEL 2 1055<br />
21008 Mantisse SCHRITTWINKEL 2 105& 5240 C2 F7 4F JP NZ.<br />
21009 2 1057<br />
21010 21058<br />
21011 5213 00<br />
21059 5243 CO 65 40 CALL 4<br />
21012 5214 I Exponent 21060<br />
00 00 00 00<br />
21013 <br />
I Manti sse 21061<br />
21014 IAKTUELLE X-KOORDINATE 21062 5246 7B LD A.E<br />
21015 2 1063 5247 B7 OR A<br />
21016 5218 00<br />
21064 5248 CA 01 21 JP Z.<br />
21017 5219 I Exponent<br />
00 00 00 00<br />
2 1065<br />
21018<br />
I Manti öse 2 1066<br />
21019 I AKTUELLE Y-KOORDINATE , 2 1067 524B FE 49 CP 49<br />
~<br />
21020 1<br />
.1 <br />
21 068 <br />
21 069 524D D2 01 21 JP NC.<br />
21070 <br />
21021 521D 00 <br />
21071<br />
NOP ',I<br />
Ifl<br />
21022 521E 00<br />
21 072 5250 CD -66 1C CALL lC<br />
NO? ,J<br />
21023 521F 00<br />
21073<br />
NOP<br />
21024 5220 00<br />
21074<br />
NOP<br />
21025 5221 00<br />
2 1075 5253 C2 FE 20 JP NZ.<br />
NOP .~ "1076<br />
.:: 1078 5256 3E 09 LD A.<br />
1077<br />
::1026 5222 44<br />
:1<br />
D<br />
21027 5223 30<br />
2 1079<br />
0<br />
21028 5224 2C<br />
2 1080 5258 CO 7E 16 CALL 1<br />
I,<br />
l<br />
21029 5225 30 <br />
2 1081<br />
0<br />
) 2 1082<br />
2103 0 5226 OD WagenrücklaLlf " 1083 525B CD 7E 16 CALL 1<br />
1084<br />
Befehl<br />
TEST V. ,.. 1085<br />
2 1086 525E CD 78 4D CALL 4<br />
2103 1 5227 <br />
~H 08 7<br />
3A CB 40 LD A, (40CB)<br />
21032<br />
DRUCKER MODUS FLAG jl 1088<br />
21033<br />
21034 522A FE 01 CP 01<br />
~ 108 9 5261 3E OD LD A.<br />
21035 IM TEXT-MODUS ? ~ 109 1 5263 CD 7E 16 CALL 1<br />
~ 1092<br />
21036 522C C2 F7 4F JP NZ, 4FF7<br />
21037<br />
INEIN + FEHLER 68 ~ 1093<br />
21038 <br />
• DRUCKER MODUS FEHLER ~l l094 5266 C9 RET<br />
21039 522F CD 66 1C CALL lC66<br />
21040 lüBERPRüFEN, OB NÄCHSTES<br />
21041 IPROGRAMMBYTE GLEICH ~! !095 5267 50 P<br />
21042 5232 IBEFEHLSENDEZEICHEN IST ')1096 5268 52 R<br />
C2 FE 20 JP NZ. 20FE SYNTAX - FEHLER ~1 1097 5269 49 I<br />
21043<br />
21044<br />
~ 109 0<br />
~l l09 8 526A 4E N<br />
t.' 1099 526B 54 T<br />
21045 5235 3E 04 LD A. 04 CODE DRUCKERTEST ~110 0<br />
21046<br />
526C 45 E<br />
~ 110 1 526D 52 R<br />
21047 5237 CD 7E 16 CALL 167E 'ASCII-ZEICHEN IM ACCU ~ 1102<br />
21048<br />
526E 20 Sp4l<br />
lOHNE ZU ZÄHLEN AN ~1103<br />
21049<br />
526F 40 M<br />
• DRUCKER AUSGEBEN ~ 110 4 5270 4F 0<br />
21050 523A C9 RET NÄCHSTER BEFEHL ~I :'1105 5271 44 0<br />
1106 5272 45 E<br />
1107 5273 20 Spac<br />
1108 5274 45 E
SEITE 364<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
2 1157 52A5 Dl POP DE<br />
21109 5275 52 R<br />
21 158 52A6 CD 10 53 CALL 5<br />
21110 5276 52 R<br />
21 159<br />
21111 5277 4F o<br />
21 160<br />
21112 5278 52 R<br />
21 161 52A9 FE EE CP EE<br />
21113 5279 21 21 162<br />
21114 527A 21<br />
Textende<br />
211 63 52AB D8 RET C<br />
21115 527B 00<br />
Vergleichsbefehl<br />
21116 527C 54 T<br />
21117 527D 2E 2 1164 52AC F5 PUSH A<br />
21118 527E 4D o<br />
21165 52AD 3A 65 6A LO A.<br />
211 66<br />
2 1167<br />
Zeiger auf String nach Descriptor (HL) nach OE bereitstellen<br />
2 11 68 52BO F5 PUSH A<br />
2 1169 52Bl 23 INC HL<br />
21119 527F' 46 LD B. (HU STRINGLÄNGE HOLEN<br />
2 11 70 52B2 CD 10 53 CALL 5<br />
21120 5280 23 INC HL<br />
I OFFSET AUF STRING HOLEN<br />
2 1171<br />
21121 5281 5E LD E. (HU<br />
2 1172<br />
21122 5282 · 23 INC HL I<br />
2 11 73 52B5 Cl POP BC<br />
21123 5283 56 LD D. (HU I<br />
2 1174 52B6 E3 EX (SP<br />
21124 5284 2A B5 6A LD HL. (6AB5) ANFANG STRINGTEXTBEREICH<br />
2 1175 52B7 F5 PUSH A<br />
21125 2 1176 52B8 E5 PUSH H<br />
21126 2 11 77 52B9 CD Bl 58 CALL 5<br />
21127 5287 19 ADD HL.DE ; ZEIGER AUF STRING ERRECHNEN<br />
2 1178<br />
21128 5288 EB EX DE.HL NACH DE<br />
2 1179<br />
21129 5289 78 LD A.B STRINGLÄNGE<br />
21180 52BC CD 4A 5E CALL 5<br />
21130 528A C9 RET<br />
Ausdruck auswerten und Zeiger auf Ergebnis bereitstellen<br />
21181<br />
2 1182<br />
1183 52BF 08 EX AF<br />
1184 52CO Fl POP "AF<br />
1185 52Cl FE F6 CP F6<br />
21131 528B ED 5B B7 6A LD OE. (6AB7) ; ANFANG STRINGARBEITSBEREICH<br />
1186<br />
21132 " 1187 52C3 20 lE JR NZ.<br />
21133 1188<br />
21134<br />
21135528F ED 53 D3 38 LD (38D3).DE I ZEIGER AUF<br />
21136 ISTRINGARBEITSBEREICH<br />
Auswertung Vergleich <<br />
21137<br />
21138 11 89 52C5 08 EX AF<br />
21139 5293 ED 5B B9 6A LD DE. (6AB9) ANFANG RECHENSPEICHER<br />
11 90 52C6 38 16 JR C.<br />
21140 1191<br />
21141<br />
21142<br />
21143 5297 D5 PUSH DE , ZEIGER AUF ERGEBNIS MERKEN<br />
Ergebnis Vergleich nicht e<br />
21144 5298 CO 90 52 CALL 529D AUSDRUCK (HL) AUSWERTEN<br />
21145 1192 52C8 01 00 00 LD BC.<br />
21146 1193<br />
21147 529B D1 POP DE ZEIGER AUF ERGEBNIS<br />
1194<br />
21148 529C C9 RET 1195 52CB 71 . LD (H<br />
1196 52CC 23 INC HL<br />
1197 52CD 70 LO (H<br />
Ausdruck mit allen Prioritäten auswerten 1198 52CE 23 INC HL<br />
1199 52CF AF XOR A<br />
21149 529D D5 PUSH OE • ZEIGER FüR ERGEBNIS MERKEN<br />
1200 5200 77 LO (H<br />
21150 529E ED 5B D3 38 LO DE. (38D3) I ZEIGER AUF<br />
1201 52Dl 23 INC HL<br />
21151 ISTRINGARBEITSBEREICH<br />
1202 52D2 77 LD (H<br />
21152 1203 52D3 23 INC HL<br />
21153 1204 52D4 77 LD (HL<br />
21154 52A2 CD DF 58 CALL 58DF lüBERPRüFEN. OB ADRESSE<br />
1205 5205 3E 05 LD A.<br />
21155 I IN OE NICHT MIT STACK<br />
1206<br />
21156 I COLLI DI ERT
SEITE 366<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
21207 5207 32 65 6A LO (6A65).A WERT - FLAG<br />
21208<br />
21209<br />
21210<br />
21211<br />
21212<br />
21213<br />
520A<br />
520B<br />
520C<br />
Fl<br />
El<br />
18 CB<br />
POP AF<br />
POP HL<br />
JR CB .. 52A9H<br />
NÄCHStES PROGRAMMBYTE<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
I UNTERSUCHEN. OB WEITERE<br />
IVERGLEICHSBEFEHLE<br />
21243 52FB<br />
21244 52FC<br />
21245<br />
21246 52FE<br />
21247<br />
Auswertung Vergleich =><br />
08<br />
30 EO<br />
18 C8<br />
EX<br />
JR<br />
JR<br />
AF<br />
NC<br />
C8<br />
21214<br />
21215<br />
21216<br />
21217 52E1<br />
21218<br />
21219<br />
21220<br />
21221<br />
21222<br />
Ergebnis Vergleich erfüllt vorgeben<br />
520E 01 81 80 LO BC. 8081 I VORGABE FüR -1<br />
I <br />
52E3<br />
52E5<br />
18 E8 JR E8 .. 52CBH WERT EINTRAGEN<br />
FE<br />
20<br />
F5<br />
07<br />
CP<br />
JR<br />
F5<br />
NZ. 07 .. 52EEH<br />
> <br />
21223 52E7 08 EX AF.AF' ERGEBNIS VERGLEICH HOLEN<br />
21224 52E8 28 OE JR Z. OE .. 52C8H VERGLEICH NICHT ERFüLLT<br />
21225<br />
21226 52EA 38 OC JR C. OC .. 52C8H VERGLEICH NICHT ERFüLLT<br />
21227<br />
21228 52EC 18 FO JR FO .. 520EH VERGLEICH ERFüLLT<br />
21229<br />
?<br />
21248<br />
21249<br />
2 1250 5302<br />
21251<br />
5300 FE FO CP F<br />
38 07 JR C.<br />
Auswertung Vergleich =<<br />
2 1252 5304 08 EX AF<br />
28 07 JR Z.<br />
2 1253 5305<br />
21254<br />
21255 5307<br />
21256<br />
21257 5309<br />
21258<br />
21 259 530B<br />
21260 530C<br />
2 1261<br />
2 1262 530E<br />
2 1263<br />
38 05<br />
18 BO<br />
JR C.<br />
JR BO<br />
Auswertung Funktion <br />
08<br />
28 BA<br />
18 CE<br />
EX AF<br />
JR Z.<br />
JR · CE<br />
21230 52EE FE F4 CP F4 (Zwischencode) ?<br />
21231<br />
21232 52FO 20 05 JR NZ. 05 .. 52F7H NEIN<br />
21233<br />
21234 52F2<br />
2123552F3<br />
21236<br />
21237 52F~<br />
21238<br />
Auswertung Vergleich<br />
08<br />
28 E9<br />
18 01<br />
EX<br />
JR<br />
JR<br />
AF.AF'<br />
Z. E9 .. 520EH<br />
01 .. 52C8H<br />
• ERGEBNIS VERGLEICH HOLEN<br />
VERGLEICH ERFüLLT<br />
VERGLEICH NICHT ERFüLLT<br />
21239 52F7 FE F2 CP F2 => >= 7<br />
21240<br />
21241 52F9 38 05 JR C. 05 .. 5300H NEIN<br />
2 1264<br />
2 1265<br />
Ausdruck mit Priorität 4<br />
.<br />
5310 CO 3B 53 CALL<br />
2 1266<br />
21267 5313 FE F7 CP F<br />
2 1268<br />
2 1269 5315 08 RET C<br />
2 1270 5316 3A 65 6A LO A.<br />
21 271<br />
21 272 •<br />
21 273 5319<br />
2 1274 531A<br />
21 275 531B<br />
21 276<br />
F5<br />
23<br />
28<br />
10<br />
zweites Argument für<br />
21242 21 277 5310 CO 3B 53 CALL<br />
2 1278<br />
21279<br />
2 1280 5320 Cl POP B<br />
21 281 5321 F5 PUSH<br />
21 282 5322 E5 PUSH<br />
21 283 5323 CO Bl 58 CALL<br />
21 284<br />
PUSH<br />
INC H<br />
JR Z.
SEITE 368 <br />
BASIC 1Z-013B V1.0A <br />
21285 <br />
21286 5326 CD A6 5D CALL 5DA6 - ROUTINE <br />
21287 <br />
21288 <br />
21289 5329 EI POP HL ; PROGRAM<strong>MZ</strong>EIGER HOLEN <br />
21290 532A Fl POP AF NÄCHSTES PROGRAMMBYTE <br />
21291 532B 18 E6 JR E6 + 5313H lAUF WEITERE AUSDRüCKE <br />
21292 IMIT PRIORITÄT 4 UNTERSUCH. <br />
Zweiten Parameter für + - Routine bereitstellen<br />
21293 532D CD 3B 53 CALL 533B lAUSDRUCK MIT PRIORITÄT 3 <br />
21294 10DER HöHER AUSWERTEN <br />
21295 <br />
21296 5330 Cl POP BC WERTFLAG ERSTER AUSDRUCK <br />
21297 5331 F5 PUSH AF NÄCHSTES PROGRAMM BYTE <br />
21298 5332 E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN <br />
21299 5333 CD BI 58 CALL 58Bl I ZEIGER AUF LETZTE ZWEI <br />
21300 I ARGUMENTE BEREITSTELLEN <br />
21301 <br />
21302 5336 CD AF 5D CALL 5DAF ; + - ROUTINE <br />
21303 <br />
21304 <br />
21305 5339 18 EE JR EE + 5329H GERETTETE REGISTER HOLEN <br />
21306 <br />
Ausdruck mit Priorität 3 und höher auswerten<br />
21307 533B CD 67 53 CALL 5367 lAUSRUCK MIT PRIORITÄT 2 <br />
21308 I UND HöHER AUSWERTEN <br />
21309 <br />
21310 533E FE FB CP FB * /
SEITE 370<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
Ausdruck auf eingebaute Funktion. selbst<br />
oder Variable mit Vorzeichen untersuchen<br />
definierte Funktion Ausdruck<br />
Variable<br />
auf eingebaute Fu<br />
untersuchen und W<br />
21383<br />
21384<br />
21385<br />
21386<br />
21387<br />
5387<br />
5388<br />
23<br />
CD<br />
14<br />
54<br />
INC HL<br />
CALL 5414<br />
PROGRAM<strong>MZ</strong>EIGER<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
(ZEICHEN STELLEN<br />
+ (Vorzeichen phIs) ?<br />
21433<br />
21 434<br />
21 435<br />
21436<br />
21437<br />
21438<br />
5388 FE F7 CP F7 ;<br />
21388<br />
21389 538D 28 F8 JR Z. F8 ~ 5387H JA ~ VERGESSEN<br />
21439<br />
21390<br />
21 440<br />
21391 538F FE F8<br />
CP F8<br />
(Zwischencode)<br />
21 441<br />
21392<br />
2 1442<br />
21393 5391 20 26 JR NZ, 26 ~ 5389H NICHT VORZEICHEN MINUS<br />
21 443<br />
21394<br />
2 1444<br />
21395 5393 23 INC HL PROGRAM<strong>MZ</strong>EIGER 2 1445<br />
5394 CD 88 53 CALL 5388<br />
AUSDRUCK (HL) AUSWERTEN<br />
21396<br />
21397<br />
,21398<br />
2 1446<br />
2 1447<br />
21448<br />
2 1449<br />
21399 ~ 5376H<br />
5397 18 DD JR DD I VORZEICHEN DES LETZTEN<br />
21400 IAR6UMENTES UMKEHREN 21450<br />
2 1451<br />
53B9<br />
53BC<br />
53BF<br />
53C2<br />
53C3<br />
53C6<br />
53C7<br />
53CA<br />
53CB<br />
CD<br />
CA<br />
CD<br />
08<br />
3A<br />
66 1C<br />
FE 20<br />
CC<br />
65<br />
53<br />
6A<br />
B7<br />
CA FE 20<br />
08<br />
C9<br />
CALL l<br />
JP Z.<br />
CALL 5<br />
EX AF,<br />
LD A. (<br />
OR<br />
JP<br />
A<br />
Z.<br />
EX AF,<br />
RET<br />
21401<br />
21402<br />
21403<br />
21404<br />
21405<br />
21406<br />
21407<br />
21408<br />
21409<br />
Ausdruck mit Priorität 1 oder höher auswerten<br />
5399 CD B9 53 CALL 53B9 (AUSDRUCK AUF KONSTANTE.<br />
lEINGEBAUTE FUNKTION ODER<br />
lVARIABLE UNTERSUCHEN<br />
539C FE FD CP FD ; ~ (Zwischencode)<br />
539E<br />
539F<br />
53AO<br />
CO<br />
23<br />
3A 65 6A<br />
RET NZ<br />
INC HL<br />
LD A. (6A65)<br />
NICHT POTENZIERUNG<br />
PROGRAM<strong>MZ</strong>EIGER<br />
WERTFLAG ERSTES ARGUMENT<br />
21452<br />
2 1453<br />
1454<br />
Wert der eingebauten Funkt<br />
Variablen bereitstellen<br />
53CC<br />
53CO<br />
21455<br />
2 1456 53DO<br />
~ 1457 53D1<br />
1458<br />
AF<br />
32 65 6A<br />
E5<br />
2A BB 6A<br />
XOR A<br />
LO (6A<br />
PUSH H<br />
LD HL.<br />
21410 1459<br />
21411 53A3 FE 03 CP 03 STRINGWERT 7 1460 53D4 37 SCF<br />
21412<br />
ED 52<br />
SBC HL<br />
21413 53A5 CA FB 20 JP Z. 20FB<br />
; JA ~ DATENFEHLER<br />
DA F8 20 JP C. 2<br />
21414<br />
21415<br />
21416<br />
21417<br />
21418<br />
21419<br />
21420<br />
21421<br />
21422<br />
21423<br />
21424<br />
21425<br />
21426<br />
21427<br />
21428<br />
21429<br />
21430<br />
21431<br />
21432<br />
53A8<br />
53A9<br />
53AC<br />
53AD<br />
53AE<br />
53AF<br />
53B2<br />
53B5<br />
5386<br />
53B7<br />
F5<br />
CD<br />
Cl<br />
F5<br />
E5<br />
CD<br />
CD<br />
E1<br />
Fl<br />
18<br />
88<br />
B1<br />
F5<br />
E3<br />
53<br />
58<br />
61<br />
PUSH AF<br />
CALL 5388<br />
POP BC<br />
PUSH AF<br />
PUSH HL<br />
CALL 58Bl<br />
CALL 61F5<br />
POP HL<br />
POP AF<br />
JR E3 ~ 539CH<br />
;<br />
;<br />
WERTFLAG MERKEN<br />
I AUSDRUCK AUF EINGEBAUTE<br />
IFUNKTION. KONSTANTE ODER<br />
I VARIABLE UNTERSUCHEN<br />
TYPFLAG ERSTER WERT<br />
NÄCHSTES PROGRAMMBYTE<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
(ZEIGER AUF LETZTE ZWEI<br />
I ARGUMENTE BEREITSTELLEN<br />
~ - ROUTINE<br />
PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
NÄCHSTES PROGRAMMBYTE HOLEN<br />
I UNTERSUCHEN. OB WEITERE<br />
I ARGUMENTE MIT GLEICHER PR.<br />
1461 5305<br />
1462<br />
1463 5307<br />
1464<br />
1465<br />
1466 53DA<br />
1467 53DB<br />
1468 53DC<br />
1469<br />
1470 53DE<br />
1471 53DF<br />
1472 53EO<br />
1473<br />
1474 53E2<br />
1475 53E3<br />
1476<br />
1477<br />
1478 53E6<br />
1479<br />
1480 53E8<br />
1481 53E9<br />
" 1482<br />
1483<br />
1484<br />
1485<br />
53EB<br />
53EC<br />
E1<br />
D5<br />
06<br />
12<br />
13<br />
10<br />
D1<br />
CD<br />
FE<br />
23<br />
28<br />
05<br />
FC<br />
14<br />
F7<br />
F8<br />
2B<br />
FE E4<br />
54<br />
POP HL<br />
PUSH DE<br />
LD B. 0<br />
LD (OE<br />
INC DE<br />
DJNZ FC<br />
POP OE<br />
CALL 54<br />
CP F7<br />
INC HL<br />
JR Z. F<br />
DEC<br />
CP<br />
HL<br />
E4<br />
" 1486 53EE CA lA 54 JP Z. 5<br />
~
SEITE 372 <br />
BASIC 1Z-013B V1_0A <br />
21487<br />
21488<br />
21489 53F1 FE 08 CP 08<br />
21490<br />
21491 53F3 30 39 JR NC. 39 ~ 542EH IKEINE EIN-ZIFFERIGE<br />
21492 IZAHLKONSTANTE<br />
21493 53F5 87 OR A ZEILENENDE 7<br />
21494 53F6 C8 RET Z JA<br />
21495 53F7 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
21496 53F8 3D oEC A INTEGER-WERT CORRIGIEREN<br />
21497 53F9 06 00 Lo 8. 00 I BC ENTHÄLT I NTEGER-loJERT<br />
21498 I<br />
21499 53FB 4F LD C.A I<br />
21500 53FC E5 PUSH HL I PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
21501 53Fo 05 PUSH OE ZEIGER FüR ERGEBNIS<br />
21502 53FE E8 EX DE.HL<br />
21503 53FF 59 LD E.C I INTEGER-WERT NACH 8C<br />
21504 5400 50 LD D.B I<br />
21505 5401 CD 82 3A CALL 3A82 I INTEGER-WERT IN DE UM<br />
21506 ISETZEN IN REAL-WERT<br />
21507<br />
21508 5404 01 POP DE ZEIGER AUF ERGEBNIS<br />
21509 5405 E1 POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
21510 5406 3E 05 LD A. 05 CODE REAL-WERT<br />
21511<br />
21512 5408 32 65 6A LD (6A65).A WERT-FLAG<br />
21513<br />
21514<br />
21515 5408 E8 EX DE.HL<br />
215 16 540C 01 05 00 LD 8C. 0005 LÄNGE ERGEBNIS<br />
21517<br />
21518<br />
21519 540F 09 ADD HL.BC ERGEBNIS RETTEN <br />
21520 5410 EB EX DE.HL <br />
21521 5411 18 01 JR 01 ~ 5414H <br />
21522 <br />
(P~og~amm-)Zeiger in HL auf nächstes ~elevantes Zeichen setzen<br />
21523 5413 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
21524 5414 7E LD A. (HU NÄCHSTES PROGRAMMBYTE<br />
21525 5415 FE 20 CP 20 Space ?<br />
21526<br />
21527 5417 28 FA JR Z. FA ~ 5413H I RELEVANTES ZEICHEN SUCHEN<br />
21528<br />
21529 5419 C9 RET<br />
We~t für ~ vorgeben<br />
21530 541A EB EX DE.HL <br />
21531 541B 36 81 LD (HU. 81 +1 VORGEBEN <br />
21532 <br />
21533 541D 3E 05 LD A. 05 CODE REAL-WERT <br />
21534 <br />
21535 541F 32 65 6A LD
SEITE 374<br />
BASIC 1Z-013B V1.0A<br />
21593 5459 FE 22 CP 22 (Anführungszeichen)<br />
21594<br />
21595 545B 20 29 JR NZ, 29 ~ 5486H KEINE STRINGKONSTANTE<br />
21596<br />
Angegebene Stringkonstante bereitstellen<br />
21597 5450 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
21598 545E 05 PUSH OE ZEIGER FüR ERGEBNIS<br />
21599 545F E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
21600 5460 CO C4 58 CALL 58C4 I LÄNGE DER STRINGKON<br />
21601 ISTANTEN AUSZÄHLEN<br />
21602<br />
21603 5463 E3 EX (SP),HL<br />
21604 5464 E5 PUSH HL ZEIGER AUF ANFANG STRING<br />
21605 5465 2A 03 38 LD HL, (3803) I ZEIGER AUF<br />
21606 ISTRINGARBEITSBEREICH<br />
21607<br />
21608 5468 C5 PUSH BC LÄNGE STRING MERKEN<br />
21609 5469 EO 4B B5 6A LD BC, (6AB5) I ZEIGER AUF ANFANG<br />
21610 ISTRINGTEXTBEREICH<br />
21611<br />
21612<br />
2161 3 5460 B7 OR A CARRY-FLAG ZURüCKSETZEN<br />
21614 546E EO 42 SBC HL,BC OFF SET AUF STRING ERRECHNEN<br />
21615<br />
21616 5470 Cl POP BC LÄNGE STRING HOLEN<br />
21617 5471 EB EX OE,HL ZEIGER FüR ERGEBNIS NACH HL<br />
21618 5472 70 LO (HL>, B STRINGLÄNGE EINTRAGEN<br />
21619 5473 23 INC HL<br />
21620 5474 73 LD (HU,E IOFFSET AUF STRING IN<br />
21621 5475 23 INC HL IDESCRIPTOR EINTRAGEN<br />
21622 5476 72 LO (HU,D I<br />
21623 5477 2A 03 38 LO HL, (38D3) I ZEIGER AUF<br />
21624 ISTRINGARBEITSBEREICH<br />
21625<br />
21626 547A 01 POP OE ZEIGER AUF ANFANG STRING<br />
21627 547B CO 00 58 CALL 58DO ISTRINGKONSTANTE IN<br />
21628 ISTRINGARBEITSBEREICH<br />
21629 I üBERTRAGEN<br />
21630 547E 22 D3 38 LO (38D3),HL I ZEIGER AUF STRING<br />
21631 IARBEITSBEREICH MERKEN<br />
21632<br />
21633 5481 EI POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
21634 5482 3E 03 LD A, 03 CODE STRING<br />
21635<br />
21636 5484 18 CF JR CF ~ 5455H ~ TYP DES ERGEBNIS MERKEN<br />
21637<br />
21638 5486 FE 28 CP 28 (Klammer auf)<br />
21639<br />
21640 5488 C2 43 5B JP NZ, 5B43 lAUF VARIABLENNAMEN<br />
21641 I UNTERSUCHEN<br />
21642<br />
BASIC 1Z-<br />
Ausdruck in Klammern vorran<br />
21643 548B 23 INC HL<br />
21644 548C CD 9D 52 CALL 52<br />
21645<br />
2 1646<br />
2 1647 548F FE 29 CP 29<br />
2 1648<br />
21649 5491 C2 FE 20 JP NZ,<br />
2 1650<br />
21651<br />
21652 5494 C3 13 54 JP 5413<br />
21653<br />
1654<br />
auf eingebaute Funktion unt<br />
21655 5497 FE E7 CP E7<br />
1656<br />
1657 5499 CA 3A 56 JP Z, 5<br />
1658<br />
1659<br />
1660 549C FE FF CP FF<br />
1661<br />
1662 549E CO RET NZ<br />
" 1663 549F 23 INC HL<br />
1664 54AO 7E LD A, (H<br />
1665 54A1 FE AB CP AB<br />
1666<br />
1667 54A3 30 6C JR NC.<br />
1668<br />
1669 54A5 FE 88 CP 88<br />
1670<br />
" 1671 54A7 28 4F JR Z, 4<br />
1672<br />
1673 54A9 FE AO CP AO<br />
1674<br />
1675 54AB CA 88 55 JP Z, 5<br />
1676<br />
1677<br />
1678 54AE FE 89 CP 89<br />
2 1679<br />
1680 54BO F5 PUSH AF<br />
1681 54B1 20 07 JR NZ,<br />
21682<br />
1683 54B3 23 INC HL<br />
21684 54B4 7E LO A, (H<br />
21685 54B5 FE 40 CP 40<br />
2 1686<br />
21687 54B7 28 1C JR Z, 1<br />
21688<br />
21689 54B9 2B OEC HL<br />
2 1690 54BA CD F9 57 CALL 57<br />
21691<br />
21692<br />
21693 54BD CD 90 52 CALL 52<br />
2 1694<br />
21695<br />
2 1696 54CO CD 04 58 CALL 58<br />
21697<br />
2 1698
SEITE 376 <br />
BASIC 1Z-013B V1.0A <br />
21699 54C3 CD 9B 5D CALL 5D9B c SYNTAX REAL-WERT <br />
21700 <br />
21701 <br />
21702 54C6 F1 POP AF ZWISCHENCOOE FUNKTION <br />
21703 54C7 D5 PUSH DE ZEIGER FüR ERGEBNIS MERKEN <br />
21704 54C8 E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN <br />
21705 54C9 21 FB FF LD HL. FFFB -5 (LÄNGE REAL-WERT) <br />
21706 <br />
21707 <br />
21708 54CC 19 AOD HL.DE ZEIGER AUF ARGUMENT ERRECH. <br />
21709 54CD CD 37 55 CALL 5537 I EINGEBAUTE FUNKTION <br />
21710 I AUFRUFEN <br />
21711 <br />
21712 5400 E1 POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN <br />
21713 5401 Dl POP DE ZEIGER FüR ERGEBNIS HOLEN <br />
21714 54D2 C3 14 54 JP 5414 IPROGRAM<strong>MZ</strong>EIGER IN HL <br />
21715 lAUF NÄCHSTES RELEVANTES <br />
21716 I ZEICHEN SETZEN <br />
Funktion PEEK;i) (PEEK über RAM-Bereich)<br />
21717 54D5 F1 POP AF FUNKTION VERGESSEN <br />
21718 54D6 D5 PUSH OE ZEIGER FüR ERGEBNIS <br />
21719 54D7 CD F9 57 CALL 57F9 SYNTAX Klammer auf <br />
21720 <br />
2 1721 <br />
21722 54DA CD 9D 52 CALL 5290 lAUSDRUCK (HL) MIT ALLEN <br />
21723 I~RIORITÄTEN AUSWERTEN <br />
21724 <br />
21725 54DD CD 04 58 CALL 5804 SYNTAX Klammer zu <br />
21726 <br />
21727 <br />
2 1728 54EO CO 98 50 CALL 509B SYNTAX REAL-WERT <br />
21729 <br />
21730 <br />
21731 54E3 EB EX DE.HL <br />
21732 54E4 E3 EX (SP) .HL <br />
21733 54E5 05 PUSH DE ZEIGER FüR ERGEBNIS <br />
21734 54E6 E5 PUSH HL ZEIGER AUF ADRESSE <br />
21735 54E7 CD 21 3D CALL 3D21 I REAL - WERT (HL) UMSETZEN <br />
21736 I HEX-WERT NACH HL <br />
21737 <br />
21738 54EA 40 LD C.L I ADRESSE NACH BC <br />
21739 54EB 44 LD B.H I <br />
21740 54EC E1 POP HL ZEIGER FüR ERGEBNIS <br />
21741 54EO OA LO A. (BC) WERT AUS RAM HOLEN <br />
21742 54EE 5F LO E.A <br />
21743 54EF 16 00 LD O. 00 <br />
21744 <br />
21745 54F1 CD 82 3A CALL 3A82 • IHEX-WERT IN OE UMSETZEN <br />
21746 I IN REAL-WERT NACH (HL) <br />
21747 <br />
21748 54F4 3E 05 LD A. 05 CODE REAL-WERT <br />
21749 <br />
21750 54F6 18 08 JR 08 .. 5400H GERETTETE REGISTER HOLEN <br />
21751 <br />
BASIC 1Z-<br />
Funktionsdekodierung RND<br />
21752 54F8 F5<br />
21753 54F9 23 <br />
21754 54FA CD 14 54 <br />
2 1755 <br />
2 1756 <br />
2 1757 54FD FE 28 <br />
2 1758 <br />
2 1759 54FF 20 03 <br />
21 760 <br />
2 1761 5501 23 <br />
21762 5502 18 B9 <br />
2 1763 <br />
PUSH AF<br />
INC HL<br />
CALL 54<br />
CP 28<br />
JR NZ.<br />
INC HL<br />
JR B9<br />
2 1764 5504 3E 05 <br />
2 1765 <br />
2 1766 5506 32 65 6A <br />
2 1767 <br />
2 1768 <br />
2 1769 5509 EB <br />
21 770 550A 01 05 00 <br />
2 1771 <br />
21 772 <br />
21 773 5500 09 <br />
LD A.<br />
LO (6A<br />
EX OE.H<br />
LO BC.<br />
AOO HL<br />
OE.<br />
21 774 550E EB EX <br />
JR B5<br />
21 775 550F 18 B5 <br />
21 776 <br />
2 1777 5511 FE 83 <br />
2 1778 <br />
2 1779 5513 30 14 <br />
21 780 <br />
CP B3<br />
JR NC.<br />
Funktio'nsdekodierung ASC<br />
21 781 5515 F5 PUSH A<br />
21 782 5516 CO F9 57 CALL 5<br />
2 1783 <br />
2 1784 <br />
2 1785 5519 CO 90 52 CALL<br />
2 1786 <br />
21 787 <br />
21 788 551C CO 04 58 CALL<br />
21 789 <br />
21 790 <br />
21 791 551F 3A 65 6A LD A.<br />
2 1792 <br />
2 1793 <br />
2 1794 5522 FE 03 CP 0<br />
21 795 <br />
2 1796 5524 C2 FB 20 JP NZ<br />
21797 <br />
21 798 <br />
21 799 5527 18 90 JR 9D<br />
2 1800
SEITE 378<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z-<br />
21801<br />
21802<br />
21803<br />
21804<br />
5529<br />
552B<br />
FE<br />
30<br />
BA<br />
06<br />
CP<br />
JR<br />
BA<br />
NC, 06 ~ 5533H<br />
Funktionsdekodierung ERN ERL SIZE<br />
LEFT$<br />
WEITER<br />
<br />
INC HL<br />
LD H, (HL><br />
LD L,A<br />
EX (SP),HL<br />
RET<br />
EX DE,HL<br />
LD HL. 0000<br />
ADD HL,SP<br />
LD BC, (3803)<br />
OR A<br />
SBC HL.BC<br />
•<br />
•<br />
•<br />
•<br />
I ZEIGER AUF TABELLE MIT<br />
IANFANGSADRESSEN DER<br />
I EINGEBAUTEN FUNKTIONEN<br />
OFFSET MAL ZWEI<br />
PLUS ANFANG TABELLE<br />
IANFANGSADRESSE DER<br />
I ROUTINE AUS TABELLE<br />
I HOLEN<br />
I<br />
ADRESSE + PROGRAM<strong>MZ</strong>EIGER<br />
ROUTINE AUFRUFEN<br />
PROGRAM<strong>MZ</strong>EIGER NACH OE<br />
ISTACKPOINTER HOLEN<br />
I ZEIGER AUF STRING<br />
IARBEITSBEREICH HOLEN<br />
CARRV-FLAG ZURüCKSETZEN<br />
DIFFERENZ ERRECHNEN<br />
21844 5554 B7 OR A CARRV-FLAG ZURüCKSETZEN<br />
21845 5555 01 00 01 LD BC. 0100 VORGABE FüR ARBEITSBEREICH<br />
21846<br />
21847<br />
21848<br />
21849<br />
21850<br />
21851<br />
21852<br />
~<br />
2 1866<br />
2 1867<br />
2 1868<br />
5565<br />
5566<br />
2 1869<br />
21870 556E<br />
21 871<br />
2 1872<br />
2 1873 5571<br />
2 1874<br />
21875 5573<br />
21876<br />
21877<br />
2 1878 5576<br />
2 1879 5577<br />
21880<br />
2 1881 5579<br />
21882 557A<br />
2 1883 557B<br />
2 1884<br />
2 1885<br />
21886<br />
2 1887<br />
21 888<br />
21 889<br />
21 890<br />
5558 ED 42 SBC HL.BC FREIE ANZAHL ERRECHNEN 21896<br />
2 1897<br />
555A EB<br />
EX DE,HL<br />
21 898<br />
555B 18 11 JR 11 UMSETZEN<br />
NACH DE<br />
IHEX-WERT IN OE<br />
I IN REAL-WERT<br />
557E<br />
557F<br />
5582<br />
2 1891<br />
2 1892 5584<br />
2 1893 5585<br />
2 1894<br />
2 1895<br />
5F<br />
16 00<br />
CD 82 3A<br />
3E 05<br />
32 65 6A<br />
23<br />
CB 7E<br />
2B<br />
C8<br />
11 6E 6A<br />
EB<br />
CD 87<br />
36 91<br />
50<br />
EB<br />
C3 AF 5D<br />
Funktion CHR.<br />
2 1899 558B<br />
2 1900 558C<br />
LD<br />
LD E,A<br />
0, 0<br />
CALL 3A<br />
LD A,<br />
LD (6A<br />
INC HL<br />
BIT 7.<br />
DEC HL<br />
RET Z<br />
LD DE.<br />
EX DE,<br />
.CALL 5<br />
LD (HL<br />
EX<br />
JP<br />
DE.<br />
5DA<br />
5588 CD F9 57 CALL 5<br />
37<br />
F5<br />
SCF<br />
PUSH A<br />
,<br />
I<br />
I
SEITE 380<br />
21901 5580 D5<br />
21902 558E CD 5A<br />
21903<br />
21904<br />
21905 5591 FE 29<br />
21906<br />
21907 5593 28 OC<br />
21908<br />
21909 5595 FE 2C<br />
21910<br />
21911 5597 C2 FE<br />
21912<br />
21913<br />
21914 559A 23<br />
21915 5598 CO 53<br />
21916<br />
21917<br />
21918 559E 01<br />
21919 559F 18 E8<br />
21920<br />
21921 55A1 23<br />
21922 55A2 CD 53<br />
21923<br />
21924<br />
21925 55A5 01<br />
21926 55A6 F5<br />
21927 55A7 09<br />
21928 55A8 11 OF<br />
21929<br />
21930<br />
21931 55A8 06 00<br />
21932<br />
21933 55AD F1<br />
21934 55AE 38 05<br />
21935<br />
21936 5580 12<br />
21937 5581 13<br />
21938 5582 04<br />
21939 5583 18 F8<br />
21940<br />
21941 5585 48<br />
21942 5586 2A 03<br />
21943<br />
21944<br />
21945 5589 E5<br />
21946 55BA 1B<br />
21947 558B IA<br />
21948 55BC 77<br />
21949 55BD 23<br />
21950 55BE 10 FA<br />
21951<br />
21952 55CO 01<br />
21953 55Cl CD C7<br />
21954<br />
21955<br />
21956 55C4 C3 14<br />
21957<br />
21958<br />
BASIC 1Z-013B<br />
PUSH DE<br />
4D CALL 4D5A<br />
CP 29<br />
JR Z. OC ~ 55A1H<br />
CP 2C<br />
20 JP NZ. 20FE<br />
INC HL<br />
40 CALL 4053<br />
POP DE<br />
JR EB ~ 558CH<br />
INC HL<br />
40 CALL 4D53<br />
POP DE<br />
PUSH AF<br />
EXX<br />
11 LD DE. 110F<br />
LD B. 00 •<br />
POP AF<br />
JR C. 05 ~ 55B5H •<br />
LO
SEITE 382 <br />
BASIC 1Z-013B V1.0A <br />
22015 55FF 48 LD C.B LÄNGE HEX-ASCII-TEXT<br />
22016 5600 2A 03 38 LO HL. (3803) I ZEIGER AUF<br />
22017 ISTRINGARBEITSBEREICH<br />
22018<br />
22019 5603 E5 PUSH HL MERKEN<br />
22020 5604 CD 00 58 CALL 5800 I IN S ANGEGEBENE ANZAHL<br />
22021 I ZEICHEN VON (OE) NACH<br />
22022 I (HL) üBE~TRAGEN<br />
22023 5607 EB EX DE.HL<br />
22024 5608 E1 POP HL ZEIGER AUF STRING<br />
22025 5609 D9 EXX<br />
22026 560A Dl POP OE ZEIGER FüR DESCRIPTOR<br />
22027 560B D9 EXX<br />
22028 560C C3 CB 55 JP 55CB IDESCRIPTOR FüR ERGEBNIS<br />
22029 I AUFBAUEN<br />
22030<br />
22031 560F CD 21 3D CALL 3021 IREAL-WERT (HL) UMSETZEN<br />
2203 2 I IN INTEGER NACH HL<br />
22033<br />
2203 4 5612 11 OF 11 LD OE. 110F I ZEIGER AUF ZWISCHEN<br />
22035 I SPEICHER FüR HEX-WERT<br />
22036<br />
22037 5615 C9 RET<br />
Hex-Wert in HL umsetzen in Hex-ASCII-Zeichenfolge nach (OE)<br />
22038 5616 05 PUSH OE ZEIGER AUF ASCII-SPEICHER<br />
22039 5617 7C LD A.H H- BYTE WERT<br />
22040 5618 CO 29 56 CALL 5629 IH-NIBsLE UMSETZEN<br />
22041 I IN ASCII NACH (OE)<br />
22042<br />
22043 561B 7C LO A.H H-BYTE WERT<br />
22044 561C CO 2D 56 CALL 562D IL-NIBBLE UMSETZEN<br />
22045 I IN ASCII NACH (DE)<br />
22046<br />
22047 561F 7D LD A.L L-BYTE WERT<br />
22048 5620 CD 29 56 CALL 5629 IH- NIBSLE UMSETZEN<br />
22049 I IN ASCII NACH (OE)<br />
22050<br />
22051 5623 70 LO A.L L- BYTE WERT<br />
22052 5624 CD 2D 56 CALL 5620 IL-NIBBLE UMSETZEN<br />
22053 I IN ASCII NACH (OE)<br />
22054<br />
22055 5627 Dl POP OE ZEIGER AUF ASCII-TEXT<br />
2 2056 5628 C9 RET<br />
H-Nibble des Hex - Wertes im Accu umsetzen in ASCII nach (DE)<br />
22057 5629 07 RLCA IH-NIBBLE AUF L-NIBBLE<br />
22058 562A 07 RLCA I SCHIEBEN<br />
22059 562B 07 RLCA I<br />
22060 562C 07 RLCA I<br />
22061 5620 E6 OF ANO A. OF L-NIBBLE MASKIEREN<br />
22062<br />
22063 562F C6 30 ADO A. 30 UMSETZEN IN ASCII<br />
22064<br />
22065 5631 FE 3A CP 3A 0-9 ?<br />
22066<br />
BASIC 1Z<br />
22067 5633 38 02 JR C.<br />
22068<br />
22069 5635 C6 07 AOO A<br />
22070<br />
22071 5637 12 LO
SEITE 384 <br />
BASIC 1Z-013B V1_0A <br />
Oescriptor für Leerstring aufbauen<br />
22118 5666 E1 POP HL ZEIGER FüR OESCRIPTOR<br />
22119 5667 CO 87 50 CALL 5087 (HL) 5 BYTE NULL EINTRAGEN<br />
22120<br />
22121<br />
22122 566A C3 E5 55 JP 55E5 CODE STRING VORGEBEN<br />
22123<br />
22124<br />
Real-Wert (HL) umsetzen in Integer mit Untersuchung auf kleiner 256<br />
22125 566D CD OF 56 CALL 560F • IREAL-WERT (HL) UMSETZEN <br />
22126 I IN INTEGER NACH HL <br />
22127 <br />
22128 5670 7C LD A.H H-BYTE WERT <br />
22129 5671 B7 OR A GLEICH NULL ? <br />
22130 5672 C2 01 21 JP NZ. 2101 I ZU GRaSS ~ DATENFEHLER. <br />
22131 <br />
22132 <br />
22133 5675 7D LD A.L L-BYTE WERT <br />
22134 5676 C9 RET <br />
Befehl STR$<br />
22135 5677 E5 PUSH HL ZEIGER AUF ARGUMENT <br />
22136 5678 CO 69 3C CALL 3C69 IREAL-ZAHL (HL) UMSETZEN <br />
22137 I IN ASCII NACH ZWISCHEN<br />
22138 I SPEICHER <br />
22139 567B 1A LD A. (OE) VORZEICHEN HOLEN <br />
22140 567C FE 20 CP 20 Space ? <br />
22141 <br />
22142 567E 20 01 JR NZ. 01 ~ 5681H RELVANTES ZEICHEN <br />
22143 <br />
22144 5680 13 INC OE I Space VERGESSEN <br />
22145 5681 2A D3 38 LO HL. (38D3) I ZEIGER AUF <br />
22146 ISTRINGARBEITSBEREICH <br />
22147 <br />
22148 5684 06 00 LD B. 00 VORGABE FüR LÄNGENZÄHLER <br />
22149 <br />
22150 5686 1A LD A. (DE) EIN ZEICHEN TEXT HOLEN <br />
22151 5687 B7 OR A TEXTENDE ? <br />
22152 5688 28 06 JR Z. 06 ~ 5690H JA <br />
· 22153<br />
22154 568A 77 LD (HL>.A I ZEICHEN üBERTRAGEN<br />
22155 568B 13 INC DE ZEIGER AUF ZAHL<br />
22156 568C 23 INC HL ZEIGER AUF ARBEITSBEREICH<br />
22157 568D 04 INC B ZÄHLER ANZAHL ZEICHEN<br />
22158 568E 18 F6 JR F6 ~ 5686H IUNTERSUCHEN. OB WEITERE<br />
22159 I ZEICHEN<br />
22160 5690 78 LD A.B LÄNGE ZAHLTEXT<br />
22161 5691 B7 OR A GLEICH NULL ?<br />
22162 5692 CA 66 56 JP Z. 5666 • IJA ~ DESCRIPTOR FüR<br />
22163 ILEERSTRING VORGEBEN<br />
22164<br />
22165 5695 EO 5B D3 38 LO DE. (3803) I ZEIGER AUF<br />
22166 ISTRINGARBEITSBEREICH<br />
22167<br />
22168<br />
22169 5699 09 EXX<br />
BASIC 1Z~<br />
22170 569A 01 POP OE<br />
22 171 569B 09 EXX<br />
22172 569C 48 LO C.B<br />
22173 5690 C3 C7 55 JP 55C7<br />
22 174<br />
22175<br />
Funktion ASC<br />
22 176 56AO E5 PUSH HL<br />
22177 56Al CD 7F 52 CALL 52<br />
22178<br />
22179<br />
22180 56A4 B7 OR A<br />
22181 56A5 28 01 JR Z. 0<br />
22 182<br />
22183 56A7 1A LO A.
SEITE 386<br />
BASIC 1Z-013B V1.0A<br />
Funktion LEFT$<br />
22215 56C7 CD E5 57 CALL 57E5 IISTRING UND 2-BYTE-WERT<br />
22216 I BERE I TSTELLEN<br />
22217<br />
22218 56CA SYNTAX Klamme~ zu<br />
CD 04 58 CALL 5804 22219<br />
22220<br />
DE 57 CALL 57DE<br />
22221 56CD CD<br />
22222<br />
22223<br />
22224 56DO EB<br />
22225 56D1 7E<br />
22226 56D2 B9<br />
22227 56D3 30<br />
22228<br />
22229 56D5 4F<br />
22230 5606 71<br />
22231 56D7 01<br />
22232<br />
22233<br />
22234 56DA 3E<br />
22235<br />
22236 56DC 09<br />
22237 56DD EB<br />
22238 56DE 32<br />
22239<br />
22240<br />
22241 56El C3<br />
22242<br />
22243<br />
01<br />
05 00<br />
03<br />
65 6A<br />
14 54<br />
EX DE.HL<br />
LD A. (HL><br />
CP C<br />
JR NC. 01 ~<br />
I<br />
LD C.A<br />
LD (HL> .C<br />
LD BC. 0005<br />
L<br />
LD A. 03<br />
ADD HL.BC<br />
EX DE.HL<br />
LD (6A65).A<br />
JP 5414<br />
56D6H<br />
I üBERPRüFEN. OB WERT IN<br />
IBC KLEINER 2~6 IST<br />
STRINGLÄNGE HOLEN<br />
ANGEGEBENER LEFT$-WERT<br />
STRING IST LÄNGER<br />
STRINGLÄNGE VORGEBEN<br />
NEUE STRINGLÄNGE<br />
LÄNGE DESCRIPTOREINTRAG<br />
CODE STRING<br />
DESCRIPTOR RETTEN<br />
ZEIGER NACH OE<br />
TYP-WERT MERKEN<br />
IPROGRAM<strong>MZ</strong>EIGER IN HL<br />
lAUF NÄCHSTES RELEVANTES<br />
I ZEICHEN SETZEN<br />
Funktion<br />
RIGHT$<br />
22244<br />
22245<br />
22246<br />
22247<br />
22248<br />
22249<br />
22250<br />
22251<br />
22252<br />
22253<br />
22254<br />
22255<br />
22256<br />
22257<br />
22258<br />
22259<br />
22260<br />
22261<br />
22262<br />
22263<br />
22264<br />
22265<br />
22266<br />
22267<br />
22268<br />
22269<br />
22270<br />
56E4<br />
56E7<br />
56EA<br />
56ED<br />
56EE<br />
56EF<br />
56FO<br />
56F2<br />
56F3<br />
56F4<br />
56F5<br />
56F6<br />
56F7<br />
56F8<br />
56F9<br />
56FB<br />
56FC<br />
56FD<br />
CD<br />
CD<br />
CD<br />
E5<br />
04<br />
DE<br />
EB<br />
7E<br />
91<br />
30 02<br />
AF<br />
4E<br />
71<br />
23<br />
86<br />
77<br />
23<br />
3E 00<br />
8E<br />
57<br />
58<br />
57<br />
77<br />
01 03 00<br />
CALL<br />
I<br />
BASIC 1Z<br />
22271<br />
22272 5700 18 D8 JR D8<br />
22273<br />
Funktion MID$<br />
"<br />
:<br />
J.:<br />
CALL<br />
CALL<br />
57E5<br />
5804<br />
57DE<br />
EX DE.HL<br />
LD A. (HL><br />
SUB C<br />
JR NC. 02<br />
XOR A<br />
LD C. (HL><br />
LD (HL>. C<br />
INC HL<br />
ADD A. (HL><br />
LD (HL> .A<br />
INC HL<br />
LD A. 00<br />
ADC A, (HL><br />
LD<br />
LD<br />
(HL> ,A<br />
BC, 0003<br />
~ 56F4H<br />
I<br />
ISTRING UND 2- BYTE-WERT<br />
I BERE I TSTELLEN<br />
SYNTAX Klammer zu<br />
I üBERPRüFEN. OB WERT IN<br />
IBC KLEINER 256 IST<br />
LÄNGE STRING HOLEN<br />
ANGEGEBENE LÄNGE RIGHT$<br />
STRING IST LÄNGER<br />
KEIN ZEICHEN VERGESSEN<br />
NEUE LÄNGE GLEICH ALTE<br />
NEUE LÄNGE EINTRAGEN<br />
ZEIGER AUF OFFSET<br />
10FFSET AUF STRING<br />
I CORRIGIEREN<br />
I<br />
I<br />
I<br />
I<br />
I<br />
LÄNGE STRING-DESCRIPTOR<br />
, ~ "<br />
>r<br />
1 ,<br />
I .<br />
";~<br />
";'~<br />
" /<br />
~; ;1'<br />
' ,I<br />
'.<br />
' ~<br />
'i 1j<br />
I'<br />
-<br />
"" .<br />
"i<br />
)'<br />
I<br />
1 ; 1<br />
:1 1<br />
,<br />
' "<br />
. 1<br />
,"<br />
! '<br />
.J<br />
\'<br />
d el i<br />
!<br />
;),<br />
22274 5702<br />
22275<br />
22276<br />
22277 5705<br />
22278<br />
22279<br />
22280 5708<br />
22281 5709<br />
22282<br />
22283<br />
22284 570C<br />
22285 570D<br />
22286 570E<br />
22287<br />
22288 5710<br />
22289<br />
22290 5712<br />
22291<br />
22292<br />
22293 5715<br />
22294 5716<br />
22295 5717<br />
22296<br />
22297<br />
22298 571A<br />
22299 571B<br />
22300 571C<br />
22301<br />
22302<br />
22303 571F<br />
22304<br />
22305<br />
22306 5722<br />
22307<br />
22308<br />
22309 5725<br />
22310 5726<br />
22311<br />
22312<br />
CD E5 57<br />
CD DE 57<br />
B7<br />
CA 01 21<br />
F5<br />
7E<br />
FE 29<br />
28 24<br />
CD 32 33<br />
05<br />
EB<br />
01 05 00<br />
09<br />
EB<br />
CD 5A 4D<br />
CD<br />
CD<br />
D1<br />
Cl<br />
04<br />
53<br />
58<br />
4D<br />
CALL 5<br />
CALL 5<br />
OR A<br />
JP Z.<br />
PUSH A<br />
LD A. (H<br />
CP 29<br />
JR Z.<br />
CALL 3<br />
PUSH D<br />
EX DE,H<br />
LD BC,<br />
ADD HL<br />
EX DE,H<br />
CALL 4D<br />
CALL 5<br />
CALL 4D<br />
POP DE<br />
POP BC<br />
I<br />
I<br />
l<br />
22313<br />
223 14<br />
2231 5<br />
I<br />
22316<br />
22317<br />
2231 8<br />
223 19<br />
22320<br />
22321<br />
22322<br />
22323<br />
22324<br />
22325<br />
5727<br />
5728<br />
5729<br />
572A<br />
572B<br />
I<br />
I<br />
I<br />
5720<br />
572E<br />
572F<br />
5731<br />
5732<br />
5733<br />
5734<br />
4F<br />
EB<br />
7E<br />
90<br />
38 OE<br />
3C<br />
B9<br />
30 01<br />
4F<br />
78<br />
3D<br />
18 BE<br />
LD C.A<br />
EX DE.H<br />
LD A. (H<br />
SUB B<br />
JR C.<br />
INC A<br />
CP C<br />
JR NC.<br />
LD C.A<br />
LD A.B<br />
DEC A<br />
JR BE
SEITE 388<br />
BASIC 1Z-013B V1_0A BASIC 1Z-<br />
22326 5736 23 INC HL Klammer zu üBERSPRINGEN 22382 576E IB DEC DE<br />
22327<br />
22328<br />
5737 3E FF LD A, FF 255 ALS LÄNGE VORGEBEN 22383 576F<br />
22384 5770<br />
1A<br />
3C<br />
LD A,
22442<br />
22443<br />
22445<br />
22446<br />
22450<br />
22451<br />
22455<br />
22456<br />
22459<br />
22463<br />
22474<br />
22476<br />
22477<br />
22479<br />
22480<br />
22483<br />
22485 <br />
22490<br />
22497<br />
22498<br />
22502<br />
22503<br />
22506<br />
22507<br />
22509<br />
22510<br />
22512<br />
22515<br />
22516<br />
22523<br />
22524<br />
22526<br />
22530<br />
22531<br />
22533<br />
22538 <br />
22536 5808 C3 FE 20 JP 20FE<br />
22537<br />
Syntaxuntersuchung auf Klam<br />
22529 5801 C3 FE 20 JP 20FE<br />
Syntaxuntersuchung auf Klam<br />
I ZEICHEN STELLEN 22522 57FA CD 14 54 CALL 54<br />
überprüfen, ob Wert in BC k<br />
22508 57EC CD 32 33 CALL 33<br />
BASIC 1Z-<br />
22505 57E9 CD 90 52 CALL 52<br />
OFFSET AUF STRING ERRECHNEN 22504 57E8 05 PUSH OE<br />
22514 57F2 CO 5A 40 CALL 40<br />
22511 57EF CO 7A 50 CALL 50<br />
22501 57E5 CD FA 57 CALL 57<br />
22532 5804 FE 29 CP 29<br />
22534 5806 23 INC HL<br />
22525 57FO FE 28 CP 28<br />
CARRY-FLAG ZURüCKSETZEN 22527 57FF 23 INC HL<br />
22521 57F9 23 INC HL<br />
22517 57F5 4B LO C.E<br />
22518 57F6 42 LO B,O<br />
22519 57F7 01 POP OE<br />
22499 57E3 79 LO A.C<br />
Stringwert und 2-Byte-Wert<br />
22535 5807 C8 RET Z<br />
22494 570E 78 LO A,B<br />
22528 5800 C8 RET Z<br />
22496 57EO C2 01 21 JP NZ.<br />
22495 570F B7 OR A<br />
22520 57F8 C9 RET<br />
22500 57E4 C9 RET<br />
I 22513<br />
ZEIGER AUF NÄCHSTE STELLE<br />
22478 57CE C3 14 54 JP 5414 IPROGRAM<strong>MZ</strong>EIGER IN HL AUF<br />
LO OE. (6AB5) ANFANG STRINGTEXTBEREICH<br />
LO OE, 0006 LÄNGE AUFGEBAUTER STRING<br />
CARRY-FLAG ZURüCKSETZEN<br />
OB WERT<br />
IGRöSSER STELLENWERT<br />
LO (HU, E IOFFSET AUF STRING IN<br />
10ESCRIPTOR EINTRAGEN<br />
36 06 LO (HU, 06 LÄNGE NACH OESCRIPTOR<br />
AOO HL,BC RESTWERT CORRIGIEREN<br />
I WERT STELLE EIN MAL<br />
ISTRINGARBEITSBEREICH<br />
I NÄCHSTES RELEVANTES<br />
ISTRINGARBEITSBEREICH<br />
22472 57C8 El POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
LO A, 03 ERGEBNIS TYP STRING<br />
ZEIGER FüR ERGEBNIS<br />
LO
SEITE 392 <br />
BASIC 1Z-013B V1.0A <br />
Variablennamen (HL) auswerten und Zeiger auf Variable <br />
nach BC; Variablenartcode nach Accu bereitstellen <br />
22539 580B ED 5B B7 6A LD DE. (6AB7) I ZEIGER AUF ANFANG<br />
22540 ISTRINGARBEITSBEREICH<br />
22541<br />
22542<br />
22543580F ED 53 D3 38 LD (38D3).DE I ZEIGER AUF<br />
22544 ISTRINGARBEITSBEREICH<br />
22545<br />
22546<br />
22547 5813 ED 5B B9 6A LD DE. (6AB9) I ZEIGER AUF<br />
22548 I RECHENSPE I CHER<br />
22549<br />
22550<br />
22551 5817 CD 14 54 CALL 5414 IPROGRAM<strong>MZ</strong>EIGER IN HL AUF<br />
22552 I NÄCHSTES RELEVANTES<br />
22553 I ZEICHEN STELLEN<br />
22554 581A FE 41 CP 41 ANFANG BUCHSTABEN<br />
22555<br />
22556 581C DA FE 20 JP C, 20FE IKEIN BUCHSTABE +<br />
22557 I SYNTAX - FEHLER<br />
22558<br />
22559 581F FE 5B CP 5B ENDE BUCHSTABEN<br />
22560<br />
22561 5821 D2 FE 20 JP NC. 20FE IKEIN BUCHSTABE +<br />
22562 ISYNTAX - FEHLER<br />
22563<br />
22564 5824 D5 PUSH DE ZEIGER MERKEN<br />
22565 5825 CD 8B 58 CALL 588B IVARIABLENNAMEN (HL) IM<br />
22566 IZWISCHENSPEICHER BEREIT<br />
22567 I STELLEN<br />
22568 5828 7E LD A, (HU NÄCHSTES PROGRAMMBYTE<br />
22569 5829 FE 28 CP 28 ( (Klammer auf)<br />
22570<br />
22571 582B CA F4 58 JP Z. 58F4 INDIZIERTE VARIABLE<br />
22572<br />
22573<br />
22574 582E E5 PUSH HL PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
22575 582F CD 06 5C CALL 5C06 VARIABLE SUCHEN<br />
22576<br />
22577<br />
22578 5832 30 06 JR NC, 06 + 583AH VARIABLE NICHT GEFUNDEN<br />
22579<br />
22580 5834 79 LD A,C TYPFLAG NACH ACCU<br />
22581 5835 4D LD C,L I ZEIGER AUF VARIABLE<br />
22582 5836 44 LD B,H • NACH BC<br />
22583 5837 EI POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
22584 5838 01 POP DE GERETTETES REGISTER HOLEN<br />
22585 5839 C9 RET<br />
Neue Variable einfügen<br />
22586 583A IA LD A,
SEITE 394<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
Va~iablennamen (HL) im Zwischenspeiche~ bereitstellen Zeiger auf letzten zwei Ar<br />
22654 587E CD 14 54 CALL 5414 IPROGRAM<strong>MZ</strong>EIGER IN HL AUF 22705 58Bl 21 FB FF LD HL.<br />
22655 I NÄCHSTES RELEVANTE 22706<br />
22656<br />
22657<br />
22658<br />
22659<br />
22660<br />
5881 FE 41 CP 41<br />
I ZEICHEN STELLEN<br />
ANFANG BUCHSTABEN<br />
5883 DA FE 20 JP C. 20FE 'KEIN BUCHSTA8E +<br />
'SYNTAX - FEHLER<br />
22707<br />
22708<br />
22709<br />
22710<br />
22711<br />
22661 22712<br />
22662 5886 FE 5B CP 5B ENDE BUCHSTABEN 22713<br />
22663<br />
58B4<br />
58B5<br />
58B6<br />
58B7<br />
19<br />
EB<br />
05<br />
21 FB FF<br />
ADD HL<br />
EX DE.<br />
PUSH O<br />
LD HL.<br />
22714 58BA 19 ADD HL<br />
22664 5888 02 FE 20 JP NC. 20FE IKEIN BUCHSTABE +<br />
22715 58BB D1<br />
POP DE<br />
22665<br />
I SYNTAX - FEHLER<br />
22716 58BC 3A 65 6A LD A. (<br />
22666 22717<br />
22667<br />
22668<br />
588B 11 OF 11 LD OE. 110F ZEIGER AUF ZWISCHENSPEICHER 22718<br />
22719 58BF B8 CP 8<br />
22669 22720 58CO C8 RET Z<br />
22670 588E 06 00 LD B. 00 • ZÄHLER ANZAHL ZEICHEN 22721 58Cl C3 FB 20 JP 20F<br />
22671 22722<br />
22672 5890 13 INC OE ZEIGER AUF ZWISCHENSPEICHER 22723<br />
22673 5891 7E<br />
LD A. (HU<br />
NÄCHSTES PROGRAMMBYTE HOLEN<br />
22674 5892 CD C7 3A CALL 3AC7<br />
'UNTERSUCHEN. OB ACCU<br />
Länge der Zeichenkette (HL<br />
22675<br />
'GLEICH VARIABLENNAME<br />
22676<br />
'ZEICHEN IST 22724 58C4 06 FF LD B.<br />
22677 5895 38 OB JR C. OB + 58A2H KEIN VARIABLENNAMENZEICHEN 22725<br />
22678<br />
22726 58C6 04 INC B<br />
22679 5897<br />
22680 5898<br />
22681 5899<br />
22682 589A<br />
12<br />
04<br />
78<br />
FE 03<br />
LD (OE). A<br />
INC B<br />
LD A.8<br />
CP 03<br />
ZEICHEN MERKEN<br />
ZÄHLER ANZAHL ZEICHEN<br />
ZÄHLER HOLEN<br />
LÄNGE MAXIMAL<br />
22683 22731 58CB FE 22 CP 22<br />
589C 38 01 JR C. 01 + 589FH NOCH OK<br />
22684<br />
22685<br />
22686<br />
22727<br />
22728<br />
22729<br />
22730<br />
22732<br />
22733<br />
22734<br />
589E 05<br />
DEC B<br />
ZÄHLER MINUS EINS<br />
22687 589F 23 INC HL ZEIGER AUF PROGRAMMTEXT 22735<br />
22688 58AO 18 EE JR EE + 5890H IWEITERE ZEICHEN<br />
22689 I UNTERSUCHEN<br />
58C7<br />
58C8<br />
58C9<br />
58CA<br />
58CD<br />
58CE<br />
7E<br />
87<br />
C8<br />
23<br />
C8<br />
18 F6<br />
LD A.<br />
OR A<br />
RET Z<br />
INC HL<br />
RET Z<br />
JR F6<br />
String mit Länge in B von<br />
22690 58A2 11 OF 11 LD DE. 110F 'ZEIGER AUF SPEICHER 22736 5800 78 LD A:B<br />
'MIT VARIABLENNAMEN<br />
22691<br />
22692<br />
22693<br />
22694<br />
22695<br />
22696<br />
22697<br />
22698<br />
22699<br />
22700<br />
58A5<br />
58A6<br />
58A7<br />
58A8<br />
58AA<br />
58AC<br />
58AD<br />
EB<br />
70<br />
EB<br />
OE 05<br />
FE<br />
CO<br />
OE<br />
24<br />
EX<br />
LD<br />
EX<br />
LD<br />
DE.HL<br />
(HU.B<br />
DE.HL<br />
C. 05<br />
CP 24<br />
RET NZ<br />
LD C. 03<br />
LÄNGE VOR NAME EINTRAGEN<br />
CODE REAL- VARIA8LE<br />
$ (Kennung String)<br />
KEINE STRINGVARIABLE<br />
CODE STRING-VARIABLE<br />
22701<br />
03<br />
22702 22748<br />
22703 58AF 23<br />
INC HL PROGRAM<strong>MZ</strong>EIGER 22749<br />
22704 58BO C9<br />
RET<br />
22750<br />
22737 58D1<br />
22738 5802<br />
22739 5803<br />
22740 58D4<br />
22741 5805<br />
22742 58D6<br />
22743 5807<br />
22744<br />
22745<br />
22746<br />
22747<br />
5809<br />
58DA<br />
58DD<br />
58DE<br />
B7<br />
C8<br />
1A<br />
77<br />
13<br />
23<br />
10 FA<br />
EB<br />
CD DF 58<br />
EB<br />
C9<br />
OR A<br />
RET Z<br />
LD A.<br />
LD (H<br />
INC OE<br />
INC HL<br />
DJNZ F<br />
EX DE<br />
CALL 5<br />
EX DE<br />
RET
SEITE 396<br />
BASIC 1Z-013B V1_0A<br />
überprüfen. ob Adresse in OE mit Stack collidiert<br />
22751 58DF<br />
22752 58EO<br />
22753<br />
22754<br />
22755 58E3<br />
22756 58E4<br />
22757 58E5<br />
22758 58E6<br />
22759<br />
22760 58E8<br />
22761 58E9<br />
22762 58EA<br />
22763<br />
22764<br />
E5<br />
21<br />
39<br />
25<br />
25<br />
ED<br />
E1<br />
DO<br />
C3<br />
00<br />
52<br />
B9<br />
00<br />
20<br />
PUSH HL<br />
LD HL. 0000<br />
ADD HL.SP<br />
DEC H<br />
DEC H<br />
SBC HL.DE<br />
POP HL<br />
RET NC<br />
JP 20B9<br />
REGISTER RETTEN<br />
'STACKPOINTER HOLEN<br />
•• VORGABE FüR ARBEITS<br />
• BEREICH<br />
ADRESSE üBERPRüFEN<br />
GERETTETES REGISTER HOLEN<br />
ADRESSE IST OK<br />
• FEHLER 6<br />
'SPEICHER ZU KLEIN<br />
Dimensionierung bereitstellen und Variable dimensionieren<br />
22765 58ED<br />
22766<br />
22767<br />
22768<br />
22769 58F1<br />
22770 58F2<br />
22771<br />
ED<br />
D5<br />
18<br />
5B<br />
08<br />
B9 6A LD DE. (6AB9)<br />
PUSH DE<br />
JR 08 ~ 58FCH<br />
• ZEIGER AUF ANFANG<br />
I RECHENSPE I CHER<br />
ZEIGER AUF RECHENSPEICHER<br />
EINSPRUNG IN ROUTINE<br />
Wert dimensionierte Variable bereitstellen<br />
22772 58F4<br />
22773 58F5<br />
22774<br />
22775<br />
22776 58F8<br />
22777 58F9<br />
22778<br />
22779<br />
22780 58FC<br />
22781<br />
22782 58FE<br />
22783 58FF<br />
22784 5900<br />
22785 5901<br />
22786 5902<br />
22787<br />
22788<br />
22789 5905<br />
22790<br />
22791<br />
22792 5908<br />
22793 5909<br />
22794 590A<br />
22795 590B<br />
22796 590C<br />
22797 590D<br />
22798 590E<br />
22799<br />
22800<br />
22801 5911<br />
22802 5912<br />
AF<br />
32<br />
23<br />
22<br />
06<br />
09<br />
E1<br />
E5<br />
E5<br />
2A<br />
11<br />
E5<br />
1A<br />
77<br />
13<br />
23<br />
47<br />
CD<br />
Dl<br />
22<br />
41<br />
3D<br />
00<br />
D3<br />
OF<br />
DO<br />
D3<br />
5B<br />
5B<br />
38<br />
11<br />
58<br />
38<br />
XOR A<br />
LD (5B41>. A<br />
INC HL<br />
LO (5B3D).HL<br />
LD B. 00<br />
EXX<br />
POP HL<br />
PUSH HL<br />
PUSH HL<br />
LD HL. (38D3)<br />
LD DE. 110F<br />
PUSH HL<br />
LD A. .A<br />
INC OE<br />
INC HL<br />
LD B.A<br />
CALL 58DO<br />
POP DE<br />
LD (38D3).HL<br />
CODE AUFRUF<br />
FLAG DIM - AUFRUF<br />
Klammer auf üBERSPRINGEN<br />
PROGRAM<strong>MZ</strong>EIGER MERKEN<br />
ZÄHLER DIMENSIONEN<br />
• ZEIGER AUF RECHENSPEICHER<br />
•<br />
; • ZEIGER AUF<br />
ISTRINGARBEITSBEREICH<br />
• ZEIGER AUF SPEICHER<br />
IMIT VARIABLENNAMEN<br />
; ZEIGER FüR VARIABLENNAMEN<br />
; I LÄNGE VARIABLENNAME NACH<br />
ISTRINGARBEITSBEREICH<br />
ZEIGER AUF NAMEN<br />
ZEIGER AUF ARBEITSBEREICH<br />
LÄNGE NAME<br />
• IVARIABLENNAMEN NACH<br />
ISTRINGARBEITSBEREICH<br />
I üBERTRAGEN<br />
ZEIGER AUF VARIABLENNAMEN<br />
I ZEIGER AUF<br />
BASIC 1Z<br />
22803<br />
22804<br />
22805<br />
22806<br />
22807<br />
22808<br />
22809<br />
22810<br />
22811<br />
22812<br />
22813<br />
22814<br />
22815<br />
22816<br />
22817<br />
22818<br />
22819<br />
22820<br />
5915<br />
5918<br />
5919<br />
591A<br />
591C<br />
5910<br />
591E<br />
591F<br />
5920<br />
5921<br />
5922<br />
2A<br />
EB<br />
B7<br />
ED<br />
E3<br />
E5<br />
D9<br />
Dl<br />
D5<br />
C5<br />
ED<br />
B5<br />
52<br />
4B<br />
6A<br />
3D 5B<br />
LO HL<br />
EX DE<br />
OR A<br />
SBC H<br />
EX (S<br />
PUSH<br />
EXX<br />
POP D<br />
PUSH<br />
PUSH<br />
LD BC<br />
22821<br />
22822 5926 3A 41 5B LD A.<br />
22823<br />
22824<br />
22825<br />
22826<br />
22827<br />
22828<br />
22829<br />
5929<br />
592A<br />
592B<br />
C5<br />
F5<br />
ED 4B 26 6A<br />
PUSH<br />
PUSH<br />
LO BC<br />
22830<br />
22831 592F C5 PUSH<br />
22832 5930 CD 5A 40 CALL<br />
22833<br />
22834<br />
22835 5933 CB 7A BIT 7<br />
22836<br />
C2 B9 20 JP NZ<br />
22837 5935<br />
22838<br />
22839<br />
22840 5938<br />
22841 5939<br />
22842 593A<br />
22843<br />
22844<br />
22845<br />
22846 593E<br />
22847 593F<br />
22848<br />
22849<br />
22850 5942<br />
22851 5943<br />
22852<br />
22853<br />
22854<br />
22855 5947<br />
22856 5948<br />
22857 5949<br />
22858<br />
22859 594B<br />
22860<br />
22861 594D<br />
22862<br />
22863 594F<br />
22864<br />
08<br />
Cl<br />
ED<br />
Fl<br />
32<br />
Cl<br />
ED<br />
08<br />
23<br />
FE<br />
28<br />
FE<br />
C2<br />
43<br />
41<br />
43<br />
29<br />
1C<br />
2C<br />
FE<br />
26<br />
5B<br />
3D<br />
20<br />
6A<br />
5B<br />
EX AF<br />
POP B<br />
LD (6<br />
POP A<br />
LD (5<br />
POP BC<br />
LD (5B<br />
EX AF<br />
INC H<br />
CP 2<br />
JR Z.<br />
CP 2C<br />
JP NZ<br />
•I
SEITE 398<br />
BASIC 1Z-013B V1.0A<br />
22865<br />
22866<br />
22867<br />
22868<br />
22869<br />
22870<br />
22871<br />
22872<br />
22873<br />
22874<br />
22875<br />
22876<br />
22877<br />
22878<br />
22879<br />
22880<br />
22881<br />
22882<br />
22883<br />
22884<br />
22885<br />
22886<br />
22887<br />
22888<br />
5952<br />
5953<br />
5954<br />
5955<br />
5957<br />
5959<br />
Cl<br />
04<br />
78<br />
FE<br />
38<br />
3E<br />
04<br />
05<br />
03<br />
POP BC<br />
INC B<br />
LD A.B<br />
CP 04<br />
JR C. 05<br />
LD A. 03<br />
~ 595EH<br />
ANZAHL DIMENSIONEN<br />
PLUS EINS<br />
ANZAHL HOLEN<br />
MAXIMALE ANZAHL<br />
NOCH OK<br />
FEHLER 3 DATENFEHLER<br />
5958 C3 08 21 JP 2108 FEHLER BEHANDELN<br />
595E<br />
595F<br />
5960<br />
5961<br />
5962<br />
5963<br />
5964<br />
5965<br />
5966<br />
5967<br />
09<br />
E1<br />
01<br />
D9<br />
05<br />
D9<br />
D5<br />
E5<br />
D9<br />
18 B6<br />
EXX<br />
POP HL<br />
POP OE<br />
EXX<br />
PUSH OE<br />
EXX<br />
PUSH DE<br />
PUSH HL<br />
EXX<br />
JR B6 -+ 591FH<br />
ZEIGER FüR ERGEBNIS<br />
OFF SET AAF VARIABLENNAMEN<br />
INDEX / DIMENSION<br />
OFFSET AUF VARIA8LENNAMEN<br />
ZEIGER FüR ERGEBNIS<br />
INÄCHSTEN INDEX/DIMENSION<br />
I BERE I TSTELLEN<br />
22889 5969<br />
22890 596A<br />
22891 5968<br />
22892 596C<br />
22893 596D<br />
22894 596E<br />
22895 596F<br />
22896 5970<br />
22897 5971<br />
22898 5972<br />
22899<br />
22900<br />
22901 5975<br />
22902 5976<br />
22903 5977<br />
22904 5978<br />
22905<br />
22906<br />
22907 597B<br />
22908 597C<br />
22909 5970<br />
22910 597E<br />
22911 597F<br />
22912<br />
22913 5981<br />
22914 5982<br />
22915<br />
22916 5984<br />
22917<br />
22918<br />
22919 5987<br />
22920<br />
22921 5989<br />
22922<br />
22923<br />
22~24 598C<br />
Cl<br />
D9<br />
E1<br />
Dl<br />
D9<br />
04<br />
D5<br />
E5<br />
D9<br />
2A<br />
19<br />
46<br />
04<br />
11<br />
7E<br />
12<br />
13<br />
23<br />
10<br />
D9<br />
CB<br />
CD<br />
CB<br />
D2<br />
78<br />
B5<br />
OF<br />
FA<br />
F9<br />
06<br />
B9<br />
F3<br />
6A<br />
11<br />
5C<br />
59<br />
POP BC<br />
EXX<br />
POP HL<br />
POP DE<br />
EXX<br />
INC B<br />
PUSH DE<br />
PUSH HL<br />
EXX<br />
LD HL, (6AB5)<br />
ADD HL,DE<br />
LD B, (HU<br />
INC B<br />
LD OE, 110F<br />
LD A, (HU<br />
LO (OE) ,A<br />
INC DE<br />
INC HL<br />
DJNZ FA -+ 597BH<br />
EXX<br />
SET 7,C<br />
CALL 5C06<br />
RES 7,C<br />
JP NC, 59F3<br />
LD A,B<br />
;<br />
•<br />
ANZAHL DIMENSIONEN<br />
ZEIGER FüR ERGEBNIS<br />
OFFSET AUF VARIABLENNAMEN<br />
ANZAHL DIMENSIONEN PLUS<br />
INDEX / DIMENSION<br />
PROGRAM<strong>MZ</strong>EIGER ABLEGEN<br />
ANFANG STRINGTEXTBEREICH<br />
ZEIGER AUF VARIABLENNAMEN<br />
LÄNGE NAME HOLEN<br />
FüR LÄNGE CORRIGIEREN<br />
I ZEIGER AUF ZWISCHEN<br />
I SPEICHER FüR VARIABLEN<br />
INAMEN<br />
I LÄNGE UND VARIABLENNAMEN<br />
I NACH ZWISCHENSPEICHER<br />
I üBERTRAGEN<br />
COOE INDIZIERTE VARIABLE<br />
IVARIABLE IN VORHANDENEN<br />
I VARIABLEN SUCHEN<br />
VARIABLE NICHT GEFUNDEN<br />
JETZIGE ANZAHL DIMENSIONEN<br />
22925<br />
22926<br />
22927<br />
22928<br />
22929<br />
22930<br />
22931<br />
22932<br />
22933<br />
22934<br />
22935<br />
22936<br />
22937<br />
22938<br />
22939<br />
22940<br />
22941<br />
22942<br />
22943<br />
22944<br />
22945<br />
22946<br />
22947<br />
22948<br />
22949<br />
22950<br />
22951<br />
22952<br />
22953<br />
22954<br />
22955<br />
22956<br />
22957<br />
22958<br />
22959<br />
22960<br />
22961<br />
22962<br />
22963<br />
22964<br />
22965<br />
22966<br />
22967<br />
22968<br />
22969<br />
22970<br />
22971<br />
22972<br />
22973<br />
22974<br />
22975<br />
22976<br />
22977<br />
22978<br />
22979<br />
22980<br />
22981<br />
22982<br />
22983<br />
22984<br />
22985<br />
22986<br />
598D<br />
598E<br />
5991<br />
5992<br />
5993<br />
5994<br />
5997<br />
5998<br />
599B<br />
599C<br />
599D<br />
599E<br />
599F<br />
59AO<br />
59Al<br />
59A2<br />
59A3<br />
59A4<br />
59A5<br />
59A8<br />
59A9<br />
59AA<br />
59AD<br />
59AE<br />
59AF<br />
59BO<br />
59B2<br />
59B5<br />
59B6<br />
59B7<br />
59BA<br />
59BB<br />
59BC<br />
59BE<br />
59BF<br />
59CO<br />
59Cl<br />
59C2<br />
59C4<br />
59C6<br />
59C8<br />
59C9<br />
59CA<br />
BASIC 1Z<br />
BE<br />
C2<br />
CE<br />
20<br />
CP (H<br />
JP NZ<br />
23<br />
EB<br />
El<br />
22<br />
26<br />
6A<br />
INC HL<br />
EX DE<br />
POP HL<br />
LD (6A<br />
D9<br />
21 00 00<br />
EXX<br />
LD HL<br />
09<br />
EB<br />
5E<br />
23<br />
56<br />
23<br />
E3<br />
D5<br />
D9<br />
Dl<br />
CD 13 5B<br />
EXX<br />
EX DE<br />
LD E,<br />
INC HL<br />
LD D.<br />
INC HL<br />
EX (SP<br />
PUSH D<br />
EXX<br />
POP DE<br />
CALL 5<br />
D9<br />
EB<br />
CD<br />
E7<br />
59<br />
EXX<br />
EX OE<br />
CALL 5<br />
EB<br />
E5<br />
B7<br />
ED<br />
52<br />
EX DE<br />
PUSH H<br />
OR A<br />
SBC H<br />
D2 Dl 20 JP NC<br />
D9<br />
01<br />
CD<br />
OF<br />
SB<br />
EXX<br />
POP DE<br />
CALL 5<br />
D9<br />
El<br />
10<br />
DF<br />
EXX<br />
POP HL<br />
OJNZ D<br />
ES<br />
D9<br />
79<br />
50<br />
CB<br />
77<br />
PUSH H<br />
EXX<br />
LO A,C<br />
LD D,B<br />
BIT 6,<br />
20<br />
14<br />
JR NZ<br />
E6<br />
OF<br />
AND A<br />
5F<br />
F5<br />
CD<br />
13<br />
SB<br />
LD E,A<br />
PUSH A<br />
CALL 5<br />
;<br />
I<br />
I
SEITE 400<br />
BASIC 1Z-013B V1_0A<br />
22987<br />
22988<br />
22989 59CD E5 PUSH HL OFFSET AUF WERT<br />
22990 59CE D9 EXX<br />
22991 59CF Cl POP BC OFFSET AUF WERT<br />
22992 59DO F1 POP AF VARIABLENTYP<br />
22993 59D1 E1 POP HL ZEIGER AUF FELD<br />
22994 59D2 09 ADD HL,BC ZEIGER AUF WERT<br />
22995 59D3 4D LD C,L I NACH BC<br />
22996 59D4 44 LD B,H I<br />
22997 59D5 2A 26 6A LD HL, (6A26) PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
22998<br />
22999<br />
23000 59D8 D1 POP DE ZEIGER FüR ERGEBNIS<br />
23001 59D9 C9 RET<br />
23002 59DA 5E LD E, (HU I LÄNGE FN HOLEN<br />
23003 59DB 23 INC HL I<br />
23004 59DC 56 LD D, (HU I<br />
23005 59DD E1 POP HL ZEIGER AUF FELD<br />
23006 59DE 4D LD C,L I NACH BC<br />
23007 59DF 44 LD B.H I<br />
23008 59EO 73 LD (HU,E<br />
23009 59E1 23 INC HL<br />
23010 59E2 72 LD (HU,D<br />
23011 59E3 E6 OF AND A, OF TYP MASKIEREN<br />
23012<br />
23013 59E5 18 EE JR EE ~ 59D5H PROGRAM<strong>MZ</strong>EIGER HOLEN<br />
23014<br />
Wert in DE entsprechend OPTION BASE corrigieren<br />
23015 59E7 3A 42 5B LD A, (5B42) OPTION - BASE<br />
23016<br />
23017<br />
23018 59EA B7 oR A GLEICH NULL ?<br />
23019 59EB C8 RET Z INDEX STIMMT<br />
23020 59EC 7A LD A,D I INDEX GLEICH NULL ?<br />
23021 59ED B3 OR E I<br />
23022 59EE CA Dl 20 JP Z, 20D1 IJA + DATENFEHLER<br />
23023 I FLAG DIM/AUFRUF<br />
23029<br />
23030<br />
23031 59F7 B7 OR A AUFRUF ?<br />
23032 59F8 CA D1 20 JP Z. 20D1 ; IJA + FEHLER 3<br />
23033 I DATENFEHLER<br />
23034<br />
23035 59FB EI POP HL IPROGRAM<strong>MZ</strong>EIGER MERKEN<br />
23036 59FC 22 26 6A LD (6A26),HL I<br />
23037<br />
23038<br />
23039 59FF<br />
23040 5AOO<br />
23041<br />
23042<br />
23043<br />
23044 5A04<br />
23045 5A05<br />
23046<br />
23047 5A07<br />
23048 5A08<br />
23049 5A09<br />
23050 5AOA<br />
23051 5AOB<br />
23052<br />
23053<br />
23054 5AOE<br />
23055 5AOF<br />
230ti6 5AI0<br />
23057 5A11<br />
23058<br />
23059<br />
23060 5A14<br />
23061 5A15<br />
23062 5A16<br />
23063<br />
23064<br />
23065 5A19<br />
23066 5A1A<br />
23067<br />
23068 5A1C<br />
23069 5AID<br />
23070 5A1E<br />
23071<br />
23072<br />
23073 5A21<br />
23074 5A22<br />
23075<br />
23076 5A24<br />
23077<br />
23078<br />
23079 5A27<br />
23080 5A28<br />
23081<br />
23082<br />
23083 5A2B<br />
23084 5A2C<br />
23085 5A2D<br />
23086 5A2E<br />
23087 5A2F<br />
23088 5A30<br />
23089 5A31<br />
23090 5A32<br />
23091 5A33<br />
23092<br />
23093<br />
23094 5A36<br />
23095 5A37<br />
23096<br />
23097 5A39<br />
23098 5A3A<br />
23099<br />
23100 5A3C<br />
BASIC<br />
D9<br />
ED 5B D3 38<br />
68<br />
26 00<br />
29<br />
19<br />
EB<br />
13<br />
CD DF 58<br />
70<br />
23<br />
D9<br />
21 01 00<br />
D9<br />
Dl<br />
3A 41 5B<br />
B7<br />
20 OC<br />
E5<br />
EB<br />
11 OA 00<br />
37<br />
ED 52<br />
D2 Dl 20<br />
EI<br />
CD E7 59<br />
13<br />
73<br />
23<br />
72<br />
23<br />
D5<br />
D9<br />
Dl<br />
CD 13 5B<br />
D9<br />
10 DC<br />
59<br />
16 00<br />
C5<br />
1Z<br />
EXX <br />
LD DE,<br />
LD L.B<br />
LD H,<br />
ADD HL<br />
ADD HL<br />
EX DE,H<br />
INC DE<br />
CALL 58<br />
LD (HU<br />
INC HL<br />
EXX <br />
LD HL,<br />
EXX <br />
POP DE<br />
LD A, (<br />
OR A <br />
JR NZ,<br />
PUSH H<br />
EX DE,H<br />
LD DE,<br />
SCF <br />
SBC HL<br />
JP NC,<br />
POP HL<br />
CALL 5<br />
INC DE<br />
LD (HU<br />
INC HL<br />
LD (HU<br />
INC HL<br />
PUSH D<br />
EXX <br />
POP DE<br />
CALL 5<br />
EXX <br />
DJNZ D<br />
LD E,C<br />
LD D,<br />
PUSH B
SEITE 402<br />
BASIC 1Z-013B V1.0A BASIC 1Z<br />
23101 5A3D<br />
23102 5A3E<br />
23103 5A3F<br />
23104 5A40<br />
23105<br />
23106<br />
23107<br />
23108<br />
23109<br />
23110<br />
23111<br />
23112<br />
23113<br />
23114<br />
23115<br />
23116<br />
23117<br />
23118<br />
23119<br />
23120<br />
5A43<br />
5A44<br />
5A45<br />
5A46<br />
5A47<br />
5A48<br />
5A4B<br />
5A4C<br />
5A4E<br />
5A4F<br />
D5<br />
D9<br />
Dl<br />
CD<br />
E5<br />
D9<br />
Cl<br />
C5<br />
EB<br />
2A<br />
6E<br />
26<br />
29<br />
3A<br />
13 SB<br />
D3 38<br />
00<br />
OF 11<br />
PUSH<br />
EXX<br />
POP DE<br />
CALL 5B13<br />
DE TYP-LANGE 23163<br />
23164 5A7C Cl POP BC<br />
PUSH HL<br />
EXX<br />
POP BC<br />
PUSH BC<br />
EX DE,HL<br />
LD HL, (38D3)<br />
LD L, (HU<br />
LD H, 00<br />
ADD HL,HL<br />
LD A, (110F)<br />
TYP-LANGE HOLEN<br />
• HL = HL * DE<br />
• (SPEICHERPLATZ FüR FELD<br />
• ERRECHNEN)<br />
GESAMTLANGE<br />
GESAMTLANGE<br />
•<br />
'ZEIGER AUF STRINGARBEITS<br />
I BEREICH<br />
ANZAHL DIMENSIONEN HOLEN<br />
MAL ZWEI<br />
LANGE FELDNAME<br />
23121 23183<br />
23122 23123<br />
23124 5A52 5A54 C6 85<br />
05<br />
ADD A, 05<br />
ADD A.L<br />
PLUS STAMMDATENLÄNGE<br />
PLUS LÄNGE FüR DIMENSIONEN<br />
23 184<br />
23 185<br />
23186<br />
23125 5A55 6F<br />
LD L,A<br />
ERGEBN I S MER~:EN<br />
23 187<br />
23126 5A56 3E 00<br />
LD A, 00<br />
• EVENTUELLEN üBERTRAG<br />
23188<br />
23127<br />
• CORRIGIEREN<br />
23128<br />
23129<br />
23130<br />
23131<br />
231 3 2<br />
23133<br />
23134<br />
23135<br />
23 13 6<br />
23137<br />
23138<br />
5A58<br />
5A59<br />
5A5A<br />
5A5C<br />
5A5D<br />
5A5F<br />
5A60<br />
5A61<br />
8C<br />
67<br />
38<br />
09<br />
38<br />
E5<br />
19<br />
DA<br />
05<br />
02<br />
B9 20<br />
ADC A,H<br />
LD H,A<br />
JR C, 05 ~<br />
ADD HL,BC<br />
JR C, 02 ~<br />
PUSH HL<br />
ADD HL,DE<br />
JP C. 20B9<br />
23139<br />
23140 5A64 EB EX DE,HL<br />
23141 5A65 CD DF 58 CALL 58DF<br />
23142<br />
23143<br />
23144<br />
23145<br />
23146<br />
23147<br />
23148<br />
23149<br />
23150<br />
23151<br />
23152<br />
23153<br />
5A68<br />
5A69<br />
5A6A<br />
5A6B<br />
ES<br />
D9<br />
E1<br />
ED<br />
4B<br />
B5 6A<br />
PUSH HL<br />
EXX<br />
POP HL<br />
LD BC, (6AB5)<br />
5A61H<br />
5A61H<br />
•<br />
• üBERLAUF ~<br />
• SPEICHER ZU KLEIN<br />
PLUS LANGE FüR FELDDATEN<br />
I üBERLAUF ~<br />
'SPEICHER ZU KLEIN<br />
'FEHLER 6<br />
'SPEICHER ZU KLEIN<br />
'üBEPRüFEN, OB ADRESSE<br />
• IN DE MIT STACK KOLLIDIERT<br />
ANFANG STRINTEXTBEREICH<br />
23165 5A7D<br />
2 3166 5A7E<br />
23167 5A7F<br />
23168 5A80<br />
23 169 5A81<br />
23170 5A82<br />
23171 5A83<br />
23172 5A84<br />
23173<br />
23174 5A86<br />
23 175 5A87<br />
23176 5A88<br />
23177 5A89<br />
23 178 5A8A<br />
23 179 5A8B<br />
23180 5A8C<br />
23181 5A8D<br />
23 182<br />
23189<br />
23190<br />
23 191<br />
2 3192<br />
23 193<br />
23 194<br />
23 195<br />
23196<br />
23 197<br />
23198<br />
231 99<br />
23200<br />
23201<br />
23 202<br />
5A90<br />
5A91<br />
5A92<br />
5A95<br />
5A99<br />
5A9A<br />
5A9B<br />
5A9C<br />
5A9D<br />
5A9E<br />
5AAI<br />
5AA2<br />
D5<br />
D9<br />
D1<br />
60<br />
69<br />
Cl<br />
79<br />
F6 80<br />
77<br />
23<br />
IB<br />
73<br />
23<br />
72<br />
23<br />
11 OF 11<br />
lA<br />
3C<br />
CD C5 5A<br />
5AAF 32 01 39 LD<br />
23154<br />
23155 5A73 ES PUSH HL , ABLEGEN 23217<br />
23156 5A74 D9 EXX 23218 5AB2 D9 EXX<br />
23157<br />
23158<br />
5A6F<br />
5A70<br />
5A71<br />
OB<br />
B7<br />
ED 42<br />
DEC BC<br />
OR A<br />
SBC HL,BC<br />
: CORRIGIEREN<br />
CARRY-FLAG ZURüCKSETZEN<br />
I LÄNGE GESPEICHERTE<br />
'STRINGS ERRECHNEN<br />
23159<br />
23160 5A78 Dl POP DE GESAMTE FELDLÄNGE 23 222<br />
23161<br />
23 162<br />
5A75<br />
5A76<br />
Cl<br />
ED B8<br />
POP BC<br />
LDDR<br />
LÄNGE GESPEICHERTE<br />
'STRINGTEXTBEREICH<br />
'VERSCHIEBEN<br />
5A79 CD CD 5A CALL 5ACD • ZEIGER AUF<br />
'SCHIEDENEN<br />
DIE VER<br />
BEREICHE<br />
23203<br />
23204<br />
23 205<br />
23206<br />
23207<br />
23208<br />
23209<br />
23210<br />
23 211<br />
23212<br />
23213<br />
23214<br />
23215<br />
23 216<br />
STRINGS 23219<br />
23220<br />
23221<br />
23223<br />
23224<br />
5AA3<br />
5AA4<br />
5AA5<br />
5AA6<br />
5AA7<br />
5AA8<br />
5AA9<br />
5AAA<br />
5AAC<br />
5AAD<br />
5AB3<br />
5AB4<br />
5AB7<br />
5AB8<br />
ED<br />
lA<br />
77<br />
23<br />
13<br />
87<br />
CD<br />
E5<br />
D9<br />
5B<br />
C5<br />
EI<br />
AF<br />
77<br />
23<br />
OB<br />
78<br />
BI<br />
20 F8<br />
77<br />
3E<br />
01<br />
D3 . 38<br />
5A<br />
Dl<br />
3A 41 SB<br />
B7<br />
28 04<br />
PUSH D<br />
EXX<br />
POP DE<br />
LD H,B<br />
LD L,C<br />
POP BC<br />
LD A,C<br />
OR 80<br />
LD (HU<br />
INC HL<br />
DEC DE<br />
LD (HU<br />
INC HL<br />
LD (HU<br />
INC HL<br />
LD DE,<br />
LD A,
SEITE 404 <br />
BASIC 1Z-013B V1.0A <br />
23225<br />
23226 5ABA 2A 26 6A LD HL. (6A26) PROGRAM<strong>MZ</strong>EIqER HOLEN<br />
23227<br />
23228<br />
23229 5ABD C9 RET<br />
23230 5ABE 2A 3D 5B LD HL. (5B3D) IPROGRAM<strong>MZ</strong>EIGER AUF AUFRUF!<br />
23231 I INDEX HOLEN<br />
23232<br />
23233 SAC1 OS PUSH OE ZEIGER FüR ERGEBNIS<br />
23234 5AC2 C3 FC 58 JP 58FC I INDEX AUSWERTEN UND WERT<br />
23235<br />
I VARIABLE BEREITSTELLEN<br />
23236<br />
im Accu angegebene Anzahl Bytes von (OE) nach (HL) übertragen<br />
23237 5AC5 47 LD B.A ANZAHL BYTES ZU üBERTRAGEN<br />
23238 SAC6 1A LD A. . A I<br />
23240 5AC8 13 INC DE I ZEIGER AUF NÄCHSTES BYTE<br />
23241 5AC9 23 INC HL I<br />
23 242 5ACA 10 FA DJNZ FA ~ 5AC6H WEITERE BYTES üBERTRAGEN<br />
23243 <br />
23244 SACC C9 RET <br />
Zeiger auf die verschiedenen Bereiche corrigieren<br />
23245 5ACD 2A D3 38 LD HL. (3803) I ZEIGER AUF<br />
23246 ISTRINGARBEITSBEREICH <br />
23247 <br />
23248 SADO 19 ADD HL.DE CORRIGIEREN <br />
23249 5AD1 22 03 38 LD (38D3).HL UND WIEDER MERKEN <br />
23250 <br />
23251 <br />
23252 SAD4 2A B5 6A LD HL. (6AB5) I ZEIGER AUF ANFANG <br />
23253 ISTRINGTEXTBEREICH<br />
23254 <br />
23255 5AD7 19 ADD HL.DE CORRIGIEREN <br />
23256 5AD8 22 B5 6A LD (6AB5).HL UND WIEDER MERKEN <br />
23257 <br />
23258 <br />
23259 5ADB 2A B7 6A LD HL. (6AB7) I ZEIGER AUF ANFANG <br />
23260 ISTRINGARBEITSBEREICH <br />
23261 <br />
23262 5ADE 19 ADD HL.DE CORRIGIEREN <br />
23263 5ADF 22 B7 6A LD (6AB7).HL UND WIEDER MERKEN <br />
23264 <br />
23265 <br />
23266 5AE2 2A DA 38 LD HL. (38DA) I ZEIGER AUF <br />
23267 I ANFANG TEXTSTRINGS <br />
23268 <br />
23269 SAES 19 ADD HL.DE CORRIGIEREN <br />
23270 5AE6 22 DA 38 LD (380M. HL 1 UND WIEDER MERKEN <br />
23271 <br />
23272 <br />
23273 SAE9 C9 RET <br />
BASIC 1Z-<br />
Befehl OlM<br />
23274 5AEA 3E FF LD A. F<br />
23275<br />
23276 SAEC 32 41 SB LD (SB4<br />
23277<br />
23278<br />
23279 5AEF EB EX DE.H<br />
23280 5AFO lA LD A.
SEITE 406<br />
BASIC 1Z-013B V1_0A BASIC 1Z-<br />
23326<br />
23327<br />
23328<br />
23329<br />
23330<br />
23331<br />
23332<br />
23333<br />
23334<br />
23335<br />
23336<br />
23337<br />
23338<br />
23339<br />
23340<br />
23341<br />
23342<br />
23343<br />
23344<br />
23345<br />
581E<br />
5821<br />
5B22<br />
CD<br />
Cl<br />
C9<br />
23 5B CALL 5B23<br />
POP BC<br />
RET<br />
HL HL * 256 + A * OE<br />
GERETTETES REGISTER HOLEN<br />
HL HL * 256 + A * OE mit Untersuchung auf übertrag<br />
5B23<br />
5B24<br />
5B26<br />
5828<br />
5B29<br />
582B<br />
582C<br />
5B2E<br />
5B2F<br />
B7<br />
28 OE<br />
06 08<br />
29<br />
38 OF<br />
07<br />
30 03<br />
19<br />
38 09<br />
OR A<br />
JR Z. OE ~ 5B34H<br />
LD B. 08<br />
ADO HL.HL<br />
JR C. OF ~ 5B3AH<br />
RLCA<br />
JR NC. 03 ~ 5B31H<br />
ADD HL.DE<br />
JR C. 09 ~ 5B3AH<br />
5B31 ~ 5B28H<br />
10 F5<br />
DJNZ F5 23346<br />
23347 5833 C9 RET<br />
FAKTOR GLEICH NULL ?<br />
IJA ~ NUR ALTES TEIL<br />
I ERGEBNIS MAL 256<br />
8 BIT MULTIPLIZIEREN<br />
ALTES TEILERGEBNIS * 2<br />
üBERTRAG ~ FEHLER<br />
EIN BIT NACH CARRY<br />
I NICHT GESETZT ~ STELLE<br />
I NICHT ADDIEREN<br />
ZWEITEN FAKTOR ADDIEREN<br />
üBERTRAG ~ FEHLER<br />
WEITER BIT'S MULTIPLIZIEREN<br />
23373<br />
23374<br />
23375<br />
23376<br />
23377<br />
23378<br />
23379<br />
23380<br />
23381<br />
23382<br />
23383<br />
23384<br />
23385<br />
23386<br />
23387<br />
23388<br />
23389<br />
23390<br />
23391<br />
23392<br />
23393<br />
23394<br />
23395<br />
23396<br />
23397<br />
5B4F<br />
5B50<br />
5851<br />
78<br />
81<br />
20 13<br />
LD<br />
OR<br />
JR<br />
A.B<br />
C<br />
NZ.<br />
5853 CD 17 58 CALL 58<br />
5856<br />
5857<br />
5B58<br />
5859<br />
5B5A<br />
5858<br />
5B5C<br />
5B5D<br />
585E<br />
5B5F<br />
5B60<br />
5862<br />
5863<br />
D5<br />
E5<br />
69<br />
60<br />
47<br />
4F<br />
7E<br />
12<br />
23<br />
13<br />
10<br />
El<br />
C3<br />
FA<br />
54 54<br />
PUSH OE<br />
PUSH HL<br />
LD L.C<br />
LD H.B<br />
LD B.A<br />
LD C.A<br />
LD A. (H<br />
LD
SEITE 408<br />
BASIC 1Z-013B V1.0A<br />
23431<br />
23432<br />
23433<br />
23434<br />
5887<br />
5888<br />
C5<br />
CO<br />
7E 58<br />
PUSH 8C<br />
CALL 587E<br />
ANZAHL MERKEN<br />
IVARIABLENNAME (HL) IM<br />
IZWISCHENSPEICHER BEREIT<br />
I STELLEN<br />
VARIABLENTYP<br />
23435 5B8B 79<br />
LO A,C<br />
23436 588C 01 POP OE FN - PARAMETER - TYP<br />
23437 5B80 BB<br />
CP E<br />
VERGLEICHEN<br />
23438 588E 4B<br />
LO C,E<br />
LETZTEN TYP MERKEN<br />
23439 588F 20 11 JR NZ, 11 ~ 5BA2H TYPEN NICHT GLEICH<br />
23440<br />
23441<br />
23442<br />
23443<br />
23444<br />
23445<br />
23446<br />
23447<br />
23448<br />
23449<br />
23450<br />
23451<br />
23452<br />
23453<br />
23454<br />
23455<br />
23456<br />
23457<br />
23458<br />
23459<br />
23460<br />
23 461<br />
23462<br />
23463<br />
23464<br />
23465<br />
23466<br />
23467<br />
23468<br />
23469<br />
23470<br />
23471<br />
5891<br />
5892<br />
5B93<br />
5B94<br />
5895<br />
5898<br />
5898<br />
5B9E<br />
589F<br />
58AO<br />
58A2<br />
5BA5<br />
58A7<br />
58A9<br />
58A8<br />
5BAO<br />
05<br />
48<br />
OC<br />
E5<br />
2A<br />
11<br />
CO<br />
El<br />
Cl<br />
28<br />
CO<br />
FE<br />
28<br />
FE<br />
28<br />
C3<br />
03<br />
OF<br />
2 E<br />
24<br />
14<br />
29<br />
07<br />
2C<br />
08<br />
FE<br />
38<br />
11<br />
16<br />
54<br />
20<br />
PUSH OE<br />
LO C,B<br />
INC C<br />
PUSH HL<br />
LO HL. (3803)<br />
LO OE. 110F<br />
CALL 162E<br />
POP HL<br />
POP BC<br />
JR Z. 24 ~ 5BC6H<br />
CALL 5414<br />
CP 29<br />
JR Z. 07 ~ 5BBOH<br />
CP 2C<br />
JR Z. 08 ~ 5B85H<br />
JP 20FE<br />
FN-PARAMETER-TYP<br />
ZÄHLER ANZAHL PARAMETER<br />
PLUS EINS<br />
ZEIGER AUF PARAMETER<br />
ZEIGER STRINGARBEITSBEREICH<br />
I ZEIGER AUF VARIABLENNAMEN<br />
I BE I FN-AUFRUF<br />
NAMEN VERGLEICHEN<br />
ZEIGER AUF PARAMETER<br />
FN-PARAMETER-TYP<br />
I VARIABLEN GLEICH<br />
I FN-PARAMETER<br />
IPROGRAM<strong>MZ</strong>EIGER AUF<br />
I NÄCHSTES RELEVANTES<br />
I ZEICHEN STELLEN<br />
) (Klammer zu)<br />
ENOE PARAMETERANGABE<br />
(Komma)<br />
WEITERE PARAMETER ANGEGEBEN<br />
SYNTAX - FEHLER<br />
Variablenname ist nicht FN - Parameter<br />
23472<br />
23473<br />
23474<br />
23475<br />
23476<br />
23477<br />
23478<br />
23479<br />
23480<br />
23481<br />
23482<br />
23483<br />
23484<br />
23485<br />
23486<br />
23487<br />
23488<br />
5BBO<br />
58B3<br />
58B6<br />
58B7<br />
5B88<br />
5BB9<br />
5BBA<br />
5BBB<br />
58BC<br />
5B80<br />
58BF<br />
58CO<br />
2A<br />
11<br />
7E<br />
12<br />
47<br />
23<br />
13<br />
7E<br />
12<br />
10<br />
El<br />
Dl<br />
0 3<br />
OF<br />
FA<br />
3 8<br />
11<br />
LO HL. (3803)<br />
LO OE. 110F<br />
LO A. (HU<br />
LO <br />
LO
SEITE 410 <br />
BASIC 1Z-013B V1_0A <br />
23547 5BFB 22 83 5D LD (5D83).HL I ZEIGER AUF PARARMETER<br />
23548 I DER AKTUELLEN FUNKTION<br />
23549<br />
23550 5BFE El POP HL PROGRAM<strong>MZ</strong>EIGER<br />
23551 5BFF C3 14 54 JP 5414 IPROGRAM<strong>MZ</strong>EIGER AUF<br />
23552 I NÄCHSTES RELEVANTES<br />
23553 I ZEICHEN STELLEN<br />
23554 5C02 D5 PUSH DE ZEIGER FüR ERGEBNIS<br />
23555 5C03 C3 28 58 JP 5828 I ZEIGER AUF WERT VARIABLE<br />
23556 I NACH VARIABLENNAMEN (HL)<br />
23557 I BERE I TSTELLEN<br />
Va~iablennamen • Feldnamen oder Funkionsnamen in vorhandenen<br />
Datensätzen suchen<br />
23558 5C06 2A 83 6A LD HL. (6A83) ZEIGER AUF VARIABLE<br />
23559<br />
23560<br />
23561 5C09 11 OF 11 LD DE. 110F I ZEIGER AUF LÄNGE ZU<br />
23562 I SUCHENDER NAME<br />
23563<br />
23564 5COC 7E LD A. (HL> TYPFLAG DER VARIABLEN HOLEN<br />
23565 5COD 87 OR A BEREICHSENDE ?<br />
23566 5COE C8 RET Z VARIABLE NICHT GEFUNDEN<br />
23567 5COF FE 40 CP 40 FELD ODER FUNKTION ?<br />
23568<br />
23569 5Cll 30 27 JR NC. 27 ~ SC3AH JA<br />
23570<br />
23571 5C13 B9 CP C MIT WERTCODE VERGLEICHEN<br />
23572 5C14 20 19 JR NZ. 19 ~ 5C2FH FALSCHER TYP<br />
23573<br />
23574 5C16 23 INC HL ZEIGER AUF DATENSATZ<br />
23575 5C17 1A LD A.
SEITE 412<br />
BASIC 1Z-013B V1_0A<br />
2364S<br />
23646<br />
23647<br />
23648<br />
23649<br />
236S0<br />
236S1<br />
236S2<br />
236S3<br />
23654<br />
236S5<br />
236S6<br />
236S7<br />
23658<br />
23659<br />
23660<br />
23661<br />
23662<br />
23663<br />
23664<br />
2366S<br />
23666<br />
23667<br />
23668<br />
23669<br />
23670<br />
SCSD<br />
SCSE<br />
SCSF<br />
SC60<br />
SC61<br />
SC62<br />
SC63<br />
SC64<br />
SC67<br />
SC68<br />
5C69<br />
5C6A<br />
5C6B<br />
SC6C<br />
SC6D<br />
SC6E<br />
5C71<br />
SC73<br />
SC74<br />
SC75<br />
5C76<br />
23<br />
EB<br />
19<br />
EB<br />
01<br />
1A<br />
BE<br />
C2 4E SC<br />
C5<br />
47<br />
4F<br />
23<br />
13<br />
1A<br />
BE<br />
C2 46 5C<br />
10<br />
23<br />
Cl<br />
37<br />
C9<br />
INC HL<br />
EX DE.HL<br />
ADD HL.DE<br />
EX DE.HL<br />
POP OE<br />
LD A. <br />
JP NZ. SC4E<br />
PUSH BC<br />
LD B.A<br />
LD C.A<br />
INC HL<br />
INC DE<br />
LD A.
SEITE 414<br />
23765 5C05 IB<br />
23766 5C06 El<br />
23767 5C07 E3<br />
23768 5C08 23<br />
23769 5C09 73<br />
23770 5COA 23<br />
23771 5COS 72<br />
23772 5CO~ 23<br />
23773 5COO 11 OF<br />
23774<br />
23775<br />
23776 5CEO 1A<br />
23777 5CEl 77<br />
23778 5CE2 47<br />
23779 5CE3 13<br />
23780 5CE4 23<br />
23781 5CE5 lA<br />
2 3782 5CE6 77<br />
23783 5CE7 10 FA<br />
23784<br />
23785 5CE9 23<br />
23786 5CEA E5<br />
23787 5CEB 09<br />
23788 5CEC El<br />
23789 5CEO lA<br />
23790 5CEE 77<br />
23791 5CEF 13<br />
23792 5CFO 23<br />
23793 5CFl 10 FA<br />
23794<br />
23795 5CF3 36 00<br />
23796<br />
23797 5CF5 El<br />
23798 5CF6 C9<br />
Funkti on FN<br />
23799 5CF7 05<br />
23800 5CF8 7E<br />
23801 5CF9 CO 81<br />
23802<br />
23803<br />
23804 5CFC OD El<br />
23805<br />
23806 5CFE C5<br />
23807 5CFF CB Fl<br />
23808<br />
23 809 5D01 EO 5B<br />
23810<br />
23811<br />
23812<br />
23813 5005 22 85<br />
23814<br />
23815<br />
23816 5D08 DS<br />
23817 5009 CO 06<br />
23818<br />
23819<br />
23820 5DOC 3E OF<br />
23821<br />
23822 5DOE 02 08<br />
BASIC 1Z-013B<br />
DEC OE<br />
POP HL<br />
EX (SP), HL<br />
INC HL<br />
LD (HU ,E<br />
INC HL<br />
LD (HU ,0<br />
INC HL<br />
11 LD OE. 110F<br />
LO A,
SEITE 416 <br />
BASIC 1Z-013B V1_0A <br />
23885 5040 CO RET NZ FUNKTION HAT KEINE PARAMET.<br />
23886 504E 05 PUSH OE ZEIGER FüR ERGEBNIS MERKEN<br />
23887 504F 06 01 LO B. 01 EINE KLAMMER ZU SUCHEN<br />
23888<br />
23889 5051 C5 PUSH 8C ZÄHLER RETTEN<br />
23890 5052 CO 80 38 CALL 3880 IPROGRAM<strong>MZ</strong>EIGER (HL) AUF<br />
23891 I NÄCHSTES PROGRAMM8YTE<br />
23892 I STELLEN<br />
23893 5055 Cl POP BC PARAMETERZÄHLER HOLE~<br />
23894 5056 87 OR A ZEILENENOE ?<br />
23895 5057 CA FE 20 JP Z. 20FE JA ~ SYNTAX-FEHLER<br />
23896<br />
23897<br />
23898 5.D5A FE 3A CP 3A (Ooppelpunkt)<br />
23899<br />
23900 505C CA FE 20 JP Z. 20FE JA ~ SYNTAX - FEHLER<br />
23901<br />
23902<br />
23903 505F FE 28 CP 28 (Klammer auf)<br />
23904<br />
23905 5061 20 01 JR NZ. 01 ~ 5064H NEIN<br />
23906<br />
23907 5063 04 INC 8 ANZAHL OFFENE KLAMMERN<br />
23908 5064 FE 29 CP 29 ) (Klammer zu)<br />
23909<br />
23910 5066 20 E9 JR NZ. E9 ~ 5051H ENOE PARAMETER SUCHEN<br />
23911<br />
23912 5068 10 E7 OJNZ E7 ~ 5051H I RICHTIGE ANZAHL<br />
23913 I KLAMMER ZU SUCHEN<br />
23914 506A 23 INC HL PROGRAM<strong>MZ</strong>EIGER<br />
23915 506B CO 14 54 CALL 5414 IPROGRAM<strong>MZ</strong>EIGER AUF<br />
23916 I NÄCHSTES RELEVANTE<br />
23917 I ZEICHEN SETZEN<br />
23918 506E 01 POP OE ZEIGER FüR FUNKTION<br />
23919 506F C9 RET<br />
Syntax untersuchung auf Zahl - Wert<br />
23920 5070 FE 03 CP 03 COOE STRING - WERT ?<br />
23921<br />
23922 5072 28 06 JR Z. 06 ~ 507AH IST STRING<br />
23923<br />
23924 5074 FE 03 CP 03 COOE STRING ?<br />
23925<br />
23926 5076 CO RET NZ NICHT STRING ~ OK<br />
23927 5077 C3 F8 20 JP 20F8 FEHLER 3 OATENFEHLER<br />
23928<br />
23929<br />
Synt~xunter&uc~ting auf Ergebnis vom Typ String<br />
23930 507A 3A 65 6A LO A. (6A65) WERT - FLAB <br />
23931 <br />
23932 <br />
23933 5070 FE 03 CP 03 STRING-WERT ? <br />
23934 <br />
23935 507F C8 RET Z JA ~ OK <br />
23936 5080 C3 FB 20 JP 20FB FEHLER 3 OATENFEHLER <br />
23937 <br />
23938 <br />
BASIC 1Z-0<br />
23939 5083 00 00<br />
23940<br />
23941 5085 00 00<br />
23942<br />
(HL> Real - Wert Null eintra<br />
23943 5087 E5 PUSH HL<br />
23944 5088 06 05 LO 8. 05<br />
23945<br />
23946 508A AF XOR A<br />
23947 5088 77 LO (HU.A<br />
23948 508C 23 INC HL<br />
23949 5080 10 FC OJNZ FC<br />
23950<br />
23951 508F E1 POP HL<br />
23952 5090 C9 RET<br />
Vorzeichen des Real - Wertes<br />
23953 5091 7E LO A. (HU<br />
23954 50 Q 2 87 OR A<br />
23955 5093 C8 RET Z<br />
23956 5094 23 INC HL<br />
23957 5095 7E LO A. (HU<br />
23958 5096 EE 80 XOR 80<br />
23959<br />
23960 5D98 77 LO (HU.A<br />
23961 5099 2B OEC HL<br />
23962 509A C9 RET<br />
Syntaxuntersuchung auf Ergeb<br />
23963 509B 3A 65 6A LO A. (6A6<br />
23964<br />
23965<br />
23966 509E FE 03 CP 03<br />
?-3967<br />
23968 50AO 3E 05 LO A. 05<br />
23969<br />
23970 50A2 CO RET NZ<br />
23971 50A3 C3 FB 20 JP 20FB<br />
23972<br />
23973<br />
Funktion (Minus)<br />
23974 50A6 CO 9B 50 CALL 509B<br />
23975<br />
23976<br />
23977 50A9 4F LO C.A<br />
23978 50AA 3E 80 LO A. BO<br />
23979<br />
23980 50AC C3 89 50 JP 50B9<br />
23981<br />
23982
SEITE 418 <br />
BASIC 1Z-013B V1.0A <br />
Funktion + (plus)<br />
23983 50AF 3A 65 6A LO A, (6A65) WERT - FLAG<br />
23984<br />
23985<br />
23986 50B2 FE 03 CP 03 STRING ?<br />
23987<br />
23988 50B4 CA 07 5E JP Z, 5E07 ZWEI STRINGS ADDIEREN<br />
23989<br />
23990<br />
23991 50B7 4F LD C,A LÄNGE WERT<br />
23992 50B8 AF XOR A CODE PLUS<br />
23993 50B9 22 59 6A LO (6A59>,HL ZEIGER FüR ERGEBNIS MERKEN<br />
23994<br />
23995<br />
23996 50BC 23997 50BO 23998 50BE 05 PUSH OE ZEIGER AUF ARGUMENTE<br />
E5 PUSH HL<br />
EO 73 5C 6A LO (6A5C),SP<br />
•<br />
STACKPOINTER MERKEN<br />
23999<br />
24000<br />
24001<br />
24002 5DC2 23 INC HL I ZEIGER AUF VORZEICHEN<br />
24003 5DC3 13 INC OE I DER MANT I SSEN<br />
24004 50C4 46 LO B, (HL> I VORZEICHEN ERGEBNIS<br />
24005 5DC5 AE XOR (HL> I ERRECHNEN<br />
24006 5DC6 EB EX OE,HL<br />
24007 ~OC7 AE XOR (HL> •I<br />
24008 50C8 2B DEC HL I ZEIGER WIEDER AUF<br />
24009 5DC9 1B OEC DE • EXPONENTEN STELLEN<br />
24010 50CA EB EX OE,HL<br />
24011 50CB 07 RLCA<br />
24012 50CC 78 LO A,B VORZEICHEN ERGEBNIS<br />
24013 50CO 32 5B 6A LO (6A5B),A ; MERKEN<br />
24014<br />
24015<br />
24(116 5DDO OA C8 5E JP C, 5EC8 I I ZAHLEN VONEINANDER<br />
24017 I SUBTRAH I EREN<br />
24018<br />
24019 5003 AF XOR A ACCU AUF NULL<br />
24020 5004 BE CP (HL> EXPONENT ERSTES ARGUMENT<br />
24021 5005 CA FC 50 JP Z. 5DFC ERGEBNIS IST 2tes ARGUMENT<br />
24022<br />
24023<br />
24024 50D8 1A LO A. (OE) • EXPONENT 2tes ARGUMENT<br />
24025 5009 B7 OR A GLEICH NULL ?<br />
24026 50DA 28 04 JR Z. 04 + 5DEOH I JA +<br />
24027 IERGEBNIS IST ltms ARGUMENT<br />
24028 50De 96 SUB SP. (~A5C) • STACKPOINTER HOLEN<br />
24033<br />
24034<br />
24035<br />
24036 50E4 El POP HL • ZEIGER AUF ARGUMENTE<br />
24037 50E5 01 POP DE I HOLEN<br />
24038 50E6 FB EI INTERRUPT FREIGEBEN<br />
BASIC 1Z<br />
24039 50E7 7E LD A, (H<br />
24040 50E8 B7 OR A<br />
24041 5DE9 24042 <br />
28 OC JR Z. O<br />
24043 5DEB 3A 5B 6A LD A, (6<br />
24044 <br />
24045 <br />
24046 5DEE E6 80 AND A,<br />
24047 <br />
24048 50FO 23 INC HL<br />
24049 24050 <br />
5DF1 CB SE RES 7. (<br />
24051 50F3 B6 OR (HL><br />
24052 50F4 77 LD (HU<br />
24053 5DF5 2B DEC HL<br />
24054 5DF6 C9 RET<br />
Absolut - Betrag des Wertes<br />
24055 5DF7 23 INC HL<br />
24056 50F8 CB BE RES 7, (<br />
24057 <br />
24058 50FA 2B DEC HL<br />
24059 50FB C9 RET<br />
Zwei tes Argumen't und errech<br />
24060 50FC 24061 <br />
06 00 LO B. 0<br />
24062 5DFE 3E 05 LD A. 0<br />
24063 <br />
24064 5EOO 4F LD C.A<br />
24065 5EOl ES EX OE.HL<br />
24066 5E02 EO BO LDIR<br />
24067 <br />
24068 5E04 C3 EO 50 JP 50EO<br />
24069 <br />
24070 <br />
Zwei Srings addieren<br />
24071 5E07 46 LO S. (HL<br />
24072 5E08 lA LO A.
SEITE<br />
24089 5E19<br />
24090 5EIA<br />
24091<br />
24092<br />
24093 5EI0<br />
24094<br />
24095<br />
24096 5E20<br />
24097 5E21<br />
24098 5E22<br />
24099 5E23<br />
24100 5E24<br />
24101 5E25<br />
24102 5E26<br />
24103<br />
24104<br />
24105 5E29<br />
24106 5E2A<br />
24107 5E28<br />
24108 5E2C<br />
24109<br />
24110<br />
24111 5E2F<br />
24112 5E30<br />
24113<br />
24114<br />
24115<br />
24116 5E34<br />
24117<br />
24118<br />
24119<br />
24120 5E38<br />
24121 5E39<br />
24122 5E3A<br />
24123<br />
24124 5E3C<br />
24125 5E30<br />
24126<br />
24127<br />
24128 5E40<br />
24129 5E41<br />
24130 5E42<br />
24131 5E43<br />
24132 5E44<br />
24133 5E45<br />
24134 5E46<br />
24135 5E47<br />
24136 5E48<br />
24137 5E49<br />
Zwei<br />
24138 5E4A<br />
24139<br />
24140<br />
24141 5E4D<br />
24142<br />
24143 5E4F<br />
24144<br />
24145 SES1<br />
24146 SE52<br />
420<br />
EB<br />
2A 03<br />
CD 00<br />
E3<br />
46<br />
23<br />
5E<br />
23<br />
56<br />
2A B5<br />
19<br />
E8<br />
El<br />
CO 00<br />
79<br />
EO 58<br />
EO 4B<br />
ES<br />
B7<br />
EO 42<br />
ES<br />
22 03<br />
El<br />
77<br />
23<br />
73<br />
23<br />
72<br />
2B<br />
2B<br />
01<br />
C9<br />
Zahlen<br />
3A 6S<br />
FE 03<br />
20 34<br />
D5<br />
E5<br />
BASIC 1Z-013B<br />
EX OE.HL <br />
38 LO HL. (3803) <br />
58 CALL 5800<br />
EX (SP) .HL<br />
LO B. (HU<br />
INC HL<br />
LO E. (HU<br />
INC HL<br />
LD O. (HU<br />
6A LD HL. (6AB5)<br />
ADD HL.OE<br />
EX DE.HL<br />
POP HL<br />
58 CALL 5800<br />
LD A.C <br />
03 38 LD OE. (38D3) <br />
85 6A LD BC. (6A85)<br />
EX DE.HL<br />
OR A<br />
SBC HL.8C<br />
EX DE.HL <br />
38 LD (38D3).HL <br />
POP HL<br />
LD (HU.A<br />
INC HL<br />
LD (HU.E<br />
INC HL<br />
LD (HU.D<br />
DEC HL<br />
DEC HL<br />
POP DE<br />
RET<br />
oder Strings vergleichen<br />
6A LD A. (6A65)<br />
CP 03 =<br />
JR NZ. 34 + 5E85H<br />
PUSH OE<br />
PUSH HL<br />
V1_0A<br />
NACH DE<br />
I ZEIGER AUF<br />
ISTRINGARBEITSBEREICH<br />
ISTRING MIT LÄNGE IN B<br />
IVON (DE) NACH (HL)<br />
I üBERTRAGEN<br />
LÄNGE ZWEITER STRING<br />
IOFFSET AUF ZWEITEN STRING<br />
I HOLEN<br />
ANFANG STRINGTEXTBEREICH<br />
ZEIGER AUF STRING ERRECHNEN<br />
NACH DE<br />
ZEIGER AUF ENDE ERSTER STR.<br />
ISTRING MIT LÄNGE IN B<br />
IVON (DE) NACH (HL)<br />
I üBERTRAGEN<br />
LÄNGE NEUER STRING<br />
I ZEIGER AUF<br />
ISTRINGARBEITSBEREICH<br />
ANFANG STRINGTEXT8EREICH<br />
CARRY-FLAG ZURüCKSETZEN<br />
OFFSET AUF STRING ERRECHNEN<br />
ZEIGER ENDE STRING NACH HL<br />
I ZEIGER AUF<br />
ISTRINGAR8EITSBEREICH<br />
ZEIGER FüR ERGEBNIS<br />
NEUE LÄNGE EINTRAGEN<br />
IOFFSET AUF STRING IN<br />
10ESCRIPTOR EINTRAGEN<br />
I<br />
I ZEIGER WIEDER AUF ANFANG<br />
IDESCRIPTOR SETZEN<br />
GERETTETES REGISTER HOLEN<br />
WERT - FLAG<br />
TYP STRING ?<br />
ZAHLEN VERGLEICHEN<br />
ZEIGER AUF ZWEITEN DESCRIP.<br />
ZEIGER AUF ERSTEN DESCRIP.<br />
I<br />
BASIC 1Z<br />
24147 5E53 24148 5E54 1A LD A.
SEITE 422 <br />
BASIC 1Z-013B V1_0A <br />
24205 5E8D 7E LD A, (HL> VORZEICHEN ERSTER WERT<br />
24206 5E8E 28 DEC HL ZEIGER WIEDER AUF EXPONENT<br />
24207 5E8F 07 RLCA VORZEICHEN NACH CARRY<br />
24208 5E90 C9 RET<br />
24209 5E91 7E LD A, (HL> VORZEICHEN ERSTER WERT<br />
24210 5E92 2B DEC HL ZEIGER WIEDER AUF EXPONENT<br />
24211 5E93 07 RLCA VORZEICHEN NACH CARRY<br />
24212 5E94 30 06 JR NC, 06 ~ 5E9CH WERTE SIND POSITIV<br />
24213<br />
24214 5E96 CD 9C SE CALL 5E9C IREAL-ZAHLEN (HL) ' UND (DE)<br />
24215 lOHNE VORZEICHEN VERGLEICH.<br />
24216<br />
24217 5E99 C8 RET Z ZAHLEN GLEICH<br />
24218 5E9A 3F CCF ERGEBNIS UMKEHREN<br />
24219 5E9B C9 RET<br />
Real Zahlen (DE) und (HL) ohne Vorzeichen vergleichen<br />
24220 5E9C D5 PUSH DE<br />
I ZEIGER AUF WERTE<br />
24221 5E9D E5<br />
PUSH HL I MERI MANTISSE ERSTER WERT <br />
2423 0 5EA6 F6 80 OR 80 MSB IT SETZEN<br />
2423 1<br />
2423 2 5EA8 47 LD B,A WERT MERKEN<br />
24233 5EA9 1A LD A, <br />
24292 5EE4 38 07 JR C, 07<br />
24293<br />
24294 5EE6 FE 20 CP 20<br />
24295<br />
24296 5EE8 D2 FC 5D JP NC, 5<br />
24297<br />
24298<br />
24299 5EEB 18 07 JR 07 ~<br />
24300<br />
24301 5EED ED 44 NEG<br />
24302<br />
24303 5EEF FE 20 CP 20<br />
24304<br />
24305 5EF1 D2 EO 5D JP NC. 5<br />
24306<br />
24307<br />
24308 5EF4 08 EX AF,A<br />
24309 5EF5 38 01 JR C, 01
SEITE 424<br />
BASIC 1Z-013B<br />
24310 <br />
24311 5EF7 EB EX DE,HL <br />
24312 5EF8 08 EX AF,AF' <br />
24313 5EF9 C3 92 5F JP 5F92 <br />
24314 <br />
24315 <br />
24316 5EFC ED 7B 5C 6A LD SP, (6A5C)<br />
24317<br />
24318<br />
24319<br />
24320 5FOO FB EI ;<br />
24321 5F01 El POP HL<br />
24322 5F02 01 POP DE<br />
24323 5F03 3A 63 6A LD A, (6A63)<br />
24324<br />
24325<br />
24326 5F06 B7 OR A<br />
24327 5F07 CA F5 20 JP Z, 20F5<br />
24328<br />
24329<br />
24330 5FOA C9 RET<br />
Zahlen (DEl und CHLl addieren<br />
24331 5FOB ~ 5F17H<br />
30 OA JR NC, OA 24332<br />
24333 5FOD ED 44 NEG<br />
24334<br />
24335 5FOF FE 20 CP 20<br />
24336<br />
24337 5F11 D2 EO 5D JP NC, 5DEO<br />
24338<br />
24339<br />
24340 5F14 EB EX DE,HL<br />
24341 5F15 18 05 JR 05 ~ 5FICH<br />
24342<br />
24343 5F17 FE 20 CP 20<br />
24344<br />
24345 5F19 D2 Fe 50 JP NC, 5DFC<br />
24346<br />
24347<br />
24348 5F1C CD 52 5F CALL 5F52<br />
24349<br />
24350<br />
24351 5F1F 7C LD A,H<br />
24352 5F20 09 EXX<br />
24353 5F21 8C ADC A,H<br />
24354 5F22 09 EXX<br />
24355 5F23 67 LD H,A<br />
24356 5F24 70 LD A,L<br />
24357 5F25 09 EXX<br />
24358 5F26 80 ADC A,L ;<br />
24359 5F27 09 EXX<br />
24360 5F28 6F LD L,A<br />
24361 5F29 7A LD A,D<br />
24362 5F2A 09 EXX<br />
24363 5F2B 8A ADC A,D<br />
V1_0A<br />
ZEIGER AUF ARGUMENTE VERT.<br />
EXPONENTENDIFFERENZ HOLEN<br />
I ZAHLEN VONEINANDER<br />
I SUBTRAH I EREN<br />
STACKPOINTER HOLEN<br />
INTERRUPT FREIGEBEN<br />
I ZEIGER AUF ARGUMENTE<br />
I HOLEN<br />
FEHLER 2 üBERLAUFFEHLER<br />
2tes ARGUMENT IST GRöSSER<br />
EXPONETENTDIFFERENZ MAXIMAL<br />
ERGEBNIS 1ST 2tes ARGUMENT<br />
ZEIGER VERTAUSCHEN<br />
I MANTISSEN ANGLEICHEN<br />
IUND ZAHLEN ADDIEREN<br />
EXPONENTENDIFFEREN MAXIMAL<br />
12tes ARGUMENT ZU KLEIN ~<br />
IERGEBNIS IST Ites ARGUMENT<br />
I MANTISSEN ANGLEICHEN UND<br />
IWERTE IN REGISTER LADEN<br />
14tes (LS)BVTE MANTISSEN<br />
I ADDIEREN<br />
ERGEBNIS MERKEN<br />
13tes BVTE MANTISSEN<br />
I ADDIEREN<br />
ERGEBNIS MERKEN<br />
12tes BVTE MANTISSEN<br />
I ADDIEREN<br />
24364 5F2C 09<br />
24365 5F2D 57<br />
24366 5F2E 7B<br />
24367 5F2F D9<br />
24368 5F30 8B<br />
24369 5F31 09<br />
24370 5F32 30<br />
24371<br />
24372 5F34 IF<br />
24373 5F35 CS<br />
24374<br />
24375 5F37 CS<br />
24376<br />
24377 5F39 CB<br />
24378<br />
24379 5F3S OC<br />
24380 5F3C CA<br />
24381<br />
24382<br />
24383 5F3F 5F<br />
24384 5F40 79<br />
24385 5F41 09<br />
24386 5F42 01<br />
24387<br />
24388<br />
24389 5F45 2A<br />
24390<br />
24391<br />
24392 5F48 77<br />
24393 5F49 09<br />
24394 5F4A F3<br />
24395 5F4B F9<br />
24396 5F4C 09<br />
24397 5F4D E5<br />
24398 5F4E 05<br />
24399 5F4F C3<br />
24400<br />
24401<br />
Mantissen<br />
Werte in<br />
24402 5F52 F3<br />
24403 5F53 EO<br />
24404<br />
24405<br />
24406<br />
24407 5F57 08<br />
24408 5F58 23<br />
24409 5F59 F9<br />
24410 5F5A 09<br />
24411 5F5B 01<br />
24412 5F5C CB<br />
24413<br />
24414 5F5E EI<br />
24415 5F5F B7<br />
24416 5F60 08<br />
24417 5F61 FE<br />
24418<br />
24419 5F63 38<br />
24420<br />
BASIC<br />
1Z<br />
OB<br />
EXX<br />
LD<br />
LD<br />
EXX<br />
ADC<br />
EXX<br />
JR<br />
D,A <br />
A,E<br />
A.E<br />
NC.<br />
1A<br />
RRA<br />
RR<br />
0<br />
10<br />
RR<br />
L<br />
lC<br />
RR<br />
H<br />
FC 5E<br />
INC<br />
JP<br />
C<br />
Z. 5<br />
05 00<br />
LD<br />
LD<br />
EXX<br />
LD<br />
E.A<br />
A.C<br />
BC.<br />
59 6A<br />
LD<br />
HL. (<br />
EO 50<br />
LD<br />
ADD<br />
DI<br />
LD<br />
EXX<br />
(HU<br />
HL.<br />
SP.H<br />
PUSH HL<br />
PUSH OE<br />
JP 5DEO<br />
entsprechend Exp<br />
Register laden<br />
01<br />
73 5E 6A LD<br />
(6A<br />
EX<br />
INC<br />
LO<br />
EXX<br />
POP<br />
FB SET<br />
AF.A<br />
HL<br />
SP.H<br />
OE <br />
7,E<br />
POP HL<br />
OR A<br />
08 EX CP AF.A<br />
08<br />
OC JR C. O<br />
I<br />
I<br />
I
SEITE<br />
24421 5F65<br />
24422<br />
24423 5F67<br />
24424 5F68<br />
24425<br />
24426 5F6A<br />
24427 5F6B<br />
24428 5F6C<br />
24429 5F6D<br />
24430<br />
24431 5F6F<br />
24432<br />
24433 5F71<br />
24434 5F72<br />
24435<br />
24436 5F74<br />
24437 5F75<br />
24438 5F76<br />
24439<br />
24440 5F78<br />
24441<br />
24442 5F7A<br />
24443<br />
24444 5F7C<br />
24445<br />
24446 5F7E<br />
24447 5F7F<br />
24448 5F80<br />
24449<br />
24450 5F82<br />
24451 5F83<br />
24452 5F84<br />
24453 5F85<br />
24454 5F86<br />
24455 5F87<br />
24456 5F88<br />
24457<br />
24458 5F8A<br />
24459 5F8B<br />
24460 5F8C<br />
24461<br />
24462<br />
24463<br />
24464 5F90<br />
24465 5F91<br />
Zahl<br />
24466 5F92<br />
24467<br />
24468 5F94<br />
24469<br />
24470<br />
24471 5F97<br />
24472<br />
24473<br />
24474 5F9A<br />
24475 5F9B<br />
24476 5F9C<br />
426<br />
D6 08<br />
08<br />
CB 14<br />
65<br />
6A<br />
53<br />
1E 00<br />
18 EF<br />
B7<br />
28 OE<br />
08<br />
B7<br />
CS 1B<br />
CS 1A<br />
CS 1D<br />
CS 1C<br />
08<br />
3D<br />
20 F2<br />
D9<br />
ES<br />
4E<br />
23<br />
F9<br />
D1<br />
CS FB<br />
EI<br />
08<br />
ED 7B<br />
FB<br />
C9<br />
(DE) von<br />
FE 20<br />
D2 EO<br />
CD 52<br />
7C<br />
D9<br />
9C<br />
BASIC 1Z-013B<br />
SUB A. 08<br />
EX<br />
RL<br />
AF.AF'<br />
H<br />
LD<br />
LD<br />
LD<br />
LD<br />
H.L<br />
L.D<br />
D.E<br />
E. 00<br />
JR EF -+ 5F60H<br />
OR<br />
JR<br />
A<br />
Z. OE<br />
-+ 5F82H<br />
EX<br />
OR<br />
RR<br />
AF.AF'<br />
A<br />
E<br />
RR<br />
D<br />
RR<br />
L<br />
RR<br />
H<br />
EX<br />
DEC<br />
JR<br />
AF.AF'<br />
A<br />
NZ. F2<br />
-+ 5F74H<br />
EXX<br />
EX<br />
LD<br />
INC<br />
LD<br />
POP<br />
SET<br />
DE.HL<br />
C. (HL><br />
HL <br />
SP.HL <br />
DE <br />
7.E<br />
5E 6A<br />
POP<br />
EX<br />
LD<br />
HL ;<br />
AF.AF'<br />
SP. (6A5E)<br />
EI<br />
RET<br />
Zahl<br />
(HL) subtrahieren<br />
CP 20<br />
5D<br />
JP NC. 5DEO<br />
5F CALL 5F52<br />
LD A.H<br />
EXX<br />
SBC A.H<br />
V1_0A<br />
DIFFERENZ MINUS ACHT BIT<br />
REST DIFFERENZ RETTEN<br />
RUNDUNGSBIT NACH CARRY<br />
I MANTISSE UM ACHT BIT<br />
I (1 BYTE) SCHIEBEN<br />
üBERPRüFEN. OS ANGEGLICHEN<br />
DIFFERENZ GLEICH NULL ?<br />
MANTISSEN ANGEGLICHEN<br />
RESTDIFFERENZ RETTEN<br />
CARRY-FLAG ZURüCKSETZEN<br />
I MANTISSE UM EIN BIT<br />
I SCHIEBEN<br />
, I<br />
,<br />
RESTDIFFERENZ HOLEN<br />
MINUS EINS<br />
WEITER ANGLEICHEN<br />
ZEIGER 2tes ARGUMENT<br />
EXPONENTEN HOLEN<br />
ZEIGER AUF MANTISSE<br />
STACKPOINTER SETZEN<br />
MSBYTES MANTISSE HOLEN<br />
MSBIT SETZEN<br />
LSBYTES MANTISSE HOLEN<br />
BIT FüR RUNDUNG HOLEN<br />
STACKPOINTER CORRIGIEREN<br />
INTERRUPT FREIGEBEN<br />
EXPONENTENOIFFERENZ MAXIMAL<br />
'DIFFERENZ ZU GROSS -+<br />
'ERGEBNIS IST Ites ARGUMENT<br />
I MANTISSEN ANGLEICHEN UND<br />
IWERTE IN REGISTER LADEN<br />
14tes (LS) BYTE<br />
'SUBTRAHIEREN<br />
,<br />
BASIC 1Z-<br />
24477 5F9D D9 EXX<br />
24478 5F9E 67 LD H.A<br />
24479 5F9F 70 LD A.L<br />
24480 5FAO D9 EXX<br />
24481 5FA1 9D SBC A.L<br />
24482 5FA2 D9 EXX<br />
24483 5FA3 6F LD L.A<br />
24484 5FA4 7A LO A.D<br />
24485 5FA5 D9 EXX<br />
24486 5FA6 9A SBC A.D<br />
24487 5FA7 D9 EXX<br />
24488 5FA8 57 LD D.A<br />
24489 5FA9 7B LD A.E<br />
24490 5FAA 09 EXX<br />
24491 5FAB 9B SBC A.E<br />
24492 5FAC D9 EXX<br />
24493 5FAD B7 OR A<br />
24494 5FAE 28 16 JR Z. 1<br />
24495<br />
24496 5FBO CB 7F BIT 7.A<br />
24497<br />
24498 5FB2 20 OE JR NZ.<br />
24499<br />
24500 5FB4 CB 14 RL H<br />
24501<br />
24502 5FB6 CB 15 RL L<br />
24503<br />
24504 5FB8 CB 12 RL D<br />
24505<br />
24506 5FBA 17 RLA<br />
24507 5FBB OD OEC C<br />
24508 5FBC C2 BO 5F JP NZ.<br />
24509<br />
24510<br />
24511 5FBF C3 CO 5E JP 5ECO<br />
24512<br />
24513<br />
24514 5FC2 5F LD E.A<br />
24515 5FC3 C3 3F 5F JP 5F3F<br />
24516<br />
24517<br />
Ergebnis für internes Forma<br />
24518<br />
24519<br />
24520<br />
24521<br />
24522<br />
24523<br />
24524<br />
24525<br />
24526<br />
24527<br />
24528<br />
24529<br />
24530<br />
24531<br />
24532<br />
5FC6 79 LD A.C<br />
5FC7 D6 08 SUB A.<br />
5FC9 4F LD C.A<br />
5FCA 7A LD A.D<br />
5FCB 55 LD D.L<br />
5FCC 6C LD L.H<br />
5FCD 26 00 LD H. 0<br />
5FCF 28 02 JR Z. 0<br />
SFD1 30 DA JR NC.<br />
5FD3 C3 CO 5E JP SECO<br />
I<br />
I<br />
I<br />
I
SEITE 428<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
24533<br />
24587 6008 C8 FA<br />
SET 7.D<br />
24588<br />
Vorzeichen Ergebnis für Division oder Multiplikation errechnen<br />
24534 5FD6 4F LO C.A LÄNGE ZAHL<br />
24535 5FD7 23 INC HL I ZEIGER AUF MANTISSEN<br />
24536 5FD8 13 INC DE I STELLEN<br />
24537 5FD9 1A LD A. IMANTISSE Iter WERT<br />
24539 5FD8 32 58 6A LD (6A5B).A VORZEICHEN ERGEBNIS<br />
24540<br />
24541<br />
24542 5FDE 28 DEC HL • ZEIGER WIEDER AUF<br />
24543 5FDF 18 DEC DE I EXPONENTEN STELLEN<br />
24544 5FEO C9 RET<br />
*<br />
Funktion (Multiplikation)<br />
24589 600D 23 INC HL<br />
24590 600E 5E LO E. (H<br />
24591 600F 23 INC HL<br />
24592 6010 E5 PUSH HL<br />
24593 6011 67 LD H.A<br />
24594 6012 6F LD L.A<br />
24595 6013 D9 EXX<br />
24596 6014 El POP HL<br />
24597 6015 56 LD D. (H<br />
24598 6016 23 INC HL<br />
24599 6017 5E LD E. (H<br />
24600 6018 47 LD 8.A<br />
24601 6019 4F LD C.A<br />
24602 601A 67 LD H.A<br />
24603 6018 6F LO L.A<br />
24604 601C D9 EXX<br />
24605 601D DD 7E 00 LD A. EXPONENT Ites ARGUMENT<br />
24619 6028 30 12 JR NC.<br />
24558 5FEE 87 OR A GLEICH NULL<br />
24620 <br />
24559 5FEF CA CO 5E JP Z. 5ECO lEIN FAKTOR GLEICH NULL<br />
24621 602D<br />
+<br />
08 EX AF.A<br />
24560<br />
24622 602E D9<br />
I ERGEBNIS GLEICH NULL<br />
EXX<br />
24561<br />
24623 602F 79<br />
LD A.C<br />
24562 5FF2 1A LD<br />
24624 6030 80<br />
A. PLUS EXPONENT Iter WERT<br />
24633 6039 3E 01 LD A. 01<br />
24572 5FFC 5F LD E.A<br />
24634<br />
L-8YTE EXPONENTENZÄHLER<br />
24573 5FFD 3E 00 LD A. 00 I EVENTUELLEN ü8ERTRAG<br />
24635 6038 32 60 6A LD (6A6<br />
24574 I ERFASSEN<br />
24636<br />
24575 5FFF 8F ADC A.A<br />
24637<br />
I<br />
24576 6000 57 LD D.A<br />
24638 603E<br />
H-8YTE EXPONENTENZÄHLER<br />
08 EX AF.A<br />
24577 6001 ED 53 61 6A LD ( 6A6<br />
24639 603F CB 3A<br />
1) • DE EXPONENT FüR ERGE8NIS SRL D<br />
24578<br />
24640<br />
24579<br />
24641 6041 C8 18 RR E<br />
24580<br />
24642<br />
24581 6005 23 INC HL ZEIGER AUF MANTISSE<br />
24643 6043 D9 EXX<br />
24582 6006 AF XOR A<br />
24644 6044<br />
ACCU AUF NULL<br />
C8 1A RR D<br />
24583 6007 32 60 6A LD (6A60).A<br />
24645<br />
FLAG üBERTRAG AUFGETRETEN<br />
24584<br />
24646 6046 C8 18 RR E<br />
24585<br />
24647<br />
24586 600A 56 LD D. (HL><br />
24648 6048<br />
MSBYTE 1te ZAHL HOLEN<br />
C8 18 RR B<br />
24606<br />
24607
SEITE 430<br />
BASIC 1Z-013B<br />
24649<br />
24650 604A 09 EXX<br />
24651 604B 10 00 OJNZ 00 ~ 602AH<br />
24652<br />
24653 6040 00 23 INC IX<br />
24654<br />
24655 604F 00 7E 00 LD A. (IX+OO)<br />
24656<br />
24657<br />
24658 6052 00 OEC C<br />
24659 6053 20 CF JR NZ. CF ~ 24660<br />
24661 6055 09 EXX<br />
24662 6056 3A 60 6A LO A. (6A60)<br />
24663<br />
24664<br />
24665 6059 B7 OR A<br />
24666 605A 28 16 JR Z. 16 ~ 6072H<br />
24667<br />
24668 605C EO 5B 61 6A LD OE. (6A61)<br />
24669<br />
24670<br />
24671<br />
24672 6060 13 INC OE<br />
24673 6061 EO 53 61 6A LD (6A61).OE<br />
24674<br />
24675<br />
24676<br />
24677 6065 D9 EXX<br />
24678 6066 37 SCF<br />
24679 6067 CB lC RR H<br />
24680<br />
24681 6069 CB 10 RR L<br />
24682<br />
24683 606B 09 EXX<br />
24684 606C CB lC RR H<br />
24685<br />
24686 606E CB lD RR L<br />
24687<br />
24688 6070 CB 19 RR C<br />
24689<br />
24690 6072 CB 79 BIT 7.C<br />
24691<br />
24692 6074 28 lA JR Z. lA ~ 6090H<br />
24693<br />
24694 6076 11 01 00 LO OE. 0001<br />
24695<br />
24696<br />
24697 6079 19 AOD HL.DE<br />
24698 607A 09 EXX<br />
24699 607B 11 00 00 LO DE. 0000<br />
24700<br />
24701<br />
24702 607E ED 5A ADC HL.DE ;<br />
24703<br />
24704 6080 D9 EXX<br />
24705 6081 30 00 JR NC. OD ~ 24706<br />
24707 6083 ED 5B 61 6A LD OE. (6A6l> I<br />
24708<br />
24709<br />
24710<br />
V1_0A<br />
WEITERE BIT'S DIESES BYTE<br />
I ZEIGER AUF MULTIPLIKANT<br />
lAUF NÄCHSTES BYTE<br />
BYTE HOLEN<br />
RESTANZAHL BYTES<br />
WEITERE BYTES<br />
FLAG üBERTRAG AUFGETRETEN<br />
üBERTRAG AUFGETRETEN ?<br />
NEIN<br />
EXPONENT ERGEBNIS<br />
PLUS EINS<br />
UND WIEDER MERKEN<br />
I MANTISSE ENTSPRECHEND<br />
I üBERTRAG MERKEN<br />
MSBIT BYTE 5 (Rundungsbit)<br />
NICHT AUFRUNDEN<br />
I ERGEBNIS AUFRUNDEN<br />
KEIN üBERTRAG<br />
EXPONENT ERGEBNIS<br />
24711 6087<br />
24712 6088<br />
24713<br />
24714<br />
24715<br />
24716 608C<br />
24717 6080<br />
24718<br />
24719 608F<br />
24720 6090<br />
24721<br />
24722 6092<br />
24723<br />
24724 6094<br />
24725<br />
24726<br />
24727 6097<br />
24728<br />
24729<br />
24730 609A<br />
24731 609B<br />
24732<br />
24733<br />
24734 609E<br />
24735<br />
24736<br />
24737 60Al<br />
24738<br />
24739<br />
24740 60A4<br />
24741 60A5<br />
24742<br />
24743<br />
24744 60A8<br />
24745<br />
24746 60AA<br />
24747 60AB<br />
24748<br />
24749 60AO<br />
24750<br />
24751<br />
24752 60BO<br />
24753<br />
24754<br />
24755 60B3<br />
24756<br />
24757<br />
24758 60B6<br />
24759<br />
24760<br />
24761 60B9<br />
247b2 bOBA<br />
247b3 bOB9<br />
24764 60BC<br />
2476::5 6090<br />
24766 bOBE<br />
24767 bOBF<br />
247b8 60CO<br />
24769<br />
24770 bOC2<br />
BASIC<br />
13<br />
ED 53 61 6A<br />
09<br />
26 80<br />
09<br />
00 El<br />
00 E5<br />
DO 75 04<br />
DO 74 03<br />
09<br />
00 75 02<br />
00 74 01<br />
2A 61 6A<br />
B7<br />
11 81 00<br />
ED 52<br />
7C<br />
C6 00<br />
FA C5 60<br />
C2 FC 5E<br />
DD 75 00<br />
C3 EO 50<br />
79<br />
09<br />
43<br />
::5A<br />
57<br />
09<br />
5A<br />
16 00<br />
C3 4D 60<br />
1Z<br />
INC DE<br />
LD (6A<br />
EXX<br />
LD H. 8<br />
EXX<br />
POP IX<br />
PUSH IX<br />
LD
SEITE 432<br />
BASIC 1Z-013B<br />
24771 <br />
24772 <br />
24773 60C5 ED 7B 5C 6A LD SP. (6A5C)<br />
24774<br />
24775<br />
24776<br />
24777 60C9 C3 CO SE JP 5ECO<br />
24778<br />
24779<br />
Funktion / (Division><br />
24780 60CC CD 9B 50 CALL 5D9B<br />
24781<br />
24782<br />
24783 60CF CD D6 5F CALL 5FD6<br />
24784<br />
24785<br />
24786 60D2 D5 PUSH DE<br />
24787 60D3 E5 PUSH HL<br />
24788 6004 ED 73 5C 6A LD (6A5C).SP<br />
24789<br />
24790<br />
24791<br />
24792 6008 1A LD A.
SEITE 434<br />
BASIC 1Z-013B V1.0A BASIC 1Z-0<br />
24885<br />
24886<br />
6135<br />
6136<br />
B7<br />
09<br />
OR A<br />
EXX<br />
CARRY-FLAG ZURüCKSETZEN Ergebnis Divisi o n aufbereiten<br />
24887 6137 EO 52 SBC HL,OE IDIVISOR EIN MAL 2 4943 616F F1 POP AF<br />
24888 I SUBTRAH I EREN 24944 6170 67 LO H,A<br />
24889 6139 09 EXX I 24945 61 7 1 D9 EXX<br />
24890 613A EO 52 SBC HL.OE I 2 4946 6172 Fl POP AF<br />
24891 24947 6173 5F LD E.A<br />
24892 613C 3F CCF 24948 6174 F1 POP AF<br />
24893 6130 38 E7 JR C. E7 + 6126H EIN BIT ERGEBNIS MERKEN 24949 6175 57 LD D,A<br />
24894 24950 6176 F1 POP AF<br />
24895 613F 09 EXX 24951 6177 4F LD C,A<br />
24896 6140 19 ADO HL.OE IRESTDIVIEND CORRIGIEREN 24952 6178 Fl POP AF<br />
24897 6141 09 EXX I 24953 6179 47 LD B.A<br />
24898 6142 ED 5A AOC HL.OE I 24954 617A Fl POP AF<br />
24899 24955 617B CB 78 BIT 7, B<br />
24900 6144 B7 OR A CARRY-FLAG ZURüCKSETZEN 24956<br />
24901 6145 17 RLA EIN BIT ERGEBNIS MERKEN 24957 6 17D 20 13 JR NZ, 1<br />
24902 6146 09 EXX 24958<br />
24903 6147 29 AOO HL,HL I DIVIDEND UM EINE STELLE 24959 6 17F D9 EXX<br />
24904 6148 D9 EXX I SCHIEBEN 24960 6 180 CB 24 SLA H<br />
24905 6149 EO 6A AOC HL,HL I 24961<br />
24906 :24962 6 182 09 EXX<br />
24907 614B 10 07 DJNZ 07 + 6154H WEITERE BITS DIESES BYTE 24963 6183 CB 13 RL E<br />
24908 2 4964<br />
24909 6140 F5 PUSH AF EIN BYTE ERGEBNIS MERKEN 24965 6185 CB 12 RL D<br />
24910 614E 06 08 LO B. 08 8 BIT JE BYTE 24966<br />
24911 24967 6187 CB 11 RL C<br />
24912 6150 00 DEC C RESTANZAHL BYTES 2 4968<br />
24913 6151 CA 6F 61 JP Z. 616F DIVISION DURCHGEFüHRT 24969 6189 CB 10 RL B<br />
24914 2 4970<br />
24915 2 4971 618B 3 0 DEC A<br />
24916 6154 09<br />
EXX<br />
2 4972 618C C2 7B 61 JP NZ, 6<br />
24917 6155 B7<br />
OR A CARRY-FLAG ZURüCKSETZEN<br />
24973<br />
24918 6156 EO 52 SBC HL,DE 24974<br />
24919 24975 618F C3 CO 5E J P 5ECO<br />
24920 6158 09 EXX 24976<br />
24921 6159 EO 52 SBC HL,DE 24977<br />
24922<br />
24923 6158 37 SCF ~ CARRY-FLAG SETZEN<br />
24924 6l5C 17<br />
RLA<br />
EIN BIT ERGEBNIS MERKEN<br />
Er gebnis der Division eventu<br />
24925 6150 10 06<br />
DJNZ 06 + 6165H • WEITERE BITS DIESES BYTE<br />
24926 24978 6192 D9 EXX<br />
24927 615F F5 PUSH AF EIN BYTE ERGEBNIS MERKEN 2 4979 6193 CB 14 RL H<br />
24928 6160 06 08 LD B. 08 ~ 8 BIT JE BYTE 24980<br />
24929 2 4981 6195 D9 EXX<br />
24930 6162 00 DEC C • RESTANZAHL BYTES 24982 6196 30 11 JR NC. 1<br />
24931 6163 28 OA JR Z. OA + 616FH ~ DIVISION DURCHGEFüHRT 24983<br />
24932 2 4984 6198 2 1 01 00 LD HL. 0<br />
2493 3 6165 09 EXX 2 4985<br />
24934 6166 29 ADD HL,HL I DIVIDEND UM EINE STELLE 24986<br />
2 49 ~ 5 6161 09 EXX I SCHIEBEN 24987 619B 19 ADD HL.O<br />
2 49 ~ 6 61Q8 ED 6A ADC HL,HL , I 24988 619C EB EX DE.HL<br />
249 ~ 7 24989 619D 21 00 00 LO HL. 0<br />
24939 616A 24939<br />
38 E8 JR C, E8 + 6154H 24990<br />
24991<br />
2 4940 616C C3 2 1 61 JP 6121 24992 61AO ED 4A ADC HL.B<br />
2494 1 24993<br />
2494 ~ 24994 61A2 44 LD B.H<br />
24995 61A3 4D LD C.L<br />
24996 61A4 30 0 3 JR NC, 0<br />
2 4997<br />
2 4998 61A6 06 80 LD B. 80
SEITE 436 <br />
BASIC 1 Z-C>13B V1.0A <br />
24999<br />
25000 61A8 3C INC A EXPONENT PLUS EINS<br />
25001 61A9 E1 POP HL I ZEIGER FüR ERGEBNIS<br />
25002 61AA E5 PUSH HL I<br />
25003 61AB 77 LD (HU,A EXPONENTEN EINTRAGEN<br />
25004 61AC 23 INC HL<br />
25005 61AO 70 LD (HU,B I MANTISSE ERGEBNIS IM<br />
25006 61AE 23 INC HL I SPEICHER ABLEGEN<br />
25007 61AF 71 LD (HU,C I<br />
25008 61BO 23 INC HL I<br />
25009 61Bl 72 LD (HU,D I<br />
25010 61B2 23 INC HL I<br />
25011 61B3 73 LD (HU,E I<br />
25012 61B4 C3 EO 50 JP 5DEO I VORZEICHEN ERGEBNIS<br />
25013 I EINTRAGEN<br />
25014<br />
Vo~zeichen de~ Real- ode~ Double P~ecision - Zahl abf~agen<br />
25015 61B7 23 INC HL ZEIGER AUF MANTISSE<br />
25016 61B8 CB 7E BIT 7, (HU VORZEICHEN ABFRAGEN<br />
25017<br />
25018 61BA 2B DEC HL ZEIGER WIEDER AUF EXPONENT<br />
25019 61BB C9 RET<br />
Zahl (HU mal zwei<br />
25020 61BC 34 INC (HU EXPONENT PLUS EINS<br />
25021 61BD CO RET NZ ERGEBNIS IST OK<br />
25022 61BE C3 F5 20 JP 20F5 FEHLER 2 üBERLAUFFEHLER<br />
25023<br />
25024<br />
Zahl (HU du~ch zwei<br />
25025 61Cl 7E LD A, (HU EXPONENTEN HOLEN<br />
25026 61C2 B7 OR A GLEICH NULL ?<br />
25027 61C3 C8 RET Z WERT IST GLEICH NULL<br />
25028 61C4 35 DEC (HU EXPONENT MINUS EINS<br />
25029 61C5 CO RET NZ ERGEBNIS IST OK<br />
25030 61C6 C3 87 50 JP 5D87 ERGEBNIS NULL VORGEBEN<br />
25031<br />
25032<br />
Einen Rechenspeiche~ für Rechen~outine reservieren<br />
25033 61C9 E5 PUSH HL ZEIGER AUF RECHENSPEICHER<br />
25034 61CA 11 05 00 LD OE, 0005 ; LÄNGE REAL - WERT<br />
25035<br />
25036<br />
25037 61CD 19 ADD HL,DE EINEN RECHENSPEICHER RESER.<br />
25038 61CE EB EX DE,HL ADRESSE NACH DE<br />
25039 61CF 2A BD 6A LD HL, (6ABD) 'MAXIMAL ERLAUBTE RAM<br />
25040 , ADRESSE<br />
25041<br />
25042 61D2 2B DEC HL<br />
25043 61D3 ED 52 SBC HL,DE IRECHENSPEICHERADRESSE<br />
25044 I üBERPRüFEN<br />
BASIC 1Z-<br />
25045 61D5 DA F8 20 JP C. 20<br />
25046<br />
25047<br />
25048 61D8 E1 POP HL<br />
25049 61D9 C9 RET<br />
Rechenspeicher für Routinen<br />
25050 61DA E5 PUSH HL<br />
25051 61DB 22 12 6A LD (6A12<br />
25052<br />
• 25053<br />
25054 61DE CD C9 61 CALL 61C<br />
25055<br />
25056 <br />
25057 61El EB EX DE,HL<br />
25058 61E2 22 14 6A LD (6A1<br />
25059<br />
25060 <br />
25061 61E5 CD C9 61 CALL 61C<br />
25062<br />
25063<br />
25064 61E8 EB EX DE,HL<br />
25065 61E9 22 16 6A LD (6A1<br />
25066<br />
25067 <br />
25068 61EC CD C9 61 CALL 61C<br />
25069<br />
25070<br />
25071 61EF ED 53 18 6A LD (6A1<br />
25072<br />
25073<br />
25074<br />
25075 6IF3 EI POP HL<br />
25076 6IF4 C9 RET<br />
Funktion l'<br />
25077 61F5 EB EX DE,HL<br />
25078 61F6 7E LD A, (H<br />
25079 61F7 B7 OR A<br />
25080 61F8 CA 58 62 JP Z, 62<br />
25081<br />
25082<br />
25083 61FB EB EX DE,HL<br />
25084 61FC 7E LD A, (HL<br />
25085 61FD B7 OR A<br />
25086 61FE CA 87 5D JP Z, 5D<br />
25087<br />
25088<br />
25089 6201 CD 87 61 CALL 61B<br />
25090<br />
25091 <br />
25092 6204 28 2C JR Z. 2C<br />
25093
SEITE 438<br />
BASIC 1Z-013B<br />
Basis negativ ~ untersuchen. ob Hochzahl<br />
25094 6206 CO 91 50 CALL 5091<br />
25095<br />
25096<br />
25097 6209 E8 EX OE.HL<br />
25098 620A 05 PUSH OE<br />
25099 6208 E5 PUSH HL<br />
25100 620C 11 6E 6A LO OE. 6A6E<br />
25101<br />
25102<br />
25103 620F CD B8 3A CALL 3AB8<br />
25104<br />
25105<br />
25106 6212 21 6E 6A LO HL. 6A6E<br />
25107<br />
25108<br />
25109 6215 CD BO 62 CALL 62BO<br />
25110<br />
25 111<br />
25112 6218 7E LO A. (HL)<br />
25113 6219 87 oR A<br />
25114 621A C2 01 21 JP NZ. 2101<br />
25115<br />
25116<br />
25117 6210 Ei POP HL<br />
25118 621E E5 PUSH HL<br />
25119 621F CD 21 3D CALL 3021<br />
25120<br />
25121<br />
25122 6222 AF XoR A<br />
25123 6223 C8 10 RR L<br />
25124<br />
25125 6225 IF RRA<br />
25126 6226 01 POP OE<br />
25127 6227 EI POP HL<br />
25128 6228 F5 PUSH AF<br />
25129 6229 CD 32 62 CALL 6232<br />
25130<br />
25131<br />
25132 622C Fl POP AF<br />
25133 622D 23 INC HL<br />
25134 622E B6 oR (HU<br />
25135 622F 77 LI) (HU.A<br />
25136 6230 28 OEC HL<br />
25137 623! C9 RET<br />
2~;'38 6232 ~ 6258H<br />
~ 625EH<br />
E8 EX OE.HL<br />
7.5139 6233 7E LD A. (HL><br />
25140 6234 87 OR A<br />
25141 6235 28 21 JR Z. 21 25142<br />
25143 6237 CD B7 61 CALL 61B7<br />
25144<br />
25145<br />
25146 623A 28 22 JR Z. 22 25147<br />
V1.0A<br />
ganze Zahl ist<br />
• VORZEICHEN DES WERTES<br />
• (HL) UMKEHREN<br />
• (Basis auf Plus)<br />
ZEIGER AUF BASIS <br />
ZEIGER AUF HOCHZAHL <br />
I ZEIGER AUF <br />
I ZWISCHENSPEICHER <br />
• REAL-ZAHL VON (HL) <br />
'NACH (OE) ü8ERTRAGEN <br />
• (Hochzahl merken) <br />
ZEIGER AUF HOCHZAHL <br />
'NACHKOMMAWERT DER REAL<br />
• ZAHL (HL) ERRECHNEN<br />
EXPONENT ERGEBNIS HOLEN <br />
GLEICH NULL? <br />
• HOCHZAHL NICHT GANZE<br />
• ZAHL ~ DATENFEHLER<br />
• ZEIGER AUF HOCHZAHL<br />
• 'REAL-ZAHL (HL) UMSETZEN<br />
• IN INTEGER NACH HL<br />
'FLAG WERT GERADE/UNGERADE<br />
• NACH ACCU HOLEN<br />
•<br />
•ZEIGER<br />
AUF HOCHZAHL<br />
ZEIGER AUF BASIS<br />
FLAG WERT GERADE/UNGERADE<br />
(HL) ~ (OE) ERRECHNEN<br />
FLAG WERT GERADE/UNGERADE<br />
ZEIGER AUF MANTISSE EREG8N.<br />
• VORZEICHEN ERGEBNIS<br />
I SETZEN<br />
ZEIGER WIEDER AUF EXPONENT<br />
EXPONENT HOCHZAHL HOLEN <br />
GLEICH NULL ? <br />
JA ~ ERGEBNIS GLEICH +1 <br />
• VORZEICHEN DER ZAHL<br />
• (HL) ABFRAGEN<br />
HOCHZAHL POSITIV<br />
BASIC 1Z-<br />
Hochzahl negativ<br />
25148 623 C CD 91 50 CALL 509<br />
25149<br />
25150<br />
25151 623F CD 5E 62 CALL 625<br />
25152<br />
25153<br />
251 54 6242 D5 PUSH OE<br />
2 5155 6243 E5 PUSH HL<br />
25156 6244 11 6E 6A L,.O OE. 6<br />
25157<br />
25158<br />
2 5159 6247 CD 85 3A CALL 3AB<br />
25160<br />
25161<br />
251 62 624A 21 6E 6A LO HL.<br />
25163<br />
251 64<br />
251 65 6240 01 POP OE<br />
251 66 624E CD CC 60 CALL 60C<br />
251 67<br />
251 68<br />
251 69 6251 05 PUSH OE<br />
25170 6252 CD 88 3 A CALL 3A<br />
2517 1<br />
25 172<br />
251 73 6255 EI POP HL<br />
25174 6256 01 POP OE<br />
25175 6257 C9 RET<br />
Ergebnis plus eins vorgeben<br />
25176 6258 05 PUSH DE<br />
25177 6259 CD 85 3A CALL 3A<br />
25178<br />
25179<br />
25 180 625C Ei POP HL<br />
25181 6250 C9 RET<br />
Hochzahl positiv<br />
25 182 625E 05 PUSH OE<br />
25183 625F 11 6E 6A LO OE.<br />
25184<br />
251 85<br />
25186 6262 CD 88 3A CALL 3A<br />
251 87<br />
25188<br />
25189 6265 EI POP HL<br />
25190 6266 CD 36 67 CALL 67<br />
25191<br />
25192<br />
25193 6269 11 6E 6A LD OE.<br />
25194<br />
25195<br />
25196 626C CD EI 5F CALL 5F<br />
25197<br />
25198<br />
25199 626F C3 15 66 JP 6615
SEITE 440<br />
25200 <br />
25201 <br />
Funktion A8S<br />
25202 6272 23<br />
25203 6273 C8 8E<br />
25204<br />
25205 6275 2B<br />
25206 6276 C9<br />
Funktion INT<br />
25207 6277 3A 65 6A<br />
25208<br />
25209<br />
25210 627A FE 02<br />
25211<br />
25212 627C C8<br />
25213 6270 CD B7 61<br />
25214<br />
25215<br />
25216 6280 CA 97 3C<br />
25217<br />
25218<br />
25219 6283 E5<br />
25220 6284 11 6E 6A<br />
25221<br />
25222<br />
25223 6287 CD B8 3A<br />
25224<br />
25225<br />
25226 628A E1<br />
25227 6288 CD 97 3C<br />
25228 <br />
25229 <br />
25230 628E 11 6E 6A<br />
25231<br />
25232<br />
25233 6291 CD 4A 5E<br />
25234<br />
25235<br />
25236 6294 C8<br />
25237 6295 11 77 3D<br />
25238 <br />
25239 <br />
25240 6298 C3 A6 50<br />
25241<br />
' 25242<br />
25243 6298 11 77 3D<br />
25244<br />
25245<br />
25246 629E C3 AF 50<br />
25247<br />
25248<br />
BASIC 1Z-013B<br />
INC HL <br />
RES 7, (HL) <br />
OEC HL <br />
RET <br />
LD A, (6A65)<br />
CP 02<br />
RET Z<br />
CALL 6187<br />
JP Z, 3C97<br />
PUSH HL<br />
LD OE, 6A6E<br />
CALL 3A88<br />
POP HL<br />
CALL 3C97<br />
LO OE, 6A6E<br />
CALL 5E4A<br />
RET Z<br />
LD DE, 3077<br />
JP 5DA6<br />
LO DE, 3077<br />
JP 5DAF<br />
V1_0A<br />
ZEIGER AUF MANTISSE<br />
VORZEICHEN AUF PLUS<br />
ZEIGER WIEDER AUF EXPONENT<br />
WERT - FLAG<br />
INTEGER-WERT ?<br />
HAT KEINE NACHKOMMASTELLEN<br />
• VORZEICHEN DER ZAHL<br />
• (HL) ABFRAGEN<br />
ARGUMENT POSITIV<br />
ZEIGER AUF ARGUMENT<br />
• ZEIGER AUF ZWISCHEN<br />
• SPEICHER FüR RECHENROUTINE<br />
• REAL-ZAHL VON (HL) <br />
INACH (OE) üBERTRAGEN <br />
ZEIGER AUF ARGUMENT<br />
'NACHKOMMASTELLEN OER<br />
'REAL-ZAHL (HL) VERGESSEN<br />
• ZEIGER AUF ZWISCHEN<br />
• SPEICHER MIT ARGUMENT<br />
'ZAHLEN (OE) UNO (HL)<br />
• VERGLE I CHEN<br />
ARGUMENT HATTE KEINE NACHK.<br />
ZEIGER AUF +1 (Real-Format)<br />
'REAL-WERT (DE) VOM<br />
'WERT (HL) SUBTRAHIEREN<br />
ZEIGER AUF +1 (Real-Format)<br />
'REAL-WERT (OE) ZUM<br />
'REAL-WERT (HL) AODIEREN<br />
BASIC 1Z<br />
Real - Wert (HL) mit plus e<br />
25249 62Al 11 77 3D LO OE,<br />
25250<br />
25251<br />
25252 62A4 C3 4A 5E JP 5E4A<br />
25253<br />
25254<br />
Integer-Wert des Zahlwertes<br />
25255 62A7 3A 65 6A LD A, (6<br />
25256<br />
25257<br />
25258 62AA FE 02 CP 02<br />
25259<br />
25260 62AC C8 RET Z<br />
25261 62AD C3 97 3C JP 3C97<br />
25262<br />
25263<br />
Funktion FRAC (wird n<br />
25264 6280 3A 65 6A LO A, (6<br />
25265<br />
25266<br />
25267 6283 FE 02 CP 02<br />
25268<br />
25269 6285 28 12 JR Z. 1<br />
25270<br />
25271 62B7 E5 PUSH HL<br />
25272 6288 11 6E 6A LD OE.<br />
25273<br />
25274<br />
25275 628B CD 88 3A CALL 3A<br />
25276<br />
25277<br />
25278 62BE 21 6E 6A LD HL.<br />
25279<br />
25280<br />
25281 62C1 CD 97 3C CALL 3C<br />
25282<br />
25283<br />
25284 62C4 EB EX DE.H<br />
25285 62C5 E1 POP HL<br />
25286 62C6 C3 A6 50 JP 5DA6<br />
25287<br />
25288<br />
Integer - Wert Null (HL) e<br />
25289 62C9 36 00 LD (HU<br />
25290<br />
25291 62C8 23 INC HL<br />
25292 62CC 36 00 LO (HU<br />
25293<br />
25294 62CE 28 DEC HL<br />
25295 62CF C9 RET
SEITE 442<br />
BASIC 1Z<br />
BASIC 1Z-013B V1_0A<br />
Befehl SOR<br />
25296 6200 7E LO A. (HU<br />
25297 6201 B7<br />
EXPONENT ARGUMENT HOLEN<br />
OR A<br />
25298 6202 GLEICH NULL ?<br />
C8 RET Z<br />
25299 6203 ERGEBNIS GLEICH NULL<br />
CO B7 61 CALL 61B7<br />
25300<br />
VORZEICHEN ZAHL ABFRAGEN<br />
25301<br />
25302 6206 C2 01 21 JP NZ. 2101<br />
25303<br />
NEGATIV ~ DATENFEHLER<br />
25304<br />
25305 25,306<br />
6209 CO 36 67 CALL 6736<br />
LN - ROUTINE<br />
25307<br />
2530~ 25309<br />
620C CO Cl 61 CALL 61C1<br />
REAL-ZAHL (HL) DURCH ZWEI<br />
25310<br />
25311 62DF 25312<br />
25313<br />
C3 15 66 JP 6615<br />
EXP - ROUTINE<br />
Ergebnis Plus Eins vorgeben und Stack corrigieren<br />
25314 62E2 E5 PUSH HL<br />
25315 62E3 EB ZEIGER AUF ERGEBNIS MERKEN<br />
EX DE.HL<br />
25316 62E4 CO B5 3A<br />
ZEIGER FüR ERGE8NIS NACH DE<br />
CALL 3AB5<br />
25,317<br />
+1 NACH (OE) üBERTRAGEN<br />
25318<br />
25319 62E7 EI POP HL<br />
25320 62E8 Cl<br />
ZEIGER AUF ERGEBNIS<br />
POP BC<br />
25321 62E9 C9<br />
STACK CORRIGIEREN<br />
RET<br />
25322 62EA 7E<br />
25323 62EB 4C<br />
überprUfen. ob 8etrag Argu<br />
ATN Ober I/Argument errech<br />
25324 62EC 80 <br />
25325 62EO 2B<br />
Exponent 0.19970768<br />
Mantisse 0.19970768 <br />
Exponent 0.67097684<br />
Mantisse 0.67097684<br />
25343 62FF CO Al 62 CALL 6<br />
25344<br />
25345<br />
25346 6302 38 24 JR C.<br />
25347<br />
25348 6304 CD C9 61 CALL 6<br />
25349<br />
25350<br />
25351 6307 05 PUSH O<br />
25352 6308 E5 PUSH H<br />
25353 6309 CD B8 3A CALL 3<br />
25354<br />
25355<br />
25356 630C 01 POP OE<br />
25357 6300 05 PUSH D<br />
25358 630E CO 85 3A CALL 3<br />
25359<br />
25360<br />
25361 6311 E1 POP HL<br />
25362 6312 01 POP OE<br />
25363 6313 CD CC 60 CALL 6<br />
25364<br />
25365<br />
25366 6316 CD 28 63 CALL 6<br />
25367<br />
25368<br />
25369 6319 11 AB 65 LO OE.<br />
25370<br />
25371<br />
25372 631C CD BC 61 CALL 6<br />
25373<br />
25374<br />
25375 631F CD A6 5D CALL 5<br />
25376<br />
25377<br />
25378 6322 CD Cl 61 CALL 6<br />
25379<br />
25380<br />
25381 6325 C3 F7 5D JP 50F<br />
25382<br />
25383<br />
B~fehl ATN<br />
ATN der Zahl (HL) iteriere<br />
25326 62EE C5 PUSH BC<br />
25327 62EF 23<br />
REGISTER RETTEN<br />
INC HL<br />
25328 62FO 7E<br />
ZEIGER AUF MANTISSE<br />
LD A. (HU<br />
25329 62F1 CB 8E<br />
MSBYTE MANTISSE HOLEN<br />
RES 7. (HU<br />
25330<br />
VORZEICHEN AUF PLUS<br />
25331 62F3 2B DEC HL<br />
25332 62F4 F5<br />
ZEIGER WIEDER AUF EXPONENT<br />
PUSH AF<br />
25333 62F5 VORZEICHEN ARGUMENT MERKEN<br />
CD FF 62 CALL 62FF<br />
25334<br />
ATN - WERT ERRECHNEN<br />
25335<br />
25336 62F8 Fl POP AF<br />
25337 62F9<br />
VORZEICHEN ARGUMENT<br />
Cl POP BC<br />
25338 62FA<br />
GERETTETES REGISTER<br />
07 RLCA<br />
25339 62FB 00<br />
VORZEICHEN ARGUMENT NACH C.<br />
RET NC<br />
25340 62FC<br />
ARGUMENT WAR POSITIV<br />
C3 91 5D JP 5091<br />
25341<br />
I VORZEICHEN DES ERGEBNIS<br />
I (HL) UMKEHREN<br />
25342<br />
25384 6328 3E FF LD A.<br />
25385<br />
25386 632A 32 lE 6A LD (6A<br />
25387<br />
25388<br />
25389 6320 11 EA 62 LD OE<br />
25390<br />
25391<br />
25392 6330 CD 4A 5E CALL 5<br />
25393<br />
25394<br />
25395 6333 38 4F JR C.<br />
25396<br />
25397 6335 11 EC 62 LD OE
SEITE<br />
25398<br />
25399<br />
25400 6338<br />
25401<br />
25402<br />
25403 6338<br />
25404 633C<br />
25405<br />
25406<br />
25407 633F<br />
25408 6340<br />
25409 6341<br />
25410 6342<br />
25411<br />
25412<br />
25413 6345<br />
25414 6346<br />
25415<br />
25416 6348<br />
25417<br />
25418<br />
25419 6348<br />
25420 634C<br />
25421<br />
25422<br />
25423 634F<br />
25424 6350<br />
25425<br />
25426<br />
25427 6353<br />
25428<br />
25429<br />
25430 6356<br />
25431<br />
25432<br />
25433 6359<br />
25434<br />
25435<br />
25436 635C<br />
25437<br />
25438<br />
25439 635F<br />
25440<br />
25441<br />
25442 6362<br />
25443<br />
25444<br />
25445 6365<br />
25446 6366<br />
25447<br />
25448<br />
25449 6369<br />
25450<br />
25451<br />
25452 636C<br />
25453 636D<br />
25454<br />
25455<br />
25456 6370<br />
25457<br />
BASIC 1Z-013B<br />
444<br />
CD 4A 5E<br />
CALL<br />
5E4A<br />
F5<br />
CD C9 61<br />
PUSH<br />
CALL<br />
AF <br />
61C9 <br />
F1<br />
E5<br />
D5<br />
CD 88 3A<br />
POP<br />
PUSH<br />
PUSH<br />
CALL<br />
AF<br />
HL<br />
DE<br />
3AS8<br />
Ei<br />
38 14<br />
POP HL<br />
JR C. 14<br />
~ 635CH<br />
CD 98 62<br />
CALL 6298<br />
E3<br />
CD A6 5D<br />
EX (SP).HL<br />
CALL 5DA6<br />
D1<br />
CD CC 60<br />
POP DE<br />
CALL 60CC<br />
CD 84 63<br />
CALL 6384<br />
11 75 65<br />
LD DE. 6575<br />
C3 AF 5D<br />
JP 5DAF =<br />
11 7F 63<br />
LD DE. 637F<br />
CD El 5F<br />
CALL 5FEI<br />
CD 98 62<br />
CALL 629B<br />
E3<br />
11 7F 63<br />
EX<br />
LD<br />
(SP) .HL<br />
DE. 637F ;<br />
CD A6 5D CALL 5DA6<br />
Dl<br />
CD CC 60<br />
POP <br />
CALL <br />
DE<br />
60CC<br />
CD 84 63 CALL 6384<br />
V1_0A<br />
IZAHLEN (HL) UND (DE)<br />
I VERGLE I CHEN<br />
ERGE8NIS VERGLEICH RETTEN<br />
lEINEN RECHENSPEICHER<br />
I BERE I TSTELLEN<br />
ERGEBNIS VERGLEICH<br />
ZEIGER AUF ARGUMENT<br />
ZEIGER AUF RECHENSPEICHER<br />
'ARGUMENT NACH RECHEN<br />
'SPEICHER üBERTRAGEN<br />
ZEIGER AUF RECHENSPEICHER<br />
WERT IST KLEINER 3/5<br />
I PLUS EINS ZUR ZAHL (HL)<br />
I (ADDIEREN)<br />
- ROUTINE<br />
/ - ROUTINE<br />
ATN-WERT ERRECHNEN<br />
ZEIGER AUF ""/4 (Re",l)<br />
+ - ROUTINE<br />
ZEIGER AUF SQR(2)-1<br />
* - ROUTINE<br />
'PLUS EINS ZUR ZAHL (HL)<br />
, ADDIEREN<br />
ZEIGER AUF SQR(2)-1<br />
- ROUTINE<br />
/ - ROUTINE<br />
ATN-WERT ERRECHNEN<br />
25458<br />
25459 6373<br />
25460<br />
25461<br />
25462 6376<br />
25463<br />
25464<br />
25465 6379<br />
25466<br />
25467<br />
25468 637C<br />
25469<br />
25470<br />
25471 637F<br />
25472 6380<br />
25473<br />
25474<br />
25475<br />
25476 6384<br />
25477 6385<br />
25478 6386<br />
25479<br />
25480<br />
25481 6389<br />
25482 638A<br />
25483 638B<br />
25484 638C<br />
25485<br />
25486<br />
25487 638F<br />
25488 6390<br />
25489 6391<br />
25490 6392<br />
25491<br />
25492<br />
25493 6395<br />
25494<br />
25495<br />
25496<br />
25497 6399<br />
25498 639A<br />
25499 639B<br />
25500<br />
25501<br />
25502 639E<br />
25503<br />
25504<br />
25505 63A1<br />
25506 63A2<br />
25507<br />
25508 63A4<br />
25509 63A5<br />
25510<br />
25511<br />
25512 63A8<br />
25513<br />
BASIC<br />
CD BC 61<br />
11 75 65<br />
CD AF 5D<br />
C3 Cl 61<br />
7F<br />
54 13 CC DO<br />
C5<br />
E5<br />
CD DA 61<br />
El <br />
E5 <br />
D5 <br />
CD B8 3A <br />
E1 <br />
5D <br />
54 <br />
CD E1 5F <br />
ED 5B 16 6A<br />
El <br />
E5 <br />
CD B8 3A <br />
3A 65 6A<br />
3D<br />
FE 04<br />
47<br />
21 43 65<br />
CA 44 64<br />
1Z<br />
CALL 6<br />
LD DE.<br />
CALL 5<br />
JP 61C<br />
PUSH B<br />
PUSH H<br />
CALL 6<br />
POP HL<br />
PUSH H<br />
PUSH. D<br />
CALL 3<br />
POP HL<br />
LD E.L<br />
LD E.H<br />
CALL 5<br />
LD DE.<br />
POP HL<br />
PUSH H<br />
CALL 3<br />
LD A.<br />
DEC A<br />
CP 04<br />
LD B.A<br />
LD HL<br />
JP Z.
SEITE<br />
25514<br />
25515 63AB<br />
25516<br />
25517 63AD<br />
25518<br />
25519<br />
Befehl<br />
25520 63BO<br />
25521 63Bl<br />
25522 6382<br />
25523 63B3<br />
25524 <br />
25525 <br />
25526 63B6<br />
25527 <br />
25528 <br />
25529 6 3 B9<br />
25530<br />
25531<br />
25532 63BC<br />
25533 <br />
25534 <br />
25535 63 BF<br />
25536 <br />
25537 <br />
25538 6 3C2<br />
25539<br />
25540<br />
25541 63C5<br />
Befehl<br />
25542 63 C6<br />
25543 63 C7<br />
25544 6 3C8<br />
25545 63C9<br />
25546 63CA<br />
25547<br />
25548 63CC<br />
25549<br />
25550 63CE<br />
25551 6 3CF<br />
25552<br />
25553<br />
25554 6 3 02<br />
25555 6303<br />
25556<br />
25557<br />
25558 63D6<br />
25559<br />
25560<br />
25561 6309<br />
25562 630A<br />
25563<br />
25564<br />
25565 63DD<br />
25566 630E<br />
25567<br />
446<br />
BASIC 1Z-013B<br />
06 OA LD B, OA <br />
C3 44 64 JP 6444 <br />
COS <br />
C5 PUSH BC <br />
7E LO A, (HU<br />
B7 OR A <br />
CA E2 62 JP Z, 62E2 <br />
11 75 65 LD DE. 6575<br />
CD Cl 61 CALL 61Cl<br />
CD A6 5D CALL 5DA6<br />
CD BC 61 CALL 61BC<br />
CD 91 50 CALL 5D91<br />
Cl POP BC<br />
SIN <br />
C5 PUSH BC <br />
E5 PUSH HL <br />
23 INC HL <br />
7E LO A. (HU<br />
CB BE RES 7. (HU<br />
E6 80 AND A. 80<br />
2F CPL<br />
32 lE 6A LD (6A1E), A<br />
28 DEC HL<br />
CD C9 61 CALL 61C9<br />
21 75 65 LD HL. 6575<br />
D5 PUSH DE<br />
CD B8 3A CALL 3AB8<br />
El POP HL<br />
CO BC 61 CALL 61BC<br />
V1_0A<br />
10 ITERATIONSSCHRITTE<br />
ITERATION AUSFüHREN<br />
REGISTER RETTEN <br />
EXPONENT HOLEN <br />
GLEICH NULL ? <br />
• ARGUMENT GLEICH NULL +<br />
• ERGEBNIS GLEICH NULL?<br />
ZEIGER AUF ~/4 (Real)<br />
ARGUMENT DURCH ZWEI<br />
• - - ROUTINE<br />
• (,"·/4 vom ArgLlment/2 <br />
I abziehen) <br />
ZAHL (HL) MAL ZWEI <br />
• VORZEICHEN DES WERTES<br />
• (HL) UMKEHREN<br />
GERETTETES REGISTER HOLEN<br />
REGISTER RETTEN <br />
ZEIGER AUF ARGUMENT <br />
ZEIGER AUF MANTISSE <br />
MANTISSE HOLEN <br />
VORZEICHEN MASKIEREN<br />
VORZEICHEN ERGEBNIS<br />
ZEIGER WIEDER AUF EXPONENT<br />
• ZEIGER AUF EINEN RECHEN<br />
• SPEICHER NACH DE BEREIT<br />
• STELLEN <br />
ZEIGER AUF ~/4
SEITE 448<br />
BASIC 1Z-013B<br />
25630 641E 6480H<br />
El POP HL<br />
25631 641F 05 PUSH OE<br />
25632 6420 11 75 65 LO OE. 6575<br />
25633<br />
25634<br />
25635 6423 CD 4A SE CALL 5E4A<br />
25636<br />
25637<br />
25638 6426 30 65 JR NC. 65 ~ 25639<br />
25640 6428 01 POP OE<br />
25641 6429 ES PUSH HL<br />
25642 642A 05 PUSH OE<br />
25643 642B CD B8 3A CALL 3AB8<br />
25644<br />
25645<br />
25646 642E EI POP HL<br />
25647 642F 50 LO E.L<br />
25648 6430 54 LO O.H<br />
25649 6431 CO EI 5F CALL 5FEl<br />
25650<br />
25651<br />
25652 6434 ED 5B 16 6A LO DE. (6A16)<br />
25653<br />
25654<br />
25655<br />
25656 6438 El POP HL<br />
25657 6439 ES PUSH HL<br />
25658 643A CD B8 3A CALL 3A88<br />
25659<br />
25660<br />
25661 6430 3A 65 6A LO A. (6A65)<br />
25662<br />
25663<br />
25664 6440 47 LO B.A<br />
25665 6441 21 F3 64 LO HL. 64F3<br />
25666<br />
25667<br />
Iterationsroutine für SIN - COS - ATN<br />
25668 6444 C5 PUSH BC<br />
25669 6445 ES PUSH HL<br />
25670 6446 2A 16 6A LO HL. (6A16)<br />
25671<br />
25672<br />
25673 6449 EO 58 18 6A LO OE. (6A18)<br />
25674<br />
25675<br />
25676<br />
25677 6440 CO E1 5F CALL 5FE1<br />
25678<br />
25679<br />
25680 6450 E1 POP HL<br />
25681 6451 E5 PUSH HL<br />
25682 6452 EO SB 14 6A LO OE. (6A14)<br />
25683<br />
25684<br />
25685<br />
25686 6456 05 PUSH OE<br />
25687 6457 CO B8 3A CALL 3AB8<br />
V1_0A<br />
ZEIGER AUF ARGUMEMENT<br />
ZEIGER AUF RECHENSPEICHER<br />
ZEIGER AUF ",·/4
SEITE 450<br />
BASIC 1Z-013B V1_0A BASIC 1Z<br />
Werte für Iteration nach COS - Reihe vorgeben 25797<br />
25798 64C6 CO C9 61<br />
25741 6480 CO Cl 61<br />
CALL 6<br />
CALL 61Cl ZAHL (HL) OURCH ZWEI 25799<br />
25742<br />
25800<br />
25743<br />
25801 64C9<br />
25744 6490<br />
EO 53 lC 6A LO (6A<br />
11 75 65 LO OE. 6575 ZEIGER AUF ...../4 (Real) 25802<br />
25745<br />
25746<br />
25803<br />
25804<br />
25747 6493 CD A6 50 CALL 50A6 - ROUTINE _25805 64CO El POP HL<br />
25748<br />
25749<br />
25750 6496<br />
25806 64CE E5 PUSH H<br />
25807 64CF CO B8 3A CALL 3<br />
CO BC 61 CALL 61SC ZAHL (HL) MAL ZWEI 25808<br />
25751<br />
25752<br />
25809<br />
25753 6499<br />
25810 6402 2A lA 6A<br />
CO F7 50<br />
LO HL.<br />
CALL 50F7 ABS OER ZAHL (HL) BILOEN 25811<br />
25754<br />
25755<br />
25812<br />
25756 649C<br />
25813 6405 EB<br />
01<br />
EX OE<br />
POP OE<br />
25757 6490<br />
ZEIGER AUF RECHENSPEICHER 25814 6406 El<br />
E5<br />
POP HL<br />
PUSH HL ZEIGER AUF ARGUMENT<br />
25758 649E<br />
25815 6407<br />
05<br />
E5 PUSH H<br />
PUSH OE ZEIGER AUF RECHENSPEICHER 25816 6408 CO B8 3A CALL 3<br />
25759 649F CO 88 3A CALL 3AB8<br />
25760<br />
I ARGUMENT NACH RECHEN- 25817<br />
• SPEICHER EINS üBERTRAGEN 25818<br />
25761<br />
25762 64A2<br />
25819 640B<br />
El<br />
2A lC 6A LO HL.<br />
POP HL<br />
25763 64A3<br />
ZEIGER AUF RECHENSPEICHER 25820<br />
50 LO E.L I AUCH NACH OE<br />
25764 64A4<br />
25821<br />
54 LO O.H I 25822 640E CD C6 63 CALL 6<br />
25765 64A5 CD E1 5F CALL 5FEl I * - ROUTINE 25823<br />
25766<br />
25767<br />
I (Ergebni s = Argumentt'2) 25824<br />
25825 64El 01 POP OE<br />
25768 64A8 25769<br />
EO 5B 16 6A LO OE. (6A16)<br />
ZEIGER AUF RECHENSPEICHER 2 25826 64E2 05 PUSH O<br />
25770<br />
25827 64E3 CO B8 3A CALL 3<br />
25828<br />
25829<br />
25771<br />
25772 64AC CD B5 3A CALL 3AB5<br />
25773<br />
IPLUS EINS NACH RECHEN- ' 25830 64E6 2A lA 6A LO HL.<br />
25774<br />
ISPEICHER ZWEI üBERTRAGEN 25831<br />
25832<br />
25775 64AF 01 POP OE<br />
25776 6480<br />
I ZEIGER AUF ARGUMENT 25833 64E9 CD BO 63 CALL 6<br />
05 PUSH OE I 25834<br />
25777 64Bl CO B5 3A CALL 3AS5<br />
25778<br />
PLUS EINS NACH (OE) 25835<br />
25779 <br />
25780 64B4 3A 65 6A<br />
25782<br />
25783 64B7 47 LO B.A<br />
25784 64B8 21 1B 65<br />
25785<br />
25786<br />
25836 64EC EB EX OE.<br />
25837 64EO El POP HL<br />
LO A. (6A65) WERT - FLAG 25838 64EE<br />
25781 CO CC 60 CALL 6<br />
25839<br />
25840<br />
ANZAHL ITERATIONSSCHRITTE 25841 64Ft Cl POP BC<br />
LO HL. 6518 I ZEIGER AUF KONSTANTEN 25842 64F2 C9 RET<br />
I FüR ITERATION COS - REIHE<br />
25787 648B 18 87 JR 87 -+ 6444H<br />
25788<br />
lEINSPRUNG IN ITERATIONS Konstanten für Iteration n<br />
I SCHLEIFE<br />
25843 64F3 7E<br />
Funktion TAN<br />
25844 64F4 AA AA AA AB<br />
25845<br />
25789 64BO C5<br />
25846<br />
PUSH BC REGISTER RETTEN<br />
25790 64BE E5<br />
25847<br />
PUSH HL ZEIGER AUF ARGUMENT 25848 64F8 7A<br />
25791 64SF CO C9 61 CALL 61C9<br />
25792<br />
lEINEN RECHENSPEICHER FüR 25849 64F9 08 88 88 89<br />
25793 <br />
I ROUTINE BEREITSTELLEN 25850<br />
25794 64C2 EB 25851<br />
EX OE.HL 25852<br />
25795 64C3 22 lA 6A LO (6AIA).HL I ZEIGER AUF SPEICHER<br />
25796 25853 64FO 74<br />
'FüR COS(ARGUMENT) 25854 64FE 00 00 00 00
SEITE 452<br />
BASIC 1Z-013B V1_0A -\ I<br />
~I. ,J •<br />
,1 I<br />
I ,<br />
BASIC 1Z-<br />
25855<br />
25913 6539 5C<br />
25856 I ." 25914 653A C9 CB A5 46<br />
(-1/7! )<br />
25857<br />
259 15<br />
25916<br />
25858 6502 6E Exponent • 27557319E-05<br />
25859 6503<br />
259 17<br />
38 EF 10 28 Mantisse • 27557319E-05<br />
25860<br />
25918 653E 54<br />
25861<br />
259 19 653F 57 3F 9F 3A<br />
(1/9! )<br />
25862 ": 1<br />
25920<br />
25863 6507<br />
25921<br />
67 Exponent -.25052108E-07 ~ I<br />
25922<br />
25864 6508 07 32 2B 40 Mantisse -.25052108E-07<br />
25865<br />
25866 (-1/11!)<br />
25867<br />
Konstanten für Iteration na<br />
-, ,'.<br />
25868 650C 60 Exponent • 16059043E-09<br />
25923 6543 7F<br />
25869 6500 30 92 30 90 Mantisse • 16059043E-09<br />
25924 6544<br />
25870<br />
AA AA AA AB<br />
, 1 1<br />
25871<br />
25925<br />
(1 I 13! )<br />
25926<br />
25872<br />
'I 25961<br />
25903 652F 6B Exponent -.27557319E-06<br />
j "'t I ~<br />
25962<br />
25904 6530 93 F2 70 BC Mantisse -.27557319E-06 "<br />
25963 656B 7C<br />
25905<br />
25964 656C 07 94 35 E5<br />
25906 (-1/10! )<br />
I " 25965<br />
25907 .' '<br />
" I ,I, 25966<br />
25908 6534 64 Exponent .20876756E-10 'I<br />
25967<br />
;'ll<br />
25909 6535 OF 76 C7 80 Mantilise .20876756E-10<br />
~ ! 25968 6570 7C<br />
25910 ~ \<br />
25969 6571 43 oe 30 C3<br />
25911 (1/12! ) "~ t 25970<br />
25912<br />
I,
SEITE 454<br />
BASIC 1Z-013B<br />
25971<br />
25972<br />
25973 6575 80<br />
25974 6576 49 OF OA A2<br />
25975<br />
25976<br />
25977<br />
Funktion SGN<br />
25978 657A 11 00 00 LO OE. 0000<br />
25979<br />
25980<br />
25981 6570 CO 8E 65 CALL 658E<br />
25982<br />
25983<br />
25984 6580 28 08 JR Z. 08 ~ 658AH<br />
25985<br />
25986 6582 CO 87 61 CALL 6187<br />
25987<br />
25988<br />
25989 6585 13 INC OE<br />
25990 6586 28 02 JR Z. 02 ~ 658AH<br />
25991<br />
25992 6588 18 OEC OE<br />
25993 6589 18 OEC OE<br />
25994 658A CO 82 3A CALL 3A82<br />
25995<br />
25996<br />
25997 6580 C9 RET<br />
Unte~suchen. ob We~t (HL) gleich Null ist<br />
25998 658E 3A 65 6A LO A. (6A65)<br />
25999<br />
26000<br />
26001 6591 FE 02 CP 02<br />
26002<br />
26003 6593 28 03 JR Z. 03 + 6598H<br />
26004<br />
26005 6595 7E LD A. (HL><br />
26006 6596 87 OR A<br />
26007 6597 C9 RET<br />
26008 6598 7E LD A. (HL><br />
26009 6599 23 INC HL<br />
26010 659A 86 OR (HL> ;<br />
26011 6598 2B DEC HL<br />
26012 659C C9 RET<br />
Funktion RAD<br />
26013 6590 11 BO 65 LD OE. 65BO<br />
26014<br />
26015<br />
26016 65AO 18 03 JR 03 ~ 65A5H<br />
26017<br />
V1.0A<br />
(1/21><br />
Exponent ..../4<br />
Mantisse ..../4<br />
VORGABE WERT NULL<br />
I UNTERSUCHEN. OB WERT<br />
I (HL> GLEICH NULL IST<br />
WERT GLEICH NULL<br />
I VORZEICHEN OER ZAHL (HL)<br />
I ABFRAGEN<br />
VORGABE +1<br />
ZAHL IST POSITIV<br />
I VORGABE - 1<br />
I INTGER- WERT IN OE UM<br />
ISETZEN IN REAL - WERT (HL)<br />
WERT-FLAG<br />
INTEGER - WERT ?<br />
JA<br />
EXPONENT REAL-WERT HOLEN<br />
GLEICH NULL ?<br />
L- BYTE WERT<br />
ZEIGER AUF H-BYTE<br />
H- 8YTE WERT<br />
ZEIGER WIEDER AUF L- BYTE<br />
ZEIGER AUF ..../180<br />
I KONSTANTE MIT ARGUMENT<br />
I MULTIPLI ZIEREN<br />
BASIC<br />
Funktion PAI<br />
26018 65A2 11 AB 65<br />
26019<br />
26020<br />
26021 65A5 C5<br />
26022 65A6 CO El 5F<br />
26023<br />
26024<br />
26025 65A9 Cl<br />
26026 65AA C9<br />
26027 65A8 82<br />
26028 65AC 49 OF DA A2<br />
26029<br />
26030<br />
26031<br />
26032 65BO 7B<br />
26033 65B1 OE FA 35 13<br />
26034<br />
26035<br />
2603 6<br />
Funktion PEEK<br />
26037 6585 FE 40<br />
26038<br />
26039 65B7 28 OF<br />
26040<br />
26041 65B9 ES<br />
26042 65BA CD 21 3D<br />
26043<br />
26044<br />
26045 65BO CD EA 00<br />
26046<br />
26047<br />
26048 65CO 5F<br />
26049 65Cl 16 00<br />
26050<br />
26051 65C3 El<br />
26052 65C4 CD 82 3A<br />
26053<br />
26054<br />
26055 65C7 C9<br />
26056 65C8 23<br />
26057 65C9 E5<br />
26058 65CA CD 21 3D<br />
26059<br />
26060<br />
26061 65CD 7E<br />
26062 65CE 18 FO<br />
26063<br />
1Z<br />
LO DE.<br />
PUSH BC<br />
CALL 5F<br />
POP BC<br />
RET<br />
CP 40<br />
JR Z. O<br />
PUSH HL<br />
CALL 30<br />
CALL OO<br />
LD E.A<br />
LD D. 0<br />
POP HL<br />
CALL 3A<br />
RET<br />
INC HL<br />
PUSH HL<br />
CALL 3D<br />
LD A. (H<br />
JR FO<br />
I
SEITE 456<br />
Befehl RND<br />
26064 65DO 7E<br />
26065 65D1 B7<br />
26066 65D2 28 07<br />
26067<br />
26068 65D4 23<br />
26069 65D5 7E<br />
26070 65D6 2B<br />
26071 65D7 CB 7F<br />
26072<br />
26073 65D9 28 OB<br />
26074<br />
26075 65D8 E5<br />
26076 65DC 21 93<br />
26077<br />
26078<br />
26079 65DF 22 IF<br />
26080<br />
26081<br />
26082 65E2 E1<br />
26083 65E3 AF<br />
26084 65E4 ED 4F<br />
26085<br />
26086 65E6 C5<br />
26087 65E7 ED 5B<br />
26088<br />
26089<br />
26090<br />
26091 65EB ED 5F<br />
26092<br />
26093 65ED AA<br />
26094 65EE CB OF<br />
26095<br />
26096 65FO CB OF<br />
26097<br />
26098 65F2 CB OF<br />
26099<br />
26100 65F4 57<br />
26101 65F5 ED 5F<br />
26102<br />
26103 65F7 AB<br />
26104 65F8 CB 07<br />
26105<br />
26106 65FA CB 07<br />
26107<br />
26108 65FC 5A<br />
26109 65FD 57<br />
26110 65FE EO 53<br />
26111<br />
26112<br />
26113<br />
26114 6602 E5<br />
26115 6603 23<br />
26116 6604 CB BA<br />
26117<br />
26118 6606 72<br />
26119 6607 23<br />
26120 6608 73<br />
26121 6609 23<br />
26122 660A EO 5F<br />
26123<br />
BASIC 1Z-013B<br />
LD A. (HL><br />
OR A<br />
JR Z. 07 + 65DBH<br />
INC HL<br />
LD A. (HL><br />
DEC HL<br />
BIT 7.A<br />
JR Z. OB + 65E6H<br />
PUSH HL<br />
41 LO HL. 4193<br />
6A LO (6AIF).HL<br />
POP HL <br />
XOR A <br />
LO R.A <br />
PUSH BC<br />
IF 6A LO DE. (6AIF)<br />
LD A.R<br />
XOR D <br />
RRC A <br />
RRC A<br />
RRC A<br />
LD O.A <br />
LD A.R <br />
XOR E <br />
RLC A <br />
RLC A<br />
LD E.O <br />
LD O.A <br />
IF 6A LD (6AIF).OE <br />
PUSH HL<br />
INC HL •<br />
RES 7.D<br />
LD (HL>.D<br />
INC HL<br />
LD (HL>.E<br />
INC HL<br />
LD A.R<br />
V1.0A<br />
EXPONENT ARGUMENT<br />
GLEICH NULL ?<br />
ARGUMENT GLEICH NULL<br />
ZEIGER AUF MSBYTE MANTISSE<br />
BYTE HOLEN<br />
ZEIGER WIEDER AUF EXPONENT<br />
WERT NEGATIV ?<br />
WERT POS IT I V<br />
ZEIGER AUF ARGUMENT<br />
VORGABE FüR ANFANGSWERT<br />
ZWISCHENWERT RND<br />
ZEIGER AUF ARGUMENT<br />
ACCU AUF NULL<br />
REFRESH-REGISTER SETZEN<br />
REGISTER RETTEN<br />
ZWISCHENWERT RND HOLEN<br />
NEUEN ZWISCHENWERT<br />
ERRECHNEN<br />
NEUEN ZWISCHENWERT MERKEN<br />
ZEIGER AUF ARGUMENT<br />
ZEIGER AUF MANTISSE<br />
VORZEICHEN AUF PLUS<br />
IZWISCHENWERT ALS<br />
I BYTES DER MANTISSE<br />
I EINTRAGEN<br />
I<br />
DRITTES BYTE HOLEN<br />
26124 660C<br />
26125 660D<br />
26126 660E<br />
26127<br />
26128 6610<br />
26129<br />
26130 ·<br />
26131 6613<br />
26132 6614<br />
Befehl<br />
26133 6615<br />
26134 6616<br />
26135 6617<br />
26136 6618<br />
26137<br />
26138<br />
26139 661B<br />
26140 661C<br />
26141 6610<br />
26142<br />
26143<br />
26144 6620<br />
26145<br />
26146 6622<br />
26147 6623<br />
26148<br />
26149<br />
26150 6626<br />
26151<br />
26152<br />
26153 6629<br />
26154 662A<br />
26155<br />
26156<br />
26157 662D<br />
26158 662E<br />
26159<br />
26160<br />
26161 6631<br />
26162 6632<br />
26163<br />
26164<br />
26165 6635<br />
26166 6636<br />
26167<br />
26168<br />
26169 6639<br />
26170 663A<br />
26171 663B<br />
26172<br />
26173<br />
26174 663E<br />
26175 663F<br />
26176<br />
26177<br />
26178 6642<br />
26179 6643<br />
26180 6644<br />
26181 6645<br />
BASIC<br />
77<br />
EI<br />
36 81<br />
CD 95 62<br />
Cl<br />
C9<br />
EXP<br />
C5<br />
7E<br />
B7<br />
CA E2 62<br />
23<br />
7E<br />
32 22 6A<br />
CB BE<br />
2B <br />
11 87 68 <br />
CD EI 5F<br />
E5 <br />
CD C9 61 <br />
05 <br />
CD B8 3A <br />
EI <br />
CD 97 3C <br />
E5 <br />
CO 21 3D <br />
AF <br />
BC <br />
C2 F5 20 <br />
7D <br />
32 21 6A <br />
01 <br />
EI <br />
E5 <br />
CO A6 50 <br />
1Z<br />
LD POP HL<br />
(H<br />
LO (H<br />
CALL 6<br />
POP BC<br />
RET<br />
PUSH<br />
LO A.<br />
OR A<br />
JP Z.<br />
INC H<br />
LO A.<br />
LO (6<br />
RES 7<br />
OEC H<br />
LO OE<br />
CALL<br />
PUSH<br />
CALL<br />
PUSH<br />
CALL<br />
POP H<br />
CALL<br />
PUSH<br />
CALL<br />
XOR A<br />
CP H<br />
JP NZ<br />
LO A.<br />
LO (6<br />
POP D<br />
POP H<br />
PUSH<br />
CALL
SEITE<br />
26182<br />
26183<br />
26184 6648<br />
26185 6649<br />
26186 664A<br />
26187<br />
26188<br />
26189 6640<br />
26190 664E<br />
26191 664F<br />
26192<br />
26193<br />
26194 6652<br />
26195 6653<br />
26196 6654<br />
26197<br />
26198 6656<br />
26199 6657<br />
26200 6658<br />
26201<br />
26202<br />
26203 665B<br />
26204<br />
26205 6650<br />
26206<br />
26~07<br />
26208 6660<br />
26209 6661<br />
26210<br />
26211 6663<br />
26212 6664<br />
26213 6665<br />
26214<br />
26215 6667<br />
26216 6668<br />
26217 6669<br />
26218<br />
26219<br />
26220 666C<br />
26221 6660<br />
26222 666E<br />
26223 666F<br />
26224<br />
26225 6671<br />
26226<br />
26227<br />
26228 6674<br />
26229 6675<br />
26230<br />
26231<br />
26232 6678<br />
26233<br />
26234<br />
26235 6678<br />
26236<br />
26237 6670<br />
26238<br />
26239 667F<br />
26240<br />
26241<br />
26242 6682<br />
26243<br />
458<br />
BASIC 1Z-013B<br />
05 PUSH OE<br />
E5 PUSH HL<br />
CO B5 3A CALL 3AB5<br />
01 POP OE<br />
EI POP HL<br />
CO Cl 61 CALL 61C1<br />
EB EX OE,HL<br />
AF XOR A<br />
06 08 LO B, 08<br />
C5 PUSH BC<br />
F5 PUSH AF<br />
CO 4A 5E CALL 5E4A<br />
38 07 JR C, 07 • 6664H<br />
CO A6 50 CALL 50A6<br />
Fl POP AF<br />
C8 FF SET 7,A<br />
F5 PUSH AF<br />
F1 POP AF<br />
CB 07 RLC A<br />
EB EX OE,HL<br />
F5 PUSH AF<br />
CO Cl 61 CALL 61C1<br />
Fl POP AF<br />
EB EX DE,HL<br />
Cl POP 8C<br />
10 E5 OJNZ E5 + 6656H<br />
32 23 6A LO (6A23),A<br />
05 PUSH DE<br />
11 70 68 LD DE, 687D<br />
3A 65 6A LD A. (6A65)<br />
CB 5F BIT 3.A ~<br />
20 03 JR NZ. 03 + 6682H<br />
11 82 68 LD OE. 6882<br />
CD El 5F CALL 5FE1<br />
V1.0A<br />
ZEIGER AUF RECHENBEREICH<br />
ZEIGER FRAC(ARGUMENT/LN 2)<br />
I PLUS EINS IM RECHEN<br />
ISPEICHER ABLEGEN<br />
ZEIGER AUF RECHENSPEICHER<br />
ZEIGER FRAC(ARGUMENT/LN 2)<br />
ZAHL (HL) DURCH ZWEI<br />
I ZAHLEN (HL) UNO (DE)<br />
I VERGLE I CHEN<br />
ZAHL (DE) GRöSSER<br />
- ROUTINE<br />
ZAHL (HL) DURCH ZWEI<br />
ZEIGER AUF LN(2) (Real)<br />
WERT - FLAG<br />
DOUBLE PRECISION ?<br />
JA<br />
ZEIGER AUF LN(2) (Real)<br />
* - ROUTINE<br />
26244<br />
26245 6685<br />
26246 6686<br />
26247 6687<br />
26248<br />
26249<br />
26250 668A<br />
26251 668B<br />
26252<br />
26253<br />
26254 668E<br />
26255<br />
26256 6690<br />
26257<br />
26258<br />
26259 6693<br />
26260<br />
26261<br />
26262 6696<br />
26263<br />
26264<br />
26265 6699<br />
26266<br />
26267<br />
26268 669C<br />
26269<br />
26270<br />
26271 669F<br />
26272 66AO<br />
26273 66A1<br />
26274<br />
26275<br />
26276 66A4<br />
26277<br />
26278<br />
26279 66A7<br />
26280<br />
26281<br />
26282 66AA<br />
26283<br />
26284<br />
26285 66AD<br />
26286<br />
26287<br />
26288 66BO<br />
26289 66Bl<br />
26290 66B2<br />
26291<br />
26292<br />
26293 66B5<br />
26294<br />
26295<br />
26296 66B8<br />
26297<br />
26298<br />
26299 66BB<br />
26300<br />
26301<br />
26302 66BE<br />
26303<br />
26304<br />
26305 66Cl<br />
BASIC<br />
D1<br />
D5<br />
CD B8 3A<br />
El<br />
3A 65 6A<br />
CB 5F<br />
CA 18 67<br />
CD BC 61<br />
11 72 3D<br />
CD AF 5D<br />
CD Cl 61<br />
Dl<br />
D5<br />
CO El 5F<br />
11 72 3D<br />
CO Cl 61<br />
CD AF 5D<br />
CD BC 61<br />
01<br />
05 <br />
CD EI 5F <br />
11 78 68 <br />
CO E1 5F<br />
CD BC 61<br />
CD 9B 62<br />
CD Cl 61<br />
1Z<br />
POP DE<br />
PUSH DE<br />
CALL 3A<br />
POP HL<br />
LD A. (6<br />
BIT 3,A<br />
JP Z, 6<br />
CALL 61<br />
LD OE.<br />
CALL 5D<br />
CALL 6<br />
POP OE<br />
PUSH O<br />
CALL 5<br />
LD OE.<br />
CALL 6<br />
CALL 5<br />
CALL 6<br />
POP DE<br />
PUSH O<br />
CALL 5<br />
LO OE.<br />
CALL 5<br />
CALL 6<br />
CALL 6<br />
CALL 6
SEITE 460<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z<br />
26306<br />
26307<br />
26308 66C4<br />
26309 66C5<br />
26310 66C6<br />
26311<br />
26312<br />
263 13 66C9<br />
26314<br />
26315<br />
26316 66CC<br />
26317 66CO<br />
26318 66CE<br />
26319<br />
26320<br />
26321 6601<br />
26322<br />
26323<br />
26324 6604<br />
26325 6605<br />
26326 6606<br />
26327 6607<br />
26328<br />
01<br />
05<br />
CO<br />
CD<br />
01<br />
05<br />
CO<br />
CO<br />
E3<br />
EB<br />
05<br />
CO<br />
E1<br />
9B<br />
El<br />
9B<br />
B5<br />
5F<br />
62<br />
5F<br />
62<br />
3A<br />
POP OE<br />
PUSH OE<br />
CALL 5FEl<br />
CALL 629B<br />
POP OE<br />
PUSH OE<br />
CALL 5FEl<br />
CALL 629B<br />
EX (SP).HL<br />
EX OE.HL<br />
PUSH OE<br />
CALL 3AB5<br />
26329<br />
26330 660A El POP HL<br />
26331 660B 11 28 68 LO OE. 6828<br />
26332<br />
26333<br />
26334<br />
26335<br />
26336<br />
26337<br />
26338<br />
26339<br />
26340<br />
26341<br />
26342<br />
263 43<br />
26344<br />
26345<br />
26346<br />
263 47<br />
26348<br />
26349<br />
660E<br />
66El<br />
66E3<br />
66E5<br />
66E7<br />
66E8<br />
66E9<br />
66EC<br />
66EO<br />
3A 23<br />
06 08<br />
CB 07<br />
30 07<br />
F5<br />
C5<br />
CD El<br />
Cl<br />
Fl<br />
6A<br />
5F<br />
LO A. (6A23)<br />
LO B. 08<br />
RLC A<br />
JR NC. 07<br />
PUSH AF<br />
PUSH BC<br />
CALL 5FEl<br />
POP BC<br />
POP AF<br />
~ 66EEH<br />
* - ROUTINE<br />
ZAHL (HL) PLUS EINS<br />
; * - ROUTINE<br />
ZAHL (HL) PLUS EINS<br />
I PLUS EINS NACH (OE)<br />
I üBERTRAGEN<br />
26368 6700<br />
26369<br />
26370<br />
26371 6703<br />
26372<br />
26373 6705<br />
26374 6706<br />
26375 6707<br />
26376 6708<br />
26377 6709<br />
26378<br />
26379<br />
26380 670C<br />
26381 6700<br />
26382 670E<br />
26383<br />
26384<br />
26385 6711<br />
26386 6712<br />
26387 6713<br />
26388<br />
26389<br />
26390 6716<br />
26391 6717<br />
I ZEIGER AUF KONSTANTEN<br />
26392 6718<br />
IFüR EXP-Il~RATION<br />
26393 6719<br />
26394 671A<br />
26395<br />
26396<br />
* - ROUTINE<br />
26350 66EE CO AO 3A CALL 3AAO I ZEIGER IN OE AUF NÄCHSTEN<br />
26351<br />
IWERT IN TABELLE STELLEN<br />
26352<br />
26353 66Fl<br />
26354<br />
26355 66F3<br />
26356<br />
26357<br />
26358 66F6<br />
26359 66F7<br />
26360<br />
26361<br />
26362 66FA<br />
26363 66FB<br />
26364 66FC<br />
26365<br />
10<br />
3A<br />
86<br />
DA<br />
77<br />
01<br />
CD<br />
FO<br />
21<br />
F5<br />
El<br />
6A<br />
20<br />
5F<br />
OJNZ FO ~ 66E3H<br />
LO A. (6A21)<br />
AOO A. (HL><br />
JP C. 20F5<br />
LO (HL>.A<br />
POP OE<br />
CALL 5FEl<br />
26366<br />
26367 66FF Cl POP BC<br />
• FEHLER 2 üBERLAUFFEHLER<br />
EXPONENTEN EINTRAGEN<br />
* - ROUTINE<br />
26397 6710<br />
26398 671E<br />
26399 671F<br />
26400<br />
26401 6721<br />
26402<br />
26403<br />
26404 6724<br />
26405<br />
26406<br />
26407 6727<br />
26408<br />
26409<br />
26410<br />
26411<br />
26412<br />
26413<br />
26414<br />
26415<br />
26416<br />
26417<br />
26418<br />
26419<br />
26420<br />
26421<br />
3A<br />
CB<br />
00<br />
C5<br />
05<br />
E5<br />
CO<br />
01<br />
D5<br />
CO<br />
El<br />
01<br />
CO<br />
Cl<br />
C9<br />
01<br />
05<br />
CO<br />
7E<br />
B7<br />
28<br />
CO<br />
CO<br />
C3<br />
22<br />
07<br />
B8<br />
B5<br />
CC<br />
El<br />
03<br />
Cl<br />
AF<br />
01<br />
6A<br />
3A<br />
3A<br />
60<br />
5F<br />
61<br />
Funktion LOG<br />
672A<br />
672B<br />
672E<br />
6731<br />
6734<br />
6735<br />
C5<br />
CO<br />
11<br />
CO<br />
Cl<br />
C9<br />
50<br />
66<br />
36 67<br />
19 68<br />
Et 5F<br />
LO A.<br />
RLC A<br />
RET N<br />
PUSH<br />
PUSH<br />
PUSH<br />
CALL<br />
POP O<br />
PUSH<br />
CALL<br />
POP H<br />
POP O<br />
CALL<br />
POP B<br />
RET<br />
POP O<br />
PUSH<br />
CALL<br />
LO A.<br />
OR A<br />
JR Z.<br />
CALL<br />
CALL<br />
JP 66<br />
PUSH<br />
CALL<br />
LO OE<br />
CALL<br />
POP B<br />
RET
SEITE 462 <br />
BASIC 1Z-013B V1_0A <br />
Funktion LN<br />
26422 6736 6751H<br />
C5 PUSH BC REGISTER RETTEN<br />
26423 6737 23 INC HL ZEIGER AUF MANTISSE<br />
26424 6738 7E LO A. (HLl MSBYTE MANTISSE ARGUMENT<br />
26425 6739 CB 07 RLC A VORZEICHEN NACH CARRY<br />
26426<br />
26427 6738 DA 01 21 JP C. 2101 I ARGUMENT NEGATIV ~<br />
26428 I DATENFEHLER<br />
26429<br />
26430 673E 2B DEC HL ZEIGER WIEDER AUF EXPONENT<br />
26431 673F 7E LD A. (HLl EXPONENT HOLEN<br />
26432 6740 B7 OR A GLEICH NULL ?<br />
26433 6741 CA 01 21 JP Z. 2101 I ARGUMENT GLEICH NULL<br />
26434 I-+- DATENFEHLER<br />
26435<br />
26436 6744 D6 81 SUB A. 81 I EXPONENTENZÄHLER FüR<br />
26437 I ERGEBNIS ERRECHNEN<br />
26438 6746 32 24 6A LD (6A24).A I<br />
26439<br />
26440<br />
26441 6749 36 81 LD (HLl. 81 INEUEN EXPONENTEN VORGEBEN<br />
26442 • (Wert 1 iegt zwischen 1 u 2<br />
26443 674B AF XOR A<br />
26444 674C 06 08 LD B. 08 8 VERGLEICHSWERTE<br />
26445<br />
26446 674E 11 28 68 LD DE. 6828 ZEIGER AUF SQR(2)<br />
26447<br />
26448<br />
26449 6751 C5 PUSH BC<br />
26450 6752 F5 PUSH AF<br />
26451 6753 CD 4A 5E CALL 5E4A IZAHLEN (HL> UND (DE)<br />
26452 I VERGLEICHEN<br />
26453<br />
26454 6756 38 OF JR C. OF ~ 6767H RESTWERT < VERGLEICHSWERT<br />
26455<br />
26456 6758 E5 PUSH HL ZEIGER AUF RESTWERT<br />
26457 6759 21 28 00 LO HL. 0028 IOFFSET ZUR ENTSPRECHENDEN<br />
26458 • Nten WURZEL AUS 1/2<br />
26459<br />
26460 675C 19 ADD HL.DE ZEIGER AUF TABELLE ERRECHN.<br />
26461 675D EB EX DE.HL<br />
26462 675E E3 EX (SP).HL<br />
26463 675F CO E1 5F CALL 5FE1 * - ROUTINE<br />
26464<br />
26465<br />
26466 6762 01 POP OE<br />
26467 6763 F1 POP AF ANGEPASSTEN EXPONENTEN HOL.<br />
26468 6764 CB FF SET 7.A<br />
26469<br />
26470 6766 F5 PUSH AF<br />
26471 6767 F1 POP AF<br />
26472 6768 CB 07 RLC A<br />
26473<br />
26474 676A CD AD 3A CALL 3AAD •• ZEIGER IN DE AUF NÄCHSTEN<br />
26475 'WERT IN TABELLE STELLEN<br />
26476<br />
26477 676D Cl POP BC<br />
26478 676E 10 E1 DJNZ El ~ 26479<br />
26480 6770 22 12 6A LD (6A12). HL<br />
26481<br />
BASIC 1Z<br />
26482<br />
26483 6773 CO C9 61<br />
26484<br />
26485<br />
26486 6776 EB<br />
26487 6777 5F<br />
26488 6778 16 00<br />
26489<br />
26490 677A CD 82 3A<br />
26491<br />
26492<br />
26493 677D 7E<br />
26494 677E B7<br />
26495 677F 28 03 <br />
26496 <br />
26497 6781 D6 08 <br />
26498 <br />
26499 6783 77<br />
26500 6784 3A 24 6A <br />
26501 <br />
26502 <br />
CALL 6<br />
EX DE<br />
LD E.A<br />
LD D.<br />
CALL 3<br />
LD A.<br />
OR A<br />
JR Z.<br />
SUB A<br />
LD (H<br />
LD A.<br />
26503 6787 FE 80 CP 8<br />
26504 <br />
26505 6789 3 8 02 JR C.<br />
26506 <br />
26507 6788 ED 44 NEG <br />
26508 <br />
PUSH<br />
26509 678D E5<br />
26510 678E CD C9 61<br />
26511 <br />
26512 <br />
26513 6791 EB<br />
26514 6792 22 14 6A<br />
26515 <br />
26516 <br />
26517 6795 5F<br />
26518 6796 16 00 <br />
26519 <br />
26520 6798 CD 82 3A<br />
26521 <br />
26522 <br />
26523 679B 3 A 24 6A <br />
26524 <br />
26525 <br />
26526 679E E6 80 <br />
26527 <br />
26528 67AO 23<br />
26529 67A1 B6<br />
26530 67A2 77<br />
26531 67A3 2 B<br />
26532 67A4 EB<br />
26533 67A5 E1<br />
26534 67A6 CD AF 50 <br />
26535 <br />
26536 <br />
26537 67A9 3A 65 6A <br />
26538 <br />
26539 <br />
26540 67AC 11 8C 68 <br />
26541 <br />
26542 <br />
26543 67AF FE 05<br />
CALL<br />
EX D<br />
LD (6<br />
LD E<br />
LD D<br />
CALL<br />
LD A<br />
AND<br />
INC<br />
OR (<br />
LD (<br />
DEC<br />
EX D<br />
POP<br />
CALL<br />
LO A<br />
LO D<br />
CP
SEITE 464 <br />
BASIC 1Z-013B V1.0A<br />
BASIC 1Z-<br />
26544 26606<br />
26545 67Bl 28 03 JR Z. 03 ~ 67B6H JA 26607 67EF 11 72 3D LO OE.<br />
26546 26608 <br />
26547 67B3 11 70 68 LO OE. 6870 I ZEIGER AUF LN(2) 26609 <br />
26548 I (hier müsste dann Double 26610 67F2 CD BC 61 CALL 61B<br />
26549<br />
26550 67B6 CD E1 5F CALL 5FEl * - ROUTINE<br />
26612 <br />
1 Precision-Wert stehen) 26611<br />
26551 26613 67F5 CD AF 50 CALL 50A<br />
26552 26614 <br />
26553 67B9 E5 PUSH HL 26615 <br />
26554 67BA EO 5B 14 6A LO OE. (6AI4) ZEIGER AUF RECHENSPEICHER 26616 67F8 CD .Cl 61 CALL 61<br />
26555<br />
26617 <br />
26556<br />
26557 26618 <br />
26619 67FB EB EX OE.H<br />
26558 67BE 2A 12 6A LO HL. (6A12) ZEIGER AUF RECHENSPEICHER 26620 67FC 2A 12 6A LO HL. (<br />
26559<br />
26621 <br />
26560 26622 <br />
26561 67Cl E5 PUSH HL 26623 67FF CD E1 5F CALL 5F<br />
26562 67C2 05 PUSH OE 26624 <br />
.26563 67C3 CD B8 3A CALL 3AB8 1 ZAHL VON (HL) NACH (OE) 26625 <br />
26564 1 üBERTRAGEN 26626 6802 11 lE 68 LO OE.<br />
26565<br />
26627 <br />
26566 67C6 El POP HL 26628 <br />
26567 67C7 CD 9B 62 CALL 629B ZAHL (HL) PLUS EINS 26629 6805 CD E1 5F CALL 5F<br />
26568 26630 <br />
26569 26631 <br />
26570 67CA E3 EX (SP).HL 26632 6808 01 POP OE <br />
26571 67CB CD A6 50 CALL 5DA6 - ROUTINE 26633 6809 CD AF 50 CALL 50<br />
26572 26634 <br />
26573 26635 <br />
26574 67CE 01 POP OE 26636 680C Cl POP BC <br />
26575 67CF CD CC 60 CALL 60CC / - ROUTINE 26637 6800 C9 RET <br />
26576 <br />
26577 <br />
26578 6702 05 PUSH OE Funkti on MOO (wird n<br />
26579 6703 CO B8 3A CALL 3AB8 1 ZAHL VON (HL) NACH (OE)<br />
26580 1 üBERTRAGEN 26638 680E CD CC 60 CALL 60<br />
26581<br />
26639 <br />
26582 6706 El POP HL 26640 <br />
26583 6707 05 PUSH OE 26641 6811 05 PUSH OE<br />
26584 6708 50 LD E.L 26642 6812 CD DA 3C CALL 3C<br />
26585 6709 54 LD D.H 26643<br />
26586 670A CD E1 5F CALL 5FEI ; * - ROUTINE 26644<br />
26587 26645 6815 01 POP OE<br />
26588 26646 6816 C3 El 5F JP 5FE1<br />
26589 6700 01 POP OE 26647 <br />
26590 670E E5 PUSH HL 26648 <br />
26591 670F 05 PUSH OE <br />
26592 67EO CD B8 3A CALL 3AB8 I ZAHL VON (HL) NACH (OE) <br />
26593 1 üBERTRAGEN 26649 6819 7F<br />
26594 26650 681A 5E 5B 08 A9 <br />
26595 67E3 EI POP HL 26651 <br />
26596 67E4 11 23 68 LO OE. 6823 ; ZEIGE AUF 5/3 (Real) 26652 <br />
26597 26653 <br />
26598 <br />
26599 67E7 CD AF 50 CALL 5DAF ; + - ROUTINE 26654 681E 7F<br />
26600 26655 681F 4C CC CC CD <br />
26601 26656 <br />
26602 67EA EB EX OE.HL 26657 <br />
26603 67EB EI POP HL 26658 <br />
26604 67EC CD EI 5F CALL 5FEl - ROUTINE <br />
26605 *
SEITE 466<br />
BASIC 1Z-0138 V1_0A<br />
~i<br />
, BASIC 1Z<br />
Ni 26716<br />
26659 6823 81 Exponent 1.6666667 26717<br />
26660 6824 55 55 55 56 Mantisse 1.6666667 26718<br />
26661 26719 685F 80<br />
{<br />
26662 (5/3) 26720 6860 75 25 70 16<br />
26663 26721<br />
26722<br />
26723<br />
Konstanten für EXP - Routine 26724 6864 80<br />
26725 6865 7A 83 B2 OC<br />
26664 6828 81 Exponent 1.4142136 26726<br />
26665 6829 35 04 F3 34 Mantisse 1.4142136 26727<br />
26666 26728<br />
26667 2te Wurzel (2) 26729 6869 80<br />
26668 26730 26669 6820 81 Exponent 1. 1892071 26731<br />
686A 70 3E OC 00<br />
26670 682E 18 37 FO 52 Mantisse 1.1892071 26732<br />
26671 26733<br />
26672 4te Wurzel (2) 26734 686E 80<br />
26673 26735 686F 7E 9E 11 50<br />
26674 6832 81 Exponent 1.0905077 26736<br />
26675 6833 OB 95 Cl E4 Mantisse 1.0905077 26737<br />
26676 26738<br />
26677 6te Wurzel (2). 26739 6873 80<br />
26678 26740 26679 6837 81 Exponent 1.0442738 26741<br />
6874 7F 4E CB 5A<br />
26680 6838 05 AA C3 68 Mantisse 1.0442738 26742<br />
26681 26743<br />
26682 8te Wurzel (2)<br />
26683<br />
26684 683C 81 Exponent 1. 0218972 26744 6878 7A<br />
' I<br />
26685 6830 02 CO 86 99 Mantisse 1.0218972 26745 6879 08 88 88 89<br />
26686 26746<br />
26687 lOte Wurzel (2) 26747<br />
26688 J<br />
'11 I 26748<br />
26689 6841 81 Exponent 1.0108893<br />
26690 6842 01 64 01 F4 Mantisse 1.0108893<br />
26691 26749 6870 80<br />
26692 12te Wurzel (2) 26750 687E 31 72 17 F8<br />
26693 26751<br />
26694 6846 81 Exponent 1.0054299 I<br />
I· i; 26752<br />
26695 6847 00 Bl EO 50 Mantisse 1.0054299 26753<br />
26696<br />
26697 14te Wurzel (2) 26754 6882 80<br />
26698 26755 6883 31 72 17 F8<br />
26699 684B 81 Exponent 1.0027113 26756<br />
26700 684C 00 58 07 03 Mantisse 1.0027113 I . 26757<br />
26701 26758<br />
26702 16te Wurzel (2)<br />
26703<br />
26759 6887 81<br />
26704 6850 80 Exponent 0.70710078 26760 6888 38 AA 38 2A<br />
26705 6851 35 04 F3 34 ; Mantisse 0.70710078<br />
26706<br />
J 26761<br />
26762<br />
26707 2te Wurzel (1/2) 26763<br />
26708<br />
26709 6855 80 Exponent 0.84089641<br />
26710 6856 57 44 FC CB Mantisse 0.84089641 26764 688C 80<br />
26711<br />
26765 6880 31 72 17 F8<br />
26712 4te Wurzel (1/2) 26766<br />
26713<br />
I:<br />
26767<br />
26714 685A 80 Exponent 0.91700404 • I 26768<br />
26715 685B 6A CO C6 E8 Mantisse 0.91700404
SEITE 468<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
ASCII-Zeile (DE) umsetzen in Zwischencode<br />
in P~og~ammspeiche~ einfügen<br />
26769 6891 AF<br />
26770 6892 32 D9 38<br />
26771<br />
26772<br />
XOR A<br />
LD (3809),A<br />
und<br />
ACCU<br />
CONT<br />
AUF NULL<br />
- FLAG<br />
26828 68CC 11 05 00 LD DE.<br />
26829<br />
26830<br />
26831<br />
26832<br />
26833<br />
26834<br />
68CF<br />
6800<br />
68D1<br />
19<br />
E5<br />
ED 4B E2 38<br />
26773 6895 32 D8 38 LD (38D8),A ON ERROR - FLAG<br />
26774 26837 6805 2A BF 6A LD HL.<br />
26775<br />
26776<br />
26777<br />
26778<br />
26779<br />
26780<br />
26781<br />
26782<br />
26783<br />
26784<br />
26785<br />
26786<br />
6898 32 80 6A LD (6riS0). A IFLAG Spaces IN<br />
I üBERSPRINGEN<br />
6898<br />
689E<br />
68Al<br />
68A2<br />
68A3<br />
CD<br />
CD<br />
78<br />
Bl<br />
CA<br />
2F<br />
38<br />
35<br />
4B<br />
CALL 352F<br />
CALL 4B38<br />
LD A,B<br />
OR C<br />
JP Z, 1876<br />
ZAHL<br />
I ZEIGER AUF ZEILEN IM<br />
IPROGRAMM IN ZEILEN<br />
INUMMERN UMSETZEN<br />
I (OE) VORHANDENE ASC I l<br />
I ZEILENNUMMER UMSETZEN<br />
I IN HEX NACH BC<br />
I ZEILENNUMMER GLEICH<br />
I NULL?<br />
JA ~ ZEILE AUSFüHREN<br />
26835<br />
26836<br />
26838<br />
26839<br />
ADD HL<br />
PUSH H<br />
LD BC.<br />
26840 68D8 18 05 JR 05<br />
26841<br />
26787<br />
76 18<br />
26788 26849 68E1 56 LD D. (<br />
26789<br />
26790 68A6<br />
26791<br />
26792<br />
26793<br />
26794 68AA<br />
26795 68AB<br />
26796<br />
26797 68AD<br />
26798<br />
26799 ö8AF<br />
26800 68BO<br />
26801 68Bl<br />
26802<br />
26803<br />
26804 6884<br />
26805<br />
26806<br />
26807 68B7<br />
26808 68B8<br />
26809<br />
26810<br />
26811 68BB<br />
26812 68BC<br />
26813 68BD<br />
26814<br />
26815<br />
26816<br />
26817<br />
26818<br />
26819<br />
26820<br />
26821<br />
26822<br />
26823<br />
26824<br />
26825<br />
26826<br />
26827<br />
68CO<br />
68Cl<br />
68C2<br />
b8C3<br />
68C6<br />
68C9<br />
68CA<br />
ED 43 E2 38<br />
1A<br />
FE 20<br />
20 01<br />
13<br />
F5<br />
21 Cl 6A<br />
CD 95 47<br />
E5<br />
2A E2 38<br />
50<br />
54<br />
CD 74 69<br />
E1<br />
Fl<br />
B7<br />
CA<br />
11<br />
87<br />
ED<br />
~C 69<br />
Cl 6A<br />
52<br />
LO (38E2),BC<br />
LD A,
26884<br />
26887<br />
26891<br />
26892<br />
26894<br />
26895<br />
26897<br />
26898<br />
26901<br />
26902<br />
26904<br />
26905<br />
26909<br />
26911<br />
26912<br />
26915<br />
26916<br />
26923<br />
26925<br />
26931<br />
26934<br />
26938<br />
I IN DE NICHT MIT STACK 26942 693E E5 PUSH<br />
ISTRINGARBEITSBEREICH 26946 6942 EB EX DE<br />
I MERI
27003<br />
27004<br />
27012<br />
27020<br />
27032<br />
27033<br />
27035<br />
27038<br />
27047<br />
27048<br />
27050<br />
698DH<br />
I<br />
27053<br />
27055<br />
27063<br />
27075<br />
27078<br />
27080<br />
27084 69CC 2B<br />
27090<br />
27094 <br />
27095 <br />
27098 <br />
27100<br />
27101<br />
27103<br />
27104<br />
27107<br />
27109<br />
27110<br />
27112<br />
27113<br />
DEC H<br />
BASIC 1<br />
27054 69AE 30 DA JR N<br />
27056 69BO 5E LD E<br />
27057 69B1 23 INC<br />
27058 69B2 56 LD D<br />
27059 69B3<br />
23 INC<br />
27060 69B4 7A LD A<br />
27061 69B5 B3 OR E<br />
27062 69B6 28 13 JR Z<br />
27064 69B8 EB EX D<br />
27065 69B9 19 ADD<br />
27066 69BA EB EX D<br />
27067 69BB IB DEC<br />
27068 69BC 1B I;>EC<br />
27069 69BD D5 PUSH<br />
NOCH PROGRAMM VORHANDEN 27070 69BE 5E LD E<br />
27071 69BF 23 INC<br />
27072 69CO 56 \-D D<br />
27073 69Cl EB EX D<br />
27074 69C2<br />
ED 42 SBC H<br />
27076 69C4 E1 POP H<br />
27077 69C5 38 E9 JR C<br />
27079 69C7 28 04 JR Z<br />
27081 69C9 EB EX D<br />
27082 69CA 2B DEC H<br />
27083 69CB 2B DEC H<br />
27085 69CD 01 POP D<br />
I 27086 69CE 05 Pl,ISH<br />
27087 69CF E5 PUSH<br />
27088 69DO B7 OR A<br />
27089 69D1 ED 52 SBC H<br />
27091 69D3 4D LD C<br />
27092 69D4 44 LD B,<br />
27093 69D5 2A 83 6A LD HL<br />
27096 69D8 87 OR A<br />
27097 69D9 ED 42 SBC H<br />
27099 69DB 22 B3 6A LD (6<br />
27102 69DE 2A DA 38 LD HL<br />
27105 69E1 87 OR A<br />
27106 69E2 ED 42 SBC H<br />
27108 69E4 22 DA 38 LD (3<br />
GLEICH ENDZEILENNUMMER 27111 69E7 2A B5 6A LD HL<br />
-+ 69CDH NUR EINE ZEILE LöSCHEN 27114 69EA B7 OR A<br />
PUSH DE ANFANG ZU LöSCHENDER BEREI.<br />
I ZEIGER WIEDER AUF ANFANG<br />
27036 699C E1 POP HL ZEIGER AUF FOLGENDE ZEILE<br />
I GERETTETE REGISTER HOLEN<br />
ZEIGER AUF ENDE BEREICH<br />
18 F8 JR F8 -+ 6985H GERETTETE REGISTER HOLEN<br />
ZEIGER AUF NÄCHSTE ZEILE<br />
21 00 00 LD HL, 0000 IZEILENNUMMER DER ZEILE<br />
-+ 697DH IZEILE IST KLEINER ALS<br />
PUSH HL ZEIGER AUF ENDE ZEILE<br />
ENDZEILENNUMMER HOLEN<br />
2A BF 6A LD HL, (6ABF) BASIC - PROGRAMMANFANG<br />
27009 6981 7B LD A.E IOFFSET GLEICH NULL?<br />
27031 6997 22 A7 69 LO (69A7),HL IN ROUTINE EINTRAGEN<br />
I ZEIGER AUF FOLGENDE<br />
I (Wird eingetragen)<br />
LD C,L IANFANGSZEILENNUMMER<br />
. SBC HL. BC GLEICH ANFANGSZEILE<br />
POP HL ANFANGSZEILENNUMMER<br />
IOFFSET AUF NÄCHSTE<br />
26998 6976 E5 PUSH HL ANFANGSZEILENNUMMER<br />
UND WIEDER MERKEN<br />
5E LO E. (HU I ZEILENNUMMER DER<br />
I ZEILE ERRECHNEN<br />
26996 6974 F5 PUSH AF I REGISTER RETTEN<br />
D1 POP DE ENDZEILENNUMMER<br />
ENDZEILENNUMMER<br />
I ANFANGSZEILE<br />
Zeilen löschen HL Anfangszeilennr. DE Endzeilennr.<br />
27028 6994 23 INC HL I ZEILE HOLEN<br />
I ZE I LE HOLEN<br />
27026 6992 D5 PUSH OE UND MERKEN<br />
BASIC 1Z-013B V1_0A<br />
27001 6979 44 LD B,H I NACH BC<br />
DEC DE I ZEILE<br />
27041 69Al lB DEC DE I<br />
27029 6995 56 LO 0, (HU I<br />
27016 6988 Fl POP AF I<br />
26997 6975 C5 PUSH BC I<br />
27011 6983 20 08 JR NZ, 08 •<br />
27(149 69A9 ED 42 SBC HL.BC<br />
27022 698E 19 ADD HL.OE<br />
27052 69AC 28 1F JR Z. IF<br />
EX DE,HL<br />
27037 699D 38 DE JR C. DE<br />
LD D, (HU<br />
27(105 697D 5E LD E, (HU<br />
27025 6991 EB EX OE,HL<br />
EX OE,HL<br />
27043 69A3 C5 PUSH BC<br />
27051 69AB El POP HL<br />
27042 69A2 Cl POP BC<br />
27039 699F 1B DEC OE<br />
26999 6977 05 PUSH DE<br />
27023 698F 2B OEC HL<br />
27024 6990 2B DEC HL<br />
27018 698A D1 POP OE<br />
27015 6987 Cl POP BC<br />
27008 6980 23 INC HL<br />
27006 697E 23 INC HL<br />
27010 6982 B2 OR D<br />
27017 6989 C9 RET<br />
27034 699A ED 42<br />
27040 69AO 1B<br />
27044 69A4 D5<br />
27045 69A5 E5<br />
27030 6996 EB<br />
SEITE 472<br />
27021 698D EB<br />
27014 6986 Ei<br />
27007 697F 56<br />
27(100 6978 4D<br />
27046 69A6<br />
27027 6993<br />
27019 698B<br />
27013 6985<br />
27002 697A
SEITE 474<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
27115 69EB ED 42 SBC HL.BC ZEIGER CORRIGIEREN<br />
27116<br />
27117 69ED 22 85 6A LD (6AB5).HL UND WIEDER MERKEN<br />
27118 27150 6AOE 00<br />
27119<br />
27120<br />
27121<br />
27122<br />
27123<br />
27124<br />
27125<br />
27126<br />
27127<br />
27128<br />
69FO<br />
69Fl<br />
69F2<br />
69F3<br />
69F4<br />
69F5<br />
69F6<br />
69F7<br />
27129<br />
27130 69FA<br />
27131 69FB<br />
27132<br />
27133 69FD<br />
27134 69FE<br />
27135 69FF<br />
27136 6AOO<br />
27137 6AOl<br />
27138<br />
27139 6A03<br />
27140 6A04<br />
27141<br />
27142<br />
27143<br />
27144<br />
6A07<br />
6A08<br />
6A09<br />
El<br />
01<br />
C5<br />
D5<br />
D5<br />
E5<br />
EB<br />
2A B7 6A<br />
B7<br />
ED 52<br />
4D<br />
44<br />
El<br />
01<br />
ED BO<br />
EB<br />
22 B7 6A<br />
El<br />
Cl<br />
C3 85 69<br />
POP HL<br />
POP DE<br />
PUSH BC<br />
PUSH OE<br />
PUSH DE<br />
PUSH HL<br />
EX<br />
LD<br />
27148<br />
27149<br />
27151<br />
ZEIGER AUF ENDE LöSCHBER.<br />
27152<br />
ZEIGER AUF ANFANG LöSCHBER.<br />
27153<br />
ZU LöSCHENDE LÄNGE<br />
I ZEIGER AUF ANFANG LöSCHB.<br />
I<br />
ZEIGER AUF ENDE LöSCHBER.<br />
DE.HL<br />
HL. (6AB7) I ZEIGER AUF<br />
ISTRINGARBEITSBEREICH<br />
OR A<br />
sec HL.DE<br />
LD C.L<br />
LD B.H<br />
POP HL<br />
POP DE<br />
LDIR<br />
EX DE.HL<br />
LD (6AB7).HL<br />
POP HL<br />
POP BC<br />
JP 6985<br />
CARRY-FLAG ZURüCKSETZEN<br />
I ZU VERSCHIEBENDE TEXT<br />
I LÄNGE ERRECHNEN<br />
I NACH BC<br />
I<br />
ZEIGER AUF ENDE LöSCHBER.<br />
ZEIGER AUF ANFANG LöSCHBER.<br />
I VORHANDENE TEXTSTRINGS<br />
I UND VARIABLE VERSCHIEBEN<br />
I ZEIGER AUF<br />
ISTRINGARBEITSBEREICH<br />
ZEIGER AUF ANFANG LöSCHBER.<br />
GELöSCHTE LÄNGE<br />
GERETTETE REGISTER HOLEN<br />
27154<br />
27155<br />
27156<br />
27157<br />
27158<br />
27159<br />
27160<br />
27161<br />
27162<br />
27163<br />
27164<br />
27165<br />
27166<br />
Systemspeicherbereiche<br />
6AOC<br />
6AOD<br />
6AOF<br />
6AI0<br />
6Al1<br />
6A12<br />
00<br />
00<br />
00<br />
00<br />
00<br />
00 00<br />
6A14 00 00<br />
27145<br />
27146 27169 6A21 00<br />
27147<br />
27170 6A22 00<br />
27167<br />
27168<br />
6A16<br />
6A18<br />
6AIA<br />
6AIC<br />
6AIE<br />
00 00<br />
00 00<br />
00 00<br />
00 00<br />
00<br />
6A1F 93 41<br />
27171 6A23 00<br />
27172 6A24 00<br />
27173 6A25 00<br />
27174 6A26 00<br />
27175 6A27 00<br />
27176 6A28 00<br />
27177 6A29 00<br />
27178 6A2A 00<br />
27179 6A2B 00<br />
27180 6A2C 00<br />
27181 6A2D 00<br />
27182 6A2E 00<br />
27183 6A2F 00<br />
27184 6A30 00<br />
27185 6A31 00<br />
27186 6A32 00<br />
27187 6A33 00<br />
27188 6A34 00<br />
27189 6A35 00<br />
27190<br />
27191<br />
27192<br />
6A36<br />
6A37<br />
6A38<br />
00<br />
00<br />
00<br />
27193 6A39 00<br />
27194 6A3A 00
SEITE 476<br />
BASIC 1Z-013B V1_0A BASIC 1<br />
27195 6A3B 00 27243 6A6B 00<br />
27196 6A3C 00 27244 6A6C 00<br />
27197 6A3D 00 27245 6A6D 00<br />
27198 6A3E 00<br />
27199 6A3F 27200 6A40 27201 6A41 00<br />
00<br />
00<br />
27202 6A42 00 27249<br />
27203 6A43 00 27250<br />
27204 6A44 00<br />
27205 6A45 00 27251 6A73 00<br />
27206 6A46 00 27252 6A74 27207 6A47 00<br />
, 27253 6A75 00<br />
00<br />
'J, i<br />
27208 6A48 00<br />
00<br />
27209 6A49<br />
27210 6A4A<br />
00<br />
00<br />
27211 6A4B<br />
27212 6A4C 00 27257<br />
27213 6A4D 00 27258<br />
27246 6A6E 00<br />
27247 6A6F 00 00 00<br />
27248<br />
27254 6A76 00<br />
27255 6A77 00 00 00<br />
27256<br />
00<br />
00<br />
27214 6A4E 00 27259 6A7B 00<br />
27215 6A4F<br />
27216 6A50<br />
27217 6A51<br />
27218 6A52<br />
27219 6A53<br />
00<br />
00<br />
00<br />
00<br />
00<br />
27220 6A54 00<br />
27221 6A55<br />
",<br />
1:1<br />
I' j~'<br />
27260 6A7C 00<br />
27261 6A7D 00<br />
27262 6A7E 00 00<br />
27263<br />
00<br />
27264 6A80 00<br />
27222 6A56 00<br />
27223 6A57 00 27265 6A81 00<br />
27224 6A58 00 ZEILENLÄNGEZÄHLER 27266 6A82 00<br />
27225 6A59 00 00 I ZEIGER FüR ERGEBNIS 27267 6A83 00<br />
27226 IRECHENROUTINEN<br />
27227 6A5B 00 VORZEICHEN ERGEBNIS +/<br />
27268 6A84 00<br />
27269 6A85 00<br />
27228 6A5C 00 00 IZWISCHENSPEICHER FüR 27270 6A86 00<br />
27229 I STACKPOINTER 27271 6A87 00<br />
27272 6A88 00<br />
27230 6A5E 00 00 IZWISCHENSPEICHER FüR 27273 6A89 00<br />
27231 ISTACKPOINTER 27274 6A8A 00<br />
27275 6A8B 00<br />
27232 6A60 00 ; FLAB üBERTRAG AUFGETRETEN 27276 6A8C 00<br />
27233 6A61 00 00 EXPONENT ERGEBNIS *<br />
27278 6A8E 00<br />
27277 6A8D 00<br />
27234 27279 6A8F 00<br />
27280 6A90 00<br />
27235 6A63 00 27281 6A91 00<br />
27282 6A92 00<br />
27236 6A64 00 27283 6A93 00<br />
27284 6A94 00<br />
27237 6A65 08 WERT - FLAG 27285 6A95 00<br />
27286 6A96 00<br />
27238 6A66 00<br />
Exponent ZWISCHENSPEICHER<br />
27287 6A97 00<br />
27239 6A67 00 00 00 00<br />
Manti!:ise ZWISCHENSPEICHER<br />
27288 6A98 00<br />
27240 27289 6A99 00<br />
27241 27290 6A9A 00<br />
27242 27291 6A9B 00<br />
27292 6A9C 00<br />
27293 6A9D 00
SEITE 478<br />
BASIC 1Z-013B V1.0A<br />
BASIC 1<br />
Die folgenden P~og~ammte<br />
27294 6A9E 00 Anlaufen vorhanden und w<br />
27295 6A9F 00<br />
27296 6AAO 00<br />
27297 6AA1 00 Copy~ight - Meldungen<br />
27298 6AA2 00<br />
27299 6AA3 00 27329 6ACl 00 W<br />
27300 6AA4 00 27330 6AC2 00 W<br />
27301 6A~5 00 27331 6AC3 20 S<br />
27302 6AA6 00 27332 6AC4 08<br />
27303 6AA7 00 27333 6AC5 08<br />
27304 6AA8 00 27334 6AC6 08<br />
27305 6AA9 00 27335 6AC7 08<br />
27306 6AAA 00 27336 6AC8 08<br />
27307 6AAS 00 27337 6AC9 08<br />
27308 6AAC 00 27338 6ACA 08<br />
27309 6AAO 00 27339 6ACB 08<br />
27310 6AAE 00 27340 6ACC 08<br />
27311 6AAF 00 27341 6ACO 08<br />
27312 6ASO 00 27342 6ACE 08<br />
27313 6AS1 00 27343 6ACF 08<br />
27314 6AS2 00 27344 6ADO 08<br />
27345 6AD1 08<br />
27315 6AB3 00 00 I ZEIGER AUF VARIABLE/ ij l<br />
27346 6AD2 08<br />
27316 I DEFINIERTE FUNKTIONEN<br />
j ,<br />
27347 6AD3 08<br />
' .I" 27348 6AD4 08<br />
27317 6AS5 00 00 I ZEIGER AUF ANFANG ,p 27349 6AD5 08<br />
27318 ISTRINGTEXTBEREICH 27350 6AD6 08<br />
'., I ~<br />
27351 6AD7 08 <br />
27319 6AS7 00 00 I ZEIGER AUF ANFANG ~!'j ,. 27352 6AD8 08<br />
27320 ISTRINGARSEITSBEREICH<br />
27353 6A09 08<br />
~I,<br />
27354 6AOA 08<br />
27321 6AB9 00 00 I ZEIGER AUF ANFANG<br />
,; ): ,<br />
27355 6AOB 08<br />
27322 I RECHENSPE I CHER 27356 6ADC 08<br />
,I•. ~: I 27357 6ADO 08<br />
27323 6ABB 00 00 LIMIT ,1. ".1 27358 6ADE 08<br />
27324 27359 6AOF 08<br />
27360 6AEO 08<br />
27325 6ABO 00 00 I MAXIMAL NUTZBARE<br />
27361 6AE1 08<br />
27326 I RAM-AORESSE 27362 6AE2 08<br />
{~ I 27363 6AE3 08<br />
27327 6ABF CF 6B BASIC - PROGRAMMANFANG 27364 6AE4 08<br />
27328 27365 6AE5 08<br />
27366 6AE6 08<br />
27367 6AE7 08<br />
27368 6AE8 08<br />
27369 6AE9 08<br />
273 70 6AEA 20 S<br />
273 71 6AEB 20 S<br />
273 72 6AEC 20 S<br />
273 73 6AED 20 S<br />
27374 6AEE 20 S<br />
27375 6AEF 42 B<br />
27376 6AFO 41 A<br />
27377 6AF1 53 9<br />
27378 6AF2 49 I<br />
27379 6AF3 43 C<br />
27380 6AF4 20 S<br />
27381 6AF5 49 I<br />
27382 6AF6 4E N<br />
27383 6AF7 54 T<br />
27384 6AF8 45 E
SEITE 480<br />
27385 6AF9 52<br />
27386 6AFA 50<br />
27387 6AF8 52<br />
27388 6AFC 45<br />
27389 6AFO 54<br />
27390 6AFE 45<br />
27391 6AFF 52<br />
27392 6E/CO 20<br />
27393 6801 20<br />
27394 6802 31<br />
27395 6803 5A<br />
27396 6804 20<br />
27397 6805 30<br />
27398 6806 31<br />
27399 6807 33<br />
27400 6808 42<br />
27401 6809 20<br />
27402 680A 56<br />
27403 6808 31<br />
27404 6BOC 2E<br />
27405 6800 30<br />
27406 6BOE 41<br />
27407 6BOF 20<br />
27408 6810 20<br />
27409 6811 20<br />
27410 6812 20<br />
27411 6813 00<br />
27412 6814 20<br />
27413 6815 20<br />
27414 6B16 20<br />
27415 6817 43<br />
27416 6818 4F<br />
27417 6819 50<br />
27418 681A 59<br />
27419 6818 52<br />
27420 681C 49<br />
27421 6810 47<br />
27422 681E 48<br />
27423 681F 54<br />
27424 6820 20<br />
27425 6821 28<br />
27426 6822 43<br />
27427 6823 29<br />
27428 6824 20<br />
27429 6825 31<br />
27430 6826 39<br />
27431 6827 38<br />
27432 6828 33<br />
27433 6829 20<br />
27434 682A 42<br />
27435 6828 59<br />
27436 682C 20<br />
27437 6820 53<br />
27438 682E 48<br />
27439 682F 41<br />
27440 6830 52<br />
27441 6831 50<br />
27442 6832 20<br />
27443 6833 43<br />
27444 6834 4F<br />
27445 6835 52<br />
27446 6836 50<br />
BASIC 1Z-013B V1.0A<br />
R<br />
P<br />
R<br />
E<br />
T<br />
E<br />
R<br />
1<br />
Z<br />
Space<br />
Space<br />
0<br />
1<br />
3<br />
8<br />
Space<br />
V<br />
1<br />
0<br />
A<br />
Space<br />
SFlace<br />
Space<br />
SFlace<br />
WagenrücklaLlf<br />
SFlace<br />
Space<br />
Space<br />
C<br />
0<br />
P<br />
Y<br />
R<br />
I<br />
G<br />
H<br />
T<br />
1<br />
9<br />
8<br />
3<br />
8<br />
Y<br />
S<br />
H<br />
A<br />
R<br />
P<br />
Space<br />
C<br />
0<br />
R<br />
P<br />
Space<br />
Space<br />
Spoilee<br />
Spaee<br />
I "<br />
I<br />
:/ !;<br />
.." • • ' t<br />
, ~.<br />
'I 1<br />
~ , i<br />
~i }:<br />
,<br />
IJ " .<br />
, I<br />
, ,.<br />
'I<br />
27447 6837 2E<br />
27448 6838<br />
27449 6839<br />
27450 683A<br />
27451 6838<br />
27452 683C<br />
27453 6830<br />
27454 683E<br />
27455 683F<br />
27456 6840<br />
27457 6841<br />
27458 6842<br />
27459 6843<br />
27460 6844<br />
27461 6845<br />
27462 6846<br />
27463 6847<br />
27464 6B48<br />
27465 6849<br />
27466 684A<br />
27467 6848<br />
27468 684C<br />
274p9 6840<br />
27470 684E<br />
27471 684F<br />
27472 6850<br />
27473 6851<br />
27474 6852<br />
27475 6853<br />
27476 6854<br />
27477 6855<br />
27478 6856<br />
27479 6857<br />
27480 6858<br />
27481 6859<br />
27482 685A<br />
27483 6858<br />
27484 685C<br />
27485 6850<br />
27486 685E<br />
27487 685F<br />
27488 6860<br />
27489 6861<br />
27490 6862<br />
27491 6863<br />
27492 6864<br />
27493 6865<br />
27494 6866<br />
27495 6867<br />
27496 6868<br />
27497 6869<br />
27498 686A<br />
27499 6868<br />
27500 686C<br />
27501 6860<br />
27502 686E<br />
27503 686F<br />
27504 6870<br />
27505 6871<br />
27506 6872<br />
27507 6873<br />
27508 6874<br />
20<br />
20<br />
20<br />
20<br />
20<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
C2<br />
20<br />
00<br />
20<br />
33<br />
36<br />
34<br />
33<br />
39<br />
20<br />
42<br />
59<br />
54<br />
45<br />
53<br />
20<br />
46<br />
52<br />
45<br />
BAsIC 1Z<br />
Spa<br />
Spa<br />
Spa<br />
Spa<br />
Spa<br />
--<br />
----------<br />
-<br />
-<br />
- •-Spo<br />
Wa<br />
Spo<br />
3<br />
6<br />
4<br />
3<br />
9<br />
8<br />
Y<br />
T<br />
E<br />
S<br />
F<br />
R<br />
E<br />
Spoi<br />
Spo<br />
(<br />
C<br />
)<br />
I,<br />
"<br />
I
~<br />
~<br />
~<br />
~<br />
2 27521<br />
2 27522<br />
2 27524<br />
2 27525<br />
2 27527<br />
2 27528<br />
2 27534<br />
2 27537 6891<br />
2 <br />
2 <br />
2<br />
2<br />
2<br />
2 <br />
2<br />
2 <br />
2<br />
2<br />
2<br />
2 <br />
2 <br />
2<br />
2 <br />
2<br />
2 '<br />
I<br />
I<br />
22 54 12 LD (1254) .HL IN BASIC-ROUTINE EINTRAGEN<br />
I RICHTIGE STELLE SCHIEBEN<br />
geladenen Basic-Interpreter an richtige Stelle schieben und starten<br />
LD C.L I LÄNGE BASIC-INTERPRETER<br />
LD DE. 0000 I LÄNGE 8ASIC-INTERPRETER<br />
LD HL. (1171 ) I XIV-KOORDINATE CURSOR<br />
I BASIC-INTERPRETER AN<br />
21 00 12 LD HL. 1200 I ZEIGER AUF GELADENEN<br />
lAUS MONITOR 1Z-013A<br />
I BASIC-INTERPRETER<br />
LD DE. 0000 UHRZEIT AUF 000000<br />
JP 0000 : KALTSTART MONITOR<br />
FLAG AUF VORMITTAG<br />
(Der ROM - Monitor lädt den Basic - Interpreter nach $1200)<br />
I UMSCHALTEN AUF<br />
UHRZEIT SETZEN<br />
IRAM AB $0000<br />
I ERRECHNEN<br />
BASIC 1Z-01313 V1_0A<br />
Textende<br />
Diese Routine steht nach dem Laden bei $7D79.<br />
2 27536 6890 44 LD B.H I<br />
21 79 68 LD HL. 6879 I<br />
~ 27510 6876 OD Wagenrücklauf<br />
~ 27511 6877 OD Wagenrücklauf<br />
2 27530<br />
2 27531<br />
2 27532 688C 87 OR A<br />
2 27533 6B8D EO 52 SBC HL.OE<br />
2 27517 6870 CD 33 00 CALL 0033<br />
:;: 27513 6B79 AF XOR A<br />
27509 6B75 45 E<br />
2 27526 6886 11 00 00<br />
2 27520 6880 2A 71 11<br />
~ 27514 687A 11 00 00<br />
~ 27515<br />
2 27535 688F 4D<br />
SEITE 482<br />
4 27512 6B78 00<br />
2 27529 6889<br />
2 27523 6883<br />
2 27538<br />
2 27539<br />
2 27540 6894 03 EO OUT (EO) .A<br />
2 27541<br />
2 27542 6896 ED 80 LOIR<br />
2 27543<br />
2 27544 6898 C3 00 00 <br />
2 27545<br />
2 27546<br />
2 27518<br />
2 27519<br />
2 27516
Wer das Beste aus seinem mz - 700 / 800 heraushoien<br />
will, kommt um dieses wertvolle Buch nicht herum!<br />
Auf ca 484 Seiten ist alles bestens und in deutsch<br />
dokumentiert von einem der besten Experten auf<br />
diesem Gebiet.<br />
o Wenn sie die versteckten Mögl ichkeiten Ihres Basic<br />
entdecken wollen ,<br />
o wenn Sie eigene Befehle implementieren möchten<br />
oder<br />
o wenn Sie Ihren mz - 700 / 800 besser verstehen<br />
wol len ,<br />
dann brauchen Sie dieses Buch!