undar-lang/test/window.asm.lisp

15 lines
303 B
Common Lisp

((code
(label main
(load-immediate $0 &screen-namespace)
(load-immediate $1 0)
(syscall DEVICE-OPEN $0 $2)
(load-immediate $3 0x55)
(load-immediate $4 36)
(store-8 $4 $3)
(syscall DEVICE-WRITE $0 $0 $0)
(halt)))
(data
(label screen-namespace "/dev/screen/0")))