collapseos/emul/forth/run.fs

25 lines
312 B
Forth
Raw Normal View History

2020-04-14 09:05:43 -04:00
: EFS@
256 /MOD 3 PC! 3 PC!
1024 0 DO
4 PC@
2020-04-14 09:05:43 -04:00
BLK( I + C!
LOOP
;
: EFS!
256 /MOD 3 PC! 3 PC!
1024 0 DO
BLK( I + C@ 4 PC!
LOOP
;
2020-04-14 09:05:43 -04:00
: INIT
CURRENT @ HERE !
BLK$
['] EFS@ BLK@* !
['] EFS! BLK!* !
2020-04-14 09:05:43 -04:00
RDLN$
Z80A$
2020-04-14 16:07:07 -04:00
LIT< _sys [entry]
2020-04-14 09:05:43 -04:00
INTERPRET
;