(
(def FOO 123) ; define a constant
(call my-add 7 8)
(cmp res0 138 (ne? (fault "assert failed")))
(halt)
(proc my-add a b ; give arguments names
(sym q r0) ; give register a temporary alias
(add q a b)
(add q FOO)
(ret q)
)
