mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-12 18:09:39 +00:00
Documentation: CP/M specific words
This commit is contained in:
Carsten Strotmann
parent
c7f5bfbb7b
commit
46dd9ebcd0
|
|
@ -1,126 +1,127 @@
|
|||
.HE CP/M 2.2 - spezifische Worte
|
||||
#bs ( -- n ) "number-backspace"
|
||||
n ist der Ascii-Wert f}r Backspace.
|
||||
#+Title: CP/M 2.2 - spezifische Worte
|
||||
|
||||
#cr ( -- n ) "number-c-r"
|
||||
n ist der Ascii-Wert f}r Carriage-Return.
|
||||
* =#bs ( -- n )= "number-backspace"
|
||||
n ist der Ascii-Wert für Backspace.
|
||||
|
||||
* =#cr ( -- n )= "number-c-r"
|
||||
n ist der Ascii-Wert für Carriage-Return.
|
||||
|
||||
#esc ( -- n ) "number-escape"
|
||||
n ist der Ascii-Wert f}r Escape.
|
||||
n ist der Ascii-Wert für Escape.
|
||||
|
||||
#lf ( -- n ) "number-linefeed"
|
||||
n ist der Ascii-Wert f}r Linefeed.
|
||||
n ist der Ascii-Wert für Linefeed.
|
||||
|
||||
(at ( row col -- ) "paren-at"
|
||||
Positioniert den Cursor in die Zeile row, Spalte col und setzt OUT.
|
||||
Benutzt dabei LOCATE. Siehe auch AT.
|
||||
Positioniert den Cursor in die Zeile row, Spalte col und setzt OUT.
|
||||
Benutzt dabei LOCATE. Siehe auch AT.
|
||||
|
||||
(at? ( -- row col ) "paren-at-question"
|
||||
row ist die aktuelle Zeilennummer, col die aktuelle Spaltennummer.
|
||||
Vergleiche AT?
|
||||
|
||||
(blk/drv ( drv -- blocks ) "paren-blocks-per-drive"
|
||||
blocks gibt an wieviele Forth-Bl|cke (1kB) auf dem Laufwerk drv
|
||||
sind. Ist blocks=0, dann existiert dieses Laufwerk nicht.
|
||||
blocks gibt an wieviele Forth-Bl|cke (1kB) auf dem Laufwerk drv
|
||||
sind. Ist blocks=0, dann existiert dieses Laufwerk nicht.
|
||||
Siehe BLK/DRV.
|
||||
|
||||
(cr ( -- ) "paren-c-r"
|
||||
Setzt den Cursor in die erste Spalte der n{chsten Zeile. PAUSE wird
|
||||
ausgef}hrt.
|
||||
Setzt den Cursor in die erste Spalte der n{chsten Zeile. PAUSE wird
|
||||
ausgeführt.
|
||||
|
||||
(decode ( addr pos1 key --- addr pos2 ) "paren-decode"
|
||||
Wertet key aus. key wird in der Speicherzelle addr+pos1 abgelegt und
|
||||
Wertet key aus. key wird in der Speicherzelle addr+pos1 abgelegt und
|
||||
als Echo auf dem Bildschirm ausgegeben. Die Variable SPAN und pos1
|
||||
werden inkrementiert. Folgende Tasten werden besonders behandelt:
|
||||
Control-S und Control-D beeinflussen nur pos1 und den Cursor. Ctrl-G
|
||||
l|scht das Zeichen unter dem Cursor und dekrementiert SPAN.
|
||||
Backspace (Control-H) und Delete ($7F) l|schen das Zeichen links vom
|
||||
Cursor und dekrementieren pos1 und SPAN. Control T f}gt an der
|
||||
Cursorposition ein Leerzeichen ein. SPAN wird inkrementiert. Return
|
||||
positioniert den Cursor auf das letzte Zeichen.
|
||||
Vergleiche INPUT: und (EXPECT.
|
||||
werden inkrementiert. Folgende Tasten werden besonders behandelt:
|
||||
Control-S und Control-D beeinflussen nur pos1 und den Cursor. Ctrl-G
|
||||
l|scht das Zeichen unter dem Cursor und dekrementiert SPAN.
|
||||
Backspace (Control-H) und Delete ($7F) l|schen das Zeichen links vom
|
||||
Cursor und dekrementieren pos1 und SPAN. Control T fügt an der
|
||||
Cursorposition ein Leerzeichen ein. SPAN wird inkrementiert. Return
|
||||
positioniert den Cursor auf das letzte Zeichen.
|
||||
Vergleiche INPUT: und (EXPECT.
|
||||
|
||||
(del ( -- ) "paren-del"
|
||||
L|scht ein Zeichen links vom Cursor. Benutzt dabei CURLEFT.
|
||||
Vergleiche auch DEL.
|
||||
|
||||
(emit ( 8b -- ) "paren-emit"
|
||||
Gib 8b auf dem Bildschirm aus. Ein PAUSE wird ausgef}hrt. Alle Werte
|
||||
werden als Zeichen ausgegeben. Steuercodes sind nicht m|glich, d.h.
|
||||
alle Werte < $20 werden als Punkt "." ausgegeben.
|
||||
Gib 8b auf dem Bildschirm aus. Ein PAUSE wird ausgeführt. Alle Werte
|
||||
werden als Zeichen ausgegeben. Steuercodes sind nicht m|glich, d.h.
|
||||
alle Werte < $20 werden als Punkt "." ausgegeben.
|
||||
Vergleiche CON! und EMIT.
|
||||
|
||||
(expect ( addr len -- ) "paren-expect"
|
||||
Erwartet len Zeichen vom Eingabeger{t, die ab addr im Speicher
|
||||
Erwartet len Zeichen vom Eingabeger{t, die ab addr im Speicher
|
||||
abgelegt werden. Ein Echo der Zeichne wird ausgegeben. Return be
|
||||
endet die Eingabe vorzeitig. Ein abschlie~endes Leerzeichen wird
|
||||
immer ausgegeben. Die L{nge der Zeichenkette wird in der Variablen
|
||||
SPAN }bergeben. Vergleiche EXPECT.
|
||||
endet die Eingabe vorzeitig. Ein abschlie~endes Leerzeichen wird
|
||||
immer ausgegeben. Die L{nge der Zeichenkette wird in der Variablen
|
||||
SPAN übergeben. Vergleiche EXPECT.
|
||||
.PA
|
||||
(key ( -- char ) "paren-key"
|
||||
Wartet auf einen Tastendruck. W{hrend der Wartezeit wird PAUSE
|
||||
ausgef}hrt. Die untersten 7 Bit von char enthalten den Ascii-Code
|
||||
der gedr}ckten Taste. Steuerzeichen werden nicht ausgewertet,
|
||||
Wartet auf einen Tastendruck. W{hrend der Wartezeit wird PAUSE
|
||||
ausgeführt. Die untersten 7 Bit von char enthalten den Ascii-Code
|
||||
der gedrückten Taste. Steuerzeichen werden nicht ausgewertet,
|
||||
sondern unver{ndert abgeliefert. Vergleiche KEY.
|
||||
|
||||
(key? ( -- flag ) "paren-key-question"
|
||||
flag ist TRUE, wenn eine Taste gedr}ckt wurde, sonst false.
|
||||
flag ist TRUE, wenn eine Taste gedrückt wurde, sonst false.
|
||||
Vergleiche auch KEY?.
|
||||
|
||||
(page ( -- ) "paren-page"
|
||||
L|scht den Bildschirm, positioniert den Cursor in die linke obere
|
||||
L|scht den Bildschirm, positioniert den Cursor in die linke obere
|
||||
Ecke und setzt OUT auf null. Siehe auch LOCATE und PAGE.
|
||||
|
||||
(r/w ( adr blk file r/wf -- flag ) "paren-r-w"
|
||||
Ist r/wf<>FALSE, wird der Forth-Block mit der absoluten Blocknummer
|
||||
blk von der Diskette gelesen. Ist r/wf=FALSE so wird er geschrieben.
|
||||
adr gibt die Addresse des Block-Puffers an. file mu~ null sein, da
|
||||
(r/w den Zugriff auf Files nicht unterst}tzt. flag ist TRUE wenn ein
|
||||
Ist r/wf<>FALSE, wird der Forth-Block mit der absoluten Blocknummer
|
||||
blk von der Diskette gelesen. Ist r/wf=FALSE so wird er geschrieben.
|
||||
adr gibt die Addresse des Block-Puffers an. file mu~ null sein, da
|
||||
(r/w den Zugriff auf Files nicht unterstützt. flag ist TRUE wenn ein
|
||||
Diskettenfehler vorlag.
|
||||
|
||||
(type ( addr len -- ) "paren-type"
|
||||
Gibt den String, der im Speicher bei addr beginnt und die L{nge len
|
||||
hat, auf dem Blidschirm aus. Genau ein PAUSE wird nach der Ausgabe
|
||||
ausgf}hrt. Vergleiche TYPE, OUTPUT: und (EMIT.
|
||||
Gibt den String, der im Speicher bei addr beginnt und die L{nge len
|
||||
hat, auf dem Blidschirm aus. Genau ein PAUSE wird nach der Ausgabe
|
||||
ausgführt. Vergleiche TYPE, OUTPUT: und (EMIT.
|
||||
|
||||
/drive ( blk -- blk' drv ) "per-drive"
|
||||
blk gibt die absolute Nummer eines Forth-Blocks an. /DRIVE
|
||||
berechnet, auf welchem Laufwerk (drv) dieser Block zu finden ist,
|
||||
und welche relative Blocknummer (blk') er zum Anfang dieses
|
||||
Laufwerks hat. Siehe DRV?, >DRIVE.
|
||||
|
||||
blk gibt die absolute Nummer eines Forth-Blocks an. /DRIVE
|
||||
berechnet, auf welchem Laufwerk (drv) dieser Block zu finden ist,
|
||||
und welche relative Blocknummer (blk') er zum Anfang dieses
|
||||
Laufwerks hat. Siehe DRV?, >DRIVE.
|
||||
|
||||
>drive ( blk drv -- block' ) "to-drive"
|
||||
blk gibt die relative Blocknummer eine Forth-Blocks bez}glich des
|
||||
Anfangs von Laufwerk drv an. >DRIVE berechnet daraus, unter welcher
|
||||
Blocknummer dieser Block beim momentanen Stand von OFFSET erreicht
|
||||
werden kann (block'). In gewisser Weise Umkehrung von /DRIVE.
|
||||
blk gibt die relative Blocknummer eine Forth-Blocks bezüglich des
|
||||
Anfangs von Laufwerk drv an. >DRIVE berechnet daraus, unter welcher
|
||||
Blocknummer dieser Block beim momentanen Stand von OFFSET erreicht
|
||||
werden kann (block'). In gewisser Weise Umkehrung von /DRIVE.
|
||||
|
||||
?drive-error ( f -- ) "question-drive-error"
|
||||
Ist f=FALSE, so wird "beyond capacity" als Fehlermeldung ausgegeben.
|
||||
|
||||
?drive ( n -- n ) "question-drive"
|
||||
]berpr}ft, ob das Laufwerk n existiert, und gibt "beyond capacity"
|
||||
]berprüft, ob das Laufwerk n existiert, und gibt "beyond capacity"
|
||||
als Fehlermeldung aus, wenn dies nicht der Fall ist.
|
||||
|
||||
b/blk ( -- b/blk ) "bytes-per-block"
|
||||
Eine Konstante die angibt, wieviele Bytes in einen Forth-Block
|
||||
passen. Nach dem Forth-83 Standard ist B/BLK = &1024.
|
||||
Eine Konstante die angibt, wieviele Bytes in einen Forth-Block
|
||||
passen. Nach dem Forth-83 Standard ist B/BLK = &1024.
|
||||
|
||||
bios ( -- addr ) "bios"
|
||||
Adresse eines 8080-Unterprogramms, das einen Sprung ins BIOS aus
|
||||
f}hrt. Das Low-Byte der Einsprungadresse steht dabei in HL. Wird von
|
||||
führt. Das Low-Byte der Einsprungadresse steht dabei in HL. Wird von
|
||||
con!, (key?, getkey und read/write benutzt.
|
||||
|
||||
blk/drv ( -- #blk ) "blocks-per-drive"
|
||||
#blk gibt die Kapazit{t des aktuellen Laufwerks (bestimmt durch
|
||||
#blk gibt die Kapazit{t des aktuellen Laufwerks (bestimmt durch
|
||||
OFFSET) in Forth-Bl|cken (1kB) an. Siehe (BLK/DRV.
|
||||
.PA
|
||||
con! ( 8b -- ) "con-store"
|
||||
Gibt 8b auf die CONsole (Bildschirm) aus. Ascii-Werte < $20 werden
|
||||
con! ( 8b -- ) "con-store"
|
||||
Gibt 8b auf die CONsole (Bildschirm) aus. Ascii-Werte < $20 werden
|
||||
als Steuercodes interpretiert.
|
||||
|
||||
curleft ( -- ) "cur-left"
|
||||
Bewegt den Cursor ein Zeichen nach links. Eine der vordefinierten
|
||||
Bewegt den Cursor ein Zeichen nach links. Eine der vordefinierten
|
||||
Terminalfunktionen.
|
||||
|
||||
curoff ( -- ) "cur-off"
|
||||
|
|
@ -130,21 +131,21 @@ curon ( -- ) "cur-on"
|
|||
Schaltet den Cursor an. Eine der vordefinierten Terminalfunktionen.
|
||||
|
||||
currite ( -- ) "cur-right"
|
||||
Bewegt den Cursor ein Zeichen nach rechts. Eine der vordefinierten
|
||||
Terminalfunktionen.
|
||||
Bewegt den Cursor ein Zeichen nach rechts. Eine der vordefinierten
|
||||
Terminalfunktionen.
|
||||
|
||||
dark ( -- ) "dark"
|
||||
L|scht den Bildschirm. Eine der vordefinierten Terminalfunktionen.
|
||||
L|scht den Bildschirm. Eine der vordefinierten Terminalfunktionen.
|
||||
|
||||
display ( -- ) "display"
|
||||
Ein mit OUTPUT: definiertes Wort, das den Bildschirm als Ausgabe
|
||||
ger{t anw{hlt, wenn es ausgef}hrt wird. Die Worte EMIT, CR, TYPE,
|
||||
DEL, PAGE, AT, und AT? beziehen sich dann auf das aktuelle Terminal.
|
||||
ger{t anw{hlt, wenn es ausgeführt wird. Die Worte EMIT, CR, TYPE,
|
||||
DEL, PAGE, AT, und AT? beziehen sich dann auf das aktuelle Terminal.
|
||||
Siehe TERMINAL:.
|
||||
|
||||
dma! ( addr -- ) "d-m-a-store"
|
||||
addr ist die Adresse des Diskettenpuffers, der beim n{chsten Dis
|
||||
kettenzugriff verwendet werden soll.
|
||||
kettenzugriff verwendet werden soll.
|
||||
|
||||
drive ( n -- ) "drive"
|
||||
W{hlt n als aktuelles Laufwerk an. [ndert OFFSET entsprechend.
|
||||
|
|
@ -152,110 +153,110 @@ drive ( n -- ) "drive"
|
|||
|
||||
drv! ( drv f -- dph ) "drive-store"
|
||||
drv ist die Nummer des Diskettenlaufwerks, das als n{chstes ver
|
||||
wendet werden soll. f=0 gibt an, ob es sich um den erste Zugriff
|
||||
nach einem CP/M Warmstart handelt. dph ist die Adresse des CP/M
|
||||
wendet werden soll. f=0 gibt an, ob es sich um den erste Zugriff
|
||||
nach einem CP/M Warmstart handelt. dph ist die Adresse des CP/M
|
||||
Disk-Parameter-Headders. (Siehe CP/M Operating System Manual)
|
||||
Ist dph=0, so ist das angesprochene Laufwerk in diesem Kom puter
|
||||
system nicht unterst}tzt.
|
||||
system nicht unterstützt.
|
||||
|
||||
drv? ( blk -- drv ) "drive-question"
|
||||
blk gibt die absolute Nummer eines FORTH-Blocks an, DRV? berechnet
|
||||
blk gibt die absolute Nummer eines FORTH-Blocks an, DRV? berechnet
|
||||
daraus das Laufwerk (drv) auf dem er zu finden ist.
|
||||
Siehe /DRIVE, >DRIVE.
|
||||
|
||||
drv0 ( -- ) "drive-zero"
|
||||
W{hlt Laufwerk 0 (A) als aktuelles Laufwerk f}r R/W an. Siehe DRIVE
|
||||
W{hlt Laufwerk 0 (A) als aktuelles Laufwerk für R/W an. Siehe DRIVE
|
||||
und >DRIVE.
|
||||
|
||||
drv1 ( -- ) "drive-one"
|
||||
W{hlt Laufwerk 1 (B) als aktuelles Laufwerk f}r R/W an. Siehe DRIVE
|
||||
W{hlt Laufwerk 1 (B) als aktuelles Laufwerk für R/W an. Siehe DRIVE
|
||||
und >DRIVE.
|
||||
|
||||
drvinit ( -- ) "drive-init"
|
||||
Initialisiert das volksFORTH-Disk-System.
|
||||
Die im Komputer-System vorhandenen Laufwerke werden der Reihe nach
|
||||
selektiert und deren Kapazit{t berechnet. Dann wird das CP/M
|
||||
default-Laufwerk selektiert.
|
||||
Initialisiert das volksFORTH-Disk-System.
|
||||
Die im Komputer-System vorhandenen Laufwerke werden der Reihe nach
|
||||
selektiert und deren Kapazit{t berechnet. Dann wird das CP/M
|
||||
default-Laufwerk selektiert.
|
||||
dumb ( -- ) "dumb"
|
||||
Ein mit TERMINAL: definiertes Wort, das ein ignorantes Terminal
|
||||
anw{hlt, wenn es ausgef}hrt wird. CURON, CUROFF, CURLEFT, CURRITE,
|
||||
RVSON, RVSOFF, DARK und LOCATE haben dann keine Wirkung. Mit ihnen
|
||||
auch die sie benutzenden Worte (PAGE, (AT, (DEL. Wenn DISPLAY
|
||||
Ein mit TERMINAL: definiertes Wort, das ein ignorantes Terminal
|
||||
anw{hlt, wenn es ausgeführt wird. CURON, CUROFF, CURLEFT, CURRITE,
|
||||
RVSON, RVSOFF, DARK und LOCATE haben dann keine Wirkung. Mit ihnen
|
||||
auch die sie benutzenden Worte (PAGE, (AT, (DEL. Wenn DISPLAY
|
||||
eingeschaltet ist, sind also auch PAGE, AT und DEL wirkungslos.
|
||||
DUMB ist als aktuelles Terminal angew{hlt, bis die Installierung
|
||||
DUMB ist als aktuelles Terminal angew{hlt, bis die Installierung
|
||||
eines leistungsf{higeren Terminals abgeschlossen ist.
|
||||
|
||||
getkey ( -- char ) "getkey"
|
||||
die unteren 7 Bit von char enthalten den Ascii-Code des letzten
|
||||
Tastendrucks. Ist noch keine Taste gedr}ckt, dann wartet getkey.
|
||||
Siehe auch KEY? und KEY.
|
||||
die unteren 7 Bit von char enthalten den Ascii-Code des letzten
|
||||
Tastendrucks. Ist noch keine Taste gedrückt, dann wartet getkey.
|
||||
Siehe auch KEY? und KEY.
|
||||
|
||||
home ( -- ) "home"
|
||||
Der Kopf des momentan selektierte Diskettenlaufwerks wird auf Spur
|
||||
null gefahren. Spur null wird als n{chste Spur angew{hlt, die
|
||||
Der Kopf des momentan selektierte Diskettenlaufwerks wird auf Spur
|
||||
null gefahren. Spur null wird als n{chste Spur angew{hlt, die
|
||||
verwendet werden soll. Siehe TRK!, DRV!.
|
||||
|
||||
index ( from to -- ) "index"
|
||||
Liest die Blocks from bis to einschlie~lich und gibt deren erste
|
||||
Zeilen aus. Index kann mit einer beliebigen Taste angehalten werden
|
||||
und mit RETURN abgebrochen werden. (Siehe STOP?) Die ersten Zeilen
|
||||
von Screens enthalten typischer Weise Kommentare, die den Inhalt
|
||||
Liest die Blocks from bis to einschlie~lich und gibt deren erste
|
||||
Zeilen aus. Index kann mit einer beliebigen Taste angehalten werden
|
||||
und mit RETURN abgebrochen werden. (Siehe STOP?) Die ersten Zeilen
|
||||
von Screens enthalten typischer Weise Kommentare, die den Inhalt
|
||||
chararkterisieren.
|
||||
|
||||
keyboard ( -- ) "keyboard"
|
||||
Ein mit INPUT: definiertes Wort, das die Tastatur als Eingabeger{t
|
||||
anw{hlt. Die Worte KEY, KEY?, DECODE und EXPECT beziehen sich nun
|
||||
Ein mit INPUT: definiertes Wort, das die Tastatur als Eingabeger{t
|
||||
anw{hlt. Die Worte KEY, KEY?, DECODE und EXPECT beziehen sich nun
|
||||
auf die Tastatur. Siehe (KEY, (KEY? (DECODE, (EXPECT.
|
||||
|
||||
locate ( row col -- ) "locate"
|
||||
Bewegt den Cursor absolut auf Spalte col, Zeile row.
|
||||
Eine der vordefinierten Terminalfunktionen.
|
||||
|
||||
Eine der vordefinierten Terminalfunktionen.
|
||||
|
||||
|
||||
out ( -- addr ) "out"
|
||||
Adresse einer Variablen, die die Anzahl der ausgegebenen Zeichen
|
||||
enth{lt.
|
||||
Adresse einer Variablen, die die Anzahl der ausgegebenen Zeichen
|
||||
enth{lt.
|
||||
|
||||
read/write ( r/wf sponti -- f ) "read-write"
|
||||
Bewirkt das physikalische Lesen (r/wf = FALSE) und Schreiben
|
||||
(r/wf=TRUE) eines Sektors (=128 Bytes) von der/auf die Diskette. Das
|
||||
Laufwerk, die Spur , der Sektor sowie der Sektor-Puffer sind vorher
|
||||
Bewirkt das physikalische Lesen (r/wf = FALSE) und Schreiben
|
||||
(r/wf=TRUE) eines Sektors (=128 Bytes) von der/auf die Diskette. Das
|
||||
Laufwerk, die Spur , der Sektor sowie der Sektor-Puffer sind vorher
|
||||
mit DRV!, TRK!, SEC! und DMA! gew{hlt worden.
|
||||
sponti gibt an, ob beim Schreiben unmittelbar auf die Diskette
|
||||
geschrieben werden soll (sponti=TRUE) oder, ob der geschriebene
|
||||
Sektor im BIOS zwischengepuffert werden darf (sponti=FALSE).
|
||||
sponti gibt an, ob beim Schreiben unmittelbar auf die Diskette
|
||||
geschrieben werden soll (sponti=TRUE) oder, ob der geschriebene
|
||||
Sektor im BIOS zwischengepuffert werden darf (sponti=FALSE).
|
||||
|
||||
rvsoff ( -- ) "reverse-off"
|
||||
Schaltet die Inversdarstellung aus. Eine der vordefinierten
|
||||
Schaltet die Inversdarstellung aus. Eine der vordefinierten
|
||||
Terminalfunktionen.
|
||||
|
||||
|
||||
rvson ( -- ) "reverse-on"
|
||||
Schaltet die Inversedarstellung ein. Eine der vordefinierten
|
||||
Schaltet die Inversedarstellung ein. Eine der vordefinierten
|
||||
Terminalfunktionen.
|
||||
|
||||
sec! ( sec -- ) "sec-store"
|
||||
sec ist der beim n{chsten Diskettenzugriff zu verwendende Sektor.
|
||||
.PA
|
||||
Term: ( offset -- offset' ) "term-colon"
|
||||
Ein definierendes Wort f}r Terminalfunktionen. Wird benutzt um die
|
||||
einzelnen Komponenten eines Terminal-Vektors zu definieren.
|
||||
Vordefinierte Terminalfunktionen sind CURON, CUROFF, CURLEFT,
|
||||
Term: ( offset -- offset' ) "term-colon"
|
||||
Ein definierendes Wort für Terminalfunktionen. Wird benutzt um die
|
||||
einzelnen Komponenten eines Terminal-Vektors zu definieren.
|
||||
Vordefinierte Terminalfunktionen sind CURON, CUROFF, CURLEFT,
|
||||
CURRITE, RVSON, RVSOFF, DARK und LOCATE. Siehe auch TERMINAL:
|
||||
|
||||
Terminal: ( -- ) "terminal-colon"
|
||||
Ein definierendes Wort f}r Terminals. Benutzt in der Form:
|
||||
Ein definierendes Wort für Terminals. Benutzt in der Form:
|
||||
Terminal: <name>
|
||||
newCURON newCUROFF newCURLEFT newCURRITE
|
||||
newCURON newCUROFF newCURLEFT newCURRITE
|
||||
newRVSON newRVSOFF newDARK newLOACTE ;
|
||||
TERMINAL: erzeugt einen Kopf f}r <name> im Dictionary und kompiliert
|
||||
einen Vektor von Zeigern auf Worte die f}r die Ausf}hrung von Ter
|
||||
minalfunktionen zust{ndig sind. Wird <name> ausgef}hrt, so werden
|
||||
TERMINAL: erzeugt einen Kopf für <name> im Dictionary und kompiliert
|
||||
einen Vektor von Zeigern auf Worte die für die Ausführung von Ter
|
||||
minalfunktionen zust{ndig sind. Wird <name> ausgeführt, so werden
|
||||
die Terminalfunktionen von <name> zu den aktuellen Terminal
|
||||
funktionen gemacht, das Terminal <name> ist damit aktiv. Terminal
|
||||
funktionen werden von AT, PAGE, DEL ausgef}hrt, wenn die Ausgabe auf
|
||||
funktionen werden von AT, PAGE, DEL ausgeführt, wenn die Ausgabe auf
|
||||
DISPLAY geschal tet ist. Siehe OUTPUT:, DISPLAY, DUMB.
|
||||
|
||||
trk! ( trk -- ) "track-store"
|
||||
trk ist die beim n{chsten Diskettenzugriff zu verwendende Spur.
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user