(fib.tal) Added fib example

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