uxn/projects/examples/exercises/fib.tal

( 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 ADD2k 
	&loop 
		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
(fib.tal) Added fib example 2022-02-23 23:23:38 +00:00			`( 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 ( -> )`

(fib.tal) Little optimization 2022-02-23 23:37:29 +00:00			`#0000 INC2k ADD2k`
			`&loop`
			`PRINT ADD2k LTH2k ,&loop JCN`
(fib.tal) Added fib example 2022-02-23 23:23:38 +00:00			`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`