izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 11:28:05 +11:00
Code Issues Releases Wiki Activity

icore: add BIN+

Browse Source 
This allows us to write LATEST at proper offset in emul/stage1.fs in
cases where we set a nonzero BIN(.
This commit is contained in:
Virgil Dupras 2020-04-29 11:42:09 -04:00
parent fc67b88720
commit 1b2c4b519e
5 changed files with 2 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
blk/393
View File

@ -1,4 +1,5 @@
: RAM+ [ RAMSTART LITN ] + ; : RAM+ [ RAMSTART LITN ] + ;
: BIN+ [ BIN( @ LITN ] + ;
: (parse*) 0x0a RAM+ ; : (parse*) 0x0a RAM+ ;
: HERE 0x04 RAM+ ; : HERE 0x04 RAM+ ;
: CURRENT* 0x51 RAM+ ; : CURRENT* 0x51 RAM+ ;

24
emul/run.fs
View File

@ -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
;

BIN
emul/stage0.bin
View File

Binary file not shown.

2
emul/stage1.fs
View File

@ -25,4 +25,4 @@
(entry) _ (entry) _
H@ 256 /MOD 2 PC! 2 PC! H@ 256 /MOD 2 PC! 2 PC!
H@ 0x08 ! ( update LATEST ) H@ 0x08 BIN+ ! ( update LATEST )

2
emul/stop.fs
View File

@ -1,2 +0,0 @@
(entry) _
H@ 256 /MOD 2 PC! 2 PC!