Name

pfe-block-ext ? Block Words + extensions

Synopsis

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";
?

Description

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.