Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Erfolgreiche ePaper selbst erstellen
Machen Sie aus Ihren PDF Publikationen ein blätterbares Flipbook mit unserer einzigartigen Google optimierten e-Paper Software.
SEITE 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