Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.173, 2010/05/12 20:13:33 | version 1.174, 2010/05/13 09:39:07 |
---|---|
Line 3316 Cond: postpone ( -- ) \ name | Line 3316 Cond: postpone ( -- ) \ name |
hex | hex |
>CROSS | >CROSS |
Create magic s" Gforth3x" here over allot swap move | Create magic s" Gforth4x" here over allot swap move |
bigendian 1+ \ strangely, in magic big=0, little=1 | bigendian 1+ \ strangely, in magic big=0, little=1 |
tcell 1 = 0 and or | tcell 1 = 0 and or |