Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.130, 2002/12/14 17:34:12 | version 1.131, 2002/12/27 17:19:33 |
---|---|
Line 3229 Cond: postpone ( -- ) \ name | Line 3229 Cond: postpone ( -- ) \ name |
hex | hex |
>CROSS | >CROSS |
Create magic s" Gforth2x" here over allot swap move | Create magic s" Gforth3x" 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 |