version 1.5, 1996/08/21 14:58:37
|
version 1.6, 1996/09/10 16:08:36
|
Line 29 vocabulary assembler ( -- ) \ tools-ext
|
Line 29 vocabulary assembler ( -- ) \ tools-ext
|
|
|
: code ( -- colon-sys ) \ tools-ext |
: code ( -- colon-sys ) \ tools-ext |
\ start a native code definition |
\ start a native code definition |
header here >body cfa, defstart init-asm ; |
header |
|
threading-method |
|
if |
|
here >body cfa, |
|
then |
|
defstart init-asm ; |
|
|
: (;code) ( -- ) \ gforth |
: (;code) ( -- ) \ gforth |
\ execution semantics of @code{;code} |
\ execution semantics of @code{;code} |
r> lastxt code-address! ; |
r> lastxt code-address! ; |
|
|
|
:noname ( -- colon-sys ) |
|
align here lastxt code-address! |
|
defstart init-asm ; |
:noname ( colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code |
:noname ( colon-sys1 -- colon-sys2 ) \ tools-ext semicolon-code |
( create the [;code] part of a low level defining word ) |
( create the [;code] part of a low level defining word ) |
;-hook postpone (;code) ?struc postpone [ |
;-hook postpone (;code) ?struc postpone [ |
defstart init-asm ; |
defstart init-asm ; |
:noname ( -- colon-sys ) |
|
align here lastxt code-address! |
|
defstart init-asm ; |
|
interpret/compile: ;code |
interpret/compile: ;code |
|
|
: end-code ( colon-sys -- ) \ gforth end_code |
: end-code ( colon-sys -- ) \ gforth end_code |