Add extra words WIPED? and FREEBLKS?
This commit is contained in:
parent
9ab5cda397
commit
7eeec67ff5
4
blk/064
4
blk/064
@ -5,6 +5,7 @@ BLK( -- a Beginning addr of blk buf.
|
|||||||
BLK) -- a Ending addr of blk buf.
|
BLK) -- a Ending addr of blk buf.
|
||||||
COPY s d -- Copy contents of s block to d block.
|
COPY s d -- Copy contents of s block to d block.
|
||||||
FLUSH -- Write current block to disk if dirty.
|
FLUSH -- Write current block to disk if dirty.
|
||||||
|
FREEBLKS? a b -- List free blocks between blocks a and b.
|
||||||
LIST n -- Prints the contents of the block n on screen
|
LIST n -- Prints the contents of the block n on screen
|
||||||
in the form of 16 lines of 64 columns.
|
in the form of 16 lines of 64 columns.
|
||||||
LOAD n -- Interprets Forth code from block n
|
LOAD n -- Interprets Forth code from block n
|
||||||
@ -12,5 +13,4 @@ LOAD+ n -- Relative load. Loads active block + n.
|
|||||||
LOADR n1 n2 -- Load block range between n1 and n2, inclusive.
|
LOADR n1 n2 -- Load block range between n1 and n2, inclusive.
|
||||||
LOADR+ n1 n2 -- Relative ranged load.
|
LOADR+ n1 n2 -- Relative ranged load.
|
||||||
WIPE -- Empties current block
|
WIPE -- Empties current block
|
||||||
|
WIPED? -- f Whether current block is empty
|
||||||
|
|
||||||
|
22
blk/157
22
blk/157
@ -1,16 +1,8 @@
|
|||||||
: WIPE BLK( 1024 0 FILL BLK!! ;
|
: WIPE BLK( 1024 0 FILL BLK!! ;
|
||||||
|
: WIPED? ( -- f )
|
||||||
( src dst -- )
|
1 ( f ) BLK) BLK( DO
|
||||||
: COPY FLUSH SWAP BLK@ BLK> ! BLK! ;
|
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 ;
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user