From 2b8b6c38e4b5f7f24112a2f84799dab43063ae80 Mon Sep 17 00:00:00 2001 From: zongor Date: Tue, 23 Sep 2025 23:03:16 -0700 Subject: [PATCH] add println to fibonacci example --- test/fib.asm.lisp | 19 ++++++++++++------- 1 file changed, 12 insertions(+), 7 deletions(-) diff --git a/test/fib.asm.lisp b/test/fib.asm.lisp index 8382931..1e25a61 100644 --- a/test/fib.asm.lisp +++ b/test/fib.asm.lisp @@ -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")))