键盘扫描表
code segment
org 100h
assume cs:code,ds:code,es:code,ss:code
start:
jmp C1
old09addr label dword
old_ip09 dw ?
old_cs09 dw ?
new09addr label dword
new_ip09 dw ?
new_cs09 dw ?
mcb label dword
mcb_evb dw ? ; mcb: Memmory Control Block
mcb_psp dw ?
PRE_SCAN DB ? ;INT 9H中按下或松开一个键产生的扫描码
PRE_ASCII DB ? ;INT 9H中按下或松开一个键产生的字符码
LOO_SCAN DB ? ;INT 9H中松开一个键产生的扫描码
LOO_ASCII DB ? ;INT 9H中松开一个键产生的字符码
;修改后键盘ASCII码表
; 0123456789ABCDEF
ASC_ASC DB '????????????????';0
DB '????????????????';1
DB ' !"#$%&?()*+,-./';2
DB '0123456789:;<=>?';3
DB '@KXVMCNOPHQRSZYI';4
DB 'JADLEGWBUFT[/]^?';5 此处?号为原本的?号位置
DB '?kxvmcnophqrszyi';6
DB 'jadlegwbuft{|}~?';7
DB '????????????????';8
DB '????????????????';9
DB '????????????????';A
DB '????????????????';B
DB '????????????????';C
DB '????????????????';D
DB '????????????????';E
DB '????????????????';F
;根据ASCII－>扫描码映射表找出扫描码
; 0 1 2 3 4 5 6 7 8 9 A B C D E F
ASC_SCAN DB ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ;0
DB ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ;1
DB ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ? ;2
DB 0BH, 02H, 03H, 04H, 05H, 06H, 07H, 08H, 09H, 0AH, ?, ?, ?, ?, ?, ? ;3
DB ?, 1EH, 30H, 2EH, 20H, 12H, 21H, 22H, 23H, 17H, 24H, 25H, 26H, 32H, 31H, 18H ;4
DB 19H, 10H, 13H, 1FH, 14H, 16H, 2FH, 11H, 2DH, 15H, 2CH, ?, ?, ?, ?, ? ;5
DB ?, 1EH, 30H, 2EH, 20H, 12H, 21H, 22H, 23H, 17H, 24H, 25H, 26H, 32H, 31H, 18H ;6
DB 19H, 10H, 13H, 1FH, 14H, 16H, 2FH, 11H, 2DH, 15H, 2CH, ?, ?, ?, ?, ? ;7
new09h proc near ;新INT9中断程序
CLI
push si
push es
push ds
push ax
push cs
pop ds
pushf
call CS:dword ptr old09addr ;调用原int9
;欠处理打印,NUMLOCK等非ASCII操作
MOV SI,0040H ;键盘缓冲区尾指针 0040:001C
MOV ES,SI
MOV SI,ES:[001CH] ;队尾指针BUFF_TAIL指向最后一个元素的后面
SUB SI,2 ;批
CMP SI,001EH
JAE EDGE
MOV SI,003CH
EDGE:
MOV AX,ES:[SI]
MOV PRE_SCAN,AH ;存入扫描码
MOV PRE_ASCII,AL ;存入字符码
CALL CHANGE
MOV ES:[SI],AX
pop ax
pop ds
pop es
pop si
iret
new09h endp
CHANGE PROC NEAR
PUSH ES
PUSH SI
PUSH DI
PUSH DX
;不考虑组合键
CMP al,0H ;ASCII码为0
jz exit
cmp al,30h
jb exit
cmp al,39h
jbe opr
l1: cmp al,41h
jb exit
cmp al,5AH
jbe opr
l2: cmp al,61h
jb exit
cmp al,7Ah
jbe opr
jmp exit
opr:
XOR DH,DH
MOV DL,AL
MOV DI,DX
LOOSE:
MOV DL,ASC_ASC[DI]
PUSH DX
XOR DH,DH
MOV DI,DX
POP DX
MOV DH,ASC_SCAN[DI]
TEST AH,80H ;
JZ PRESS
;为通码则到short press
OR DH,80H
PRESS:
MOV AX,DX ;修改后的键盘码放入AX返回
exit:
POP DX
POP DI
POP SI
POP ES
ret
CHANGE endp
END_TSR label byte
C1:
main proc near ;第一次运行install,下一次运行uninstall
; Get current 1ch interrupt vector
mov ax,3509h
int 21h
cmp bx,offset new09h
jnz in1
call uninstall
jmp in2
in1: call install
in2:
mov ax,4c00h
int 21h
main endp
uninstall proc near ;卸载tsr程序
push es
push ds
push dx
push bx
push ax
push di
mov dx, offset strMsgUninstall
mov ah, 09h
int 21h
; get new int9 cs:ip from interrupt vector table
; fetch old_cs09 and old_ip09
; restore old int9
mov ax,3509h
int 21h
mov di,offset old_cs09
mov dx,es:[di] ;old_cs09
mov ds,dx
mov dx,es:[di-2] ;old_ip09
mov ax,2509h
int 21h
; Release evirenment parameter block
;mov bx, 1
;mov ax, CS:[mcb_evb]
;mov ds, ax
;mov word ptr ds:[bx], 0
; Release TSR
;mov ax, CS:[mcb_psp]
;mov ds, ax
;mov word ptr ds:[bx], 0
pop di
pop ax
pop bx
pop dx
pop ds
pop es
ret
uninstall endp
install proc near ;安装新中断
push ds
push es
push ax
push bx
push cx
push dx
;save old int 09h
mov al,09h
mov ah,35h
int 21h
mov old_cs09,es
mov old_ip09,bx
mov dx, offset strMsgInstall
mov ah, 09h
int 21h
push ds
;set new int 09h
lea dx,new09h
mov ax,cs ;mov ax,seg new09h
mov ds,ax
mov al,09h
mov ah,25h
int 21h
mov [new_ip09],dx
mov [new_cs09],ds
pop ds
; Store the address of evirenment parameter block
;mov ax, cs
;dec ax
;mov [mcb_psp], ax ;mov cs:[mcb_psp], ax
;mov bx, 2ch
;mov ax, [bx] ;mov ax, cs:[bx]
;dec ax
;mov cs:[mcb_evb], ax
; exit and reside in memory
mov dx,OFFSET END_TSR ;从PSP开始的DX大小内存块驻留
mov cl,4 ;到END_TSR处之前为驻留部分
shr dx,cl
inc dx
mov ax, 3100h
int 21h
; exit and reside in memory
;MOV DX,((varlen+15)/16)+16 ;全部代码驻留
;MOV AX,3100H
;INT 21H
STI
pop dx
pop cx
pop bx
pop ax
pop es
pop ds
ret
install endp
ln proc near ;回车换行
push ax
push dx
mov dl,0dh
mov ah,2
int 21h
mov dl,0ah
mov ah,2
int 21h
pop dx
pop ax
ret
ln endp
;键盘扫描码编码表
; 0123456789ABCDEF
SCAN_TABLE DB '??1234567890-=??' ;0
DB 'QWERTYUIOP[]??AS' ;1
DB "DFGHJKL;'`?/ZXCV" ;2
DB 'BNM,./?*????????' ;3
DB '??????????-?5?+?' ;4
DB '????????????????' ;5
DB '????????????????' ;6
DB '????????????????' ;7
; 0123456789ABCDEF ;
SCAN_TABLE0 DB '??1234567890-=??' ;0
DB 'JVTKZNXOGH[]??QL' ;1
DB "RYUIPAS;'`?/MBEC" ;2
DB 'WFD,./?*????????' ;3
DB '??????????-?5?+?' ;4
DB '????????????????' ;5
DB '????????????????' ;6
DB '????????????????' ;7
;计划修改后，键盘的扫描码表
;只对A-Z排序，原q位为a，原m位为z
;原键盘ASCII码编码表
; 0123456789ABCDEF
ASC_TABLE DB '????????????????';0
DB '????????????????';1
DB ' !"#$%&?()*+,-./';2
DB '0123456789:;<=>?';3
DB '@ABCDEFGHIJKLMNO';4
DB 'PQRSTUVWXYZ[/]^?';5
DB '?abcdefghijklmno';6
DB 'pqrstuvwxyz{|}~?';7
DB '????????????????';8
DB '????????????????';9
DB '????????????????';A
DB '????????????????';B
DB '????????????????';C
DB '????????????????';D
DB '????????????????';E
DB '????????????????';F
count dw ?
strMsgInstall db 07h, "AutoKey installed!$"
strMsgUninstall db 07h, "AutoKey uninstalled!$"
varlen equ $ - start
code ends
end start
; rtwxu zoqfrn.egd