forked from KolibriOS/kolibrios
Tinypad - correct work with CAPS LOCK
git-svn-id: svn://kolibrios.org@2172 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
parent
213f39d0cd
commit
594b462f7d
@ -60,7 +60,20 @@ key:
|
|||||||
|
|
||||||
.lp0: test al,0x80
|
.lp0: test al,0x80
|
||||||
jnz still.skip_write
|
jnz still.skip_write
|
||||||
|
;--------------------------------------
|
||||||
|
; it is CAPS LOCK correct processing for chars
|
||||||
|
test [shi], 0x00000040 ; CAPS LOCK is on?
|
||||||
|
jz .no_caps_lock
|
||||||
|
cmp ecx,1
|
||||||
|
jnz @f
|
||||||
|
inc ecx
|
||||||
|
jmp .no_caps_lock
|
||||||
|
@@:
|
||||||
|
cmp ecx,2
|
||||||
|
jnz .no_caps_lock
|
||||||
|
dec ecx
|
||||||
|
.no_caps_lock:
|
||||||
|
;--------------------------------------
|
||||||
push eax
|
push eax
|
||||||
mcall 26,2,,key1
|
mcall 26,2,,key1
|
||||||
pop eax
|
pop eax
|
||||||
|
Loading…
Reference in New Issue
Block a user