diff options
| author | Julian Blake Kongslie | 2022-10-15 14:35:50 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie | 2022-10-15 14:35:50 -0700 |
| commit | d6e4a410e883c7ce6256aac862b54a8eec9d1bd1 (patch) | |
| tree | bee3e0e77a5eb79a64281c3b18e7a134485eb7b4 /programs | |
| parent | Add MQ register support. (diff) | |
| download | biggolf-d6e4a410e883c7ce6256aac862b54a8eec9d1bd1.tar.xz | |
Simplify Fibonacci program by using MQ register
Diffstat (limited to '')
| -rw-r--r-- | programs/fib.pal | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/programs/fib.pal b/programs/fib.pal index 4d3fb1b..941b949 100644 --- a/programs/fib.pal +++ b/programs/fib.pal | |||
| @@ -3,17 +3,15 @@ | |||
| 3 | *200 | 3 | *200 |
| 4 | 4 | ||
| 5 | LOOP, CLA | 5 | LOOP, CLA |
| 6 | TAD N | ||
| 7 | TAD NPLUS1 | ||
| 8 | DCA NPLUS2 | ||
| 9 | TAD NPLUS1 | 6 | TAD NPLUS1 |
| 10 | DCA N | 7 | MQL |
| 11 | TAD NPLUS2 | 8 | TAD N |
| 12 | DCA NPLUS1 | 9 | DCA NPLUS1 |
| 10 | MQA | ||
| 11 | DCA N | ||
| 13 | JMP LOOP | 12 | JMP LOOP |
| 14 | 13 | ||
| 15 | *300 | 14 | *300 |
| 16 | 15 | ||
| 17 | N, 0 | 16 | N, 0 |
| 18 | NPLUS1, 1 | 17 | NPLUS1, 1 |
| 19 | NPLUS2, 0 | ||