Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- forth:popforth [2025/01/06 13:25] – angelegt volkerp
+++ forth:popforth [2025/07/16 07:37] (aktuell) – [POPFORTH] volkerp
@@ Zeile 1: / Zeile 1: @@
 ====== POPFORTH ======
-POPFORTH ist ein public domain Z80-figFORTH-Derivat von 1987.
+POPFORTH ist ein public domain Z80-figFORTH-Derivat von 1986, Ralf Neuthe, Wilhelm-Pieck-Universitaet Rostock.
 Ich habe 2024 eine Binärdatei nebst Dokumentation erhalten. Die original Assemblerquelle fehlte.
 Deshalb habe ich das Forth reassembliert und an die Lables und Kommentare des originalen figFORTH 1.10 angepasst.
@@ Zeile 10: / Zeile 10: @@
    * {{ :forth:popforth.zip |}} Binary, Dokumentation, Assemblerquelltext (nicht das beschriebene Original) sowie zum Vergleich die Quellen zu figFORTH 1.10
+   * {{ :forth:popforth.pdf |}} originale Wordstar-Beschreibung als PDF-Dokument
 ===== Beschreibung =====
@@ Zeile 53: / Zeile 54: @@
 Tel.45283.
+===== Lauf =====
+<code>
+C0>dir
+C: POPFORTH COM
+C0>popforth
+?
+***************************************************************
+                  popFORTH - Initialisierung
+---------------------------------------------------------------
+Welches Laufwerk soll DR0 entsprechen? (A,B,...,H) C
+Wieviel Laufwerke sollen ab einschliesslich Laufwerk C
+aufwaerts benutzt werden? (0...8) 1
+Alle Disketten einlegen, dann RETURN druecken
+***************************************************************?
+***************************************************************
+          Z80  popFORTH 1.0  -  public domain version
+         ===> vollstaendig kompatibel zu figFORTH <===
+---------------------------------------------------------------
+erstellt von: R. Neuthe
+              Wilhelm-Pieck-Universitaet Rostock
+              WB Automatische Steuerungen
+---------------------------------------------------------------
+Diskettenkapazitaet      : bis Screen # 0
+freier Raum im Dictionary: 53125 Bytes
+***************************************************************
+  ok
+.CPU Z80  ok
+VLIST
+TASK   ED   WHERE   EDITOR   LINE   TEXT   TRIAD
+INDEX   LIST   BLOCK   MAXBLK   BUFFER   DR1   DR0
+EMPTY-BUFFERS   UPDATE   +BUF   FLUSH   (LINE)   R/W
+T&SCALC   SEC-WRITE   SEC-READ   DISK-PARM!   SEC/DSK
+SEC/TRK   DRIVE0   DPK@   RES_DSK   SET-DRIVE   SET-IO
+OFFSET   DISK-ERROR   PREV   USE   TRACK   SEC   DRIVE
+SCR   SEC/BLK   LIMIT   FIRST   #BUFF   B/SCR   B/BUF
+C/L   .CPU   .LINE   ID.   VLIST   U.   ?   .   D.
+.R   D.R   -TRAILING   TYPE   COUNT   SPACES   SPACE
+BL   EXPECT   #S   #   SIGN   #>   <#   PAD   HOLD
+BINARY   DECIMAL   HEX   HLD   R#   FLD   DPL   OUT
+P!   P@   ?TERMINAL   CR   KEY   EMIT   +LOOP   LOOP
+DO   WHILE   ELSE   IF   REPEAT   AGAIN   UNTIL   ENDIF
+BEGIN   BACK   (   IMMEDIATE   DLITERAL   LITERAL
+COMPILE   [COMPILE]   ."   ]   [   STATE   DEFINITIONS
+-->   LOAD   ?LOADING   ?STACK   ?CSP   !CSP   ?PAIRS
+?EXEC   ?COMP   ?ERROR   MESSAGE   ERROR   (ABORT)
+BYE   (BYE)   COLD   WARM   ABORT   QUIT      INTERPRET
+NUMBER   (NUMBER)   DIGIT   -FIND   (FIND)   WORD
+ENCLOSE   QUERY   CSP   BASE   IN   BLK   WARNING
+TIB   FORGET   '   SMUDGE   LATEST   PFA   NFA   CFA
+LFA   TRAVERSE   C,   ,   ALLOT   HERE   FORTH   CURRENT
+CONTEXT   VOC-LINK   DP   FENCE   WIDTH   3   2   1
+   VOCABULARY   DOES>   <BUILDS   USER   VARIABLE
+CONSTANT   NOOP   ;   ;S   :   CREATE   ;CODE   (;CODE)
+M/MOD   */   */MOD   MOD   /   /MOD   *   M/   M*
+U/   U*   MAX   MIN   DABS   ABS   D+-   +-   S->D
++   1+   -   DMINUS   MINUS   D+   +   >   U<   <
+=   0<   0=   XOR   OR   AND   +ORIG   BLANKS   ERASE
+FILL   CMOVE   TOGGLE   +!   2!   C!   !   2@   C@
+@   LEAVE   R>   >R   R   I   RP!   RP@   SP!   SP@
+R0   S0   -DUP   ROT   2DUP   DUP   SWAP   DROP   OVER
+(.")   (DO)   (+LOOP)   (LOOP)   0BRANCH   BRANCH
+EXECUTE   LIT    ok
+</code>