Commit | Line | Data |
---|---|---|
7967fb7d AT |
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 | @ All done. | |
26 | NNN | DIE | |
27 | ||
28 | #include <logic.pvvs> | |
29 | #include <stdio.pvvs> |