gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.60, 1998/12/20 12:54:09	version 1.63, 1998/12/22 21:17:14
Line 1954 previous	Line 1954 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
char 0 tchar + magic 6 + c!	tcell 1 = 0 and or
	tcell 2 = 2 and or
	tcell 4 = 4 and or
	tcell 8 = 6 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