15 lines
329 B
Common Lisp
15 lines
329 B
Common Lisp
((code
|
|
(label main
|
|
(load $0 &terminal-str)
|
|
(load $1 &hello-str)
|
|
(string-length $2 $1)
|
|
(syscall DEVICE_WRITE $0 $1 $2)
|
|
(load $3 &new-line)
|
|
(string-length $4 $3)
|
|
(syscall DEVICE-WRITE $0 $3 $4)
|
|
(halt)))
|
|
(data
|
|
(label terminal-str "/dev/term/0")
|
|
(label new-line "\n")
|
|
(label hello-str "nuqneH 'u'?")))
|