![[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 / sparc32|
Return to tree.fs CVS log | Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / arch / sparc32 |
1.1 root 1:
2: " /" find-device
3: 2 encode-int " #address-cells" property
4: 1 encode-int " #size-cells" property
5:
6: " sun4m" encode-string " compatible" property
7: h# 0a21fe80 encode-int " clock-frequency" property
8:
9: : encode-unit encode-unit-sbus ;
10: : decode-unit decode-unit-sbus ;
11:
12: new-device
13: " memory" device-name
14: external
15: : open true ;
16: : close ;
17: \ claim ( phys size align -- base )
18: \ release ( phys size -- )
19: finish-device
20:
21: new-device
22: " virtual-memory" device-name
23: external
24: : open true ;
25: : close ;
26: \ claim ( phys size align -- base )
27: \ release ( phys size -- )
28: finish-device
29:
30: new-device
31: " iommu" device-name
32: 2 encode-int " #address-cells" property
33: 1 encode-int " #size-cells" property
34: h# 1000 encode-int " page-size" property
35: 0 encode-int " cache-coherence?" property
36: external
37: : open ( cr ." opening iommu" cr) true ;
38: : close ;
39: : encode-unit encode-unit-sbus ;
40: : decode-unit decode-unit-sbus ;
41: finish-device
42:
43: " /iommu" find-device
44: new-device
45: " sbus" device-name
46: " hierarchical" device-type
47: 2 encode-int " #address-cells" property
48: 1 encode-int " #size-cells" property
49: h# 01443fd0 encode-int " clock-frequency" property
50: h# 1c encode-int " slot-address-bits" property
51: h# 3f encode-int " burst-sizes" property
52: external
53: : open ( cr ." opening SBus" cr) true ;
54: : close ;
55: : encode-unit encode-unit-sbus ;
56: : decode-unit decode-unit-sbus ;
57: finish-device
58:
59: [IFDEF] CONFIG_BPP
60: " /iommu/sbus" find-device
61: new-device
62: " SUNW,bpp" device-name
63: h# 4 encode-int h# 0c800000 encode-int encode+ h# 0000001c encode-int encode+ " reg" property
64: h# 33 encode-int 0 encode-int encode+ " intr" property
65: finish-device
66: [THEN]
67:
68: " /iommu/sbus" find-device
69: new-device
70: " SUNW,tcx" device-name
71: " display" device-type
72: h# 1d encode-int " vbporch" property
73: h# a0 encode-int " hbporch" property
74: h# 06 encode-int " vsync" property
75: h# 88 encode-int " hsync" property
76: h# 03 encode-int " vfporch" property
77: h# 18 encode-int " hfporch" property
78: h# 03dfd240 encode-int " pixfreq" property
79: h# 3c encode-int " vfreq" property
80: h# 300 encode-int " height" property
81: h# 400 encode-int " width" property
82: h# 400 encode-int " linebytes" property
83: 5 encode-int 0 encode-int encode+ " intr" property
84: 5 encode-int " interrupts" property
85: finish-device
86:
87: " /iommu/sbus" find-device
88: new-device
89: " espdma" device-name
90: external
91: : encode-unit encode-unit-sbus ;
92: : decode-unit decode-unit-sbus ;
93: finish-device
94:
95: " /iommu/sbus" find-device
96: new-device
97: " ledma" device-name
98: h# 3f encode-int " burst-sizes" property
99: external
100: : encode-unit encode-unit-sbus ;
101: : decode-unit decode-unit-sbus ;
102: finish-device
103:
104: " /iommu/sbus/ledma" find-device
105: new-device
106: " le" device-name
107: " network" device-type
108: h# 7 encode-int " busmaster-regval" property
109: h# 26 encode-int 0 encode-int encode+ " intr" property
110: finish-device
111:
112: \ obio (on-board IO)
113: " /" find-device
114: new-device
115: " obio" device-name
116: " hierarchical" device-type
117: 2 encode-int " #address-cells" property
118: 1 encode-int " #size-cells" property
119: external
120: : open ( cr ." opening obio" cr) true ;
121: : close ;
122: : encode-unit encode-unit-sbus ;
123: : decode-unit decode-unit-sbus ;
124: finish-device
125:
126: " /options" find-device
127: " disk" encode-string " boot-from" property
128:
129: " /openprom" find-device
130: 0 0 " aligned-allocator" property
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.