Glossar

Glossarium des Z80 FORTH 83 der IG Forth

Der Aufbau einer Wortbeschreibung im Glossarium:

Wortname – M, „aussprache“
ausfuehrliche Beschreibung des Wortes Wortname

Dabei bedeutet Wortname das jeweilige FORTH-Wort und „aussprache“ gibt die englische Sprechweise desselben an, wenn diese nicht aus dem Wort selbst hervorgeht.

– entspricht der Stackbilanz des Wortes. Links von – stehen die Stackparameter (Angaben ueber den Stack) vor und rechts nach Abarbeitung des Wortes. Dabei ist zu beachten, dass auf der linken und rechten Seite von – der am weitesten rechts stehende Wert die Datenstackspitze darstellt.

Die jeweiligen Wortnamen sind durch Fettdruck hervorgehoben. Die in den Erlaeuterungen der Worte ebenfalls durch Fettdruck her- vorgehobenen Woerter verweisen auf andere Definitionen, die gleichfalls im Glossarium aufgefuehrt und beschrieben sind.

Die letzte Positon der Kopfzeile gibt weitere Informationen ueber die Worte:

Fals das Wort nicht im Grundvokabular FORTH enthalten ist, erfolgt die Angabe des entsprechenden Woerterbuches.

Erlaeuterung der Stackparameter:

!  16b adr --   "store"
   16b wird in adr abgespeichert

!CSP       --   "store-c-s-p"
   Mit  diesem  Befehl wird der Inhalt des Datenstackzeigers  in 
   CSP gerettet.  Er wird zur Erhoehung der Uebersetzungssicher-
   heit verwendet.

"          --
   Compiliert in :-Definitionen einen String ins Worterbuch mit 
   der Laufzeitroutine (").  Waehrend Runtime werden Adresse und 
   Laenge des Strings auf den Stack hinterlegt.

#      +d1 -- +d2  "sharp"
   Ausgabekonvertierungsschritt  (+d1 /  Zahlenbasis),  Ergebnis 
   +d2;  aus Divisionsrest generiertes Zeichen wird vor dem  er-
   sten Zeichen der Ausgabekette angefuegt.

#> 32b -- adr +n "sharp-greater"
   Beendigung  der Ausgabekonvertierung,  Entfernen des 32b-Wer-

   tes. adr ist Adresse, +n Laenge der Zeichenkette (Format fuer 
   TYPE).

#LINE  -- adr U       "sharp-line"
   Ist  eine  System-Variable.  Der Inhalt der  Adresse  (adr) 
   entspricht  der Anzahl der CR,  die seit dem letzten Rueck-

   setzen ausgesandt wurden.

#OUT       -- adr U
   Ist eine Systemvariable,  die einen Wert enthaelt,  der durch    
   EMIT inkrementiert wird.  Der Benutzer kann #OUT auslesen oder    
   veraendern, um die Display-Formatierung zu steuern. 

#S      +d -- 0 0  "sharp-s"
   Folge  von  Konvertierungsschritten an  +d,  Generierung  der
   Ausgabezeichenkette  so lange,  bis bei #-Teilschritt 0
   entsteht.  Fuer  +d  = 0 Uebernahme einer einzelnen 0 in 
   Ausgabezeichenkette. Vgl. <# #>

#TIB       -- adr "number-t-i-b"
   Adresse der Variablen,  die die aktuelle Byteanzahl im  Text-
   eingabepuffer  enthaelt.  

#THREADS   -- n  "sharp-threads"
   Ist eine System-Konstante (Anzahl der Hash-Faeden). Vgl. HASH

#USER      -- addr
   Systemvariable,  die  den Offset zum ersten unbelegten Feld im 
   USER-Area enthaelt. Sie wird bei Definition von USER-Variablen 
   und -Vektoren automatisch nachgestellt.

#VOCS      -- n  "sharp-vocs"
   Ist  eine System-Konstante,  maximale Anzahl der  Woerterbue-
   cher,  die  durch CONTEXT in der Reihenfolge  festgelegt  und 
   durchsucht werden (siehe auch ORDER).

'          -- adr M,  "tick"
   Mit  '  Wortname   wird  die  Compilationsadresse  (CFA)   von 
   Wortname  ermittelt.  Fehler:  Wortname kann in der  aktuellen 
   Suchreihenfolge nicht gefunden werden.

'RAM     n -- adr
   Vok.: I/O
   rechnet  die Blocknummer n in die Adresse des Blockes in  der 
   RAM-Disk um. Prueft dabei, ob der Block ueberhaupt verfuegbar 
   ist; sonst ABORT.

'TIB       -- adr   "tick-t-i-b"
   Ist  eine  Variable,  welche die Anfangsadresse des TIB  ent-
   haelt.  Durch Aenderung des Inhalts von 'TIB kann der  Anfang 
   des TIB beliebig veraendert werden.
 
(          -- I, M, "paren"
   Kommentarzeichen.  Mit ( ccc) wird der Kommentar ccc einge-
   geben,  Abschluss durch ).  Keine Verarbeitung von ccc; Das 
   Leerzeichen nach ( zaehlt nicht zum Text.  


(.)      n -- a c
   Ist die Kern-Routine von .,  Konvertierung von n als String 
   in PAD.

(.")       --
   Vok.: HIDDEN
   Die  durch ." compilierte Laufzeit-Routine,  uebertraegt  den 
   nachfolgenden Text bis " auf die Konsole.

(")        -- a c
   Vok.: HIDDEN
   Die  durch  "  compilierte  Laufzeit-Routine,  hinterlaeszt 
   Adresse und Count des folgenden Textes auf dem Datenstack.

(+LOOP)  n --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von +LOOP (siehe dort).
     
(;CODE)    --
   Vok.: HIDDEN
   Ist  die  durch ;CODE (siehe dort) compilierte  Laufzeit-Rou-
   tine.

(;USES)    --
   Vok.: HIDDEN
   Ist  die  durch  ;USES (siehe  dort)  complilierte  Laufzeit-
   Routine.
 
(?DO)  n1 n2 --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von ?DO. 
   Sind beide Zahlen gleich, so wird die Schleife uebersprungen.
   Im anderen Fall beinhaltet sie die gleiche Funktion wie (DO)

(?LEAVE) flag --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von ?LEAVE.

(ABORT") flag --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von ABORT" (siehe dort).

(CONSOLE)   c --      I/O
   Vok. I/O
   gibt das Zeichen c nur auf dem Bildschirm aus.

(D.)        d -- a c
   Ist  die  Kern-Routine von D..Konvertierung von d in  einen 
   String in PAD.

(DO)    w1 w2 --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von DO (siehe dort).

(EMIT)      c --      I/O
   Vok.: I/O
   gibt  Zeichen auf Bildschirm und bei PRINTING ON auch auf dem
   Drucker aus. Standartvoreinstellung fuer EMIT.

(FIND)   adr1 -- adr2 flag
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von FIND (siehe dort).

(FORGET)  adr --
   Vok.: HIDDEN
   Vergisst Teil des Woerterbuches ab spezifizierter Adresse.

(IS)      adr --   (comp.Mod.)
   Ist die Laufzeit-Routine von IS (siehe dort).
   Schreibt  die cfa des folgenden DEFER-ierten  Wortes  (Vector) 
   in die Adresse (adr).

(LEAVE)       --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine  von LEAVE (siehe dort).

(LIT)       n --
   Vok.: HIDDEN
   Wird  innerhalb  einer Doppelpunktdefinition automatisch  vor
   jede 16-Bit-Zahl n,  die im Eingabetext bereitgestellt  wird, 
   compiliert. Bei der Ausfuehrung von (LIT) wird der Inhalt der
   auf  (LIT)  folgenden Woerterbuchadresse auf  den  Datenstack 
   gelegt.
  
(LOOP)        --
   Vok.: HIDDEN
   Ist die Laufzeit-Routine von LOOP (siehe dort).

(KEY)         -- c     I/O
   Vok.: I/O
   holt  ein  Zeichen von der  Tastatur. Standartvoreinstellung
   fuer KEY.  

(KEY?)        -- f     I/O
   Vok.: I/O
   Prueft  den  Status der Tastatur.  f=TRUE,  wenn  eine  Taste
   gedrueckt war.  Standartvoreinstellung fuer KEY?.

(NUMBER?) adr -- d f
   Vok.: HIDDEN
   wandelt  einen  Zifferstring in adr+1 in  eine  doppeltgenaue
   Integer-Zahl, die ein fuehrendes Minuszeichen haben darf. Der
   String  muss  mit BL abgeschlossen  sein.  Als  Decimalpunkt,
   dessen Position in DPL uebergeben wird, gelten: .-,/
   Das Flag teilt mit, ob eine konvertierbare Zahl vorlag.

(PRINT)     c --       I/O
   Vok.: I/O
   gibt das Zeichen nur auf den Drucker aus.

(U.)        u -- a c
   Ist die Kern-Routine von U..  Konvertiert u in einen String  in 
   PAD.

*       w1 w2 -- w3   "star"
   w3 = niederwertige 16 Bit des arithmetischen Produkts w1 * w2 

*/ n1 n2 n3 -- n4 "times-divide"
   Berechnung  (n1 * n2) mit 32-Bit-Ergebnis,  anschl.  Division 
   durch  n3 .  n4 ist der Quotient entsprechend  den  Rundungs-
   regeln.  Fehler:  Division  durch  0 oder n4  ausserhalb  des
   Bereichs -32768...+32767.

*/MOD n1 n2 n3 -- n4 n5                      "times-divide-mod"
   Funktion  wie bei */,  jedoch zusaetzlich Uebergabe des Divi-
   sionsrests n5 (gleiches Vorzeichen wie n4 bzw. gleich 0).

*D       n1 n2 -- d   "star-d"
   Multipliziert zwei 16-bit-Zahlen (n1 und n2) und hinterlaesst 
   auf dem Datenstack eine 32-bit-Zahl (d).

+        w1 w2 -- w3
   w3 ist die arithmetische Summe w1 + w2.

+!      w1 adr --  "plus-store"
   w1  wird  zum Wert w in <adr> addiert Vgl.  +  ),  die  Summe 
   ersetzt w in <adr>.

+LOOP    n --  C, I, "plus-loop"
                    sys --    (comp.Mod.)
   n  wird  zum Schleifenindex  addiert.  Schleifenabbruch  (mit 
   Beseitigung der Schleifenparameter auf dem Returnstack), wenn
   Index  die Grenze zwischen  Limit - 1 und Limit  ueberschrei-
   tet,  sonst Fortsetzung der Schleife hinter DO.  sys wird mit
   DO ausbalanciert. Vgl. DO

,      16b --         "comma"
   Reserviere Platz fuer 16 Bit,  dann speichere 16b in  Adresse 
   HERE 2-.

,"         --
   Vok.: HIDDEN
   Fuegt den folgenden Text bis " ins Woerterbuch ein.

-    w1 w2 -- w3      "minus"
   w3 ist das Subtraktionsergebnis w1 - w2.

-->      --   I, M, "next-block"
   Fortsetzung  der Interpretation auf naechst-folgendem  Block. 
   Verwendung  in Doppelpuntdefinitionen,  die eine  Blockgrenze 
   ueberschreiten.

-ROT 16b1 16b2 16b3 -- 16b3 16b1 16b2  "minus-rote" 
   Die  3  obersten Stackeintraege werden rotiert,  der  Oberste 
   gelangt an die 3. Stackposition. 

-TRAILING  adr +n1 -- adr +n2  "dash-trailing"
   Der  Zeichenzaehler der ab adr stehenden Zeichenkette wird so 
   korrigiert,  dass nachfolgende Leerzeichen unterdrueckt  wer-
   den.  +n2  = 0,  falls +n1 = 0 oder wenn die Zeichenkette nur 
   Leerzeichen enthaelt.

.      n --   M,  "dot"
   Formatfreie und vorzeichenbehaftete Ausgabe von n.

."       --   C, I, "dot-quote"
   Zeichenkette ccc in ."ccc" wird compiliert und bei spaeterer 
   Ausfuehrung ausgegeben.  Abschluss durch ".  Das  Leerzeichen 
   nach ." gehoert nicht zum Text.

.(       --   I, M,  "dot-paren"
   Zeichenkette ccc in .( ccc) wird bis ) ausgegeben.  Das Leer-
   zeichen nach .( gehoert nicht zum Text.

.2     n --
   Druckt n zweistellig ohne Vorzeichen.
  
.ID  adr --      "dot-id"
   Gibt den Definitionsnamen der Namensfeldadresse adr  aus.

.R  n +n --   M, "dot-r"
   Konvertierung  von  n bezueglich der  aktuellen  Zahlenbasis, 
   rechtsbuendige  Ausgabe in einem gedachten Feld der Weite  +n 
   mit vorangestelltem '-' fuer negatives n. 

.S       --      "dot-s"
   Anzeige des Inhaltes des Datenstacks (zerstoerungsfrei).

.VERSION    --
   Druckt Versionsbezeichnung des Systems aus.
 
/     n1 n2 -- n3    "divide"
   n3  ist der gerundete Wert des Quotienten (n1 / n2).  Fehler: 
   Division durch 0 oder Quotient ausserhalb des Bereichs -32768 
   ... 32767. 
   Vgl "Division mit Rundung" in Anlage Definitionen

/LINE       -- n      "per-line"
   Konstante  haelt  die  Anzahl der  je  Dumpzeile  ausgegebenen 
   Bytes.    Damit    ist   eine leichte Anpassung an das
   Bildschirmformat moeglich. s. DUMP


/MOD  n1 n2 -- n3 n4  "divide-mod"
   Funktion wie bei /,  jedoch  zusaetzlich Uebergabe des  Divi-
   sionsrestes  n4 (gleiches Vorzeichen wie n3 bzw.  gleich  0). 


/STRING   adr1 n1 n3 -- adr2 n2   "up-string" 
   Liefert  Adresse  adr2 und die Laenge n2 des noch  zu  durch-   
   suchenden  Eingabestromes  (adr1  Quelladresse,  n1  maximale    
   Laenge, n3 schon durchsuchte Zeichen).  

0        -- n
   Ist eine System-Konstante mit dem Wert n=0.

0<     n -- flag  "zero-less"
   Flag ist wahr, falls n negativ ist, d.h. n < 0.

0=     w -- flag "zero-equals"
   Flag ist wahr, falls w = 0. 

0>     n -- flag "zero-greater"
   Flag ist wahr, falls n nicht negativ ist, d.h.  n > 0.


1         -- n
   Ist eine System-Konstante mit dem Wert n=1.

1+     w1 -- w2   "one-plus"
   w2  ist  das Ergebnis der Addition  w1+1  entsprechend  der 
   Operation +.


1-     w1 -- w2   "one-minus"
   w2  ist das Ergebnis der Subtraktion w1 - 1 entsprechend  der 
   Operation -.

2         -- n
   Ist eine System-Konstante mit dem Wert n=2.

2!  32b adr --    "two-store"
   32b wird ab adr abgespeichert. Vgl. "Zahlen"

2+     w1 -- w2   "two-plus"
   w2  ist  das  Ergebnis der Addition w1 + 2  entsprechend  der 
   Operation +.

2-     w1 -- w2   "two-minus"
   w2  ist das Ergebnis der Subtraktion w1 - 2 entsprechend  der 
   Operation -.

2*     w1 -- w2   "two-times"
   w2  ist das Ergebnis der arithmetischen Linksverschiebung von 
   w1  um  1 Bit.  In die frei werdende Bitposition wird  0 ge-
   schrieben.

2/     n1 -- n2   "two-divide"
   n2 ist das Ergebnis der arithmetischen Rechtsverschiebung von 
   n1  um  1 Bit.  Das Vorzeichen wird mit verschoben und  nicht 
   veraendert.

2@    adr -- 32b  "two-at"
   32b ist das Bitmuster ab adr. 

2CONSTANT 32b --   M, "two-constant"
   Definitionswort  fuer  32b  Konstanten.  Bei  Ausfuehrung  von 
   Wortname wird 32b auf dem Stack abgelegt.

2DROP  32b --     "two-drop"
   32b wird vom Stack entfernt.

2DUP   32b -- 32b 32b  "two-dup"
   Duplizieren von 32b

2OVER  32b1 32b2 -- 32b1 32b2 32b3  "two-over"
   32b3 ist eine Kopie von 32b1.

2ROT   32b1 32b2 32b3 -- 32b2 32b3 32b1 "two-rote"
   Die 3 obersten 32-Bit-Eintraege auf dem Stack werden rotiert, 
   der drittoberste Eintrag gelangt an die Spitze.   

2SWAP  32b1 32b2 -- 32b2 32b1      "two-swap"
   Die  2  obersten 32-Bit-Eintraege auf dem Stack  werden  ver-
   tauscht.

2VARIABLE  --  M, "two-variable"
   Definitionswort  fuer 32-Bit-Variablen:  2VARIABLE Wortname  . 
   Zuweisung  von  4 Byte im Parameterfeld zur Abspeicherung  des 
   Variableninhalts.   Bei  Ausfuehrung  von  Wortname  wird  die 
   Parameterfeldadresse auf dem Stack abgelegt.

3        -- n
   Ist ein System-Konstante mit dem Wert n=3.


:        --  M, "colon"
   Definitionswort,  mit dem durch :Wortname...; ein  Eintrag 
   (Doppelpunktdefinition)  im Compilationswoerterbuch  erfolgt; 
   anschl.  Einschalten  des compilierenden Modus (nachfolgender 
   Text  wird  compiliert).  Das Wort Wortname  kann  erst  nach 
   Abschluss  der  Definition  mit ; oder ;CODE  im  Woerterbuch 
   gefunden werden.

;        --  C, I, "semi-colon"
                        --    (comp.Mod.)
   Beendigung der Compilation einer Doppelpunktdefinition Wortname 
   ,  Einschalten des ausfuehrenden Modus,  Compilation von EXIT . 
   Wortname kann nun im Woerterbuch gefunden werden. Vgl EXIT :

;CODE    --  C, I, "semi-colon-code"
                        --         (comp.Mod.)
   Wird in folgender Form verwendet: 
   Wortnamex...<create>...;CODE ... END-CODE
   Beendet die Compilation,  schliesst das Definitionswort Wort-
   namex ab und fuehrt ASSEMBLER aus.  Nachfolgende Zeichenfolge 
   wird  in Maschinencode uebersetzt.  Bei Ausfuehrung von Wort-
   namex Wortname wird Wortname definiert.  Dieses Wort enthaelt 
   als Ausfuehrungsadresse die Adresse der Kodesequenz,  die auf 
   ;CODE in Wortnamex folgt,  so dass spaeter dieser  Maschinen-
   kode  ausgefuehrt wird.  

;USES    --  I,C,Def,
   Wird folgendermaszen verwendet:
   : name ... <create> ... ;USES label ,
   Beendet  die  Compilation.  Bei  Ausfuehrung des  mit  <name>
   angelegten  Wortes  wird  die  Codesequenz  auf  der  Adresse 
   <label> zur Ausfuehrung gebracht. s. ;CODE

<  n1 n2 -- flag  "less"
   flag  ist wahr fuer n1 < n2.  -32768 32767 < und  -32768 0  < 
   muss jeweils wahr ergeben.

<#       --       "less-sharp"
   Initialisierung der Ausgabekonvertierung einer 32-Bit-Zahl in 
   ASCII-Darstellung mit # #> #S <# HOLD SIGN. 

<MARK	 -- adr   C, "backward-mark"
   Verwendung  am Zielpunkt eines Rueckwaertssprungs.  adr  wird 
   typisch  nur  von <RESOLVE fuer die Compilation  der  Sprung-
   adresse verwendet.   

<RESOLVE adr --  C, "backward-resolve"
   Verwendung  am Ausgangspunkt eines Rueckwaertssprungs  hinter 
   BRANCH  oder ?BRANCH.  Compilation einer Sprungadresse  unter 
   Verwendung der Zieladresse adr.

=      w1 w2 -- flag "equals"
   Flag ist wahr fuer w1 = w2.

>      w1 w2 -- flag "greater-than"
   Flag  ist wahr fuer n1 > n2 .  -32768 32767 > und -32768 0  > 
   muss jeweils falsch ergeben.

>BODY    cfa -- pfa  "to-body"
   die  Parameterfeldadresse des Wortes wird aus dessen 
   Codefeldadresse ermittelt.

>DOES        -- n
   Ist   eine  System-Konstante.   Entspricht  der  Adresse   der 
   Laufzeit-Routine von DOES>.

>IN          -- adr  U,  "to-in"
   Adresse  einer Variablen,  die den aktuellen Zeichenoffset im 
   Eingabestrom enthaelt. Vgl WORD

>IS     adr1 -- adr2   "to-is"
   Teilt einem Kode-Feld (adr1)  ein Daten-Feld (adr2) zu.  Wenn 
   sich  das Wort im Nutzerbereich der Worte  (words)  befindet, 
   muss   die  Datenadresse (adr2) relativ  zum  CURRENT-Nutzer-
   Zeiger  berechnet  werden.  Andernfalls ist adr1  sofort  das 
   Parameterfeld.

>LINK    cfa -- lfa   "to-link"
   Ausgehend von der cfa eines Wortes wird die lfa berechnet.

>MARK  -- adr  C, "forward-mark"
   Verwendung am Ausgangspunkt eines  Vorwaertssprungs, und zwar 
   meist  hinter BRANCH oder ?BRANCH.  Compiliert Platz im Woer-
   terbuch  fuer eine Sprungadresse,  die spaeter  von  >RESOLVE 
   aufgeloest wird.

>NAME    cfa -- nfa  "to-name"
   Ausgehend von der cfa eines Wortes wird die nfa berechnet.

>NEXT        -- adr
   Ist  eine Konstante.  adr entspricht der Adresse des  inneren 
   Interpreters.

>R       16b --    C, "to-r"
   Transfer von 16b zum Returnstack. Vgl. "Returnstack"

>RESOLVE adr -- C, "forward-resolve"
   Verwendung  am Zielpunkt eines   Vorwaertssprungs.  Berechnet 
   die  Adresse eines Sprungs zur aktuellen  Woerterbuchposition 
   unter  Verwendung  von adr,  traegt diese Adresse in den  von 
   >MARK freigelassenen Platz ein. . 

>TYPE  adr n -- M
   s.  TYPE,  jedoch  wird  vor dem Drucken der String nach  PAD 
   transportiert. Ermoeglicht Multitaskarbeit mit Blockinhalten.

      
?       adr --       "question"
   Druckt  den Inhalt der Adresse adr aus (in freiem Format 
   und in Uebereinstimmung mit der aktuellen Zahlenbasis).

?BRANCH  flag --   C, "question branch"
   Compilation eines bedingten  Sprungs, der
   ausgefuehrt wird, wenn flag falsch ist, ansonsten Fortsetzung
   der Abarbeitung auf der Compilationsadresse,  die der Sprung-
   adresse folgt. Vgl BRANCH

?CONDITION n1 n2 --            
   Erzeugt  eine  Fehlermeldung  falls n1  ungleich  n2  ist.
   Die  Meldung  zeigt  an, dass  die Compilationsbedingungen
   nicht eingehalten wurden.

?CSP             --                      
   Erzeugt  eine Fehlermeldung wenn die Stackposition (Inhalt 
   von  SP) sich von dem in CSP geretteten Wert unterscheidet.

?DNEGATE   d1 d2 -- d3
                 -- d1
   Negiert die vorzeichenbehaftete Doppelzahl d1, falls d2
   negativ  ist  (d2 kann z.B.  auch das Duplikat von d1 sein)
   und hinterlaesst sie als d2 auf dem Datenstack, andernfalls
   wird der Wert d1 beibehalten.
                             
?DO        w1 w2 --
   Testet,  ob w1=w2.  Ist dies der Fall,  wird hinter LOOP bzw. 
   +LOOP gesprungen. Ansonsten Abarbeitung wie DO.

?DUP  16b -- 16b 16b  "question-dupe"
 oder   0 -- 16b, falls 16b =| 0 ist.


?ENOUGH       +n --
   Gibt eine Fehlermeldung aus, wenn nicht genug Werte (+n ist
   die Anzahl) auf dem Datenstack vorhanden sind.  Wird z.B. am
   Anfang  eines Programms zur Stackkontrolle benutzt.

?ERROR   adr n f --       
   Fuehrt  bei wahrem Flag zur Ausgabe des Strings auf  adr 
   als  Fehlermeldung und Abbruch nach QUIT.

?LEAVE      flag --
   bedingter vorzeitiger Abbruch einer DO...LOOP(bzw....+LOOP)
   -Schleife (siehe auch LEAVE).
   Anwendung: DO...?LEAVE...LOOP (bzw. ...+LOOP) 

?LINE         +n --
   Kontrolliert  bei Ausgabe einer Zeile mit +n  Zeichen,  ob 
   das Zeilenende erreicht wird. Wenn dies der Fall ist,  wird
   vorher  CR (carriage return) ausgefuehrt.

?MISSING    flag --
   Erzeugt eine Fehlermeldung,  wenn das Flag flag wahr ist,
   d.h.  z.B. das Wort  Wortname unbekannt ist.

?NEGATE    n1 n2 -- n3                            
                 -- n1 
   Ist die Zahl n2 negativ,  wird die Zahl n1 negiert und als n3
   auf den Datenstack gelegt.  (n2 kann z.B.  auch das Duplikat
   von  n1 sein),  andernfalls bleibt die Zahl n1 in ihrer  Form    
   erhalten.                   

?STACK           --                 
   Erzeugt  eine Fehlermeldung,  wenn der Stackpointer ausser-
   halb der  vorgegebenen Grenzen liegt.  

@            adr -- 16b   "at"
   16b ist das Bitmuster auf der Adresse adr.

ABORT
   Datenstack  saeubern,  keine Ausgabe einer Nachricht und
   Ausfuehrung von QUIT.

ABORT"   flag --   C, I, "abort-quote"
              --     (comp.Mod.)
   Mit  ABORT" ccc" wird ccc ausgegeben und  ABORT  ausgefuehrt,
   falls das Flag wahr ist,  ansonsten wird die normale Abarbei-
   tung  fortgesetzt.  Das Leerzeichen nach ABORT" gehoert
   nicht zur Zeichenkette ccc.

ABS         n -- u   "absolute"
   u  ist der absolute Betrag von n.  ABS -32768 ergibt  -32768. 

AGAIN         --    C, I
          sys --   (comp.Mod.)
   Ausfuehrung  eines unbedingten Ruecksprungs zum Anfang  einer
   BEGIN...AGAIN  - Schleife.  sys wird mit BEGIN ausbalanciert. 
   Vgl. BEGIN

ALLOT       w --                    
   Belegung  von w Byte Speicherplatz im Woerterbuch.

ALLOT       n --    U
   Vok.: USER 
   Reserviert  n  Byte  im USER-Area. Zusammen mit  USER  CREATE
   benutzt koennen Felder im USER-Area angelegt werden.  

ALSO          --    Voc
   Vok.: ROOT
   Fuegt   ein  weiteres  Vocabular  in  die  z.   Z.   gueltige
   Suchreihenfolge ein.
   ONLY voc#1 ALSO voc#2
   macht  das  Vokabular #1 in  der  Suchordnung  resident.  Die
   Durchsuchung  des Woerterbuches beginnt mit Vokabular #2  und
   wird  mit #1 und ROOT fortgesetzt.  Es koennen maximal  #VOCS
   (  hier  8  ) Vokabulare durch mehrfache Anwendung  von  ALSO
   nacheinander durchsucht werden.

AND 16b1 16b2 -- 16b3                
   Bitweise logische UND-Verknuepfung von 16b1 und 16b2 zu 16b3.

ASCII   -- char  I, M  "as-key"
                        --   (comp.Mod.)
   Mit ASCII ccc wird der ASCII des ersten Zeichens von ccc 
   auf dem Stack eingetragen (ausfuehrender Modus) oder ins
   Woerterbuch als Literal compiliert (compilierender Modus).

ASSEMBLER      --    Voc,   
   Das  erste Woerterbuch in der Suchreihenfolge wird durch
   ASSEMBLER ersetzt. Das ASSEMBLER-Vokabular enthaelt im Grund-
   zustand nur das Wort END-CODE. Weiterhin ist es zur Aufnahme
   des FORTH-Assembler-Wortschatzes vorgesehen,  der  nachgeladen 
   werden kann.

AVOC           -- adr   "a-voc"
   Ist eine Variable.  Wird systemintern  zur  Umschaltung  auf
   ASSEMBLER verwendet.

B/BUF   -- +n  "bytes-per-buffer"
   Ist  eine  Konstante und entspricht der Anzahl der  Bytes  je
   Blockpuffer.

BASE           -- adr  U,   
   Adresse  einer Variablen,  die die Zahlenbasis fuer  Eingabe-
   und Ausgabekonvertierungen enthaelt. Zahlenbasis: 2...72

BEGIN     --    C, I,   
          -- sys     (comp.Mod.)
   Eroeffnung einer Strukturierungssequenz: BEGIN ...flag UNTIL.
   Wird abgearbeitet,  bis flag wahr ist;
   BEGIN...flag  WHILE...REPEAT wird abgearbeitet, bis flag
   falsch ist. sys wird mit UNTIL bzw. WHILE ausbalanciert. 

BELL           -- n   M
   Konstante, deren Ausgabe ein akustisches Zeichen hervorruft.

BETWEEN  n3 n2 n1 -- flag
   Der  Vergleich der 16-Bit-Zahl n3 mit dem Minimum n2 und  dem
   Maximum n1 wird ausgewertet.  Liegt n3 ausserhalb dem Bereich
   von n1 und n2, ist Flag wahr andernfalls falsch.

BL             -- 32    "b-l"
   Uebergabe des ASCII-Code fuer ein Leerzeichen.

BLANK      adr u --                    
   u Speicherbytes ab adr werden mit Leerzeichen gefuellt, falls 
   u > 0. 

BLK          -- adr U,  "b-l-k"
   Adresse  der  Variablen,  die die Nummer des Massenspeicher-
   blocks enthaelt,  der  als Eingabestrom  interpretiert  wird
   (Nummer  = 0 impliziert Eingabestrom vom Texteingabepuffer).

BLK#      -- adr 
   Vok.: HIDDEN
   Variable, die die Nummer des Blockes im Blockpuffer enthaelt.
   Der Blockpuffer  beinhaltet  nur einen Block,  da  dies  bei
   Arbeit mit einer RAM-Disk ausreichend ist.
   
BLOCK   u -- adr   M,   
   adr zeigt auf erstes Byte in Block u im  Blockpuffer.  Steht
   darin zunaechst ein anderer Block, so wird Block u eingeles-
   en. Der alte Blockinhalt wird zuvor zurueckgschrieben, falls
   dieser als aktualisiert gekennzeichnet ist. Nur Dateninhalte,
   die zuletzt mit BLOCK oder BUFFER angesprochen  wurden, sind 
   gueltig.

BODY>  pfa -- cfa   "from-body"
   Ausgehend von der pfa eines Wortes wird die cfa berechnet.

BOOT       --     Vec
   erstes Wort beim Kaltstart.  Fuehrt alle  Nutzerspezifischen
   Initialisierungen  aus. Da  es ein Vector  ist,  kann  seine
   Funktion  jederzeit  geaendert  werden,  z.B. um  Turn-Key-
   Applikationen zu erstellen.

BRANCH     --     C,
   Vok.: HIDDEN
   In  COMPILE BRANCH Compilation eines unbedingten Sprungs  mit
   nachfolgender   Sprungadresse,  die meist von <RESOLVE oder 
   >MARK aufgeloest wird.

BS         -- n
   Konstante, die den Wert 8 fuer Backspace liefert.

BUFFER   u -- adr  M,   
   Zuweisung eines Blockpuffers zu Block u . Diese Funktion ist 
   vollstaendig mit BLOCK spezifiziert, es sei denn, der Block 
   befindet sich noch nicht im Puffer. Dann wird der  Block  n
   nicht vom Massenspeicher gelesen. Der Inhalt eines mit BUFFER
   ausgewaehlten Blockpuffers ist noch unbestimmt.

BYE        --
   Bewirkt das Verlassen des FORTH-Systems.  Rueckkehr in  den 
   Monitor. Vorher werden alle Blockpuffer gerettet.


C!  16b adr --     "c-store"
   Die  niederwertigen  8  Bits von 16b werden im Byte  auf  adr 
   abgespeichert.


C,      16b --     "c-comma"
   Zuweisung von  1 Byte Speicherplatz im  Woerterbuch,  danach 
   Abspeicherung  der niederwertigen 8 Bit von 16b  auf  Adresse 
   HERE - 1.

C/L    -- n "character-per-line"
   Entspricht der Anzahl der Zeichen pro Screen-Zeile.

C@      adr -- 8b       "c-at"
   8b ist der Inhalt des Bytes auf adr .

CMOVE   adr1 adr2 u --  "c-move"
   Transfer  von u Bytes ab adr1 in Bereich ab adr2.  Das  erste 
   Byte wird zuerst transferiert (Vorwaertstransfer). Transfer
   erfolgt nur, wenn u ungleich 0 .

CMOVE> adr1 adr2 u -- "c-move-up"
   Transfer von u Bytes ab adr1 nach adr2.  Transfer beginnt  am 
   Ende bei adr1 + u - 1 (Rueckwaertstransfer).

CODE         --      M,   
   Definitionwort  fuer Woerterbucheintraege, deren Funktionsum-
   fang durch Assemblertext beschrieben wird (Codedefinitionen):
   CODE Wortname ... END-CODE.  Vor Abschluss der Definition mit
   END-CODE kann Wortname nicht aufgefunden werden. 

COLD         --             
   Das  FORTH-System und wird schrittweise  initialisiert  und 
   laeuft ueber BOOT nach ABORT,  wo die restliche Initialisier-
   ung erfolgt, in den Textinterpreter.    

COMPARE  adr1 adr2 +n -- flag
   Fuehrt einen Zeichenkettenvergleich durch (Zeichenkette1  ab
   adr1 und Zeichenkette2 ab adr2 mit der Laenge +n). 
   Sind die beiden Zeichenketten:
      Zeichenkette1 = Zeichenkette2 ==> flag:=0
      Zeichenkette1 < Zeichenkette2 ==> flag:=-1
      Zeichenkette1 > Zeichenkette2 ==> flag:=1
   Alle Vergleiche sind relativ zur ASCII-Ordnung.

COMPILE        --     C,   
   Typisch  verwendet in:Wortname...COMPILE Wortnamex...;.
   Bei Ausfuehrung von Wortname wird die Compilationsadresse von  
   Wortnamex nicht ausgefuehrt, sondern compiliert. 

CONSTANT   16b --     M,   
   Definitionswort fuer Konstanten: 16b CONSTANT Wortname . Bei
   spaeterer Ausfuehrung von Wortname wird 16b  auf  dem  Stack 
   uebergeben.

CONTEXT        -- adr    U,   
   Adresse  des  Feldes,  das die Suchreihenfolge im  Woerterbuch 
   festlegt. s.ORDER ALSO

CONTROL        -- n
   Ermittlung des Kodes n der "Control-Tasten"-Belegung.
   s. auch ASCII

CONVERT  +d1 adr1 -- +d2 adr2           
   Eingabekonvertierung  einer  FORTH-Zeichenkette  (Laengenbyte 
   auf  adr,  Zeichenkette ab adr + 1) mit Startwert +d1 in  32-
   Bit-Zahl  +d2.  Die  Adresse des ersten  nichtkonvertierbaren 
   Zeichens ist adr2.

COPY     n1 n2 --
   kopiert Block n1 in RAM-Disk nach n2.
      
COUNT     adr1 -- adr2 +n            
   Ermittlung  von Anfangsadresse adr2 und Laenge  +n  (0...255) 
   einer FORTH-Zeichenkette ab adr1.

CR             --   M, Vec "c-r"
   Loest einen Zeilenvorschub auf dem Ausgabegeraet aus, loescht 
   #OUT und erhoeht #LINE um eins.

CRASH          --
   Bewirkt die Ausgabe einer  Systemmitteilung:  (no  execution 
   vector), wenn Vektor noch nicht initialisert wurde.

CREATE         --    M,   
   Definitionswort.  CREATE  Wortname richtet Woerterbucheintrag 
   ein. Die  darauf folgende freie Adresse im Speicher ist  die 
   Parameterfeldadresse.  Bei Ausfuehrung von Wortname Uebergabe 
   dieser Adresse auf dem Datenstack, d.h. keine Reservierung
   von Speicherplatz im Parameterfeld.

CREATE         --   Vok.: USER
   Definiert ein Wort,  welches die Adresse des naechsten freien 
   Eintrages im USER-Area uebergibt. s. USER

CRESET            w adr -- 
   Logische Verknuepfung des Inhaltes von adr.  mit der Maske w 
   nach der Gleichung: <adr>:= /w AND <adr>

CRLF          --  I/O  
   Vok.: I/O
   gibt Hex 0D und 0A aus. Incrementiert den Zeilenzaehler #LINE 
   und loescht den Spaltenzaehler  #OUT.  Standartvoreinstellung 
   fuer CR.

CSET     w adr -- 
   Logische  Verknuepfung des Inhaltes von adr mit der  Maske  w 
   nach der Gleichung:   <adr>:=  w OR <adr>

CSP            -- adr
   Ist  eine System-Variable.  Sie dient zur Sicherung des  beim 
   Aufruf  gerade  aktuellen Stackpointers.  Der Inhalt von  adr 
   wird am Ende des Compilationsvorganges fuer einen  Fehlertest 
   benoetigt.

CTOGGLE  w adr -- 
   Logische Verknuepfung des Inhaltes von adr mit der Maske w 
   nach der Gleichung:
      <adr>:=  w XOR <adr>

CURRENT        -- adr   U,   
   Adresse der Variablen, die das Compilationswoerterbuch
   spezifiziert.

D+     wd1 wd2 -- wd3  "d-plus"
   wd3 ist die arithmetische Summe wd1 + wd2.

D-     wd1 wd2 -- wd3  "d-minus"
   wd3 ist das Ergebnis der Subtraktion wd1 - wd2 .

D.           d --   M, "d-dot"
   Formatfreie Ausgabe des Betrags von d mit vorangestelltem '-' 
   fuer negatives d. 

D.R       d +n --   M, "d-dot-r"
   Konvertierung  von  d bezueglich der  aktuellen  Zahlenbasis, 
   rechtsbuendige  Ausgabe in einem gedachten Feld der Weite  +n 
   mit vorangestelltem '-' fuer negatives d.  

D0=  wd -- flag "d-zero-equals"
   flag ist wahr, falls wd = 0.

D2/   d1 -- d2   "d-two-divide"
   d2 ist das Ergebnis der arithmetischen Rechtsverschiebung von 
   d1  um  1 Bit.  Das Vorzeichen wird mit verschoben und  nicht 
   veraendert.

D<  wd1 wd2 -- flag  "d-less"
   flag ist wahr, falls d1 < d2. Vgl. <

D=  wd1 wd2 -- flag  "d-equal"
   Das Flag flag ist wahr, falls wd1 = wd2.

D>    d1 d2 -- flag  "d-greater"
   Das Flag ist true, falls d1 > d2 (vgl. >).

DABS      d -- ud    "d-absolute"
   ud ist der Betrag von d . Fuer d = -2 147 483 648 ist d = ud. 
   Vgl. "Zweierkomplementarithmetik"

DECIMAL     --                    
   Zahlenbasis  fuer Eingabe-/Ausgabekonvertierungen auf 10 set-
   zen

DEFER       --
   Definiert  einen Woerterbucheintrag fuer spaetere  Verwendung 
   als Vektor.
   
DEFER       --    
   Vok.: USER
   Definiert  einen  Ausfuehrungsvektor,  der  fuer  jedes  Task 
   unterschiedlich sein kann. s. USER

DEFINED     -- adr flag
   Sucht nach dem naechsten Wort im Eingabestrom:
    flag:=-1   - es existiert und adr:=cfa und normales Wort
    flag:= 1   - es existiert und adr:=cfa und IMMEDIATE-Wort
    flag:= 0   - es existiert nicht  und adr:=HERE.

DEFINITIONS    --                    
   Zum  Compilationswoerterbuch wird das erste  Woerterbuch  der 
   Suchreihenfolge.

DEFINITIONS    --   
   Vok.: ROOT
   Redefinition s. Vokabular FORTH

DEPTH          -- +n                 
   +n  ist die Anzahl der Datenstackeintraege vor Uebergabe  von 
   +n.

DIGIT    n1 n2 -- n3 flag
   Es  wird  ein Flag zurueckgegeben,  welches anzeigt,  ob  das 
   Zeichen eine gueltige Dezimalstelle in gegebener  Zahlenbasis 
   n2  ist oder nicht.  Wenn es ein gueltiges Zeichen ist,  wird 
   ein  konvertierter Wert n3 und das Flag wahr  zurueckgegeben. 
   Andernfalls das Zeichen n3=n1 und das Flag falsch.

DLITERAL      d --         
   Compilation  einer 32-Bit-Zahl in die naechste freie Woerter-
   buchposition.

DMAX      d1 d2 -- d  "d-max"
   d3 ist die groessere der beiden Zahlen d1 und d2.

DMIN      d1 d2 -- d3  "d-min"
   d3 ist die kleinere der beiden Zahlen d1 und d2.

DNEGATE      d1 -- d2  "d-negate"
   d2 ist das Zweierkomplement von d1.

DO   w1 w2 --    C, I,   
           -- sys    (comp.Mod.)
   Anwendung in DO ...  LOOP oder DO ... +LOOP. Eroeffnung einer 
   Schleife,  die    im Laufbereich des Indexes zwischen w2  und 
   w1 (Limit) abgearbeitet wird, und zwar wenigstens einmal. sys 
   wird mit LOOP bzw. +LOOP ausbalanciert.

DOES>      -- adr   C, I,   
           --    (comp.Mod.)
   Festlegeung  der Laufzeitaktivitaet  eines  Definitionswortes 
   mit : Wortnamex ... <create> ... DOES> ... ; und anschl.
   Wortnamex  Wortname.  <create> ist CREATE oder ein beliebiges 
   anderes Wort,  welches CREATE ausfuehrt.  DOES> schliesst den 
   Teil  fuer die Spezifikation der  Compilationsaktivitaet  des 
   Definitionswortes  ab  und eroeffnet den Teil fuer  die 
   Ausfuehrungsaktivitaet.  Zur  Laufzeit wird die   Parameterfeld-
   adresse  von Wortname auf dem Datenstack eingetragen und 
   anschliessend die Sequenz zwischen DOES> und ; abgearbeitet. 

DOUBLE?    -- f
   f  ist TRUE,  wenn die von NUMBER konvertierte Zahl  doppelte 
   Genauigkeit hatte; sonst FALSE

DP         -- adr    U 
   Ist  eine Systemvariable (Woerterbuchzeiger),  welche in  adr 
   die  Adresse  des naechsten freien Speicherzelle am Ende  des 
   Woerterbuches enthaelt. Der Wert von DP kann mit HERE gelesen 
   und mit ALLOT geaendert werden.

DPL        -- adr    U
   Ist eine Variable,  die die Anzahl der Stellen nach dem
   Dezimalpunkt bei Eingabekonvertierungen enthaelt.

DROP   16b --                    
   16b wird vom Stack entnommen.

DU<  ud1 ud2 -- flag "d-u-less"
   Das Flag flag ist wahr,  falls ud1 < ud2.  Beide Zahlen  sind 
   vorzeichenlos.

DU       adr -- adr +40H
   Ausgabe von 40H Bytes ab Adresse adr als Hexdump.  Die
   Folgeadresse  wird  auf dem Stack hinterlassen und kann fuer  
   einen weiteren Aufruf von DU verwendet werden.

DUMP   adr u --    M
   Ausgabe von u Bytes,  die im Speicher ab adr stehen. Vor jeder 
   Zeile wird die Anfangsadresse ausgegeben. 

DUP      16b -- 16b 16b  "dup"
   Dupliziert 16b.

ELSE      --    C, I,   
     sys1 -- sys2    (comp.Mod.)
   ELSE  wird  innerhalb IF...ELSE...THEN hinter  dem  IF- Zweig 
   abgearbeitet,  Ausfuehrung  setzt sich bis hinter THEN  fort. 
   sys1 wird mit IF, sys2 mit THEN ausbalanciert. 
   Vgl. IF, THEN

EMIT    16b --     M, Vec
   Ausgabe  der  niederwertigen 8 Bit auf dem aktuellen 
   Ausgabegeraet. #OUT wird incrementiert.

EMPTY       --
   Letztes Wort im Kernvokabular. Bei Aufruf werden alle spaeter 
   definierten Worte geloescht.

EMPTY-BUFFERS   --   M, "empty-buffers"
   Freigabe  aller  Blockpuffer.  Aktualisierte  Bloecke  werden 
   nicht zum Massenspeicher zurueckgeschrieben. Vgl. BLOCK

END-CODE        --   
   Vok.: ASSEMBLER
   Schliesst  eine Primitivdefinition ab und macht das vor  CODE 
   gueltige Vokabular wieder zum aktullen CONTEXT-Vokabular. 
   s. ASSEMBLER

ENTRY       -- adr   U
   eine  USER-Variable mit spezieller Bedeutung  fuer  Multitask. 
   Hier wird ein Stueck MC eingetragen, welches bestimmt, ob das 
   Task aktiv ist oder nicht.

EOD         -- adr  
   Vok.: I/O
   Uebergibt die Adresse im Boot-Bereich, auf der die erste von 
   der RAM-Disk nicht mehr benutztbare Adresse steht.

ERASE  adr u --                    
   u Speicherbytes ab adr werden auf 0 gesetzt, falls u > 0 

EXECUTE    adr --                    
   Ausfuehrung der mit adr bezeichneten Wortdefinition. 

EXIT         --     C,   
   Rueckkehr  zu einer aufrufenden Doppelpunktdefinition  hinter 
   die  Aufrufstelle aus der aufgerufenen  Doppelpunktdefinition 
   heraus;  ( entspricht ;S in fig)  in Schleifen verboten!  

EXPECT  adr +n --    M, Vec
   Fuer +n > 0 Eingabe und byteweises Abspeichern von Zeichen ab
   adr in  Richtung hoeherer Adressen, bis der Steuerkode der
   ENTER-Taste [RET] erkannt wird oder +n Zeichen  eingegeben
   sind. Ausgabe (Echo) aller Zeichen (ausser <ret>, statt
   dessen Ausgabe eines Leerzeichens). Als Korrekturcode
   sind 08H und 7FH installiert. Siehe (EXPECT). Vgl. SPAN

FALSE          -- n   
   Ist eine Konstante, welche den Wert n=0 liefert 
   (false entspricht falsch).

FENCE          -- adr              
   Ist eine Systemvariable, die eine Adresse enthaelt. Unterhalb 
   dieser  Adresse wird FORGET nicht ausgefuehrt.  Um unter  die 
   angegebene Adresse zu gelangen,  muss der Benutzer den Inhalt    
   von FENCE aendern.

FH            n --   "from-here"
   Dient  der relativen Adressierung des zu ladenden Screens  von 
   dem Screen in dem FH steht aus gerechnet. 
   1  FH  LOAD laedt den naechsten Screen,  2 FH 4  FH  THRU  die 
   Reihenfolge vom uebernaechsten bis zum 4. folgenden.
   
FILL   adr u 8b --                    
   u Speicherbytes ab adr werden mit 8b gefuellt, falls u > 0 .

FIND       adr1 -- adr2 flag          
   Suche  des  Wortes,  das  in der FORTH-Zeichenkette  ab  adr1 
   enthalten  ist,  in der aktuellen Suchreihenfolge.  Kann  das 
   Wort gefunden werden,  so ist adr2 dessen Compilationsadresse 
   und n = 1 (IMMEDIATE-Wort) oder n = -1.  Wurde das Wort nicht 
   gefunden, so ist adr2 = adr1 und n = 0 .

FIRST           -- adr               
   Bringt die Adresse des ersten Blockpuffers auf den Datenstack. 

FLUSH           --   M,   
   Ausfuehrung von SAVE-BUFFERS und EMPTY-BUFFERS

FORGET          --   M,   
   Mit  FORGET  Wortname werden Wortname und alle  nachfolgenden 
   Eintraege  (unabhaengig von ihrer Woerterbuchzugehoerigkeit)
   entfernt,  falls Wortname im Compilationswoerterbuch
   gefunden werden kann. Fehler: Name wird nicht gefunden bzw.
   Compilationswoerterbuch soll entfernt werden. s. (FORGET) 

FORTH           --                    
   Name des Basis- (Primaer-) Woerterbuchs.  Bei Ausfuehrung
   von  FORTH  wird dieses zum ersten Woerterbuch in der 
   Suchreihenfolge. Bei Systeminitialisierung ist FORTH das
   erste Woerterbuch und gleichzeitig Compilationswoerterbuch. 
   Alle Definitionen  werden  darin eingetragen,  bis ein
   anderes Compilationswoerterbuch eingerichtet wird. 
   Vgl. VOCABULARY 

FORTH           --   
   Vok.: ROOT
   Redefinition  von  FORTH  um  vom  ROOT-Vocabular  auf  
   FORTH  umschalten zu koennen.

FORTH-83        --                    
   Sicherung der Verfuegbarkeit eines FORTH-83-Systems,
   anderenfalls Fehler!

GET             --
   Laedt eine Screendatei vom Magnetband in die RAM-Disk.
   Beachte je nach Rechnertyp installationsabhaengige
   Besonderheiten.  
HASH  adr1 adr2 -- +n
   Es ist eine Zeichenkettenadresse (adr1) und ein Zeiger(adr2)
   zu  einem  Woerterbuch  gegeben.  Als Resultat  erscheint     
   der  aktuelle  Faden (+n).  Es wird das erste Zeichen der 
   Zeichenkette genutzt, um den Faden zu bestimmen. 

HEADER          --
   Teilfunktion von CREATE. Baut einen Namensheader auf.


HELLO        --
   Aktuell von BOOT benutzt, um die Systemmeldung auszugeben und
   EMPTY-BUFFERS und  DECIMAL auszufuehren.

HERE         --                    
   Adresse der naechsten verfuegbaren Adresse im Woerterbuch.


HEX          --                    
   Setzen der Zahlenbasis fuer Ein- / Ausgabekonvertierungen auf 
   16.

HIDDEN       --      Voc
   Das Vokabular enthaelt alle  normalerweise   "verborgenen" 
   Laufzeitroutinen und Teilaktionen, die fuer den Nutzer 
   meist uninteressant sind und die nur benoetigt werden,  wenn 
   das Compile-Verhalten erweitert werden soll.

HIDE         --
   Verbirgt den letzten Worteintrag im Woerterbuch,  so dasz  er 
   von  (FIND) erst nach Aufruf von REVEAL gefunden werden  kann. 
   
HLD          -- adr     U
   Ist eine Systemvariable, die die Zieladresse  enthaelt,  auf 
   der das naechste erzeugte ASCII-Zeichen abgespeichert wird.

HOLD    char --                    
   Einfuegen von char in die Ausgabezeichenkette bei Ausgabekon-
   vertierungen mit <# ... #>.

I            -- w       C,   
   w  ist die Kopie des Schleifenindexes in DO...I...LOOP  (bzw. 
   ... +LOOP).

I/O          --        Voc
   Woerterbuch welches alle Worte,  die zur  Anpassung  an  die 
   systemspezifischen Ein- und  Ausgabefunktionen  erforderlich
   sind, enthaelt. Dazu gehoert auch die Behandlung des  Block-
   lesens und -schreibens  (in der Grundversion  fuer  RAM-Disk 
   installiert). Diese  Worte sind meist Zielpunkt fuer  Vektor-
   aufrufe aus dem Stammvokabular. Nutzerspezifische Aenderungen
   der Ein- und Ausgabe bzw. Massenspeicherbehandlung  sollten 
   ebenfalls dementsprechend in diesem Vokabular  untergebracht 
   werden.

IF    flag --       C, I,   
           -- sys    (comp.Mod.)
   Wird in Strukturen der Form:  IF...ELSE...THEN oder IF...THEN 
   verwendet.  Wenn flag wahr ist,  Ausfuehrung der Woerter zwi-
   schen  IF  und THEN bzw.  IF und ELSE mit Fortsetzung  hinter 
   THEN . sys wird mit ELSE bzw. THEN ausbalanciert.

IMMEDIATE    --                    
   Kennzeichnung  des zuletzt gebildeten Woerterbucheintrags als 
   ein  Wort,  welches auch im compilierenden Modus  ausgefuehrt 
   und nicht compiliert wird.

INDEX  u1 u2 --      M
   Ausgabe  der jeweils ersten Zeile jedes Screens von  Screen 
   Nr. u1 bis Screen u2 (Titelzeile).

INTERPRET    --      M,   
   Beginn der Interpretation bei dem Zeichen,  welches mit  >IN 
   relativ  zum  Blockanfang  des Massenspeicherblocks  mit  der 
   Nummer, die in BLK steht, indiziert wird.  Wenn die Blocknum-
   mer 0 ist, erfolgt Interpretation vom Texteingabepuffer. 
   s. auch (INTERPRET) und (COMPILE).

IS           --                        
   Abhaengig  von STATE wird entweder das  folgende  DEFER-ierte
   Wort (Vector) sofort gesetzt oder zum spaeteren Setzen compi-
liert. z.B. ' .S IS STATUS stellt den Vector so um, dasz nach
   jeder Eingabezeile der Datenstack gedruckt wird; sehr geeig-
   net fuer Tests.

J            -- w      C,   
   w  ist eine Kopie des Indexes der naechst aeusseren Schleife. 
   Nur  in genesteten Schleifen DO...LOOP (bzw.  ...+LOOP )  an-
   wendbar,  wenn  dazwischen  keine Werte auf  dem  Returnstack 
   eingetragen werden, z.B. DO...DO...J...LOOP...LOOP .

KEY          -- 16b    M, Vec,   
   Die  niederwertigen  7 Bit sind die Kodierung  des  naechsten 
   eingegebenen ASCII-Zeichens. Alle ASCII-Zeichen sind gueltig, 
   auch CTRL-Zeichen (keine Echofunktion, keine Aufbereitung).

KEY?         -- f      Vec
   liefert  TRUE,  wenn  eine Tate  betaetigt  wurde.  Entspricht 
   ?TERMINAL in FIG.

L/SCR        -- u   "lines-per-screen"
   Ist  eine Konstante.  Der Wert stellt die Zeilenanzahl  eines 
   Screens dar.

L>NAME   lfa -- nfa  "l-to-name"  
   Ausgehend von der lfa eines Wortes wird die nfa berechnet.

LABEL        --
   Wird  zur  Bildung  von  Marken  im  Maschinenkode   genutzt. 
   Vgl. ASSEMBLER 

LAST         -- adr     U
   Ist eine Variable, die die Anfangsadresse des letzten (u.U. 
   unvollstaendigen oder ungueltigen)  Woerterbucheintrags
   enthaelt.

LEAVE        --       C, I,   
   Sofortiges Verlassen  einer Schleife DO...LEAVE...LOOP  (bzw. 
   ...+LOOP) mit Beseitigung  der  Schleifenparameter  auf  dem 
   Returnstack. Auch in genesteten Strukturierungssequenzen  in 
   Schleifen anwendbar, auch mehrere LEAVE in einer Schleife. 

LINK         -- adr
   USER-Variable  die  die  Adresse des naechsten Tasks  in  der 
   Round-Robin-Schleife enthaelt.

LINK>   lfa  -- cfa  "from-link"
   Ausgehend von der lfa eines Wortes wird die cfa berechnet.

LITERAL      -- 16b     C, I,   
         16b --    (comp.Mod.)
   Typische Anwendung im  compilierenden Modus: [ 16b ] LITERAL. 
   Compilation von 16b als Literal,  bei der spaeteren  Ausfueh-
   rung erfolgt eine Eintragung von 16b auf dem Datenstack.

LIST       u --         M,   
   SCR wird auf u gesetzt, Screen u wird ausgegeben. Vgl. BLOCK

LOAD       u --         M,   
   Sicherung der aktuellen Parameter des Eingabestroms  >IN  und 
   BLK ; IN wird auf 0 und BLK auf Screennummer u gesetzt, damit 
   Interpretation  von Screen u .  Beendigung der  Interpretation 
   und Rueckkehr zu den alten Werten von >IN und BLK explizit mit 
   \S oder bei Blockende.
   Fehler: u = 0 Vgl. >IN BLK BLOCK

LOOP         --         C, I,   
         sys --    (comp.Mod.)
   Inkrementieren des Schleifenindexes um  1.  Schleifenabbruch,  
   wenn  Index  die Grenze zwischen Limit - 1 und  Limit  ueber-
   schreitet,  sonst  Fortsetzung der Schleife hinter  DO.  
   sys wird mit DO ausbalanciert.

M/MOD   d n1 -- n2 n3
   die  doppeltgenaue  Zahl d wird durch n1  dividiert.  n3  ist 
   Quotient, n2 Rest. ACHTUNG: nicht identisch mit M/MOD in FIG.
   
MARK         --
   MARK  <name>  erzeugt  einen  Woerterbucheintrag  <name>,  bei 
   dessen  Aufruf  alle nach <name> definierten  Worte  geloescht 
   werden. s. EMPTY
  
MAX    n1 n2 -- n3     "max"
   n3  ist  die groessere der beiden Zahlen n1 oder n2  entspre-
   chend der Operation >.

MAX#         -- n
   Vok.: I/O
   Anzahl der maximal in der RAM-Disk verfuegbaren Bloecke.

MIN    n1 n2 -- n3      "min"
   n3 ist die kleinere der beiden Zahlen n1 oder n2 entsprechend 
   der Operation <.

MOD    n1 n2 -- n3                 
   n3 ist der Rest der Division n1 / n2 mit gleichem  Vorzeichen 
   wie  n2  oder gleich 0 .  Fehler:  Divisor = 0 oder n1  /  n2 
   ausserhalb des Bereichs -32768 ...  +32767.  

MOVE  adr1 adr2 u --               
   Falls  u > 0,  werden u Bytes ab adr1 in den Bereich ab  adr2 
   transferiert.

MU/MOD   ud1 u1 -- u2 ud2                
   Ist  eine mathematische Operation mit gemischten  Zahlentypen    
   ohne Vorzeichen, die den Rest u2 und den Doppelzahlquotienten    
   ud2 bei der Division einer Doppelzahl ud1 durch einen Divisor    
   u1 liefert.       ud1/u1=:ud2 Rest u2 

N>LINK   nfa -- lfa  "n-to-link"
   Ausgehend von der nfa eines Wortes wird die lfa berechnet.

NAME>    nfa -- cfa  "from-name"
   Ausgehend von der nfa eines Wortes wird die cfa berechnet.

NEGATE    n1 -- n2                 
   n2 ist das Zweierkomplement von n1. 

NIP    w1 w2 -- w2 
   Loescht den zweiten Stackeintrag.

NOOP         --              
   Ist eine leere Anweisung.

NOT     16b1 -- 16b2               
   16b2 ist das Einerkomplement von 16b1.

NUMBER?  adr -- d f      Vec
   Konvertiere  die Zeichenkette,  deren erstes Zeichen auf  adr 
   steht,  in eine 32-Bit-Zahl entsprechend dem aktuellen Inhalt 
   von BASE . Standartmaessig auf (INUMBER?) vektorisiert.
   Flag gibt Auskunft ueber Erfolg der Konvertierung.

OFF      adr -- 
   Setzt Inhalt von adr  auf FALSE.

OFFSET       -- n      U,   
   Ist eine Variable,  die den Blockoffset enthaelt, welcher bei 
   Ausfuehrung  von  BLOCK oder BUFFER zur Blocknummer  auf  dem 
   Stack addiert wird.

ON       adr -- 
   Setzt Inhalt von adr  auf TRUE.

ONLY         --
   Vok.: ROOT
   Das erste Woerterbuch in der Suchreihenfolge wird durch  ROOT 
   ersetzt. ROOT wird  gleichzeitig zum  einzigen  durchsuchten
   Vocabular. Vgl. VOCABULARY und Teilwoerterbuch ROOT

OR  16b1 16b2 -- 16b3               
   16b3 ist die bitweise ODER-Verknuepfung von 16b1 mit 16b2 .

ORDER        --    Vok.: ROOT
   zeigt die z. Z. gueltige Vokabular-Suchreihenfolge.

OS         n --    Vok.: I/O
   Aufruf der Systemroutinen im Installationsbereich.  n ist der 
   Adressoffset zum Aufruf von CI (Zeicheneingabe).

OVER 16b1 16b2 -- 16b1 16b2 16b3     
   16b3 ist die Kopie von 16b1 .

P!     n adr --
   Direkte  Portausgabe,  wobei n der auszugebende Wert und  adr 
   die Adresse des Ports ist.

P@       adr -- n
   Direkte Porteingabe, wobei n der einzugebene Wert und adr die 
   Adresse des Ports ist.

PAD          -- adr                
   Anfangsadresse eines mindestens 84 Byte langen Textzwischen-
   puffers.

PARSE    +n1 -- adr +n2 
   Separiert  im  Eingabestrom eine Zeichenkette,  die  mit  +n1        
   endet, liefert die Anfangsadresse adr  und die Laenge +n2 der    
   Zeichenkette. Aktualisiert den >IN-Zeiger.

PARSE-WORD  +n1 -- adr +n2   
   Separiert im  Eingabestrom eine Zeichenkette,  die  mit  +n1  
   beginnt, liefert  die Anfangsadresse adr und die Laenge  +n2 
   der Zeichenkette. Aktualisiert den >IN-Zeiger.

PAUSE        --                           
   Ist eine leere Anweisung. Sie ist fuer Multitask reserviert,
   wo sie eine Umschaltung auf das naechste Task bewirkt.
   
PICK      +n -- 16b                
   16b  ist  die Kopie des n-ten Stackeintrags (+n nicht  mitge-
   rechnet). 0 PICK entspricht DUP , 1 PICK entspricht OVER .

PLACE  adr1 n adr2 -- 
   Lagert  Zeichenkette  der Laenge n  von  adr1  (Quelladresse)    
   nach adr2 (Zieladresse) um.   

PREVIOUS     --    
   Vok.: ROOT
   entfernt  als  Gegenstueck zu ALSO  das  zuletzt  deklarierte 
   Woerterbuch aus der Suchreihenfolge.

PRINTING     -- adr    U
   USER-Variable,  die anzeigt, ob Drucker als Echo zugeschaltet 
   ist. PRINTING ON bzw. OFF schaltet den Drucker zu bzw. ab.

PRIOR        -- adr
   Ist eine Variable,  die zur Woerterbuchsuche verwendet  wird. 
   Zeigt zum letzten Woerterbuch, das durchsucht wurde.

PUT          --
   Speichert den Inhalt der RAM-Disk auf Magnetband ab. Beachte 
   rechnerspezifische Unterschiede.

QUERY        --        M,   
   Empfangen von 80 Zeichen in den TIB und zwar so  lange,  bis 
   <ret> erkannt wird oder der Textpuffer gefuellt ist. >IN und 
   BLK werden auf 0 gesetzt, #TIB enthaelt den Wert von SPAN  . 
   Vgl. EXPECT 

QUIT         --                    
   Fuehrt folgende Operationen aus: Returnstack saeubern, aus-
   fuehrenden Modus einschalten, Eingabe ueber das aktuelle Ein-
   gabegeraet, Beginn der Wortinterpretation. KeineSystemaus-
   schrift.

R#           -- adr  U "r-sharp"
   Ist eine Systemvariable,  die den Ort eines Editcursors  oder 
   anderer mit Files zusammenhaengender Funktionen enthalten
   kann.

R>           -- 16b    C,   
   Entnahme von 16b vom Returnstack und Transfer zum  Parameter-
   stack.

R@           -- 16b    C,   
   Kopiert  den  obersten Wert des Returnstacks als 16b auf  den 
   Datenstack.

READ   adr n --      
   Vok.: I/O
   liest  aus  der RAM-Disk Block n und schafft ihn auf  Adresse 
   adr. Standartvoreinstellung fuer READ-BLOCK.

READ-BLOCK   adr n --   Vec
   liest Block n von (RAM) Disk nach Adresse adr.

RECURSE      --     C, I,   
   Compiliert die Compilationsadresse der Definition, die gerade 
   compiliert wird. Ausfuehrung erfolgt spaeter rekursiv.

REPEAT       --     C, I,           
         sys --    (comp.Mod.)
   Verwendung  in BEGIN...WHILE...REPEAT.  Zur  Ausfuehrungszeit 
   Sprung von REPEAT zur Stelle hinter BEGIN. sys wird mit WHILE 
   ausbalanciert. Vgl. BEGIN

REVEAL       --
   Replaziert die letzte Definition in das Hauptwoerterbuch.

ROLL      +n --                    
   Der +n - te Stackeintrag (+n nicht mitgerechnet) wird an  die 
   oberste Stackposition rotiert, die folgenden Eintraege gelan-
   gen  auf  die  jeweils frei werdenden Plaetze.  2  ROLL  ent-
   spricht ROT , 0 ROLL ist eine Nulloperation.

RMARGIN      -- adr
   Ist  eine Variable.  Der Inhalt der Adresse (adr)  entspricht 
   der Anzahl der Stellen,  die bei einer Ausgabe auf Bildschirm 
   oder Drucker rechts maximal ausgegeben werden. Wird bisher
   nur von WORDS genutzt. 

ROOT         --      Vok
   Das Vokabular  ROOT   enthaelt  die   zur   Steuerung   der 
   Suchreihenfolge notwendigen   Worte  und  basiert  auf   den 
   Experimentalvorschlaegen von ... 
   (s. auch Der Standart FORTH 83)

ROT 16b1 16b2 16b3 -- 16b2 16b3 16b1            
   Die 3 obersten Stackeintraege werden rotiert,  der drittober-
   ste gelangt an die Spitze.

RP0         -- adr   U "r-zero"
   Ist eine Systemvariable,  die die Ausgangsposition des
   Returnstack-Zeigers enthaelt.

RP!     adr  --     "r-p-store"
   Setzt Returnstackanfang auf die Adresse adr.

RP@          -- adr   "r-p-at"
   Hinterlaesst  den  aktuellen Returnstack-Zeiger-Wert auf  dem 
   Datenstack.

S>D        n -- d             
   Wandelt eine  vorzeichenbehaftete Einfachintegerzahl  n  in 
   eine Doppelintegerzahl d.

SAVE-BUFFERS   --   M, "save-buffers"
   Die Inhalte aller als aktualisiert gekennzeichneten Blockpuf-
   fer  werden in die entsprechenden  Massenspeicherbloecke  zu-
   rueckgeschrieben, alle Puffer werden nicht laenger als aktua-
   lisiert gekennzeichnet, bleiben aber u.U. zugewiesen.

SCAN  adr1 +n1 n2 -- adr2 +n3
   Aus  einer Zeichenkette mit der Adresse adr1 und  der  Laenge 
   +n1  wird nach einem Zeichen n2 gesucht.  Auf dem  Datenstack 
   wird  nach  der Ausfuehrung des Wortes die Adresse  adr2  des 
   gefundenen  Zeichens n2 und die Laenge der verbleibenden Zei-
   chenkette (+n3).

SCR          -- adr     "s-c-r"
   Adresse der Variablen,  die die Nummer des zuletzt ausgegeben 
   Screens enthaelt. Vgl. LIST

SEAL         --    Vok.: ROOT
   SEAL  <name>   macht  das  Woerterbuch  <name>  zum  alleinig 
   durchsuchten.  Kann z.B.  fuer versiegelte Applikationen ver-
   wendet werden. 

SIGN       n --                    
   Bei  n < 0 Einfuegen eines ASCII-Zeichens '-'  (Minuszeichen) 
   an  die Zeichenkette der Ausgabekonvertierung.  Anwendung in-
   nerhalb <# ... #>.

SKIP   adr1 +n1 n2 -- adr2 +n3 
   Aus  einer Zeichenkette mit der Adresse adr1 und  der  Laenge 
   +n1 wird nach einem Zeichen +n2 gesucht. Auf dem Stack liegen 
   nach  Ausfuehrung  des  Wortes die Adresse  adr2  des  ersten 
   Zeichens  nach dem gefundenen Zeichen +n2 und die Laenge  der 
   verbleibenden Zeichenkette (+n3).

SOD          -- adr   Vok.: I/O
   Uebergibt die Adresse im Boot-Bereich, auf der die erste  von 
   der RAM-Disk benutzte Adresse steht.

SOURCE       -- adr  n 
   Liefert Quelladresse adr  und Laenge n des Eingabestromes.  

SP0         -- adr   U "s-zero"
   Variable,  die  den Initialisierungswert des  Datenstack-
   pointers enthaelt.

SP!      adr --     "s-p-store"
   Setzt Datenstackanfang auf adr. 

SP@          -- adr    "s-p-at"
   adr  ist die Adresse des obersten Stackeintrags,  bevor  SP@
   ausgefuehrt wurde.

SPACE        --     M,   
   Ausgabe eines ASCII-Leerzeichens.

SPACES    +n --     M,   
   Ausgabe von +n ASCII-Leerzeichen.

SPAN         -- adr                
   Adresse der Variablen,  die die Laenge der zuletzt mit EXPECT 
   empfangenen Zeichenkette enthaelt. Vgl. EXPECT

STATE        -- adr                
   Adresse  der  Variablen,  die  die  Systemzustandsinformation 
   enthaelt (compilierender Modus:  Inhalt ungleich 0) 

STATUS       --        Vec
   Ausfuehrungsvektor, der jeweils  nach  Abarbeitung einer 
   Eingabezeile ausgefuehrt  wird und den  Systemstatus  meldet. 
   (Normalerweise CR, sinnvoll ist fuer Testfaelle die Umstel-
   lung mit ' .S IS STATUS)

SWAP  16b1 16b2 -- 16b2 16b1          
   Die 2 obersten Stackeintraege werden getauscht.

THEN         --        C, I,   
         sys --    (comp.Mod.)
   In  IF...ELSE...THEN oder IF...THEN verwendet  markiert  THEN 
   die Stelle,  wo die Ausfuehrung nach der Abarbeitung des IF - 
   bzw. des ELSE - Zweigs fortgesetzt wird. 
   sys wird mit IF bzw. ELSE ausbalanciert.

THRU   u1 u2 --        M,   
   Lade die aufeinanderfolgenden Bloecke von u1 bis u2.

TIB          -- adr     "t-i-b"
   Adresse des Texteingabepuffers, darin Speicherung der Zeichen 
   des Eingabestroms vom aktuellen Geraet.

TOS          -- adr
   User-Variable, die bei Taskumschaltung den TOS des jeweiligen 
   Task zwischenspeichert.

TRIM    adr voc-adr --   
   Vok.: HIDDEN
   Stutzt die  4  Hash-Faeden eines Vocabulars  so,  dasz  sie 
   kleiner als adr sind.

TRUE         -- n   
   Ist eine Konstante und liefert den Wert n=-1 (0FFFFH).

TUCK   w1 w2 -- w2 w1 w2 
   Verdoppelt  den letzten Stackeintrag und bringt  diesen  Wert 
   auf die 3. Stackposition.    

TYPE  adr +n --     M,   
   +n Zeichen werden fortlaufend ab adr aus dem Speicher gelesen 
   und ausgegeben, falls +n > 0. 

U.         u --     M, "u-dot"
   Formatfreie Ausgabe von u als vorzeichenlose Zahl.

U.R     u +n --     M, "u-dot-r"
   Konvertierung  von  u bezueglich der  aktuellen  Zahlenbasis, 
   rechtsbuendige  Ausgabe in einem gedachten Feld der Weite +n. 
   Fehler:  Feldweite reicht nicht zur Darstellung aller Zeichen 
   aus. Vgl. "Zahlenkonvertierung"

U2/       u1 -- u2 
   u2 ist das Ergebnis der arithmetischen Rechtsverschiebung von 
   u1 um 1 Bit.  In die frei werdende Bitposition wird eine Null 
   geschoben.

U<     u1 u2 -- flag   "u-less"
   Das flag ist wahr, falls u1 < u2.

UM*    u1 u2 -- ud     "u-star"
   ud ist das vorzeichenlose Produkt  u1 * u2.   

UM/MOD ud u1 -- u2 u3 "u-m-divide-mod"
   u2  ist  der  Rest  und u3 der  Quotient  nach  der  Division 
   u1/u2.  Fehler:  Division durch 0 oder Quotient  ausserhalb
    0...65 535 . Vgl. "Division mit Rundung"

UNTIL   flag --      C, I,   
         sys --    (comp.Mod.)
   Markiert  das  Ende  in  einer  Schleife  BEGIN...flag UNTIL.
   Schleifenabbruch, falls flag wahr ist, sonst Fortsetzung der 
   Abarbeitung  hinter BEGIN.  sys wird mit BEGIN ausbalanciert. 
   Vgl. BEGIN

UP         -- adr "user-pointer"
   Ist eine System-Variable.  Enthaelt die Adresse des aktuellen 
   USER-Areas.

UPD        -- adr  Vok.: HIDDEN   
   Variable, die anzeigt, ob der Block im Buffer UPDATE ist.

UPDATE     --                    
   Kennzeichnung des aktuell gueltigen Blockpuffers als aktuali-
   siert.  Vor Aenderung des Blockinhalts (Beschreiben mit einem 
   anderen  Blockinhalt  oder Ausfuehrung von FLUSH  oder  SAVE-
   BUFFERS)  erfolgt  automatisches Rueckschreiben  zur RAM-Disk.

USER         --       Voc, M
   Vokabular zur Definition von USER-Variablen und -Vektoren. Die 
   Definition dieser Worte weicht vom bisher bekannten etwas  ab. 
   Die  Position  im USER-Area wird vom System selbst  verwaltet. 
   Die Definition einer Variablen lautet dann:
      USER VARIABLE name
   Die eines USER-Vektors:
      USER DEFER name

VARIABLE     --         M,   
   Definitionswort fuer 16-Bit-Variablen: VARIABLE Wortname. Bei 
   Ausfuehrung von Wortname wird die Parameterfeldadresse auf dem 
   Stack abgelegt.

VARIABLE     --     
   Voc.: USER
   Definiert eine  USER-Variable und ist somit  aequivalent  zum    
   Befehl USER in FIG.

VOCABULARY   --         M,   
   Definitionswort fuer Woerterbuecher: VOCABULARY Wortname. 
   Eintragen  von  Wortname ins Woerterbuch  zur  Spezifizierung 
   einer neuen geordneten Liste von Wortdefinitionen.  Die  Aus-
   fuehrung  von  Wortname ersetzt das erste Woerterbuch in  der 
   Suchreihenfolge durch Wortname.  Wenn Wortname  Compilations-
   woerterbuch ist, so werden neue Definitionen an die Liste von 
   Wortname angefuegt. 
   Vgl. DEFINITIONS 

VOC-LINK     -- adr  
   Ist eine Systemvariable,  welche die Adresse eines Feldes  in       
   der  Definition des zuletzt erzeugten Woerterbuches enthaelt.    
   Alle Woerterbuchnamen sind ueber diese Felder  verkettet,  um 
   eine  Steuerung  von FORGET ueber mehrere moegliche  Woerter-
   buecher zu ermoeglichen.

VOCS         --     Vok.: ROOT
   zeigt alle definierten Vokabulare.

WARM         --                
   Die Warmstartprozedur liefert eine Systemmeldung und fuehrt 
   ABORT aus.

WARNING      -- addr
   Systemvariable. Wenn ihr Inhalt <>0 ist, wird bei Redefini-
   tion eines Wortes eine entsprechende Warnung ausgegeben.

WHERE  off n --      Vec
   Lokalisiert  Screen  n und Position des  Wortes,  dass  einen 
   Fehler verursachte.

WIDTH        -- adr    U
   Ist  eine Systemvariable,  welche die Hoechstzahl von Zeichen    
   enthaelt,  die  bei der Uebersetzung eines  Definitionsnamens 
   abgespeichert werden.  Der Wert muss zwischen 1 und 31 liegen 
   und wird mit 31 vorbesetzt.  

WHILE   flag --      C, I,   
     sys1 -- sys2    (comp.Mod.)
   In  BEGIN...flag WHILE...REPEAT   wird die  Abarbeitung  fuer 
   flag = wahr zwischen WHILE und REPEAT fortgesetzt, anschlies-
   send Ruecksprung zur Stelle hinter BEGIN .  Bei flag = falsch 
   Fortsetzung  der  Abarbeitung hinter REPEAT.  
   sys1 wird mit BEGIN, sys2 mit REPEAT ausbalanciert.

WORD    char -- adr      M,   
   Erzeugen  einer  Teilzeichenkette  (Token) als  FORTH-Zeichen-
   kette aus dem aktuellen Eingabestrom.  Abschluss  durch  char
   oder  bei Erschoepfung des Eingabestroms. Fuehrende Trennzei-
   chen char werden ignoriert. Die Laenge des Token wird auf
adr, die Zeichenkette ab adr+1 als Bytefolge mit nachfolgendem 
   Leerzeichen (zaehlt nicht zur Laenge) abgespeichert.  Laenge 
   der  Zeichenkette: maximal 255 Byte, sonst unbestimmt. Bei 
   erschoepftem Eingabestrom zum Zeitpunkt des Aufrufs von WORD 
   Generierung einer Zeichenkette der Laenge 0 . Wenn char nicht 
   gefunden wird, ist der Inhalt von >IN die Laenge des Eingabe-
   stroms, sonst wird >IN so korrigiert, dass der Offset hinter 
   die Teilzeichenkette zeigt.  #TIB wird nicht veraendert. Die
   generierte FORTH-Zeichenkette wird nach HERE transportiert
   und ihre Adresse uebergeben. 

WORDS        --         M
   Ausgabe aller Wortnamen des ersten Woerterbuchs der aktuellen 
   Suchreihenfolge.

WORDS        --   
   Vok.: ROOT
   Redefinition. s. Vokabular FORTH.

WRITE  adr n --   Vok.: I/O
   schreibt Block n von Adresse adr in die  RAM-Disk.  Standart-
   Voreinstellung fuer WRITE-BLOCK. 

WRITE-BLOCK   adr n --    Vec
   schreibt  Block n,  welcher auf Adresse adr steht  zur  (RAM)
   Disk. 

XOR  16b1 16b2 -- 16b3    "x-or"
   16b3 ist das Ergebnis der bitweisen Exklusiv-ODER-Verknuep-
   fung von 16b1 mit 16b2. 

[         --   I, "left-bracket"
   Einschalten des ausfuehrenden Modus, nachfolgend Interpreta-
   tion des Textes aus dem  Eingabestrom.  Typische  Anwendung:
   Vgl. LITERAL und  ]

[']    -- adr  C, I, M, "bracket-tick"
   Mit ['] Wortname wird die Compilationsadresse von Wortname in
   eine  Doppelpunktdefinition compiliert.  Bei deren  spaeterer 
   Ausfuehrung wird adr auf dem Stack abgelegt. Fehler: Wortname 
   kann  nicht in der aktuellen Suchreihenfolge gefunden werden. 
   Vgl. LITERAL

[COMPILE]    --    C, I, M,    "bracket-compile"
   In [COMPILE] Wortname wird das IMMEDIATE-Wort Wortname compi-
  liert und nicht ausgefuehrt. 

\            --    "skip-line"
   Auf \ folgender Kommentar in der Screenzeile  wird  bei  der 
   interpretativen Abarbeitung des Screens ignoriert.

\S           --    "skip-screen"
   Beendet die Abarbeitung des Screens.

]            --  "right-bracket"
   Einschalten des compilierenden Modus mit nachfolgender Compi-
   lation des Textes aus dem Eingabestrom. In diesem Wort steckt
   die Hauptcompilerschleife (anders als in fig). s. RUN INTER-
   PRET