![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to pci-interrupts.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof|
Return to pci-interrupts.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof |
1.1 root 1: \ *****************************************************************************
2: \ * Copyright (c) 2004, 2008 IBM Corporation
3: \ * All rights reserved.
4: \ * This program and the accompanying materials
5: \ * are made available under the terms of the BSD License
6: \ * which accompanies this distribution, and is available at
7: \ * http://www.opensource.org/licenses/bsd-license.php
8: \ *
9: \ * Contributors:
10: \ * IBM Corporation - initial implementation
11: \ ****************************************************************************/
12:
13: \ define function pointer as forward declaration for get-interrupt-line
14: \ this is board wireing and southbridge dependent
15: \ returns the wired interrupt line for this config addr
16: \ ( config-addr -- irq-line )
17: DEFER pci-get-irq-line
18:
19: \ define function pointer as forward declaration for get-interrupt-sense-type
20: \ this is board wireing and southbridge dependent
21: \ returns the wired interrupt sense type for this config addr
22: \ 0 - Edge rising
23: \ 1 - Level low
24: \ 2 - Level high
25: \ 3 - Edge falling
26: \ ( config-addr -- irq-sense )
27: DEFER pci-get-irq-sense
28:
29:
30: \ *****************************************************************************
31: \ Generic IRQ routines
32: \ *****************************************************************************
33:
34:
35:
36: : unknown-slot ( -- 0 )
37: \ cr pci-vec ABORT" Unknown slot "
38: 0
39: ;
40: \ 0c s" /ht/@1/@2" PCI-X INTA & INTC Pnpirq0 -> irq12
41: \ 0e s" /ht/@1/@2" PCI-X INTB & INTD Pnpirq1 -> irq14
42: \ 10 s" /ht/@8,1" ATA
43: \ 0f s" /ht/@1/@1" Obsidian Pnpirq2 -> irq15
44: \ 10 s" /ht/@7/@2" Video / Exar Serial PirqA
45: \ 11 s" /ht/@2/@4" Ethernet PirqB
46: \ 12 s" /ht/@2/@4,1" Ethernet PirqC
47: \ 13 s" /ht/@7/@0" USB PirqD
48: \ 13 s" /ht/@7/@0,1" USB PirqD
49: \ 13 s" /ht/@7/@0,2" USB PirqD
50:
51: \ 14 s" /ht/@3/@0" PCIe gpio28
52: \ 15 s" /ht/@4/@0" PCIe gpio29
53: \ 16 s" /ht/@5/@0" PCIe gpio30
54: \ 17 s" /ht/@6/@0" PCIe gpio31
55:
56:
57: \ -----------------------------------------------------------------------------
58: \ Get the interrupt pin for a device on ht u4
59: : u4-get-irq-line ( config-addr -- irq-line )
60: \ cr s" u4-get-irq-line " type
61: pci-device-vec c@ CASE
62: 1 OF pci-device-vec-len 1 >= IF
63: pci-device-vec 1+ c@ CASE
64: 1 OF f ENDOF
65: 2 OF dup pci-interrupt@ CASE
66: 1 OF c ENDOF
67: 3 OF e ENDOF
68: 2 OF c ENDOF
69: 4 OF e ENDOF
70: ENDCASE
71: ENDOF
72: dup OF unknown-slot ENDOF
73: ENDCASE
74: ELSE
75: unknown-slot
76: THEN
77: ENDOF
78: 2 OF pci-device-vec-len 1 >= IF
79: pci-device-vec 1+ c@ CASE
80: 4 OF dup pci-addr2fn 1 >= IF 12 ELSE 11 THEN ENDOF
81: dup OF unknown-slot ENDOF
82: ENDCASE
83: ELSE
84: unknown-slot
85: THEN
86: ENDOF
87: 3 OF 14 ENDOF
88: 4 OF 15 ENDOF
89: 5 OF 16 ENDOF
90: 6 OF 17 ENDOF
91: 7 OF pci-device-vec-len 1 >= IF
92: pci-device-vec 1+ c@ CASE
93: 0 OF 13 ENDOF
94: 2 OF 10 ENDOF
95: dup OF unknown-slot ENDOF
96: ENDCASE
97: ELSE
98: unknown-slot
99: THEN
100: ENDOF
101: 8 OF 10 ENDOF
102: dup OF unknown-slot ENDOF
103: ENDCASE
104: swap drop
105: ;
106:
107: \ -----------------------------------------------------------------------------
108: \ Get the interrupt sense type for a device on ht u4
109: : u4-get-irq-sense ( config-addr -- irq-sense )
110: \ cr s" u4-get-irq-sense " type
111: u4-get-irq-line CASE
112: 0c OF 00 ENDOF
113: 0e OF 00 ENDOF
114: dup OF 01 ENDOF
115: ENDCASE
116: ;
117:
118: \ 10 s" /ht/@4,1" set-pci-interrupt \ ATA
119: \ 13 s" /ht/@3/@0" set-pci-interrupt \ USB
120: \ 13 s" /ht/@3/@0,1" set-pci-interrupt \ USB
121: \ 13 s" /ht/@3/@0,2" set-pci-interrupt \ USB
122: \ 1c s" /ht/@2/@1" set-pci-interrupt \ Ethernet
123: \ 1d s" /ht/@2/@1,1" set-pci-interrupt \ Ethernet
124:
125: \ -----------------------------------------------------------------------------
126: \ Get the interrupt pin for a device on ht u3
127: : u3-get-irq-line ( config-addr -- irq-line )
128: \ cr s" u3-get-irq-line " type
129: pci-device-vec c@ CASE
130: 2 OF pci-device-vec-len 1 >= IF
131: pci-device-vec 1+ c@ CASE
132: 1 OF dup pci-addr2fn 1 >= IF 1d ELSE 1c THEN ENDOF
133: dup OF unknown-slot ENDOF
134: ENDCASE
135: ELSE
136: unknown-slot
137: THEN
138: ENDOF
139: 3 OF 13 ENDOF
140: 4 OF 10 ENDOF
141: dup OF unknown-slot ENDOF
142: ENDCASE
143: swap drop
144: ;
145:
146: \ -----------------------------------------------------------------------------
147: \ Get the interrupt sense type for a device on ht u3
148: : u3-get-irq-sense ( config-addr -- irq-sense )
149: \ cr s" u3-get-irq-sense " type
150: u3-get-irq-line CASE
151: dup OF 01 ENDOF
152: ENDCASE
153: ;
154:
155:
156:
157: \ -----------------------------------------------------------------------------
158: \ Get the interrupt pin for a device on attu
159: : pcie-get-irq-line ( config-addr -- irq-line )
160: \ cr s" pcie-get-irq-line " type
161: drop
162: 3
163: ;
164:
165:
166: \ -----------------------------------------------------------------------------
167: \ Get the interrupt sense type for a device on attu
168: : pcie-get-irq-sense ( config-addr -- irq-sense )
169: \ cr s" pcie-get-irq-sense " type
170: drop
171: 01
172: ;
173:
174: \ -----------------------------------------------------------------------------
175: \ Set up the special routines for HT irq handling
176: : ht-irq-init ( -- )
177: \ cr s" ht-irq-init " type
178: u4? IF
179: ['] u4-get-irq-line TO pci-get-irq-line
180: ['] u4-get-irq-sense TO pci-get-irq-sense
181: ELSE
182: ['] u3-get-irq-line TO pci-get-irq-line
183: ['] u3-get-irq-sense TO pci-get-irq-sense
184: THEN
185: ;
186:
187: \ -----------------------------------------------------------------------------
188: \ Set up the special routines for PCI-e irq handling
189: : pcie-irq-init ( -- )
190: \ cr s" pcie-irq-init " type
191: ['] pcie-get-irq-sense TO pci-get-irq-sense
192: ['] pcie-get-irq-line TO pci-get-irq-line
193: ;
194:
195: \ -----------------------------------------------------------------------------
196: \ Set up the special routines for irq handling
197: 0 VALUE mpic
198: : pci-irq-init ( mpic puid -- mpic )
199: over TO mpic
200: 18 rshift FF and
201: CASE
202: F1 OF pcie-irq-init ENDOF
203: F2 OF ht-irq-init ENDOF
204: dup OF ABORT" Wrong PUID! in pci-irq-init" ENDOF
205: ENDCASE
206: ;
207:
208: \ -----------------------------------------------------------------------------
209: \ Set the interrupt pin for a device
210: : pci-set-irq-line ( config-addr -- )
211: \ cr pci-vec
212: dup pci-get-irq-line
213: \ ." ->" dup .
214: swap pci-irq-line!
215: ;
216:
217: \ -----------------------------------------------------------------------------
218: \ Add an irq entry for the device at config-addr into the irq map
219: \ each entry consists of 7 integer values
220: \ Structure of an entry:
221: \ +----------+---+---+------------+--------------+---------+---------------+
222: \ Number# | 0 | 1 | 2 | 3 | 4 | 5 | 6 |
223: \ +----------+---+---+------------+--------------+---------+---------------+
224: \ meaning | config | | | int# | phandle | intr nr | pos edge (0) |
225: \ | addr | | | (1=a, 2=b, | intr contr | | act ll (1) |
226: \ +----------+---+---+------------+--------------+---------+---------------+
227: \ value | pci slot | 0 | 0 | 1 | mpic | 7 | 0|1 |
228: \ +----------+---+---+------------+--------------+---------+---------------+
229: : pci-gen-irq-entry ( prop-addr prop-len config-addr -- prop-addr prop-len )
230: dup >r encode-int+ 0 encode-64+ \ config addr
231: r@ pci-interrupt@ encode-int+ \ interrupt type
232: mpic encode-int+ \ phandle to MPIC
233: r@ pci-irq-line@ encode-int+ \ interrupt number
234: r> pci-get-irq-sense encode-int+ \ trigger type
235: ;
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.