version 1.21, 1999/02/03 00:10:19
|
version 1.22, 1999/03/23 20:24:16
|
Line 83 Defer flush-blocks
|
Line 83 Defer flush-blocks
|
block-fid @ ; |
block-fid @ ; |
|
|
: block-position ( u -- ) \ block |
: block-position ( u -- ) \ block |
\G Position the block file to the start of block u. |
\G Position the block file to the start of block @var{u}. |
1- chars/block chars um* get-block-fid reposition-file throw ; |
1- chars/block chars um* get-block-fid reposition-file throw ; |
|
|
: update ( -- ) \ block |
: update ( -- ) \ block |
Line 120 Defer flush-blocks
|
Line 120 Defer flush-blocks
|
buffers mod buffer-struct %size * block-buffers @ + ; |
buffers mod buffer-struct %size * block-buffers @ + ; |
|
|
: block ( u -- a-addr ) \ block- block |
: block ( u -- a-addr ) \ block- block |
\G u identifies a block number. Assign a block buffer to u, |
\G @var{u} identifies a block number. Assign a block buffer to @var{u}, |
\G make it the current block buffer and return its start |
\G make it the current block buffer and return its start |
\G address, a-addr. |
\G address, @var{a-addr}. |
dup 0= -35 and throw |
dup 0= -35 and throw |
dup get-buffer >r |
dup get-buffer >r |
dup r@ buffer-block @ <> |
dup r@ buffer-block @ <> |
Line 145 Defer flush-blocks
|
Line 145 Defer flush-blocks
|
block ; |
block ; |
|
|
User scr ( -- a-addr ) \ block-ext |
User scr ( -- a-addr ) \ block-ext |
\G USER VARIABLE a-addr is the address of a cell containing |
\G USER VARIABLE @var{a-addr} is the address of a cell containing |
\G the block number of the block most recently processed by |
\G the block number of the block most recently processed by |
\G @code{LIST}. |
\G @code{LIST}. |
0 scr ! |
0 scr ! |