zongor
/
undar-lang
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

add println to fibonacci example

This commit is contained in:
zongor 2025-09-23 23:03:16 -07:00
parent 2a6e428032
commit 2b8b6c38e4
1 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
test/fib.asm.lisp
View File

@ -5,12 +5,8 @@
(call &fib)
(pop $0)
(int-to-string $1 $0)
(load-immediate $2 &terminal-namespace)
(string-length $4 $3)
(syscall DEVICE-WRITE $2 $1 $4)
(load-immediate $11 &new-line)
(string-length $12 $11)
(syscall DEVICE-WRITE $2 $11 $12)
(push $1)
(call &println)
(halt))
(label fib
(pop $0)
@ -31,7 +27,16 @@
(return)
(label base-case
(push $0)
(return))))
(return)))
(label println
(load-immediate $0 &terminal-namespace)
(load-immediate $3 &new-line)
(pop $1)
(string-length $2 $1)
(syscall DEVICE-WRITE $0 $1 $2)
(string-length $4 $3)
(syscall DEVICE-WRITE $0 $3 $4)
(return)))
(data
(label terminal-namespace "/dev/term/0")
(label new-line "\n")))