![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to ht.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 ht.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: \ Hypertransport.
14:
15: \ See the PCI OF binding document.
16:
17: new-device
18:
19: s" ht" 2dup device-name device-type
20: s" u3-ht" compatible
21: s" U3" encode-string s" model" property
22:
23: 3 encode-int s" #address-cells" property
24: 2 encode-int s" #size-cells" property
25:
26: s" /mpic" find-node encode-int s" interrupt-parent" property
27:
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
32:
33: f800 encode-int 0 encode-int+ 0 encode-int+
34: 7 encode-int+ s" interrupt-map-mask" property
35:
36: : decode-unit 2 hex-decode-unit 3 lshift or
37: 8 lshift 0 0 rot ;
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 ;
40:
41: f2000000 CONSTANT my-puid
42: \ Configuration space accesses.
43: : >config dup ffff > IF 1000000 + THEN f2000000 + ;
44:
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 . ;
51:
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@ ;
58:
59: : config-dump ( addr size -- ) ['] config-l@ 4 (dump) ;
60:
61:
62: \ 16MB of configuration space, seperate for type 0 and type 1.
63: 00000000 encode-int f2000000 encode-int+
64: 00000000 encode-int+ 02000000 encode-int+ s" reg" property
65:
66: \ 4MB of I/O space.
67: 01000000 encode-int 00000000 encode-int+ 00000000 encode-int+
68: 00000000 encode-int+ f4000000 encode-int+
69: 00000000 encode-int+ 00400000 encode-int+
70:
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
75:
76: \ Host bridge, so full bus range.
77: 0 encode-int ff encode-int+ s" bus-range" property
78:
79: : enable-ht-apic-space 3c0300fe f8070200 rl! ;
80: enable-ht-apic-space
81:
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
86:
87:
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
91:
92: \ Assign BUIDs.
93:
94: : find-ht-primary
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 ;
97:
98: : assign-buid ( this -- next )
99: find-ht-primary dup >r config-w@ 5 rshift 1f and over r> config-b! + ;
100:
101: : assign-buids ( -- )
102: 1 BEGIN 0 config-l@ ffffffff <> WHILE assign-buid REPEAT drop ;
103:
104: assign-buids
105:
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! ;
113:
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 ;
116:
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! ;
121:
122: : setwidth dup f8070110 rb! 8b7 config-b! ;
123: : set8 00 setwidth ;
124: : set16 11 setwidth ;
125:
126: : setfreq dup f8070122 rb! 8bd config-b! ;
127: : set200 0 setfreq ;
128: : set300 1 setfreq ;
129: : set400 2 setfreq ;
130: : set500 3 setfreq ;
131: : set600 4 setfreq ;
132: : set800 5 setfreq ;
133: : set1000 6 setfreq ;
134: : set1200 7 setfreq ;
135: : set1400 8 setfreq ;
136: : set1600 9 setfreq ;
137:
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
143:
144: : open true ;
145: : close ;
146:
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
151:
152: : msi
153: f80040f0 010854 config-l! 0 010858 config-l!
154: ffff 01085c config-w! 81 010852 config-b!
155: ;
156:
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 ;
161: msi-on
162:
163: \ PCIe debug / fixup
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
167: r> drop EXIT
168: THEN 1+
169: REPEAT r> 2drop 0
170: ;
171:
172: : (set-ps) ( ps addr -- )
173: 8 + >r 5 lshift r@ config-w@ ff1f and or r> config-w! ;
174: : set-ps ( ps -- )
175: log2 7 -
176: 10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
177: + 2dup (set-ps) THEN drop LOOP drop ;
178:
179: : (set-rr) ( rr addr -- )
180: 8 + >r c lshift r@ config-w@ 8fff and or r> config-w! ;
181: : set-rr ( rr -- )
182: log2 7 -
183: 10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
184: + 2dup (set-rr) THEN drop LOOP drop ;
185:
186: 100 set-ps 200 set-rr
187: 100 set-ps 200 set-rr
188:
189: finish-device
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.