# Same as demo0a.tf, but without any use of synonyms

tcl set engine engine0.c

  Hprims COL CON
 SFprims EXIT TIMES DUP
FIPprims RETURN

' 2      H_CON asm dd 2
' SQUARE H_COL SF_DUP SF_TIMES SF_EXIT
' CUBE   H_COL SF_DUP F_SQUARE SF_TIMES SF_EXIT

asm global ADR_DEMO
' DEMO   H_COL F_2 F_CUBE SF_EXIT