Subversion Repositories Kolibri OS

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

;;                                                                 ;;

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

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

;;                                                                 ;;

;;  i8254x driver for KolibriOS                                    ;;

;;                                                                 ;;

;;  based on i8254x.asm from baremetal os                          ;;

;;                                                                 ;;

;;    Written by hidnplayr (hidnplayr@gmail.com)                   ;;

;;                                                                 ;;

;;          GNU GENERAL PUBLIC LICENSE                             ;;

;;             Version 2, June 1991                                ;;

;;                                                                 ;;

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

format PE DLL native

entry START

        CURRENT_API             = 0x0200

        COMPATIBLE_API          = 0x0100

        API_VERSION             = (COMPATIBLE_API shl 16) + CURRENT_API

        MAX_DEVICES             = 16

        __DEBUG__               = 1

        __DEBUG_LEVEL__         = 2             ; 1 = verbose, 2 = errors only

        MAX_PKT_SIZE            = 1514          ; Maximum packet size

        RX_RING_SIZE            = 8             ; Must be a power of 2, and minimum 8

        TX_RING_SIZE            = 8             ; Must be a power of 2, and minimum 8

section '.flat' readable writable executable

include '../proc32.inc'

include '../struct.inc'

include '../macros.inc'

include '../fdo.inc'

include '../netdrv.inc'

; Register list

REG_CTRL                = 0x0000 ; Control Register

REG_STATUS              = 0x0008 ; Device Status Register

REG_CTRLEXT             = 0x0018 ; Extended Control Register

REG_MDIC                = 0x0020 ; MDI Control Register

REG_FCAL                = 0x0028 ; Flow Control Address Low

REG_FCAH                = 0x002C ; Flow Control Address High

REG_FCT                 = 0x0030 ; Flow Control Type

REG_VET                 = 0x0038 ; VLAN Ether Type

REG_ICR                 = 0x00C0 ; Interrupt Cause Read

REG_ITR                 = 0x00C4 ; Interrupt Throttling Register

REG_ICS                 = 0x00C8 ; Interrupt Cause Set Register

REG_IMS                 = 0x00D0 ; Interrupt Mask Set/Read Register

REG_IMC                 = 0x00D8 ; Interrupt Mask Clear Register

REG_RCTL                = 0x0100 ; Receive Control Register

REG_FCTTV               = 0x0170 ; Flow Control Transmit Timer Value

REG_TXCW                = 0x0178 ; Transmit Configuration Word

REG_RXCW                = 0x0180 ; Receive Configuration Word

REG_TCTL                = 0x0400 ; Transmit Control Register

REG_TIPG                = 0x0410 ; Transmit Inter Packet Gap

REG_LEDCTL              = 0x0E00 ; LED Control

REG_PBA                 = 0x1000 ; Packet Buffer Allocation

REG_RDBAL               = 0x2800 ; RX Descriptor Base Address Low

REG_RDBAH               = 0x2804 ; RX Descriptor Base Address High

REG_RDLEN               = 0x2808 ; RX Descriptor Length

REG_RDH                 = 0x2810 ; RX Descriptor Head

REG_RDT                 = 0x2818 ; RX Descriptor Tail

REG_RDTR                = 0x2820 ; RX Delay Timer Register

REG_RXDCTL              = 0x3828 ; RX Descriptor Control

REG_RADV                = 0x282C ; RX Int. Absolute Delay Timer

REG_RSRPD               = 0x2C00 ; RX Small Packet Detect Interrupt

REG_TXDMAC              = 0x3000 ; TX DMA Control

REG_TDBAL               = 0x3800 ; TX Descriptor Base Address Low

REG_TDBAH               = 0x3804 ; TX Descriptor Base Address High

REG_TDLEN               = 0x3808 ; TX Descriptor Length

REG_TDH                 = 0x3810 ; TX Descriptor Head

REG_TDT                 = 0x3818 ; TX Descriptor Tail

REG_TIDV                = 0x3820 ; TX Interrupt Delay Value

REG_TXDCTL              = 0x3828 ; TX Descriptor Control

REG_TADV                = 0x382C ; TX Absolute Interrupt Delay Value

REG_TSPMT               = 0x3830 ; TCP Segmentation Pad & Min Threshold

REG_RXCSUM              = 0x5000 ; RX Checksum Control

; Register list for i8254x

I82542_REG_RDTR         = 0x0108 ; RX Delay Timer Register

I82542_REG_RDBAL        = 0x0110 ; RX Descriptor Base Address Low

I82542_REG_RDBAH        = 0x0114 ; RX Descriptor Base Address High

I82542_REG_RDLEN        = 0x0118 ; RX Descriptor Length

I82542_REG_RDH          = 0x0120 ; RDH for i82542

I82542_REG_RDT          = 0x0128 ; RDT for i82542

I82542_REG_TDBAL        = 0x0420 ; TX Descriptor Base Address Low

I82542_REG_TDBAH        = 0x0424 ; TX Descriptor Base Address Low

I82542_REG_TDLEN        = 0x0428 ; TX Descriptor Length

I82542_REG_TDH          = 0x0430 ; TDH for i82542

I82542_REG_TDT          = 0x0438 ; TDT for i82542

; CTRL - Control Register (0x0000)

CTRL_FD                 = 0x00000001 ; Full Duplex

CTRL_LRST               = 0x00000008 ; Link Reset

CTRL_ASDE               = 0x00000020 ; Auto-speed detection

CTRL_SLU                = 0x00000040 ; Set Link Up

CTRL_ILOS               = 0x00000080 ; Invert Loss of Signal

CTRL_SPEED_MASK         = 0x00000300 ; Speed selection

CTRL_SPEED_SHIFT        = 8

CTRL_FRCSPD             = 0x00000800 ; Force Speed

CTRL_FRCDPLX            = 0x00001000 ; Force Duplex

CTRL_SDP0_DATA          = 0x00040000 ; SDP0 data

CTRL_SDP1_DATA          = 0x00080000 ; SDP1 data

CTRL_SDP0_IODIR         = 0x00400000 ; SDP0 direction

CTRL_SDP1_IODIR         = 0x00800000 ; SDP1 direction

CTRL_RST                = 0x04000000 ; Device Reset

CTRL_RFCE               = 0x08000000 ; RX Flow Ctrl Enable

CTRL_TFCE               = 0x10000000 ; TX Flow Ctrl Enable

CTRL_VME                = 0x40000000 ; VLAN Mode Enable

CTRL_PHY_RST            = 0x80000000 ; PHY reset

; STATUS - Device Status Register (0x0008)

STATUS_FD               = 0x00000001 ; Full Duplex

STATUS_LU               = 0x00000002 ; Link Up

STATUS_TXOFF            = 0x00000010 ; Transmit paused

STATUS_TBIMODE          = 0x00000020 ; TBI Mode

STATUS_SPEED_MASK       = 0x000000C0 ; Link Speed setting

STATUS_SPEED_SHIFT      = 6

STATUS_ASDV_MASK        = 0x00000300 ; Auto Speed Detection

STATUS_ASDV_SHIFT       = 8

STATUS_PCI66            = 0x00000800 ; PCI bus speed

STATUS_BUS64            = 0x00001000 ; PCI bus width

STATUS_PCIX_MODE        = 0x00002000 ; PCI-X mode

STATUS_PCIXSPD_MASK     = 0x0000C000 ; PCI-X speed

STATUS_PCIXSPD_SHIFT    = 14

; CTRL_EXT - Extended Device Control Register (0x0018)

CTRLEXT_PHY_INT         = 0x00000020 ; PHY interrupt

CTRLEXT_SDP6_DATA       = 0x00000040 ; SDP6 data

CTRLEXT_SDP7_DATA       = 0x00000080 ; SDP7 data

CTRLEXT_SDP6_IODIR      = 0x00000400 ; SDP6 direction

CTRLEXT_SDP7_IODIR      = 0x00000800 ; SDP7 direction

CTRLEXT_ASDCHK          = 0x00001000 ; Auto-Speed Detect Chk

CTRLEXT_EE_RST          = 0x00002000 ; EEPROM reset

CTRLEXT_SPD_BYPS        = 0x00008000 ; Speed Select Bypass

CTRLEXT_RO_DIS          = 0x00020000 ; Relaxed Ordering Dis.

CTRLEXT_LNKMOD_MASK     = 0x00C00000 ; Link Mode

CTRLEXT_LNKMOD_SHIFT    = 22

; MDIC - MDI Control Register (0x0020)

MDIC_DATA_MASK          = 0x0000FFFF ; Data

MDIC_REG_MASK           = 0x001F0000 ; PHY Register

MDIC_REG_SHIFT          = 16

MDIC_PHY_MASK           = 0x03E00000 ; PHY Address

MDIC_PHY_SHIFT          = 21

MDIC_OP_MASK            = 0x0C000000 ; Opcode

MDIC_OP_SHIFT           = 26

MDIC_R                  = 0x10000000 ; Ready

MDIC_I                  = 0x20000000 ; Interrupt Enable

MDIC_E                  = 0x40000000 ; Error

; ICR - Interrupt Cause Read (0x00c0)

ICR_TXDW                = 0x00000001 ; TX Desc Written back

ICR_TXQE                = 0x00000002 ; TX Queue Empty

ICR_LSC                 = 0x00000004 ; Link Status Change

ICR_RXSEQ               = 0x00000008 ; RX Sence Error

ICR_RXDMT0              = 0x00000010 ; RX Desc min threshold reached

ICR_RXO                 = 0x00000040 ; RX Overrun

ICR_RXT0                = 0x00000080 ; RX Timer Interrupt

ICR_MDAC                = 0x00000200 ; MDIO Access Complete

ICR_RXCFG               = 0x00000400

ICR_PHY_INT             = 0x00001000 ; PHY Interrupt

ICR_GPI_SDP6            = 0x00002000 ; GPI on SDP6

ICR_GPI_SDP7            = 0x00004000 ; GPI on SDP7

ICR_TXD_LOW             = 0x00008000 ; TX Desc low threshold hit

ICR_SRPD                = 0x00010000 ; Small RX packet detected

; RCTL - Receive Control Register (0x0100)

RCTL_EN                 = 0x00000002 ; Receiver Enable

RCTL_SBP                = 0x00000004 ; Store Bad Packets

RCTL_UPE                = 0x00000008 ; Unicast Promiscuous Enabled

RCTL_MPE                = 0x00000010 ; Xcast Promiscuous Enabled

RCTL_LPE                = 0x00000020 ; Long Packet Reception Enable

RCTL_LBM_MASK           = 0x000000C0 ; Loopback Mode

RCTL_LBM_SHIFT          = 6

RCTL_RDMTS_MASK         = 0x00000300 ; RX Desc Min Threshold Size

RCTL_RDMTS_SHIFT        = 8

RCTL_MO_MASK            = 0x00003000 ; Multicast Offset

RCTL_MO_SHIFT           = 12

RCTL_BAM                = 0x00008000 ; Broadcast Accept Mode

RCTL_BSIZE_MASK         = 0x00030000 ; RX Buffer Size

RCTL_BSIZE_SHIFT        = 16

RCTL_VFE                = 0x00040000 ; VLAN Filter Enable

RCTL_CFIEN              = 0x00080000 ; CFI Enable

RCTL_CFI                = 0x00100000 ; Canonical Form Indicator Bit

RCTL_DPF                = 0x00400000 ; Discard Pause Frames

RCTL_PMCF               = 0x00800000 ; Pass MAC Control Frames

RCTL_BSEX               = 0x02000000 ; Buffer Size Extension

RCTL_SECRC              = 0x04000000 ; Strip Ethernet CRC

; TCTL - Transmit Control Register (0x0400)

TCTL_EN                 = 0x00000002 ; Transmit Enable

TCTL_PSP                = 0x00000008 ; Pad short packets

TCTL_SWXOFF             = 0x00400000 ; Software XOFF Transmission

; PBA - Packet Buffer Allocation (0x1000)

PBA_RXA_MASK            = 0x0000FFFF ; RX Packet Buffer

PBA_RXA_SHIFT           = 0

PBA_TXA_MASK            = 0xFFFF0000 ; TX Packet Buffer

PBA_TXA_SHIFT           = 16

; Flow Control Type

FCT_TYPE_DEFAULT        = 0x8808

; === TX Descriptor ===

struct TDESC

        addr_l          dd ?

        addr_h          dd ?

        length_cso_cmd  dd ?    ; 16 bits length + 8 bits cso + 8 bits cmd

        status          dd ?    ; status, checksum start field, special

ends

; TX Packet Length (word 2)

TXDESC_LEN_MASK         = 0x0000ffff

; TX Descriptor CMD field (word 2)

TXDESC_IDE              = 0x80000000 ; Interrupt Delay Enable

TXDESC_VLE              = 0x40000000 ; VLAN Packet Enable

TXDESC_DEXT             = 0x20000000 ; Extension

TXDESC_RPS              = 0x10000000 ; Report Packet Sent

TXDESC_RS               = 0x08000000 ; Report Status

TXDESC_IC               = 0x04000000 ; Insert Checksum

TXDESC_IFCS             = 0x02000000 ; Insert FCS

TXDESC_EOP              = 0x01000000 ; End Of Packet

; TX Descriptor STA field (word 3)

TXDESC_TU               = 0x00000008 ; Transmit Underrun

TXDESC_LC               = 0x00000004 ; Late Collision

TXDESC_EC               = 0x00000002 ; Excess Collisions

TXDESC_DD               = 0x00000001 ; Descriptor Done

; === RX Descriptor ===

struct RDESC

        addr_l          dd ?

        addr_h          dd ?

        status_l        dd ?

        status_h        dd ?

ends

; RX Packet Length (word 2)

RXDESC_LEN_MASK         = 0x0000ffff

; RX Descriptor STA field (word 3)

RXDESC_PIF              = 0x00000080 ; Passed In-exact Filter

RXDESC_IPCS             = 0x00000040 ; IP cksum calculated

RXDESC_TCPCS            = 0x00000020 ; TCP cksum calculated

RXDESC_VP               = 0x00000008 ; Packet is 802.1Q

RXDESC_IXSM             = 0x00000004 ; Ignore cksum indication

RXDESC_EOP              = 0x00000002 ; End Of Packet

RXDESC_DD               = 0x00000001 ; Descriptor Done

struct  device          ETH_DEVICE

        mmio_addr       dd ?

        pci_bus         dd ?

        pci_dev         dd ?

        irq_line        db ?

        cur_rx          dd ?

        cur_tx          dd ?

        last_tx         dd ?

        rb 0x100 - ($ and 0xff) ; align 256

        rx_desc         rb RX_RING_SIZE*sizeof.RDESC*2

        rb 0x100 - ($ and 0xff) ; align 256

        tx_desc         rb TX_RING_SIZE*sizeof.TDESC*2

ends

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

;;                        ;;

;; proc START             ;;

;;                        ;;

;; (standard driver proc) ;;

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

proc START c, reason:dword, cmdline:dword

        cmp     [reason], DRV_ENTRY

        jne     .fail

        DEBUGF  1,"Loading driver\n"

        invoke  RegService, my_service, service_proc

        ret

  .fail:

        xor     eax, eax

        ret

endp

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

;;                        ;;

;; proc SERVICE_PROC      ;;

;;                        ;;

;; (standard driver proc) ;;

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

align 4

proc service_proc stdcall, ioctl:dword

        mov     edx, [ioctl]

        mov     eax, [edx + IOCTL.io_code]

;------------------------------------------------------

        cmp     eax, 0 ;SRV_GETVERSION

        jne     @F

        cmp     [edx + IOCTL.out_size], 4

        jb      .fail

        mov     eax, [edx + IOCTL.output]

        mov     dword[eax], API_VERSION

        xor     eax, eax

        ret

;------------------------------------------------------

  @@:

        cmp     eax, 1 ;SRV_HOOK

        jne     .fail

        cmp     [edx + IOCTL.inp_size], 3               ; Data input must be at least 3 bytes

        jb      .fail

        mov     eax, [edx + IOCTL.input]

        cmp     byte[eax], 1                            ; 1 means device number and bus number (pci) are given

        jne     .fail                                   ; other types arent supported for this card yet

; check if the device is already listed

        mov     esi, device_list

        mov     ecx, [devices]

        test    ecx, ecx

        jz      .firstdevice

;        mov     eax, [edx + IOCTL.input]                ; get the pci bus and device numbers

        mov     ax, [eax+1]                             ;

  .nextdevice:

        mov     ebx, [esi]

        cmp     al, byte[ebx + device.pci_bus]

        jne     .next

        cmp     ah, byte[ebx + device.pci_dev]

        je      .find_devicenum                         ; Device is already loaded, let's find it's device number

  .next:

        add     esi, 4

        loop    .nextdevice

; This device doesnt have its own eth_device structure yet, lets create one

  .firstdevice:

        cmp     [devices], MAX_DEVICES                  ; First check if the driver can handle one more card

        jae     .fail

        allocate_and_clear ebx, sizeof.device, .fail    ; Allocate the buffer for device structure

; Fill in the direct call addresses into the struct

        mov     [ebx + device.reset], reset

        mov     [ebx + device.transmit], transmit

        mov     [ebx + device.unload], unload

        mov     [ebx + device.name], my_service

; save the pci bus and device numbers

        mov     eax, [edx + IOCTL.input]

        movzx   ecx, byte[eax+1]

        mov     [ebx + device.pci_bus], ecx

        movzx   ecx, byte[eax+2]

        mov     [ebx + device.pci_dev], ecx

; Now, it's time to find the base mmio addres of the PCI device

        stdcall PCI_find_mmio, [ebx + device.pci_bus], [ebx + device.pci_dev] ; returns in eax

        test    eax, eax

        jz      .destroy

; Create virtual mapping of the physical memory

        invoke  MapIoMem, eax, 10000h, PG_SW+PG_NOCACHE

        mov     [ebx + device.mmio_addr], eax

; We've found the mmio address, find IRQ now

        invoke  PciRead8, [ebx + device.pci_bus], [ebx + device.pci_dev], PCI_header00.interrupt_line

        mov     [ebx + device.irq_line], al

        DEBUGF  1,"Hooking into device, dev:%x, bus:%x, irq:%x, addr:%x\n",\

        [ebx + device.pci_dev]:1,[ebx + device.pci_bus]:1,[ebx + device.irq_line]:1,[ebx + device.mmio_addr]:8

; Ok, the eth_device structure is ready, let's probe the device

        call    probe                                   ; this function will output in eax

        test    eax, eax

        jnz     .err                                    ; If an error occured, exit

        mov     eax, [devices]                          ; Add the device structure to our device list

        mov     [device_list+4*eax], ebx                ; (IRQ handler uses this list to find device)

        inc     [devices]                               ;

        call    start_i8254x

        test    eax, eax

        jnz     .destroy

        mov     [ebx + device.type], NET_TYPE_ETH

        invoke  NetRegDev

        cmp     eax, -1

        je      .destroy

        ret

; If the device was already loaded, find the device number and return it in eax

  .find_devicenum:

        DEBUGF  1,"Trying to find device number of already registered device\n"

        invoke  NetPtrToNum                             ; This kernel procedure converts a pointer to device struct in ebx

                                                        ; into a device number in edi

        mov     eax, edi                                ; Application wants it in eax instead

        DEBUGF  1,"Kernel says: %u\n", eax

        ret

; If an error occured, remove all allocated data and exit (returning -1 in eax)

  .destroy:

        ; todo: reset device into virgin state

  .err:

        invoke  KernelFree, ebx

  .fail:

        DEBUGF  2,"Loading driver failed\n"

        or      eax, -1

        ret

;------------------------------------------------------

endp

;;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\;;

;;                                                                        ;;

;;        Actual Hardware dependent code starts here                      ;;

;;                                                                        ;;

;;/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\/\;;

align 4

unload:

        DEBUGF  1,"Unload\n"

        ; TODO: (in this particular order)

        ;

        ; - Stop the device

        ; - Detach int handler

        ; - Remove device from local list (device_list)

        ; - call unregister function in kernel

        ; - Remove all allocated structures and buffers the card used

        or      eax, -1

        ret

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

;;

;;  probe: enables the device (if it really is I8254X)

;;

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

align 4

probe:

        DEBUGF  1,"Probe\n"

; Make the device a bus master

        invoke  PciRead32, [ebx + device.pci_bus], [ebx + device.pci_dev], PCI_header00.command

        or      al, PCI_CMD_MASTER

        invoke  PciWrite32, [ebx + device.pci_bus], [ebx + device.pci_dev], PCI_header00.command, eax

        ; TODO: validate the device

        call    read_mac

        movzx   eax, [ebx + device.irq_line]

        DEBUGF  1,"Attaching int handler to irq %x\n", eax:1

        invoke  AttachIntHandler, eax, int_handler, ebx

        test    eax, eax

        jnz     @f

        DEBUGF  2,"Could not attach int handler!\n"

        or      eax, -1

        ret

  @@:

reset_dontstart:

        DEBUGF  1,"Reset\n"

        mov     esi, [ebx + device.mmio_addr]

        or      dword[esi + REG_CTRL], CTRL_RST         ; reset device

  .loop:

        push    esi

        xor     esi, esi

        inc     esi

        invoke  Sleep

        pop     esi

        test    dword[esi + REG_CTRL], CTRL_RST

        jnz     .loop

        mov     dword[esi + REG_IMC], 0xffffffff        ; Disable all interrupt causes

        mov     eax, dword [esi + REG_ICR]              ; Clear any pending interrupts

        mov     dword[esi + REG_ITR], 0                 ; Disable interrupt throttling logic

        mov     dword[esi + REG_PBA], 0x00000004        ; PBA: set the RX buffer size to 4KB (TX buffer is calculated as 64-RX buffer)

        mov     dword[esi + REG_RDTR], 0                ; RDTR: set no delay

        mov     dword[esi + REG_TXCW], 0x00008060       ; TXCW: TxConfigWord (Half/Full duplex, Next Page Reqest)

        mov     eax, [esi + REG_CTRL]

        or      eax, 1 shl 6 + 1 shl 5

        and     eax, not (1 shl 3 + 1 shl 7 + 1 shl 30 + 1 shl 31)

        mov     dword [esi + REG_CTRL], eax             ; CTRL: clear LRST, set SLU and ASDE, clear RSTPHY, VME, and ILOS

        lea     edi, [esi + 0x5200]                     ; MTA: reset

        mov     eax, 0xffffffff

        stosd

        stosd

        stosd

        stosd

        call    init_rx

        test    eax, eax

        jnz     .fail

        call    init_tx

        xor     eax, eax

  .fail:

        ret

align 4

init_rx:

        lea     edi, [ebx + device.rx_desc]

        mov     ecx, RX_RING_SIZE

  .loop:

        push    ecx

        push    edi

        invoke  NetAlloc, MAX_PKT_SIZE+NET_BUFF.data

        test    eax, eax

        jz      .out_of_mem

        DEBUGF  1,"RX buffer: 0x%x\n", eax

        pop     edi

        mov     dword[edi + RX_RING_SIZE*sizeof.RDESC], eax

        push    edi

        invoke  GetPhysAddr

        pop     edi

        add     eax, NET_BUFF.data

        mov     [edi + RDESC.addr_l], eax

        mov     [edi + RDESC.addr_h], 0

        mov     [edi + RDESC.status_l], 0

        mov     [edi + RDESC.status_h], 0

        add     edi, sizeof.RDESC

        pop     ecx

        dec     ecx

        jnz     .loop

        mov     [ebx + device.cur_rx], 0

        lea     eax, [ebx + device.rx_desc]

        invoke  GetPhysAddr

        mov     dword[esi + REG_RDBAL], eax                             ; Receive Descriptor Base Address Low

        mov     dword[esi + REG_RDBAH], 0                               ; Receive Descriptor Base Address High

        mov     dword[esi + REG_RDLEN], RX_RING_SIZE*sizeof.RDESC       ; Receive Descriptor Length

        mov     dword[esi + REG_RDH], 0                                 ; Receive Descriptor Head

        mov     dword[esi + REG_RDT], RX_RING_SIZE-1                    ; Receive Descriptor Tail

        mov     dword[esi + REG_RCTL], RCTL_SBP or RCTL_BAM or RCTL_SECRC or RCTL_UPE or RCTL_MPE

        ; Store Bad Packets, Broadcast Accept Mode, Strip Ethernet CRC from incoming packet, Promiscuous mode

        xor     eax, eax        ; success!

        ret

  .out_of_mem:

        DEBUGF  2,"Out of memory!\n"

        pop     edi ecx

        or      eax, -1         ; error!

        ret

align 4

init_tx:

        lea     edi, [ebx + device.tx_desc]

        mov     ecx, TX_RING_SIZE

  .loop:

        mov     [edi + TDESC.addr_l], eax

        mov     [edi + TDESC.addr_h], 0

        mov     [edi + TDESC.length_cso_cmd], 0

        mov     [edi + TDESC.status], 0

        add     edi, sizeof.TDESC

        dec     ecx

        jnz     .loop

        mov     [ebx + device.cur_tx], 0

        mov     [ebx + device.last_tx], 0

        lea     eax, [ebx + device.tx_desc]

        invoke  GetPhysAddr

        mov     dword[esi + REG_TDBAL], eax                             ; Transmit Descriptor Base Address Low

        mov     dword[esi + REG_TDBAH], 0                               ; Transmit Descriptor Base Address High

        mov     dword[esi + REG_TDLEN], RX_RING_SIZE*sizeof.TDESC       ; Transmit Descriptor Length

        mov     dword[esi + REG_TDH], 0                                 ; Transmit Descriptor Head

        mov     dword[esi + REG_TDT], 0                                 ; Transmit Descriptor Tail

        mov     dword[esi + REG_TCTL], 0x010400fa                       ; Enabled, Pad Short Packets, 15 retrys, 64-byte COLD, Re-transmit on Late Collision

        mov     dword[esi + REG_TIPG], 0x0060200A                       ; IPGT 10, IPGR1 8, IPGR2 6

        ret

align 4

reset:

        call    reset_dontstart

        test    eax, eax

        je      start_i8254x

        ret

align 4

start_i8254x:

        mov     esi, [ebx + device.mmio_addr]

        or      dword[esi + REG_RCTL], RCTL_EN          ; Enable the receiver

        xor     eax, eax

        mov     [esi + REG_RDTR], eax                   ; Clear the Receive Delay Timer Register

        mov     [esi + REG_RADV], eax                   ; Clear the Receive Interrupt Absolute Delay Timer

        mov     [esi + REG_RSRPD], eax                  ; Clear the Receive Small Packet Detect Interrupt

        mov     dword[esi + REG_IMS], 0x1F6DC           ; Enable interrupt types

        mov     eax, [esi + REG_ICR]                    ; Clear pending interrupts

        mov     [ebx + device.mtu], 1514

        call    link_status

        xor     eax, eax

        ret

align 4

read_mac:

        DEBUGF  1,"Read MAC\n"

        mov     esi, [ebx + device.mmio_addr]

        mov     eax, [esi+0x5400]                       ; RAL

        test    eax, eax

        jz      .try_eeprom

        mov     dword[ebx + device.mac], eax

        mov     eax, [esi+0x5404]                       ; RAH

        mov     word[ebx + device.mac+4], ax

        jmp     .mac_ok

  .try_eeprom:

        mov     dword[esi+0x14], 0x00000001

        mov     eax, [esi+0x14]

        shr     eax, 16

        mov     word[ebx + device.mac], ax

        mov     dword[esi+0x14], 0x00000101

        mov     eax, [esi+0x14]

        shr     eax, 16

        mov     word[ebx + device.mac+2], ax

        mov     dword[esi+0x14], 0x00000201

        mov     eax, [esi+0x14]

        shr     eax, 16

        mov     word[ebx + device.mac+4], ax

  .mac_ok:

        DEBUGF  1,"MAC = %x-%x-%x-%x-%x-%x\n",\

        [ebx + device.mac+0]:2,[ebx + device.mac+1]:2,[ebx + device.mac+2]:2,\

        [ebx + device.mac+3]:2,[ebx + device.mac+4]:2,[ebx + device.mac+5]:2

        ret

link_status:

        DEBUGF  1,"Verifying link status\n"

        xor     ecx, ecx                        ; ETH_LINK_DOWN

        mov     esi, [ebx + device.mmio_addr]

        mov     eax, [esi + REG_STATUS]

        test    eax, STATUS_LU

        jz      .ok

        test    eax, STATUS_FD

        jz      @f

        or      cl, ETH_LINK_FD

  @@:

        shr     eax, STATUS_SPEED_SHIFT

        and     al, 3

        test    al, al

        jnz     @f

        or      cl, ETH_LINK_10M

        jmp     .ok

  @@:

        cmp     al, 1

        jne     @f

        or      cl, ETH_LINK_100M

        jmp     .ok

  @@:

        or      cl, ETH_LINK_1G

;        jmp     .ok

  .ok:

        mov     [ebx + device.state], ecx

        invoke  NetLinkChanged

        ret

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

;;                                         ;;

;; Transmit                                ;;

;;                                         ;;

;; In:  ebx = pointer to device structure  ;;

;; Out: eax = 0 on success                 ;;

;;                                         ;;

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

proc transmit stdcall bufferptr

        pushf

        cli

        mov     esi, [bufferptr]

        DEBUGF  1,"Transmitting packet, buffer:%x, size:%u\n", [bufferptr], [esi + NET_BUFF.length]

        lea     eax, [esi + NET_BUFF.data]

        DEBUGF  1,"To: %x-%x-%x-%x-%x-%x From: %x-%x-%x-%x-%x-%x Type:%x%x\n",\

        [eax+00]:2,[eax+01]:2,[eax+02]:2,[eax+03]:2,[eax+04]:2,[eax+05]:2,\

        [eax+06]:2,[eax+07]:2,[eax+08]:2,[eax+09]:2,[eax+10]:2,[eax+11]:2,\

        [eax+13]:2,[eax+12]:2

        cmp     [esi + NET_BUFF.length], 1514

        ja      .fail

        cmp     [esi + NET_BUFF.length], 60

        jb      .fail

; Program the descriptor (use legacy mode)

        mov     edi, [ebx + device.cur_tx]

        DEBUGF  1, "Using TX desc: %u\n", edi

        shl     edi, 4                                          ; edi = edi * sizeof.TDESC

        lea     edi, [ebx + device.tx_desc + edi]

        mov     eax, esi

        mov     dword[edi + TX_RING_SIZE*sizeof.TDESC], eax     ; Store the data location (for driver)

        add     eax, [eax + NET_BUFF.offset]

        invoke  GetPhysAddr

        mov     [edi + TDESC.addr_l], eax                       ; Data location (for hardware)

        mov     [edi + TDESC.addr_h], 0

        mov     ecx, [esi + NET_BUFF.length]

        or      ecx, TXDESC_EOP + TXDESC_IFCS + TXDESC_RS

        mov     [edi + TDESC.length_cso_cmd], ecx

        mov     [edi + TDESC.status], 0

; Tell i8254x wich descriptor(s) we programmed, by moving the tail

        mov     edi, [ebx + device.mmio_addr]

        mov     eax, [ebx + device.cur_tx]

        inc     eax

        and     eax, TX_RING_SIZE-1

        mov     [ebx + device.cur_tx], eax

        mov     dword[edi + REG_TDT], eax                        ; TDT - Transmit Descriptor Tail

; Update stats

        inc     [ebx + device.packets_tx]

        mov     eax, [esi + NET_BUFF.length]

        add     dword[ebx + device.bytes_tx], eax

        adc     dword[ebx + device.bytes_tx + 4], 0

        call    clean_tx

        popf

        xor     eax, eax

        ret

  .fail:

        call    clean_tx

        DEBUGF  2,"Send failed\n"

        invoke  NetFree, [bufferptr]

        popf

        or      eax, -1

        ret

endp

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

;;                   ;;

;; Interrupt handler ;;

;;                   ;;

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

align 4

int_handler:

        push    ebx esi edi

        DEBUGF  1,"INT\n"

;-------------------------------------------

; Find pointer of device wich made IRQ occur

        mov     ecx, [devices]

        test    ecx, ecx

        jz      .nothing

        mov     esi, device_list

  .nextdevice:

        mov     ebx, [esi]

        mov     edi, [ebx + device.mmio_addr]

        mov     eax, [edi + REG_ICR]

        test    eax, eax

        jnz     .got_it

  .continue:

        add     esi, 4

        dec     ecx

        jnz     .nextdevice

  .nothing:

        pop     edi esi ebx

        xor     eax, eax

        ret

  .got_it:

        DEBUGF  1,"Device: %x Status: %x\n", ebx, eax

;---------

; RX done?

        test    eax, ICR_RXDMT0 + ICR_RXT0

        jz      .no_rx

        push    eax ebx

  .retaddr:

        pop     ebx eax

; Get last descriptor addr

        mov     esi, [ebx + device.cur_rx]

        shl     esi, 4                                  ; esi = esi * sizeof.RDESC

        lea     esi, [ebx + device.rx_desc + esi]

        cmp     byte[esi + RDESC.status_h], 0           ; Check status field

        je      .no_rx

        push    eax ebx

        push    .retaddr

        movzx   ecx, word[esi + 8]                      ; Get the packet length

        DEBUGF  1,"got %u bytes\n", ecx

        mov     eax, [esi + RX_RING_SIZE*sizeof.RDESC]  ; Get packet pointer

        push    eax

        mov     [eax + NET_BUFF.length], ecx

        mov     [eax + NET_BUFF.device], ebx

        mov     [eax + NET_BUFF.offset], NET_BUFF.data

; Update stats

        add     dword[ebx + device.bytes_rx], ecx

        adc     dword[ebx + device.bytes_rx + 4], 0

        inc     [ebx + device.packets_rx]

; Allocate new descriptor

        push    esi

        invoke  NetAlloc, MAX_PKT_SIZE+NET_BUFF.data

        pop     esi

        test    eax, eax

        jz      .out_of_mem

        mov     dword[esi + RX_RING_SIZE*sizeof.RDESC], eax

        invoke  GetPhysAddr

        add     eax, NET_BUFF.data

        mov     [esi + RDESC.addr_l], eax

        mov     [esi + RDESC.status_l], 0

        mov     [esi + RDESC.status_h], 0

; Move the receive descriptor tail

        mov     esi, [ebx + device.mmio_addr]

        mov     eax, [ebx + device.cur_rx]

        mov     [esi + REG_RDT], eax

; Move to next rx desc

        inc     [ebx + device.cur_rx]

        and     [ebx + device.cur_rx], RX_RING_SIZE-1

        jmp     [EthInput]

  .out_of_mem:

        DEBUGF  2,"Out of memory!\n"

; Move to next rx desc

        inc     [ebx + device.cur_rx]

        and     [ebx + device.cur_rx], RX_RING_SIZE-1

        jmp     [EthInput]

  .no_rx:

;--------------

; Link Changed?

        test    eax, ICR_LSC

        jz      .no_link

        DEBUGF  2,"Link Changed\n"

        call    link_status

  .no_link:

;---------------

; Transmit done?

        test    eax, ICR_TXDW

        jz      .no_tx

        DEBUGF  1,"Transmit done\n"

;        call    clean_tx

  .no_tx:

        pop     edi esi ebx

        xor     eax, eax

        inc     eax

        ret

clean_tx:

  .txdesc_loop:

        mov     edi, [ebx + device.last_tx]

        shl     edi, 4                                  ; edi = edi * sizeof.TDESC

        lea     edi, [ebx + device.tx_desc + edi]

        test    [edi + TDESC.status], TXDESC_DD         ; Descriptor done?

        jz      .no_tx

        cmp     dword[edi + TX_RING_SIZE*sizeof.TDESC], 0

        je      .no_tx

        DEBUGF  1,"Cleaning up TX desc: 0x%x\n", edi

        push    ebx

        push    dword[edi + TX_RING_SIZE*sizeof.TDESC]

        mov     dword[edi + TX_RING_SIZE*sizeof.TDESC], 0

        invoke  NetFree

        pop     ebx

        inc     [ebx + device.last_tx]

        and     [ebx + device.last_tx], TX_RING_SIZE-1

        jmp     .txdesc_loop

  .no_tx:

        ret

; End of code

data fixups

end data

include '../peimport.inc'

include_debug_strings

my_service      db 'I8254X', 0          ; max 16 chars include zero

align 4

devices         dd 0

device_list     rd MAX_DEVICES          ; This list contains all pointers to device structures the driver is handling