uxn/projects/examples/exercises/fib.tal

( Fibonacci:
	A series of numbers where the next number 
	is made of the two numbers before it )

|0100 ( -> ) @reset

	#0000 INC2k ADD2k
	&loop
		DUP2 ,print-hex JSR #0a18 DEO
		ADD2k LTH2k ,&loop JCN

	( halt )
	#010f DEO

BRK

@print-hex ( short* -- )

	SWP ,&byte JSR
	&byte ( byte -- ) DUP #04 SFT ,&char JSR
	&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO

JMP2r
(exercises/) Cleanup 2022-03-25 13:29:45 -04:00			`( Fibonacci:`
			`A series of numbers where the next number`
			`is made of the two numbers before it )`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00
(exercises/) Cleanup 2022-03-25 13:29:45 -04:00			`\|0100 ( -> ) @reset`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00
(exercises/) Cleanup 2022-03-25 13:29:45 -04:00			`#0000 INC2k ADD2k`
			`&loop`
(exercises) Housekeeping 2022-11-10 12:08:21 -05:00			`DUP2 ,print-hex JSR #0a18 DEO`
(exercises/) Cleanup 2022-03-25 13:29:45 -04:00			`ADD2k LTH2k ,&loop JCN`
(exercises) Housekeeping 2022-11-10 12:08:21 -05:00
			`( halt )`
			`#010f DEO`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00
			`BRK`

(exercises) Housekeeping 2022-11-10 12:08:21 -05:00			`@print-hex ( short* -- )`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00
A bit of housekeeping on the example files 2022-07-06 22:25:54 -04:00			`SWP ,&byte JSR`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00			`&byte ( byte -- ) DUP #04 SFT ,&char JSR`
(exercises/) Cleanup 2022-03-25 13:29:45 -04:00			`&char ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO`
(fib.tal) Added fib example 2022-02-23 18:23:38 -05:00
			`JMP2r`