24 lines
582 B
Common Lisp
24 lines
582 B
Common Lisp
((code
|
|
(label main
|
|
(load-absolute-32 $0 &x)
|
|
(load-absolute-32 $1 &y)
|
|
(add-real $2 $1 $0)
|
|
(real-to-string $3 $2)
|
|
(call &pln ($3) nil)
|
|
(halt))
|
|
(label pln
|
|
(load-immediate $1 &terminal-namespace) ; get terminal device
|
|
(load-immediate $11 0)
|
|
(syscall OPEN $1 $1 $11)
|
|
(load-immediate $3 &new-line)
|
|
(load-offset-32 $7 $1 4) ; load handle
|
|
(string-length $2 $0)
|
|
(syscall WRITE $7 $0 $2)
|
|
(string-length $4 $3)
|
|
(syscall WRITE $7 $3 $4)
|
|
(return nil)))
|
|
(data (label terminal-namespace "/dev/term/0")
|
|
(label new-line "\n")
|
|
(label x 1.0)
|
|
(label y 2.0)))
|