X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/36c8fa87e113a578cc5e8abfd5a8b96b7c688e43..8fcdc866155b7ec8d760b2125aa053de836380da:/stdlib_tests/3005_or.pvvs

diff --git a/stdlib_tests/3005_or.pvvs b/stdlib_tests/3005_or.pvvs
new file mode 100644
index 0000000..756f8e1
--- /dev/null
+++ b/stdlib_tests/3005_or.pvvs
@@ -0,0 +1,37 @@
+@ Test 0 v 0 = 0
+SSSSN           | PUSH 0
+SSSSN           | PUSH 0
+NSTTSTSTSN      | JSR > 101010 (or)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test 0 v 1 = 1
+SSSSN           | PUSH 0
+SSSTN           | PUSH +1
+NSTTSTSTSN      | JSR > 101010 (or)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test 1 v 1 = 1
+SSSTN           | PUSH +1
+SSSTN           | PUSH +1
+NSTTSTSTSN      | JSR > 101010 (or)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test 1 v 1...1 = 1...1
+SSSTN           | PUSH +1
+SSTTN           | PUSH -1
+NSTTSTSTSN      | JSR > 101010 (or)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ Test 1010...1010 v 0101...0101 = 1...1
+@ 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
+SSSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTSTN  | PUSH +6148914691236517205
+NSTTSTSTSN      | JSR > 101010 (or)
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+@ All done.
+NNN             | DIE
+
+#include <logic.pvvs>
+#include <stdio.pvvs>