Add absolute store instructions sta/sta2

1 files changed, 23 insertions, 6 deletions

diff --git a/src/uxn-core.s b/src/uxn-core.s
index 7307dce..c290d17 100644
--- a/src/uxn-core.s
+++ b/src/uxn-core.s
@@ -111,16 +111,27 @@ uxn_ret:
     strb    \a, [\off]
 .endm
 
-.macro zload8 dst, off
-    ldrb    \dst, [r7, \off]
+.macro zload8 a, off
+    ldrb    \a, [r7, \off]
 .endm
 
-.macro rload8 dst, off
-    ldrb    \dst, [r0, \off]
+.macro rload8 a, off
+    ldrb    \a, [r0, \off]
 .endm
 
-.macro aload8 dst, off
-    ldrb    \dst, [r7, \off]
+.macro aload8 a, off
+    ldrb    \a, [r7, \off]
+.endm
+
+.macro asave8 a, off
+    strb    \a, [r7, \off]
+.endm
+
+.macro asave16 a, off
+    add     \off, r7
+    strb    \a, [\off, #1]
+    lsr     \a, #8
+    strb    \a, [\off]
 .endm
 
 .macro rsave8 a, off
@@ -684,9 +695,15 @@ lda2:
     b       uxn_decode
 
 sta:
+    wpop16  r4, r5
+    wpop8   r3
+    asave8  r3, r4
     b       uxn_decode
 
 sta2:
+    wpop16  r4, r5
+    wpop16  r3, r5
+    asave16 r3, r4
     b       uxn_decode
 
 dei: