/*
  ------------------------------------------------------------------------
  $Id$
  ------------------------------------------------------------------------
  
  My Right Boot, a boot ROM for embedded hardware.
 
  Copyright Cybertec Pty Ltd, 2000
  All rights reserved Cybertec Pty Ltd, 2000
  
  COPYRIGHT (c) 1989-1998.
  On-Line Applications Research Corporation (OAR).

  The license and distribution terms for this file may be
  found in the file LICENSE in this distribution or at
  http://www.OARcorp.com/rtems/license.html.
  
  ------------------------------------------------------------------------

  CS8900 net boot driver.

 */

#include <bspIo.h>
#include <rtems.h>

#include <libchip/cs8900.h>

/*
 * Our local data.
 */

#ifdef CS8900_VERBOSE
static BOOLEAN cs8900_io_verbose;
#endif

static rtems_isr_void_entry old_handler[CS8900_DEVICES];
static void                 *old_parameter[CS8900_DEVICES];

/*
 * Tables of IO addresses and interrupt levels for each device attached.
 */

static const unsigned long ethernet_io_base[CS8900_DEVICES] =
{
  ETHERNET_BASE
};

static const unsigned long ethernet_mem_base[CS8900_DEVICES] =
{
  ETHERNET_BASE + CS8900_MEMORY_BASE
};

static const unsigned int ethernet_irq_level[CS8900_DEVICES] =
{
  ETHERNET_IRQ_LEVEL
};

static const unsigned int ethernet_irq_priority[CS8900_DEVICES] =
{
  ETHERNET_IRQ_PRIORITY
};

static const unsigned int ethernet_irq_vector[CS8900_DEVICES] =
{
  ETHERNET_IRQ_VECTOR,
};

void cs8900_io_set_reg (int dev, unsigned short reg, unsigned short data)
{
#ifdef CS8900_DATA_BUS_SWAPPED
  data = (data >> 8) | (data << 8);
#endif

#ifdef CS8900_VERBOSE
  if (cs8900_io_verbose)
    printf ("CS8900: io set reg=0x%04x, data=0x%04x\n", reg, data);
#endif
    
  WRITE_REGISTER_16 (ethernet_io_base[dev] + reg, data);
}

unsigned short cs8900_io_get_reg (int dev, unsigned short reg)
{
  unsigned long data;

  READ_REGISTER_16 (ethernet_io_base[dev] + reg, data);

#ifdef CS8900_DATA_BUS_SWAPPED
  data = (data >> 8) | (data << 8);
#endif
  
#ifdef CS8900_VERBOSE
  if (cs8900_io_verbose)
    printk ("CS8900: io get reg=0x%04x, data=0x%04x\n", reg, data);
#endif
  
  return data;
}

void cs8900_mem_set_reg (int dev, unsigned long reg, unsigned short data)
{
#ifdef CS8900_DATA_BUS_SWAPPED
  data = (data >> 8) | (data << 8);
#endif

#ifdef CS8900_VERBOSE
  if (cs8900_io_verbose)
    printk ("CS8900: mem set reg=0x%04x, data=0x%04x\n", reg, data);
#endif

  WRITE_REGISTER_16 (ethernet_io_base[dev] + reg, data);
}

unsigned short cs8900_mem_get_reg (int dev, unsigned long reg)
{
  unsigned short data;
  READ_REGISTER_16 (ethernet_io_base[dev] + reg, data);
  
#ifdef CS8900_DATA_BUS_SWAPPED
  data = (data >> 8) | (data << 8);
#endif

#ifdef CS8900_VERBOSE
  if (cs8900_io_verbose)
    printk ("CS8900: mem get reg=0x%04x, data=0x%04x\n", reg, data);
#endif

  return data;
}

void cs8900_put_data_block (int dev, int len, unsigned char *data)
{
#ifndef CS8900_DATA_BUS_SWAPPED
  unsigned short swap_word;
#endif
  unsigned short *src = (unsigned short *) ((unsigned long) data);
  unsigned short *dst = (unsigned short *) (ethernet_mem_base[dev] + CS8900_PP_TxFrameLoc);

  while (len > 1)
  {
#ifndef CS8900_DATA_BUS_SWAPPED
    swap_word = *src++;
    *dst++ = (swap_word >> 8) | (swap_word << 8);
#else
    *dst++ = *src++;
#endif
    len -= 2;
  }

  if (len)
  {
#ifndef CS8900_DATA_BUS_SWAPPED
    swap_word = *src++;
    *dst++ = (swap_word >> 8) | (swap_word << 8);
#else
    *dst++ = *src++;
#endif
  }  
}

unsigned short cs8900_get_data_block (int dev, unsigned char *data)
{
  unsigned short          swap_word;
  volatile unsigned short *src = (unsigned short *) (ethernet_mem_base[dev] + CS8900_PP_RxLength);
  unsigned short          *dst;
  unsigned short          len;
  unsigned short          rx_len;
  unsigned short          len_odd;
  
#ifdef CS8900_DATA_BUS_SWAPPED
    swap_word = *src++;
    len = (swap_word >> 8) | (swap_word << 8);
#else
    len = *src++;
#endif
    
  dst = (unsigned short *) ((unsigned long) data);

  len_odd = len & 1;
  rx_len  = len & ~1;
  
  for (; rx_len; rx_len -= 2)
  {
#ifndef CS8900_DATA_BUS_SWAPPED
    swap_word = *src++;
    *dst++ = (swap_word >> 8) | (swap_word << 8);
#else
    *dst++ = *src++;
#endif
  }

  if (len_odd)
  {
#ifndef CS8900_DATA_BUS_SWAPPED
    swap_word = *src++;
    *dst++ = (swap_word >> 8) | (swap_word << 8);
#else
    *dst++ = *src++;
#endif
  }

  return len;
}

void
cs8900_tx_load (int dev, struct mbuf *m)
{
  volatile unsigned short *dst = (unsigned short *) (ethernet_mem_base[dev] + CS8900_PP_TxFrameLoc);
  unsigned int            len;
  unsigned char           *src;
  int                     remainder = 0;
  unsigned char           remainder_data = '\0';
  
  while (m)
  {
    /*
     * We can get empty mbufs from the stack.
     */

    len = m->m_len;
    src = mtod (m, unsigned char*);

    if (len)
    {
      if (remainder)
      {
#ifndef CS8900_DATA_BUS_SWAPPED
        *dst++ = remainder_data | (*src++ << 8);
#else
        *dst++ = *src++ | (remainder_data << 8);
#endif
        len--;
        remainder = 0;
      }

      if (len & 1)
      {
        remainder = 1;
        len--;
      }
    
      for (; len; len -= 2)
#ifndef CS8900_DATA_BUS_SWAPPED
        *dst++ = (*src++) | (*(++src) << 8);
#else
      *dst++ = (*src++ << 8) | *(++src);
#endif
    
      if (remainder)
        remainder_data = *src++;
    }
    
    m = m->m_next;
  }

  if (remainder)
  {
#ifndef CS8900_DATA_BUS_SWAPPED
    *dst = (unsigned short) remainder_data;
#else
    *dst = (unsigned short) (remainder_data << 8);
#endif
  }
}

void cs8900_attach_interrupt (int dev, cs8900_device *cs)
{
  rtems_interrupt_catch_with_void (cs8900_interrupt, 
                                   ethernet_irq_vector[dev], 
                                   &old_handler[dev],
                                   cs,
                                   &old_parameter[dev]);
  
  CF_SIM_WRITE_ICR (CF_BASE, 
                    ethernet_irq_level[dev],
                    CF_SIM_ICR_AVEC_AUTO, 
                    ethernet_irq_level[dev], 
                    ethernet_irq_priority[dev]);
  CF_SIM_IMR_ENABLE (CF_BASE, 1 << ethernet_irq_level[dev]);
}

void cs8900_detach_interrupt (int dev)
{
  CF_SIM_IMR_DISABLE (CF_BASE, 1 << ethernet_irq_level[dev]);
  
  rtems_interrupt_catch_with_void (old_handler, 
                                   ethernet_irq_vector[dev], 
                                   NULL,
                                   old_parameter[dev],
                                   NULL);
}

void cs8900_get_mac_addr (int dev, unsigned char *mac_address)
{
  memcpy (mac_address, rct_get_mac_address (dev), 6);
}