1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-10 02:58:06 +11:00
collapseos/recipes/rc2014/run.fs
Virgil Dupras dfaa1dc101 link: add "offset" argument to RLDICT
As long as our target was the first word of the "user" dict, using
target's prev to compute offset was fine, but when the target is not
the first word, this system breaks down.

This is the case when, instead of including source code in our boot
binary, we paste it in Collapse OS' prompt.

Also, adjust RC2014 recipe to include stage 3 assembling instructions
with the "paste into prompt" method.
2020-04-19 16:28:40 -04:00

10 lines
118 B
Forth

: (c<) KEY DUP EMIT ;
: INIT
ACIA$
." Collapse OS" CRLF
( 0c == CINPTR )
['] (c<) 0x0c RAM+ !
;
INIT