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