mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-08 10:08:06 +11:00
41cd8086d4
Because icore.fs defines it in a "not-for-runtime" manner, dummy.fs executing it had ill effects. We use a workaround instead.
14 lines
392 B
Forth
14 lines
392 B
Forth
( When building a compiled dict, always include this unit at
|
|
the end of it so that Forth knows how to hook LATEST into
|
|
it. We don't use the word "(entry)" to avoid messing up
|
|
with icore setup. )
|
|
CREATE _
|
|
H@ 2 - HERE !
|
|
|
|
( After each dummy word like this, we poke IO port 2 with our
|
|
current HERE value. The staging executable needs it to know
|
|
what to dump. )
|
|
|
|
H@ 256 / 2 PC!
|
|
H@ 2 PC!
|