1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-08 13:18:06 +11:00
collapseos/forth/dummy.fs

14 lines
392 B
Forth
Raw Normal View History

( 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!