Subversion Repositories Kolibri OS

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;                                                              ;;

;; Copyright (C) KolibriOS team 2004-2011. All rights reserved. ;;

;; Distributed under terms of the GNU General Public License    ;;

;;                                                              ;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision: 2455 $

;***************************************************************************

;

;  PCI CODE FOLLOWS

;

;  the following functions provide access to the PCI interface.

;  These functions are used by scan_bus, and also some ethernet drivers

;

;***************************************************************************

; PCI Bus defines

PCI_HEADER_TYPE             equ     0x0e  ;8 bit

PCI_BASE_ADDRESS_0          equ     0x10  ;32 bit

PCI_BASE_ADDRESS_5          equ     0x24  ;32 bits

PCI_BASE_ADDRESS_SPACE_IO   equ     0x01

PCI_VENDOR_ID               equ     0x00  ;16 bit

PCI_BASE_ADDRESS_IO_MASK    equ     0xFFFFFFFC

;***************************************************************************

;   Function

;      config_cmd

;

;   Description

;       creates a command dword  for use with the PCI bus

;       bus # in ebx

;      devfn in ecx

;       where in edx

;

;      command dword returned in eax

;       Only eax destroyed

;***************************************************************************

config_cmd:

        push    ecx

        mov     eax, ebx

        shl     eax, 16

        or      eax, 0x80000000

        shl     ecx, 8

        or      eax, ecx

        pop     ecx

        or      eax, edx

        and     eax, 0xFFFFFFFC

        ret

;***************************************************************************

;   Function

;      pcibios_read_config_byte

;

;   Description

;       reads a byte from the PCI config space

;       bus # in ebx

;      devfn in ecx

;       where in edx ( ls 16 bits significant )

;

;      byte returned in al ( rest of eax zero )

;       Only eax/edx destroyed

;***************************************************************************

pcibios_read_config_byte:

        call    config_cmd

        push    dx

        mov     dx, 0xCF8

        out     dx, eax

        pop     dx

        xor     eax, eax

        and     dx, 0x03

        add     dx, 0xCFC

;   and     dx, 0xFFC

        in      al, dx

        ret

;***************************************************************************

;   Function

;      pcibios_read_config_word

;

;   Description

;       reads a word from the PCI config space

;       bus # in ebx

;      devfn in ecx

;       where in edx ( ls 16 bits significant )

;

;      word returned in ax ( rest of eax zero )

;       Only eax/edx destroyed

;***************************************************************************

pcibios_read_config_word:

        call    config_cmd

        push    dx

        mov     dx, 0xCF8

        out     dx, eax

        pop     dx

        xor     eax, eax

        and     dx, 0x02

        add     dx, 0xCFC

;   and     dx, 0xFFC

        in      ax, dx

        ret

;***************************************************************************

;   Function

;      pcibios_read_config_dword

;

;   Description

;       reads a dword from the PCI config space

;       bus # in ebx

;      devfn in ecx

;       where in edx ( ls 16 bits significant )

;

;      dword returned in eax

;       Only eax/edx destroyed

;***************************************************************************

pcibios_read_config_dword:

        push    edx

        call    config_cmd

        push    dx

        mov     dx, 0xCF8

        out     dx, eax

        pop     dx

        xor     eax, eax

        mov     dx, 0xCFC

        in      eax, dx

        pop     edx

        ret

;***************************************************************************

;   Function

;      pcibios_write_config_byte

;

;   Description

;       write a byte in al to the PCI config space

;       bus # in ebx

;      devfn in ecx

;       where in edx ( ls 16 bits significant )

;

;       Only eax/edx destroyed

;***************************************************************************

pcibios_write_config_byte:

        push    ax

        call    config_cmd

        push    dx

        mov     dx, 0xCF8

        out     dx, eax

        pop     dx

        pop     ax

        and     dx, 0x03

        add     dx, 0xCFC

        out     dx, al

        ret

;***************************************************************************

;   Function

;      pcibios_write_config_word

;

;   Description

;       write a word in ax to the PCI config space

;       bus # in ebx

;      devfn in ecx

;       where in edx ( ls 16 bits significant )

;

;       Only eax/edx destroyed

;***************************************************************************

pcibios_write_config_word:

        push    ax

        call    config_cmd

        push    dx

        mov     dx, 0xCF8

        out     dx, eax

        pop     dx

        pop     ax

        and     dx, 0x02

        add     dx, 0xCFC

        out     dx, ax

        ret

;***************************************************************************

;   Function

;      delay_us

;

;   Description

;       delays for 30 to 60 us

;

;        I would prefer this routine to be able to delay for

;       a selectable number of microseconds, but this works for now.

;

;       If you know a better way to do 2us delay, pleae tell me!

;***************************************************************************

delay_us:

        push    eax

        push    ecx

        mov     ecx, 2

        in      al, 0x61

        and     al, 0x10

        mov     ah, al

        cld

dcnt1:

        in      al, 0x61

        and     al, 0x10

        cmp     al, ah

        jz      dcnt1

        mov     ah, al

        loop    dcnt1

        pop     ecx

        pop     eax

        ret

;***************************************************************************

;   Function

;      scan_bus

;

;   Description

;       Scans the PCI bus for a supported device

;        If a supported device is found, the drvr_ variables are initialised

;       to that drivers functions ( as defined in the PCICards table)

;

;        io_addr   holds card I/O space. 32 bit, but only LS 16 bits valid

;        pci_data  holds the PCI vendor + device code

;       pci_dev   holds PCI bus dev #

;       pci_bus   holds PCI bus #

;

;        io_addr will be zero if no card found

;

;***************************************************************************

scan_bus:

        xor     eax, eax

        mov     [hdrtype], al

        mov     [pci_data], eax

        xor     ebx, ebx     ; ebx = bus# 0 .. 255

sb_bus_loop:

        xor     ecx, ecx     ; ecx = devfn# 0 .. 254  ( not 255? )

sb_devf_loop:

        mov     eax, ecx

        and     eax, 0x07

        cmp     eax, 0

        jne     sb_001

        mov     edx, PCI_HEADER_TYPE

        call    pcibios_read_config_byte

        mov     [hdrtype], al

        jmp     sb_002

sb_001:

        mov     al, [hdrtype]

        and     al, 0x80

        cmp     al, 0x80

        jne     sb_inc_devf

sb_002:

        mov     edx, PCI_VENDOR_ID

        call    pcibios_read_config_dword

        mov     [vendor_device], eax

        cmp     eax, 0xffffffff

        je      sb_empty

        cmp     eax, 0

        jne     sb_check_vendor

sb_empty:

        mov     [hdrtype], byte 0

        jmp     sb_inc_devf

sb_check_vendor:

    ; iterate though PCICards until end or match found

        mov     esi, PCICards

sb_check:

        cmp     [esi], dword 0

        je      sb_inc_devf            ; Quit if at last entry

        cmp     eax, [esi]

        je      sb_got_card

        add     esi, PCICARDS_ENTRY_SIZE

        jmp     sb_check

sb_got_card:

    ; indicate that we have found the card

        mov     [pci_data], eax

        mov     [pci_dev], ecx

        mov     [pci_bus], ebx

    ; Define the driver functions

        push    eax

        mov     eax, [esi+4]

        mov     [drvr_probe], eax

        mov     eax, [esi+8]

        mov     [drvr_reset], eax

        mov     eax, [esi+12]

        mov     [drvr_poll], eax

        mov     eax, [esi+16]

        mov     [drvr_transmit], eax

        mov     eax, [esi+20]

        mov     [drvr_cable], eax

        pop     eax

        mov     edx, PCI_BASE_ADDRESS_0

sb_reg_check:

        call    pcibios_read_config_dword

        mov     [io_addr], eax

        and     eax, PCI_BASE_ADDRESS_IO_MASK

        cmp     eax, 0

        je      sb_inc_reg

        mov     eax, [io_addr]

        and     eax, PCI_BASE_ADDRESS_SPACE_IO

        cmp     eax, 0

        je      sb_inc_reg

        mov     eax, [io_addr]

        and     eax, PCI_BASE_ADDRESS_IO_MASK

        mov     [io_addr], eax

sb_exit1:

        ret

sb_inc_reg:

        add     edx, 4

        cmp     edx, PCI_BASE_ADDRESS_5

        jbe     sb_reg_check

sb_inc_devf:

        inc     ecx

        cmp     ecx, 255

        jb      sb_devf_loop

        inc     ebx

        cmp     ebx, 256

        jb      sb_bus_loop

    ; We get here if we didn't find our card

    ; set io_addr to 0 as an indication

        xor     eax, eax

        mov     [io_addr], eax

sb_exit2:

        ret