Subversion Repositories Kolibri OS

Rev

Rev 4588 | Rev 4929 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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