A2osX/DRV/MOUSE.DRV.S.txt

390 lines
7.3 KiB
Plaintext
Raw Normal View History

2015-03-17 22:05:33 +00:00
NEW
2018-11-17 17:17:13 +00:00
PREFIX
2017-12-22 21:24:30 +00:00
AUTO 4,1
2015-03-17 22:05:33 +00:00
.LIST OFF
.OP 65C02
.OR $2000
2018-12-18 14:37:07 +00:00
.TF DRV/GUI/MOUSE.DRV
2015-03-17 22:05:33 +00:00
*--------------------------------------
2018-07-23 15:28:42 +00:00
.INB INC/MACROS.I
.INB INC/A2OSX.I
2019-01-10 16:26:58 +00:00
.INB INC/IO.I
2018-10-02 15:52:30 +00:00
.INB INC/MLI.E.I
2018-07-23 15:28:42 +00:00
.INB INC/XY.MOUSE.I
.INB INC/LIBGUI.I
2015-03-17 22:05:33 +00:00
*--------------------------------------
2019-09-07 06:41:17 +00:00
ZPSlotPtr .EQ ZPBIN
2015-03-17 22:05:33 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
* File Header (16 Bytes)
2015-03-17 22:05:33 +00:00
*--------------------------------------
CS.START cld
2015-06-03 18:30:57 +00:00
jmp Dev.Detect cld,jmp abs=DRV
.DA #$61 6502,Level 1 (65c02)
.DA #1 DRV Layout Version 1
.DA 0
.DA CS.END-CS.START Code Length
2018-12-17 16:39:46 +00:00
.DA 0
.DA 0
.DA 0
2015-06-03 18:30:57 +00:00
*--------------------------------------
* Relocation Table
2015-03-17 22:05:33 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
L.MSG.DETECT .DA MSG.DETECT
L.MSG.DETECT.OK .DA MSG.DETECT.OK
L.MSG.DETECT.KO .DA MSG.DETECT.KO
2018-12-18 07:31:32 +00:00
L.DRV.CS.START .DA DRV.CS.START
L.FD.DEV .DA FD.DEV
L.FD.DEV.NAME .DA FD.DEV.NAME
2015-06-03 18:30:57 +00:00
.DA 0 End Of Reloc Table
*--------------------------------------
Dev.Detect >LDYA L.MSG.DETECT
2018-06-21 15:12:10 +00:00
>SYSCALL printf
2015-06-03 18:30:57 +00:00
2018-12-17 16:39:46 +00:00
stz ZPSlotPtr
2015-03-17 22:05:33 +00:00
lda #$C1
2018-12-17 16:39:46 +00:00
.1 sta ZPSlotPtr+1
2015-03-17 22:05:33 +00:00
ldx #DEVSIG.Value-DEVSIG.Offset-1
2015-03-17 22:05:33 +00:00
.2 ldy DEVSIG.Offset,x
2018-12-17 16:39:46 +00:00
lda (ZPSlotPtr),y
2015-03-17 22:05:33 +00:00
cmp DEVSIG.Value,x
bne .3
dex
bpl .2
2018-12-18 07:31:32 +00:00
bra .8
.3 lda ZPSlotPtr+1 no match, try next slot....
inc
cmp #$C8
bne .1
>LDYA L.MSG.DETECT.KO
>SYSCALL printf
.9 lda #MLI.E.NODEV
sec
rts
2015-03-17 22:05:33 +00:00
2018-12-18 07:31:32 +00:00
.8 lda ZPSlotPtr+1
sta GOMOUSE+2
sta GOMOUSE.Cn+1
sta GOMOUSE.JMP+2
2015-03-17 22:05:33 +00:00
and #$0F
sta DEVSLOT0n
2015-03-17 22:05:33 +00:00
ora #$30
2018-12-17 16:39:46 +00:00
sta FD.DEV.NAME+3
2015-03-17 22:05:33 +00:00
asl
asl
asl
asl
sta GOMOUSE.n0+1
2015-03-17 22:05:33 +00:00
2018-12-18 07:31:32 +00:00
>PUSHW L.FD.DEV.NAME
>PUSHBI 2
2015-06-03 18:30:57 +00:00
>LDYA L.MSG.DETECT.OK
2018-06-21 15:12:10 +00:00
>SYSCALL printf
2018-12-17 16:39:46 +00:00
>PUSHWI DRV.END
2019-07-22 06:31:01 +00:00
>PUSHWI DRV.CS.END-DRV.CS.START
2018-12-17 16:39:46 +00:00
>PUSHWI DRV.CS.START
>LDYA L.DRV.CS.START
>SYSCALL InsDrv
bcs .9
>STYA FD.DEV+S.FD.DEV.DRVPTR
>PUSHW L.FD.DEV.NAME
>LDYA L.FD.DEV
>SYSCALL MKDEV
2015-06-03 18:30:57 +00:00
rts
*--------------------------------------
CS.END
MSG.DETECT .AZ "Apple Mouse Driver.\r\n"
MSG.DETECT.OK .AZ "Mouse Installed As Device : %s\r\n"
MSG.DETECT.KO .AZ "No Mouse Found.\r\n"
2016-06-07 06:10:18 +00:00
DEVSIG.Offset .HS 05070B0CFB
DEVSIG.Value .HS 38180120D6
2015-06-03 18:30:57 +00:00
*--------------------------------------
2018-12-17 16:39:46 +00:00
FD.DEV .DA #S.FD.T.CDEV
.DA #0 HANDLER
.DA #0 BUSID
.DA #0 DEVID
.DA 0 BUSPTR
.BS 2 DRVPTR
.DA 0 DCBPTR
.DA 0 BUFPTR
2019-01-08 16:29:26 +00:00
FD.DEV.NAME .AZ "MOUx"
2015-06-03 18:30:57 +00:00
*--------------------------------------
* Driver Code
*--------------------------------------
2018-12-17 16:39:46 +00:00
ZPIOCTL .EQ ZPDRV
2018-12-20 16:23:43 +00:00
ZPBufPtr .EQ ZPDRV+2
2018-12-17 16:39:46 +00:00
*--------------------------------------
2018-12-18 07:31:32 +00:00
DRV.CS.START cld
jmp (.1,x)
.1 .DA STATUS
2018-12-20 16:23:43 +00:00
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA A2osX.BADCALL
.DA CONTROL
.DA A2osX.BADCALL
.DA OPEN
2015-06-03 18:30:57 +00:00
.DA CLOSE
2018-12-20 16:23:43 +00:00
.DA READ
.DA A2osX.BADCALL
2015-06-03 18:30:57 +00:00
.DA 0 end or relocation
*--------------------------------------
2019-01-08 16:29:26 +00:00
STATUS >STYA ZPIOCTL
ldy #S.IOCTL.BUFPTR
lda (ZPIOCTL),y
sta ZPBufPtr
iny
lda (ZPIOCTL),y
sta ZPBufPtr+1
2018-12-18 16:46:31 +00:00
ldy #S.IOCTL.STATCODE
lda (ZPIOCTL),y
beq .1
cmp #S.IOCTL.STATCODE.GETDIB
bne STATUS.DCB
2018-12-20 16:23:43 +00:00
ldy #S.DIB-1
2018-12-18 16:46:31 +00:00
.HS 2C bit abs
2018-12-20 16:23:43 +00:00
.1 ldy #3
2018-12-18 16:46:31 +00:00
2018-12-20 16:23:43 +00:00
.2 lda DIB,y
sta (ZPBufPtr),y
dey
2018-12-18 16:46:31 +00:00
bpl .2
clc
rts
2018-12-18 16:46:31 +00:00
STATUS.DCB
STATUS.9 lda #MLI.E.BADCTL
sec
2018-12-19 07:12:58 +00:00
rts
*--------------------------------------
2019-01-08 16:29:26 +00:00
CONTROL >STYA ZPBufPtr NON STANDARD
2018-12-20 16:23:43 +00:00
php
sei
ldy #0
ldx #0 set X
jsr SETCLAMP
ldy #4
ldx #1 set Y
jsr SETCLAMP
ldy #HOMEMOUSE
jsr GOMOUSE
plp
clc
rts
*--------------------------------------
OPEN php
sei
ldx DEVSLOT0n
lda MOUSEMODx,x keep if VBLInt already activated by kernel
and #MOUSEMODx.INTVBL
ora #MOUSEMODx.ACTIVE Enable, Polling mode
ldy #SETMOUSE
jsr GOMOUSE
ldy #INITMOUSE Reset
jsr GOMOUSE
2019-01-09 16:42:20 +00:00
lda #S.DIB.S.OPENED
tsb DIB+S.DIB.S
2018-12-20 16:23:43 +00:00
plp
clc
rts
*--------------------------------------
CLOSE php
sei
2019-01-09 16:42:20 +00:00
2018-12-20 16:23:43 +00:00
ldx DEVSLOT0n
lda MOUSEMODx,x keep if VBLInt already activated by kernel
and #MOUSEMODx.INTVBL Disable ALL but VBLInt if previously active
ldy #SETMOUSE
jsr GOMOUSE
2019-01-09 16:42:20 +00:00
lda #S.DIB.S.OPENED
trb DIB+S.DIB.S
2018-12-20 16:23:43 +00:00
plp
2019-01-09 16:42:20 +00:00
2018-12-20 16:23:43 +00:00
clc
rts
*--------------------------------------
2019-01-08 16:29:26 +00:00
READ >STYA ZPBufPtr NON STANDARD
2018-12-20 16:23:43 +00:00
stz READ.S+1 Reset Flags
php
sei
2019-01-10 16:26:58 +00:00
sta SET80STORE
sta CLRPAGE2
* ldy #READMOUSE DONE BY IRQ MANAGER
* jsr GOMOUSE
ldx DEVSLOT0n
lda MOUSESTSx,x
and #MOUSESTSx.MOVED
beq .1
ldy #S.MOUSE.X1
lda MOUSEXLOx,x
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
iny
lda MOUSEXHIx,x
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
iny
lda MOUSEYLOx,x
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
iny
lda MOUSEYHIx,x
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
lda #S.MOUSE.S.MOVE
2018-12-20 16:23:43 +00:00
tsb READ.S+1
stz bDblClick Reset DblClick flag
.1 lda MOUSESTSx,x
and #MOUSESTSx.DOWN+MOUSESTSx.LDOWN
beq .8 no button state change:up & previously up
cmp #MOUSESTSx.DOWN+MOUSESTSx.LDOWN
beq .8 no button state change:down & previously down
asl if CS, down & previously up
bcc .2
lda #S.MOUSE.S.DOWN
2018-12-20 16:23:43 +00:00
tsb READ.S+1 button has been pressed, start drag...
lda MOUSEXLOx,x
sta SrcDrag
lda MOUSEXHIx,x
sta SrcDrag+1
lda MOUSEYLOx,x
sta SrcDrag+2
lda MOUSEYHIx,x
sta SrcDrag+3
bra .8
2018-12-20 16:23:43 +00:00
.2 lda READ.S+1
pha save move state
ora #S.MOUSE.S.UP
2018-12-20 16:23:43 +00:00
sta READ.S+1
pla get back move state
bne .4 no move...click!
lda #S.MOUSE.S.CLK
bit bDblClick
bpl .3
lda #S.MOUSE.S.DCLK
ldy #1
sty bDblClick
.3 dec bDblClick
2018-12-20 16:23:43 +00:00
tsb READ.S+1
bra .8
2019-01-08 16:29:26 +00:00
.4 lda #S.MOUSE.S.DRAGSTART
2018-12-20 16:23:43 +00:00
tsb READ.S+1
ldy #S.MOUSE.X2+3
.5 lda SrcDrag-S.MOUSE.X2,y
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
dey
bpl .5
.8 plp
2018-12-20 16:23:43 +00:00
READ.S lda #$ff SELF MODIFIED
beq .9
ldy #S.MOUSE.S
2018-12-20 16:23:43 +00:00
sta (ZPBufPtr),y
clc
rts
.9 lda #MLI.E.EOF
sec
rts
2015-03-17 22:05:33 +00:00
*--------------------------------------
2018-12-20 16:23:43 +00:00
* PRIVATE
*--------------------------------------
2018-12-20 16:23:43 +00:00
SETCLAMP lda (ZPBufPtr),y
sta LOCLAMPLO
iny
2018-12-20 16:23:43 +00:00
lda (ZPBufPtr),y
sta LOCLAMPHI
iny
2018-12-20 16:23:43 +00:00
lda (ZPBufPtr),y
sta HICLAMPLO
iny
2018-12-20 16:23:43 +00:00
lda (ZPBufPtr),y
sta HICLAMPHI
txa
ldy #CLAMPMOUSE
*--------------------------------------
GOMOUSE ldx $FF00,y SELF MODIFIED
stx GOMOUSE.JMP+1
GOMOUSE.Cn ldx #$ff SELF MODIFIED
GOMOUSE.n0 ldy #$ff SELF MODIFIED
GOMOUSE.JMP jmp $FFFF SELF MODIFIED
2015-03-17 22:05:33 +00:00
*--------------------------------------
2015-06-03 18:30:57 +00:00
DRV.CS.END
DEVSLOT0n .BS 1
bDblClick .BS 1
SrcDrag .BS 4
2015-03-17 22:05:33 +00:00
*--------------------------------------
2018-12-18 16:46:31 +00:00
DIB .DA #0
.DA #0,#0,#0
>PSTR "Apple II Mouse"
.BS 2
2018-07-19 15:33:55 +00:00
.DA #S.DIB.T.XY
.DA #0
2018-12-18 16:46:31 +00:00
.DA K.VER
*--------------------------------------
2018-12-18 07:31:32 +00:00
DRV.END
2015-03-17 22:05:33 +00:00
MAN
2018-12-17 16:39:46 +00:00
SAVE USR/SRC/DRV/MOUSE.DRV.S
2015-03-17 22:05:33 +00:00
ASM