X-Git-Url: http://git.subgeniuskitty.com/vvhitespace/.git/blobdiff_plain/63a60fe0eda07a6583067318e818a9929b87b2d7..ec58aa1c619f762ef3d2dcd212ad7b87f804afeb:/stdlib_tests/2002_slurp.pvvs

diff --git a/stdlib_tests/2002_slurp.pvvs b/stdlib_tests/2002_slurp.pvvs
new file mode 100644
index 0000000..7c36df3
--- /dev/null
+++ b/stdlib_tests/2002_slurp.pvvs
@@ -0,0 +1,19 @@
+SSSTTTTSTSSN    | PUSH 244
+SSSTTTTSSTTN    | PUSH 243
+SSSTTTTSSTSN    | PUSH 242
+
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSN          | PUSH 2 (count)
+NSTTTTTTN       | JSR > 11111 (spew)
+
+SSSTSSSSSN      | PUSH 32 (address)
+SSSTSN          | PUSH 2 (count)
+NSTTTTTSN       | JSR > 11110 (slurp)
+
+SSSTTN          | PUSH 3 (count)
+NSTTTTSSTN      | JSR > 111001 (dumpstack)
+
+NNN             | DIE
+
+#include <heap.pvvs>
+#include <debug.pvvs>