Browse code
(fib.tal) Added fib example
neauoire authored on 23/02/2022 23:23:38
Showing 1 changed files
| 1 | 1 |
new file mode 100644 |
| ... | ... |
@@ -0,0 +1,24 @@ |
| 1 |
+( The Fibonacci Sequence |
|
| 2 |
+ A series of numbers where the next number is made of the two numbers before it ) |
|
| 3 |
+ |
|
| 4 |
+%HALT { #010f DEO }
|
|
| 5 |
+%EMIT { #18 DEO }
|
|
| 6 |
+%PRINT { DUP2 ,print JSR #0a EMIT }
|
|
| 7 |
+ |
|
| 8 |
+|0100 ( -> ) |
|
| 9 |
+ |
|
| 10 |
+ #0000 INC2k |
|
| 11 |
+ &loop |
|
| 12 |
+ ( fib ) ADD2k PRINT |
|
| 13 |
+ ADD2k LTH2k ,&loop JCN |
|
| 14 |
+ HALT |
|
| 15 |
+ |
|
| 16 |
+BRK |
|
| 17 |
+ |
|
| 18 |
+@print ( short* -- ) |
|
| 19 |
+ |
|
| 20 |
+ &short ( short* -- ) SWP ,&byte JSR |
|
| 21 |
+ &byte ( byte -- ) DUP #04 SFT ,&char JSR |
|
| 22 |
+ &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD EMIT |
|
| 23 |
+ |
|
| 24 |
+JMP2r |