1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
|
/* $Id: kbd_ctrl.S,v 1.2 2009-06-15 08:44:47 potyra Exp $
*
* Setup the keyboard controller (connected to irq1) so that it produces
* interrupts.
*
* Copyright (C) 2009 FAUmachine Team <info@faumachine.org>.
* This program is free software. You can redistribute it and/or modify it
* under the terms of the GNU General Public License, either version 2 of
* the License, or (at your option) any later version. See COPYING.
*/
.text
/* keyboard controller is irq1
* io: 0x0060, 0x0064
*/
wait_controller_input_empty:
inb $0x0064, %al
andb $0x02, %al
jnz wait_controller_input_empty
ret
wait_controller_output_full:
inb $0x0064, %al
andb $0x01, %al
jz wait_controller_output_full
ret
.globl setup_controller
setup_controller:
/* setup for read mode */
movb $0x20, %al
outb %al, $0x0064
call wait_controller_output_full
/* read old mode into al */
inb $0x0060, %al
/* setup for write mode (and save old mode in ah) */
movb %al, %ah
movb $0x60, %al
outb %al, $0x0064
call wait_controller_input_empty
/* enable interrupts */
orb $0x01, %ah
movb %ah, %al
outb %al, $0x0060
call wait_controller_input_empty
/* all done */
movl $str_ready, %edx
call libs_puts
ret
.globl release_comp_irq
release_comp_irq:
pusha
/* fetch status... s.th. in output buffer? */
inb $0x0064, %al
andb $0x01, %al
jz release_comp_irq_out
xorl %eax, %eax
inb $0x0060, %al
/* release code? */
testb $0x80, %al
jnz release_comp_irq_out
/* perform table lookup */
movb kbd_lc(,%eax,1), %al
movb %al, kbd_key_read
movb $1, kbd_key_recv
call libs_printc
release_comp_irq_out:
popa
ret
.section .data
/* the last read key will be stored here.
* the os is free to overwrite this in the case of need.
*/
.globl kbd_key_read
kbd_key_read:
.byte 0
/* key recieved? -> 1 */
.globl kbd_key_recv
kbd_key_recv:
.byte 0
.section .rodata
str_ready:
.ascii "Keyboard controller programmed.\n\0"
/* normal lookup table */
kbd_lc:
/* 00 */ .byte 0, 0x1b, '1', '2'
/* 04 */ .byte '3', '4', '5', '6'
/* 08 */ .byte '7', '8', '9', '0'
/* 0c */ .byte '-', '=', '\b', '\t'
/* 10 */ .byte 'q', 'w', 'e', 'r'
/* 14 */ .byte 't', 'y', 'u', 'i'
/* 18 */ .byte 'o', 'p', '[', ']'
/* 1c */ .byte '\n', -1, 'a', 's'
/* 20 */ .byte 'd', 'f', 'g', 'h'
/* 24 */ .byte 'j', 'k', 'l', ';'
/* 28 */ .byte '\'', '`', -1, '\\'
/* 2c */ .byte 'z', 'x', 'c', 'v'
/* 30 */ .byte 'b', 'n', 'm', ','
/* 34 */ .byte '.', '/', -1, '*'
/* 38 */ .byte -1, ' ', 0, 0
/* 3c */ .byte 0, 0, 0, 0
/* 40 */ .byte 0, 0, 0, 0
/* 44 */ .byte 0, 0, 0, 0
/* 48 */ .byte 0, 0, '-', 0
/* 4c */ .byte 0, 0, '+', 0
/* 50 */ .byte 0, 0, 0, 0
|
