Драйвер для мышки для любого разрешения (спасибо Сергею Смирнову). Ни для кого не секрет, старый дрова которые можно найти в интернете рассчитаны на разрешение 256х192. Под ts-config их необходимо допиливать. Допилятор ниже.
driver:
ld a,(lastv); опрашиваем координату X
ld e,a
ld bc,#fbdf
in a,(c)
ld (lastv),a
sub e
ld e,a
add a,a
sbc a,a
ld d,a
ld hl,(mcoordx)
add hl,de
ld (mcoordx),hl
ld a,(lastv2); опрашиваем координату Y
ld e,a
ld bc,#ffdf
in a,(c)
ld (lastv2),a
sub e
ld e,a
add a,a
sbc a,a
ld d,a
ld hl,(mcoordy)
add hl,de
ld (mcoordy),hl
ret
lastv db 0
lastv2 db 0
mcoordx dw 0
mcoordy dw 0
В mcoordx, mcoordy получаем значение на экране от #0 до #ffff, ну и в этих координатах печатаем наш курсор.
Комментарии
Отправить комментарий