Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- forth:fgforth:kassette [2013/04/02 15:40] – volkerp
+++ forth:fgforth:kassette [2025/07/14 10:10] (aktuell) – [Get/Put Orig. Br.] volkerp
@@ Zeile 1: / Zeile 1: @@
 ====== Kassettenarbeit ======
+FORTH83 nutzt einen Teil des Hauptspeichers als RAM-Disk, um hier Screens abzulegen. Die Adressen SOD und EOD definieren Anfang und Ende dieses Speicherbereichs.
+  ORIGIN +
+  --------
+H  DW  TOP  ;oberste vom FORTH nutzbare Adresse
+H  DW  SOD  ;erste Adresse, die die RAM-Disk belegen kann
+BH  DW  EOD  ;letzte Adresse, die die RAM-Disk belegen kann
+Die Routinen zum Laden bzw. Abspeichern der RAM-Disk auf Kassette müssen für jeden Rechner speziell entwickelt werden. Selbstverständlich sollten dazu die Routinen benutzt werden, die das jeweilige Rechner-Betriebsprogramm dem Nutzer bietet. Aus Vereinheitlichungsgruenden werden dafür die Befehle PUT und GET empfohlen, die als nicht initialisierte Vektoren schon im Wörterbuch enthalten sind. Die entsprechenden Routinen sollten ins Vokabular I/O gelegt werden.
+Mit **1 GET** wird das Laden ab Screen 1 (Block 1) gestartet. Der Filename wird abgefragt. Am Ende des Ladens wird die Nummer n des letzten Screens angezeigt. Falls nicht mit --> programmiert wurde (der Normalfall), werden die Screens mit **1 n THRU** kompiliert, andernfalls mit 1 LOAD. Am Ende des Kompiliervorgangs kommt die Meldung "ok".
 ===== Glossar der Kassettenbedienworte =====
@@ Zeile 99: / Zeile 111: @@
 </code>
-===== Anpassung =====
+JUMP macht einen allg. [[z1013:software:headersave|Headersave]]-Funktionsaufruf.
+Es werden die Einsprungadressen aus dem [[z1013:software:sprungverteiler|]] genutzt.
+Mit JUAD wird das Wort JUMP modifiziert. NEW und OLD patchen das Wiederholungsflag; FILE und COM den Filetyp, SARUF! und LORUF! die eigentliche Funktion.
+<code>
+JUMP is
+A6A:    PUSH  AF
+A6B:    PUSH  BC
+A6C:    PUSH  DE
+A6D:    PUSH  HL
+A6E:    PUSH  IX
+A70:    PUSH  IY
+A72:    LD    IY,4300    ; offs 0Dh H(IY)=Typkennzeichen
+A76:    LD    A,4E       ; offs 0Fh A=0 ohne, A=4EH mit Typ und Namensabfrage, 3EH Wiederholen mit gleichem Kopf
+A78:    CALL  FFF4       ; offs 11h FFF1H - JMP LORUF, FFF4H - JMP SARUF
+A7B:    POP   IY
+A7D:    POP   IX
+A7F:    POP   HL
+A80:    POP   DE
+A81:    POP   BC
+A82:    POP   AF
+A83:    JP    0422
+A86: END
+nb: Aus Forth-Sicht müsste man nicht alle Register retten; BC und IY reichen.
+</code>
+==== Anpassung ====
+Kennung 'N' für Datei nutzen (statt 00h), d.h. Namensabfrage
   : NEW 4E 0F JUAD C! ; \ neudef
+===== Z9001 =====
+<file>
+Screen # 01 -----------------------
+\ 7 Kassettenroutinen VP-08JUL90
+
+I/O DEFINITIONS HEX
+
+0300 CONSTANT PANF
+
+001B CONSTANT DMA
+005C CONSTANT FCB  DECIMAL
+FCB 15 + CONSTANT BLNR
+FCB 17 + CONSTANT AADR
+FCB 19 + CONSTANT EADR
+FCB 21 + CONSTANT SADR
+FCB 23 + CONSTANT SBY
+
+
+
+Screen # 02 -----------------------
+\ Systemruf           VP-08JUL90
+
+HEX CODE CBOS   ( nr -- RegA f)
+  0E1 C, 0C5 C, 0E5FD , 4D C,
+  0CD C, 5 , 0E1FD , 0C1 C, 26 C,
+  0 C, 6F C, 0E5 C, 62ED ,
+  0E5 C, 0C3 C, >NEXT ,
+END-CODE
+
+CODE MAREK
+  0C5 C, 0E5FD ,
+  0CD C, 0FF59 , 0CD C, 0FAE3 ,
+  0E1FD , 0C1 C, 0C3 C, >NEXT ,
+END-CODE DECIMAL
+
+
+Screen # 03 -----------------------
+\ Systemroutinen      VP-08JUL90
+
+: OPENW ( -) CR 15 CBOS 2DROP ;
+: CLOSW ( -) 16 CBOS 2DROP ;
+: WRITS ( -) 21 CBOS 2DROP ;
+: OPENR ( - f) CR 13 CBOS NIP ;
+: READS ( - f1 f2) 20 CBOS ;
+
+
+: FTYP   ( adr # -- )
+    3 MIN FCB 8 + SWAP CMOVE ;
+
+: FNAME  ( name ( -- )
+    FCB 8 ERASE
+    BL WORD COUNT 8 MIN
+    FCB SWAP CMOVE ;
+Screen # 04 -----------------------
+\ Abspeichern 1       VP-08JUL90
+
+\ saven von AADR bis EADR
+: FILESAVE   ( -- )
+    EADR @ 1+
+    AADR @ DUP DMA ! -
+    128 /MOD DUP
+    IF SWAP 0= IF 1- THEN
+      0 ?DO WRITS SPACE LOOP
+    ELSE 2DROP THEN
+    CLOSW SPACE ;
+
+
+
+
+
+Screen # 05 -----------------------
+\ Laden               VP-08JUL90
+
+: STOPKEY   ( --)
+    KEY 3 = IF QUIT THEN ;
+
+: BLOCKLOAD  ( -- f)
+    BEGIN READS
+     WHILE DROP STOPKEY REPEAT ;
+
+: CLOAD ( name ( von --)
+    FLUSH 128 DMA !  FNAME
+    " F83" FTYP   BEGIN OPENR
+     WHILE STOPKEY REPEAT
+    'RAM DMA !
+    BEGIN BLOCKLOAD UNTIL
+    CR ." scr# " SADR ? ;
+Screen # 06 -----------------------
+\ Speichern           VP-08JUL90
+
+: CSAVE   ( name ( von bis --)
+    1+ 2DUP SWAP - SADR !
+    'RAM 1- EADR ! 'RAM AADR !
+    0 SBY C!
+    FNAME " F83" FTYP
+    OPENW SPACE FILESAVE ;
+ALSO FORTH DEFINITIONS
+: .FILES \ Anz. Files von Kass.
+    CR BEGIN 0 36 C!
+       128 DMA ! MAREK BLNR C@
+       0= IF 128 8 TYPE ASCII .
+       EMIT 136 3 TYPE CR THEN
+    36 C@ IF STOPKEY THEN AGAIN ;
+
+Screen # 07 -----------------------
+\ Vektorinit.         VP-08JUL90
+
+
+: SAVE-SYSTEM ( name ( --)
+    HERE EADR ! PANF DUP AADR !
+    SADR ! 0 SBY C!
+    FNAME " COM" FTYP
+    OPENW SPACE FILESAVE ;
+
+' CSAVE IS PUT
+' CLOAD IS GET
+
+ONLY FORTH ALSO DEFINITIONS
+
+8 LIST
+
+Screen # 08 -----------------------
+\S GLOSSAR
+n GET fname
+    Lesen File fname.F83 in RAM-
+    Disk ab Screen n
+
+n1 n2 PUT fname
+    Abspeichern Screens n1 bis n2
+    auf Kassette mit Namen fname
+
+SAVE-SYSTEM fname
+    Abspeichern FORTH als File
+    fname.COM
+
+.FILES
+    Anzeige der Filenamen von Kas
+    sette, Abbruch mit >STOP<
+</file>
+**MC Routinen dürfen BC (IP) und IY (RP) nicht verändern!**
+<code>
+CBOS: Aufruf Sprungverteiler, auf Stack wird die Funktionsnummer erwartet)
+A62  E1               POP     HL      ; Funktionsnummer
+A63  C5               PUSH    BC
+A64  FD E5            PUSH    IY
+A66  4D               LD      C,L
+A67  CD 05 00         CALL    0005H   ; Systemruf BOS
+A6A  FD E1            POP     IY
+A6C  C1               POP     BC
+A6D  26 00            LD      H,00H
+A6F  6F               LD      L,A     ; Rückgabe A -> HL
+A70  E5               PUSH    HL      ; auf Stack legen
+A71  ED 62            SBC     HL,HL   ; Cy als Flag
+A73  E5               PUSH    HL      ; auf Stack legen
+A74  C3 22 04         JP      0422H
+MAREK: Aufruf OS-Systemfunktion Lesen eines bel. Blocks von Kassette
+A81  C5               PUSH    BC
+A82  FD E5            PUSH    IY
+A84  CD 59 FF         CALL    0FF59H  ; KARAM
+A87  CD E3 FA         CALL    0FAE3H  ; INIT
+A8A  FD E1            POP     IY
+A8C  C1               POP     BC
+A8D  C3 22 04         JP      0422H
+</code>
+===== Beispiel =====
+Screens zählen ab 1. Je nach Größe der RAM-Disk unterscheidet sich die Maximal-Zahl an Screens. Ein Screen umfasst 512 Byte ( 1/2 KByte). z.B. Z9001 RAM-Disk Speicher 6000h-BFFFh entspricht 48 Screens (1..48)
+<code>
+I/O
+HEX SOD @ . 6000 ok
+EOD @ U. BFFF ok
+DECIMAL MAX# . 47 ok      ( EOD = C000h würde hier 48 bringen)
+</code>
+<code>
+EDIT
+	Screen editieren, Kommandos s. https://hc-ddr.hucki.net/wiki/doku.php/forth/fgforth/sedit
+	Ende mit CTR C - sichert Screen im RAM und verlaesst Editor
+LOAD
+	übersetzt Screen in Forth-Wörterbuch
+1 PUT TEST1
+	sichert Screen 1 bis 1 auf Massenspeicher als Datei "TEST1.F83"
+GET TEST1
+	lädt Datei "TEST1.F83" nach Screen 1 ff.
+</code>