collapseos/emul/forth/run.fs

mirror of https://github.com/hsoft/collapseos.git
: EFS@
    256 /MOD 3 PC! 3 PC!
    1024 0 DO
        3 PC@
        BLK( I + C!
    LOOP
;
: INIT
    CURRENT @ HERE !
    BLK$
    ['] EFS@ BLK@* !
    RDLN$
    Z80A$
    LIT< _sys [entry]
    INTERPRET
;
blk: first steps 2020-04-14 23:05:43 +10:00			`: EFS@`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`3 PC@`
			`BLK( I + C!`
			`LOOP`
			`;`
			`: INIT`
			`CURRENT @ HERE !`
			`BLK$`
			`['] EFS@ BLK@* !`
			`RDLN$`
			`Z80A$`
Add word "EMPTY" 2020-04-15 06:07:07 +10:00			`LIT< _sys [entry]`
blk: first steps 2020-04-14 23:05:43 +10:00			`INTERPRET`
			`;`