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
primitive code = [p4_block]
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.
primitive code = [p4_buffer]
FLUSH( -- ) [ANS] => "[ANS] FORTH"
call SAVE-BUFFERS and then unassign all
block buffers with EMPTY-BUFFERS
primitive code = [p4_flush]
LOAD( block-u -- ?? ) [FORTH] => "[ANS] FORTH"
INTERPRET the specified BLOCK
primitive code = [p4_load]
SAVE-BUFFERS( -- ) [ANS] => "[ANS] FORTH"
write all modified buffer to
the disk, see UPDATE and
FLUSH
primitive code = [p4_save_buffers]
UPDATE( -- ) [ANS] => "[ANS] FORTH"
mark the current block buffer as modified,
see FLUSH
primitive code = [p4_update]
EMPTY-BUFFERS( -- ) [ANS] => "[ANS] FORTH"
unassign all block buffers, does not even UPDATE
primitive code = [p4_empty_buffers]
LIST( block-u -- ) [ANS] => "[ANS] FORTH"
display the block
primitive code = [p4_list]
THRU( block1-u block2-u -- ) [ANS] => "[ANS] FORTH"
LOAD a number of block in sequence.
primitive code = [p4_thru]