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-29 11:42:09 -04:00 · 2020-04-29 11:42:09 -04:00 · 1b2c4b519e
parent fc67b88720
commit 1b2c4b519e
5 changed files with 2 additions and 27 deletions
--- 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+ ;
--- a/emul/run.fs
+++ b/emul/run.fs
@ -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
-;
--- a/emul/stage0.bin
+++ b/emul/stage0.bin
--- 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 )
--- a/emul/stop.fs
+++ b/emul/stop.fs
@ -1,2 +0,0 @@
-(entry) _
-H@ 256 /MOD 2 PC! 2 PC!