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

#+Title: 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 Zeichen wird ausgegeben. =Return= beendet die Eingabe
   vorzeitig. Ein abschließendes Leerzeichen wird immer ausgegeben.
   Die Länge der Zeichenkette wird in der Variablen =SPAN= übergeben.
   Vergleiche =EXPECT=.

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