tcl set engine engine2.c

  Hprims COL RSR CON TO AT C1 C2 C3
 SFprims EXIT PLUS DUP 2DUP 1
  Fprims COUNT TYPE CR STO TOS
FIPprims RETURN RSREXIT

syns  COL: :
syns  EXIT ;  PLUS +  STO S>  TOS >S

' strlen  C1: asm extern strlen
	      asm  dd strlen
' 0<.">  RSR:
' S0<.">    : S> DUP strlen 2DUP TYPE + 1 + >S ;

asm global ADR_DEMO
' DEMO      :  0<."> asm db 'Hello', 0
	       CR 0<."> asm db 'There!', 0
	    ;