openbios/arch/sparc32/tree.fs

" /" find-device
  2 encode-int " #address-cells" property
  1 encode-int " #size-cells" property
  " SUNW,SparcStation-5" encode-string " name" property
  " " encode-string " idprom" property
  " SparcStation" encode-string " banner-name" property
  " sun4m" encode-string " compatible" property
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;

new-device
  " memory" device-name
  external
  : open true ;
  : close ;
  \ claim ( phys size align -- base )
  \ release ( phys size -- )
finish-device

new-device
  " STP1012PGA" device-name
  " cpu" device-type
  d# 256 encode-int " mmu-nctx" property
  d# 32 encode-int " cache-line-size" property
  d# 512 encode-int " cache-nlines" property
  1 encode-int " mid" property
finish-device

new-device
  " iommu" device-name
  2 encode-int " #address-cells" property
  1 encode-int " #size-cells" property
  h# 0 encode-int h# 10000000 encode-int encode+ h# 00000300 encode-int encode+ " reg" property
  external
  : open cr ." opening iommu" cr true ;
  : close ;
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;
finish-device

" /iommu" find-device
new-device
  " sbus" device-name
  " hierarchical" device-type
  2 encode-int " #address-cells" property
  1 encode-int " #size-cells" property
  h# 0 encode-int h# 0 encode-int encode+ h# 0 encode-int encode+ h# 30000000 encode-int encode+ h# 10000000 encode-int encode+
   h# 1 encode-int encode+ h# 0 encode-int encode+ h# 0 encode-int encode+ h# 40000000 encode-int encode+ h# 10000000 encode-int encode+
   h# 2 encode-int encode+ h# 0 encode-int encode+ h# 0 encode-int encode+ h# 50000000 encode-int encode+ h# 10000000 encode-int encode+
   h# 3 encode-int encode+ h# 0 encode-int encode+ h# 0 encode-int encode+ h# 60000000 encode-int encode+ h# 10000000 encode-int encode+
   h# 4 encode-int encode+ h# 0 encode-int encode+ h# 0 encode-int encode+ h# 70000000 encode-int encode+ h# 10000000 encode-int encode+
   " ranges" property
  h# 0 encode-int h# 10001000 encode-int encode+ h# 00000028 encode-int encode+ " reg" property
  external
  : open cr ." opening SBus" cr true ;
  : close ;
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;
finish-device

" /iommu/sbus" find-device
new-device
  " SUNW,CS4231" device-name
  " serial" device-type
  5 encode-int 0 encode-int encode+ " intr" property
  5 encode-int " interrupts" property
  h# 3 encode-int h# 0c000000 encode-int encode+ h# 00000040 encode-int encode+ " reg" property
  " audio" encode-string " alias" property
finish-device

" /iommu/sbus" find-device
new-device
  " SUNW,bpp" device-name
  h# 4 encode-int h# 0c800000 encode-int encode+ h# 0000001c encode-int encode+ " reg" property
  h# 33 encode-int 0 encode-int encode+ " intr" property
finish-device

" /iommu/sbus" find-device
new-device
  " SUNW,tcx" device-name
  " display" device-type
  h# 1d encode-int " vbporch" property
  h# 90 encode-int " hbporch" property
  h# 06 encode-int " vsync" property
  h# 88 encode-int " hsync" property
  h# 03 encode-int " vfporch" property
  h# 18 encode-int " hfporch" property
  h# 03dfd240 encode-int " pixfreq" property
  h# 3c encode-int " vfreq" property
  h# 300 encode-int " height" property
  h# 400 encode-int " width" property
  h# 400 encode-int " linebytes" property
  d# 24 encode-int " depth" property
  " no" encode-string " tcx-8-bit" property
  5 encode-int 0 encode-int encode+ " intr" property
  5 encode-int " interrupts" property
  2 encode-int h# 00800000 encode-int encode+ h# 00100000 encode-int encode+
  2 encode-int encode+ h# 02000000 encode-int encode+ h# 00000001 encode-int encode+
   2 encode-int encode+ h# 04000000 encode-int encode+ h# 00800000 encode-int encode+
   2 encode-int encode+ h# 06000000 encode-int encode+ h# 00800000 encode-int encode+
   2 encode-int encode+ h# 0a000000 encode-int encode+ h# 00000001 encode-int encode+
   2 encode-int encode+ h# 0c000000 encode-int encode+ h# 00000001 encode-int encode+
   2 encode-int encode+ h# 0e000000 encode-int encode+ h# 00000001 encode-int encode+
   2 encode-int encode+ h# 00700000 encode-int encode+ h# 00001000 encode-int encode+
   2 encode-int encode+ h# 00200000 encode-int encode+ h# 00000004 encode-int encode+
   2 encode-int encode+ h# 00300000 encode-int encode+ h# 0000081c encode-int encode+
   2 encode-int encode+ h# 00000000 encode-int encode+ h# 00010000 encode-int encode+
   2 encode-int encode+ h# 00240000 encode-int encode+ h# 00000004 encode-int encode+
   2 encode-int encode+ h# 00280000 encode-int encode+ h# 00000001 encode-int encode+
   " reg" property
finish-device

" /iommu/sbus" find-device
new-device
  " espdma" device-name
  h# 4 encode-int h# 08400000 encode-int encode+ h# 00000010 encode-int encode+ " reg" property
  external
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;
finish-device

" /iommu/sbus" find-device
new-device
  " ledma" device-name
  h# 4 encode-int h# 08400010 encode-int encode+ h# 00000020 encode-int encode+ " reg" property
  h# 3f encode-int " burst-sizes" property
  external
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;
finish-device

" /iommu/sbus/ledma" find-device
new-device
  " le" device-name
  " network" device-type
  h# 4 encode-int h# 08c00000 encode-int encode+ h# 00000004 encode-int encode+ " reg" property
  h# 7 encode-int " busmaster-regval" property
  h# 26 encode-int 0 encode-int encode+ " intr" property
finish-device

" /iommu/sbus" find-device
new-device
  \ disabled with xxx, bad interactions with Linux
  " xxxpower-management" device-name
  h# 4 encode-int h# 0a000000 encode-int encode+ h# 00000010 encode-int encode+ " reg" property
finish-device


\ obio (on-board IO)
" /" find-device
new-device
  " obio" device-name
  " hierarchical" device-type
  2 encode-int " #address-cells" property
  1 encode-int " #size-cells" property
  h# 0 encode-int h# 0 encode-int encode+ h# 0 encode-int encode+ h# 71000000 encode-int encode+ h# 01000000 encode-int encode+
   " ranges" property
  external
  : open cr ." opening obio" cr true ;
  : close ;
  : encode-unit encode-unit-sbus ;
  : decode-unit decode-unit-sbus ;
finish-device

" /obio" find-device
new-device
  " SUNW,fdtwo" device-name
  " block" device-type
  h# 0 encode-int h# 00400000 encode-int encode+ h# 0000000f encode-int encode+ " reg" property
  h# 2b encode-int 0 encode-int encode+ " intr" property
finish-device

" /obio" find-device
new-device
  " auxio" device-name
  h# 0 encode-int h# 00900000 encode-int encode+ h# 00000001 encode-int encode+ " reg" property
finish-device

" /obio" find-device
new-device
  " counter" device-name
  h# 0 encode-int h# 00d00000 encode-int encode+ h# 00000010 encode-int encode+
  h# 0 encode-int encode+ h# 00d10000 encode-int encode+ h# 00000010 encode-int encode+
   " reg" property
finish-device

" /obio" find-device
new-device
  " eeprom" device-name
  h# 0 encode-int h# 00200000 encode-int encode+ h# 00002000 encode-int encode+ " reg" property
  " mk48t08" model
finish-device

" /obio" find-device
new-device
  " interrupt" device-name
  h# 0 encode-int h# 00e00000 encode-int encode+ h# 00000010 encode-int encode+
  h# 0 encode-int encode+ h# 00e10000 encode-int encode+ h# 00000010 encode-int encode+
   " reg" property
finish-device

" /obio" find-device
new-device
  " power" device-name
  h# 0 encode-int h# 00910000 encode-int encode+ h# 00000001 encode-int encode+ " reg" property
  h# 22 encode-int 0 encode-int encode+ " intr" property
finish-device

" /obio" find-device
new-device
  " slavioconfig" device-name
  h# 0 encode-int h# 00800000 encode-int encode+ h# 00000001 encode-int encode+ " reg" property
finish-device

" /obio" find-device
new-device
  " zs" device-name
  " serial" device-type
  h# 0 encode-int h# 00000000 encode-int encode+ h# 00000008 encode-int encode+ " reg" property
  1 encode-int " slave" property
  h# 2c encode-int 0 encode-int encode+ " intr" property
  1 encode-int " keyboard" property
  1 encode-int " mouse" property
finish-device

" /obio" find-device
new-device
  " zs" device-name
  " serial" device-type
  h# 0 encode-int h# 00100000 encode-int encode+ h# 00000008 encode-int encode+ " reg" property
  0 encode-int " slave" property
  h# 2c encode-int 0 encode-int encode+ " intr" property
finish-device