1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-06 02:20:58 +11:00
collapseos/blk/157
2020-06-23 07:21:33 -04:00

9 lines
255 B
Plaintext

: 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! ;
: FREEBLKS? ( b1 b2 -- )
1+ SWAP DO I BLK@ WIPED? IF I . SPC THEN LOOP ;