forked from KolibriOS/kolibrios
351 lines
8.7 KiB
PHP
351 lines
8.7 KiB
PHP
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; ;;
|
|
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved. ;;
|
|
;; Distributed under terms of the GNU General Public License ;;
|
|
;; ;;
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
$Revision$
|
|
|
|
|
|
;***************************************************************************
|
|
;
|
|
; 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 |