izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1534 Commits
4 Branches
13MB
Tree: a348ee9106
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'a348ee9106'
${ noResults }
collapseos/blk/378

15 lines
379B
Raw Blame History 

  1. : BLK! ( -- )

  2.     BLK> @ BLK!* @ EXECUTE

  3.     0 BLKDTY ! ;

  4. : FLUSH BLKDTY @ IF BLK! THEN ;

  5. : BLK@ ( n -- )

  6.     DUP BLK> @ = IF DROP EXIT THEN

  7.     FLUSH DUP BLK> ! BLK@* @ EXECUTE ;

  8. : BLK!! 1 BLKDTY ! ;

  9. : WIPE BLK( 1024 0 FILL BLK!! ;

  10. : WIPED? ( -- f )

  11.     1 ( f ) BLK) BLK( DO

  12.         I C@ IF DROP 0 ( f ) LEAVE THEN LOOP ;

  13. : COPY ( src dst -- )

  14.     FLUSH SWAP BLK@ BLK> ! BLK! ;