diff options
| author | Julian Blake Kongslie | 2022-10-14 13:53:46 -0700 |
|---|---|---|
| committer | Julian Blake Kongslie | 2022-10-14 13:53:46 -0700 |
| commit | 9212909e24252ed723884c29a9c7e68018897bd7 (patch) | |
| tree | 10574a0129fe4028558caae396dfc14d710c43d8 /programs/fib.pal | |
| parent | Use automatic literal support in palbart; fix loader to ignore checksum (diff) | |
| download | biggolf-9212909e24252ed723884c29a9c7e68018897bd7.tar.xz | |
Add Fibonacci program (which doesn't work yet)
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 | ||