1\ tag: Device Tree
2\
3\ this code implements IEEE 1275-1994 ch. 3.5
4\
5\ Copyright (C) 2003 Stefan Reinauer
6\
7\ See the file "COPYING" for further information about
8\ the copyright and warranty status of this work.
9\
10
11
12\ root node
13new-device
14  " OpenBiosTeam,OpenBIOS" device-name
15  1 encode-int " #address-cells" property
16  : open true ;
17  : close ;
18  : decode-unit parse-hex ;
19  : encode-unit ( addr -- str len )
20    pocket tohexstr
21  ;
22
23new-device
24  " aliases" device-name
25  : open true ;
26  : close ;
27finish-device
28
29new-device
30  " openprom" device-name
31  " BootROM"  device-type
32  " OpenFirmware 3" model
33  0 0 " relative-addressing"  property
34  0 0 " supports-bootinfo"    property
35  1 encode-int " boot-syntax" property
36
37  : selftest
38    ." OpenBIOS selftest... succeeded" cr
39    true
40  ;
41  : open true ;
42  : close ;
43
44finish-device
45
46new-device
47  " options" device-name
48finish-device
49
50new-device
51  " chosen" device-name
52  0 encode-int " stdin" property
53  0 encode-int " stdout" property
54  \ " hda1:/boot/vmunix" encode-string " bootpath" property
55  \ " -as" encode-string " bootargs" property
56finish-device
57
58\ END
59finish-device
60