X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/c6e2791fac7c7b29257588f99d350371d2e10627..d8954ff0eef3998b84815d6f05bea317a4fd3f41:/stdlib_tests/1001_stackrotate.pvvs?ds=inline

diff --git a/stdlib_tests/1001_stackrotate.pvvs b/stdlib_tests/1001_stackrotate.pvvs
new file mode 100644
index 0000000..9a38f03
--- /dev/null
+++ b/stdlib_tests/1001_stackrotate.pvvs
@@ -0,0 +1,28 @@
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTN           | PUSH 1
+SSSTTTTSTSSN    | PUSH 244
+SSSTTTTSSTTN    | PUSH 243
+SSSTTTTSSTSN    | PUSH 242
+
+SSSTTTSN        | PUSH 14
+NSTTSTSN        | JSR > 1010 (stackrotate)
+SSSTSSSN        | PUSH 8
+NSTTSTSN        | JSR > 1010 (stackrotate)
+SSSTSN          | PUSH 2
+NSTTSTSN        | JSR > 1010 (stackrotate)
+
+SSSTTSTN        | PUSH 13
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+NNN             | DIE
+
+#include <stack.pvvs>
+#include <debug.pvvs>