|
ZX Pilot
#39
11 октября 2000 |
|
Coding - драйвер мышки Kempston mouse.
C O D I N G
──────────────────────────────────────────
(C) SERGIUS PUZZLER
Снова о драйвере kempston mouse.
Уж сколько раз твердили миру кодеров,
но они ни в какую не желают верить в то,
что существуют контролеры с двумя способа-
ми подключения кнопок, и не учитывают при
написании софта оба варианта. Разве это
так трудно? Выходит, что да. Наверное, бу-
дет легче уговорить всех владельцев мышек
поставить переключатель, меняющий левую
кнопку с правой. Но вот беда, не хватит на
всех переключателей. Так где же выход? А
он давно известен, но почему-то многие его
до сих пор игнорируют.
Оказывается, и эксперименты это подтве-
рждают, можно написать программу, которая
очень хитрым способом умудряется опреде-
лить и при этом не ошибиться, какая кнопка
вашей мыши подключена к 0-му биту контро-
лера kempston mouse. Но трудность в том,
что эта прога занимает около 16к, и време-
ни на ee инсталяцию уходит почти столько
же, сколько требуется для установки Win-
dows. :(
Но результат стоит того, чтобы подож-
дать часик-другой. :( Первая нажатая кноп-
ка мыши после успешной инсталяции, а надо
заметить, это случается довольно таки час-
то по сравнению с Windows, будет отвечать
за функцию Fire.
Ладно, последние два абзаца были непри-
крытой шуткой. Но в каждой шутке есть доля
правды. А отыскать придется ее вам самос-
тоятельно. :]
Если вам лень писать новый или изменять
свой старый драйвер, то, ради бога, ис-
пользуйте уже написанные, тем паче, что
они уже давно ходят по стране, проверенны
и используются более доброжелательными
программистами.
Мы уже публиковали подобную прогу Анд-
рея Рачкина, но в ней была маленькая недо-
работка, которую и недоделкой-то не назо-
вешь. А именно - отсутствие возможности
изменения ограничения минимальных коорди-
нат окна (во, сказанул-то), в пределах ко-
торого возможно перемещение стрелки на эк-
ране (с максимальными там все впорядке).
Я устранил этот недостаток и добавил фраг-
менты кода, превратившие этот драйвер из
простого в турбо, так ставший модным в по-
следнее время.
Если такая возможность вам не требует-
ся, то просто удалите из листинга строки
помеченные в поле комментариев знаком '*'
или измените старое значение RANGE на #FF.
Другие могут на свой вкус настроить следу-
ющие параметры драйвера:
- RANGE - максимальное одноинтовое сме-
щение мыши, в пределах которого эффект
"турбо" не срабатывает;
- ACCEL - смещение, добавляемое к ре-
альному, при превышении параметра RAN-
GE, для более быстрого перемещения
стрелки по экрану.
Будем считать, что остальные параметры
в пояснениях не нуждаются. А чтобы вам не
было скучно, предлагаю самим разобраться,
как опрашивать ячейки драйвера, хранящие
текущие значения кнопок мыши, поверте, это
чертовски сложно. :)
Только хочу обратить ваше внимание на
"переменную" DIRECT, биты которой соответ-
ствуют битам порта kempston joystick (#1F)
и interface II (#EFFE, sinclair joystick
right). Это на тот случай, если вам пона-
добится узнать, в какую сторону побежала
мышь, чтобы потом легче было ее найти. :)
Вместо NOP можно поставить команду RET,
тогда CALL M_BUTT будет работать только
с кнопками, а CALL M_MOVE - только с коор-
динатами мыши, такое разделение бывает по-
лезным.
------------------------------------------
; Kempstone Mouse Turbo Driver With Button
; Autoconfig
; (C) Dictator
; (I) Sergius Puzzler
MIN_X EQU 0
MAX_X EQU #B8
MIN_Y EQU 0
MAX_Y EQU #F8
RANGE EQU 8 ;*
ACCEL EQU #10 ;*
MOUSE
M_BUTT
JR INI_KMD
BUTTON DB 0 ;fire button
DB 0 ;cansel ~
DB 0 ;middle ~
DIRECT
DB 0 ;76543210 bits
; MCLRDUF directs
A_COOR DW 0 ;arrow coord
M_PORT DW 0 ;mouse coord
NO_DEF AND 3 ;fire not def
JR Z,NO_PUSH ;not press
CP 1
JR Z,PUSH_ON
XOR A
LD (BIT_1),A
INC A
LD (BIT_0),A
PUSH_ON
LD HL,0
LD (BLANK),HL
POP IX
INI_KMD
PUSH IX
LD HL,BUTTON
PUSH HL
POP IX
XOR A
DUP 3
LD (HL),A ;clearing
INC HL ;of direct buffer
EDUP
LD (HL),A
LD BC,#FADF ;button control
IN A,(C) ;port of buttond
CPL
BLANK
JR NO_DEF ;until not def
RRA
BIT_0 EQU $+2
RL (IX+0)
RRA
BIT_1 EQU $+2
RL (IX+1)
RRA
RL (IX+2) ;BIT_2
NO_PUSH
POP IX
NOP
M_MOVE
LD HL,(A_COOR) ;last a_coord
LD DE,(M_PORT) ;last m_coord
LD BC,#FBDF
IN A,(C) ;port X (0-#FF)
LD (M_PORT),A
SUB E
JR Z,READ_Y ;no move
JP P,MOVE_RT
CP -RANGE ;*
JR NC,TURB_LT ;*
ADD A,-ACCEL ;*
TURB_LT ;*
SET 4,(IX+3) ;move left
ADD A,L
JR NC,SET_MIN_X
CP MIN_X ;minimum X-coord
JR NC,NO_SET_X
SET_MIN_X
LD A,MIN_X ;minimum X-coord
JR NO_SET_X
MOVE_RT
CP RANGE ;*
JR C,TURB_RT ;*
ADD A,ACCEL ;*
TURB_RT ;*
SET 3,(IX+3) ;move right
ADD A,L
JR C,SET_MAX_X
CP MAX_X ;maximum X-coord
JR C,NO_SET_X
SET_MAX_X
LD A,MAX_X ;maximum X-coord
NO_SET_X
LD L,A
READ_Y
LD B,#FF
IN A,(C) ;port Y (0-#FF)
LD (M_PORT+1),A
SUB D
JR Z,ALL_READ ;no move
NEG
JP P,MOVE_DN
CP -RANGE ;*
JR NC,TURB_UP ;*
ADD A,-ACCEL ;*
TURB_UP ;*
SET 1,(IX+3) ;move up
ADD A,H
JR NC,SET_MIN_Y
CP MIN_Y ;minimum Y-coord
JR NC,NO_SET_Y
SET_MIN_Y
LD A,MIN_Y ;minimum Y-coord
JR NO_SET_Y
MOVE_DN
CP RANGE ;*
JR C,TURB_DN ;*
ADD A,ACCEL ;*
TURB_DN ;*
SET 2,(IX+3) ;move down
ADD A,H
JR C,SET_MAX_Y
CP MAX_Y ;maximum Y-coord
JR C,NO_SET_Y
SET_MAX_Y
LD A,MAX_Y ;maximum Y-coord
NO_SET_Y
LD H,A
ALL_READ
LD (A_COOR),HL ;new a_coord
RET
------------------------------------------
That's all.
Другие статьи номера:
Похожие статьи:
В этот день... 25 апреля