collapseos/recipes/rc2014/run.fs

: (c<) KEY DUP EMIT ;
: INIT
    ACIA$
    ." Collapse OS" CRLF
    ( 0c == CINPTR )
    ['] (c<) 0x0c RAM+ !
;
INIT
link: handle doesWord 2020-04-12 06:38:45 +10:00			`: (c<) KEY DUP EMIT ;`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`: INIT`
			`ACIA$`
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-20 06:28:40 +10:00			`." Collapse OS" CRLF`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`( 0c == CINPTR )`
rc2014: aaalmost there... Red 5 standing by. 2020-04-05 07:07:35 +10:00			`['] (c<) 0x0c RAM+ !`
rc2014: aaaalmost there.... 2020-04-05 04:27:23 +10:00			`;`
			`INIT`