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.