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
|
\
\ ioapic and local apic tester
\
\ Copyright (C) 2003 Stefan Reinauer
\
\ See the file "COPYING" for further information about
\ the copyright and warranty status of this work.
\
hex
fee00000 constant lapic_base
fec00000 constant ioapic_base
: read_lapic ( regoffset -- value )
lapic_base + l@
;
: write_lapic ( value regoffset -- )
lapic_base + l!
;
: read_ioapic ( regoffset -- low_value high_value )
2* 10 + dup
ioapic_base l! ioapic_base 4 cells + l@
swap 1+
ioapic_base l! ioapic_base 4 cells + l@
;
: write_ioapic ( low high regoffset -- )
2* 10 + dup ( low high offs offs )
ioapic_base l! rot ioapic_base 4 cells + l! ( high offs )
1+
ioapic_base l! ioapic_base 4 cells + l! ( high offs )
;
: test-lapic
s" Dumping local apic:" type cr
3f0 0 do
i dup ( lapic_base + ) s" 0x" type . s" = 0x" type read_lapic space .
i 30 and 0= if cr then
10 +loop
cr
;
: test-ioapic
s" Dumping io apic:" type cr
17 0 do
i dup s" irq=" type . read_ioapic s" = 0x" type . s" ." type .
i 1 and 0<> if
cr
then
loop
cr
;
: dump-apics
test-lapic
test-ioapic
;
\ tag: apic test utility
|
