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 302 <br />
BASIC 1Z-013B V1_0A <br />
17775 456F El POP HL PROGRAM<strong>MZ</strong>EIGER HOLEN <br />
17776 4570 C9 RET NÄCHSTER BEFEHL <br />
ein Zeichen aus Dateipuffer bereitstellen<br />
17777 4571 E5 PUSH HL I REGISTER RETTEN <br />
17778 4572 C5 PUSH BC I <br />
17779 4573 CD B5 45 CALL 45B5 I üBERPRüFEN, OB NOCH <br />
17780 I ZEICHEN IM PUFFER SIND <br />
17781 <br />
17782 4576 DA 89 45 JP C, 4589 INEIN ~ FEHLER 63 <br />
17783 I OUT OF FILE ERROR <br />
17784 <br />
17785 4579 CD 96 46 CALL 4696 I ZEIGER AUF DATEI-PUFFER <br />
17786 lAUF NÄCHSTES ZEICHEN <br />
17787 I BERE I TSTELLEN <br />
17788 457C 7E LD A, (HL) ZEICHEN AUS PUFFER HOLEN <br />
17789 457D FD 34 OB INC (IY+081 OFFSET AUF PUFFER PLUS 1 <br />
17790 <br />
17791 <br />
17792 4580 20 04 JR NZ, 04 ~ 4586H NOCH ZEICHEN IM PUFFER <br />
17793 <br />
17794 4582 FD 36 OC 00 LD (IY+OC1, 00 CODE PUFFER LEER <br />
17795 <br />
17796 <br />
17797 <br />
17798 4586 Cl POP BC I GERETTETE REGISTER HOLEN <br />
17799 4587 El POP HL I <br />
17800 4588 C9 RET <br />
17801 4589 3E 3F LD A, 3F I FEHLER 63 <br />
17802 laUT OF FILE ERROR <br />
17803 458B C3 08 21 JP 2108 FEHLER BEHANDELN <br />
17804 <br />
17805 <br />
17806 458E 04 DATEI-TYP-FLAG<br />
bei <strong>MZ</strong>-80 K - Datei überprüfe.n, ob noch Zeichen im Puffer sind<br />
17807 458F FD 7E OC LD A, (IY+OCl FLAG PUFFER LEER <br />
17808 <br />
17809 <br />
17810 4592 B7 OR A ; GESETZT ? <br />
17811 4593 20 18 JR NZ, 18 ~ 45ADH NaCH DATEN IN PUFFER <br />
17812 <br />
17813 4595 01 90 00 LD BC, 0090 OFFSET ZUR PUFFERSTELLE <br />
17814 <br />
17815 <br />
17816 4598 09 ADD HL,BC ZEIGER AUF PUFFERSTELLE <br />
17817 4599 01 80 00 LD BC, 0080 ; BLOCKLÄNGE BEI <strong>MZ</strong>-80 K <br />
17818 <br />
17819 <br />
17820 459C CD 4F 47 CALL 474F ITEXTAUSGABEFLAG FüR <br />
17821 I BAND SETZEN <br />
17822 <br />
17823 459F CD 2A 00 CALL 002A I NÄCHSTEN BLOCK VOM BAND <br />
17824 I LESEN <br />
BASIC 1Z-<br />
17825 <br />
17826 45A2 DA 7E 47 JP C, 47<br />
17827 <br />
17828 <br />
1782945A5 FD 36 OB 80 LD (IY+O<br />
17830 <br />
17831 <br />
17832 <br />
17833 45A9 FD 36 OC 01 LD (IY+C<br />
17834 <br />
17835 <br />
17836 <br />
17837 45AD CD 96 46 CALL 46<br />
17838 <br />
17839 <br />
17840 45BO 7E LD A, (H<br />
17841 45B1 FE FF CP FF<br />
17842 <br />
17843 4583 18 3C JR 3C<br />
17844 <br />
übeprUfen, ob noch Zeichen<br />
17845 4585 C5 <br />
PUSH BC<br />
17846 45B6 D5 PUSH DE<br />
17847 4587 E5 PUSH HL<br />
17848 45B8 CD 26 46 CALL 46<br />
17849 <br />
17850 <br />
17851 45 BB FD E5 PUSH IY<br />
17852 <br />
17853 45BD E1 POP HL<br />
17854 45BE 3 A 8E 45 LD A, (4<br />
17855 <br />
17856 <br />
17857 45C1 FE 03 CP 03<br />
17858 <br />
17859 45C3 28 CA JR Z, C<br />
17860 <br />
17861 45C5 01 OE 00 LD BC.<br />
17862 <br />
17863 <br />
17864 45C8 09 ADD HL,<br />
17865 45C9 FD 7E OC LD A, (I<br />
17866 <br />
17867 <br />
17868 45CC B7 OR A<br />
17869 45CD 20 00 JR NZ,<br />
17870 <br />
17871 45CF ES PU6H HL<br />
17872 45DO CD Fa 45 CAL~ 4~<br />
17873 <br />
17874 <br />
17875 45D3 E1 POP- HL<br />
17876 4504 FD 36 08 00 LP CIY+<br />
17877 <br />
17878 <br />
17879 <br />
17880 45D8 FD 3 6 oe 01 LD (IY+<br />
17881 <br />
17882