gforth/blocks.fs - diff

Return to blocks.fs CVS log

Up to [gforth] / gforth

version 1.3, 1995/02/09 17:49:54	version 1.4, 1995/04/20 09:42:45
Line 36 variable buffer-dirty buffer-dirty off	Line 36 variable buffer-dirty buffer-dirty off
buffer-dirty on ;	buffer-dirty on ;

: save-buffers ( -- )	: save-buffers ( -- )
buffer-dirty @	buffer-dirty @ buffer-block @ 0<> and
if	if
buffer-block @ block-position	buffer-block @ block-position
block-buffer chars/block get-block-fid write-file throw	block-buffer chars/block get-block-fid write-file throw
Line 78 User scr 0 scr !	Line 78 User scr 0 scr !
." Screen " u. cr	." Screen " u. cr
16 0	16 0
?do	?do
scr @ block i 64 * chars + 64 type cr	i 2 .r space scr @ block i 64 * chars + 64 type cr
loop ;	loop ;

: (source) ( -- addr len )	: (source) ( -- addr len )
Line 101 User scr 0 scr !	Line 101 User scr 0 scr !

: +thru ( ix n1 n2 -- jx )	: +thru ( ix n1 n2 -- jx )
1+ swap 0 ?DO I +load LOOP ;	1+ swap 0 ?DO I +load LOOP ;

	get-current environment-wordlist set-current
	true constant block
	true constant block-ext
	set-current