mirror of
https://github.com/A2osX/A2osX.git
synced 2024-11-04 03:05:43 +00:00
49 lines
683 B
Plaintext
49 lines
683 B
Plaintext
NEW
|
||
AUTO 3,1
|
||
*--------------------------------------
|
||
EVT.GetMsg >PULLW ZPPtr1
|
||
|
||
lda A2osX.ASCREEN GUI screen active ?
|
||
cmp DCB.GFX+S.DCB.GFX.DEVID
|
||
bne .9 no, exit....
|
||
|
||
* sec
|
||
|
||
lda hDevMouse
|
||
beq .2
|
||
|
||
>PUSHA
|
||
>PUSHBI IOCTL.READ
|
||
>PUSHW L.MouseData
|
||
>SYSCALL2 IOCTL
|
||
bcs .2
|
||
|
||
ldy #S.MOUSE-1
|
||
|
||
.1 lda MouseData,y
|
||
sta (ZPPtr1),y
|
||
dey
|
||
bpl .1
|
||
|
||
* clc
|
||
|
||
.2 lda KBD
|
||
bmi .3
|
||
|
||
rts
|
||
|
||
.3 sta KBDSTROBE
|
||
and #$7F
|
||
|
||
|
||
.8 clc
|
||
rts
|
||
|
||
.9 sec
|
||
rts
|
||
*--------------------------------------
|
||
MAN
|
||
SAVE usr/src/lib/libgui.s.evt
|
||
LOAD usr/src/lib/libgui.s
|
||
ASM
|