Keyboard reading in oric_hw.pas

[DJChloe]

if you press the "a" key on a french keyboard, the key is never treated in the oric emulator.
event.arcade is triggered to true

Solved removing the "else" in eventos_oric procedure :

procedure eventos_oric;
begin
if event.arcade then begin
if arcade_input.up[0] then key_row[4]:=(key_row[4] and $f7) else key_row[4]:=(key_row[4] or 8);
if arcade_input.down[0] then key_row[4]:=(key_row[4] and $bf) else key_row[4]:=(key_row[4] or $40);
if arcade_input.left[0] then key_row[4]:=(key_row[4] and $df) else key_row[4]:=(key_row[4] or $20);
if arcade_input.right[0] then key_row[4]:=(key_row[4] and $7f) else key_row[4]:=(key_row[4] or $80);
end; //else removed here
if event.keyboard then
begin
//Row 0
if keyboard[KEYBOARD_7] then key_row[0]:=(key_row[0] and $fe) else key_row[0]:=(key_row[0] or 1);

thk you for your nice emulator.

[leniad]

Hi DJChloe!
Thanks for your contribution, but I think the issue is more complicated than this!
I'm pretty sure that you have the A key assigned to an arcade function...
You can test this issue with other drivers, for example, Amstrad or Spectrum. If the A key is assigned to arcade, it doesn't seem to do anything.
That's the point—if I change the code the way you did, sometimes you get double events on the keyboard. But if the source remains as it was before, when the key is assigned to arcade, it does not work as a normal key...
Maybe if I change the read order, it works better... I need to test this again!

Thank you so much!