--- /dev/null
+@ Push '42' onto heap[32]-heap[33].
+SSSTSTSTSN | PUSH 42 (pattern)
+SSSTSSSSSN | PUSH 32 (address)
+SSSTN | PUSH 1 (count)
+NSTTTSSSN | JSR > 11000 (memset)
+
+@ Print heap[32]-heap[33]
+SSSTSSSSTN | PUSH 33 (end address)
+SSSTSSSSSN | PUSH 32 (start address)
+NSTTTTSSSN | JSR > 111000 (dump heap)
+
+NNN | DIE
+
+#include <heap.pvvs>
+#include <debug.pvvs>
--- /dev/null
+@ Push '42' onto heap[32]-heap[33].
+SSSTSTSTSN | PUSH 42 (pattern)
+SSSTSSSSSN | PUSH 32 (address)
+SSSTN | PUSH 1 (count)
+NSTTTSSSN | JSR > 11000 (memset)
+
+@ Copy '42' onto heap[34]-heap[35]
+SSSTSSSSSN | PUSH 32 (source)
+SSSTSSSTSN | PUSH 34 (destination)
+SSSTN | PUSH 1 (count)
+NSTTTSSTN | JSR > 11001 (memcpy)
+
+@ Print heap[34]-heap[35]
+SSSTSSSTTN | PUSH 35 (end address)
+SSSTSSSTSN | PUSH 34 (start address)
+NSTTTTSSSN | JSR > 111000 (dump heap)
+
+NNN | DIE
+
+#include <heap.pvvs>
+#include <debug.pvvs>
['1003_deepdup', '', 'TOS:\n15:\t+1\n14:\t+244\n13:\t+1\n12:\t+1\n11:\t+1\n10:\t+1\n9:\t+1\n8:\t+1\n7:\t+1\n6:\t+1\n5:\t+1\n4:\t+1\n3:\t+1\n2:\t+1\n1:\t+244\n'],
['2001_spew', '', '32:\t+242\n33:\t+243\n34:\t+244\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'],
]
for test in tests: