|
|
@ -1,10 +1,17 @@ |
|
|
|
( |
|
|
|
( |
|
|
|
|
|
|
|
(def FOO 777) |
|
|
|
|
|
|
|
(undef FOO) |
|
|
|
|
|
|
|
|
|
|
|
(def FOO 123) ; define a constant |
|
|
|
(def FOO 123) ; define a constant |
|
|
|
(call my-add 7 8) |
|
|
|
(call my-add 7 8) |
|
|
|
(cmp res0 138 (ne? (fault "assert failed"))) |
|
|
|
(cmp res0 138 (ne? (fault "assert failed"))) |
|
|
|
(halt) |
|
|
|
(halt) |
|
|
|
|
|
|
|
(sym wwww r0) |
|
|
|
|
|
|
|
|
|
|
|
(proc my-add a b ; give arguments names |
|
|
|
(proc my-add a b ; give arguments names |
|
|
|
|
|
|
|
(sym q r7) |
|
|
|
|
|
|
|
(unsym q) |
|
|
|
|
|
|
|
|
|
|
|
(sym q r0) ; give register a temporary alias |
|
|
|
(sym q r0) ; give register a temporary alias |
|
|
|
(add q a b) |
|
|
|
(add q a b) |
|
|
|
(add q FOO) |
|
|
|
(add q FOO) |
|
|
|