28 lines
407 B
Common Lisp
28 lines
407 B
Common Lisp
((code
|
|
(label main
|
|
(push 1)
|
|
(push 1)
|
|
(call &add)
|
|
(int-to-string)
|
|
(call &pln)
|
|
(halt))
|
|
|
|
(label add
|
|
(add-int)
|
|
(return))
|
|
|
|
(label pln
|
|
(dup)
|
|
(string-length)
|
|
(push &terminal-namespace)
|
|
(syscall WRITE)
|
|
(push &new-line)
|
|
(dup)
|
|
(string-length)
|
|
(push &terminal-namespace)
|
|
(syscall WRITE)
|
|
(return)))
|
|
(data
|
|
(label terminal-namespace "/dev/term/0")
|
|
(label new-line "\n")))
|