Subversion Repositories Kolibri OS

Rev

Rev 6791 | Rev 7153 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  1. #ifndef INCLUDE_KEYBOARD_H
  2. #define INCLUDE_KEYBOARD_H
  3.  
  4. //ASCII KEYS
  5. #define ASCII_KEY_BS    008
  6. #define ASCII_KEY_TAB   009
  7. #define ASCII_KEY_ENTER 013
  8. #define ASCII_KEY_ESC   027
  9. #define ASCII_KEY_DEL   182
  10. #define ASCII_KEY_INS   185
  11. #define ASCII_KEY_SPACE 032
  12.  
  13. #define ASCII_KEY_LEFT  176
  14. #define ASCII_KEY_RIGHT 179
  15. #define ASCII_KEY_DOWN  177
  16. #define ASCII_KEY_UP    178
  17. #define ASCII_KEY_HOME  180
  18. #define ASCII_KEY_END   181
  19. #define ASCII_KEY_PGDN  183
  20. #define ASCII_KEY_PGUP  184
  21.  
  22. //SCAN CODE KEYS
  23. #define SCAN_CODE_BS    014
  24. #define SCAN_CODE_TAB   015
  25. #define SCAN_CODE_ENTER 028
  26. #define SCAN_CODE_ESC   001
  27. #define SCAN_CODE_DEL   083
  28. #define SCAN_CODE_INS   082
  29. #define SCAN_CODE_SPACE 057
  30.  
  31. #define SCAN_CODE_LEFT  075
  32. #define SCAN_CODE_RIGHT 077
  33. #define SCAN_CODE_DOWN  080
  34. #define SCAN_CODE_UP    072
  35. #define SCAN_CODE_HOME  071
  36. #define SCAN_CODE_END   079
  37. #define SCAN_CODE_PGDN  081
  38. #define SCAN_CODE_PGUP  073
  39.  
  40. #define SCAN_CODE_KEY_C 046
  41. #define SCAN_CODE_KEY_M 050
  42. #define SCAN_CODE_KEY_O 024
  43. #define SCAN_CODE_KEY_P 025
  44.  
  45. #define KEY_LSHIFT     00000000001b
  46. #define KEY_RSHIFT     00000000010b
  47. #define KEY_LCTRL      00000000100b
  48. #define KEY_RCTRL      00000001000b
  49. #define KEY_LALT       00000010000b
  50. #define KEY_RALT       00000100000b
  51. #define KEY_CAPSLOCK   00001000000b
  52. #define KEY_NUMLOCK    00010000000b
  53. #define KEY_SCROLLLOCK 00100000000b
  54. #define KEY_LWIN       01000000000b
  55. #define KEY_RWIN       10000000000b
  56.  
  57. inline fastcall word GetKey()  //+Gluk fix
  58. {
  59.                 $push edx
  60. GETKEY:
  61.                 $mov  eax,2
  62.                 $int  0x40
  63.                 $cmp eax,1
  64.                 $jne GETKEYI
  65.                 $mov ah,dh
  66.                 $jmp GETKEYII //jz?
  67. GETKEYI:
  68.                 $mov dh,ah
  69.                 $jmp GETKEY
  70. GETKEYII:
  71.                 $pop edx
  72.                 $shr eax,8
  73. }
  74.  
  75. :unsigned char key_ascii;
  76. :dword key_scancode, key_modifier, key_editbox;
  77. :int GetKeys()
  78. {
  79.                 $push edx
  80. GETKEY:
  81.                 $mov  eax,2
  82.                 $int  0x40
  83.                 $cmp eax,1
  84.                 $jne GETKEYI
  85.                 $mov eax,edx
  86.                 $jmp GETKEYII
  87. GETKEYI:
  88.                 $mov edx,eax
  89.                 $jmp GETKEY
  90. GETKEYII:
  91.                 $pop edx
  92.         key_editbox = EAX;
  93.         key_ascii = AH;
  94.         $shr  eax,16
  95.         key_scancode = AL;
  96.         //get alt/shift/ctrl key status
  97.         $mov eax,66
  98.         $mov ebx,3
  99.         $int 0x40
  100.         key_modifier = EAX;
  101.         EAX = key_editbox;
  102. }
  103.  
  104. #endif