From 594b462f7d225e2248b32bab8b659b96d904b097 Mon Sep 17 00:00:00 2001
From: "Marat Zakiyanov (Mario79)" <mario79@bk.ru>
Date: Sun, 11 Sep 2011 23:31:31 +0000
Subject: [PATCH] Tinypad - correct work with CAPS LOCK

git-svn-id: svn://kolibrios.org@2172 a494cfbc-eb01-0410-851d-a64ba20cac60
---
 programs/develop/tinypad/trunk/tp-key.asm | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

diff --git a/programs/develop/tinypad/trunk/tp-key.asm b/programs/develop/tinypad/trunk/tp-key.asm
index 465686cf55..54237702ce 100644
--- a/programs/develop/tinypad/trunk/tp-key.asm
+++ b/programs/develop/tinypad/trunk/tp-key.asm
@@ -60,7 +60,20 @@ key:
 
   .lp0: test	al,0x80
 	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
 	mcall	26,2,,key1
 	pop	eax