2018-05-22 06:01:05 +00:00
|
|
|
|
NEW
|
2019-07-30 08:57:25 +00:00
|
|
|
|
AUTO 3,1
|
2018-05-22 06:01:05 +00:00
|
|
|
|
*--------------------------------------
|
2020-10-27 16:33:10 +00:00
|
|
|
|
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
|
2018-05-22 06:01:05 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
|
MAN
|
2020-06-30 15:32:23 +00:00
|
|
|
|
SAVE usr/src/lib/libgui.s.evt
|
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
2018-05-22 06:01:05 +00:00
|
|
|
|
ASM
|
