diff --git a/projects/examples/exercises/fib.tal b/projects/examples/exercises/fib.tal new file mode 100644 index 0000000..ec7e9e1 --- /dev/null +++ b/projects/examples/exercises/fib.tal @@ -0,0 +1,24 @@ +( The Fibonacci Sequence + A series of numbers where the next number is made of the two numbers before it ) + +%HALT { #010f DEO } +%EMIT { #18 DEO } +%PRINT { DUP2 ,print JSR #0a EMIT } + +|0100 ( -> ) + + #0000 INC2k + &loop + ( fib ) ADD2k PRINT + ADD2k LTH2k ,&loop JCN + HALT + +BRK + +@print ( short* -- ) + + &short ( short* -- ) SWP ,&byte JSR + &byte ( byte -- ) DUP #04 SFT ,&char JSR + &char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD EMIT + +JMP2r