collapseos/emul/stage1.fs

: EFS@
    256 /MOD 3 PC! 3 PC!
    1024 0 DO
        4 PC@
        BLK( I + C!
    LOOP
;
: EFS!
    256 /MOD 3 PC! 3 PC!
    1024 0 DO
        BLK( I + C@ 4 PC!
    LOOP
;

: INIT
    CURRENT @ HERE !
    BLK$
    ['] EFS@ BLK@* !
    ['] EFS! BLK!* !
    RDLN$
    LIT< _sys [entry]
    ." Collapse OS" CRLF
    INTERPRET
;

(entry) _
H@ 256 /MOD 2 PC! 2 PC!
H@ 0x08 BIN+ ! ( update LATEST )
emul: bootstrap to stage2 from within Collapse OS! Big bootstrapping change which greatly reduces the role of the modern operating system in the bootstrapping process. 2020-04-27 00:15:35 +10:00			`: EFS@`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`4 PC@`
			`BLK( I + C!`
			`LOOP`
			`;`
			`: EFS!`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`BLK( I + C@ 4 PC!`
			`LOOP`
			`;`

			`: INIT`
			`CURRENT @ HERE !`
			`BLK$`
			`['] EFS@ BLK@* !`
			`['] EFS! BLK!* !`
			`RDLN$`
			`LIT< _sys [entry]`
			`." Collapse OS" CRLF`
			`INTERPRET`
			`;`

			`(entry) _`
			`H@ 256 /MOD 2 PC! 2 PC!`
icore: add BIN+ This allows us to write LATEST at proper offset in emul/stage1.fs in cases where we set a nonzero BIN(. 2020-04-30 01:42:09 +10:00			`H@ 0x08 BIN+ ! ( update LATEST )`