В программе Camerton юзается вот такой драйвер:
MOUSE
LD BC,#FADF
IN A,(c)
CPL
AND 7
LD B,A
LD A,(MBUTT)
CP B
LD A,1
JR NZ,MSTRT
XOR A
MSTRT
LD (MSTATUS),A
LD A,B
LD (MBUTT),A
LD HL,(MCOOR)
LD BC,#FBDF
IN A,(C)
MOUS0
LD D,0
LD (MOUS0+1),A
SUB D
LD D,A
LD A,(MSENS)
LD B,A
OR A
JR Z,$+6
SRA D
DJNZ $-2
LD BC,(XMNMX)
LD A,D
RLA
JR NC,MOUS1
LD A,L
ADD A,D
JR NC,$+5
CP B
JR NC,MOUS2
LD A,B
JR MOUS2
MOUS1
LD A,L
ADD A,D
JR C,$+5
CP C
JR C,MOUS2
LD A,C
MOUS2
LD L,A,BC,#FFDF
IN A,(C)
MOUS3
LD D,0,(MOUS3+1),A
SUB D
NEG
LD D,A
LD A,(MSENS)
LD B,A
OR A
JR Z,$+6
SRA D
DJNZ $-2
LD A,D
LD BC,(YMNMX)
RLA
JR NC,MOUS4
LD A,H
ADD A,D
JR NC,$+5
CP B
JR NC,MOUS5
LD A,B
JR MOUS5
MOUS4
LD A,H
ADD A,D
JR C,$+5
CP C
JR C,MOUS5
LD A,C
MOUS5
LD H,A
LD BC,(MCOOR)
LD (MCOOR),HL
OR A
SBC HL,BC
RET Z
LD A,(MSTATUS)
OR 2
LD (MSTATUS),A
RET
MINIT
LD BC,#FADF
LD DE,#F000
MINI1
IN A,(C)
CPL
AND 7
OR E
LD E,A
DEC D
JR NZ,MINI1
LD A,E
OR A
JR Z,MINI2
LD A,201
LD (MOUSE),A
RET
MINI2
CALL MOUSE
XOR A
LD (MBUTT),A
LD HL,#6080
LD (MCOOR),HL
LD A,1
LD (MOUSE),A
MSTATUS DB 0; %01-изм.бат. %10-изм коор. (признак изменения состояния)
MCOOR DW #6080; Координаты мыши
MBUTT DB 0; Кнопочки 00000MRL
MSENS DB 1; Чувствительность 0-max
XMNMX DW #00FE; X-ограничитель
YMNMX DW #00BD; Y-ограничитель
Можно регулировать чувствительность крыса...




Ответить с цитированием