Subversion Repositories HelenOS

/*

 * Copyright (c) 1987,1997, 2006, Vrije Universiteit, Amsterdam, The Netherlands All rights reserved. Redistribution and use of the MINIX 3 operating system in source and binary forms, with or without modification, are permitted provided that the following conditions are met:

 *

 * * Redistributions of source code must retain the above copyright notice, this list of conditions and the following disclaimer.

 * * Redistributions in binary form must reproduce the above copyright notice, this list of conditions and the following disclaimer in the documentation and/or other materials provided with the distribution.

 * * Neither the name of the Vrije Universiteit nor the names of the software authors or contributors may be used to endorse or promote products derived from this software without specific prior written permission.

 * * Any deviations from these conditions require written permission from the copyright holder in advance

 *

 *

 * Disclaimer

 *

 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS, AUTHORS, AND CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES

 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.

 * IN NO EVENT SHALL THE COPYRIGHT HOLDER OR ANY AUTHORS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,

 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT

 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,

 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY

 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT

 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF

 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

 *

 * Changes:

 *  2009 Lukas Mejdrech ported to HelenOS

 */

/** @addtogroup ne2k

 *  @{

 */

/** @file

 *  \todo

 */

#include <stdio.h>

#include <unistd.h>

#include "dp8390_port.h"

/*

ne2000.c

Driver for the ne2000 ethernet cards. This file contains only the ne2000

specific code, the rest is in dp8390.c

Created:    March 15, 1994 by Philip Homburg <philip@f-mnx.phicoh.com>

*/

//#include "../drivers.h"

//#include <net/gen/ether.h>

//#include <net/gen/eth_io.h>

//#if __minix_vmd

//#include "config.h"

//#endif

#include "local.h"

#include "dp8390.h"

#include "ne2000.h"

#if ENABLE_NE2000

#define N 100

//#define MILLIS_TO_TICKS(m)  (((m)*HZ/1000)+1)

_PROTOTYPE( typedef int (*testf_t), (dpeth_t *dep, int pos, u8_t *pat)  );

u8_t    pat0[]= { 0x00, 0x00, 0x00, 0x00 };

u8_t    pat1[]= { 0xFF, 0xFF, 0xFF, 0xFF };

u8_t    pat2[]= { 0xA5, 0x5A, 0x69, 0x96 };

u8_t    pat3[]= { 0x96, 0x69, 0x5A, 0xA5 };

_PROTOTYPE( static int test_8, (dpeth_t *dep, int pos, u8_t *pat)   );

_PROTOTYPE( static int test_16, (dpeth_t *dep, int pos, u8_t *pat)  );

_PROTOTYPE( static void ne_stop, (dpeth_t *dep)             );

//_PROTOTYPE( static void milli_delay, (unsigned long millis)       );

#define milli_delay( millis )   usleep(( millis ) * 1000 )

_PROTOTYPE( void ne_init, (struct dpeth *dep)               );

/*===========================================================================*

 *              ne_probe                     *

 *===========================================================================*/

int ne_probe(dep)

dpeth_t *dep;

{

    int byte;

    int i;

    int loc1, loc2;

    testf_t f;

    dep->de_dp8390_port= dep->de_base_port + NE_DP8390;

    /* We probe for an ne1000 or an ne2000 by testing whether the

     * on board is reachable through the dp8390. Note that the

     * ne1000 is an 8bit card and has a memory region distict from

     * the 16bit ne2000

     */

    for (dep->de_16bit= 0; dep->de_16bit < 2; dep->de_16bit++)

    {

        /* Reset the ethernet card */

        byte= inb_ne(dep, NE_RESET);

        milli_delay(2);

        outb_ne(dep, NE_RESET, byte);

        milli_delay(2);

        /* Reset the dp8390 */

        outb_reg0(dep, DP_CR, CR_STP | CR_DM_ABORT);

        for (i= 0; i < 0x1000 && ((inb_reg0(dep, DP_ISR) & ISR_RST) == 0); i++)

            ; /* Do nothing */

        /* Check if the dp8390 is really there */

        if ((inb_reg0(dep, DP_CR) & (CR_STP|CR_DM_ABORT)) !=

            (CR_STP|CR_DM_ABORT))

        {

            return 0;

        }

        /* Disable the receiver and init TCR and DCR. */

        outb_reg0(dep, DP_RCR, RCR_MON);

        outb_reg0(dep, DP_TCR, TCR_NORMAL);

        if (dep->de_16bit)

        {

            outb_reg0(dep, DP_DCR, DCR_WORDWIDE | DCR_8BYTES |

                DCR_BMS);

        }

        else

        {

            outb_reg0(dep, DP_DCR, DCR_BYTEWIDE | DCR_8BYTES |

                DCR_BMS);

        }

        if (dep->de_16bit)

        {

            loc1= NE2000_START;

            loc2= NE2000_START + NE2000_SIZE - 4;

            f= test_16;

        }

        else

        {

            loc1= NE1000_START;

            loc2= NE1000_START + NE1000_SIZE - 4;

            f= test_8;

        }

        if (f(dep, loc1, pat0) && f(dep, loc1, pat1) &&

            f(dep, loc1, pat2) && f(dep, loc1, pat3) &&

            f(dep, loc2, pat0) && f(dep, loc2, pat1) &&

            f(dep, loc2, pat2) && f(dep, loc2, pat3))

        {

            /* We don't need a memory segment */

            dep->de_linmem= 0;

            if (!dep->de_pci)

                dep->de_initf= ne_init;

            dep->de_stopf= ne_stop;

            dep->de_prog_IO= 1;

            return 1;

        }

    }

    return 0;

}

/*===========================================================================*

 *              ne_init                      *

 *===========================================================================*/

void ne_init(dep)

dpeth_t *dep;

{

    int i;

    int word, sendq_nr;

    /* Setup a transfer to get the ethernet address. */

    if (dep->de_16bit)

        outb_reg0(dep, DP_RBCR0, 6*2);

    else

        outb_reg0(dep, DP_RBCR0, 6);

    outb_reg0(dep, DP_RBCR1, 0);

    outb_reg0(dep, DP_RSAR0, 0);

    outb_reg0(dep, DP_RSAR1, 0);

    outb_reg0(dep, DP_CR, CR_DM_RR | CR_PS_P0 | CR_STA);

    for (i= 0; i<6; i++)

    {

        if (dep->de_16bit)

        {

            word= inw_ne(dep, NE_DATA);

            dep->de_address.ea_addr[i]= word;

        }

        else

        {

            dep->de_address.ea_addr[i] = inb_ne(dep, NE_DATA);

        }

    }

    dep->de_data_port= dep->de_base_port + NE_DATA;

    if (dep->de_16bit)

    {

        dep->de_ramsize= NE2000_SIZE;

        dep->de_offset_page= NE2000_START / DP_PAGESIZE;

    }

    else

    {

        dep->de_ramsize= NE1000_SIZE;

        dep->de_offset_page= NE1000_START / DP_PAGESIZE;

    }

    /* Allocate one send buffer (1.5KB) per 8KB of on board memory. */

    sendq_nr= dep->de_ramsize / 0x2000;

    if (sendq_nr < 1)

        sendq_nr= 1;

    else if (sendq_nr > SENDQ_NR)

        sendq_nr= SENDQ_NR;

    dep->de_sendq_nr= sendq_nr;

    for (i= 0; i<sendq_nr; i++)

    {

        dep->de_sendq[i].sq_sendpage= dep->de_offset_page +

            i*SENDQ_PAGES; 

    }

    dep->de_startpage= dep->de_offset_page + i*SENDQ_PAGES;

    dep->de_stoppage= dep->de_offset_page + dep->de_ramsize / DP_PAGESIZE;

    /* Can't override the default IRQ. */

    dep->de_irq &= ~DEI_DEFAULT;

    if (!debug)

    {

        printf("%s: NE%d000 at %X:%d\n",

            dep->de_name, dep->de_16bit ? 2 : 1,

            dep->de_base_port, dep->de_irq);

    }

    else

    {

        printf("%s: Novell NE%d000 ethernet card at I/O address "

            "0x%X, memory size 0x%X, irq %d\n",

            dep->de_name, dep->de_16bit ? 2 : 1,

            dep->de_base_port, dep->de_ramsize, dep->de_irq);

    }

}

/*===========================================================================*

 *              test_8                       *

 *===========================================================================*/

static int test_8(dep, pos, pat)

dpeth_t *dep;

int pos;

u8_t *pat;

{

    u8_t buf[4];

    int i;

    int r;

    outb_reg0(dep, DP_ISR, 0xFF);

    /* Setup a transfer to put the pattern. */

    outb_reg0(dep, DP_RBCR0, 4);

    outb_reg0(dep, DP_RBCR1, 0);

    outb_reg0(dep, DP_RSAR0, pos & 0xFF);

    outb_reg0(dep, DP_RSAR1, pos >> 8);

    outb_reg0(dep, DP_CR, CR_DM_RW | CR_PS_P0 | CR_STA);

    for (i= 0; i<4; i++)

        outb_ne(dep, NE_DATA, pat[i]);

    for (i= 0; i<N; i++)

    {

        if (inb_reg0(dep, DP_ISR) & ISR_RDC)

            break;

    }

    if (i == N)

    {

        if (debug)

        {

            printf("%s: NE1000 remote DMA test failed\n",

                dep->de_name);

        }

        return 0;

    }

    outb_reg0(dep, DP_RBCR0, 4);

    outb_reg0(dep, DP_RBCR1, 0);

    outb_reg0(dep, DP_RSAR0, pos & 0xFF);

    outb_reg0(dep, DP_RSAR1, pos >> 8);

    outb_reg0(dep, DP_CR, CR_DM_RR | CR_PS_P0 | CR_STA);

    for (i= 0; i<4; i++)

        buf[i]= inb_ne(dep, NE_DATA);

    r= (memcmp(buf, pat, 4) == 0);

    return r;

}

/*===========================================================================*

 *              test_16                      *

 *===========================================================================*/

static int test_16(dep, pos, pat)

dpeth_t *dep;

int pos;

u8_t *pat;

{

    u8_t buf[4];

    int i;

    int r;

    outb_reg0(dep, DP_ISR, 0xFF);

    /* Setup a transfer to put the pattern. */

    outb_reg0(dep, DP_RBCR0, 4);

    outb_reg0(dep, DP_RBCR1, 0);

    outb_reg0(dep, DP_RSAR0, pos & 0xFF);

    outb_reg0(dep, DP_RSAR1, pos >> 8);

    outb_reg0(dep, DP_CR, CR_DM_RW | CR_PS_P0 | CR_STA);

    for (i= 0; i<4; i += 2)

    {

        outw_ne(dep, NE_DATA, *(u16_t *)(pat+i));

    }

    for (i= 0; i<N; i++)

    {

        if (inb_reg0(dep, DP_ISR) & ISR_RDC)

            break;

    }

    if (i == N)

    {

        if (debug)

        {

            printf("%s: NE2000 remote DMA test failed\n",

                dep->de_name);

        }

        return 0;

    }

    outb_reg0(dep, DP_RBCR0, 4);

    outb_reg0(dep, DP_RBCR1, 0);

    outb_reg0(dep, DP_RSAR0, pos & 0xFF);

    outb_reg0(dep, DP_RSAR1, pos >> 8);

    outb_reg0(dep, DP_CR, CR_DM_RR | CR_PS_P0 | CR_STA);

    for (i= 0; i<4; i += 2)

    {

        *(u16_t *)(buf+i)= inw_ne(dep, NE_DATA);

    }

    r= (memcmp(buf, pat, 4) == 0);

    return r;

}

/*===========================================================================*

 *              ne_stop                      *

 *===========================================================================*/

static void ne_stop(dep)

dpeth_t *dep;

{

    int byte;

    /* Reset the ethernet card */

    byte= inb_ne(dep, NE_RESET);

    milli_delay(2);

    outb_ne(dep, NE_RESET, byte);

}

/*

static void milli_delay(unsigned long millis)

{

    tickdelay(MILLIS_TO_TICKS(millis));

}

*/

#endif /* ENABLE_NE2000 */

/*

 * $PchId: ne2000.c,v 1.10 2004/08/03 12:03:00 philip Exp $

 */

/** @}

 */