VolksForth/8080/CPM/DOC/DE/CPMSPECI.txt

.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.