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 434<br />
BASIC 1Z-013B V1.0A BASIC 1Z-0<br />
24885<br />
24886<br />
6135<br />
6136<br />
B7<br />
09<br />
OR A<br />
EXX<br />
CARRY-FLAG ZURüCKSETZEN Ergebnis Divisi o n aufbereiten<br />
24887 6137 EO 52 SBC HL,OE IDIVISOR EIN MAL 2 4943 616F F1 POP AF<br />
24888 I SUBTRAH I EREN 24944 6170 67 LO H,A<br />
24889 6139 09 EXX I 24945 61 7 1 D9 EXX<br />
24890 613A EO 52 SBC HL.OE I 2 4946 6172 Fl POP AF<br />
24891 24947 6173 5F LD E.A<br />
24892 613C 3F CCF 24948 6174 F1 POP AF<br />
24893 6130 38 E7 JR C. E7 + 6126H EIN BIT ERGEBNIS MERKEN 24949 6175 57 LD D,A<br />
24894 24950 6176 F1 POP AF<br />
24895 613F 09 EXX 24951 6177 4F LD C,A<br />
24896 6140 19 ADO HL.OE IRESTDIVIEND CORRIGIEREN 24952 6178 Fl POP AF<br />
24897 6141 09 EXX I 24953 6179 47 LD B.A<br />
24898 6142 ED 5A AOC HL.OE I 24954 617A Fl POP AF<br />
24899 24955 617B CB 78 BIT 7, B<br />
24900 6144 B7 OR A CARRY-FLAG ZURüCKSETZEN 24956<br />
24901 6145 17 RLA EIN BIT ERGEBNIS MERKEN 24957 6 17D 20 13 JR NZ, 1<br />
24902 6146 09 EXX 24958<br />
24903 6147 29 AOO HL,HL I DIVIDEND UM EINE STELLE 24959 6 17F D9 EXX<br />
24904 6148 D9 EXX I SCHIEBEN 24960 6 180 CB 24 SLA H<br />
24905 6149 EO 6A AOC HL,HL I 24961<br />
24906 :24962 6 182 09 EXX<br />
24907 614B 10 07 DJNZ 07 + 6154H WEITERE BITS DIESES BYTE 24963 6183 CB 13 RL E<br />
24908 2 4964<br />
24909 6140 F5 PUSH AF EIN BYTE ERGEBNIS MERKEN 24965 6185 CB 12 RL D<br />
24910 614E 06 08 LO B. 08 8 BIT JE BYTE 24966<br />
24911 24967 6187 CB 11 RL C<br />
24912 6150 00 DEC C RESTANZAHL BYTES 2 4968<br />
24913 6151 CA 6F 61 JP Z. 616F DIVISION DURCHGEFüHRT 24969 6189 CB 10 RL B<br />
24914 2 4970<br />
24915 2 4971 618B 3 0 DEC A<br />
24916 6154 09<br />
EXX<br />
2 4972 618C C2 7B 61 JP NZ, 6<br />
24917 6155 B7<br />
OR A CARRY-FLAG ZURüCKSETZEN<br />
24973<br />
24918 6156 EO 52 SBC HL,DE 24974<br />
24919 24975 618F C3 CO 5E J P 5ECO<br />
24920 6158 09 EXX 24976<br />
24921 6159 EO 52 SBC HL,DE 24977<br />
24922<br />
24923 6158 37 SCF ~ CARRY-FLAG SETZEN<br />
24924 6l5C 17<br />
RLA<br />
EIN BIT ERGEBNIS MERKEN<br />
Er gebnis der Division eventu<br />
24925 6150 10 06<br />
DJNZ 06 + 6165H • WEITERE BITS DIESES BYTE<br />
24926 24978 6192 D9 EXX<br />
24927 615F F5 PUSH AF EIN BYTE ERGEBNIS MERKEN 2 4979 6193 CB 14 RL H<br />
24928 6160 06 08 LD B. 08 ~ 8 BIT JE BYTE 24980<br />
24929 2 4981 6195 D9 EXX<br />
24930 6162 00 DEC C • RESTANZAHL BYTES 24982 6196 30 11 JR NC. 1<br />
24931 6163 28 OA JR Z. OA + 616FH ~ DIVISION DURCHGEFüHRT 24983<br />
24932 2 4984 6198 2 1 01 00 LD HL. 0<br />
2493 3 6165 09 EXX 2 4985<br />
24934 6166 29 ADD HL,HL I DIVIDEND UM EINE STELLE 24986<br />
2 49 ~ 5 6161 09 EXX I SCHIEBEN 24987 619B 19 ADD HL.O<br />
2 49 ~ 6 61Q8 ED 6A ADC HL,HL , I 24988 619C EB EX DE.HL<br />
249 ~ 7 24989 619D 21 00 00 LO HL. 0<br />
24939 616A 24939<br />
38 E8 JR C, E8 + 6154H 24990<br />
24991<br />
2 4940 616C C3 2 1 61 JP 6121 24992 61AO ED 4A ADC HL.B<br />
2494 1 24993<br />
2494 ~ 24994 61A2 44 LD B.H<br />
24995 61A3 4D LD C.L<br />
24996 61A4 30 0 3 JR NC, 0<br />
2 4997<br />
2 4998 61A6 06 80 LD B. 80