version 1.171, 2010/04/18 13:04:09
|
version 1.174, 2010/05/13 09:39:07
|
Line 2417 T 2 cells H Value xt>body
|
Line 2417 T 2 cells H Value xt>body
|
: (dodoes,) ( does-action-ghost -- ) |
: (dodoes,) ( does-action-ghost -- ) |
]comp [G'] :dodoes addr, comp[ |
]comp [G'] :dodoes addr, comp[ |
addr, |
addr, |
\ the relocator in the c engine, does not like the |
|
\ does-address to marked for relocation |
|
[ T e? ec H 0= [IF] ] T here H tcell - reloff [ [THEN] ] |
|
2 fillcfa ; ' (dodoes,) plugin-of dodoes, |
2 fillcfa ; ' (dodoes,) plugin-of dodoes, |
|
|
: (dlit,) ( n -- ) compile lit td, ; ' (dlit,) plugin-of dlit, |
: (dlit,) ( n -- ) compile lit td, ; ' (dlit,) plugin-of dlit, |
Line 2954 Builder (ABI-CODE)
|
Line 2951 Builder (ABI-CODE)
|
Build: ;Build |
Build: ;Build |
by: :doabicode noop ;DO |
by: :doabicode noop ;DO |
|
|
|
BUILDER (;abi-code) |
|
Build: ;Build |
|
by: :do;abicode noop ;DO |
|
|
\ Input-Methods 01py |
\ Input-Methods 01py |
|
|
Builder input-method |
Builder input-method |
Line 3315 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 |