;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Copyright (C) KolibriOS team 2004-2021. 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 = 64 ; Must be a power of 2, and minimum 8 TX_RING_SIZE = 64 ; 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 ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; align 16 proc transmit stdcall bufferptr spin_lock_irqsave 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 spin_unlock_irqrestore xor eax, eax ret .fail: call clean_tx DEBUGF 2,"Send failed\n" invoke NetFree, [bufferptr] spin_unlock_irqrestore or eax, -1 ret endp ;;;;;;;;;;;;;;;;;;;;;;; ;; ;; ;; Interrupt handler ;; ;; ;; ;;;;;;;;;;;;;;;;;;;;;;; align 16 int_handler: push ebx esi edi mov ebx, [esp+4*4] DEBUGF 1,"INT for 0x%x\n", ebx ; TODO? if we are paranoid, we can check that the value from ebx is present in the current device_list mov edi, [ebx + device.mmio_addr] mov eax, [edi + REG_ICR] cmp eax, 0xffffffff ; if so, hardware is no longer present je .nothing ; test eax, eax jz .nothing DEBUGF 1,"Status: %x\n", 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 .nothing: pop edi esi ebx xor eax, 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