Added stdlib_test for memcmp subroutine.

diff --git a/stdlib_tests/2005_memcmp.pvvs b/stdlib_tests/2005_memcmp.pvvs
new file mode 100644 (file)
index 0000000..5c59238
--- /dev/null
+++ b/stdlib_tests/2005_memcmp.pvvs
@@ -0,0 +1,24 @@
+@ Push '42' onto heap[32]-heap[33].
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTN           | PUSH 1 (count)
+NSTTTSSSN       | JSR > 11000 (memset)
+
+@ Push '42' onto heap[64]-heap[64].
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSSSSN     | PUSH 64 (address)
+SSSTN           | PUSH 1 (count)
+NSTTTSSSN       | JSR > 11000 (memset)
+
+@ This comparison should return true.
+SSSTN           | PUSH 1 (count)
+SSSTSSSSSN      | PUSH 32 (blk1ptr)
+SSSTSSSSSSN     | PUSH 64 (blk2ptr)
+NSTTTSTTN       | JSR > 11011 (memcmp)
+
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <stdio.pvvs>

diff --git a/stdlib_tests/vv_test.py b/stdlib_tests/vv_test.py
index f56f4fd..cf09690 100755 (executable)
--- a/stdlib_tests/vv_test.py
+++ b/stdlib_tests/vv_test.py
@@ -27,6 +27,7 @@ tests = [
         ['2002_slurp', '', 'TOS:\n3:\t+242\n2:\t+243\n1:\t+244\n'],
         ['2003_memset', '', '32:\t+42\n33:\t+42\n'],
         ['2004_memcpy', '', '34:\t+42\n35:\t+42\n'],
         ['2002_slurp', '', 'TOS:\n3:\t+242\n2:\t+243\n1:\t+244\n'],
         ['2003_memset', '', '32:\t+42\n33:\t+42\n'],
         ['2004_memcpy', '', '34:\t+42\n35:\t+42\n'],

+        ['2005_memcmp', '', '+1'],

         ] 
 
 for test in tests:
         ] 
 
 for test in tests: