about summary refs log tree commit diff stats
path: root/mu.arc.t
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2014-07-11 22:28:51 -0700
committerKartik K. Agaram <vc@akkartik.com>2014-07-11 22:28:51 -0700
commitd17e8291efb5fb7c6f793ef925c6c262ce855581 (patch)
treec671e45336cae97d65a543c2cc8e3cc129d31327 /mu.arc.t
parent368e76cdf685e589f807755bdd39a31e8ccd2c83 (diff)
downloadmu-d17e8291efb5fb7c6f793ef925c6c262ce855581.tar.gz
20 - relative addressing for jumps
Diffstat (limited to 'mu.arc.t')
-rw-r--r--mu.arc.t10
1 files changed, 5 insertions, 5 deletions
diff --git a/mu.arc.t b/mu.arc.t
index d35bddf0..8150f4a1 100644
--- a/mu.arc.t
+++ b/mu.arc.t
@@ -166,7 +166,7 @@
 (add-fns
   '((main
       ((integer 1) <- loadi 8)
-      (jmp (location 3))
+      (jmp (offset 1))
       ((integer 2) <- loadi 3)
       (reply))))
 (run function*!main)
@@ -178,7 +178,7 @@
 (add-fns
   '((main
       ((integer 1) <- loadi 8)
-      (jmp (location 3))
+      (jmp (offset 1))
       ((integer 2) <- loadi 3)
       (reply)
       ((integer 3) <- loadi 34))))
@@ -191,7 +191,7 @@
 (add-fns
   '((main
       ((integer 1) <- loadi 0)
-      (jifz (integer 1) (location 3))
+      (jifz (integer 1) (offset 1))
       ((integer 2) <- loadi 3)
       (reply)
       ((integer 3) <- loadi 34))))
@@ -204,7 +204,7 @@
 (add-fns
   '((main
       ((integer 1) <- loadi 1)
-      (jifz (integer 1) (location 3))
+      (jifz (integer 1) (offset 1))
       ((integer 2) <- loadi 3)
       (reply)
       ((integer 3) <- loadi 34))))
@@ -219,7 +219,7 @@
       ((integer 4) <- otype 0)
       ((integer 5) <- loadi 0)  ; type index corresponding to 'integer'
       ((integer 6) <- sub (integer 4) (integer 5))
-      (jifz (integer 6) (location 5))
+      (jifz (integer 6) (offset 1))
       (reply)
       ((integer 7) <- arg)
       ((integer 8) <- arg)