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.
23 lines
443 B
23 lines
443 B
(
|
|
(def FOO 777)
|
|
(undef FOO)
|
|
|
|
(def FOO 123) ; define a constant
|
|
(call my-add 7 8)
|
|
(cmp res0 138 (ne? (fault "assert failed")))
|
|
(halt)
|
|
(sym wwww r0)
|
|
(sym q r7)
|
|
|
|
(proc my-add a b ; give arguments names
|
|
(sym q r7)
|
|
(unsym q)
|
|
|
|
(sym q r0) ; give register a temporary alias
|
|
(add q a b)
|
|
(add q FOO)
|
|
(ret q)
|
|
)
|
|
|
|
(add wwww wwww) ; test that it is still defined
|
|
)
|
|
|