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