forked from MightyPork/crsn
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
14 lines
284 B
14 lines
284 B
4 years ago
|
(
|
||
|
|
(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)
|
||
|
|
)
|
||
|
|
)
|