Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.62, 1998/12/22 15:18:50 | version 1.63, 1998/12/22 21:17:14 |
---|---|
Line 1956 previous | Line 1956 previous |
>CROSS | >CROSS |
Create magic s" Gforth2x" here over allot swap move | Create magic s" Gforth2x" here over allot swap move |
bigendian | bigendian 1+ \ strangely, in magic big=0, little=1 |
tcell 1 = 0 and | 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 |