qemu/roms/openbios/arch/sparc32/tree.fs

   1 include config.fs
   2
   3 " /" find-device
   4   2 encode-int " #address-cells" property
   5   1 encode-int " #size-cells" property
   6
   7   " sun4m" encode-string " compatible" property
   8   h# 0a21fe80 encode-int " clock-frequency" property
   9
  10   : encode-unit encode-unit-sbus ;
  11   : decode-unit decode-unit-sbus ;
  12
  13 new-device
  14   " memory" device-name
  15   external
  16   : open true ;
  17   : close ;
  18   \ claim ( phys size align -- base )
  19   \ release ( phys size -- )
  20 finish-device
  21
  22 new-device
  23   " virtual-memory" device-name
  24   external
  25   : open true ;
  26   : close ;
  27   \ claim ( phys size align -- base )
  28   \ release ( phys size -- )
  29 finish-device
  30
  31 new-device
  32   " iommu" device-name
  33   2 encode-int " #address-cells" property
  34   1 encode-int " #size-cells" property
  35   h# 1000 encode-int " page-size" property
  36   0 encode-int " cache-coherence?" property
  37   external
  38   : open ( cr ." opening iommu" cr) true ;
  39   : close ;
  40   : encode-unit encode-unit-sbus ;
  41   : decode-unit decode-unit-sbus ;
  42 finish-device
  43
  44 " /iommu" find-device
  45 new-device
  46   " sbus" device-name
  47   " hierarchical" device-type
  48   2 encode-int " #address-cells" property
  49   1 encode-int " #size-cells" property
  50   h# 01443fd0 encode-int " clock-frequency" property
  51   h# 1c encode-int " slot-address-bits" property
  52   h# 3f encode-int " burst-sizes" property
  53   external
  54   : open ( cr ." opening SBus" cr) true ;
  55   : close ;
  56   : encode-unit encode-unit-sbus ;
  57   : decode-unit decode-unit-sbus ;
  58   : map-in map-in-sbus ;
  59   : map-out map-out-sbus ;
  60 finish-device
  61
  62 [IFDEF] CONFIG_BPP
  63 " /iommu/sbus" find-device
  64 new-device
  65   " SUNW,bpp" device-name
  66   h# 4 encode-int h# 0c800000 encode-int encode+ h# 0000001c encode-int encode+ " reg" property
  67   h# 33 encode-int 0 encode-int encode+ " intr" property
  68 finish-device
  69 [THEN]
  70
  71 " /iommu/sbus" find-device
  72 new-device
  73   " espdma" device-name
  74   external
  75   : encode-unit encode-unit-sbus ;
  76   : decode-unit decode-unit-sbus ;
  77 finish-device
  78
  79 " /iommu/sbus" find-device
  80 new-device
  81   " ledma" device-name
  82   h# 3f encode-int " burst-sizes" property
  83   external
  84   : encode-unit encode-unit-sbus ;
  85   : decode-unit decode-unit-sbus ;
  86 finish-device
  87
  88 " /iommu/sbus/ledma" find-device
  89 new-device
  90   " le" device-name
  91   " network" device-type
  92   h# 7 encode-int " busmaster-regval" property
  93   h# 26 encode-int 0 encode-int encode+ " intr" property
  94 finish-device
  95
  96 \ obio (on-board IO)
  97 " /" find-device
  98 new-device
  99   " obio" device-name
 100   " hierarchical" device-type
 101   2 encode-int " #address-cells" property
 102   1 encode-int " #size-cells" property
 103   external
 104   : open ( cr ." opening obio" cr) true ;
 105   : close ;
 106   : encode-unit encode-unit-sbus ;
 107   : decode-unit decode-unit-sbus ;
 108 finish-device
 109
 110 " /options" find-device
 111   " disk" encode-string " boot-from" property
 112
 113 " /openprom" find-device
 114   0 0 " aligned-allocator" property