| /programs/develop/tinypad/trunk/tp-key.asm |
|---|
| 60,7 → 60,20 |
| .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 |