diff options
author | elioat <elioat@tilde.institute> | 2022-10-08 00:41:44 +0000 |
---|---|---|
committer | elioat <elioat@tilde.institute> | 2022-10-08 00:41:44 +0000 |
commit | c276f8d4ddd40d2eb159eb77a154adb6b8fe970a (patch) | |
tree | 2e8c45829d5d7c2476b43cdd16f276360bdcfbf6 /uxntal/fib.tal | |
parent | 47f67f9dbef72a74dfb24c6bb716c64377406a20 (diff) | |
download | tour-c276f8d4ddd40d2eb159eb77a154adb6b8fe970a.tar.gz |
*
Diffstat (limited to 'uxntal/fib.tal')
-rw-r--r-- | uxntal/fib.tal | 22 |
1 files changed, 22 insertions, 0 deletions
diff --git a/uxntal/fib.tal b/uxntal/fib.tal new file mode 100644 index 0000000..9b5cb99 --- /dev/null +++ b/uxntal/fib.tal @@ -0,0 +1,22 @@ +( 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 |