collapseos/blk/378

: BLK! ( -- )
    BLK> @ BLK!* @ EXECUTE
    0 BLKDTY ! ;
: FLUSH BLKDTY @ IF BLK! THEN ;
: BLK@ ( n -- )
    DUP BLK> @ = IF DROP EXIT THEN
    FLUSH DUP BLK> ! BLK@* @ EXECUTE ;
: BLK!! 1 BLKDTY ! ;
: WIPE BLK( 1024 0 FILL BLK!! ;
: WIPED? ( -- f )
    1 ( f ) BLK) BLK( DO
        I C@ IF DROP 0 ( f ) LEAVE THEN LOOP ;
: COPY ( src dst -- )
    FLUSH SWAP BLK@ BLK> ! BLK! ;
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-02 21:47:32 -04:00			`: BLK! ( -- )`
			`BLK> @ BLK!* @ EXECUTE`
Remove Extra words The few extra bytes they save in the core aren't worth the extra complexity. This was initially done in a context where I had troubles keeping the RC2014 binary with SDC inside the 8K limit. At this point, even with the few extra bytes we add here, we're at 7200 bytes, so I'd say we're fine. 2020-09-21 14:40:53 -04:00			`0 BLKDTY ! ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-02 21:47:32 -04:00			`: FLUSH BLKDTY @ IF BLK! THEN ;`
			`: BLK@ ( n -- )`
			`DUP BLK> @ = IF DROP EXIT THEN`
Make BLK@ FLUSH only if loading a different block Otherwise, when editing a file with VE, we would constantly write to disk, which is a bit inefficient. 2020-06-11 21:42:52 -04:00			`FLUSH DUP BLK> ! BLK@* @ EXECUTE ;`
Pack core words blks a bit tighter With all this recent movements, we had a bit of a fragmentation issue. 2020-05-02 21:47:32 -04:00			`: BLK!! 1 BLKDTY ! ;`
Remove Extra words The few extra bytes they save in the core aren't worth the extra complexity. This was initially done in a context where I had troubles keeping the RC2014 binary with SDC inside the 8K limit. At this point, even with the few extra bytes we add here, we're at 7200 bytes, so I'd say we're fine. 2020-09-21 14:40:53 -04:00			`: WIPE BLK( 1024 0 FILL BLK!! ;`
			`: WIPED? ( -- f )`
			`1 ( f ) BLK) BLK( DO`
			`I C@ IF DROP 0 ( f ) LEAVE THEN LOOP ;`
			`: COPY ( src dst -- )`
			`FLUSH SWAP BLK@ BLK> ! BLK! ;`