path: root/uxntal/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
		( print ) DUP2 ,print JSR
		( linebreak ) #0a18 DEO
		ADD2k LTH2k ,&loop JCN
	( halt ) #010f DEO

BRK

@print ( 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