WebSVN – Kolibri OS – Diff – /kernel/trunk/hid/keyboard.inc


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                              ;;
;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa      ;;
;; Distributed under terms of the GNU General Public License    ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
$Revision: 5363 $
 
 
VKEY_LSHIFT   = 0000000000000001b
VKEY_RSHIFT   = 0000000000000010b
VKEY_LCONTROL = 0000000000000100b
VKEY_RCONTROL = 0000000000001000b
VKEY_LALT     = 0000000000010000b
VKEY_RALT     = 0000000000100000b
VKEY_CAPSLOCK = 0000000001000000b
VKEY_NUMLOCK  = 0000000010000000b
VKEY_SCRLOCK  = 0000000100000000b
VKEY_LWIN     = 0000001000000000b
VKEY_RWIN     = 0000010000000000b
 
VKEY_SHIFT    = 0000000000000011b
VKEY_CONTROL  = 0000000000001100b
VKEY_ALT      = 0000000000110000b
 
uglobal
  ext_code      db 0
 
  keyboard_mode db 0
  keyboard_data db 0
 
  altmouseb     db 0
  ctrl_alt_del  db 0
 
  old_kb_lights db 0
 
align 4
        hotkey_scancodes        rd      256     ; we have 256 scancodes
        hotkey_list             rd      256*4   ; max 256 defined hotkeys
        hotkey_buffer           rd      120*2   ; buffer for 120 hotkeys
endg
 
iglobal
  kb_lights     db 2
  align 4
  kb_state      dd VKEY_NUMLOCK
endg
 
iglobal
align 4
hotkey_tests    dd      hotkey_test0
                dd      hotkey_test1
                dd      hotkey_test2
                dd      hotkey_test3
                dd      hotkey_test4
hotkey_tests_num = 5
endg
;---------------------------------------------------------------------
hotkey_test0:
        test    al, al
        setz    al
        ret
;---------------------------------------------------------------------
hotkey_test1:
        test    al, al
        setnp   al
        ret
;---------------------------------------------------------------------
hotkey_test2:
        cmp     al, 3
        setz    al
        ret
;---------------------------------------------------------------------
hotkey_test3:
        cmp     al, 1
        setz    al
        ret
;---------------------------------------------------------------------
hotkey_test4:
        cmp     al, 2
        setz    al
        ret
;---------------------------------------------------------------------
hotkey_do_test:
        push    eax
        mov     edx, [kb_state]
        shr     edx, cl
        add     cl, cl
        mov     eax, [eax+4]
        shr     eax, cl
        and     eax, 15
        cmp     al, hotkey_tests_num
        jae     .fail
        
        xchg    eax, edx
        and     al, 3
        call    [hotkey_tests + edx*4]
        cmp     al, 1
        pop     eax
        ret
;--------------------------------------
.fail:
        stc
        pop     eax
        ret
;---------------------------------------------------------------------
align 4
set_keyboard_data:
        movzx   eax, word[TASK_COUNT]; top window process
        movzx   eax, word[WIN_POS+eax*2]
        shl     eax, 8
        mov     al, [SLOT_BASE+eax+APPDATA.keyboard_mode]
        mov     [keyboard_mode], al
        
        mov     eax, ecx
        
        push    ebx esi edi ebp
        call    send_scancode
        pop     ebp edi esi ebx
        ret
;---------------------------------------------------------------------
struct KEYBOARD
next           dd      ?
prev           dd      ?
functions      dd      ?
userdata       dd      ?
ends
struct KBDFUNC
strucsize      dd      ?
close          dd      ?
setlights      dd      ?
ends
 
iglobal
keyboards:
        dd      keyboards
        dd      keyboards
endg
uglobal
keyboard_list_mutex     MUTEX
endg
 
register_keyboard:
        push    ebx
        movi    eax, sizeof.KEYBOARD
        call    malloc
        test    eax, eax
        jz      .nothing
        mov     ecx, [esp+4+4]
        mov     [eax+KEYBOARD.functions], ecx
        mov     ecx, [esp+8+4]
        mov     [eax+KEYBOARD.userdata], ecx
        xchg    eax, ebx
        mov     ecx, keyboard_list_mutex
        call    mutex_lock
        mov     ecx, keyboards
        mov     edx, [ecx+KEYBOARD.prev]
        mov     [ebx+KEYBOARD.next], ecx
        mov     [ebx+KEYBOARD.prev], edx
        mov     [edx+KEYBOARD.next], ebx
        mov     [ecx+KEYBOARD.prev], ebx
        mov     ecx, [ebx+KEYBOARD.functions]
        cmp     [ecx+KBDFUNC.strucsize], KBDFUNC.setlights
        jbe     .unlock
        mov     ecx, [ecx+KBDFUNC.setlights]
        test    ecx, ecx
        jz      .unlock
        stdcall ecx, [ebx+KEYBOARD.userdata], dword [kb_lights]
.unlock:
        mov     ecx, keyboard_list_mutex
        call    mutex_unlock
        xchg    eax, ebx
.nothing:
        pop     ebx
        ret     8
 
delete_keyboard:
        push    ebx
        mov     ebx, [esp+4+4]
        mov     ecx, keyboard_list_mutex
        call    mutex_lock
        mov     eax, [ebx+KEYBOARD.next]
        mov     edx, [ebx+KEYBOARD.prev]
        mov     [eax+KEYBOARD.prev], edx
        mov     [edx+KEYBOARD.next], eax
        call    mutex_unlock
        mov     ecx, [ebx+KEYBOARD.functions]
        cmp     [ecx+KBDFUNC.strucsize], KBDFUNC.close
        jbe     .nothing
        mov     ecx, [ecx+KBDFUNC.close]
        test    ecx, ecx
        jz      .nothing
        stdcall ecx, [ebx+KEYBOARD.userdata]
.nothing:
        pop     ebx
        ret     4
;---------------------------------------------------------------------
align 4
irq1:
        movzx   eax, word[TASK_COUNT]; top window process
        movzx   eax, word[WIN_POS+eax*2]
        shl     eax, 8
        mov     al, [SLOT_BASE+eax+APPDATA.keyboard_mode]
        mov     [keyboard_mode], al
        
        in      al, 0x60
;--------------------------------------
send_scancode:
        mov     [keyboard_data], al
; ch = scancode
; cl = ext_code
; bh = 0 - normal key
; bh = 1 - modifier (Shift/Ctrl/Alt)
; bh = 2 - extended code
        mov     ch, al
        cmp     al, 0xE0
        je      @f
        
        cmp     al, 0xE1
        jne     .normal_code
@@:
        mov     bh, 2
        mov     [ext_code], al
        jmp     .writekey
;--------------------------------------
.normal_code:
        mov     cl, 0
        xchg    cl, [ext_code]
        and     al, 0x7F
        mov     bh, 1
;--------------------------------------
@@:
        cmp     al, 0x5B
        jne     @f
        
        cmp     cl, 0xE0
        jne     @f
        
        mov     eax, VKEY_LWIN
        mov     bh, 0
        jmp     .modifier
;--------------------------------------
@@:
        cmp     al, 0x5C
        jne     @f
        
        cmp     cl, 0xE0
        jne     @f
        
        mov     eax, VKEY_RWIN
        mov     bh, 0
        jmp     .modifier
;--------------------------------------
@@:
        cmp     al, 0x2A
        jne     @f
        
        cmp     cl, 0xE0
        je      .writekey
        
        mov     eax, VKEY_LSHIFT
        jmp     .modifier
;--------------------------------------
@@:
        cmp     al, 0x36
        jne     @f
        
        cmp     cl, 0xE0
        je      .writekey
        
        mov     eax, VKEY_RSHIFT
        jmp     .modifier
;--------------------------------------
@@:
        cmp     al, 0x38
        jne     @f
        
        mov     eax, VKEY_LALT
        test    cl, cl
        jz      .modifier
        
        mov     al, VKEY_RALT
        jmp     .modifier
;--------------------------------------
@@:
        cmp     al, 0x1D
        jne     @f
        
        mov     eax, VKEY_LCONTROL
        test    cl, cl
        jz      .modifier
        
        mov     al, VKEY_RCONTROL
        cmp     cl, 0xE0
        jz      .modifier
        
        mov     [ext_code], cl
        jmp     .writekey
;--------------------------------------
@@:
        cmp     al, 0x3A
        jne     @f
        
        mov     bl, 4
        mov     eax, VKEY_CAPSLOCK
        jmp     .no_key.xor
;--------------------------------------
@@:
        cmp     al, 0x45
        jne     @f
        test    cl, cl
        jnz     .writekey
        
        mov     bl, 2
        mov     eax, VKEY_NUMLOCK
        jmp     .no_key.xor
;--------------------------------------
@@:
        cmp     al, 0x46
        jne     @f
        
        mov     bl, 1
        mov     eax, VKEY_SCRLOCK
        jmp     .no_key.xor
;--------------------------------------
@@:
        xor     ebx, ebx
        test    ch, ch
        js      .writekey
        
        movzx   eax, ch          ; plain key
        mov     bl, [keymap+eax]
        mov     edx, [kb_state]
        test    dl, VKEY_CONTROL ; ctrl alt del
        jz      .noctrlaltdel
        
        test    dl, VKEY_ALT
        jz      .noctrlaltdel
        
        cmp     ch, 53h
        jne     .noctrlaltdel
        
        mov     [ctrl_alt_del], 1
        call    wakeup_osloop
.noctrlaltdel:
        test    dl, VKEY_CONTROL ; ctrl on ?
        jz      @f
        
        sub     bl, 0x60
@@:
        test    dl, VKEY_CAPSLOCK        ; caps lock on ?
        jz      .no_caps_lock
        
        test    dl, VKEY_SHIFT   ; shift on ?
        jz      .keymap_shif
        
        jmp     @f
;--------------------------------------
.no_caps_lock:
        test    dl, VKEY_SHIFT   ; shift on ?
        jz      @f
.keymap_shif:   
        mov     bl, [keymap_shift+eax]
@@:
        test    dl, VKEY_ALT     ; alt on ?
        jz      @f
        
        mov     bl, [keymap_alt+eax]
@@:
        jmp     .writekey
;--------------------------------------
.modifier:
        test    ch, ch
        js      .modifier.up
        or      [kb_state], eax
        jmp     .writekey
;--------------------------------------
.modifier.up:
        not     eax
        and     [kb_state], eax
        jmp     .writekey
;--------------------------------------
.no_key.xor:
        mov     bh, 0
        test    ch, ch
        js      .writekey
        
        xor     [kb_state], eax
        xor     [kb_lights], bl
.writekey:
        pushad
; test for system hotkeys
        movzx   eax, ch
        cmp     bh, 1
        ja      .nohotkey
        jb      @f
        
        xor     eax, eax
@@:
        mov     eax, [hotkey_scancodes + eax*4]
.hotkey_loop:
        test    eax, eax
        jz      .nohotkey
        
        mov     cl, 0
        call    hotkey_do_test
        jc      .hotkey_cont
        
        mov     cl, 2
        call    hotkey_do_test
        jc      .hotkey_cont
        
        mov     cl, 4
        call    hotkey_do_test
        jnc     .hotkey_found
.hotkey_cont:
        mov     eax, [eax]
        jmp     .hotkey_loop
;--------------------------------------
.hotkey_found:
        mov     eax, [eax+8]
; put key in buffer for process in slot eax
        mov     edi, hotkey_buffer
@@:
        cmp     dword [edi], 0
        jz      .found_free
        
        add     edi, 8
        cmp     edi, hotkey_buffer+120*8
        jb      @b
; no free space - replace first entry
        mov     edi, hotkey_buffer
.found_free:
        mov     [edi], eax
        movzx   eax, ch
        cmp     bh, 1
        jnz     @f
        
        xor     eax, eax
@@:
        mov     [edi+4], ax
        mov     eax, [kb_state]
        mov     [edi+6], ax
 
        cmp     [PID_lock_input], dword 0
        je      .nohotkey
 
        popad
        jmp     .exit.irq1
;--------------------------------------
.nohotkey:
        popad
 
        cmp     [keyboard_mode], 0; return from keymap
        jne     .scancode
        
        test    bh, bh
        jnz     .exit.irq1
        
        test    bl, bl
        jz      .exit.irq1
 
        cmp     cl, 0xE0        ; extended keycode
        jne     @f
 
        cmp     ch, 53
        jne     .dowrite
        
        mov     bl, '/'
        jmp     .dowrite
@@:
 
        cmp     ch, 55
        jne     @f
        
        mov     bl, '*'
        jmp     .dowrite
@@:
 
        cmp     ch, 74
        jne     @f
        
        mov     bl, '-'
        jmp     .dowrite
@@:
 
        cmp     ch, 78
        jne     @f
        
        mov     bl, '+'
        jmp     .dowrite
@@:
 
        test    [kb_state], VKEY_NUMLOCK
        jz      .dowrite
 
        cmp     ch, 71
        jb      .dowrite
        
        cmp     ch, 83
        ja      .dowrite
        
        movzx   eax, ch
        mov     bl, [numlock_map + eax - 71]
        jmp     .dowrite
;--------------------------------------
.scancode:
        mov     bl, ch
.dowrite:
        movzx   eax, byte[KEY_COUNT]
        cmp     al, 120
        jae     .exit.irq1
        inc     eax
        mov     [KEY_COUNT], al
; store ascii or scancode
        mov     [KEY_COUNT+eax], bl ; actually KEY_BUFF + EAX - 1
; store original scancode
        add     eax, 120+2
        push    ecx
        cmp     [keyboard_mode], 0; return from keymap
        je      @f
 
        xor     ch, ch
@@:
        mov     [KEY_COUNT+eax], ch ; actually KEY_BUFF + EAX - 1
        pop     ecx
        sub     eax, 120+2
.exit.irq1:
        ret
;---------------------------------------------------------------------
set_lights:
        push    ebx esi
        mov     ecx, keyboard_list_mutex
        call    mutex_lock
        mov     esi, keyboards
.loop:
        mov     esi, [esi+KEYBOARD.next]
        cmp     esi, keyboards
        jz      .done
        mov     eax, [esi+KEYBOARD.functions]
        cmp     dword [eax], KBDFUNC.setlights
        jbe     .loop
        mov     eax, [eax+KBDFUNC.setlights]
        test    eax, eax
        jz      .loop
        stdcall eax, [esi+KEYBOARD.userdata], dword [kb_lights]
        jmp     .loop
.done:
        mov     ecx, keyboard_list_mutex
        call    mutex_unlock
        pop     esi ebx
        ret
 
ps2_set_lights:
        stdcall disable_irq, 1
        mov     al, 0xED
        call    kb_write_wait_ack
        mov     al, [esp+8]
        call    kb_write_wait_ack
        stdcall enable_irq, 1
        ret     8
 
;// mike.dld ]
proc check_lights_state_has_work?
        mov     al, [kb_lights]
        cmp     al, [old_kb_lights]
        ret
endp
 
check_lights_state:
        call    check_lights_state_has_work?
        jz      .nothing
        mov     [old_kb_lights], al
        call    set_lights
.nothing:
        ret
;---------------------------------------------------------------------
numlock_map:
    db   0x37   ;Num 7
    db   0x38   ;Num 8
    db   0x39   ;Num 9
    db   0x2D   ;Num -
    db   0x34   ;Num 4
    db   0x35   ;Num 5
    db   0x36   ;Num 6
    db   0x2B   ;Num +
    db   0x31   ;Num 1
    db   0x32   ;Num 2
    db   0x33   ;Num 3
    db   0x30   ;Num 0
    db   0x2E   ;Num .
;---------------------------------------------------------------------

Rev 5027	Rev 5363
1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	1	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2	;; ;;	2	;; ;;
3	;; Copyright (C) KolibriOS team 2004-2014. All rights reserved. ;;	3	;; Copyright (C) KolibriOS team 2004-2015. All rights reserved. ;;
4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;	4	;; Copyright (C) MenuetOS 2000-2004 Ville Mikael Turjanmaa ;;
5	;; Distributed under terms of the GNU General Public License ;;	5	;; Distributed under terms of the GNU General Public License ;;
6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;	6	;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7		7
8	$Revision: 5027 $	8	$Revision: 5363 $
9		9
10		10
11	VKEY_LSHIFT = 0000000000000001b	11	VKEY_LSHIFT = 0000000000000001b
12	VKEY_RSHIFT = 0000000000000010b	12	VKEY_RSHIFT = 0000000000000010b
13	VKEY_LCONTROL = 0000000000000100b	13	VKEY_LCONTROL = 0000000000000100b
14	VKEY_RCONTROL = 0000000000001000b	14	VKEY_RCONTROL = 0000000000001000b
15	VKEY_LALT = 0000000000010000b	15	VKEY_LALT = 0000000000010000b
16	VKEY_RALT = 0000000000100000b	16	VKEY_RALT = 0000000000100000b
17	VKEY_CAPSLOCK = 0000000001000000b	17	VKEY_CAPSLOCK = 0000000001000000b
18	VKEY_NUMLOCK = 0000000010000000b	18	VKEY_NUMLOCK = 0000000010000000b
19	VKEY_SCRLOCK = 0000000100000000b	19	VKEY_SCRLOCK = 0000000100000000b
20	VKEY_LWIN = 0000001000000000b	20	VKEY_LWIN = 0000001000000000b
21	VKEY_RWIN = 0000010000000000b	21	VKEY_RWIN = 0000010000000000b
22		22
23	VKEY_SHIFT = 0000000000000011b	23	VKEY_SHIFT = 0000000000000011b
24	VKEY_CONTROL = 0000000000001100b	24	VKEY_CONTROL = 0000000000001100b
25	VKEY_ALT = 0000000000110000b	25	VKEY_ALT = 0000000000110000b
26		26
27	uglobal	27	uglobal
28	ext_code db 0	28	ext_code db 0
29		29
30	keyboard_mode db 0	30	keyboard_mode db 0
31	keyboard_data db 0	31	keyboard_data db 0
32		32
33	altmouseb db 0	33	altmouseb db 0
34	ctrl_alt_del db 0	34	ctrl_alt_del db 0
35		35
36	old_kb_lights db 0	36	old_kb_lights db 0
37		37
38	align 4	38	align 4
39	hotkey_scancodes rd 256 ; we have 256 scancodes	39	hotkey_scancodes rd 256 ; we have 256 scancodes
40	hotkey_list rd 256*4 ; max 256 defined hotkeys	40	hotkey_list rd 256*4 ; max 256 defined hotkeys
41	hotkey_buffer rd 120*2 ; buffer for 120 hotkeys	41	hotkey_buffer rd 120*2 ; buffer for 120 hotkeys
42	endg	42	endg
43		43
44	iglobal	44	iglobal
45	kb_lights db 2	45	kb_lights db 2
46	align 4	46	align 4
47	kb_state dd VKEY_NUMLOCK	47	kb_state dd VKEY_NUMLOCK
48	endg	48	endg
49		49
50	iglobal	50	iglobal
51	align 4	51	align 4
52	hotkey_tests dd hotkey_test0	52	hotkey_tests dd hotkey_test0
53	dd hotkey_test1	53	dd hotkey_test1
54	dd hotkey_test2	54	dd hotkey_test2
55	dd hotkey_test3	55	dd hotkey_test3
56	dd hotkey_test4	56	dd hotkey_test4
57	hotkey_tests_num = 5	57	hotkey_tests_num = 5
58	endg	58	endg
59	;---------------------------------------------------------------------	59	;---------------------------------------------------------------------
60	hotkey_test0:	60	hotkey_test0:
61	test al, al	61	test al, al
62	setz al	62	setz al
63	ret	63	ret
64	;---------------------------------------------------------------------	64	;---------------------------------------------------------------------
65	hotkey_test1:	65	hotkey_test1:
66	test al, al	66	test al, al
67	setnp al	67	setnp al
68	ret	68	ret
69	;---------------------------------------------------------------------	69	;---------------------------------------------------------------------
70	hotkey_test2:	70	hotkey_test2:
71	cmp al, 3	71	cmp al, 3
72	setz al	72	setz al
73	ret	73	ret
74	;---------------------------------------------------------------------	74	;---------------------------------------------------------------------
75	hotkey_test3:	75	hotkey_test3:
76	cmp al, 1	76	cmp al, 1
77	setz al	77	setz al
78	ret	78	ret
79	;---------------------------------------------------------------------	79	;---------------------------------------------------------------------
80	hotkey_test4:	80	hotkey_test4:
81	cmp al, 2	81	cmp al, 2
82	setz al	82	setz al
83	ret	83	ret
84	;---------------------------------------------------------------------	84	;---------------------------------------------------------------------
85	hotkey_do_test:	85	hotkey_do_test:
86	push eax	86	push eax
87	mov edx, [kb_state]	87	mov edx, [kb_state]
88	shr edx, cl	88	shr edx, cl
89	add cl, cl	89	add cl, cl
90	mov eax, [eax+4]	90	mov eax, [eax+4]
91	shr eax, cl	91	shr eax, cl
92	and eax, 15	92	and eax, 15
93	cmp al, hotkey_tests_num	93	cmp al, hotkey_tests_num
94	jae .fail	94	jae .fail
95		95
96	xchg eax, edx	96	xchg eax, edx
97	and al, 3	97	and al, 3
98	call [hotkey_tests + edx*4]	98	call [hotkey_tests + edx*4]
99	cmp al, 1	99	cmp al, 1
100	pop eax	100	pop eax
101	ret	101	ret
102	;--------------------------------------	102	;--------------------------------------
103	.fail:	103	.fail:
104	stc	104	stc
105	pop eax	105	pop eax
106	ret	106	ret
107	;---------------------------------------------------------------------	107	;---------------------------------------------------------------------
108	align 4	108	align 4
109	set_keyboard_data:	109	set_keyboard_data:
110	movzx eax, word[TASK_COUNT]; top window process	110	movzx eax, word[TASK_COUNT]; top window process
111	movzx eax, word[WIN_POS+eax*2]	111	movzx eax, word[WIN_POS+eax*2]
112	shl eax, 8	112	shl eax, 8
113	mov al, [SLOT_BASE+eax+APPDATA.keyboard_mode]	113	mov al, [SLOT_BASE+eax+APPDATA.keyboard_mode]
114	mov [keyboard_mode], al	114	mov [keyboard_mode], al
115		115
116	mov eax, ecx	116	mov eax, ecx
117		117
118	push ebx esi edi ebp	118	push ebx esi edi ebp
119	call send_scancode	119	call send_scancode
120	pop ebp edi esi ebx	120	pop ebp edi esi ebx
121	ret	121	ret
122	;---------------------------------------------------------------------	122	;---------------------------------------------------------------------
123	struct KEYBOARD	123	struct KEYBOARD
124	next dd ?	124	next dd ?
125	prev dd ?	125	prev dd ?
126	functions dd ?	126	functions dd ?
127	userdata dd ?	127	userdata dd ?
128	ends	128	ends
129	struct KBDFUNC	129	struct KBDFUNC
130	strucsize dd ?	130	strucsize dd ?
131	close dd ?	131	close dd ?
132	setlights dd ?	132	setlights dd ?
133	ends	133	ends
134		134
135	iglobal	135	iglobal
136	keyboards:	136	keyboards:
137	dd keyboards	137	dd keyboards
138	dd keyboards	138	dd keyboards
139	endg	139	endg
140	uglobal	140	uglobal
141	keyboard_list_mutex MUTEX	141	keyboard_list_mutex MUTEX
142	endg	142	endg
143		143
144	register_keyboard:	144	register_keyboard:
145	push ebx	145	push ebx
146	movi eax, sizeof.KEYBOARD	146	movi eax, sizeof.KEYBOARD
147	call malloc	147	call malloc
148	test eax, eax	148	test eax, eax
149	jz .nothing	149	jz .nothing
150	mov ecx, [esp+4+4]	150	mov ecx, [esp+4+4]
151	mov [eax+KEYBOARD.functions], ecx	151	mov [eax+KEYBOARD.functions], ecx
152	mov ecx, [esp+8+4]	152	mov ecx, [esp+8+4]
153	mov [eax+KEYBOARD.userdata], ecx	153	mov [eax+KEYBOARD.userdata], ecx
154	xchg eax, ebx	154	xchg eax, ebx
155	mov ecx, keyboard_list_mutex	155	mov ecx, keyboard_list_mutex
156	call mutex_lock	156	call mutex_lock
157	mov ecx, keyboards	157	mov ecx, keyboards
158	mov edx, [ecx+KEYBOARD.prev]	158	mov edx, [ecx+KEYBOARD.prev]
159	mov [ebx+KEYBOARD.next], ecx	159	mov [ebx+KEYBOARD.next], ecx
160	mov [ebx+KEYBOARD.prev], edx	160	mov [ebx+KEYBOARD.prev], edx
161	mov [edx+KEYBOARD.next], ebx	161	mov [edx+KEYBOARD.next], ebx
162	mov [ecx+KEYBOARD.prev], ebx	162	mov [ecx+KEYBOARD.prev], ebx
163	mov ecx, [ebx+KEYBOARD.functions]	163	mov ecx, [ebx+KEYBOARD.functions]
164	cmp [ecx+KBDFUNC.strucsize], KBDFUNC.setlights	164	cmp [ecx+KBDFUNC.strucsize], KBDFUNC.setlights
165	jbe .unlock	165	jbe .unlock
166	mov ecx, [ecx+KBDFUNC.setlights]	166	mov ecx, [ecx+KBDFUNC.setlights]
167	test ecx, ecx	167	test ecx, ecx
168	jz .unlock	168	jz .unlock
169	stdcall ecx, [ebx+KEYBOARD.userdata], dword [kb_lights]	169	stdcall ecx, [ebx+KEYBOARD.userdata], dword [kb_lights]
170	.unlock:	170	.unlock:
171	mov ecx, keyboard_list_mutex	171	mov ecx, keyboard_list_mutex
172	call mutex_unlock	172	call mutex_unlock
173	xchg eax, ebx	173	xchg eax, ebx
174	.nothing:	174	.nothing:
175	pop ebx	175	pop ebx
176	ret 8	176	ret 8
177		177
178	delete_keyboard:	178	delete_keyboard:
179	push ebx	179	push ebx
180	mov ebx, [esp+4+4]	180	mov ebx, [esp+4+4]
181	mov ecx, keyboard_list_mutex	181	mov ecx, keyboard_list_mutex
182	call mutex_lock	182	call mutex_lock
183	mov eax, [ebx+KEYBOARD.next]	183	mov eax, [ebx+KEYBOARD.next]
184	mov edx, [ebx+KEYBOARD.prev]	184	mov edx, [ebx+KEYBOARD.prev]
185	mov [eax+KEYBOARD.prev], edx	185	mov [eax+KEYBOARD.prev], edx
186	mov [edx+KEYBOARD.next], eax	186	mov [edx+KEYBOARD.next], eax
187	call mutex_unlock	187	call mutex_unlock
188	mov ecx, [ebx+KEYBOARD.functions]	188	mov ecx, [ebx+KEYBOARD.functions]
189	cmp [ecx+KBDFUNC.strucsize], KBDFUNC.close	189	cmp [ecx+KBDFUNC.strucsize], KBDFUNC.close
190	jbe .nothing	190	jbe .nothing
191	mov ecx, [ecx+KBDFUNC.close]	191	mov ecx, [ecx+KBDFUNC.close]
192	test ecx, ecx	192	test ecx, ecx
193	jz .nothing	193	jz .nothing
194	stdcall ecx, [ebx+KEYBOARD.userdata]	194	stdcall ecx, [ebx+KEYBOARD.userdata]
195	.nothing:	195	.nothing:
196	pop ebx	196	pop ebx
197	ret 4	197	ret 4
198	;---------------------------------------------------------------------	198	;---------------------------------------------------------------------
199	align 4	199	align 4
200	irq1:	200	irq1:
201	movzx eax, word[TASK_COUNT]; top window process	201	movzx eax, word[TASK_COUNT]; top window process
202	movzx eax, word[WIN_POS+eax*2]	202	movzx eax, word[WIN_POS+eax*2]
203	shl eax, 8	203	shl eax, 8
204	mov al, [SLOT_BASE+eax+APPDATA.keyboard_mode]	204	mov al, [SLOT_BASE+eax+APPDATA.keyboard_mode]
205	mov [keyboard_mode], al	205	mov [keyboard_mode], al
206		206
207	in al, 0x60	207	in al, 0x60
208	;--------------------------------------	208	;--------------------------------------
209	send_scancode:	209	send_scancode:
210	mov [keyboard_data], al	210	mov [keyboard_data], al
211	; ch = scancode	211	; ch = scancode
212	; cl = ext_code	212	; cl = ext_code
213	; bh = 0 - normal key	213	; bh = 0 - normal key
214	; bh = 1 - modifier (Shift/Ctrl/Alt)	214	; bh = 1 - modifier (Shift/Ctrl/Alt)
215	; bh = 2 - extended code	215	; bh = 2 - extended code
216	mov ch, al	216	mov ch, al
217	cmp al, 0xE0	217	cmp al, 0xE0
218	je @f	218	je @f
219		219
220	cmp al, 0xE1	220	cmp al, 0xE1
221	jne .normal_code	221	jne .normal_code
222	@@:	222	@@:
223	mov bh, 2	223	mov bh, 2
224	mov [ext_code], al	224	mov [ext_code], al
225	jmp .writekey	225	jmp .writekey
226	;--------------------------------------	226	;--------------------------------------
227	.normal_code:	227	.normal_code:
228	mov cl, 0	228	mov cl, 0
229	xchg cl, [ext_code]	229	xchg cl, [ext_code]
230	and al, 0x7F	230	and al, 0x7F
231	mov bh, 1	231	mov bh, 1
232	;--------------------------------------	232	;--------------------------------------
233	@@:	233	@@:
234	cmp al, 0x5B	234	cmp al, 0x5B
235	jne @f	235	jne @f
236		236
237	cmp cl, 0xE0	237	cmp cl, 0xE0
238	jne @f	238	jne @f
239		239
240	mov eax, VKEY_LWIN	240	mov eax, VKEY_LWIN
241	mov bh, 0	241	mov bh, 0
242	jmp .modifier	242	jmp .modifier
243	;--------------------------------------	243	;--------------------------------------
244	@@:	244	@@:
245	cmp al, 0x5C	245	cmp al, 0x5C
246	jne @f	246	jne @f
247		247
248	cmp cl, 0xE0	248	cmp cl, 0xE0
249	jne @f	249	jne @f
250		250
251	mov eax, VKEY_RWIN	251	mov eax, VKEY_RWIN
252	mov bh, 0	252	mov bh, 0
253	jmp .modifier	253	jmp .modifier
254	;--------------------------------------	254	;--------------------------------------
255	@@:	255	@@:
256	cmp al, 0x2A	256	cmp al, 0x2A
257	jne @f	257	jne @f
258		258
259	cmp cl, 0xE0	259	cmp cl, 0xE0
260	je .writekey	260	je .writekey
261		261
262	mov eax, VKEY_LSHIFT	262	mov eax, VKEY_LSHIFT
263	jmp .modifier	263	jmp .modifier
264	;--------------------------------------	264	;--------------------------------------
265	@@:	265	@@:
266	cmp al, 0x36	266	cmp al, 0x36
267	jne @f	267	jne @f
268		268
269	cmp cl, 0xE0	269	cmp cl, 0xE0
270	je .writekey	270	je .writekey
271		271
272	mov eax, VKEY_RSHIFT	272	mov eax, VKEY_RSHIFT
273	jmp .modifier	273	jmp .modifier
274	;--------------------------------------	274	;--------------------------------------
275	@@:	275	@@:
276	cmp al, 0x38	276	cmp al, 0x38
277	jne @f	277	jne @f
278		278
279	mov eax, VKEY_LALT	279	mov eax, VKEY_LALT
280	test cl, cl	280	test cl, cl
281	jz .modifier	281	jz .modifier
282		282
283	mov al, VKEY_RALT	283	mov al, VKEY_RALT
284	jmp .modifier	284	jmp .modifier
285	;--------------------------------------	285	;--------------------------------------
286	@@:	286	@@:
287	cmp al, 0x1D	287	cmp al, 0x1D
288	jne @f	288	jne @f
289		289
290	mov eax, VKEY_LCONTROL	290	mov eax, VKEY_LCONTROL
291	test cl, cl	291	test cl, cl
292	jz .modifier	292	jz .modifier
293		293
294	mov al, VKEY_RCONTROL	294	mov al, VKEY_RCONTROL
295	cmp cl, 0xE0	295	cmp cl, 0xE0
296	jz .modifier	296	jz .modifier
297		297
298	mov [ext_code], cl	298	mov [ext_code], cl
299	jmp .writekey	299	jmp .writekey
300	;--------------------------------------	300	;--------------------------------------
301	@@:	301	@@:
302	cmp al, 0x3A	302	cmp al, 0x3A
303	jne @f	303	jne @f
304		304
305	mov bl, 4	305	mov bl, 4
306	mov eax, VKEY_CAPSLOCK	306	mov eax, VKEY_CAPSLOCK
307	jmp .no_key.xor	307	jmp .no_key.xor
308	;--------------------------------------	308	;--------------------------------------
309	@@:	309	@@:
310	cmp al, 0x45	310	cmp al, 0x45
311	jne @f	311	jne @f
312	test cl, cl	312	test cl, cl
313	jnz .writekey	313	jnz .writekey
314		314
315	mov bl, 2	315	mov bl, 2
316	mov eax, VKEY_NUMLOCK	316	mov eax, VKEY_NUMLOCK
317	jmp .no_key.xor	317	jmp .no_key.xor
318	;--------------------------------------	318	;--------------------------------------
319	@@:	319	@@:
320	cmp al, 0x46	320	cmp al, 0x46
321	jne @f	321	jne @f
322		322
323	mov bl, 1	323	mov bl, 1
324	mov eax, VKEY_SCRLOCK	324	mov eax, VKEY_SCRLOCK
325	jmp .no_key.xor	325	jmp .no_key.xor
326	;--------------------------------------	326	;--------------------------------------
327	@@:	327	@@:
328	xor ebx, ebx	328	xor ebx, ebx
329	test ch, ch	329	test ch, ch
330	js .writekey	330	js .writekey
331		331
332	movzx eax, ch ; plain key	332	movzx eax, ch ; plain key
333	mov bl, [keymap+eax]	333	mov bl, [keymap+eax]
334	mov edx, [kb_state]	334	mov edx, [kb_state]
335	test dl, VKEY_CONTROL ; ctrl alt del	335	test dl, VKEY_CONTROL ; ctrl alt del
336	jz .noctrlaltdel	336	jz .noctrlaltdel
337		337
338	test dl, VKEY_ALT	338	test dl, VKEY_ALT
339	jz .noctrlaltdel	339	jz .noctrlaltdel
340		340
341	cmp ch, 53h	341	cmp ch, 53h
342	jne .noctrlaltdel	342	jne .noctrlaltdel
343		343
344	mov [ctrl_alt_del], 1	344	mov [ctrl_alt_del], 1
345	call wakeup_osloop	345	call wakeup_osloop
346	.noctrlaltdel:	346	.noctrlaltdel:
347	test dl, VKEY_CONTROL ; ctrl on ?	347	test dl, VKEY_CONTROL ; ctrl on ?
348	jz @f	348	jz @f
349		349
350	sub bl, 0x60	350	sub bl, 0x60
351	@@:	351	@@:
352	test dl, VKEY_CAPSLOCK ; caps lock on ?	352	test dl, VKEY_CAPSLOCK ; caps lock on ?
353	jz .no_caps_lock	353	jz .no_caps_lock
354		354
355	test dl, VKEY_SHIFT ; shift on ?	355	test dl, VKEY_SHIFT ; shift on ?
356	jz .keymap_shif	356	jz .keymap_shif
357		357
358	jmp @f	358	jmp @f
359	;--------------------------------------	359	;--------------------------------------
360	.no_caps_lock:	360	.no_caps_lock:
361	test dl, VKEY_SHIFT ; shift on ?	361	test dl, VKEY_SHIFT ; shift on ?
362	jz @f	362	jz @f
363	.keymap_shif:	363	.keymap_shif:
364	mov bl, [keymap_shift+eax]	364	mov bl, [keymap_shift+eax]
365	@@:	365	@@:
366	test dl, VKEY_ALT ; alt on ?	366	test dl, VKEY_ALT ; alt on ?
367	jz @f	367	jz @f
368		368
369	mov bl, [keymap_alt+eax]	369	mov bl, [keymap_alt+eax]
370	@@:	370	@@:
371	jmp .writekey	371	jmp .writekey
372	;--------------------------------------	372	;--------------------------------------
373	.modifier:	373	.modifier:
374	test ch, ch	374	test ch, ch
375	js .modifier.up	375	js .modifier.up
376	or [kb_state], eax	376	or [kb_state], eax
377	jmp .writekey	377	jmp .writekey
378	;--------------------------------------	378	;--------------------------------------
379	.modifier.up:	379	.modifier.up:
380	not eax	380	not eax
381	and [kb_state], eax	381	and [kb_state], eax
382	jmp .writekey	382	jmp .writekey
383	;--------------------------------------	383	;--------------------------------------
384	.no_key.xor:	384	.no_key.xor:
385	mov bh, 0	385	mov bh, 0
386	test ch, ch	386	test ch, ch
387	js .writekey	387	js .writekey
388		388
389	xor [kb_state], eax	389	xor [kb_state], eax
390	xor [kb_lights], bl	390	xor [kb_lights], bl
391	.writekey:	391	.writekey:
392	pushad	392	pushad
393	; test for system hotkeys	393	; test for system hotkeys
394	movzx eax, ch	394	movzx eax, ch
395	cmp bh, 1	395	cmp bh, 1
396	ja .nohotkey	396	ja .nohotkey
397	jb @f	397	jb @f
398		398
399	xor eax, eax	399	xor eax, eax
400	@@:	400	@@:
401	mov eax, [hotkey_scancodes + eax*4]	401	mov eax, [hotkey_scancodes + eax*4]
402	.hotkey_loop:	402	.hotkey_loop:
403	test eax, eax	403	test eax, eax
404	jz .nohotkey	404	jz .nohotkey
405		405
406	mov cl, 0	406	mov cl, 0
407	call hotkey_do_test	407	call hotkey_do_test
408	jc .hotkey_cont	408	jc .hotkey_cont
409		409
410	mov cl, 2	410	mov cl, 2
411	call hotkey_do_test	411	call hotkey_do_test
412	jc .hotkey_cont	412	jc .hotkey_cont
413		413
414	mov cl, 4	414	mov cl, 4
415	call hotkey_do_test	415	call hotkey_do_test
416	jnc .hotkey_found	416	jnc .hotkey_found
417	.hotkey_cont:	417	.hotkey_cont:
418	mov eax, [eax]	418	mov eax, [eax]
419	jmp .hotkey_loop	419	jmp .hotkey_loop
420	;--------------------------------------	420	;--------------------------------------
421	.hotkey_found:	421	.hotkey_found:
422	mov eax, [eax+8]	422	mov eax, [eax+8]
423	; put key in buffer for process in slot eax	423	; put key in buffer for process in slot eax
424	mov edi, hotkey_buffer	424	mov edi, hotkey_buffer
425	@@:	425	@@:
426	cmp dword [edi], 0	426	cmp dword [edi], 0
427	jz .found_free	427	jz .found_free
428		428
429	add edi, 8	429	add edi, 8
430	cmp edi, hotkey_buffer+120*8	430	cmp edi, hotkey_buffer+120*8
431	jb @b	431	jb @b
432	; no free space - replace first entry	432	; no free space - replace first entry
433	mov edi, hotkey_buffer	433	mov edi, hotkey_buffer
434	.found_free:	434	.found_free:
435	mov [edi], eax	435	mov [edi], eax
436	movzx eax, ch	436	movzx eax, ch
437	cmp bh, 1	437	cmp bh, 1
438	jnz @f	438	jnz @f
439		439
440	xor eax, eax	440	xor eax, eax
441	@@:	441	@@:
442	mov [edi+4], ax	442	mov [edi+4], ax
443	mov eax, [kb_state]	443	mov eax, [kb_state]
444	mov [edi+6], ax	444	mov [edi+6], ax
445		445
446	cmp [PID_lock_input], dword 0	446	cmp [PID_lock_input], dword 0
447	je .nohotkey	447	je .nohotkey
448		448
449	popad	449	popad
450	jmp .exit.irq1	450	jmp .exit.irq1
451	;--------------------------------------	451	;--------------------------------------
452	.nohotkey:	452	.nohotkey:
453	popad	453	popad
454		454
455	cmp [keyboard_mode], 0; return from keymap	455	cmp [keyboard_mode], 0; return from keymap
456	jne .scancode	456	jne .scancode
457		457
458	test bh, bh	458	test bh, bh
459	jnz .exit.irq1	459	jnz .exit.irq1
460		460
461	test bl, bl	461	test bl, bl
462	jz .exit.irq1	462	jz .exit.irq1
463		463
464	cmp cl, 0xE0 ; extended keycode	464	cmp cl, 0xE0 ; extended keycode
465	jne @f	465	jne @f
466		466
467	cmp ch, 53	467	cmp ch, 53
468	jne .dowrite	468	jne .dowrite
469		469
470	mov bl, '/'	470	mov bl, '/'
471	jmp .dowrite	471	jmp .dowrite
472	@@:	472	@@:
473		473
474	cmp ch, 55	474	cmp ch, 55
475	jne @f	475	jne @f
476		476
477	mov bl, '*'	477	mov bl, '*'
478	jmp .dowrite	478	jmp .dowrite
479	@@:	479	@@:
480		480
481	cmp ch, 74	481	cmp ch, 74
482	jne @f	482	jne @f
483		483
484	mov bl, '-'	484	mov bl, '-'
485	jmp .dowrite	485	jmp .dowrite
486	@@:	486	@@:
487		487
488	cmp ch, 78	488	cmp ch, 78
489	jne @f	489	jne @f
490		490
491	mov bl, '+'	491	mov bl, '+'
492	jmp .dowrite	492	jmp .dowrite
493	@@:	493	@@:
494		494
495	test [kb_state], VKEY_NUMLOCK	495	test [kb_state], VKEY_NUMLOCK
496	jz .dowrite	496	jz .dowrite
497		497
498	cmp ch, 71	498	cmp ch, 71
499	jb .dowrite	499	jb .dowrite
500		500

Subversion Repositories Kolibri OS

(root)/kernel/trunk/hid/keyboard.inc – Rev 5027 → 5363