+@ Set TOS ^= TOS << 13
+SNS | DUP
+SSSTTSTN | PUSH +13
+NSTTSTTSTN | JSR > 101101 (lshift)
+NSTTSTSTTN | JSR > 101011 (xor)
+
+@ Set TOS ^= TOS >> 7
+SNS | DUP
+SSSTTTN | PUSH +7
+NSTTSTTSSN | JSR > 101100 (rshift)
+NSTTSTSTTN | JSR > 101011 (xor)
+
+@ Set TOS ^= TOS << 17
+SNS | DUP
+SSSTSSSTN | PUSH +17
+NSTTSTTSTN | JSR > 101101 (lshift)
+NSTTSTSTTN | JSR > 101011 (xor)
+
+@ Store a copy of the new seed at heap[0] and return.