![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to code.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
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 ) |