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
10 \ * IBM Corporation - initial implementation
11 \ ****************************************************************************/
15 \ See the PCI OF binding document.
19 s" ht" 2dup device-name device-type
21 s" U3" encode-string s" model" property
23 3 encode-int s" #address-cells" property
24 2 encode-int s" #size-cells" property
26 s" /mpic" find-node encode-int s" interrupt-parent" property
28 4000 encode-int 0 encode-int+ 0 encode-int+
29 1 encode-int+ s" /mpic" find-node encode-int+
30 10 encode-int+ 0 encode-int+
31 s" interrupt-map" property
33 f800 encode-int 0 encode-int+ 0 encode-int+
34 7 encode-int+ s" interrupt-map-mask" property
36 : decode-unit 2 hex-decode-unit 3 lshift or
38 : encode-unit nip nip ff00 and 8 rshift dup 7 and swap 3 rshift
39 over IF 2 ELSE nip 1 THEN hex-encode-unit ;
41 f2000000 CONSTANT my-puid
42 \ Configuration space accesses.
43 : >config dup ffff > IF 1000000 + THEN f2000000 + ;
45 \ : config-l! >config cr ." config-l! " 2dup . space . rl!-le ;
46 \ : config-l@ >config cr ." config-l@ " dup . rl@-le space dup . ;
47 \ : config-w! >config cr ." config-w! " 2dup . space . rw!-le ;
48 \ : config-w@ >config cr ." config-w@ " dup . rw@-le space dup . ;
49 \ : config-b! >config cr ." config-b! " 2dup . space . rb! ;
50 \ : config-b@ >config cr ." config-b@ " dup . rb@ space dup . ;
52 : config-l! >config rl!-le ;
53 : config-l@ >config rl@-le ;
54 : config-w! >config rw!-le ;
55 : config-w@ >config rw@-le ;
56 : config-b! >config rb! ;
57 : config-b@ >config rb@ ;
59 : config-dump ( addr size -- ) ['] config-l@ 4 (dump) ;
62 \ 16MB of configuration space, separate for type 0 and type 1.
63 00000000 encode-int f2000000 encode-int+
64 00000000 encode-int+ 02000000 encode-int+ s" reg" property
67 01000000 encode-int 00000000 encode-int+ 00000000 encode-int+
68 00000000 encode-int+ f4000000 encode-int+
69 00000000 encode-int+ 00400000 encode-int+
71 \ 1 GB of memory space @ 80000000
72 02000000 encode-int+ 00000000 encode-int+ 80000000 encode-int+
73 00000000 encode-int+ 80000000 encode-int+
74 00000000 encode-int+ 40000000 encode-int+ s" ranges" property
76 \ Host bridge, so full bus range.
77 0 encode-int ff encode-int+ s" bus-range" property
79 : enable-ht-apic-space 3c0300fe f8070200 rl! ;
82 \ spare out 0xc0000000-0xefffffff for pcie
83 f8070200 rl@ fffffff0 and f8070200 rl!
84 \ enable io memory for pcie @ c0000000-efffffff
85 70000003 f80903f0 rl!-le
88 \ Workaround for "takeover" boot on JS20: the top 8131 is programmed to be
89 \ device #1f, while it should be #01.
90 u3? IF f800 config-l@ 74501022 = IF 41 f8c2 config-w! THEN THEN
95 34 BEGIN config-b@ dup 0= ABORT" No HT capability block found!"
96 dup config-l@ e00000ff and 8 = IF 2 + EXIT THEN 1 + AGAIN ;
98 : assign-buid ( this -- next )
99 find-ht-primary dup >r config-w@ 5 rshift 1f and over r> config-b! + ;
101 : assign-buids ( -- )
102 1 BEGIN 0 config-l@ ffffffff <> WHILE assign-buid REPEAT drop ;
106 : ldtstop f8000840 rl@ 40000 or f8000840 rl! ;
107 : delay 100000 0 DO LOOP ;
108 : wait-for-done BEGIN f8070110 rl@ 30 and UNTIL
109 BEGIN 8b4 config-l@ 30 and UNTIL ;
110 : ldtstop1 f8000840 rl@ dup 20000 or f8000840 rl! delay
111 f8000840 rl! wait-for-done ;
112 : warm 400000 f8070300 rl! 0 f8070300 rl! ;
114 : dumpht cr f8070110 rl@ 8 0.r space 8b4 config-l@ 8 0.r
115 space f8070122 rb@ 2 0.r space 8bd config-b@ 2 0.r ;
117 : clearht f8070110 dup rl@ swap rl!
118 f8070120 dup rl@ swap rl!
119 08b4 dup config-l@ swap config-l!
120 08bc dup config-l@ swap config-l! ;
122 : setwidth dup f8070110 rb! 8b7 config-b! ;
124 : set16 11 setwidth ;
126 : setfreq dup f8070122 rb! 8bd config-b! ;
133 : set1000 6 setfreq ;
134 : set1200 7 setfreq ;
135 : set1400 8 setfreq ;
136 : set1600 9 setfreq ;
138 : ht>freq 2 + dup 6 > IF 2* 6 - THEN d# 100 * ;
139 \ XXX: looks only at the U3/U4 side for max. link speed and width.
140 clearht f8070111 rb@ setwidth
141 f8070120 rw@ 2log dup .( Switching top HT bus to ) ht>freq 0 d# .r .( MHz...) cr
142 setfreq u3? IF ldtstop THEN u4? IF ldtstop1 THEN
147 \ : probe-pci-host-bridge ( bus-max bus-min mmio-max mmio-base mem-max mem-base io-max io-base my-puid -- )
148 s" /mpic" find-node my-puid pci-irq-init drop
149 1f 0 c0000000 b8000000 b8000000 80000000 100000000 10000
150 my-puid probe-pci-host-bridge
153 f80040f0 010854 config-l! 0 010858 config-l!
154 ffff 01085c config-w! 81 010852 config-b!
157 \ This works. Needs cleaning up though; and we need to communicate the
158 \ MSI address range to the client program. (We keep the default range
159 \ at fee00000 for now).
160 : msi-on 7 1 DO 10000 i 800 * a0 + config-l! LOOP ;
164 : find-pcie-cap ( devfn -- offset | 0 )
165 >r 34 BEGIN r@ + config-b@ dup ff <> over and WHILE
166 dup r@ + config-b@ 10 = IF
172 : (set-ps) ( ps addr -- )
173 8 + >r 5 lshift r@ config-w@ ff1f and or r> config-w! ;
176 10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
177 + 2dup (set-ps) THEN drop LOOP drop ;
179 : (set-rr) ( rr addr -- )
180 8 + >r c lshift r@ config-w@ 8fff and or r> config-w! ;
183 10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
184 + 2dup (set-rr) THEN drop LOOP drop ;
186 100 set-ps 200 set-rr
187 100 set-ps 200 set-rr