pfe-block-ext ? Block Words + extensions
BLOCK ( block-u -- block-addr ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;BUFFER ( block-u -- block-addr ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;FLUSH ( -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;LOAD ( block-u -- ?? ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;SAVE-BUFFERS ( -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;UPDATE ( -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;EMPTY-BUFFERS ( -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;LIST ( block-u -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;THRU ( block1-u block2-u -- ) ?=>? ( | ) ; | ? |
"[ANS] FORTH"
;
BLOCK ( block-u -- block-addr ) [ANS] => "[ANS] FORTH"
load the specified block into a block buffer
and return the address of that block buffer
- see also BUFFER
BUFFER ( block-u -- block-addr ) [ANS] => "[ANS] FORTH"
get the block buffer address for the specified
block - if it had not been loaded already it
is not filled with data from the disk
unlike BLOCK
does.
FLUSH ( -- ) [ANS] => "[ANS] FORTH"
call SAVE-BUFFERS
and then unassign all
block buffers with EMPTY-BUFFERS
LOAD ( block-u -- ?? ) [FORTH] => "[ANS] FORTH"
INTERPRET
the specified BLOCK
SAVE-BUFFERS ( -- ) [ANS] => "[ANS] FORTH"
write all modified buffer to
the disk, see UPDATE
and
FLUSH
UPDATE ( -- ) [ANS] => "[ANS] FORTH"
mark the current block buffer as modified,
see FLUSH
EMPTY-BUFFERS ( -- ) [ANS] => "[ANS] FORTH"
unassign all block buffers, does not even UPDATE
LIST ( block-u -- ) [ANS] => "[ANS] FORTH"
display the block
THRU ( block1-u block2-u -- ) [ANS] => "[ANS] FORTH"
LOAD
a number of block in sequence.