collapseos/blk/157

9 lines
255 B
Plaintext
Raw Normal View History

2020-04-29 21:52:18 -04:00
: WIPE BLK( 1024 0 FILL BLK!! ;
2020-06-23 07:21:33 -04:00
: WIPED? ( -- f )
1 ( f ) BLK) BLK( DO
I C@ IF DROP 0 ( f ) LEAVE THEN LOOP ;
: COPY ( src dst -- )
FLUSH SWAP BLK@ BLK> ! BLK! ;
: FREEBLKS? ( b1 b2 -- )
1+ SWAP DO I BLK@ WIPED? IF I . SPC THEN LOOP ;