2 files changed, 86 insertions, 0 deletions
diff --git a/test/ui/v1/stack/links.json b/test/ui/v1/stack/links.json
new file mode 100644
index 0000000..fe51488
--- /dev/null
+++ b/test/ui/v1/stack/links.json
@@ -0,0 +1 @@
+[]
diff --git a/test/ui/v1/stack/ui.c b/test/ui/v1/stack/ui.c
new file mode 100644
index 0000000..f74b629
--- /dev/null
+++ b/test/ui/v1/stack/ui.c
@@ -0,0 +1,85 @@
+// file    : test/ui/v1/stack/ui.c
+// project : Salis-VM
+// author  : Paul Oliver <contact@pauloliver.dev>
+
+#include <assert.h>
+#include <stdint.h>
+#include <threads.h>
+#include <zlib.h>
+
+#include "arch_spec.h"
+#include "arch_inst.h"
+#include "compress.h"
+#include "salis.h"
+
+int main(void) {
+    salis_init();
+
+    while (mvec_is_proc_owner(g_cores, g_cores->pvec->ip, g_cores->pcur)) {
+        uint8_t inst = mvec_get_inst(g_cores, g_cores->pvec->ip);
+
+        if (inst != rpsh && inst != rpop) {
+            salis_step(1);
+            continue;
+        }
+
+        uint64_t *reg = &g_cores->pvec->r0x;
+
+        switch (mvec_get_inst(g_cores, g_cores->pvec->ip + 1)) {
+        case nop0:
+            reg = &g_cores->pvec->r0x;
+            break;
+        case nop1:
+            reg = &g_cores->pvec->r1x;
+            break;
+        case nop2:
+            reg = &g_cores->pvec->r2x;
+            break;
+        case nop3:
+            reg = &g_cores->pvec->r3x;
+            break;
+        }
+
+        uint64_t reg_val = *reg;
+        uint64_t stack_val[8] = {
+            g_cores->pvec->s0,
+            g_cores->pvec->s1,
+            g_cores->pvec->s2,
+            g_cores->pvec->s3,
+            g_cores->pvec->s4,
+            g_cores->pvec->s5,
+            g_cores->pvec->s6,
+            g_cores->pvec->s7,
+        };
+
+        salis_step(1);
+
+        switch (inst) {
+        case rpsh:
+            assert(*reg == reg_val);
+            assert(g_cores->pvec->s0 == *reg);
+            assert(g_cores->pvec->s1 == stack_val[0]);
+            assert(g_cores->pvec->s2 == stack_val[1]);
+            assert(g_cores->pvec->s3 == stack_val[2]);
+            assert(g_cores->pvec->s4 == stack_val[3]);
+            assert(g_cores->pvec->s5 == stack_val[4]);
+            assert(g_cores->pvec->s6 == stack_val[5]);
+            assert(g_cores->pvec->s7 == stack_val[6]);
+            break;
+        case rpop:
+            assert(*reg == stack_val[0]);
+            assert(g_cores->pvec->s0 == stack_val[1]);
+            assert(g_cores->pvec->s1 == stack_val[2]);
+            assert(g_cores->pvec->s2 == stack_val[3]);
+            assert(g_cores->pvec->s3 == stack_val[4]);
+            assert(g_cores->pvec->s4 == stack_val[5]);
+            assert(g_cores->pvec->s5 == stack_val[6]);
+            assert(g_cores->pvec->s6 == stack_val[7]);
+            assert(g_cores->pvec->s7 == 0);
+            break;
+        }
+    }
+
+    salis_save_and_free();
+    return 0;
+}