etc/uxn
0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-11-22 22:05:11 +00:00
Code Issues Projects Releases Wiki Activity

(fib.tal) Added fib example

Browse source
This commit is contained in:
neauoire 2022-02-23 15:23:38 -08:00
parent f87c15c8b5
commit 1993eb9b5f
1 changed files with 24 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
projects/examples/exercises/fib.tal Normal file
View file

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