collapseos/emul/forth/run.fs
2020-04-14 09:07:20 -04:00

16 lines
185 B
Forth

: EFS@
256 /MOD 3 PC! 3 PC!
1024 0 DO
3 PC@
BLK( I + C!
LOOP
;
: INIT
CURRENT @ HERE !
BLK$
['] EFS@ BLK@* !
RDLN$
Z80A$
INTERPRET
;