| | 1 | @ Shift by zero. |
| | 2 | SSSTN | PUSH +1 |
| | 3 | SSSSN | PUSH 0 |
| | 4 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 5 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 6 | |
| | 7 | @ Shift by one. |
| | 8 | SSSTN | PUSH +1 |
| | 9 | SSSTN | PUSH +1 |
| | 10 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 11 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 12 | |
| | 13 | @ Shift by 62. |
| | 14 | SSSTN | PUSH +1 |
| | 15 | SSSTTTTTSN | PUSH +62 |
| | 16 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 17 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 18 | |
| | 19 | @ Shift by 63. |
| | 20 | SSSTN | PUSH +1 |
| | 21 | SSSTTTTTTN | PUSH +63 |
| | 22 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 23 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 24 | |
| | 25 | @ Shift all ones until a single one remains. |
| | 26 | SSTTN | PUSH -1 |
| | 27 | SSSTTTTTTN | PUSH +63 |
| | 28 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 29 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 30 | |
| | 31 | @ Shift all ones to all zeros. |
| | 32 | SSTTN | PUSH -1 |
| | 33 | SSSTSSSSSSN | PUSH +64 |
| | 34 | NSTTSTTSTN | JSR > 101101 (lshift) |
| | 35 | NSTTSSTN | JSR > 1001 (print number from stack) |
| | 36 | |
| | 37 | @ All done. |
| | 38 | NNN | DIE |
| | 39 | |
| | 40 | #include <logic.pvvs> |
| | 41 | #include <stdio.pvvs> |
projects / vvhitespace / blame_incremental