undar-lang/test/simple.asm.lisp

12 lines
223 B
Common Lisp

((code (
(label main)
(load-imm $0 1.0)
(load-imm $0 2.0)
(addf $2 $1 $0)
(ftos $3 $2)
(strlen $4 $3)
(load $5 &terminal_str)
(syscall DEVICE_WRITE, $5, $3, $4)
(halt)))
(data (label terminal_str "/dev/term/0")))