Return to code.fs CVS log | Up to [gforth] / gforth |
version 1.4, 1996/07/16 20:57:06 | version 1.5, 1996/08/21 14:58:37 |
---|---|
Line 42 vocabulary assembler ( -- ) \ tools-ext | Line 42 vocabulary assembler ( -- ) \ tools-ext |
:noname ( -- colon-sys ) | :noname ( -- colon-sys ) |
align here lastxt code-address! | align here lastxt code-address! |
defstart init-asm ; | defstart init-asm ; |
special: ;code | interpret/compile: ;code |
: end-code ( colon-sys -- ) \ gforth end_code | : end-code ( colon-sys -- ) \ gforth end_code |
( end a code definition ) | ( end a code definition ) |