|
version 1.26, 1999/08/29 21:44:44
|
version 1.27, 1999/11/08 22:01:07
|
|
Line 169 Defer flush-blocks ( -- ) \ gforth
|
Line 169 Defer flush-blocks ( -- ) \ gforth
|
| block ; |
block ; |
| |
|
| User scr ( -- a-addr ) \ block-ext |
User scr ( -- a-addr ) \ block-ext |
| \G USER VARIABLE: @i{a-addr} is the address of a cell containing |
\G @code{User} variable -- @i{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 ! |
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to blocks.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth