Return to pci.fs CVS log

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

Annotation of qemu/roms/openbios/forth/util/pci.fs, revision 1.1

1.1     ! root        1: \ tag: PCI helper functions
        !             2: \ 
        !             3: \ Copyright (C) 2003-2004 Stefan Reinauer
        !             4: \ Copyright (C) 2003 Samuel Rydh
        !             5: \ 
        !             6: \ See the file "COPYING" for further information about
        !             7: \ the copyright and warranty status of this work.
        !             8: \ 
        !             9: 
        !            10: \ simple set of words for pci access, these are not 
        !            11: \ compliant to the PCI bus binding of OpenFirmware.
        !            12: 
        !            13: \ only forth
        !            14: \ vocabulary pci 
        !            15: \ also pci definitions
        !            16: 
        !            17: hex
        !            18: 
        !            19: : busdevfn ( bus dev fn -- busdevfn )
        !            20:   7 and swap 
        !            21:   1f and 3 << or       ( dev fn -- devfn )
        !            22:   swap 8 << or            ( bus devfn -- busdevfn )
        !            23:   ;
        !            24: 
        !            25: : config-command ( busdevfn reg -- reg addr )
        !            26:   dup -rot
        !            27:   3 invert and 
        !            28:   swap 8 << or 
        !            29:   80000000 or
        !            30:   ;
        !            31: 
        !            32: : pci-c@ ( busdevfn reg -- x )
        !            33:   config-command
        !            34:   cf8 iol!
        !            35:   3 and cfc + 
        !            36:   ioc@
        !            37:   ;
        !            38: 
        !            39: : pci-w@ ( busdevfn reg -- x )
        !            40:   config-command
        !            41:   cf8 iol!
        !            42:   2 and cfc + iow@
        !            43:   ;
        !            44: 
        !            45: : pci-l@ ( busdevfn reg -- x )
        !            46:   config-command
        !            47:   cf8 iol! 
        !            48:   drop
        !            49:   cfc iol@
        !            50:   ;
        !            51: 
        !            52: : pci-c! ( busdevfn reg val -- )
        !            53:   -rot config-command 
        !            54:   cf8 iol! 
        !            55:   3 and cfc + ioc!
        !            56:   ;
        !            57:   
        !            58: : pci-w! ( busdevfn reg val -- )
        !            59:   -rot config-command 
        !            60:   cf8 iol! 
        !            61:   2 and cfc + iow!
        !            62:   ;
        !            63:   
        !            64: : pci-l! ( busdevfn reg val -- )
        !            65:   -rot config-command 
        !            66:   cf8 iol! 
        !            67:   drop
        !            68:   cfc iol!
        !            69:   ;
        !            70:  
        !            71: : dump-pci-device ( bus dev fn -- )
        !            72:   2 pick (.) type 3a emit over 
        !            73:   (.) type 2e emit dup (.) type 20 emit 5b emit  \ 0:18.0 [
        !            74:   busdevfn >r
        !            75:   r@ 0 pci-w@ u. 2f emit r@ 2 pci-w@ u. 5d emit         \ 1022/1100]
        !            76:   r>
        !            77:   \ now we iterate
        !            78:   10 0 do
        !            79:     cr i todigit emit 30 emit 3a emit 20 emit
        !            80:     10 0 do
        !            81:       dup i j 4 << or  pci-c@ 
        !            82:       dup 4 >> todigit emit f and todigit emit
        !            83:       20 emit
        !            84:     loop
        !            85:   loop
        !            86:   drop
        !            87:   cr cr
        !            88:   ;
        !            89:   
        !            90: \ : test-pci
        !            91: \   0  2 0 dump-pci-device
        !            92: \   ;

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