;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                 ;;
;;  RTL8139.INC                                                    ;;
;;                                                                 ;;
;;  Ethernet driver for Menuet OS                                  ;;
;;                                                                 ;;
;;  Version 0.2  11 August 2003                                    ;;
;;                                                                 ;;
;;  Driver for chips of RealTek 8139 family                        ;;
;;  References:                                                    ;;
;;    www.realtek.com.hw - data sheets                             ;;
;;    rtl8139.c - linux driver                                     ;;
;;    8139too.c - linux driver                                     ;;
;;    ethernet driver template by Mike Hibbett                     ;;
;;                                                                 ;;
;;  The copyright statement is                                     ;;
;;                                                                 ;;
;;          GNU GENERAL PUBLIC LICENSE                             ;;
;;             Version 2, June 1991                                ;;
;;                                                                 ;;
;;  Copyright 2003 Endre Kozma,                                    ;;
;;   endre.kozma@axelero.hu                                        ;;
;;                                                                 ;;
;;  See file COPYING for details                                   ;;
;;                                                                 ;;
;;  10.01.2007 Bugfix for l8139_transmit from Paolo Franchetti     ;;
;;                                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
	ETH_ALEN	       equ 6
	ETH_HLEN	       equ (2 * ETH_ALEN + 2)
	ETH_ZLEN	       equ 60 ; 60 + 4bytes auto payload for
				      ; mininmum 64bytes frame length

	PCI_REG_COMMAND        equ 0x04 ; command register
	PCI_BIT_PIO	       equ 0 ; bit0: io space control
	PCI_BIT_MMIO	       equ 1 ; bit1: memory space control
	PCI_BIT_MASTER	       equ 2 ; bit2: device acts as a PCI master

	RTL8139_REG_MAR0       equ 0x08 ; multicast filter register 0
	RTL8139_REG_MAR4       equ 0x0c ; multicast filter register 4
	RTL8139_REG_TSD0       equ 0x10 ; transmit status of descriptor
	RTL8139_REG_TSAD0      equ 0x20 ; transmit start address of descriptor
	RTL8139_REG_RBSTART    equ 0x30 ; RxBuffer start address
	RTL8139_REG_COMMAND    equ 0x37 ; command register
	RTL8139_REG_CAPR       equ 0x38 ; current address of packet read
	RTL8139_REG_IMR        equ 0x3c ; interrupt mask register
	RTL8139_REG_ISR        equ 0x3e ; interrupt status register
	RTL8139_REG_TXCONFIG   equ 0x40 ; transmit configuration register
	RTL8139_REG_TXCONFIG_0 equ 0x40 ; transmit configuration register 0
	RTL8139_REG_TXCONFIG_1 equ 0x41 ; transmit configuration register 1
	RTL8139_REG_TXCONFIG_2 equ 0x42 ; transmit configuration register 2
	RTL8139_REG_TXCONFIG_3 equ 0x43 ; transmit configuration register 3
	RTL8139_REG_RXCONFIG   equ 0x44 ; receive configuration register 0
	RTL8139_REG_RXCONFIG_0 equ 0x44 ; receive configuration register 0
	RTL8139_REG_RXCONFIG_1 equ 0x45 ; receive configuration register 1
	RTL8139_REG_RXCONFIG_2 equ 0x46 ; receive configuration register 2
	RTL8139_REG_RXCONFIG_3 equ 0x47 ; receive configuration register 3
	RTL8139_REG_MPC        equ 0x4c ; missed packet counter
	RTL8139_REG_9346CR     equ 0x50 ; serial eeprom 93C46 command register
	RTL8139_REG_CONFIG1    equ 0x52 ; configuration register 1
	RTL8139_REG_CONFIG4    equ 0x5a ; configuration register 4
	RTL8139_REG_HLTCLK     equ 0x5b ; undocumented halt clock register
	RTL8139_REG_BMCR       equ 0x62 ; basic mode control register
	RTL8139_REG_ANAR       equ 0x66 ; auto negotiation advertisement register

; 5.1 packet header
	RTL8139_BIT_RUNT       equ 4 ; total packet length < 64 bytes
	RTL8139_BIT_LONG       equ 3 ; total packet length > 4k
	RTL8139_BIT_CRC        equ 2 ; crc error occured
	RTL8139_BIT_FAE        equ 1 ; frame alignment error occured
	RTL8139_BIT_ROK        equ 0 ; received packet is ok
; 5.4 command register
	RTL8139_BIT_RST        equ 4 ; reset bit
	RTL8139_BIT_RE	       equ 3 ; receiver enabled
	RTL8139_BIT_TE	       equ 2 ; transmitter enabled
	RTL8139_BIT_BUFE       equ 0 ; rx buffer is empty, no packet stored
; 5.6 interrupt status register
	RTL8139_BIT_ISR_TOK    equ 2 ; transmit ok
	RTL8139_BIT_ISR_RER    equ 1 ; receive error interrupt
	RTL8139_BIT_ISR_ROK    equ 0 ; receive ok
; 5.7 transmit configyration register
	RTL8139_BIT_TX_MXDMA   equ 8 ; Max DMA burst size per Tx DMA burst
	RTL8139_BIT_TXRR       equ 4 ; Tx Retry count 16+(TXRR*16)
; 5.8 receive configuration register
	RTL8139_BIT_RXFTH      equ 13 ; Rx fifo threshold
	RTL8139_BIT_RBLEN      equ 11 ; Ring buffer length indicator
	RTL8139_BIT_RX_MXDMA   equ 8 ; Max DMA burst size per Rx DMA burst
	RTL8139_BIT_NOWRAP     equ 7 ; transfered data wrapping
	RTL8139_BIT_9356SEL    equ 6 ; eeprom selector 9346/9356
	RTL8139_BIT_AER        equ 5 ; accept error packets
	RTL8139_BIT_AR	       equ 4 ; accept runt packets
	RTL8139_BIT_AB	       equ 3 ; accept broadcast packets
	RTL8139_BIT_AM	       equ 2 ; accept multicast packets
	RTL8139_BIT_APM        equ 1 ; accept physical match packets
	RTL8139_BIT_AAP        equ 0 ; accept all packets
; 5.9 93C46/93C56 command register
	RTL8139_BIT_93C46_EEM1 equ 7 ; RTL8139 eeprom operating mode1
	RTL8139_BIT_93C46_EEM0 equ 6 ; RTL8139 eeprom operating mode0
	RTL8139_BIT_93C46_EECS equ 3 ; chip select
	RTL8139_BIT_93C46_EESK equ 2 ; serial data clock
	RTL8139_BIT_93C46_EEDI equ 1 ; serial data input
	RTL8139_BIT_93C46_EEDO equ 0 ; serial data output
; 5.11 configuration register 1
	RTL8139_BIT_LWACT      equ 4 ; see RTL8139_REG_CONFIG1
	RTL8139_BIT_SLEEP      equ 1 ; sleep bit at older chips
	RTL8139_BIT_PWRDWN     equ 0 ; power down bit at older chips
	RTL8139_BIT_PMEn       equ 0 ; power management enabled
; 5.14 configuration register 4
	RTL8139_BIT_LWPTN      equ 2 ; see RTL8139_REG_CONFIG4
; 6.2 transmit status register
	RTL8139_BIT_ERTXTH     equ 16 ; early TX threshold
	RTL8139_BIT_TOK        equ 15 ; transmit ok
	RTL8139_BIT_OWN        equ 13 ; tx DMA operation is completed
; 6.18 basic mode control register
	RTL8139_BIT_ANE        equ 12 ; auto negotiation enable
; 6.20 auto negotiation advertisement register
	RTL8139_BIT_TXFD       equ 8 ; 100base-T full duplex
	RTL8139_BIT_TX	       equ 7 ; 100base-T
	RTL8139_BIT_10FD       equ 6 ; 10base-T full duplex
	RTL8139_BIT_10	       equ 5 ; 10base-T
	RTL8139_BIT_SELECTOR   equ 0 ; binary encoded selector CSMA/CD=00001
; RX/TX buffer size
	RTL8139_RBLEN	       equ 0 ; 0==8K 1==16k 2==32k 3==64k
	RTL8139_RX_BUFFER_SIZE equ (8192 shl RTL8139_RBLEN)
	MAX_ETH_FRAME_SIZE     equ 1516 ; exactly 1514 wthout CRC
	RTL8139_NUM_TX_DESC    equ 4
	RTL8139_TX_BUFFER_SIZE equ (MAX_ETH_FRAME_SIZE * RTL8139_NUM_TX_DESC)
	RTL8139_TXRR	       equ 8 ; total retries = 16+(TXRR*16)
	RTL8139_TX_MXDMA       equ 6 ; 0==16 1==32 2==64 3==128
				     ; 4==256 5==512 6==1024 7==2048
	RTL8139_ERTXTH	       equ 8 ; in unit of 32 bytes e.g:(8*32)=256
	RTL8139_RX_MXDMA       equ 7 ; 0==16 1==32 2==64 3==128
				     ; 4==256 5==512 6==1024 7==unlimited
	RTL8139_RXFTH	       equ 7 ; 0==16 1==32 2==64 3==128
				     ; 4==256 5==512 6==1024 7==no threshold
	RTL8139_RX_CONFIG      equ ((RTL8139_RBLEN shl RTL8139_BIT_RBLEN) \
				    or (RTL8139_RX_MXDMA shl RTL8139_BIT_RX_MXDMA) \
				    or (1 shl RTL8139_BIT_NOWRAP) \
				    or (RTL8139_RXFTH shl RTL8139_BIT_RXFTH) \
				    or (1 shl RTL8139_BIT_AB) or (1 shl RTL8139_BIT_APM) \
				    or (1 shl RTL8139_BIT_AER) or (1 shl RTL8139_BIT_AR) \
				    or (1 shl RTL8139_BIT_AM))
	RTL8139_TX_TIMEOUT     equ 30 ; 300 milliseconds timeout

	EE_93C46_REG_ETH_ID    equ 7 ; MAC offset
	EE_93C46_READ_CMD      equ (6 shl 6) ; 110b + 6bit address
	EE_93C56_READ_CMD      equ (6 shl 8) ; 110b + 8bit address
	EE_93C46_CMD_LENGTH    equ 9 ; start bit + cmd + 6bit address
	EE_93C56_CMD_LENGTH    equ 11 ; start bit + cmd + 8bit ddress

	VER_RTL8139	       equ 1100000b
	VER_RTL8139A	       equ 1110000b
;       VER_RTL8139AG          equ 1110100b
	VER_RTL8139B	       equ 1111000b
	VER_RTL8130	       equ VER_RTL8139B
	VER_RTL8139C	       equ 1110100b
	VER_RTL8100	       equ 1111010b
	VER_RTL8100B	       equ 1110101b
	VER_RTL8139D	       equ VER_RTL8100B
	VER_RTL8139CP	       equ 1110110b
	VER_RTL8101	       equ 1110111b

	IDX_RTL8139	       equ 0
	IDX_RTL8139A	       equ 1
	IDX_RTL8139B	       equ 2
	IDX_RTL8139C	       equ 3
	IDX_RTL8100	       equ 4
	IDX_RTL8139D	       equ 5
	IDX_RTL8139D	       equ 6
	IDX_RTL8101	       equ 7


; These two must be 4 byte aligned ( which they are )
rtl8139_rx_buff     equ     eth_data_start
rtl8139_tx_buff     equ     rtl8139_rx_buff + (RTL8139_RX_BUFFER_SIZE + MAX_ETH_FRAME_SIZE)

uglobal
	align	4
rtl8139_rx_buff_offset: dd 0
curr_tx_desc dd 0
endg

iglobal
hw_ver_array: db VER_RTL8139, VER_RTL8139A, VER_RTL8139B, VER_RTL8139C
	      db VER_RTL8100, VER_RTL8139D, VER_RTL8139CP, VER_RTL8101
HW_VER_ARRAY_SIZE = $-hw_ver_array
endg

uglobal
hw_ver_id: db 0
endg

;***************************************************************************
;   Function
;      rtl8139_probe
;   Description
;      Searches for an ethernet card, enables it and clears the rx buffer
;      If a card was found, it enables the ethernet -> TCPIP link
;   Destroyed registers
;      eax, ebx, ecx, edx
;
;***************************************************************************
rtl8139_probe:
; enable the device
	mov	al, 2
	mov	ah, [pci_bus]
	mov	bh, [pci_dev]
	mov	bl, PCI_REG_COMMAND
	call	pci_read_reg
	mov	cx, ax
	or	cl, (1 shl PCI_BIT_MASTER) or (1 shl PCI_BIT_PIO)
	and	cl, not (1 shl PCI_BIT_MMIO)
	mov	al, 2
	mov	ah, [pci_bus]
	mov	bh, [pci_dev]
	mov	bl, PCI_REG_COMMAND
	call	pci_write_reg
; get chip version
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_TXCONFIG_2
	in	ax, dx
	shr	ah, 2
	shr	ax, 6
	and	al, 01111111b
	mov	ecx, HW_VER_ARRAY_SIZE-1
.chip_ver_loop:
	cmp	al, [hw_ver_array+ecx]
	je	.chip_ver_found
	dec	ecx
	jns	.chip_ver_loop
	xor	cl, cl ; default RTL8139
.chip_ver_found:
	mov	[hw_ver_id], cl
; wake up the chip
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_HLTCLK
	mov	al, 'R' ; run the clock
	out	dx, al
; unlock config and BMCR registers
	add	edx, RTL8139_REG_9346CR - RTL8139_REG_HLTCLK
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) or (1 shl RTL8139_BIT_93C46_EEM0)
	out	dx, al
; enable power management
	add	edx, RTL8139_REG_CONFIG1 - RTL8139_REG_9346CR
	in	al, dx
	cmp	byte [hw_ver_id], IDX_RTL8139B
	jl	.old_chip
; set LWAKE pin to active high (default value).
; it is for Wake-On-LAN functionality of some motherboards.
; this signal is used to inform the motherboard to execute a wake-up process.
; only at newer chips.
	or	al, (1 shl RTL8139_BIT_PMEn)
	and	al, not (1 shl RTL8139_BIT_LWACT)
	out	dx, al
	add	edx, RTL8139_REG_CONFIG4 - RTL8139_REG_CONFIG1
	in	al, dx
	and	al, not (1 shl RTL8139_BIT_LWPTN)
	out	dx, al
	jmp	.finish_wake_up
.old_chip:
; wake up older chips
	and	al, not ((1 shl RTL8139_BIT_SLEEP) or (1 shl RTL8139_BIT_PWRDWN))
	out	dx, al
.finish_wake_up:
; lock config and BMCR registers
	xor	al, al
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_9346CR
	out	dx, al
;***************************************************************************
;   Function
;      rt8139_reset
;   Description
;      Place the chip (ie, the ethernet card) into a virgin state
;   Destroyed registers
;      eax, ebx, ecx, edx
;
;***************************************************************************
rtl8139_reset:
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_COMMAND
	mov	al, 1 shl RTL8139_BIT_RST
	out	dx, al
	mov	cx, 1000 ; wait no longer for the reset
.wait_for_reset:
	in	al, dx
	test	al, 1 shl RTL8139_BIT_RST
	jz	.reset_completed ; RST remains 1 during reset
	dec	cx
	jns	.wait_for_reset
.reset_completed:
; get MAC (hardware address)
	mov	ecx, 2
.mac_read_loop:
	lea	eax, [EE_93C46_REG_ETH_ID+ecx]
	push	ecx
	call	rtl8139_read_eeprom
	pop	ecx
	mov	[node_addr+ecx*2], ax
	dec	ecx
	jns	.mac_read_loop
; unlock config and BMCR registers
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_9346CR
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) or (1 shl RTL8139_BIT_93C46_EEM0)
	out	dx, al
; initialize multicast registers (no filtering)
	mov	eax, 0xffffffff
	add	edx, RTL8139_REG_MAR0 - RTL8139_REG_9346CR
	out	dx, eax
	add	edx, RTL8139_REG_MAR4 - RTL8139_REG_MAR0
	out	dx, eax
; enable Rx/Tx
	mov	al, (1 shl RTL8139_BIT_RE) or (1 shl RTL8139_BIT_TE)
	add	edx, RTL8139_REG_COMMAND - RTL8139_REG_MAR4
	out	dx, al
; 32k Rxbuffer, unlimited dma burst, no wrapping, no rx threshold
; accept broadcast packets, accept physical match packets
	mov	ax, RTL8139_RX_CONFIG
	add	edx, RTL8139_REG_RXCONFIG - RTL8139_REG_COMMAND
	out	dx, ax
; 1024 bytes DMA burst, total retries = 16 + 8 * 16 = 144
	mov	ax, (RTL8139_TX_MXDMA shl RTL8139_BIT_TX_MXDMA) \
		    or (RTL8139_TXRR shl RTL8139_BIT_TXRR)
	add	edx, RTL8139_REG_TXCONFIG - RTL8139_REG_RXCONFIG
	out	dx, ax
; enable auto negotiation
	add	edx, RTL8139_REG_BMCR - RTL8139_REG_TXCONFIG
	in	ax, dx
	or	ax, (1 shl RTL8139_BIT_ANE)
	out	dx, ax
; set auto negotiation advertisement
	add	edx, RTL8139_REG_ANAR - RTL8139_REG_BMCR
	in	ax, dx
	or	ax, (1 shl RTL8139_BIT_SELECTOR) or (1 shl RTL8139_BIT_10) \
		    or (1 shl RTL8139_BIT_10FD) or (1 shl RTL8139_BIT_TX) \
		    or (1 shl RTL8139_BIT_TXFD)
	out	dx, ax
; lock config and BMCR registers
	xor	eax, eax
	add	edx, RTL8139_REG_9346CR - RTL8139_REG_ANAR
	out	dx, al
; init RX/TX pointers
	mov	[rtl8139_rx_buff_offset], eax
	mov	[curr_tx_desc], eax
; clear missing packet counter
	add	edx, RTL8139_REG_MPC - RTL8139_REG_9346CR
	out	dx, eax
; disable all interrupts
	add	edx, RTL8139_REG_IMR - RTL8139_REG_MPC
	out	dx, ax
; set RxBuffer address, init RX buffer offset, init TX ring
	mov	eax, rtl8139_rx_buff
	add	edx, RTL8139_REG_RBSTART - RTL8139_REG_IMR
	out	dx, eax
; Indicate that we have successfully reset the card
	mov	eax, [pci_data]
	mov	[eth_status], eax
	ret

;***************************************************************************
;   Function
;      rtl8139_read_eeprom
;   Description
;      reads eeprom type 93c46 and 93c56
;   Parameters
;      al - word to be read (6bit in case of 93c46 and 8bit otherwise)
;   Return value
;      ax - word read in
;   Destroyed register(s)
;      eax, cx, ebx, edx
;
;***************************************************************************
rtl8139_read_eeprom:
	movzx	ebx, al
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_RXCONFIG
	in	al, dx
	test	al, (1 shl RTL8139_BIT_9356SEL)
	jz	.type_93c46
;       and     bl, 01111111b ; don't care first bit
	or	bx, EE_93C56_READ_CMD ; it contains start bit
	mov	cx, EE_93C56_CMD_LENGTH-1 ; cmd_loop counter
	jmp	.read_eeprom
.type_93c46:
	and	bl, 00111111b
	or	bx, EE_93C46_READ_CMD ; it contains start bit
	mov	cx, EE_93C46_CMD_LENGTH-1 ; cmd_loop counter
.read_eeprom:
	add	edx, RTL8139_REG_9346CR - RTL8139_REG_RXCONFIG_0
;       mov     al, (1 shl RTL8139_BIT_93C46_EEM1)
;       out     dx, al
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) \
		    or (1 shl RTL8139_BIT_93C46_EECS) ; wake up the eeprom
	out	dx, al
.cmd_loop:
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) or (1 shl RTL8139_BIT_93C46_EECS)
	bt	bx, cx
	jnc	.zero_bit
	or	al, (1 shl RTL8139_BIT_93C46_EEDI)
.zero_bit:
	out	dx, al
;       push    eax
;       in      eax, dx ; eeprom delay
;       pop     eax
	or	al, (1 shl RTL8139_BIT_93C46_EESK)
	out	dx, al
;       in      eax, dx ; eeprom delay
	dec	cx
	jns	.cmd_loop
;       in      eax, dx ; eeprom delay
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) or (1 shl RTL8139_BIT_93C46_EECS)
	out	dx, al
	mov	cl, 0xf
.read_loop:
	shl	ebx, 1
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) \
		    or (1 shl RTL8139_BIT_93C46_EECS) \
		    or (1 shl RTL8139_BIT_93C46_EESK)
	out	dx, al
;       in      eax, dx ; eeprom delay
	in	al, dx
	and	al, (1 shl RTL8139_BIT_93C46_EEDO)
	jz	.dont_set
	inc	ebx
.dont_set:
	mov	al, (1 shl RTL8139_BIT_93C46_EEM1) \
		    or (1 shl RTL8139_BIT_93C46_EECS)
	out	dx, al
;       in      eax, dx ; eeprom delay
	dec	cl
	jns	.read_loop
	xor	al, al
	out	dx, al
	mov	ax, bx
	ret

;***************************************************************************
;   Function
;      rtl8139_transmit
;   Description
;      Transmits a packet of data via the ethernet card
;         Pointer to 48 bit destination address in edi
;         Type of packet in bx
;         Size of packet in ecx
;         Pointer to packet data in esi
;   Destroyed registers
;      eax, edx, esi, edi
;   ToDo
;      for waiting of timeout the rtl8139 internal timer
;      should be used
;
;***************************************************************************
rtl8139_transmit:
	cmp	ecx, MAX_ETH_FRAME_SIZE
	jg	.finish ; packet is too long
	push	ecx
; check descriptor
	mov	ecx, [curr_tx_desc]
	mov	edx, [io_addr]
	lea	edx, [edx+ecx*4+RTL8139_REG_TSD0]
	push	edx ebx
	in	ax, dx
	test    ax, 0x1fff ; or no size given
      jz      .send_packet
      and	ax, (1 shl RTL8139_BIT_TOK) or (1 shl RTL8139_BIT_OWN)
	cmp	ax, (1 shl RTL8139_BIT_TOK) or (1 shl RTL8139_BIT_OWN)
	jz	.send_packet
; wait for timeout
	mov	ebx, RTL8139_TX_TIMEOUT
	mov	eax, 0x5 ; delay x/100 secs
	int	0x40
	in	ax, dx
	and	ax, (1 shl RTL8139_BIT_TOK) or (1 shl RTL8139_BIT_OWN)
	cmp	ax, (1 shl RTL8139_BIT_TOK) or (1 shl RTL8139_BIT_OWN)
	jz	.send_packet
; chip hung, reset it
	call	rtl8139_reset
; reset the card
.send_packet:
; calculate tx_buffer address
	pop	ebx
	push	esi
	mov	eax, MAX_ETH_FRAME_SIZE
	mul	dword [curr_tx_desc]
	mov	esi, edi
	lea	edi, [rtl8139_tx_buff+eax]
	mov	eax, edi
	cld
; copy destination address
	movsd
	movsw
; copy source address
	mov	esi, node_addr
	movsd
	movsw
; copy packet type
	mov	[edi], bx
	add	edi, 2
; copy the packet data
	pop	esi edx ecx
	push	ecx
	shr	ecx, 2
	rep	movsd
	pop	ecx
	push	ecx
	and	ecx, 3
	rep	movsb
; set address
	add	edx, RTL8139_REG_TSAD0 - RTL8139_REG_TSD0
	out	dx, eax
; set size and early threshold
	pop	eax ; pick up the size
	add	eax, ETH_HLEN
	cmp	eax, ETH_ZLEN
	jnc	.no_pad
	mov	eax, ETH_ZLEN
.no_pad:
	or	eax, (RTL8139_ERTXTH shl RTL8139_BIT_ERTXTH)
	add	edx, RTL8139_REG_TSD0 - RTL8139_REG_TSAD0
	out	dx, eax
; get next descriptor 0, 1, 2, 3, 0, 1, 2, 3, 0, 1, ...
	inc	dword [curr_tx_desc]
	and	dword [curr_tx_desc], 3
.finish:
	ret

;***************************************************************************
; Function
;    rtl8139_poll
;
; Description
;    Polls the ethernet card for a received packet
;    Received data, if any, ends up in Ether_buffer
; Destroyed register(s)
;    eax, edx, ecx
;
;***************************************************************************
rtl8139_poll:
	mov	word [eth_rx_data_len], 0
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_COMMAND
	in	al, dx
	test	al, (1 shl RTL8139_BIT_BUFE)
	jnz	.finish
; new packet received copy it from rx_buffer into Ether_buffer
	mov	eax, rtl8139_rx_buff
	add	eax, [rtl8139_rx_buff_offset]
; check if packet is ok
	test	byte [eax], (1 shl RTL8139_BIT_ROK)
	jz	.reset_rx
; packet is ok copy it into the Ether_buffer
	movzx	ecx, word [eax+2] ; packet length
	sub	ecx, 4 ; don't copy CRC
	mov	word [eth_rx_data_len], cx
	push	ecx
	shr	ecx, 2 ; first copy dword-wise
	lea	esi, [eax+4] ; don't copy the packet header
	mov	edi, Ether_buffer
	cld
	rep	movsd ; copy the dwords
	pop	ecx
	and	ecx, 3
	rep	movsb ; copy the rest bytes
; update rtl8139_rx_buff_offset
	movzx	eax, word [eax+2] ; packet length
	add	eax, [rtl8139_rx_buff_offset]
	add	eax, 4+3 ; packet header is 4 bytes long + dword alignment
	and	eax, not 3 ; dword alignment
	cmp	eax, RTL8139_RX_BUFFER_SIZE
	jl	.no_wrap
	sub	eax, RTL8139_RX_BUFFER_SIZE
.no_wrap:
	mov	[rtl8139_rx_buff_offset], eax
; update CAPR register
	sub	eax, 0x10 ; value 0x10 is a constant for CAPR
	add	edx, RTL8139_REG_CAPR - RTL8139_REG_COMMAND
	out	dx, ax
.finish:
; clear active interrupt sources
	mov	edx, [io_addr]
	add	edx, RTL8139_REG_ISR
	in	ax, dx
	out	dx, ax
	ret
.reset_rx:
	in	al, dx ; read command register
	push	eax
	and	al, not (1 shl RTL8139_BIT_RE)
	out	dx, al
	pop	eax
	out	dx, al
	add	edx, RTL8139_REG_RXCONFIG - RTL8139_REG_COMMAND
	mov	ax, RTL8139_RX_CONFIG
	out	dx, ax
	ret

rtl8139_cable:
	pusha
	mov	edx, [io_addr]
	add	edx, 0x58
	in	al,dx
	test	al,1 SHL 2
	jnz	.notconnected
	popa
	xor	al,al
	inc	al
	ret
       .notconnected:
	popa
	xor	al,al
	ret
