diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 21:22:32 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2014-07-11 21:22:32 -0700 |
commit | 77f8e6cd2534fb7c63b0021b7adcd1a2b8348402 (patch) | |
tree | 2e1436a88c6d3306aa585ec7a87dd3b558f6abef /mu.arc.t | |
parent | ff8b3afd095b9341dec55f7e54c2b0ae9a989931 (diff) | |
download | mu-77f8e6cd2534fb7c63b0021b7adcd1a2b8348402.tar.gz |
15
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/mu.arc.t b/mu.arc.t index c9808072..f657bf6b 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -139,3 +139,15 @@ ;? (prn memory*) (if (~iso memory* (obj 1 8 2 3 3 2 4 2)) (prn "F - idiv works")) + +(clear) +(add-fns + '((main + ((integer 1) <- loadi 8) + (jmp (location 3)) + ((integer 2) <- loadi 3) + (reply)))) +(run function*!main) +;? (prn memory*) +(if (~iso memory* (obj 1 8)) + (prn "F - jmp works")) |