Add absolute load instructions lda/lda2

1 files changed, 13 insertions, 0 deletions

diff --git a/src/uxn-core.s b/src/uxn-core.s
index 0e5cdbc..7307dce 100644
--- a/src/uxn-core.s
+++ b/src/uxn-core.s
@@ -119,6 +119,10 @@ uxn_ret:
     ldrb    \dst, [r0, \off]
 .endm
 
+.macro aload8 dst, off
+    ldrb    \dst, [r7, \off]
+.endm
+
 .macro rsave8 a, off
     strb    \a, [r0, \off]
 .endm
@@ -665,9 +669,18 @@ str2:
     b       uxn_decode
 
 lda:
+    wpop16  r4, r5
+    aload8  r3, r4
+    wpush8  r3
     b       uxn_decode
 
 lda2:
+    wpop16  r4, r5
+    aload8  r3, r4
+    wpush8  r3
+    add     r4, #1
+    aload8  r3, r4
+    wpush8  r3
     b       uxn_decode
 
 sta: