tcl set engine engine1.c

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

syns  COL: :
syns  EXIT ;  PLUS +  STO S>  TOS >S
nasmnames  S$@, Sstrgobble
nasmnames  <."> angdotquo  S<."> Sangdotquo  2<."> 2angdotquo

' &FOO AT:
' FOO! TO:
' FOO CON:  asm	dd 0x12345 

' S$@,     :  S> COUNT 2DUP + >S ;

' <.">  RSR:
' S<.">    :  S$@, TYPE ;

' 2<."> RSR:
' S2<.">   :  S<."> CR S<."> ;

asm global ADR_DEMO
' DEMO     :  2<."> asm	db 5, 'Hello'
		    asm	db 5, 'There'
		    CR FOO FOO + FOO! ;