Return to tree.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / forth / device

Annotation of qemu/roms/openbios/forth/device/tree.fs, revision 1.1.1.1

1.1       root        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
                     13: new-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: 
                     23: new-device
                     24:   " aliases" device-name
                     25:   : open true ;
                     26:   : close ;
                     27: finish-device
                     28:   
                     29: new-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... succeded" cr
                     39:     true
                     40:   ;
                     41:   : open true ;
                     42:   : close ;
                     43: 
                     44: finish-device
                     45:   
                     46: new-device
                     47:   " options" device-name
                     48: finish-device
                     49: 
                     50: new-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
                     56:   0 encode-int " memory" property
                     57:   0 encode-int " mmu" property
                     58: finish-device
                     59:   
                     60: \ END
                     61: finish-device

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.