VolksForth/8080/CPM/DOC/DE/CPMSPECI.txt
2020-06-28 16:19:40 +02:00

261 lines
13 KiB
Plaintext
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

.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 Komputer
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 geschaltet ist. Siehe OUTPUT:, DISPLAY, DUMB.
trk! ( trk -- ) "track-store"
trk ist die beim n{chsten Diskettenzugriff zu verwendende Spur.