;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                                                 ;;
;; Copyright (C) KolibriOS team 2004-2007. All rights reserved.    ;;
;; Distributed under terms of the GNU General Public License       ;;
;;                                                                 ;;
;;                                                                 ;;
;;  I8255X.INC                                                     ;;
;;                                                                 ;;
;;  Ethernet driver for Menuet OS                                  ;;
;;                                                                 ;;
;;  Version 0.3  11 August 2003                                    ;;
;;                                                                 ;;
;;  This driver is based on the eepro100 driver from               ;;
;;  the etherboot 5.0.6 project. The copyright statement is        ;;
;;                                                                 ;;
;;          GNU GENERAL PUBLIC LICENSE                             ;;
;;             Version 2, June 1991                                ;;
;;                                                                 ;;
;;  remaining parts Copyright 2002 Mike Hibbett,                   ;;
;;   mikeh@oceanfree.net                                           ;;
;;                                                                 ;;
;;  See file COPYING for details                                   ;;
;;                                                                 ;;
;;                                                                 ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

$Revision$


;********************************************************************
;   Interface
;      I8255x_reset
;      I8255x_probe
;      I8255x_poll
;      I8255x_transmit
;
;      These functions are referenced in ethernet.inc
;
;********************************************************************


rxfd_status		equ  eth_data_start
rxfd_command		equ  eth_data_start + 2
rxfd_link		equ  eth_data_start + 4
rxfd_rx_buf_addr	equ  eth_data_start + 8
rxfd_count		equ  eth_data_start + 12
rxfd_size		equ  eth_data_start + 14
rxfd_packet		equ  eth_data_start + 16



uglobal
eeprom_data:  times 16	dd 0

align 4

lstats:
tx_good_frames: dd 0
tx_coll16_errs:  dd 0
tx_late_colls: dd 0
tx_underruns: dd 0
tx_lost_carrier: dd 0
tx_deferred: dd 0
tx_one_colls: dd 0
tx_multi_colls: dd 0
tx_total_colls: dd 0
rx_good_frames: dd 0
rx_crc_errs: dd 0
rx_align_errs: dd 0
rx_resource_errs: dd 0
rx_overrun_errs: dd 0
rx_colls_errs: dd 0
rx_runt_errs: dd 0
done_marker: dd 0

align 4

confcmd:
confcmd_status: 	dw    0
confcmd_command:	dw    0
confcmd_link:		dd    0
endg

iglobal
confcmd_data:		db    22, 0x08, 0, 0, 0, 0x80, 0x32, 0x03, 1
			db    0, 0x2e, 0, 0x60, 0, 0xf2, 0x48, 0, 0x40, 0xf2
			db    0x80, 0x3f, 0x05
endg

uglobal
align 4

txfd:
txfd_status:		dw   0
txfd_command:		dw   0
txfd_link:		dd   0
txfd_tx_desc_addr:	dd   0
txfd_count:		dd   0
txfd_tx_buf_addr0:	dd   0
txfd_tx_buf_size0:	dd   0
txfd_tx_buf_addr1:	dd   0
txfd_tx_buf_size1:	dd   0

align 4

hdr:
hdr_dst_addr:		times 6 db 0
hdr_src_addr:		times 6 db 0
hdr_type:		dw   0
endg


;***************************************************************************
;   Function
;      wait_for_cmd_done
;
;   Description
;       waits for the hardware to complete a command
;       port address in edx
;
;       al destroyed
;***************************************************************************
wait_for_cmd_done:
   in	    al, dx
   cmp	    al, 0
   jne	    wait_for_cmd_done
   ret



;***************************************************************************
;   Function
;      mdio_read
;
;   Description
;       This probably reads a register in the "physical media interface chip"
;         Phy_id in ebx
;         location in ecx
;
;       Data returned in eax
;
;***************************************************************************
mdio_read:
   mov	    edx, [io_addr]
   add	    edx, 16	    ; SCBCtrlMDI

   mov	    eax, 0x08000000
   shl	    ecx, 16
   or	    eax, ecx
   shl	    ebx, 21
   or	    eax, ebx

   out	    dx, eax

mrlp:
   call     delay_us
   in	    eax, dx
   mov	    ecx, eax
   and	    ecx, 0x10000000
   jz	    mrlp

   and	    eax, 0xffff
   ret



;***************************************************************************
;   Function
;      mdio_write
;
;   Description
;       This probably writes a register in the "physical media interface chip"
;         Phy_id in ebx
;         location in ecx
;         data in edx
;       Data returned in eax
;
;***************************************************************************
mdio_write:
   mov	    eax, 0x04000000
   shl	    ecx, 16
   or	    eax, ecx
   shl	    ebx, 21
   or	    eax, ebx
   or	    eax, edx

   mov	    edx, [io_addr]
   add	    edx, 16	    ; SCBCtrlMDI
   out	    dx, eax

mwlp:
   call     delay_us
   in	    eax, dx
   mov	    ecx, eax
   and	    ecx, 0x10000000
   jz	    mwlp

   and	    eax, 0xffff
   ret



;/***********************************************************************/
;/*                       I82557 related defines                        */
;/***********************************************************************/

; Serial EEPROM section.
;   A "bit" grungy, but we work our way through bit-by-bit :->.
;  EEPROM_Ctrl bits.
EE_SHIFT_CLK	equ   0x01    ; EEPROM shift clock.
EE_CS		equ   0x02    ; EEPROM chip select.
EE_DATA_WRITE	equ   0x04    ; EEPROM chip data in.
EE_DATA_READ	equ   0x08    ; EEPROM chip data out.
EE_WRITE_0	equ   0x4802
EE_WRITE_1	equ   0x4806
EE_ENB		equ   0x4802


; The EEPROM commands include the alway-set leading bit.
EE_READ_CMD	equ   6

; The SCB accepts the following controls for the Tx and Rx units:
CU_START       equ   0x0010
CU_RESUME      equ   0x0020
CU_STATSADDR   equ   0x0040
CU_SHOWSTATS   equ   0x0050   ; Dump statistics counters.
CU_CMD_BASE    equ   0x0060   ; Base address to add to add CU commands.
CU_DUMPSTATS   equ   0x0070   ; Dump then reset stats counters.

RX_START       equ   0x0001
RX_RESUME      equ   0x0002
RX_ABORT       equ   0x0004
RX_ADDR_LOAD   equ   0x0006
RX_RESUMENR    equ   0x0007
INT_MASK       equ   0x0100
DRVR_INT       equ   0x0200   ; Driver generated interrupt.


;***************************************************************************
;   Function
;      do_eeprom_cmd
;
;   Description
;       writes a cmd to the ethernet cards eeprom, by bit bashing
;       cmd in ebx
;       cmd length in ecx
;       return in eax
;***************************************************************************
do_eeprom_cmd:
   mov	    edx, [io_addr]    ; We only require the value in dx
   add	    dx, 14	      ; the value SCBeeprom

   mov	    ax, EE_ENB
   out	    dx, ax
   call     delay_us

   mov	    ax, 0x4803	      ; EE_ENB | EE_SHIFT_CLK
   out	    dx, ax
   call     delay_us

    ; dx holds ee_addr
    ; ecx holds count
    ; eax holds cmd
   xor	    edi, edi	      ; this will be the receive data

dec_001:
   mov	    esi, 1

   dec	    ecx
   shl	    esi, cl
   inc	    ecx
   and	    esi, ebx
   mov	    eax, EE_WRITE_0   ; I am assuming this doesnt affect the flags..
   cmp	    esi,0
   jz	    dec_002
   mov	    eax, EE_WRITE_1

dec_002:
   out	    dx, ax
   call     delay_us

   or	    ax, EE_SHIFT_CLK
   out	    dx, ax
   call     delay_us

   shl	    edi,1

   in	    ax, dx
   and	    ax, EE_DATA_READ
   cmp	    ax,0
   jz	    dec_003
   inc	    edi

dec_003:
   loop     dec_001

   mov	    ax, EE_ENB
   out	    dx, ax
   call     delay_us

   mov	    ax, 0x4800
   out	    dx, ax
   call     delay_us

   mov	    eax, edi

   ret


;***************************************************************************
;   Function
;      I8255x_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
;
;***************************************************************************
I8255x_probe:
   DEBUGF 1," K : Probing i8255x device \n"
   mov	    eax, [io_addr]

   mov	    ebx, [pci_bus]
   mov	    ecx, [pci_dev]
   mov	    edx, 0x04	   ; PCI_COMMAND
   call     pcibios_read_config_word

   or	    ax, 0x05
   mov	    ebx, [pci_bus]
   mov	    ecx, [pci_dev]
   mov	    edx, 0x04	   ; PCI_COMMAND
   call     pcibios_write_config_word

   mov	    ebx, 0x6000000
   mov	    ecx, 27
   call     do_eeprom_cmd
   and	    eax, 0xffe0000
   cmp	    eax, 0xffe0000
   je	    bige

   mov	    ebx, 0x1800000
   mov	    ecx, 0x40
   jmp	    doread

bige:
   mov	    ebx, 0x6000000
   mov	    ecx, 0x100

doread:
   ; do-eeprom-cmd will destroy all registers
   ; we have eesize in ecx
   ; read_cmd in ebx

   ; Ignore full eeprom - just load the mac address
   mov	    ecx, 0

drlp:
   push     ecx      ; save count
   push     ebx
   mov	    eax, ecx
   shl	    eax, 16
   or	    ebx, eax
   mov	    ecx, 27
   call     do_eeprom_cmd

   pop	    ebx
   pop	    ecx

   mov	    edx, ecx
   shl	    edx, 2
   mov	    esi, eeprom_data
   add	    esi, edx
   mov	    [esi], eax

   inc	    ecx
   cmp	    ecx, 16
   jne	    drlp

   ; OK, we have the MAC address.
   ; Now reset the card

   mov	    edx, [io_addr]
   add	    dx, 8	  ; SCBPort
   xor	    eax, eax	  ; The reset cmd == 0
   out	    dx, eax

   mov	    esi, 10
   call     delay_ms	  ; Give the card time to warm up.

   mov	    eax, lstats
   mov	    edx, [io_addr]
   add	    edx, 4	      ; SCBPointer
   out	    dx, eax

   mov	    eax, 0x0140 	; INT_MASK | CU_STATSADDR
   mov	    edx, [io_addr]
   add	    edx, 2	      ; SCBCmd
   out	    dx, ax

   call     wait_for_cmd_done

   mov	    eax, 0
   mov	    edx, [io_addr]
   add	    edx, 4	      ; SCBPointer
   out	    dx, eax

   mov	    eax, 0x0106 	; INT_MASK | RX_ADDR_LOAD
   mov	    edx, [io_addr]
   add	    edx, 2	      ; SCBCmd
   out	    dx, ax

   call     wait_for_cmd_done

   ; build rxrd structure
   mov	    ax, 0x0001
   mov	    [rxfd_status], ax
   mov	    ax, 0x0000
   mov	    [rxfd_command], ax

   mov	    eax, rxfd_status
   sub	    eax, OS_BASE
   mov	    [rxfd_link], eax

   mov	    eax, Ether_buffer
   sub	    eax, OS_BASE
   mov	    [rxfd_rx_buf_addr], eax

   mov	    ax, 0
   mov	    [rxfd_count], ax

   mov	    ax, 1528
   mov	    [rxfd_size], ax

   mov	    edx, [io_addr]
   add	    edx, 4	     ; SCBPointer

   mov	    eax, rxfd_status
   sub	    eax, OS_BASE
   out	    dx, eax

   mov	    edx, [io_addr]
   add	    edx, 2	     ; SCBCmd

   mov	    ax, 0x0101	       ; INT_MASK | RX_START
   out	    dx, ax

   call     wait_for_cmd_done

   ; start the reciver

   mov	    ax, 0
   mov	    [rxfd_status], ax

   mov	    ax, 0xc000
   mov	    [rxfd_command], ax

   mov	    edx, [io_addr]
   add	    edx, 4	     ; SCBPointer

   mov	    eax, rxfd_status
   sub	    eax, OS_BASE
   out	    dx, eax

   mov	    edx, [io_addr]
   add	    edx, 2	     ; SCBCmd

   mov	    ax, 0x0101	       ; INT_MASK | RX_START
   out	    dx, ax

   ; Init TX Stuff

   mov	    edx, [io_addr]
   add	    edx, 4	     ; SCBPointer

   mov	    eax, 0
   out	    dx, eax

   mov	    edx, [io_addr]
   add	    edx, 2	     ; SCBCmd

   mov	    ax, 0x0160	       ; INT_MASK | CU_CMD_BASE
   out	    dx, ax

   call     wait_for_cmd_done

   ; Set TX Base address

   ; First, set up confcmd values

   mov	    ax, 2
   mov	    [confcmd_command], ax
   mov	    eax, txfd
   sub	    eax, OS_BASE
   mov	    [confcmd_link], eax

   mov	    ax, 1
   mov	    [txfd_command], ax	       ; CmdIASetup

   mov	    ax, 0
   mov	    [txfd_status], ax

   mov	    eax, confcmd
   sub	    eax, OS_BASE
   mov	    [txfd_link], eax



   ; ETH_ALEN is 6 bytes

   mov	    esi, eeprom_data
   mov	    edi, node_addr
   mov	    ecx, 3
drp000:
   mov	    eax, [esi]
   mov	    [edi], al
   shr	    eax, 8
   inc	    edi
   mov	    [edi], al
   inc	    edi
   add	    esi, 4
   loop     drp000

   ; Hard code your MAC address into node_addr at this point,
   ; If you cannot read the MAC address from the eeprom in the previous step.
   ; You also have to write the mac address into txfd_tx_desc_addr, rather
   ; than taking data from eeprom_data

   mov	    esi, eeprom_data
   mov	    edi, txfd_tx_desc_addr
   mov	    ecx, 3
drp001:
   mov	    eax, [esi]
   mov	    [edi], al
   shr	    eax, 8
   inc	    edi
   mov	    [edi], al
   inc	    edi
   add	    esi, 4
   loop     drp001


   mov	    esi, eeprom_data + (6 * 4)
   mov	    eax, [esi]
   shr	    eax, 8
   and	    eax, 0x3f
   cmp	    eax, 4	      ; DP83840
   je	    drp002
   cmp	    eax, 10	       ; DP83840A
   je	    drp002
   jmp	    drp003

drp002:
   mov	    ebx, [esi]
   and	    ebx, 0x1f
   push     ebx
   mov	    ecx, 23
   call     mdio_read
   pop	    ebx
   or	    eax, 0x0422
   mov	    ecx, 23
   mov	    edx, eax
   call     mdio_write

drp003:
   mov	    ax, 0x4002	       ; Cmdsuspend | CmdConfigure
   mov	    [confcmd_command], ax
   mov	    ax, 0
   mov	    [confcmd_status], ax
   mov	    eax, txfd
   mov	    [confcmd_link], eax
   mov	    ebx, confcmd_data
   mov	    al, 0x88	     ; fifo of 8 each
   mov	    [ebx + 1], al
   mov	    al, 0
   mov	    [ebx + 4], al
   mov	    al, 0x80
   mov	    [ebx + 5], al
   mov	    al, 0x48
   mov	    [ebx + 15], al
   mov	    al, 0x80
   mov	    [ebx + 19], al
   mov	    al, 0x05
   mov	    [ebx + 21], al

   mov	    eax, txfd
   sub	    eax, OS_BASE
   mov	    edx, [io_addr]
   add	    edx, 4	      ; SCBPointer
   out	    dx, eax

   mov	    eax, 0x0110 	; INT_MASK | CU_START
   mov	    edx, [io_addr]
   add	    edx, 2	      ; SCBCmd
   out	    dx, ax

   call     wait_for_cmd_done
jmp skip

   ; wait for thing to start
drp004:
   mov	    ax, [txfd_status]
   cmp	    ax, 0
   je	    drp004

skip:
   ; Indicate that we have successfully reset the card
   mov	    eax, [pci_data]
   mov	    [eth_status], eax

I8255x_exit:
   ret



;***************************************************************************
;   Function
;      I8255x_reset
;   Description
;      Place the chip (ie, the ethernet card) into a virgin state
;      No inputs
;      All registers destroyed
;
;***************************************************************************
I8255x_reset:
   ret



;***************************************************************************
; Function
;    I8255x_poll
;
; Description
;    Polls the ethernet card for a received packet
;    Received data, if any, ends up in Ether_buffer
;
;***************************************************************************
I8255x_poll:
   mov	    ax, 0      ; assume no data
   mov	    [eth_rx_data_len], ax

   mov	    ax, [rxfd_status]
   cmp	    ax, 0
   je	    i8p_exit

   mov	    ax, 0
   mov	    [rxfd_status], ax

   mov	    ax, 0xc000
   mov	    [rxfd_command], ax

   mov	    edx, [io_addr]
   add	    edx, 4	     ; SCBPointer

   mov	    eax, rxfd_status
   sub	    eax, OS_BASE
   out	    dx, eax

   mov	    edx, [io_addr]
   add	    edx, 2	     ; SCBCmd

   mov	    ax, 0x0101	       ; INT_MASK | RX_START
   out	    dx, ax

   call     wait_for_cmd_done

   mov	    esi, rxfd_packet
   mov	    edi, Ether_buffer
   mov	    ecx, 1518
   cld
   rep	    movsb

   mov	    ax, [rxfd_count]
   and	    ax, 0x3fff
   mov	    [eth_rx_data_len], ax

i8p_exit:
   ret



;***************************************************************************
;   Function
;      I8255x_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
;
;***************************************************************************
I8255x_transmit:

   mov	    [hdr_type], bx

   mov	    eax, [edi]
   mov	    [hdr_dst_addr], eax
   mov	    ax, [edi+4]
   mov	    [hdr_dst_addr+4], ax

   mov	    eax, [node_addr]
   mov	    [hdr_src_addr], eax
   mov	    ax, [node_addr+4]
   mov	    [hdr_src_addr+4], ax

   mov	    edx, [io_addr]
   in	    ax, dx
   and	    ax, 0xfc00
   out	    dx, ax

   xor	    ax, ax
   mov	    [txfd_status], ax
   mov	    ax, 0x400C		  ; Cmdsuspend | CmdTx | CmdTxFlex
   mov	    [txfd_command], ax
   mov	    eax, txfd
   mov	    [txfd_link], eax
   mov	    eax, 0x02208000
   mov	    [txfd_count], eax
   mov	    eax, txfd_tx_buf_addr0
   sub	    eax, OS_BASE
   mov	    [txfd_tx_desc_addr], eax
   mov	    eax, hdr
   sub	    eax, OS_BASE
   mov	    [txfd_tx_buf_addr0], eax
   mov	    eax, 14   ; sizeof hdr
   mov	    [txfd_tx_buf_size0], eax

   ; Copy the buffer address and size in
   mov	    eax, esi
   sub	    eax, OS_BASE
   mov	    [txfd_tx_buf_addr1], eax
   mov	    eax, ecx
   mov	    [txfd_tx_buf_size1], eax

   mov	    eax, txfd
   sub	    eax, OS_BASE
   mov	    edx, [io_addr]
   add	    edx, 4	      ; SCBPointer
   out	    dx, eax

   mov	    ax, 0x0110	       ; INT_MASK | CU_START
   mov	    edx, [io_addr]
   add	    edx, 2	      ; SCBCmd
   out	    dx, ax

   call     wait_for_cmd_done

   mov	    edx, [io_addr]
   in	    ax, dx

I8t_001:
   mov	    ax, [txfd_status]
   cmp	    ax, 0
   je	    I8t_001

   mov	    edx, [io_addr]
   in	    ax, dx

   ret