Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Untitled - The Sharp MZ-Series
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
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