mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-08 14:28:05 +11:00
5387e08437
The goal being to add a new native code dict staging phase.
12 lines
325 B
Forth
12 lines
325 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 )
|
|
WORD _______ (entry)
|
|
|
|
( 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. )
|
|
|
|
HERE @ 256 / 2 PC!
|
|
HERE @ 2 PC!
|