- : 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" NL
- INTERPRET
- ;
-
- (entry) _
- H@ 256 /MOD 2 PC! 2 PC!
- H@ 0x08 BIN+ ! ( update LATEST )
|