X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/acd78c53d4da91c43e1060f22e73a4c8e8ab3b19..24e4f91be7b06eb75e11db6f684d157f61fda8ba:/stdlib_tests/3001_not.pvvs

diff --git a/stdlib_tests/3001_not.pvvs b/stdlib_tests/3001_not.pvvs
new file mode 100644
index 0000000..8af83b3
--- /dev/null
+++ b/stdlib_tests/3001_not.pvvs
@@ -0,0 +1,28 @@
+@ All zeros to all ones
+SSSSN           | PUSH 0
+NSTTSTSSSN      | JSR > 101000 (not)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ All ones to all zeros
+SSTTN           | PUSH -1
+NSTTSTSSSN      | JSR > 101000 (not)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test alternating bits, leading zero.
+@ Note that 6148914691236517205 = 0101...0101
+SSSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTN  | PUSH +6148914691236517205
+NSTTSTSSSN      | JSR > 101000 (not)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test alternating bits, leading one.
+@ Note that -6148914691236517206 = 1010...1010 in twos-complement but we 
+@ enter it in sign magnitude format so the bit pattern appears different.
+SSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTTSN | PUSH -6148914691236517206
+NSTTSTSSSN      | JSR > 101000 (not)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ All done.
+NNN             | DIE
+
+#include <logic.pvvs>
+#include <stdio.pvvs>