undar-lang/test/window.asm.lisp

10 lines
187 B
Common Lisp

((code
(label main
(load-immediate $0 &screen-namespace)
(load-immediate $1 0) ; mode 0
(syscall DEVICE-OPEN $0 $2)
(halt)))
(data (label screen-namespace "/dev/term/0")))