![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to tree.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 / openbios / arch / ppc / briq|
Return to tree.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / arch / ppc / briq |
1.1 root 1: \ briq specific initialization code
2: \
3: \ Copyright (C) 2004 Greg Watson
4: \
5: \ This program is free software; you can redistribute it and/or
6: \ modify it under the terms of the GNU General Public License
7: \ as published by the Free Software Foundation
8: \
9:
10: \ -------------------------------------------------------------
11: \ device-tree
12: \ -------------------------------------------------------------
13:
14: " /" find-device
15:
16: " chrp" device-type
17: " TotalImpact,BRIQ-1" model
18: h# 80000000 encode-int " isa-io-base" property
19: 1 encode-int " #interrupt-cells" property
20: 1 encode-int " #size-cells" property
21:
22: new-device
23: " memory" device-name
24: " memory" device-type
25: 0 encode-int h# 1E00000 encode-int encode+
26: h# 2000000 encode-int encode+ h# 40000000 encode-int encode+
27: " available" property
28: 0 h# 40000000 reg
29: external
30: : open true ;
31: : close ;
32: finish-device
33:
34: new-device
35: " cpu" device-name
36: " cpu" device-type
37: " " encode-string " translations" property
38: 0 encode-phys h# 8000000 encode-int encode+ " available" property
39: d# 32 encode-int " d-cache-block-size" property
40: 8 encode-int " d-cache-sets" property
41: d# 32768 encode-int " d-cache-size" property
42: d# 32 encode-int " i-cache-block-size" property
43: 8 encode-int " i-cache-sets" property
44: d# 32768 encode-int " i-cache-size" property
45: " " encode-string " cache-unified" property
46: 2 encode-int " i-tlb-sets" property
47: d# 128 encode-int " i-tlb-size" property
48: 2 encode-int " d-tlb-sets" property
49: d# 128 encode-int " d-tlb-size" property
50: " " encode-string " tlb-split" property
51: 2 encode-int " tlb-sets" property
52: d# 256 encode-int " tlb-size" property
53: " " encode-string " performance-monitor" property
54: " " encode-string " graphics" property
55: 4 encode-int " reservation-granule-size" property
56: d# 25000000 encode-int " timebase-frequency" property
57: d# 300000000 encode-int " clock-frequency" property
58: d# 66000000 encode-int " bus-frequency" property
59: h# 88201 encode-int " cpu-version" property
60: 0 encode-int " reg" property
61: finish-device
62:
63: " /pci" find-device
64: h# 01000000 encode-int 0 encode-int encode+ 0 encode-int encode+
65: h# 80000000 encode-int encode+ 0 encode-int encode+
66: h# 01000000 encode-int encode+
67: h# 02000000 encode-int encode+ 0 encode-int encode+ 0 encode-int encode+
68: h# C0000000 encode-int encode+ 0 encode-int encode+
69: h# 08000000 encode-int encode+
70: " ranges" property
71: " IBM,CPC710" model
72: h# FF5F7700 encode-int " 8259-interrupt-acknowledge" property
73: h# 0000F800 encode-int 0 encode-int encode+ 0 encode-int encode+
74: 7 encode-int encode+
75: " interrupt-map-mask" property
76: 1 encode-int " #interrupt-cells" property
77: h# 80000000 encode-int " system-dma-base" property
78: d# 33333333 encode-int " clock-frequency" property
79: " " encode-string " primary-bridge" property
80: 0 encode-int " pci-bridge-number" property
81: h# FF500000 encode-int h# 100000 encode-int encode+ " reg" property
82: 0 encode-int 0 encode-int encode+ " bus-range" property
83:
84: new-device
85: " isa" device-name
86: " isa" device-type
87: 2 encode-int " #address-cells" property
88: 1 encode-int " #size-cells" property
89:
90: external
91: : open true ;
92: : close ;
93:
94: finish-device
95:
96: : ?devalias ( alias-str alias-len device-str device-len --
97: \ alias-str alias-len false | true )
98: active-package >r
99: " /aliases" find-device
100: \ 2dup ." Checking " type
101: 2dup find-dev if \ check if device exists
102: drop
103: 2over find-dev if \ do we already have an alias?
104: \ ." alias exists" cr
105: drop 2drop false
106: else
107: \ ." device exists" cr
108: encode-string
109: 2swap property
110: true
111: then
112: else
113: \ ." device doesn't exist" cr
114: 2drop false
115: then
116: r> active-package!
117: ;
118:
119: :noname
120: " hd"
121: " /pci/pci-ata/ata-1/disk@0" ?devalias not if
122: " /pci/pci-ata/ata-1/disk@1" ?devalias not if
123: " /pci/pci-ata/ata-2/disk@0" ?devalias not if
124: " /pci/pci-ata/ata-2/disk@1" ?devalias not if
125: 2drop ." No disk found." cr
126: then
127: then
128: then
129: then
130:
131: " cdrom"
132: " /pci/pci-ata/ata-1/cdrom@0" ?devalias not if
133: " /pci/pci-ata/ata-1/cdrom@1" ?devalias not if
134: " /pci/pci-ata/ata-2/cdrom@0" ?devalias not if
135: " /pci/pci-ata/ata-2/cdrom@1" ?devalias not if
136: 2drop ." No cdrom found" cr
137: then
138: then
139: then
140: then
141: ; SYSTEM-initializer
142:
143: new-device
144: " ide" device-name
145: " ide" device-type
146: " WINBOND,82C553" model
147: h# 28 encode-int " max-latency" property
148: h# 2 encode-int " min-grant" property
149: h# 1 encode-int " devsel-speed" property
150: h# 0 encode-int " subsystem-vendor-id" property
151: h# 0 encode-int " subsystem-id" property
152: h# 1018A encode-int " class-code" property
153: h# 5 encode-int " revision-id" property
154: h# 105 encode-int " device-id" property
155: h# 10AD encode-int " vendor-id" property
156: h# 1003110 encode-int 0 encode-int encode+ h# 10020 encode-int encode+
157: h# 10 encode-int encode+ 0 encode-int encode+
158: h# 1003114 encode-int 0 encode-int encode+ h# 10030 encode-int encode+
159: h# 4 encode-int encode+ 0 encode-int encode+
160: h# 1003118 encode-int 0 encode-int encode+ h# 10040 encode-int encode+
161: h# 10 encode-int encode+ 0 encode-int encode+
162: h# 100311C encode-int 0 encode-int encode+ h# 10034 encode-int encode+
163: h# 4 encode-int encode+ 0 encode-int encode+
164: h# 1003120 encode-int 0 encode-int encode+ h# 10050 encode-int encode+
165: h# 10 encode-int encode+ 0 encode-int encode+
166: h# 1003124 encode-int 0 encode-int encode+ h# 10060 encode-int encode+
167: h# 10 encode-int encode+ 0 encode-int encode+
168: " assigned-addresses" property
169: h# 3100 encode-int 0 encode-int encode+ 0 encode-int encode+
170: 0 encode-int encode+ 0 encode-int encode+
171: h# 1003110 encode-int 0 encode-int encode+ h# 0 encode-int encode+
172: h# 10 encode-int encode+ 0 encode-int encode+
173: h# 1003114 encode-int 0 encode-int encode+ h# 0 encode-int encode+
174: h# 4 encode-int encode+ 0 encode-int encode+
175: h# 1003118 encode-int 0 encode-int encode+ h# 0 encode-int encode+
176: h# 10 encode-int encode+ 0 encode-int encode+
177: h# 100311C encode-int 0 encode-int encode+ h# 0 encode-int encode+
178: h# 4 encode-int encode+ 0 encode-int encode+
179: h# 1003120 encode-int 0 encode-int encode+ h# 0 encode-int encode+
180: h# 10 encode-int encode+ 0 encode-int encode+
181: h# 1003124 encode-int 0 encode-int encode+ h# 0 encode-int encode+
182: h# 10 encode-int encode+ 0 encode-int encode+
183: " reg" property
184: finish-device
185:
186: new-device
187: " ethernet" device-name
188: " network" device-type
189: " AMD,79C973" model
190: h# 3800 encode-int 0 encode-int encode+ 0 encode-int encode+
191: 0 encode-int encode+ 0 encode-int encode+
192: " reg" property
193: finish-device
194:
195: " /pci/isa" find-device
196: 0 0 " assigned-addresses" property
197: 0 0 " ranges" property
198: 0 encode-int " slot-names" property
199: d# 8333333 encode-int " clock-frequency" property
200: 0 encode-int " eisa-slots" property
201: 2 encode-int " #interrupt-cells" property
202: " W83C553F" encode-string " compatible" property
203: " WINBOND,82C553" model
204: 0 encode-int " max-latency" property
205: 0 encode-int " min-grant" property
206: 1 encode-int " devsel-speed" property
207: 0 encode-int " subsystem-vendor-id" property
208: 0 encode-int " subsystem-id" property
209: h# 60100 encode-int " class-code" property
210: h# 10 encode-int " revision-id" property
211: h# 565 encode-int " device-id" property
212: h# 10AD encode-int " vendor-id" property
213: h# 3000 encode-int 0 encode-int encode+ 0 encode-int encode+
214: 0 encode-int encode+ 0 encode-int encode+ " reg" property
215:
216: new-device
217: " rtc" device-name
218: " rtc" device-type
219: " DS17285S" model
220: " MC146818" encode-string
221: " DS17285S" encode-string encode+
222: " pnpPNP,b00" encode-string encode+ " compatible" property
223: 8 encode-int 0 encode-int encode+ " interrupts" property
224: h# 70 encode-int 1 encode-int encode+
225: 2 encode-int encode+ " reg" property
226: finish-device
227:
228: new-device
229: " interrupt-controller" device-name
230: " interrupt-controller" device-type
231: " 8259" model
232: " " encode-string " interrupt-controller" property
233: 2 encode-int " #interrupt-cells" property
234: 1 encode-int
235: 2 encode-int encode+
236: 3 encode-int encode+
237: 6 encode-int encode+
238: " reserved-interrupts" property
239: " 8259" encode-string
240: " chrp,iic" encode-string encode+
241: " compatible" property
242: h# 20 encode-int 1 encode-int encode+
243: 2 encode-int encode+ " reg" property
244: finish-device
245:
246: new-device
247: " serial" device-name
248: " serial" device-type
249: " no" encode-string " ctsrts" property
250: " no" encode-string " xon" property
251: " no" encode-string " parity" property
252: d# 115200 encode-int " bps" property
253: 1 encode-int " stop-bits" property
254: 8 encode-int " data-bits" property
255: h# 70800 encode-int " divisor" property
256: h# 708000 encode-int " clock-frequency" property
257: 4 encode-int 0 encode-int encode+ " interrupts" property
258: h# 3F8 encode-int 1 encode-int encode+
259: 8 encode-int encode+ " reg" property
260: finish-device
261:
262: " /pci" find-device
263: " /pci/isa/interrupt-controller" find-dev if
264: encode-int " interrupt-parent" property
265: then
266: h# 3800 encode-int 0 encode-int encode+
267: 0 encode-int encode+ 1 encode-int encode+
268: " /pci/isa/interrupt-controller" find-dev if
269: encode-int encode+
270: then
271: h# 0C encode-int encode+ 1 encode-int encode+
272: " interrupt-map" property
273:
274: " /pci/isa" find-device
275: " /pci/isa/interrupt-controller" find-dev if
276: encode-int " interrupt-parent" property
277: then
278:
279: \ -------------------------------------------------------------
280: \ /packages
281: \ -------------------------------------------------------------
282:
283: " /packages" find-device
284:
285: " packages" device-name
286: external
287: \ allow packages to be opened with open-dev
288: : open true ;
289: : close ;
290:
291: \ /packages/terminal-emulator
292: new-device
293: " terminal-emulator" device-name
294: external
295: : open true ;
296: : close ;
297: \ : write ( addr len -- actual )
298: \ dup -rot type
299: \ ;
300: finish-device
301:
302: \ -------------------------------------------------------------
303: \ The END
304: \ -------------------------------------------------------------
305: device-end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.