projects / vvhitespace / blame
| Commit | Line | Data |
|---|---|---|
| 37372ed0 AT |
1 | @ Verify gcd(0,0) = 0 |
| 2 | SSSSN | PUSH 0 | |
| 3 | SSSSN | PUSH 0 | |
| 4 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 5 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 6 | ||
| 7 | @ Verify gcd(4,0) = 4 | |
| 8 | SSSSN | PUSH 0 | |
| 9 | SSSTSSN | PUSH 4 | |
| 10 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 11 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 12 | ||
| 13 | @ Verify gcd(0,4) = 4 | |
| 14 | SSSTSSN | PUSH 4 | |
| 15 | SSSSN | PUSH 0 | |
| 16 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 17 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 18 | ||
| 19 | @ Verify gcd(6,9) = 3 | |
| 20 | SSSTSSTN | PUSH 9 | |
| 21 | SSSTTSN | PUSH 6 | |
| 22 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 23 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 24 | ||
| 25 | @ Verify gcd(-6,9) = 3 | |
| 26 | SSSTSSTN | PUSH 9 | |
| 27 | SSTTTSN | PUSH -6 | |
| 28 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 29 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 30 | ||
| 31 | @ Verify gcd(-9,6) = 3 | |
| 32 | SSTTSSTN | PUSH -9 | |
| 33 | SSSTTSN | PUSH 6 | |
| 34 | NSTTSSTSN | JSR > 10010 (math:gcd) | |
| 35 | NSTTTTTSTN | JSR > 111101 (debug:printsignednumber) | |
| 36 | ||
| 37 | ||
| 38 | NNN | DIE | |
| 39 | ||
| 40 | #include <math.pvvs> | |
| 41 | #include <debug.pvvs> |