Tinypad - correct work with CAPS LOCK

git-svn-id: svn://kolibrios.org@2172 a494cfbc-eb01-0410-851d-a64ba20cac60
This commit is contained in:
Marat Zakiyanov (Mario79) 2011-09-11 23:31:31 +00:00
parent 213f39d0cd
commit 594b462f7d

View File

@ -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