+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+@ Name:
+@ stackrotatereverse
+@ Description:
+@ Maximum rotation depth is five. Stomps on heap[9]-heap[14].
+@ Assumes rotation depth greater than two, otherwise use SWAP.
+@ Call Stack:
+@ stack word n
+@ ...
+@ stack word 1
+@ rotation depth (rd) <-- TOS
+@ Return Stack (n>rd=3):
+@ stack word n
+@ ...
+@ stack word 2
+@ stack word 1
+@ stack word 3 <-- TOS
+@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
+NSSVTSTTN | Mark: 1011 (stackrotatereverse)
+
+@ For the convenience of other functions, modulo the
+@ rotation depth by the available registers.
+SSSTSTN | PUSH 5
+TSTT | MODULO
+
+@ Use heap[14] for generating register addresses.
+SSSTTTSN | PUSH 14 (ptr)
+SSSSN | PUSH 0
+TTS | STORE
+
+@ Dump one word from stack to heap each pass through the loop.
+NSSVSSSSTSTTSSSSSSSSN | Mark: 00001011 00000000
+SNT | SWAP
+SSSTSSTN | PUSH 9 (starting register)
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+TSSS | ADD
+SNT | SWAP
+TTS | STORE
+
+@ See if the loop is complete.
+SNS | DUP
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+SSSTN | PUSH 1
+TSSS | ADD
+TSST | SUBTRACT
+NTSSSSSTSTTSSSSSSSTN | BRZ > 00001011 00000001
+
+@ Increment the loop counter
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+SSSTN | PUSH 1
+TSSS | ADD
+SSSTTTSN | PUSH 14 (ptr)
+SNT | SWAP
+TTS | STORE
+NSNSSSSTSTTSSSSSSSSN | JMP > 00001011 00000000
+
+@ The correct number of words have been stored to registers.
+@ Time to read them back in rotated order.
+
+@ First, prepare the counter in heap[14] again.
+NSSVSSSSTSTTSSSSSSSTN | Mark: 00001011 00000001
+SSSTN | PUSH 1
+TSST | SUBTRACT
+SNS | DUP
+SSSTN | PUSH 1
+TSST | SUBTRACT
+SSSTTTSN | PUSH 14 (ptr)
+SNT | SWAP
+TTS | STORE
+
+@ Read one word per pass through this loop.
+@ Store it behind 'rd' on the stack.
+NSSVSSSSTSTTSSSSSSTSN | Mark: 00001011 00000010
+SSSTSSTN | PUSH 9 (starting register)
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+TSSS | ADD
+TTT | LOAD
+SNT | SWAP
+
+@ See if the loop is complete.
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+NTSSSSSTSTTSSSSSSTTN | BRZ > 00001011 00000011
+
+@ Decrement the loop counter and loop again.
+SSSTTTSN | PUSH 14 (ptr)
+TTT | LOAD
+SSSTN | PUSH 1
+TSST | SUBTRACT
+SSSTTTSN | PUSH 14 (ptr)
+SNT | SWAP
+TTS | STORE
+NSNSSSSTSTTSSSSSSTSN | JMP > 00001011 00000010
+
+@ Read in the final value manually and return.
+NSSVSSSSTSTTSSSSSSTTN | Mark: 00001011 00000011
+SSSTSSTN | PUSH 9 (starting register)
+TSSS | ADD
+TTT | LOAD
+NTN | RTS
+