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