improve cursor offsets
This commit is contained in:
parent
8db2f9d4ac
commit
e618a8010a
BIN
kodiak.rom
BIN
kodiak.rom
Binary file not shown.
|
@ -753,14 +753,14 @@
|
||||||
|
|
||||||
@clear-prev-mouse ( -> )
|
@clear-prev-mouse ( -> )
|
||||||
;blank .Screen/addr DEO2
|
;blank .Screen/addr DEO2
|
||||||
.prev/mouse-x LDZ2 #0006 SUB2 .Screen/x DEO2
|
.prev/mouse-x LDZ2 #0004 SUB2 .Screen/x DEO2
|
||||||
.prev/mouse-y LDZ2 #0006 SUB2 .Screen/y DEO2
|
.prev/mouse-y LDZ2 #0005 SUB2 .Screen/y DEO2
|
||||||
[ LIT2 12 -Screen/auto ] DEO
|
[ LIT2 12 -Screen/auto ] DEO
|
||||||
#41 .Screen/sprite DEOk DEO JMP2r
|
#41 .Screen/sprite DEOk DEO JMP2r
|
||||||
|
|
||||||
@draw-curr-mouse ( -> )
|
@draw-curr-mouse ( -> )
|
||||||
.Mouse/x DEI2 DUP2 .prev/mouse-x STZ2 #0006 SUB2 .Screen/x DEO2
|
.Mouse/x DEI2 DUP2 .prev/mouse-x STZ2 #0004 SUB2 .Screen/x DEO2
|
||||||
.Mouse/y DEI2 DUP2 .prev/mouse-y STZ2 #0006 SUB2 .Screen/y DEO2
|
.Mouse/y DEI2 DUP2 .prev/mouse-y STZ2 #0005 SUB2 .Screen/y DEO2
|
||||||
.dragging LDZ ?&skip
|
.dragging LDZ ?&skip
|
||||||
( | draw )
|
( | draw )
|
||||||
[ LIT2 16 -Screen/auto ] DEO
|
[ LIT2 16 -Screen/auto ] DEO
|
||||||
|
|
Loading…
Reference in New Issue