A2osX/LIB/LIBGUI.S.MOU.txt

93 lines
1.6 KiB
Plaintext
Raw Normal View History

2018-05-16 06:02:57 +00:00
NEW
2018-11-17 17:17:13 +00:00
PREFIX
2018-05-16 06:02:57 +00:00
AUTO 4,1
*--------------------------------------
2019-01-09 06:58:19 +00:00
MOU.Init
2019-01-08 16:29:26 +00:00
.1 >PUSHBI 0
>LDYA L.DEVNAME.MOUSE
2019-05-05 17:15:37 +00:00
>SYSCALL2 open
2018-05-16 06:02:57 +00:00
bcc .2
2019-01-08 16:29:26 +00:00
inc DEVNAME.MOUSE+8
lda DEVNAME.MOUSE+8
2018-05-16 06:02:57 +00:00
cmp #'8'
bne .1
2019-01-04 13:17:31 +00:00
rts
2018-05-16 06:02:57 +00:00
2019-01-08 16:29:26 +00:00
.2 sta hDevMouse
2019-01-09 06:58:19 +00:00
clc
rts
*--------------------------------------
MOU.Setup lda DCB.GFX+S.DCB.GFX.W+1
2018-05-16 06:02:57 +00:00
sta MouseClamp+3
lsr
sta CUR.Pos+S.POINT.X+1
2019-01-09 06:58:19 +00:00
lda DCB.GFX+S.DCB.GFX.W
2018-05-16 06:02:57 +00:00
sta MouseClamp+2
ror
sta CUR.Pos+S.POINT.X
2019-01-09 06:58:19 +00:00
lda DCB.GFX+S.DCB.GFX.H+1
2018-05-16 06:02:57 +00:00
sta MouseClamp+7
lsr
sta CUR.Pos+S.POINT.Y+1
2019-01-09 06:58:19 +00:00
lda DCB.GFX+S.DCB.GFX.H
2018-05-16 06:02:57 +00:00
sta MouseClamp+6
ror
sta CUR.Pos+S.POINT.Y
2019-01-09 16:42:20 +00:00
>PUSHW L.MouseClamp
2019-01-08 16:29:26 +00:00
>PUSHBI IOCTL.CONTROL
lda hDevMouse
2019-05-05 17:15:37 +00:00
>SYSCALL2 IOCTL
2019-01-09 06:58:19 +00:00
bcs .9
2018-05-16 06:02:57 +00:00
>LDYA L.CUR.SaveBuf
>STYA CUR.CB+S.CB.DstPtr
lda #CUR.T.ARROW
2019-01-08 16:29:26 +00:00
jsr SetCursor
2019-01-09 16:42:20 +00:00
jsr ShowCursor
2019-01-08 16:29:26 +00:00
clc
2018-05-16 06:02:57 +00:00
.9 rts
*--------------------------------------
MOU.Quit lda hDevMouse
beq .8
2019-01-08 16:29:26 +00:00
pha
>PUSHBI IOCTL.CLOSE
2018-05-16 06:02:57 +00:00
>PUSHWI 0
2019-01-08 16:29:26 +00:00
pla
2019-05-05 17:15:37 +00:00
>SYSCALL2 IOCTL
2018-05-16 06:02:57 +00:00
.8 clc
rts
*--------------------------------------
2019-01-09 16:42:20 +00:00
MOU.ReadMouse lda A2osX.ASCREEN GUI screen active ?
cmp DCB.GFX+S.DCB.GFX.DEVID
bne .9 no, exit....
2018-05-16 06:02:57 +00:00
lda hDevMouse
beq .9
2019-01-08 16:29:26 +00:00
pha
2019-01-09 16:42:20 +00:00
* >PUSHW ZPPtr1
2019-01-08 16:29:26 +00:00
>PUSHBI IOCTL.READ
pla
2019-05-05 17:15:37 +00:00
>SYSCALL2 IOCTL
2019-01-09 16:42:20 +00:00
rts
2018-05-16 06:02:57 +00:00
2019-01-09 16:42:20 +00:00
.9 sec
>RET 2 Discard PTR
2018-05-16 06:02:57 +00:00
*--------------------------------------
MAN
2018-11-17 17:17:13 +00:00
SAVE USR/SRC/LIB/LIBGUI.S.MOU
LOAD USR/SRC/LIB/LIBGUI.S
2018-05-16 06:02:57 +00:00
ASM