A2osX/LIB/LIBGUI.S.MOU.txt

NEW
PREFIX
AUTO 4,1
*--------------------------------------
MOU.Init		>DEBUG
.1				>PUSHBI 0
				>LDYA L.DEVNAME.MOUSE
				>SYSCALL open
				bcc .2
				
				inc DEVNAME.MOUSE+8
				lda DEVNAME.MOUSE+8
				cmp #'8'
				bne .1
				
				clc
				rts			

.2				sta hDevMouse

				lda GC.Screen+S.GC.X2+1
				sta MouseClamp+3
				lsr
				sta CUR.Pos+S.POINT.X+1					
				
				lda GC.Screen+S.GC.X2
				sta MouseClamp+2
				ror
				sta CUR.Pos+S.POINT.X					
				
				lda GC.Screen+S.GC.Y2+1
				sta MouseClamp+7
				lsr
				sta CUR.Pos+S.POINT.Y+1					
				
				lda GC.Screen+S.GC.Y2
				sta MouseClamp+6
				ror
				sta CUR.Pos+S.POINT.Y					

				>PUSHWI L.MouseClamp
				>PUSHBI IOCTL.CONTROL
				lda hDevMouse
				>SYSCALL IOCTL
				
				>LDYA L.CUR.SaveBuf
				>STYA CUR.CB+S.CB.DstPtr
				
				lda #CUR.T.ARROW
				jsr SetCursor
				
				clc
.9				rts
*--------------------------------------
MOU.Quit		lda hDevMouse
				beq .8
				
				pha
				>PUSHBI IOCTL.CLOSE
				>PUSHWI 0
				pla
				>SYSCALL IOCTL

.8				clc
				rts
*--------------------------------------
MOU.Read		>STYA ZPPtr1

				lda hDevMouse
				beq .9
				
				pha
				>PUSHW ZPPtr1
				>PUSHBI IOCTL.READ
				
				pla
				>SYSCALL IOCTL
				bcs .9
		

.8				sec
.9				rts	
*--------------------------------------
MAN
SAVE USR/SRC/LIB/LIBGUI.S.MOU
LOAD USR/SRC/LIB/LIBGUI.S
ASM