.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: newCURON newCUROFF newCURLEFT newCURRITE newRVSON newRVSOFF newDARK newLOACTE ; TERMINAL: erzeugt einen Kopf f}r im Dictionary und kompiliert einen Vektor von Zeigern auf Worte die f}r die Ausf}hrung von Ter minalfunktionen zust{ndig sind. Wird ausgef}hrt, so werden die Terminalfunktionen von zu den aktuellen Terminal funktionen gemacht, das Terminal 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.