diff --git a/blk/393 b/blk/393 index 1f0d04f..a69f0b1 100644 --- a/blk/393 +++ b/blk/393 @@ -1,4 +1,5 @@ : RAM+ [ RAMSTART LITN ] + ; +: BIN+ [ BIN( @ LITN ] + ; : (parse*) 0x0a RAM+ ; : HERE 0x04 RAM+ ; : CURRENT* 0x51 RAM+ ; diff --git a/emul/run.fs b/emul/run.fs deleted file mode 100644 index 82ff697..0000000 --- a/emul/run.fs +++ /dev/null @@ -1,24 +0,0 @@ -: 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 -; diff --git a/emul/stage0.bin b/emul/stage0.bin index c2c3b5d..219ea69 100644 Binary files a/emul/stage0.bin and b/emul/stage0.bin differ diff --git a/emul/stage1.fs b/emul/stage1.fs index 62fb584..d90a0ca 100644 --- a/emul/stage1.fs +++ b/emul/stage1.fs @@ -25,4 +25,4 @@ (entry) _ H@ 256 /MOD 2 PC! 2 PC! -H@ 0x08 ! ( update LATEST ) +H@ 0x08 BIN+ ! ( update LATEST ) diff --git a/emul/stop.fs b/emul/stop.fs deleted file mode 100644 index c2777da..0000000 --- a/emul/stop.fs +++ /dev/null @@ -1,2 +0,0 @@ -(entry) _ -H@ 256 /MOD 2 PC! 2 PC!