mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-06-01 06:41:37 +00:00
4939662c55
This needs two adaptions in the .fth sources: 1. Replace screen comments \\ with multiple line comments \ as fth files have no screens. 2. Move Create Does> constructs each into a single line because the metacompiler chokes on line breaks in Create Does> when including from an .fth fileb - unclear atm why. C64 metacompiler has the same issue - don't remember if I understood the reason when I encountered the issue there.
44 lines
883 B
Forth
44 lines
883 B
Forth
|
|
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
|
|
use kernel.fb
|
|
|
|
new v4th.com Onlyforth Target definitions
|
|
|
|
\ 4 &110 thru \ Standard 8088-System
|
|
include vf86core.fth
|
|
|
|
\ &112 &146 thru \ MS-DOS interface
|
|
include vf86dos.fth
|
|
|
|
: forth-83 ; \ last word in Dictionary
|
|
|
|
0 ' limit >body ! $DFF6 s0 ! $E77C r0 !
|
|
s0 @ s0 2- ! here dp !
|
|
|
|
Host tudp @ Target udp !
|
|
Host tvoc-link @ Target voc-link !
|
|
Host tnext-link @ Target next-link !
|
|
Host tfile-link @ Target Forth file-link !
|
|
Host T move-threads H
|
|
save-buffers cr .( unresolved: ) .unresolved
|
|
|
|
|
|
|
|
logclose
|
|
flush \ close n4th.com
|
|
logreopen
|
|
|
|
cr .( new kernel written as v4th.com) cr
|
|
|
|
logclose
|