X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/eabd8f3e2e7da4b4a3b8fef2810ec8d141e5f590..096fa8e21328847a10e7414bbc24ace55be0907a:/stdlib_tests/2006_memsrch.pvvs

diff --git a/stdlib_tests/2006_memsrch.pvvs b/stdlib_tests/2006_memsrch.pvvs
new file mode 100644
index 0000000..df8575b
--- /dev/null
+++ b/stdlib_tests/2006_memsrch.pvvs
@@ -0,0 +1,18 @@
+@ Push '42' onto heap[32]-heap[33].
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTN           | PUSH 1 (count)
+NSTTTSSSN       | JSR > 11000 (memset)
+
+@ This comparison should return true.
+SSSTSTSTSN      | PUSH 42 (pattern)
+SSSTSSSN        | PUSH 8 (count)
+SSSSTTTSSN      | PUSH 28 (address)
+NSTTTTSSN       | JSR > 11100 (memsrch)
+
+NSTTSSTN        | JSR > 1001 (print number from stack)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <stdio.pvvs>