mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-07-26 16:28:59 +00:00
39 lines
460 B
Forth
39 lines
460 B
Forth
|
|
||
|
|
\ *** Block No. 0, Hexblock 0
|
||
|
|
|
||
|
|
\ include file to bundle what test-*.fth need phz 30jan22
|
||
|
|
\ on top of kernel.com
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
\ *** Block No. 1, Hexblock 1
|
||
|
|
|
||
|
|
\ loadscreen to prepare kernel.com for test-*.fth phz 31jan22
|
||
|
|
|
||
|
|
include multi.vid
|
||
|
|
\ include asm.fb
|
||
|
|
\ include extend.fb
|
||
|
|
|
||
|
|
: arguments ( n -- )
|
||
|
|
depth 1- > Error" too few params" ;
|
||
|
|
: blank ( addr count -- ) bl fill ;
|
||
|
|
|
||
|
|
include dos.fb
|
||
|
|
include include.fb
|
||
|
|
include log2file.fb
|
||
|
|
|
||
|
|
|
||
|
|
|