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