izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1154 Commits
4 Branches
13MB
Tree: 62ae1012df
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '62ae1012df'
${ noResults }
collapseos/emul/stage1.fs

29 lines
393B
Raw Blame History 

  1. : EFS@

  2.     256 /MOD 3 PC! 3 PC!

  3.     1024 0 DO

  4.         4 PC@

  5.         BLK( I + C!

  6.     LOOP

  7. ;

  8. : EFS!

  9.     256 /MOD 3 PC! 3 PC!

  10.     1024 0 DO

  11.         BLK( I + C@ 4 PC!

  12.     LOOP

  13. ;

  14. 

  15. : INIT

  16.     CURRENT @ HERE !

  17.     BLK$

  18.     ['] EFS@ BLK@* !

  19.     ['] EFS! BLK!* !

  20.     RDLN$

  21.     LIT< _sys [entry]

  22.     ." Collapse OS" NL

  23.     INTERPRET

  24. ;

  25. 

  26. (entry) _

  27. H@ 256 /MOD 2 PC! 2 PC!

  28. H@ 0x08 BIN+ ! ( update LATEST )