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 22<br />
BASIC 1Z-013B V1_0A<br />
BASIC 1Z<br />
1212<br />
1164 I UMRECHNEN 1213 04BD BE CP (HU<br />
1165 048D C3 6A 03 JP 036A GERETTETE REGISTER HOLEN 1214 04BE 28 07 JR Z. 0<br />
1166 1215<br />
1167 1216 04CO ~~ INC HL<br />
1168 0490 3E 20 LD A, 20 ICTRL-WERT ERRECHNEN 1217 04Cl 10 FA DJNZ FA<br />
1169 I 1218<br />
1170 0492 90 SUB B I 1219 04C3 AF XOR A<br />
1171 0493 C3 6A 03 JP 036A GERETTETE REGISTER HOLEN 1220 04C4 Cl POP BC<br />
1172 1221 04C5 EI POP HL<br />
1173 1222 04C6 C9 RET<br />
im Accu gesetztes Bit umsetzen in Bitnummer nach B 1223 04C7 3E 00 LD A. 0<br />
1224<br />
1174 0496 06 08 LD B, 08 VORGABE FüR WERT 1225 04C9 90 SUB B<br />
1175 1226 04CA Cl POP Be<br />
1176 0498 OF RRCA EIN BIT NACH CARRY SCHIEBEN 1227 04CB EI POP HL<br />
1177 0499 38 03 JR C, 03 ~ 049EH GESETZTES BIT GEFUNDEN 1228 04CC C9 RET<br />
1178<br />
1179 049B 10 FB DJNZ FB ~ 0498H WEITER SCHIEBEN<br />
1180 Zeichen im Accu umsetzen v<br />
1181 049D C9 RET<br />
1182 049E 05 DEC B WERT CORRIGIEREN 1229 04CD E5 PUSH H<br />
1183 049F C9 RET 1230 04CE C5 PUSH BC<br />
1231 04CF 4F LO C.A<br />
1232 04DO 06 00 LD B.<br />
Abfrage, ob SFT-BREAK gedrUckt; wenn Ja • Z-Flag bei 1233<br />
RUckkehr gesetzt. ist nur BREAK gedrUckt, wird das Programm 1234 04D2 21 FC OE LD HL.<br />
so lange angehalten, bi~ diese Taste losgelassen wird. 1235<br />
1236<br />
1184 04AO 3E E8 LO A, E8 I VORGABE FüR SPALTE 1237 0405 09 AOD HL<br />
1185 IMIT SHFIFT/BREAK - TASTE 1238 04D6 7E LD A. (<br />
1186 04A2 F3 01 INTERRUPT SPERREN 1239 04D7 Cl POP BC<br />
1187 04A3 D3 E3 OUT (E3), A I UMSCHALTEN AUF SYSTEM 1240 04D8 El POP HL<br />
1188 I ADRESSE AB $0000 1241 04D9 C9 RET<br />
1189 04A5 32 00 EO LD (EOOO),A ISPALTENNUMMER AN<br />
1190 I TASTATUR AUSGEBEN<br />
1191 ASCII - Te:{t ab (OE) bis O<br />
1192 04A8 00 NOP ZEIT SCHINDEN<br />
1193 04A9 3A 01 EO LD A, (E001) I ZEILENWERT VON TASTATUR 1242 04DA D5 PUSH O<br />
1194 I HOLEN 1243 040B lA LD A, <<br />
1195 1244 04DC B7 OR P<br />
1196 04AC D3 EI OUT (EI), A I UMSCHALTEN AUF 1245 04DO 28 06 JR Z.<br />
1197 I RAM AB $0000<br />
1246<br />
1198 04AE FB EI INTERRUPT FREIGEBEN 1247 04DF CO 3.3 05 CALL 0<br />
1199 04AF E6 81 AND A, 81 ; SHIFT UND BREAK MASKIEREN 1248<br />
1200 1249<br />
1201 04Bl C8 RET Z KEINE DER TASTEN GEDRüCKT 1250 04E2 13 INC OE<br />
1202 04B2 07 RLCA BREAK-TASTE NACH CARRY 1251 04E3 18 F6 JR F6<br />
1203 04B3 D8 RET C BREAK NICHT GEDRüCKT 1252<br />
1204 04B4 18 EA JR EA • 04AOH I WARTEN, BIS TASTE 1253 04E5 01 POP DE<br />
1205 I LOSGELASSEN WIRD 1254 04E6 C9 RET<br />
Zeichen im Accu von Anzeigecode in ASCII umsetzen<br />
1206 04B6 E5 PUSH HL I REGISTER RETTEN<br />
1207 04B7 C5 PUSH BC I<br />
1208 04B8 21 FC OE LO HL, OEFC I ZEIGER AUF AUF<br />
1209 I UMSETZTABELLEN<br />
1210<br />
1211 04BB 06 00 LD B. 00 TABELLE HAT 256 ZEICHEN