+SSSTTTTN | PUSH 15 (ptr)
+TTT | LOAD
+TSST | SUBTRACT
+NTSSTSSSSSTSSSSSSSTN | BRZ > 01000001 00000001
+
+@ Increment heap[15] if continuing.
+SSSTTTTN | PUSH 15 (ptr)
+SNS | DUP
+TTT | LOAD
+SSSTN | PUSH 1
+TSSS | ADD
+TTS | STORE
+NSNSTSSSSSTSSSSSSSSN | JMP > 01000001 00000000
+
+@ Clean up and return.
+NSSVSTSSSSSTSSSSSSSTN | Mark: 01000001 00000001
+SNN | DROP
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ slurp (11110)
+@ Description:
+@ Reads values from heap to stack in complementary order to 'spew'.
+@ Call Stack:
+@ address
+@ count <-- TOS
+@ Return Stack:
+@ heap[address+count]
+@ ...
+@ heap[address+1]
+@ heap[address] <-- TOS
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTTSN | Mark: 11110 (slurp)
+SSSTSN | PUSH 2
+NSTTSSSSSTN | JSR > 1000001 (spewreg)
+
+@ Load one word from heap on each pass.
+NSSVSSSTTTTSSSSSSSSSN | Mark: 00011110 00000000
+SSSTN | PUSH 1 (ptr)
+TTT | LOAD
+SSSTSN | PUSH 2 (ptr)
+TTT | LOAD
+TSSS | ADD
+TTT | LOAD
+
+@ Check for loop completion.
+@ As a side effect, prepare the next address.
+SSSTN | PUSH 1 (ptr)
+SNS | DUP
+TTT | LOAD
+SNS | DUP
+NTSSSSTTTTSSSSSSSSTN | BRZ > 00011110 00000001
+SSSTN | PUSH 1
+TSST | SUBTRACT
+TTS | STORE
+NSNSSSTTTTSSSSSSSSSN | JMP > 00011110 00000000
+NSSVSSSTTTTSSSSSSSSTN | Mark: 00011110 00000001
+SNN | DROP
+SNN | DROP
+NTN | RTS
+
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ spew (11111)
+@ Description:
+@ Writes values from stack to heap in this order:
+@ TOS -> heap[address]
+@ TOS+1 -> heap[address+1]
+@ ...
+@ TOS+n -> heap[address+count]
+@ Call Stack:
+@ data-words
+@ ...
+@ data-words
+@ address
+@ count <-- TOS
+@ Return Stack:
+@ <empty>
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTTTTTN | Mark: 11111 (spew)
+SSSTSN | PUSH 2
+NSTTSSSSSTN | JSR > 1000001 (spewreg)
+
+@ Create a counter in heap[3] that doubles as a dest. pointer offset generator.
+SSSTTN | PUSH 3 (ptr)
+SSSSN | PUSH 0
+TTS | STORE
+
+@ Store one word to heap on each pass.
+NSSVSSSTTTTTSSSSSSSSN | Mark: 00011111 00000000
+SSSTSN | PUSH 2 (ptr)
+TTT | LOAD
+SSSTTN | PUSH 3 (ptr)
+TTT | LOAD
+TSSS | ADD
+SNT | SWAP
+TTS | STORE
+
+@ Check for loop completion.
+SSSTN | PUSH 1 (ptr)
+TTT | LOAD
+SSSTTN | PUSH 3 (ptr)