Add immediate jump operations jci/jmi/jsi

1 files changed, 34 insertions, 6 deletions

diff --git a/src/uxn-core.s b/src/uxn-core.s
index ec7537f..d32f303 100644
--- a/src/uxn-core.s
+++ b/src/uxn-core.s
@@ -94,6 +94,16 @@ uxn_ret:
     strb    \a, [r2], #1
 .endm
 
+.macro rpop8s a
+    ldrsb   \a, [r2, #-1]!
+.endm
+
+.macro rpop16 a, b
+    ldrb    \a, [r2, #-1]!
+    ldrb    \b, [r2, #-1]!
+    orr     \a, \a, \b, lsl #8
+.endm
+
 .macro rpush16 a
     strb    \a, [r2, #1]
     lsr     \a, #8
@@ -255,7 +265,7 @@ op_table:
     .word brk   @ 0x69
     .word brk   @ 0x6a
     .word brk   @ 0x6b
-    .word brk   @ 0x6c
+    .word jmp2r @ 0x6c
     .word brk   @ 0x6d
     .word brk   @ 0x6e
     .word brk   @ 0x6f
@@ -412,17 +422,29 @@ brk:
     b       uxn_ret
 
 jci:
-    wpop8   r3
-    cmp     r3, #0
-    @ TODO: What to do here? Reference not fully clear.
+    ldrb    r5, [r0], #1
+    ldrsb   r3, [r0], #1
+    orr     r3, r3, r5, lsl #8
+    wpop8   r4
+    cmp     r4, #0
+    addne   r0, r3
+    addeq   r0, #2
     b       uxn_decode
 
 jmi:
-    @ TODO: What to do here? Reference not fully clear.
+    ldrb    r5, [r0], #1
+    ldrsb   r3, [r0], #1
+    orr     r3, r3, r5, lsl #8
+    add     r0, r3
     b       uxn_decode
 
 jsi:
-    @ TODO: What to do here? Reference not fully clear.
+    ldrb    r5, [r0], #1
+    ldrsb   r3, [r0], #1
+    orr     r3, r3, r5, lsl #8
+    mov     r4, r0
+    rpush16 r4
+    add     r0, r3
     b       uxn_decode
 
 lit:
@@ -618,6 +640,12 @@ jmp2:
     add     r0, r0, r3
     b       uxn_decode
 
+jmp2r:
+    rpop16  r3, r5
+    mov     r0, r7
+    add     r0, r0, r3
+    b       uxn_decode
+
 jcn:
     wpop8s  r3
     wpop8   r4