X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/24e4f91be7b06eb75e11db6f684d157f61fda8ba..7967fb7d404c4f3d20a598c280230a12ca45880d:/stdlib_tests/3002_lshift.pvvs

diff --git a/stdlib_tests/3002_lshift.pvvs b/stdlib_tests/3002_lshift.pvvs
new file mode 100644
index 0000000..57beaad
--- /dev/null
+++ b/stdlib_tests/3002_lshift.pvvs
@@ -0,0 +1,29 @@
+@ Shift by zero.
+SSSTN           | PUSH +1
+SSSSN           | PUSH 0
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by one.
+SSSTN           | PUSH +1
+SSSTN           | PUSH +1
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by 62.
+SSSTN           | PUSH +1
+SSSTTTTTSN      | PUSH +62
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Shift by 63.
+SSSTN           | PUSH +1
+SSSTTTTTTN      | PUSH +63
+NSTTSTTSTN      | JSR > 101101 (lshift)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ All done.
+NNN             | DIE
+
+#include <logic.pvvs>
+#include <stdio.pvvs>