/*
 * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
 *
 * @APPLE_LICENSE_HEADER_START@
 * 
 * The contents of this file constitute Original Code as defined in and
 * are subject to the Apple Public Source License Version 1.1 (the
 * "License").  You may not use this file except in compliance with the
 * License.  Please obtain a copy of the License at
 * http://www.apple.com/publicsource and read it before using this file.
 * 
 * This Original Code and all software distributed under the License are
 * distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE OR NON-INFRINGEMENT.  Please see the
 * License for the specific language governing rights and limitations
 * under the License.
 * 
 * @APPLE_LICENSE_HEADER_END@
 */

/*
 * Copyright (c) 1998-1999 by Apple Computer, Inc., All rights reserved.
 *
 * MII/PHY (National Semiconductor DP83840/DP83840A) support methods.
 * It is general enough to work with most MII/PHYs.
 *
 * HISTORY
 *
 */
#include "UniNEnetPrivate.h"


/*
 * Read from MII/PHY registers.
 */
bool UniNEnet::miiReadWord( UInt16 *dataPtr, UInt16 reg, UInt8 phy )
{
    UInt32              i;
    UInt32              miiReg;

	WRITE_REGISTER( MIFBitBangFrame_Output,
							  kMIFBitBangFrame_Output_ST_default
					|         kMIFBitBangFrame_Output_OP_read
					| phy  << kMIFBitBangFrame_Output_PHYAD_shift
					| reg  << kMIFBitBangFrame_Output_REGAD_shift
					|         kMIFBitBangFrame_Output_TA_MSB );

    for (i=0; i < 20; i++ )
    {     
		miiReg = READ_REGISTER( MIFBitBangFrame_Output );

        if ( miiReg & kMIFBitBangFrame_Output_TA_LSB )
        {
//            IOLog("Phy = %d Reg = %d miiReg = %08x\n\r", phy, reg, miiReg );
            *dataPtr = (UInt16) miiReg;
            return true;
        }
        IODelay(10);
    }

    return false;
}

/*
 * Write to MII/PHY registers.
 */
bool UniNEnet::miiWriteWord( UInt16 data, UInt16 reg, UInt8 phy )
{
    UInt32              i;
    UInt32              miiReg;


	WRITE_REGISTER( MIFBitBangFrame_Output,
					          kMIFBitBangFrame_Output_ST_default
					|         kMIFBitBangFrame_Output_OP_write
					| phy  << kMIFBitBangFrame_Output_PHYAD_shift
					| reg  << kMIFBitBangFrame_Output_REGAD_shift
					|         kMIFBitBangFrame_Output_TA_MSB
					| data );

    for ( i=0; i < 20; i++ )
    {     
		miiReg = READ_REGISTER( MIFBitBangFrame_Output );
        
        if ( miiReg & kMIFBitBangFrame_Output_TA_LSB )
        {
            return true;
        }
        IODelay(10);
    }

    return false;
}


bool UniNEnet::miiResetPHY( UInt8 phy )
{
    int 		i = MII_RESET_TIMEOUT;
    UInt16 		mii_control;

    // Set the reset bit
    //
    miiWriteWord( MII_CONTROL_RESET, MII_CONTROL, phy );
        
    IOSleep(MII_RESET_DELAY);

    // Wait till reset process is complete (MII_CONTROL_RESET returns to zero)
    //
    while ( i > 0 ) 
    {
        if ( miiReadWord( &mii_control, MII_CONTROL, phy) == false )
                return false;

        if (!(mii_control & MII_CONTROL_RESET))
        {
            miiReadWord( &mii_control, MII_CONTROL, phy);
            mii_control &= ~MII_CONTROL_ISOLATE;
            miiWriteWord( mii_control, MII_CONTROL, phy );
            return true;
        }

        IOSleep(MII_RESET_DELAY);
        i -= MII_RESET_DELAY;
    }
    return false;
}

bool UniNEnet::miiWaitForLink( UInt8 phy )
{
    int i = MII_LINK_TIMEOUT;
    unsigned short mii_status;
        
    while (i > 0) 
    {
        if ( miiReadWord( &mii_status, MII_STATUS, phy ) == false)
                return false;
                
        if (mii_status & MII_STATUS_LINK_STATUS)
                return true;
                
        IOSleep(MII_LINK_DELAY);
        i -= MII_LINK_DELAY;
    }
    return false;
}

bool UniNEnet::miiWaitForAutoNegotiation( UInt8 phy )
{
    int i = MII_LINK_TIMEOUT;
    unsigned short mii_status;
        
    while (i > 0) 
    {
        if ( miiReadWord( &mii_status, MII_STATUS, phy ) == false)
                return false;
                
        if (mii_status & MII_STATUS_NEGOTIATION_COMPLETE)
                return true;
                
        IOSleep(MII_LINK_DELAY);
        i -= MII_LINK_DELAY;
    }
    return false;
}

void UniNEnet::miiRestartAutoNegotiation( UInt8 phy )
{
    unsigned short mii_control;

    miiReadWord( &mii_control, MII_CONTROL, phy);
    mii_control |= MII_CONTROL_RESTART_NEGOTIATION;
    miiWriteWord( mii_control, MII_CONTROL, phy);

    /*
     * If the system is not connected to the network, then auto-negotiation
     * never completes and we hang in this loop!
     */
#if 0
    while (1) 
    {
        miiReadWord( &mii_control, MII_CONTROL, phy );
        if ((mii_control & MII_CONTROL_RESTART_NEGOTIATION) == 0)
                break;
    }
#endif
}

/*
 * Find the first PHY device on the MII interface.
 *
 * Return
 *      true             PHY found 
 *      false            PHY not found
 */
bool UniNEnet::miiFindPHY( UInt8 *phy )
{
    int         i;
    UInt16      phyWord[2];
        
    *phy = 0xff;

    // The first two PHY registers are required.
    //
    for (i = 0; i < MII_MAX_PHY; i++) 
    {        
        if ( miiReadWord( &phyWord[0], MII_STATUS, i ) == false )
        {
            continue;
        }
        if ( miiReadWord( &phyWord[1], MII_CONTROL, i ) == false )
        {
            continue;
        }
        if ( phyWord[0] == 0xffff && phyWord[1] == 0xffff )
        {
            continue;
        }
    
        if ( *phy == 0xff ) *phy = i;
    }
        
    return (*phy == 0xff) ? false : true;
}

/*
 *
 *
 */
bool UniNEnet::miiInitializePHY( UInt8 phy )
{
    UInt16           phyWord; 

   // Clear enable auto-negotiation bit
    //
    miiReadWord( &phyWord, MII_CONTROL, phy );
    phyWord &= ~MII_CONTROL_AUTONEGOTIATION;
    miiWriteWord( phyWord, MII_CONTROL, phy );

    // Advertise 10/100 Half/Full duplex capable to link partner
    //
    miiReadWord( &phyWord, MII_ADVERTISEMENT, phy );
    phyWord |= (MII_ANAR_100BASETX_FD | MII_ANAR_100BASETX |
                MII_ANAR_10BASET_FD   | MII_ANAR_10BASET );
    miiWriteWord( phyWord, MII_ADVERTISEMENT, phy );

    // Set enable auto-negotiation bit
    //
    miiReadWord( &phyWord, MII_CONTROL, phy );
    phyWord |= MII_CONTROL_AUTONEGOTIATION;
    miiWriteWord( phyWord, MII_CONTROL, phy );

    miiRestartAutoNegotiation( phy );

    return true;
}