Subversion Repositories Kolibri OS

Rev

Rev 1480 | Rev 2637 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1480 Rev 2172
Line 58... Line 58...
58 
 
 58 
 
Line 59... Line 59...
59 
	or	eax,edx
 59 
	or	eax,edx
60 
 
 60 
 
- 
 
 61 
  .lp0: test	al,0x80
- 
 
 62 
	jnz	still.skip_write
- 
 
 63 
;--------------------------------------
- 
 
 64 
; it is CAPS LOCK correct processing for chars
- 
 
 65 
	test	[shi], 0x00000040 ; CAPS LOCK is on?
- 
 
 66 
	jz	.no_caps_lock
- 
 
 67 
	cmp	ecx,1
- 
 
 68 
	jnz	@f
61 
  .lp0: test	al,0x80
 69 
	inc	ecx
- 
 
 70 
	jmp	.no_caps_lock
- 
 
 71 
@@:
- 
 
 72 
	cmp	ecx,2
- 
 
 73 
	jnz	.no_caps_lock
- 
 
 74 
	dec	ecx
62 
	jnz	still.skip_write
 75 
.no_caps_lock:
63 
 
 76 
;--------------------------------------
64 
	push	eax
 77 
	push	eax
Line 65... Line 78...
65 
	mcall	26,2,,key1
 78 
	mcall	26,2,,key1