scummvm/backends/platform/atari/atari_ikbd.S
Miro Kropacek 9152c3dc4e BACKENDS: ATARI: Buffer also mouse buttons state
Now double-click works also on really slow hardware. And Hatari.

Also, partially revert commit 01a2d2ed because events can't be passed
to the (multitasking) OS. So basically let's hope that it works fine now
even without handling IKBD overruns. I'm not able to replicate the issue
with Hatari + FF + slow UI + mouse movement anymore.
2024-02-24 06:21:43 +01:00

121 lines
2.8 KiB
ArmAsm

/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software: you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*
*/
#include "symbols.h"
.global SYM(atari_kbdvec)
.global SYM(atari_mousevec)
.global SYM(atari_old_kbdvec)
.global SYM(atari_old_mousevec)
.extern SYM(g_atari_ikbd_mousebuttons)
.extern SYM(g_atari_ikbd_mousebuttons_mask)
.extern SYM(g_atari_ikbd_mousebuttons_head)
.extern SYM(g_atari_ikbd_mouse_delta_x)
.extern SYM(g_atari_ikbd_mouse_delta_y)
.extern SYM(g_atari_ikbd_scancodes)
.extern SYM(g_atari_ikbd_scancodes_mask)
.extern SYM(g_atari_ikbd_scancodes_head)
.text
.ascii "XBRA"
.ascii "SCUM"
SYM(atari_old_kbdvec):
dc.l 0
SYM(atari_kbdvec):
lea pressed_keys,a0
clr.l d1
move.b d0,d1
bpl.b key_pressed | bit 7 cleared
key_released:
and.b #0x7f,d1
tst.b (a0,d1.l) | pressed before?
bne.b key_released_ok
| if we get a sudden release key event,
| let the original handler process it
move.l (atari_old_kbdvec,pc),a0
jmp (a0)
key_released_ok:
clr.b (a0,d1.l) | mark as released
bra.b kbdvec_process
key_pressed:
addq.b #1,(a0,d1.l) | mark as pressed
kbdvec_process:
lea SYM(g_atari_ikbd_scancodes),a0
move.w SYM(g_atari_ikbd_scancodes_head),d1
| g_atari_ikbd_scancodes[g_atari_ikbd_scancodes_head] = scancode
move.b d0,(0.b,a0,d1.w)
addq.l #1,d1
and.w SYM(g_atari_ikbd_scancodes_mask),d1
move.w d1,SYM(g_atari_ikbd_scancodes_head)
rts
.ascii "XBRA"
.ascii "SCUM"
SYM(atari_old_mousevec):
dc.l 0
SYM(atari_mousevec):
move.b (a0)+,d0
cmp.b old_buttons,d0
beq.b no_buttons
move.b d0,old_buttons
lea SYM(g_atari_ikbd_mousebuttons),a1
move.w SYM(g_atari_ikbd_mousebuttons_head),d1
| g_atari_ikbd_mousebuttons[g_atari_ikbd_mousebuttons_head] = buttons
move.b d0,(0.b,a1,d1.w)
addq.w #1,d1
and.w SYM(g_atari_ikbd_mousebuttons_mask),d1
move.w d1,SYM(g_atari_ikbd_mousebuttons_head)
no_buttons:
move.b (a0)+,d0
ext.w d0
add.w d0,SYM(g_atari_ikbd_mouse_delta_x)
move.b (a0)+,d0
ext.w d0
add.w d0,SYM(g_atari_ikbd_mouse_delta_y)
rts
.bss
pressed_keys:
ds.b 128
old_buttons:
ds.b 1