collapseos/emul/forth/run.fs

: 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$
    Z80A$
    LIT< _sys [entry]
    INTERPRET
;
blk: first steps 2020-04-14 09:05:43 -04:00			`: EFS@`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
Add word "BLK!" as well as emulator support for it. We can now write an edited block back to "blkfs". 2020-04-16 17:22:18 -04:00			`4 PC@`
blk: first steps 2020-04-14 09:05:43 -04:00			`BLK( I + C!`
			`LOOP`
			`;`
Add word "BLK!" as well as emulator support for it. We can now write an edited block back to "blkfs". 2020-04-16 17:22:18 -04:00			`: EFS!`
			`256 /MOD 3 PC! 3 PC!`
			`1024 0 DO`
			`BLK( I + C@ 4 PC!`
			`LOOP`
			`;`

blk: first steps 2020-04-14 09:05:43 -04:00			`: INIT`
			`CURRENT @ HERE !`
			`BLK$`
			`['] EFS@ BLK@* !`
Add word "BLK!" as well as emulator support for it. We can now write an edited block back to "blkfs". 2020-04-16 17:22:18 -04:00			`['] EFS! BLK!* !`
blk: first steps 2020-04-14 09:05:43 -04:00			`RDLN$`
			`Z80A$`
Add word "EMPTY" 2020-04-14 16:07:07 -04:00			`LIT< _sys [entry]`
blk: first steps 2020-04-14 09:05:43 -04:00			`INTERPRET`
			`;`