stacks example

2020-10-01 23:36:33 +02:00
parent 651ffcb888
commit 8d585d765b
1 changed files with 15 additions and 0 deletions
@@ -0,0 +1,15 @@
+(
+    (stack r0)
+
+    (push @r0 1)
+    (push @r0 2)
+
+    (pop r1 @r0)
+    (cmp r1 2 (ne? (fault)))
+
+    (pop r1 @r0)
+    (cmp r1 1 (ne? (fault)))
+
+    (drop @r0)
+    (halt)
+)