Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.64, 1998/12/25 22:50:48 | version 1.65, 1999/01/10 22:00:22 |
---|---|
Line 1966 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" -- ) |