mirror of https://git.cro.wtf/kip.git
19 lines
337 B
Plaintext
19 lines
337 B
Plaintext
-inc "x/inc/dev.x20"
|
|
-org #0100
|
|
:entry
|
|
pr ^cursormove `ivt/disp/vsync mw
|
|
ex
|
|
;
|
|
:cursormove
|
|
pw @data/cursor `disp/blt io
|
|
pr ^pos fw `disp/pos io
|
|
pw #00ffff72 `disp/out io
|
|
`mouse/pos ii du `disp/pos io pr ^pos mw
|
|
pw #00f25032 `disp/out io
|
|
~ju
|
|
:pos #00000000 ;
|
|
;
|
|
:data
|
|
:cursor #f000ec00 #eb00eac0 #eaf0eec0 #ffc0c3c0 ;
|
|
;
|