mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-11-29 21:49:17 +00:00
261 lines
13 KiB
Plaintext
261 lines
13 KiB
Plaintext
.HE CP/M 2.2 - spezifische Worte
|
||
#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.
|
||
|
||
#lf ( -- n ) "number-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.
|
||
|
||
(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.
|
||
Siehe BLK/DRV.
|
||
|
||
(cr ( -- ) "paren-c-r"
|
||
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
|
||
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.
|
||
|
||
(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.
|
||
Vergleiche CON! und EMIT.
|
||
|
||
(expect ( addr len -- ) "paren-expect"
|
||
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.
|
||
.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,
|
||
sondern unver{ndert abgeliefert. Vergleiche KEY.
|
||
|
||
(key? ( -- flag ) "paren-key-question"
|
||
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
|
||
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
|
||
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.
|
||
|
||
/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.
|
||
|
||
>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.
|
||
|
||
?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"
|
||
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.
|
||
|
||
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
|
||
con!, (key?, getkey und read/write benutzt.
|
||
|
||
blk/drv ( -- #blk ) "blocks-per-drive"
|
||
#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
|
||
als Steuercodes interpretiert.
|
||
|
||
curleft ( -- ) "cur-left"
|
||
Bewegt den Cursor ein Zeichen nach links. Eine der vordefinierten
|
||
Terminalfunktionen.
|
||
|
||
curoff ( -- ) "cur-off"
|
||
Schaltet den Cursor aus. Eine der vordefinierten Terminalfunktionen.
|
||
|
||
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.
|
||
|
||
dark ( -- ) "dark"
|
||
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.
|
||
Siehe TERMINAL:.
|
||
|
||
dma! ( addr -- ) "d-m-a-store"
|
||
addr ist die Adresse des Diskettenpuffers, der beim n{chsten Dis
|
||
kettenzugriff verwendet werden soll.
|
||
|
||
drive ( n -- ) "drive"
|
||
W{hlt n als aktuelles Laufwerk an. [ndert OFFSET entsprechend.
|
||
Siehe BLK/DRV.
|
||
|
||
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
|
||
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.
|
||
|
||
drv? ( blk -- drv ) "drive-question"
|
||
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
|
||
und >DRIVE.
|
||
|
||
drv1 ( -- ) "drive-one"
|
||
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.
|
||
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
|
||
eingeschaltet ist, sind also auch PAGE, AT und DEL wirkungslos.
|
||
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.
|
||
|
||
home ( -- ) "home"
|
||
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
|
||
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
|
||
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.
|
||
|
||
|
||
out ( -- addr ) "out"
|
||
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
|
||
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).
|
||
|
||
rvsoff ( -- ) "reverse-off"
|
||
Schaltet die Inversdarstellung aus. Eine der vordefinierten
|
||
Terminalfunktionen.
|
||
|
||
rvson ( -- ) "reverse-on"
|
||
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,
|
||
CURRITE, RVSON, RVSOFF, DARK und LOCATE. Siehe auch TERMINAL:
|
||
|
||
Terminal: ( -- ) "terminal-colon"
|
||
Ein definierendes Wort f}r Terminals. Benutzt in der Form:
|
||
Terminal: <name>
|
||
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
|
||
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
|
||
DISPLAY geschal tet ist. Siehe OUTPUT:, DISPLAY, DUMB.
|
||
|
||
trk! ( trk -- ) "track-store"
|
||
trk ist die beim n{chsten Diskettenzugriff zu verwendende Spur.
|
||
|
||
|