VolksForth/8086/msdos/extend.fb

\                                                 ks 11 mai 88  Dieses File enth<74>lt Definitionen, die zum Laden der weiteren    System- und Applikationsfiles ben<65>tigt werden.                                                                                  Unter anderem finden sich hier auch MS-DOS spezifische          Befehle wie zum Beispiel das Allokieren von Speicher-           platz ausserhalb des auf 64k begrenzten Forthsystems            und einige Routinen, die das Arbeiten mit dem Video-            Display erleichtern sowie einige Operatoren zur String-         manipulation.                                                                                                                                                                                                                                                                                                                                                                                                                                                   \ loadscreen for often used words                 ks cas 25sep16                                                                  Onlyforth  \needs Assembler   2 loadfrom asm.fb                                                                                 ' save-buffers Alias sav                                                                                                        ' name &12 + Constant 'name                                                                                                     ' page Alias cls                                                                                                                 1 8 +thru  .( Systemerweiterung geladen) cr                                                                                                                                                                                                                                                                                                                                                  \ Postkernel words                                ks 22 dez 87                                                                    : blank   ( addr quan -- )   bl fill ;                                                                                          Code stash ( u1 u2 -- u1 u1 u2 )                                   S W mov   W ) push   Next   end-code                       \ : stash    ( u1 u2 -- u1 u1 u2 )   over swap ;                                                                                  : >expect  ( addr len -- )  stash expect  span @ over place ;                                                                   : .field   ( addr len quan -- )                                    over - >r type r> 0 max spaces ;                                                                                             : tab  ( n -- )   col - 0 max spaces ;                                                                                                                                                        \ postkernel                                      ks 08 m<>r 89  \ hier sollte END-CODE eigentlich aehem, also z.B. -TRANSIENT                                                                   \needs end-code  : end-code   toss also ;                                                                                         : u?     ( addr -- )   @ u. ;                                                                                                   : adr   ' >body  state @ 0=exit  [compile] Literal ; immediate                                                                  : Abort(  ( f -- )  IF  [compile] .(  true abort"  !"  THEN                         [compile] ( ;                                                                                               : arguments  ( n -- )                                              depth 1- > Error" zu wenige Parameter" ;