gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.63, 1998/12/22 21:17:14	version 1.65, 1999/01/10 22:00:22
Line 1164 VARIABLE ;Resolve 1 cells allot	Line 1164 VARIABLE ;Resolve 1 cells allot
.sourcepos ." needs doer: " >in @ bl word count type >in ! cr	.sourcepos ." needs doer: " >in @ bl word count type >in ! cr
THEN	THEN
ghost tuck swap resolve <do:> swap >magic ! ;	ghost tuck swap resolve <do:> swap >magic ! ;

	Variable prim#
	: first-primitive ( n -- ) prim# ! ;
	: Primitive ( -- ) \ name
	prim# @ T Alias H -1 prim# +! ;
>CROSS	>CROSS

\ Conditionals and Comments 11may93jaw	\ Conditionals and Comments 11may93jaw
Line 1961 tcell 1 = 0 and or	Line 1966 tcell 1 = 0 and or
tcell 2 = 2 and or	tcell 2 = 2 and or
tcell 4 = 4 and or	tcell 4 = 4 and or
tcell 8 = 6 and or	tcell 8 = 6 and or
	tchar 1 = $00 and or
	tchar 2 = $28 and or
	tchar 4 = $50 and or
	tchar 8 = $78 and or
magic 7 + c!	magic 7 + c!

: save-cross ( "image-name" "binary-name" -- )	: save-cross ( "image-name" "binary-name" -- )