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 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