stacks example

4 years ago · 8d585d765b
parent 651ffcb888
commit 8d585d765b
1 changed files with 15 additions and 0 deletions
--- a/examples/stacks.csn
+++ b/examples/stacks.csn
@ -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)
+)