| 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> |