用nasm语言重新实现linux-0.11 键盘驱动程序（us）（博古以通今） （开发版，未精简）

;文件名：followking/kernel/chr_drv/keyboard.s
;本文件改写linux-0.11/kernel/chr_drv/keyboard.s
;目的是为了体验整个系统构建的过程。
;作者：hk0625
;开始时间： 2010年04月25日星期日 12:57
;完成时间： 2010年04月25日星期日 22:48(完成)
;最后修改时间： 2010年04月26日星期一 21:18
;地点: 北京化工大学郁夫图书馆文法阅览室小圆桌
;这是一个值得纪念的时刻，经过一天的调试，终于可以在屏幕上显示东西了。
;虽然还有debug，呵呵。不过没关系。我会解决它。激情伴随整个系统编写过程。
;初步调试我都是各个模块单独调试。这样可以让问题变得简单。这是一个很好的
;方法哦。 2010年04月26日星期一 15:08
;Email:shaohua20051231@163.com
;下面let's try!

%define KBD_US

section .text
global keyboard_interrupt, put_queue
extern do_tty_interrupt, table_list, show_stat, printk, mywrite
size equ 1024
head equ 4
tail equ 8
proc_list equ 12
buf equ 16

mode: db 0
leds: db 2
zero: db 0
;info_hello: db 'hello, in the keyboard_interrupt', 0x0a,0x00
;info_len equ $-info_hello
info_db db '?'
keyboard_interrupt:
;iret
;jmp $
push eax
push ebx
push ecx
push edx
push ds
push es
push fs
mov eax, 0x10
mov ds, ax
mov es, ax
mov eax, 0x17
mov fs, ax
;in al, 0x60
;mov byte[info_db], al
;push 1
;push info_db
;push info_len
;push info_hello ;调试用，2010年04月26日星期一 15:04
;push 0
;call mywrite
;add esp, 12
;mov al, 0x20
;out 0x20, al

;pop fs
;pop es
;pop ds
;pop edx
;pop ecx
;pop ebx
;pop eax
;iret
xor al, al
in al, 0x60
cmp al, 0xe0
je set_zero
cmp al, 0xe1
je set_e1
call [key_table+eax*4]
;mov byte[info_db], al
mov byte[zero], 0x0
zero_one:
in al, 0x61
jmp labe12
labe12:
;jmp .2f
;.2f: or al, 0x80
call delay
or al, 0x80
; jmp .3f
;.3f: jmp .4f
call delay
;.4f: out 0x61, al
out 0x61, al
call delay
; jmp .5f
;.5f: jmp .6f
;.6f: and al, 0x7F
and al, 0x7F
out 0x61, al
mov al, 0x20
out 0x20, al
;push 1
;push info_db ;调试用，呵呵。2010年04月26日星期一 15:04
push 0
;call mywrite ;这个函数这是太有才了。呵呵，2010年04月26日星期一 15:04
call do_tty_interrupt
add esp, 4
;add esp, 12
pop fs
pop es
pop ds
pop edx
pop ecx
pop ebx
pop eax
iret
set_zero:
mov byte[zero], 1
jmp zero_one
set_e1: mov byte[zero], 2
jmp zero_one

put_queue:
push ecx
push edx
mov edx, [table_list]
;jmp $
;lea edx, [table_list]
mov ecx, [head+ edx]
.1: mov [buf+edx+ecx], al
;mov byte[info_db], al
;push 1
;push info_db
;push 0
;call mywrite
;add esp, 12
inc ecx
and ecx, size-1
cmp ecx, [tail+edx]

je .3
shrd eax, ebx,8
je .2
shr ebx, 8
jmp .1
.2: mov [head+edx], ecx
mov ecx, [proc_list+edx]
test ecx, ecx
je .3
mov byte[ecx], 0
.3: pop edx
pop ecx
ret

ctrl: mov al, 0x04
jmp ctr_1
alt: mov al, 0x10
ctr_1: cmp byte[zero], 0
je .2
add al, al
.2: or al, [mode]
ret

unctrl: mov al, 0x04
jmp before
unalt: mov al, 0x10
before: cmp byte[zero], 0
je .2
add al, al
.2: not al
and al, [mode]
ret

lshift:
or byte[mode], 0x01
ret
unlshift:
and byte[mode], 0xfe
ret
rshift:
or byte[mode], 0x02
ret
unrshift:
and byte[mode], 0xfd
ret
caps: test byte[mode], 0x80
jne .l_ret
xor byte[leds], 4
xor byte[mode], 0x40
or byte[mode], 0x80
.l_ret: jmp set_leds
ret
set_leds:
call kb_wait
mov al, 0xed
out 0x60, al
call kb_wait
mov al, [leds]
out 0x60, al
ret
uncaps:
and byte[mode], 0x7f
ret
scroll:
xor byte[leds], 1
jmp set_leds
num: xor byte[leds], 2
jmp set_leds
cursor:
sub al, 0x47
jb l_ret
cmp al, 12
ja l_ret
jne cur2

test byte[mode], 0x0c
je cur2
test byte[mode], 0x30
jne reboot
cur2: cmp byte[zero], 0x01

je cur
test byte[leds], 0x02
je cur
test byte[mode], 0x03

jne cur
xor ebx, ebx
mov al, [num_table+eax]
jmp put_queue
l_ret: ret

reboot:
call kb_wait
mov word[0x472], 0x1234
mov al, 0xfc
out 0x64, al

cur: mov al, [cur_table+eax]
cmp al, '9'
ja ok_cur
mov ah, '~'

ok_cur: shl eax, 16
mov ax, 0x5b1b
xor ebx, ebx
jmp word put_queue

%ifdef KBD_FR
num_table:
db "789 456 1230."
%else
num_table:
db "789 456 1230,"
%endif
cur_table:
db "HA5 DGC YB623"

func:
push eax
push ecx
push edx
call show_stat
pop edx
pop ecx
pop eax
sub al, 0x3B
jb end_func
cmp al, 9
jbe ok_func
sub al, 18
cmp al, 10
jb end_func
cmp al, 11
ja end_func
ok_func:
cmp ecx, 4 ;check that there is enough room
jl end_func
mov eax, [func_table+eax*4]
xor ebx,ebx
jmp put_queue
end_func:
ret

func_table:
dd 0x415b5b1b,0x425b5b1b,0x435b5b1b,0x445b5b1b
dd 0x455b5b1b,0x465b5b1b,0x475b5b1b,0x485b5b1b
dd 0x495b5b1b,0x4a5b5b1b,0x4b5b5b1b,0x4c5b5b1b

do_self:
lea ebx, [alt_map]
test byte[mode], 0x20
jne .1f
lea ebx, [shift_map]
test byte[mode], 0x03
jne .1f
lea ebx, [key_map]

.1f: mov al, [ebx+eax]
or al, al
je none
test byte[mode], 0x4c
je .2f
cmp al, 'a'
jb .2f
cmp al, '}'
ja .2f
sub al, 32
.2f: test byte[mode], 0x0c
je .3f
cmp al, 64
jb .3f
cmp al, 64+32
jae .3f
sub al, 64
.3f: test byte[mode], 0x10
je .4f
or al, 0x80
.4f: and eax, 0xff
xor ebx, ebx
mov byte[info_db], al
;push 1
;push info_db
;push 0
;call mywrite
;add esp, 12
call put_queue
none: ret

minus: cmp byte[zero], 1
jne do_self
mov eax, '/'
xor ebx, ebx
jmp put_queue

kb_wait:
push eax
.1: in al, 0x64
test al, 0x02
jne .1
pop eax
ret

die: jmp die
delay:
jmp delay_ret
delay_ret: ret

key_table:
dd none,do_self,do_self,do_self ; 00-03 s0 esc 1 2
dd do_self,do_self,do_self,do_self ; 04-07 3 4 5 6
dd do_self,do_self,do_self,do_self ; 08-0B 7 8 9 0
dd do_self,do_self,do_self,do_self ; 0C-0F + ' bs tab
dd do_self,do_self,do_self,do_self ; 10-13 q w e r
dd do_self,do_self,do_self,do_self ; 14-17 t y u i
dd do_self,do_self,do_self,do_self ; 18-1B o p } ^
dd do_self,ctrl,do_self,do_self ; 1C-1F enter ctrl a s
dd do_self,do_self,do_self,do_self ; 20-23 d f g h
dd do_self,do_self,do_self,do_self ; 24-27 j k l |
dd do_self,do_self,lshift,do_self ; 28-2B { para lshift ,
dd do_self,do_self,do_self,do_self ; 2C-2F z x c v
dd do_self,do_self,do_self,do_self ; 30-33 b n m ,
dd do_self,minus,rshift,do_self ; 34-37 . - rshift *
dd alt,do_self,caps,func ; 38-3B alt sp caps f1
dd func,func,func,func ; 3C-3F f2 f3 f4 f5
dd func,func,func,func ; 40-43 f6 f7 f8 f9
dd func,num,scroll,cursor ; 44-47 f10 num scr home
dd cursor,cursor,do_self,cursor ; 48-4B up pgup - left
dd cursor,cursor,do_self,cursor ; 4C-4F n5 right + end
dd cursor,cursor,cursor,cursor ; 50-53 dn pgdn ins del
dd none,none,do_self,func ; 54-57 sysreq ? < f11
dd func,none,none,none ; 58-5B f12 ? ? ?
dd none,none,none,none ; 5C-5F ? ? ? ?
dd none,none,none,none ; 60-63 ? ? ? ?
dd none,none,none,none ; 64-67 ? ? ? ?
dd none,none,none,none ; 68-6B ? ? ? ?
dd none,none,none,none ; 6C-6F ? ? ? ?
dd none,none,none,none ; 70-73 ? ? ? ?
dd none,none,none,none ; 74-77 ? ? ? ?
dd none,none,none,none ; 78-7B ? ? ? ?
dd none,none,none,none ; 7C-7F ? ? ? ?
dd none,none,none,none ; 80-83 ? br br br
dd none,none,none,none ; 84-87 br br br br
dd none,none,none,none ; 88-8B br br br br
dd none,none,none,none ; 8C-8F br br br br
dd none,none,none,none ; 90-93 br br br br
dd none,none,none,none ; 94-97 br br br br
dd none,none,none,none ; 98-9B br br br br
dd none,unctrl,none,none ; 9C-9F br unctrl br br
dd none,none,none,none ; A0-A3 br br br br
dd none,none,none,none ; A4-A7 br br br br
dd none,none,unlshift,none ; A8-AB br br unlshift br
dd none,none,none,none ; AC-AF br br br br
dd none,none,none,none ; B0-B3 br br br br
dd none,none,unrshift,none ; B4-B7 br br unrshift br
dd unalt,none,uncaps,none ; B8-BB unalt br uncaps br
dd none,none,none,none ; BC-BF br br br br
dd none,none,none,none ; C0-C3 br br br br
dd none,none,none,none ; C4-C7 br br br br
dd none,none,none,none ; C8-CB br br br br
dd none,none,none,none ; CC-CF br br br br
dd none,none,none,none ; D0-D3 br br br br
dd none,none,none,none ; D4-D7 br br br br
dd none,none,none,none ; D8-DB br ? ? ?
dd none,none,none,none ; DC-DF ? ? ? ?
dd none,none,none,none ; E0-E3 zero e1 ? ?
dd none,none,none,none ; E4-E7 ? ? ? ?
dd none,none,none,none ; E8-EB ? ? ? ?
dd none,none,none,none ; EC-EF ? ? ? ?
dd none,none,none,none ; F0-F3 ? ? ? ?
dd none,none,none,none ; F4-F7 ? ? ? ?
dd none,none,none,none ; F8-FB ? ? ? ?
dd none,none,none,none ; FC-FF ? ? ? ?

;%ifdef KBD_FINNISH
;key_map:
; db 0,27
; db "1234567890+'"
; db 127,9
;; db "qwertyuiop}"
; db 0,13,0
; db "asdfghjkl|{"
; db 0,0
; db "'zxcvbnm,.-"
; db 0,'*',0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-',0,0,0,'+' ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '<'
; db 10,1,0

;shift_map:
; db 0,2
; db '!/"%$%&/()=?`'
; db 127,9
; db "QWERTYUIOP]^"
; db 13,0
; db "ASDFGHJKL//["
; db 0,0
; db "*ZXCVBNM;:_"
; db 0,'*',0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-',0,0,0,'+' ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '>'
; db 10,1,0
;
;alt_map:
; db 0,0
; db "/0@/0$/0/0{[]}///0"
; db 0,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db '~',13,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0,0,0 ; 36-39
; db 16,1,0 ; 3A-49
; db 0,0,0,0,0 ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '|'
; db 10,1,0

;%elifdef KBD_US
%ifdef KBD_US
key_map:
db 0,27
db "1234567890-="
db 127,9
db "qwertyuiop[]"
db 13,0
db "asdfghjkl;'"
db '`',0
db "/zxcvbnm,./"
db 0,'*',0,32 ; 36-39
db 16,1,0 ; 3A-49
db '-',0,0,0,'+' ; 4A-4E
db 0,0,0,0,0,0,0 ; 4F-55
db '<'
db 10,1,0

shift_map:
db 0,27
db "!@%$%^&*()_+"
db 127,9
db "QWERTYUIOP{}"
db 13,0
db "ASDFGHJKL:",'"'
db '~',0
db "|ZXCVBNM<>?"
db 0,'*',0,32 ; 36-39
db 16,1,0 ; 3A-49
db '-',0,0,0,'+' ; 4A-4E
db 0,0,0,0,0,0,0 ; 4F-55
db '>'
db 10,1,0

alt_map:
db 0,0
db "/0@/0$/0/0{[]}///0"
db 0,0
db 0,0,0,0,0,0,0,0,0,0,0
db '~',13,0
db 0,0,0,0,0,0,0,0,0,0,0
db 0,0
db 0,0,0,0,0,0,0,0,0,0,0
db 0,0,0,0 ; 36-39
db 16,1,0 ; 3A-49
db 0,0,0,0,0 ; 4A-4E
db 0,0,0,0,0,0,0 ; 4F-55
db '|'
db 10,1,0

;%elifdef KBD_GR
;
;key_map:
; db 0,27
; db "1234567890//'"
; db 127,9
; db "qwertzuiop@+"
; db 13,0
; db "asdfghjkl[]^"
; db 0,'%
; db "yxcvbnm,.-"
; db 0,'*,0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-,0,0,0,'+ ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '<
; db 10,1,0
;
;
;shift_map:
; db 0,27
; db "!/"%$%&/()=?`"
; db 127,9
; db "QWERTZUIOP//*"
; db 13,0
; db "ASDFGHJKL{}~"
; db 0,''
; db "YXCVBNM;:_"
; db 0,'*,0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-,0,0,0,'+ ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '>
; db 10,1,0
;
;alt_map:
; db 0,0
; db "/0@/0$/0/0{[]}///0"
; db 0,0
; db '@,0,0,0,0,0,0,0,0,0,0
; db '~,13,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0,0,0 ; 36-39
; db 16,1,0 ; 3A-49
; db 0,0,0,0,0 ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '|
; db 10,1,0
;
;
;%elifdef KBD_FR
;
;key_map:
; db 0,27
; db "&{/"'(-}_/@)="
; db 127,9
; db "azertyuiop^$"
; db 13,0
; db "qsdfghjklm|"
; db '`,0,42 ; coin sup gauche, don't know, [*|mu]
; db "wxcvbn,;:!"
; db 0,'*,0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-,0,0,0,'+ ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '<
; db 10,1,0
;
;shift_map:
; db 0,27
; db "1234567890]+"
; db 127,9
; db "AZERTYUIOP<>"
; db 13,0
; db "QSDFGHJKLM%"
; db '~,0,'%
; db "WXCVBN?.///"
; db 0,'*,0,32 ; 36-39
; db 16,1,0 ; 3A-49
; db '-,0,0,0,'+ ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '>
; db 10,1,0

;alt_map:
; db 0,0
; db "/0~%{[|`//^@]}"
; db 0,0
; db '@,0,0,0,0,0,0,0,0,0,0
; db '~,13,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0
; db 0,0,0,0,0,0,0,0,0,0,0
; db 0,0,0,0 ; 36-39
; db 16,1,0 ; 3A-49
; db 0,0,0,0,0 ; 4A-4E
; db 0,0,0,0,0,0,0 ; 4F-55
; db '|
; db 10,1,0

%else
%error "KBD-type not defined"
%endif