diff options
Diffstat (limited to 'programs/fib.pal')
| -rw-r--r-- | programs/fib.pal | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/programs/fib.pal b/programs/fib.pal new file mode 100644 index 0000000..4d3fb1b --- /dev/null +++ b/programs/fib.pal | |||
| @@ -0,0 +1,19 @@ | |||
| 1 | / vim: set sw=8 noexpandtab : | ||
| 2 | |||
| 3 | *200 | ||
| 4 | |||
| 5 | LOOP, CLA | ||
| 6 | TAD N | ||
| 7 | TAD NPLUS1 | ||
| 8 | DCA NPLUS2 | ||
| 9 | TAD NPLUS1 | ||
| 10 | DCA N | ||
| 11 | TAD NPLUS2 | ||
| 12 | DCA NPLUS1 | ||
| 13 | JMP LOOP | ||
| 14 | |||
| 15 | *300 | ||
| 16 | |||
| 17 | N, 0 | ||
| 18 | NPLUS1, 1 | ||
| 19 | NPLUS2, 0 | ||
