Dies ist eine alte Version des Dokuments!
Kassettenarbeit
Glossar der Kassettenbedienworte
GET ( n – ) Voc FORTH
liest ab Screen n über den Header von Kassette.
PUT ( n1 n2 – ) Voc FORTH
schreibt von Screen n1 bis Screen n2 einschließlich auf Kassette.
SAVE-SYSTEM ( – ) Voc FORTH
schreibt das gesamte aktuelle System einschließlich eingebrachter Erweiterungen auf Kassette.
MORE ( – ) Voc FORTH
wiederholt den vorangegangenen Lese/Schreibvorgang von/auf Kassette mit dem gleichen Kopf.
Get/Put Orig. Br.
Kassettenroutinen für Z1013.
Die Variante Get/Put Alpha unterscheidet sich nur in der Definition von PRST. Es wird die Adresse 200 genommen (200 CONSTANT PRST), s. Installation.
Screen # 01 ----------------------- 00 ( RAM-SAVE ueber Header 5.95) 01 ONLY FORTH ALSO I/O 02 ALSO ASSEMBLER 03 I/O DEFINITIONS HEX 04 1B CONSTANT ANFA \ Z. anfadr 05 1D CONSTANT ENDA \ Z. endadr 06 23 CONSTANT STA \ Z. stadr 07 200 CONSTANT PRAN \ Prog.anfang 08 320 CONSTANT PRST \ Prog.start 09 \ muss angpasst werden 320 10 : SAVA ( von bis BLnr ---) 11 1+ 'RAM 1- ENDA ! 12 'RAM ANFA ! 13 PRST STA ! ; 14 \ legt Adressen fuer Header 15 \ fest Screen # 02 ----------------------- 00 ( RAM-SAVE ueber Header 5.95) 01 CODE JUMP 02 F5 C, C5 C, D5 C, E5 C, 03 DD C, E5 C, FD C, E5 C, 04 FD C, 21 C, 4300 , \ C-Eintr. 05 3E C, 00 C, 06 \ pusht Register 07 CD C, FFF1 , \ Sprungadr 08 FD C, E1 C, 09 DD C, E1 C, E1 C, D1 C, 10 C1 C, F1 C, C3 C, 422 , 11 \ popt Register 12 END-CODE 13 14 15 Screen # 03 ----------------------- 00 ( RAM-SAVE ueber Header 5.95) 01 FFF4 CONSTANT SARUF \ UP-save 02 FFF1 CONSTANT LORUF \ UP-load 03 \ b. 16K 3C00 LOR. 3C03 SAR. 04 : JUAD ['] JUMP + ; \ Anspr 05 : NEW 00 0F JUAD C! ; \ neudef 06 : OLD 3A 0F JUAD C! ; \ wiederh 07 : FILE 46 0D JUAD C! ; \ F eint 08 : COM 43 0D JUAD C! ; \ C eint 09 : SARUF! SARUF 11 JUAD ! JUMP ; 10 : LORUF! LORUF 11 JUAD ! JUMP ; 11 \ traegt UP ein ueber Sprungver 12 DEFER EXPAN \ vekt Erweiterung 13 : ILL ; ' ILL IS EXPAN 14 \S ermoeglicht zusaetzliche 15 Erweiterungen fuer Check Screen # 04 ----------------------- 00 ( RAM-SAVE ueber Header 5.95) 01 : RAM-LOAD ( ab nscr ---) CR 02 'RAM ANFA ! NEW FILE LORUF! 03 EXPAN EMPTY-BUFFERS ; 04 : RAM-SAVE ( n1 n2 --) CR SAVA 05 NEW FILE EXPAN SARUF! ; 06 07 ALSO FORTH DEFINITIONS 08 : SAVE-SYSTEM ( ---) 09 PRAN ANFA ! HERE ENDA ! 10 PRST STA ! NEW COM EXPAN 11 SARUF! ; 12 : MORE OLD JUMP ; \ wiederh.UP 13 14 ' RAM-LOAD IS GET ( n --) 15 ' RAM-SAVE IS PUT ( von bis --)
Anpassung
- NEW 4E 0F JUAD C! ; \ neudef