arch/common/boot/grub/netboot/tiara.c

   1 /**************************************************************************
   2 Etherboot -  BOOTP/TFTP Bootstrap Program
   3
   4 TIARA (Fujitsu Etherstar) NIC driver for Etherboot
   5 Copyright (c) Ken Yap 1998
   6
   7 Information gleaned from:
   8
   9 TIARA.ASM Packet driver by Brian Fisher, Queens U, Kingston, Ontario
  10 Fujitsu MB86960 spec sheet (different chip but same family)
  11 ***************************************************************************/
  12
  13 /*
  14  * This program is free software; you can redistribute it and/or
  15  * modify it under the terms of the GNU General Public License as
  16  * published by the Free Software Foundation; either version 2, or (at
  17  * your option) any later version.
  18  */
  19
  20 /* to get some global routines like printf */
  21 #include "etherboot.h"
  22 /* to get the interface to the body of the program */
  23 #include "nic.h"
  24 #include "cards.h"
  25
  26 /*
  27         EtherStar I/O Register offsets
  28 */
  29
  30 /* Offsets of registers */
  31 #define DLCR_XMIT_STAT  0x00
  32 #define DLCR_XMIT_MASK  0x01
  33 #define DLCR_RECV_STAT  0x02
  34 #define DLCR_RECV_MASK  0x03
  35 #define DLCR_XMIT_MODE  0x04
  36 #define DLCR_RECV_MODE  0x05
  37 #define DLCR_ENABLE     0x06
  38 #define DLCR_TDR_LOW    0x07
  39 #define DLCR_NODE_ID    0x08
  40 #define DLCR_TDR_HIGH   0x0F
  41 #define BMPR_MEM_PORT   0x10
  42 #define BMPR_PKT_LEN    0x12
  43 #define BMPR_DMA_ENABLE 0x14
  44 #define PROM_ID         0x18
  45
  46 #define TMST            0x80
  47 #define TMT_OK          0x80
  48 #define TMT_16COLL      0x02
  49 #define BUF_EMPTY       0x40
  50
  51 #define CARD_DISABLE    0x80    /* written to DLCR_ENABLE to disable card */
  52 #define CARD_ENABLE     0       /* written to DLCR_ENABLE to enable card */
  53
  54 #define CLEAR_STATUS    0x0F    /* used to clear status info */
  55 /*
  56         00001111B
  57         !!!!!!!!--------
  58         !!!!!!!+--------CLEAR BUS WRITE ERROR
  59         !!!!!!+---------CLEAR 16 COLLISION
  60         !!!!!+----------CLEAR COLLISION
  61         !!!!+-----------CLEAR UNDERFLOW
  62         !!!+------------NC
  63         !!+-------------NC
  64         !+--------------NC
  65         +---------------NC
  66 */
  67
  68 #define NO_TX_IRQS      0       /* written to clear transmit IRQs */
  69
  70 #define CLR_RCV_STATUS  0xCF    /* clears receive status */
  71
  72 #define EN_RCV_IRQS     0x80    /* enable receive interrupts */
  73 /*
  74         10000000B
  75         !!!!!!!!--------
  76         !!!!!!!+--------ENABLE OVERFLOW
  77         !!!!!!+---------ENABLE CRC
  78         !!!!!+----------ENABLE ALIGN
  79         !!!!+-----------ENABLE SHORT PKT
  80         !!!+------------DISABLE REMOTE RESET
  81         !!+-------------RESERVED
  82         !+--------------RESERVED
  83         +---------------ENABLE PKT READY
  84 */
  85
  86 #define XMIT_MODE       0x02
  87 /*
  88         00000010B
  89         !!!!!!!!---------ENABLE CARRIER DETECT
  90         !!!!!!!+---------DISABLE LOOPBACK
  91 */
  92
  93 #define RECV_MODE       0x02
  94 /*
  95         00000010B
  96         !!!!!!!!---------ACCEPT ALL PACKETS
  97         !!!!!!!+---------ACCEPT PHYSICAL, MULTICAST, AND
  98         !!!!!!+----------BROADCAST PACKETS
  99         !!!!!+-----------DISABLE REMOTE RESET
 100         !!!!+------------DISABLE SHORT PACKETS
 101         !!!+-------------USE 6 BYTE ADDRESS
 102         !!+--------------NC
 103         !+---------------NC
 104         +----------------DISABLE CRC TEST MODE
 105 */
 106
 107 /* NIC specific static variables go here */
 108
 109 static unsigned short   ioaddr;
 110
 111 /**************************************************************************
 112 RESET - Reset adapter
 113 ***************************************************************************/
 114 static void tiara_reset(struct nic *nic)
 115 {
 116         int             i;
 117
 118         outb(CARD_DISABLE, ioaddr + DLCR_ENABLE);
 119         outb(CLEAR_STATUS, ioaddr + DLCR_XMIT_STAT);
 120         outb(NO_TX_IRQS, ioaddr + DLCR_XMIT_MASK);
 121         outb(CLR_RCV_STATUS, ioaddr + DLCR_RECV_STAT);
 122         outb(XMIT_MODE, ioaddr + DLCR_XMIT_MODE);
 123         outb(RECV_MODE, ioaddr + DLCR_RECV_MODE);
 124         /* Vacuum recv buffer */
 125         while ((inb(ioaddr + DLCR_RECV_MODE) & BUF_EMPTY) == 0)
 126                 inb(ioaddr + BMPR_MEM_PORT);
 127         /* Set node address */
 128         for (i = 0; i < ETH_ALEN; ++i)
 129                 outb(nic->node_addr[i], ioaddr + DLCR_NODE_ID + i);
 130         outb(CLR_RCV_STATUS, ioaddr + DLCR_RECV_STAT);
 131         outb(CARD_ENABLE, ioaddr + DLCR_ENABLE);
 132 }
 133
 134 /**************************************************************************
 135 POLL - Wait for a frame
 136 ***************************************************************************/
 137 static int tiara_poll(struct nic *nic)
 138 {
 139         unsigned int            len;
 140
 141         if (inb(ioaddr + DLCR_RECV_MODE) & BUF_EMPTY)
 142                 return (0);
 143         /* Ack packet */
 144         outw(CLR_RCV_STATUS, ioaddr + DLCR_RECV_STAT);
 145         len = inw(ioaddr + BMPR_MEM_PORT);              /* throw away status */
 146         len = inw(ioaddr + BMPR_MEM_PORT);
 147         /* Drop overlength packets */
 148         if (len > ETH_FRAME_LEN)
 149                 return (0);             /* should we drain the buffer? */
 150         insw(ioaddr + BMPR_MEM_PORT, nic->packet, len / 2);
 151         /* If it's our own, drop it */
 152         if (memcmp(nic->packet + ETH_ALEN, nic->node_addr, ETH_ALEN) == 0)
 153                 return (0);
 154         nic->packetlen = len;
 155         return (1);
 156 }
 157
 158 /**************************************************************************
 159 TRANSMIT - Transmit a frame
 160 ***************************************************************************/
 161 static void tiara_transmit(
 162 struct nic *nic,
 163 const char *d,                  /* Destination */
 164 unsigned int t,                 /* Type */
 165 unsigned int s,                 /* size */
 166 const char *p)                  /* Packet */
 167 {
 168         unsigned int    len;
 169         unsigned long   time;
 170
 171         len = s + ETH_HLEN;
 172         if (len < ETH_ZLEN)
 173                 len = ETH_ZLEN;
 174         t = htons(t);
 175         outsw(ioaddr + BMPR_MEM_PORT, d, ETH_ALEN / 2);
 176         outsw(ioaddr + BMPR_MEM_PORT, nic->node_addr, ETH_ALEN / 2);
 177         outw(t, ioaddr + BMPR_MEM_PORT);
 178         outsw(ioaddr + BMPR_MEM_PORT, p, s / 2);
 179         if (s & 1)                                      /* last byte */
 180                 outb(p[s-1], ioaddr + BMPR_MEM_PORT);
 181         while (s++ < ETH_ZLEN - ETH_HLEN)       /* pad */
 182                 outb(0, ioaddr + BMPR_MEM_PORT);
 183         outw(len | (TMST << 8), ioaddr + BMPR_PKT_LEN);
 184         /* wait for transmit complete */
 185         time = currticks() + TICKS_PER_SEC;             /* wait one second */
 186         while (currticks() < time && (inb(ioaddr) & (TMT_OK|TMT_16COLL)) == 0)
 187                 ;
 188         if ((inb(ioaddr) & (TMT_OK|TMT_16COLL)) == 0)
 189                 printf("Tiara timed out on transmit\n");
 190         /* Do we need to ack the transmit? */
 191 }
 192
 193 /**************************************************************************
 194 DISABLE - Turn off ethernet interface
 195 ***************************************************************************/
 196 static void tiara_disable(struct nic *nic)
 197 {
 198         /* Apparently only a power down can do this properly */
 199         outb(CARD_DISABLE, ioaddr + DLCR_ENABLE);
 200 }
 201
 202 static int tiara_probe1(struct nic *nic)
 203 {
 204         /* Hope all the Tiara cards have this vendor prefix */
 205         static char     vendor_prefix[] = { 0x08, 0x00, 0x1A };
 206         static char     all_ones[] = { 0xFF, 0xFF, 0xFF, 0xFF, 0xFF, 0xFF };
 207         int             i;
 208
 209         for (i = 0; i < ETH_ALEN; ++i)
 210                 nic->node_addr[i] = inb(ioaddr + PROM_ID + i);
 211         if (memcmp(nic->node_addr, vendor_prefix, sizeof(vendor_prefix)) != 0)
 212                 return (0);
 213         if (memcmp(nic->node_addr, all_ones, sizeof(all_ones)) == 0)
 214                 return (0);
 215         printf("\nTiara ioaddr %#hX, addr %!\n", ioaddr, nic->node_addr);
 216         return (1);
 217 }
 218
 219 /**************************************************************************
 220 PROBE - Look for an adapter, this routine's visible to the outside
 221 ***************************************************************************/
 222 struct nic *tiara_probe(struct nic *nic, unsigned short *probe_addrs)
 223 {
 224         /* missing entries are addresses usually already used */
 225         static unsigned short   io_addrs[] = {
 226                 0x100, 0x120, 0x140, 0x160,
 227                 0x180, 0x1A0, 0x1C0, 0x1E0,
 228                 0x200, 0x220, 0x240, /*Par*/
 229                 0x280, 0x2A0, 0x2C0, /*Ser*/
 230                 0x300, 0x320, 0x340, /*Par*/
 231                 0x380, /*Vid,Par*/ 0x3C0, /*Ser*/
 232                 0x0
 233         };
 234         unsigned short          *p;
 235
 236         /* if probe_addrs is 0, then routine can use a hardwired default */
 237         if (probe_addrs == 0)
 238                 probe_addrs = io_addrs;
 239         for (p = probe_addrs; (ioaddr = *p) != 0; ++p)
 240                 if (tiara_probe1(nic))
 241                         break;
 242         /* if board found */
 243         if (ioaddr != 0)
 244         {
 245                 tiara_reset(nic);
 246                 /* point to NIC specific routines */
 247                 nic->reset = tiara_reset;
 248                 nic->poll = tiara_poll;
 249                 nic->transmit = tiara_transmit;
 250                 nic->disable = tiara_disable;
 251                 return nic;
 252         }
 253         else
 254                 return (0);
 255 }