2018-05-16 06:02:57 +00:00
|
|
|
|
NEW
|
2019-07-30 08:57:25 +00:00
|
|
|
|
AUTO 3,1
|
2018-05-16 06:02:57 +00:00
|
|
|
|
*--------------------------------------
|
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
|
2020-09-05 13:38:04 +00:00
|
|
|
|
|
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
|
2020-09-05 13:38:04 +00:00
|
|
|
|
|
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
|
2020-09-05 13:38:04 +00:00
|
|
|
|
|
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
|
2019-10-03 06:25:27 +00:00
|
|
|
|
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
|
2019-10-03 06:25:27 +00:00
|
|
|
|
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
|
2019-10-03 06:25:27 +00:00
|
|
|
|
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
|
2019-10-03 06:25:27 +00:00
|
|
|
|
sta CUR.Pos+S.POINT.Y
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
|
|
|
|
>PUSHB hDevMouse
|
2019-01-08 16:29:26 +00:00
|
|
|
|
>PUSHBI IOCTL.CONTROL
|
2020-09-02 15:47:23 +00:00
|
|
|
|
>PUSHW L.MouseClamp
|
2019-05-05 17:15:37 +00:00
|
|
|
|
>SYSCALL2 IOCTL
|
2019-01-09 06:58:19 +00:00
|
|
|
|
bcs .9
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
2018-05-16 06:02:57 +00:00
|
|
|
|
>LDYA L.CUR.SaveBuf
|
2020-10-06 06:27:35 +00:00
|
|
|
|
>STYA CB.PTR+S.CB.DstPtr
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
2020-09-03 15:19:25 +00:00
|
|
|
|
* clc
|
2018-05-16 06:02:57 +00:00
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
MOU.Quit lda hDevMouse
|
|
|
|
|
beq .8
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
|
|
|
|
>PUSHA
|
2019-01-08 16:29:26 +00:00
|
|
|
|
>PUSHBI IOCTL.CLOSE
|
2019-06-07 15:02:51 +00:00
|
|
|
|
>PUSHWZ
|
2019-05-05 17:15:37 +00:00
|
|
|
|
>SYSCALL2 IOCTL
|
2018-05-16 06:02:57 +00:00
|
|
|
|
|
|
|
|
|
.8 clc
|
|
|
|
|
rts
|
|
|
|
|
*--------------------------------------
|
2020-10-06 06:27:35 +00:00
|
|
|
|
MOU.ReadMouse >PULLW ZPPtr1
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
2020-10-06 06:27:35 +00:00
|
|
|
|
lda A2osX.ASCREEN GUI screen active ?
|
|
|
|
|
cmp DCB.GFX+S.DCB.GFX.DEVID
|
2019-01-09 16:42:20 +00:00
|
|
|
|
bne .9 no, exit....
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
2020-10-06 06:27:35 +00:00
|
|
|
|
lda hDevMouse
|
2018-05-16 06:02:57 +00:00
|
|
|
|
beq .9
|
2020-09-02 15:47:23 +00:00
|
|
|
|
|
|
|
|
|
>PUSHA
|
2019-01-08 16:29:26 +00:00
|
|
|
|
>PUSHBI IOCTL.READ
|
2020-10-06 06:27:35 +00:00
|
|
|
|
>PUSHW ZPPtr1
|
2019-05-05 17:15:37 +00:00
|
|
|
|
>SYSCALL2 IOCTL
|
2020-10-06 06:27:35 +00:00
|
|
|
|
bcs .99
|
|
|
|
|
|
|
|
|
|
ldy #S.MOUSE.S
|
|
|
|
|
lda (ZPPtr1),y
|
|
|
|
|
bit #S.MOUSE.S.MOVE
|
|
|
|
|
beq .8
|
|
|
|
|
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y1
|
|
|
|
|
|
|
|
|
|
ldy #S.MOUSE.Y1
|
|
|
|
|
cmp (ZPPtr1),y
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y1+1
|
|
|
|
|
iny
|
|
|
|
|
sbc (ZPPtr1),y
|
|
|
|
|
bcc .8
|
|
|
|
|
|
|
|
|
|
jmp SYSBAR.Enter
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.8 clc
|
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
|
2020-10-06 06:27:35 +00:00
|
|
|
|
.99 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
SYSBAR.Show jsr GetCBBuf
|
|
|
|
|
bcs .9
|
|
|
|
|
|
|
|
|
|
lda #S.CB.CMD.FILLRECT
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #S.CB.OP.SET
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #S.CB.M.MONO
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda PREFS.SYSBARCOLOR
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #0 S.OBJ.X1
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y1
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y1+1
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda WND.SysBar.A2osX.X2
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
lda WND.SysBar.A2osX.X2+1
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y2
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
lda WND.SysBar+S.OBJ.Y2+1
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
lda #0
|
|
|
|
|
jsr PutA2CBBuf
|
|
|
|
|
|
|
|
|
|
>LDYA L.WND.SysBar
|
|
|
|
|
jsr DrawCBPtrToYA
|
|
|
|
|
|
|
|
|
|
lda hCBBuf
|
|
|
|
|
>SYSCALL FreeMem
|
|
|
|
|
|
|
|
|
|
* clc
|
|
|
|
|
.9 rts
|
|
|
|
|
*--------------------------------------
|
|
|
|
|
SYSBAR.Enter clc
|
2020-09-02 15:47:23 +00:00
|
|
|
|
rts
|
2018-05-16 06:02:57 +00:00
|
|
|
|
*--------------------------------------
|
|
|
|
|
MAN
|
2020-06-30 15:32:23 +00:00
|
|
|
|
SAVE usr/src/lib/libgui.s.mou
|
|
|
|
|
LOAD usr/src/lib/libgui.s
|
2018-05-16 06:02:57 +00:00
|
|
|
|
ASM
|