![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to asm.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / arch / misc|
Return to asm.fs CVS log | Up to [gforth] / gforth / arch / misc |
| version 1.4, 2002/10/02 15:31:13 | version 1.5, 2002/10/02 15:54:57 |
|---|---|
| Line 66 Create marks $10 cells allot | Line 66 Create marks $10 cells allot |
| >in @ bl word count X here symentry >in ! | >in @ bl word count X here symentry >in ! |
| ahere Constant ; | ahere Constant ; |
| : code | |
| -1 ABORT" Need end-code or end-label before a new code definition" ; | |
| also forth definitions | also forth definitions |
| : label also assembler label ; | : label also assembler label ; |