forked from KolibriOS/kolibrios
102 lines
2.1 KiB
C
102 lines
2.1 KiB
C
#ifndef INCLUDE_KEYBOARD_H
|
|
#define INCLUDE_KEYBOARD_H
|
|
#print "[include <keyboard.h>]\n"
|
|
|
|
//ASCII KEYS
|
|
#define ASCII_KEY_BS 008
|
|
#define ASCII_KEY_TAB 009
|
|
#define ASCII_KEY_ENTER 013
|
|
#define ASCII_KEY_ESC 027
|
|
#define ASCII_KEY_DEL 182
|
|
#define ASCII_KEY_INS 185
|
|
#define ASCII_KEY_SPACE 032
|
|
|
|
#define ASCII_KEY_LEFT 176
|
|
#define ASCII_KEY_RIGHT 179
|
|
#define ASCII_KEY_DOWN 177
|
|
#define ASCII_KEY_UP 178
|
|
#define ASCII_KEY_HOME 180
|
|
#define ASCII_KEY_END 181
|
|
#define ASCII_KEY_PGDN 183
|
|
#define ASCII_KEY_PGUP 184
|
|
|
|
//SCAN CODE KEYS
|
|
#define SCAN_CODE_BS 014
|
|
#define SCAN_CODE_TAB 015
|
|
#define SCAN_CODE_ENTER 028
|
|
#define SCAN_CODE_ESC 001
|
|
#define SCAN_CODE_DEL 083
|
|
#define SCAN_CODE_INS 082
|
|
#define SCAN_CODE_SPACE 057
|
|
|
|
#define SCAN_CODE_LEFT 075
|
|
#define SCAN_CODE_RIGHT 077
|
|
#define SCAN_CODE_DOWN 080
|
|
#define SCAN_CODE_UP 072
|
|
#define SCAN_CODE_HOME 071
|
|
#define SCAN_CODE_END 079
|
|
#define SCAN_CODE_PGDN 081
|
|
#define SCAN_CODE_PGUP 073
|
|
|
|
#define KEY_LSHIFT 00000000001b
|
|
#define KEY_RSHIFT 00000000010b
|
|
#define KEY_LCTRL 00000000100b
|
|
#define KEY_RCTRL 00000001000b
|
|
#define KEY_LALT 00000010000b
|
|
#define KEY_RALT 00000100000b
|
|
#define KEY_CAPSLOCK 00001000000b
|
|
#define KEY_NUMLOCK 00010000000b
|
|
#define KEY_SCROLLLOCK 00100000000b
|
|
#define KEY_LWIN 01000000000b
|
|
#define KEY_RWIN 10000000000b
|
|
|
|
dword calc(EAX) { return EAX; }
|
|
|
|
inline fastcall word GetKey() //+Gluk fix
|
|
{
|
|
$push edx
|
|
GETKEY:
|
|
$mov eax,2
|
|
$int 0x40
|
|
$cmp eax,1
|
|
$jne GETKEYI
|
|
$mov ah,dh
|
|
$jmp GETKEYII //jz?
|
|
GETKEYI:
|
|
$mov dh,ah
|
|
$jmp GETKEY
|
|
GETKEYII:
|
|
$pop edx
|
|
$shr eax,8
|
|
}
|
|
|
|
:unsigned char key_ascii;
|
|
:dword key_scancode, key_modifier, key_editbox;
|
|
:int GetKeys()
|
|
{
|
|
$push edx
|
|
GETKEY:
|
|
$mov eax,2
|
|
$int 0x40
|
|
$cmp eax,1
|
|
$jne GETKEYI
|
|
$mov eax,edx
|
|
$jmp GETKEYII
|
|
GETKEYI:
|
|
$mov edx,eax
|
|
$jmp GETKEY
|
|
GETKEYII:
|
|
$pop edx
|
|
key_editbox = EAX;
|
|
key_ascii = AH;
|
|
$shr eax,16
|
|
key_scancode = AL;
|
|
//get alt/shift/ctrl key status
|
|
$mov eax,66
|
|
$mov ebx,3
|
|
$int 0x40
|
|
key_modifier = EAX;
|
|
EAX = key_editbox;
|
|
}
|
|
|
|
#endif |