1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 16:38:06 +11:00
collapseos/blk/157

9 lines
255 B
Plaintext
Raw Normal View History

2020-04-30 11:52:18 +10:00
: WIPE BLK( 1024 0 FILL BLK!! ;
2020-06-23 21:21:33 +10: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 ;