gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.61, 1998/12/22 13:41:18	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 1954 previous	Line 1959 previous
\ save-cross 17mar93py	\ save-cross 17mar93py

>CROSS	>CROSS
Create magic s" Gforth10" here over allot swap move	Create magic s" Gforth2x" here over allot swap move

char 1 bigendian + tcell + magic 7 + c!	bigendian 1+ \ strangely, in magic big=0, little=1
	tcell 1 = 0 and or
	tcell 2 = 2 and or
	tcell 4 = 4 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!

: save-cross ( "image-name" "binary-name" -- )	: save-cross ( "image-name" "binary-name" -- )
bl parse ." Saving to " 2dup type cr	bl parse ." Saving to " 2dup type cr