Subversion Repositories Kolibri OS

Rev

Rev 7521 | Rev 7742 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7521 Rev 7628
Line 56... Line 56...
56 
#define SCAN_CODE_F9    067
 56 
#define SCAN_CODE_F9    067
57 
#define SCAN_CODE_F10   068
 57 
#define SCAN_CODE_F10   068
58 
#define SCAN_CODE_F11   087
 58 
#define SCAN_CODE_F11   087
59 
#define SCAN_CODE_F12   088
 59 
#define SCAN_CODE_F12   088
Line -... Line 60...
- 
 
 60 
 
- 
 
 61 
#define SCAN_CODE_1     002
- 
 
 62 
#define SCAN_CODE_2     003
- 
 
 63 
#define SCAN_CODE_3     004
- 
 
 64 
#define SCAN_CODE_4     005
- 
 
 65 
#define SCAN_CODE_5     006
- 
 
 66 
#define SCAN_CODE_6     007
- 
 
 67 
#define SCAN_CODE_7     008
- 
 
 68 
#define SCAN_CODE_8     009
- 
 
 69 
#define SCAN_CODE_9     010
- 
 
 70 
#define SCAN_CODE_10    011
60 
 
 71 
 
61 
#define SCAN_CODE_KEY_A 030
 72 
#define SCAN_CODE_KEY_A 030
62 
#define SCAN_CODE_KEY_B 048
 73 
#define SCAN_CODE_KEY_B 048
63 
#define SCAN_CODE_KEY_C 046
 74 
#define SCAN_CODE_KEY_C 046
64 
#define SCAN_CODE_KEY_D 032
 75 
#define SCAN_CODE_KEY_D 032
Line 92... Line 103...
92 
#define KEY_NUMLOCK    00010000000b
 103 
#define KEY_NUMLOCK    00010000000b
93 
#define KEY_SCROLLLOCK 00100000000b
 104 
#define KEY_SCROLLLOCK 00100000000b
94 
#define KEY_LWIN       01000000000b
 105 
#define KEY_LWIN       01000000000b
95 
#define KEY_RWIN       10000000000b
 106 
#define KEY_RWIN       10000000000b
Line 96... Line -...
96 
 
 - 
 
97 
inline fastcall word GetKey()  //+Gluk fix
 - 
 
98 
{
 - 
 
99 
		$push edx
 - 
 
100 
GETKEY:
 - 
 
101 
		$mov  eax,2
 - 
 
102 
		$int  0x40
 - 
 
103 
		$cmp eax,1
 - 
 
104 
		$jne GETKEYI
 - 
 
105 
		$mov ah,dh
 - 
 
106 
		$jmp GETKEYII //jz?
 - 
 
107 
GETKEYI:
 - 
 
108 
		$mov dh,ah
 - 
 
109 
		$jmp GETKEY
 - 
 
110 
GETKEYII:
 - 
 
111 
		$pop edx
 - 
 
112 
		$shr eax,8
 - 
 
113 
}
 - 
 
114 
 
 107 
 
115 
:unsigned char key_ascii;
 108 
:unsigned char key_ascii;
116 
:dword key_scancode, key_modifier, key_editbox;
 109 
:dword key_scancode, key_modifier, key_editbox;
117 
:int GetKeys()
 110 
:int GetKeys()
118 
{
 111 
{