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
|
# keyboard scancode table
# ts is NOT a good way to write a driver LMAO
const KBD = " 1234567890-= qwertyuiop[] asdfghjkl;'` \\zxcvbnm,./ "
# same layout, shifted. index 42 (left shift) / 54 (right shift) stay blank.
const KBD_SHIFT = " !@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"~ |ZXCVBNM<>? "
# 8259 PIC
fn pic_remap() do
outb(0x20, 0x11) outb(0xa0, 0x11)
outb(0x21, 0x20) outb(0xa1, 0x28)
outb(0x21, 0x04) outb(0xa1, 0x02)
outb(0x21, 0x01) outb(0xa1, 0x01)
outb(0x21, 0xff) outb(0xa1, 0xff)
end
fn pic_unmask(line) outb(0x21, inb(0x21) band (255 bxor (1 shl line)))
# 8253/8254 PIT channel 0, mode 3 (square wave)
# divisor 11931 -> ~100 Hz (1193182 / 11931)
# the ISR just counts ticks
fn pit_init() do
outb(0x43, 0x36)
outb(0x40, 11931 band 0xff)
outb(0x40, (11931 shr 8) band 0xff)
end
# she stroke my keys till i handle
# no fr this is just a key stroke handler
global sh = { line = "", shift = :false }
global on_key = fn(code) do
# shift: 0x2a/0x36 press,
# 0xaa/0xb6 release
# index a blank cell and type a stray space.
if code == 0x2a do sh.shift = :true return :nil end
if code == 0x36 do sh.shift = :true return :nil end
if code == 0xaa do sh.shift = :false return :nil end
if code == 0xb6 do sh.shift = :false return :nil end
if code >= 128 return :nil # other key releases
if code == 28 do # Enter
puts("\n")
run(sh.line)
sh.line = ""
return :nil
end
if code == 14 do # Backspace
if sh.line:len() > 0 do
sh.line = sh.line:sub(0, sh.line:len() - 1)
puts("\x08 \x08")
end
return :nil
end
if code < 2 return :nil
if code >= KBD:len() return :nil
const ch = if sh.shift KBD_SHIFT[code] else KBD[code]
if ch == " " and code != 0x39 return :nil
sh.line ~= ch
puts(ch)
end
|
