Subversion Repositories Kolibri OS

        xor     al, al

        xor     al, al

        test    ah, 0x80        ; key up?

        test    ah, 0x80        ; key up?

        jnz     @f

        jnz     @f

        inc     al

        and     ah, 0x7f

  @@:

  @@:

        mov     byte[KeyEvent.down], al

        mov     byte[KeyEvent.down], al

  .extended:                    ; extended keys always use regular keymap

  .extended:                    ; extended keys always use regular keymap

        mcall   2

        mcall   2

        shr     eax, 8

        shr     eax, 8

        jz      mainloop

        and     ax, 0x007f

  .no_numlock:

  .no_numlock:

        mov     ax, [keymap+eax*2]

        mov     ax, [keymap+eax*2]

  .key:

  .key:

        test    ax, ax

        test    ax, ax