mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-05-31 15:41:34 +00:00
b24511437e
with block/buffer implemented.
33 lines
511 B
Forth
33 lines
511 B
Forth
|
|
\ with build log:
|
|
' noop alias \log
|
|
\ without build log:
|
|
\ ' \ alias \log
|
|
|
|
\log logopen output.log
|
|
|
|
\ : .blk|tib
|
|
\ blk @ ?dup IF ." Blk " u. ?cr exit THEN
|
|
\ incfile @ IF tib #tib @ cr type THEN ;
|
|
|
|
\ ' .blk|tib Is .status
|
|
|
|
Onlyforth
|
|
|
|
2 loadfrom META.fb
|
|
|
|
new v4th.com Onlyforth Target definitions
|
|
|
|
include vf86core.fth
|
|
include vf86dos.fth
|
|
include vf86file.fth
|
|
include vf86end.fth
|
|
|
|
\log logclose
|
|
flush
|
|
\log logreopen
|
|
|
|
cr .( new kernel written as v4th.com) cr
|
|
|
|
\log logclose
|