sdongles/kolibrios
1
0
Fork 0
forked from KolibriOS/kolibrios
Code Pull Requests Activity

Dungeons game: fix keyboard input handling

Browse Source 
git-svn-id: svn://kolibrios.org@5492 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Anton_K 2015-03-01 18:25:37 +00:00
parent b55ad6401a
commit 8c98d2a737
1 changed files with 23 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
programs/games/Dungeons/Dungeons.asm
View File

@ -734,6 +734,21 @@ proc main_loop
endp
; ============================================================================ ;
; ============================================================================ ;
; < eax = key scancode (1 byte) ;
; ============================================================================ ;
macro wait_for_scancode
{
local .wait
.wait:
mcall 2
test al, al
jnz .wait
shr eax, 8
}
; ============================================================================ ;
; < eax = key scancode / 0 - no keys ;
; ============================================================================ ;
@ -750,8 +765,10 @@ proc get_key
cmp eax, 0E1h
jne @f
mcall 2
mcall 2
wait_for_scancode
wait_for_scancode
xor eax, eax
jmp .exit
@ -761,8 +778,9 @@ proc get_key
cmp eax, 0E0h
jne @f
mcall 2
shr eax, 8
wait_for_scancode
mov ecx, eax
or eax, 0E000h
mov ebx, 128
@ -794,6 +812,7 @@ proc get_key
mov [PressedKeys + ebx * 4], edx
.exit:
;DEBUGF DEBUG_FINE, 'get_key: %x\n', eax:4
ret
endp
; ============================================================================ ;