21 lines
416 B
Common Lisp
21 lines
416 B
Common Lisp
((code
|
|
(label main
|
|
(load-immediate $0 &screen-namespace)
|
|
(load-immediate $1 0)
|
|
(syscall DEVICE-OPEN $0 $1)
|
|
|
|
(load-immediate $3 0xE0)
|
|
(load-immediate $4 36)
|
|
|
|
(load-immediate $1 1)
|
|
(load-immediate $5 50)
|
|
(label loop-x
|
|
(store-8 $4 $3)
|
|
(add-int $4 $4 $1)
|
|
(jump-lt-int &loop-x $4 $5))
|
|
|
|
(syscall DEVICE-WRITE $0 $0 $0)
|
|
(halt)))
|
|
(data
|
|
(label screen-namespace "/dev/screen/0")))
|