--- gforth/arch/misc/asm.fs	2002/10/02 15:31:13	1.4
+++ gforth/arch/misc/asm.fs	2002/10/02 15:54:57	1.5
@@ -66,6 +66,9 @@ Create marks $10 cells allot
   >in @ bl word count X here symentry >in !
   ahere Constant ;
 
+: code
+  -1 ABORT" Need end-code or end-label before a new code definition" ;
+
 also forth definitions
 
 : label also assembler label ;