Return to attu.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / SLOF / board-js2x / slof

Annotation of qemu/roms/SLOF/board-js2x/slof/attu.fs, revision 1.1

1.1     ! root        1: \ *****************************************************************************
        !             2: \ * Copyright (c) 2004, 2008 IBM Corporation
        !             3: \ * All rights reserved.
        !             4: \ * This program and the accompanying materials
        !             5: \ * are made available under the terms of the BSD License
        !             6: \ * which accompanies this distribution, and is available at
        !             7: \ * http://www.opensource.org/licenses/bsd-license.php
        !             8: \ *
        !             9: \ * Contributors:
        !            10: \ *     IBM Corporation - initial implementation
        !            11: \ ****************************************************************************/
        !            12: 
        !            13: \ U4 "Attu" PCIe root complex.
        !            14: 
        !            15: \ See the PCI OF binding document.
        !            16: 
        !            17: new-device
        !            18: 
        !            19: s" pciex" device-name s" pci" device-type
        !            20: s" U4-pcie" compatible
        !            21: s" U4" encode-string s" model" property
        !            22: 
        !            23: \ spare out 0xc0000000-0xefffffff for pcie
        !            24: f8070200 rl@ fffffff0 and f8070200 rl!
        !            25: \ enable io memory for pcie @ c0000000-efffffff
        !            26: 70000003 f80903f0 rl!-le
        !            27: 
        !            28: 3 encode-int s" #address-cells" property
        !            29: 2 encode-int s" #size-cells" property
        !            30: 
        !            31: s" /mpic" find-node encode-int s" interrupt-parent" property
        !            32: \ XXX should have interrupt map, etc.  this works for now though.
        !            33: 
        !            34: : decode-unit  2 hex-decode-unit  3 #join  8 lshift  0 0 rot F00000 + ;
        !            35: : encode-unit  nip nip  ff00 and 8 rshift  3 #split
        !            36:                over IF 2 ELSE nip 1 THEN hex-encode-unit ;
        !            37: 
        !            38: f1000000 CONSTANT my-puid
        !            39: \ Configuration space accesses.
        !            40: : >config  f1000000 + ;
        !            41: : config-l!  >config rl!-le ;
        !            42: : config-l@  >config rl@-le ;
        !            43: : config-w!  >config rw!-le ;
        !            44: : config-w@  >config rw@-le ;
        !            45: : config-b!  >config rb! ;
        !            46: : config-b@  >config rb@ ;
        !            47: 
        !            48: : config-dump ( addr size -- )  ['] config-l@ 4 (dump) ;
        !            49: 
        !            50: \ 16MB of configuration space
        !            51: f1000000 encode-64 1000000 encode-64+ s" reg" property
        !            52: 
        !            53: \ 4MB of I/O space.
        !            54: 01000000 encode-int  00000000 encode-int+ 00000000 encode-int+ 
        !            55: 00000000 encode-int+ f0000000 encode-int+ 
        !            56: 00000000 encode-int+ 00400000 encode-int+
        !            57: 
        !            58: \ 1.75GB of memory space @ c0000000.
        !            59: 02000000 encode-int+ c0000000 encode-64+
        !            60: c0000000 encode-64+  30000000 encode-64+ s" ranges" property
        !            61: 
        !            62: \ Host bridge, so full bus range.
        !            63: f0 encode-int ff encode-int+ s" bus-range" property
        !            64: 
        !            65: : open  true ;
        !            66: : close ;
        !            67: 
        !            68: \ : probe-pci-host-bridge ( bus-max bus-min mmio-max mmio-base mem-max mem-base io-max io-base my-puid -- )
        !            69: s" /mpic" find-node my-puid pci-irq-init drop
        !            70: 
        !            71: 00fff1f0 18 config-l!
        !            72: 
        !            73: ff F0 f0000000 e8000000 e8000000 c0000000 100000000 f000
        !            74: my-puid probe-pci-host-bridge
        !            75: 
        !            76: \ \ PCIe debug / fixup
        !            77: : find-pcie-cap  ( devfn -- offset | 0 )
        !            78:    >r 34  BEGIN  r@ + config-b@ dup ff <> over and  WHILE
        !            79:        dup r@ + config-b@ 10 =  IF
        !            80:           r> drop EXIT
        !            81:        THEN 1+
        !            82:    REPEAT r> 2drop 0
        !            83: ;
        !            84: 
        !            85:  : (set-ps) ( ps addr -- )
        !            86:    8 + >r 5 lshift r@ config-w@ ff1f and or r> config-w! ;
        !            87:  : set-ps ( ps -- )
        !            88:    log2 7 -
        !            89:    10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
        !            90:    + 2dup (set-ps) THEN drop LOOP drop ;
        !            91:  
        !            92:  : (set-rr) ( rr addr -- )
        !            93:    8 + >r c lshift r@ config-w@ 8fff and or r> config-w! ;
        !            94:  : set-rr ( rr -- )
        !            95:    log2 7 -
        !            96:    10000 0 DO i 8 lshift dup find-pcie-cap ?dup IF
        !            97:    + 2dup (set-rr) THEN drop LOOP drop ;
        !            98: 
        !            99: 80 set-ps  80 set-rr  
        !           100: 
        !           101: finish-device

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