drivers/net/atari_pamsnet.c

   1 /* atari_pamsnet.c     PAMsNet device driver for linux68k.
   2  *
   3  * Version:     @(#)PAMsNet.c   0.2ß    03/31/96
   4  *
   5  * Author:  Torsten Lang <Torsten.Lang@ap.physik.uni-giessen.de>
   6  *                       <Torsten.Lang@jung.de>
   7  *
   8  * This driver is based on my driver PAMSDMA.c for MiNT-Net and
   9  * on the driver bionet.c written by
  10  *          Hartmut Laue <laue@ifk-mp.uni-kiel.de>
  11  * and      Torsten Narjes <narjes@ifk-mp.uni-kiel.de>
  12  *
  13  * Little adaptions for integration into pl7 by Roman Hodek
  14  *
  15         What is it ?
  16         ------------
  17         This driver controls the PAMsNet LAN-Adapter which connects
  18         an ATARI ST/TT via the ACSI-port to an Ethernet-based network.
  19
  20         This version can be compiled as a loadable module (See the
  21         compile command at the bottom of this file).
  22         At load time, you can optionally set the debugging level and the
  23         fastest response time on the command line of 'insmod'.
  24
  25         'pamsnet_debug'
  26                 controls the amount of diagnostic messages:
  27           0  : no messages
  28           >0 : see code for meaning of printed messages
  29
  30         'pamsnet_min_poll_time' (always >=1)
  31                 gives the time (in jiffies) between polls. Low values
  32                 increase the system load (beware!)
  33
  34         When loaded, a net device with the name 'eth?' becomes available,
  35         which can be controlled with the usual 'ifconfig' command.
  36
  37         It is possible to compile this driver into the kernel like other
  38         (net) drivers. For this purpose, some source files (e.g. config-files
  39         makefiles, Space.c) must be changed accordingly. (You may refer to
  40         other drivers how to do it.) In this case, the device will be detected
  41         at boot time and (probably) appear as 'eth0'.
  42
  43         Theory of Operation
  44         -------------------
  45         Because the ATARI DMA port is usually shared between several
  46         devices (eg. harddisk, floppy) we cannot block the ACSI bus
  47         while waiting for interrupts. Therefore we use a polling mechanism
  48         to fetch packets from the adapter. For the same reason, we send
  49         packets without checking that the previous packet has been sent to
  50         the LAN. We rely on the higher levels of the networking code to detect
  51         missing packets and resend them.
  52
  53         Before we access the ATARI DMA controller, we check if another
  54         process is using the DMA. If not, we lock the DMA, perform one or
  55         more packet transfers and unlock the DMA before returning.
  56         We do not use 'stdma_lock' unconditionally because it is unclear
  57         if the networking code can be set to sleep, which will happen if
  58         another (possibly slow) device is using the DMA controller.
  59
  60         The polling is done via timer interrupts which periodically
  61         'simulate' an interrupt from the Ethernet adapter. The time (in jiffies)
  62         between polls varies depending on an estimate of the net activity.
  63         The allowed range is given by the variable 'bionet_min_poll_time'
  64         for the lower (fastest) limit and the constant 'MAX_POLL_TIME'
  65         for the higher (slowest) limit.
  66
  67         Whenever a packet arrives, we switch to fastest response by setting
  68         the polling time to its lowest limit. If the following poll fails,
  69         because no packets have arrived, we increase the time for the next
  70         poll. When the net activity is low, the polling time effectively
  71         stays at its maximum value, resulting in the lowest load for the
  72         machine.
  73  */
  74
  75 #define MAX_POLL_TIME   10
  76
  77 static char *version =
  78         "pamsnet.c:v0.2beta 30-mar-96 (c) Torsten Lang.\n";
  79
  80 #include <linux/module.h>
  81
  82 #include <linux/kernel.h>
  83 #include <linux/jiffies.h>
  84 #include <linux/types.h>
  85 #include <linux/fcntl.h>
  86 #include <linux/interrupt.h>
  87 #include <linux/ioport.h>
  88 #include <linux/in.h>
  89 #include <linux/slab.h>
  90 #include <linux/string.h>
  91 #include <linux/bitops.h>
  92 #include <asm/system.h>
  93 #include <asm/pgtable.h>
  94 #include <asm/io.h>
  95 #include <asm/dma.h>
  96 #include <linux/errno.h>
  97 #include <asm/atarihw.h>
  98 #include <asm/atariints.h>
  99 #include <asm/atari_stdma.h>
 100 #include <asm/atari_acsi.h>
 101
 102 #include <linux/delay.h>
 103 #include <linux/timer.h>
 104 #include <linux/init.h>
 105
 106 #include <linux/netdevice.h>
 107 #include <linux/etherdevice.h>
 108 #include <linux/skbuff.h>
 109
 110 #undef READ
 111 #undef WRITE
 112
 113 /* use 0 for production, 1 for verification, >2 for debug
 114  */
 115 #ifndef NET_DEBUG
 116 #define NET_DEBUG 0
 117 #endif
 118 /*
 119  * Global variable 'pamsnet_debug'. Can be set at load time by 'insmod'
 120  */
 121 unsigned int pamsnet_debug = NET_DEBUG;
 122 module_param(pamsnet_debug, int, 0);
 123 MODULE_PARM_DESC(pamsnet_debug, "pamsnet debug enable (0-1)");
 124 MODULE_LICENSE("GPL");
 125
 126 static unsigned int pamsnet_min_poll_time = 2;
 127
 128
 129 /* Information that need to be kept for each board.
 130  */
 131 struct net_local {
 132         struct net_device_stats stats;
 133         long open_time;                 /* for debugging */
 134         int  poll_time;                 /* polling time varies with net load */
 135 };
 136
 137 static struct nic_pkt_s {               /* packet format */
 138         unsigned char   buffer[2048];
 139 } *nic_packet = 0;
 140 unsigned char *phys_nic_packet;
 141
 142 typedef unsigned char HADDR[6]; /* 6-byte hardware address of lance */
 143
 144 /* Index to functions, as function prototypes.
 145  */
 146 static void     start (int target);
 147 static int      stop (int target);
 148 static int      testpkt (int target);
 149 static int      sendpkt (int target, unsigned char *buffer, int length);
 150 static int      receivepkt (int target, unsigned char *buffer);
 151 static int      inquiry (int target, unsigned char *buffer);
 152 static HADDR    *read_hw_addr(int target, unsigned char *buffer);
 153 static void     setup_dma (void *address, unsigned rw_flag, int num_blocks);
 154 static int      send_first (int target, unsigned char byte);
 155 static int      send_1_5 (int lun, unsigned char *command, int dma);
 156 static int      get_status (void);
 157 static int      calc_received (void *start_address);
 158
 159 static int pamsnet_open(struct net_device *dev);
 160 static int pamsnet_send_packet(struct sk_buff *skb, struct net_device *dev);
 161 static void pamsnet_poll_rx(struct net_device *);
 162 static int pamsnet_close(struct net_device *dev);
 163 static struct net_device_stats *net_get_stats(struct net_device *dev);
 164 static void pamsnet_tick(unsigned long);
 165
 166 static irqreturn_t pamsnet_intr(int irq, void *data);
 167
 168 static DEFINE_TIMER(pamsnet_timer, pamsnet_tick, 0, 0);
 169
 170 #define STRAM_ADDR(a)   (((a) & 0xff000000) == 0)
 171
 172 typedef struct
 173 {
 174         unsigned char reserved1[0x38];
 175         HADDR  hwaddr;
 176         unsigned char reserved2[0x1c2];
 177 } DMAHWADDR;
 178
 179 /*
 180  * Definitions of commands understood by the PAMs DMA adaptor.
 181  *
 182  * In general the DMA adaptor uses LUN 0, 5, 6 and 7 on one ID changeable
 183  * by the PAM's Net software.
 184  *
 185  * LUN 0 works as a harddisk. You can boot the PAM's Net driver there.
 186  * LUN 5 works as a harddisk and lets you access the RAM and some I/O HW
 187  *       area. In sector 0, bytes 0x38-0x3d you find the ethernet HW address
 188  *       of the adaptor.
 189  * LUN 6 works as a harddisk and lets you access the firmware ROM.
 190  * LUN 7 lets you send and receive packets.
 191  *
 192  * Some commands like the INQUIRY command work identical on all used LUNs.
 193  *
 194  * UNKNOWN1 seems to read some data.
 195  *          Command length is 6 bytes.
 196  * UNKNOWN2 seems to read some data (command byte 1 must be !=0). The
 197  *          following bytes seem to be something like an allocation length.
 198  *          Command length is 6 bytes.
 199  * READPKT  reads a packet received by the DMA adaptor.
 200  *          Command length is 6 bytes.
 201  * WRITEPKT sends a packet transferred by the following DMA phase. The length
 202  *          of the packet is transferred in command bytes 3 and 4.
 203  *          The adaptor automatically replaces the src hw address in an ethernet
 204  *          packet by its own hw address.
 205  *          Command length is 6 bytes.
 206  * INQUIRY  has the same function as the INQUIRY command supported by harddisks
 207  *          and other SCSI devices. It lets you detect which device you found
 208  *          at a given address.
 209  *          Command length is 6 bytes.
 210  * START    initializes the DMA adaptor. After this command it is able to send
 211  *          and receive packets. There is no status byte returned!
 212  *          Command length is 1 byte.
 213  * NUMPKTS  gives back the number of received packets waiting in the queue in
 214  *          the status byte.
 215  *          Command length is 1 byte.
 216  * UNKNOWN3
 217  * UNKNOWN4 Function of these three commands is unknown.
 218  * UNKNOWN5 The command length of these three commands is 1 byte.
 219  * DESELECT immediately deselects the DMA adaptor. May important with interrupt
 220  *          driven operation.
 221  *          Command length is 1 byte.
 222  * STOP     resets the DMA adaptor. After this command packets can no longer
 223  *          be received or transferred.
 224  *          Command length is 6 byte.
 225  */
 226
 227 enum {UNKNOWN1=3, READPKT=8, UNKNOWN2, WRITEPKT=10, INQUIRY=18, START,
 228       NUMPKTS=22, UNKNOWN3, UNKNOWN4, UNKNOWN5, DESELECT, STOP};
 229
 230 #define READSECTOR  READPKT
 231 #define WRITESECTOR WRITEPKT
 232
 233 u_char *inquire8="MV      PAM's NET/GK";
 234
 235 #define DMALOW   dma_wd.dma_lo
 236 #define DMAMID   dma_wd.dma_md
 237 #define DMAHIGH  dma_wd.dma_hi
 238 #define DACCESS  dma_wd.fdc_acces_seccount
 239
 240 #define MFP_GPIP mfp.par_dt_reg
 241
 242 /* Some useful functions */
 243
 244 #define INT      (!(MFP_GPIP & 0x20))
 245 #define DELAY ({MFP_GPIP; MFP_GPIP; MFP_GPIP;})
 246 #define WRITEMODE(value)                                        \
 247         ({      u_short dummy = value;                          \
 248                 __asm__ volatile("movew %0, 0xFFFF8606" : : "d"(dummy));        \
 249                 DELAY;                                          \
 250         })
 251 #define WRITEBOTH(value1, value2)                               \
 252         ({      u_long dummy = (u_long)(value1)<<16 | (u_short)(value2);        \
 253                 __asm__ volatile("movel %0, 0xFFFF8604" : : "d"(dummy));        \
 254                 DELAY;                                          \
 255         })
 256
 257 /* Definitions for DMODE */
 258
 259 #define READ        0x000
 260 #define WRITE       0x100
 261
 262 #define DMA_FDC     0x080
 263 #define DMA_ACSI    0x000
 264
 265 #define DMA_DISABLE 0x040
 266
 267 #define SEC_COUNT   0x010
 268 #define DMA_WINDOW  0x000
 269
 270 #define REG_ACSI    0x008
 271 #define REG_FDC     0x000
 272
 273 #define A1          0x002
 274
 275 /* Timeout constants */
 276
 277 #define TIMEOUTCMD HZ/2   /* ca. 500ms */
 278 #define TIMEOUTDMA HZ     /* ca. 1s */
 279 #define COMMAND_DELAY 500 /* ca. 0.5ms */
 280
 281 unsigned rw;
 282 int lance_target = -1;
 283 int if_up = 0;
 284
 285 /* The following routines access the ethernet board connected to the
 286  * ACSI port via the st_dma chip.
 287  */
 288
 289 /* The following lowlevel routines work on physical addresses only and assume
 290  * that eventually needed buffers are
 291  * - completely located in ST RAM
 292  * - are contigous in the physical address space
 293  */
 294
 295 /* Setup the DMA counter */
 296
 297 static void
 298 setup_dma (address, rw_flag, num_blocks)
 299         void *address;
 300         unsigned rw_flag;
 301         int num_blocks;
 302 {
 303         WRITEMODE((unsigned) rw_flag          | DMA_FDC | SEC_COUNT | REG_ACSI |
 304                   A1);
 305         WRITEMODE((unsigned)(rw_flag ^ WRITE) | DMA_FDC | SEC_COUNT | REG_ACSI |
 306                   A1);
 307         WRITEMODE((unsigned) rw_flag          | DMA_FDC | SEC_COUNT | REG_ACSI |
 308                   A1);
 309         DMALOW  = (unsigned char)((unsigned long)address & 0xFF);
 310         DMAMID  = (unsigned char)(((unsigned long)address >>  8) & 0xFF);
 311         DMAHIGH = (unsigned char)(((unsigned long)address >> 16) & 0xFF);
 312         WRITEBOTH((unsigned)num_blocks & 0xFF,
 313                   rw_flag | DMA_FDC | DMA_WINDOW | REG_ACSI | A1);
 314         rw = rw_flag;
 315 }
 316
 317 /* Send the first byte of an command block */
 318
 319 static int
 320 send_first (target, byte)
 321         int target;
 322         unsigned char byte;
 323 {
 324         rw = READ;
 325         acsi_delay_end(COMMAND_DELAY);
 326         /*
 327          * wake up ACSI
 328          */
 329         WRITEMODE(DMA_FDC | DMA_WINDOW | REG_ACSI);
 330         /*
 331          * write command byte
 332          */
 333         WRITEBOTH((target << 5) | (byte & 0x1F), DMA_FDC |
 334                   DMA_WINDOW | REG_ACSI | A1);
 335         return (!acsi_wait_for_IRQ(TIMEOUTCMD));
 336 }
 337
 338 /* Send the rest of an command block */
 339
 340 static int
 341 send_1_5 (lun, command, dma)
 342         int lun;
 343         unsigned char *command;
 344         int dma;
 345 {
 346         int i, j;
 347
 348         for (i=0; i<5; i++) {
 349                 WRITEBOTH((!i ? (((lun & 0x7) << 5) | (command[i] & 0x1F))
 350                               : command[i]),
 351                           rw | REG_ACSI | DMA_WINDOW |
 352                            ((i < 4) ? DMA_FDC
 353                                     : (dma ? DMA_ACSI
 354                                            : DMA_FDC)) | A1);
 355                 if (i < 4 && (j = !acsi_wait_for_IRQ(TIMEOUTCMD)))
 356                         return (j);
 357         }
 358         return (0);
 359 }
 360
 361 /* Read a status byte */
 362
 363 static int
 364 get_status (void)
 365 {
 366         WRITEMODE(DMA_FDC | DMA_WINDOW | REG_ACSI | A1);
 367         acsi_delay_start();
 368         return ((int)(DACCESS & 0xFF));
 369 }
 370
 371 /* Calculate the number of received bytes */
 372
 373 static int
 374 calc_received (start_address)
 375         void *start_address;
 376 {
 377         return (int)(
 378                 (((unsigned long)DMAHIGH << 16) | ((unsigned)DMAMID << 8) | DMALOW)
 379               - (unsigned long)start_address);
 380 }
 381
 382 /* The following midlevel routines still work on physical addresses ... */
 383
 384 /* start() starts the PAM's DMA adaptor */
 385
 386 static void
 387 start (target)
 388         int target;
 389 {
 390         send_first(target, START);
 391 }
 392
 393 /* stop() stops the PAM's DMA adaptor and returns a value of zero in case of success */
 394
 395 static int
 396 stop (target)
 397         int target;
 398 {
 399         int ret = -1;
 400         unsigned char cmd_buffer[5];
 401
 402         if (send_first(target, STOP))
 403                 goto bad;
 404         cmd_buffer[0] = cmd_buffer[1] = cmd_buffer[2] =
 405         cmd_buffer[3] = cmd_buffer[4] = 0;
 406         if (send_1_5(7, cmd_buffer, 0) ||
 407             !acsi_wait_for_IRQ(TIMEOUTDMA) ||
 408             get_status())
 409                 goto bad;
 410         ret = 0;
 411 bad:
 412         return (ret);
 413 }
 414
 415 /* testpkt() returns the number of received packets waiting in the queue */
 416
 417 static int
 418 testpkt(target)
 419         int target;
 420 {
 421         int ret = -1;
 422
 423         if (send_first(target, NUMPKTS))
 424                 goto bad;
 425         ret = get_status();
 426 bad:
 427         return (ret);
 428 }
 429
 430 /* inquiry() returns 0 when PAM's DMA found, -1 when timeout, -2 otherwise */
 431 /* Please note: The buffer is for internal use only but must be defined!   */
 432
 433 static int
 434 inquiry (target, buffer)
 435         int target;
 436         unsigned char *buffer;
 437 {
 438         int ret = -1;
 439         unsigned char *vbuffer = phys_to_virt((unsigned long)buffer);
 440         unsigned char cmd_buffer[5];
 441
 442         if (send_first(target, INQUIRY))
 443                 goto bad;
 444         setup_dma(buffer, READ, 1);
 445         vbuffer[8] = vbuffer[27] = 0; /* Avoid confusion with previous read data */
 446         cmd_buffer[0] = cmd_buffer[1] = cmd_buffer[2] = cmd_buffer[4] = 0;
 447         cmd_buffer[3] = 48;
 448         if (send_1_5(5, cmd_buffer, 1) ||
 449             !acsi_wait_for_IRQ(TIMEOUTDMA) ||
 450             get_status() ||
 451             (calc_received(buffer) < 32))
 452                 goto bad;
 453         dma_cache_maintenance((unsigned long)(buffer+8), 20, 0);
 454         if (memcmp(inquire8, vbuffer+8, 20))
 455                 goto bad;
 456         ret = 0;
 457 bad:
 458         if (!!NET_DEBUG) {
 459                 vbuffer[8+20]=0;
 460                 printk("inquiry of target %d: %s\n", target, vbuffer+8);
 461         }
 462         return (ret);
 463 }
 464
 465 /*
 466  * read_hw_addr() reads the sector containing the hwaddr and returns
 467  * a pointer to it (virtual address!) or 0 in case of an error
 468  */
 469
 470 static HADDR
 471 *read_hw_addr(target, buffer)
 472         int target;
 473         unsigned char *buffer;
 474 {
 475         HADDR *ret = 0;
 476         unsigned char cmd_buffer[5];
 477
 478         if (send_first(target, READSECTOR))
 479                 goto bad;
 480         setup_dma(buffer, READ, 1);
 481         cmd_buffer[0] = cmd_buffer[1] = cmd_buffer[2] = cmd_buffer[4] = 0;
 482         cmd_buffer[3] = 1;
 483         if (send_1_5(5, cmd_buffer, 1) ||
 484             !acsi_wait_for_IRQ(TIMEOUTDMA) ||
 485             get_status())
 486                 goto bad;
 487         ret = phys_to_virt((unsigned long)&(((DMAHWADDR *)buffer)->hwaddr));
 488         dma_cache_maintenance((unsigned long)buffer, 512, 0);
 489 bad:
 490         return (ret);
 491 }
 492
 493 static irqreturn_t
 494 pamsnet_intr(irq, data, fp)
 495         int irq;
 496         void *data;
 497 {
 498         return IRQ_HANDLED;
 499 }
 500
 501 /* receivepkt() loads a packet to a given buffer and returns its length */
 502
 503 static int
 504 receivepkt (target, buffer)
 505         int target;
 506         unsigned char *buffer;
 507 {
 508         int ret = -1;
 509         unsigned char cmd_buffer[5];
 510
 511         if (send_first(target, READPKT))
 512                 goto bad;
 513         setup_dma(buffer, READ, 3);
 514         cmd_buffer[0] = cmd_buffer[1] = cmd_buffer[2] = cmd_buffer[4] = 0;
 515         cmd_buffer[3] = 3;
 516         if (send_1_5(7, cmd_buffer, 1) ||
 517             !acsi_wait_for_IRQ(TIMEOUTDMA) ||
 518             get_status())
 519                 goto bad;
 520         ret = calc_received(buffer);
 521 bad:
 522         return (ret);
 523 }
 524
 525 /* sendpkt() sends a packet and returns a value of zero when the packet was sent
 526              successfully */
 527
 528 static int
 529 sendpkt (target, buffer, length)
 530         int target;
 531         unsigned char *buffer;
 532         int length;
 533 {
 534         int ret = -1;
 535         unsigned char cmd_buffer[5];
 536
 537         if (send_first(target, WRITEPKT))
 538                 goto bad;
 539         setup_dma(buffer, WRITE, 3);
 540         cmd_buffer[0] = cmd_buffer[1] = cmd_buffer[4] = 0;
 541         cmd_buffer[2] = length >> 8;
 542         cmd_buffer[3] = length & 0xFF;
 543         if (send_1_5(7, cmd_buffer, 1) ||
 544             !acsi_wait_for_IRQ(TIMEOUTDMA) ||
 545             get_status())
 546                 goto bad;
 547         ret = 0;
 548 bad:
 549         return (ret);
 550 }
 551
 552 /* The following higher level routines work on virtual addresses and convert them to
 553  * physical addresses when passed to the lowlevel routines. It's up to the higher level
 554  * routines to copy data from Alternate RAM to ST RAM if neccesary!
 555  */
 556
 557 /* Check for a network adaptor of this type, and return '0' if one exists.
 558  */
 559
 560 struct net_device * __init pamsnet_probe (int unit)
 561 {
 562         struct net_device *dev;
 563         int i;
 564         HADDR *hwaddr;
 565         int err;
 566
 567         unsigned char station_addr[6];
 568         static unsigned version_printed;
 569         /* avoid "Probing for..." printed 4 times - the driver is supporting only one adapter now! */
 570         static int no_more_found;
 571
 572         if (no_more_found)
 573                 return ERR_PTR(-ENODEV);
 574         no_more_found = 1;
 575
 576         dev = alloc_etherdev(sizeof(struct net_local));
 577         if (!dev)
 578                 return ERR_PTR(-ENOMEM);
 579         if (unit >= 0) {
 580                 sprintf(dev->name, "eth%d", unit);
 581                 netdev_boot_setup_check(dev);
 582         }
 583         SET_MODULE_OWNER(dev);
 584
 585         printk("Probing for PAM's Net/GK Adapter...\n");
 586
 587         /* Allocate the DMA buffer here since we need it for probing! */
 588
 589         nic_packet = (struct nic_pkt_s *)acsi_buffer;
 590         phys_nic_packet = (unsigned char *)phys_acsi_buffer;
 591         if (pamsnet_debug > 0) {
 592                 printk("nic_packet at 0x%p, phys at 0x%p\n",
 593                            nic_packet, phys_nic_packet );
 594         }
 595
 596         stdma_lock(pamsnet_intr, NULL);
 597         DISABLE_IRQ();
 598
 599         for (i=0; i<8; i++) {
 600                 /* Do two inquiries to cover cases with strange equipment on previous ID */
 601                 /* blocking the ACSI bus (like the SLMC804 laser printer controller...   */
 602                 inquiry(i, phys_nic_packet);
 603                 if (!inquiry(i, phys_nic_packet)) {
 604                         lance_target = i;
 605                         break;
 606                 }
 607         }
 608
 609         if (!!NET_DEBUG)
 610                 printk("ID: %d\n",i);
 611
 612         if (lance_target >= 0) {
 613                 if (!(hwaddr = read_hw_addr(lance_target, phys_nic_packet)))
 614                         lance_target = -1;
 615                 else
 616                         memcpy (station_addr, hwaddr, ETH_ALEN);
 617         }
 618
 619         ENABLE_IRQ();
 620         stdma_release();
 621
 622         if (lance_target < 0) {
 623                 printk("No PAM's Net/GK found.\n");
 624                 free_netdev(dev);
 625                 return ERR_PTR(-ENODEV);
 626         }
 627
 628         if (pamsnet_debug > 0 && version_printed++ == 0)
 629                 printk(version);
 630
 631         printk("%s: %s found on target %01d, eth-addr: %02x:%02x:%02x:%02x:%02x:%02x.\n",
 632                 dev->name, "PAM's Net/GK", lance_target,
 633                 station_addr[0], station_addr[1], station_addr[2],
 634                 station_addr[3], station_addr[4], station_addr[5]);
 635
 636         /* Initialize the device structure. */
 637         dev->open               = pamsnet_open;
 638         dev->stop               = pamsnet_close;
 639         dev->hard_start_xmit    = pamsnet_send_packet;
 640         dev->get_stats          = net_get_stats;
 641
 642         /* Fill in the fields of the device structure with ethernet-generic
 643          * values. This should be in a common file instead of per-driver.
 644          */
 645
 646         for (i = 0; i < ETH_ALEN; i++) {
 647 #if 0
 648                 dev->broadcast[i] = 0xff;
 649 #endif
 650                 dev->dev_addr[i]  = station_addr[i];
 651         }
 652         err = register_netdev(dev);
 653         if (!err)
 654                 return dev;
 655
 656         free_netdev(dev);
 657         return ERR_PTR(err);
 658 }
 659
 660 /* Open/initialize the board.  This is called (in the current kernel)
 661    sometime after booting when the 'ifconfig' program is run.
 662
 663    This routine should set everything up anew at each open, even
 664    registers that "should" only need to be set once at boot, so that
 665    there is non-reboot way to recover if something goes wrong.
 666  */
 667 static int
 668 pamsnet_open(struct net_device *dev) {
 669         struct net_local *lp = netdev_priv(dev);
 670
 671         if (pamsnet_debug > 0)
 672                 printk("pamsnet_open\n");
 673         stdma_lock(pamsnet_intr, NULL);
 674         DISABLE_IRQ();
 675
 676         /* Reset the hardware here.
 677          */
 678         if (!if_up)
 679                 start(lance_target);
 680         if_up = 1;
 681         lp->open_time = 0;      /*jiffies*/
 682         lp->poll_time = MAX_POLL_TIME;
 683
 684         dev->tbusy = 0;
 685         dev->interrupt = 0;
 686         dev->start = 1;
 687
 688         ENABLE_IRQ();
 689         stdma_release();
 690         pamsnet_timer.data = (long)dev;
 691         pamsnet_timer.expires = jiffies + lp->poll_time;
 692         add_timer(&pamsnet_timer);
 693         return 0;
 694 }
 695
 696 static int
 697 pamsnet_send_packet(struct sk_buff *skb, struct net_device *dev) {
 698         struct net_local *lp = netdev_priv(dev);
 699         unsigned long flags;
 700
 701         /* Block a timer-based transmit from overlapping.  This could better be
 702          * done with atomic_swap(1, dev->tbusy), but set_bit() works as well.
 703          */
 704         local_irq_save(flags);
 705
 706         if (stdma_islocked()) {
 707                 local_irq_restore(flags);
 708                 lp->stats.tx_errors++;
 709         }
 710         else {
 711                 int length = ETH_ZLEN < skb->len ? skb->len : ETH_ZLEN;
 712                 unsigned long buf = virt_to_phys(skb->data);
 713                 int stat;
 714
 715                 stdma_lock(pamsnet_intr, NULL);
 716                 DISABLE_IRQ();
 717
 718                 local_irq_restore(flags);
 719                 if( !STRAM_ADDR(buf+length-1) ) {
 720                         skb_copy_from_linear_data(skb, nic_packet->buffer,
 721                                                   length);
 722                         buf = (unsigned long)phys_nic_packet;
 723                 }
 724
 725                 dma_cache_maintenance(buf, length, 1);
 726
 727                 stat = sendpkt(lance_target, (unsigned char *)buf, length);
 728                 ENABLE_IRQ();
 729                 stdma_release();
 730
 731                 dev->trans_start = jiffies;
 732                 dev->tbusy       = 0;
 733                 lp->stats.tx_packets++;
 734                 lp->stats.tx_bytes+=length;
 735         }
 736         dev_kfree_skb(skb);
 737
 738         return 0;
 739 }
 740
 741 /* We have a good packet(s), get it/them out of the buffers.
 742  */
 743 static void
 744 pamsnet_poll_rx(struct net_device *dev) {
 745         struct net_local *lp = netdev_priv(dev);
 746         int boguscount;
 747         int pkt_len;
 748         struct sk_buff *skb;
 749         unsigned long flags;
 750
 751         local_irq_save(flags);
 752         /* ++roman: Take care at locking the ST-DMA... This must be done with ints
 753          * off, since otherwise an int could slip in between the question and the
 754          * locking itself, and then we'd go to sleep... And locking itself is
 755          * necessary to keep the floppy_change timer from working with ST-DMA
 756          * registers. */
 757         if (stdma_islocked()) {
 758                 local_irq_restore(flags);
 759                 return;
 760         }
 761         stdma_lock(pamsnet_intr, NULL);
 762         DISABLE_IRQ();
 763         local_irq_restore(flags);
 764
 765         boguscount = testpkt(lance_target);
 766         if( lp->poll_time < MAX_POLL_TIME ) lp->poll_time++;
 767
 768         while(boguscount--) {
 769                 pkt_len = receivepkt(lance_target, phys_nic_packet);
 770
 771                 if( pkt_len < 60 ) break;
 772
 773                 /* Good packet... */
 774
 775                 dma_cache_maintenance((unsigned long)phys_nic_packet, pkt_len, 0);
 776
 777                 lp->poll_time = pamsnet_min_poll_time;    /* fast poll */
 778                 if( pkt_len >= 60 && pkt_len <= 2048 ) {
 779                         if (pkt_len > 1514)
 780                                 pkt_len = 1514;
 781
 782                         /* Malloc up new buffer.
 783                          */
 784                         skb = alloc_skb(pkt_len, GFP_ATOMIC);
 785                         if (skb == NULL) {
 786                                 printk("%s: Memory squeeze, dropping packet.\n",
 787                                         dev->name);
 788                                 lp->stats.rx_dropped++;
 789                                 break;
 790                         }
 791                         skb->len = pkt_len;
 792                         skb->dev = dev;
 793
 794                         /* 'skb->data' points to the start of sk_buff data area.
 795                          */
 796                         skb_copy_to_linear_data(skb, nic_packet->buffer,
 797                                                 pkt_len);
 798                         netif_rx(skb);
 799                         dev->last_rx = jiffies;
 800                         lp->stats.rx_packets++;
 801                         lp->stats.rx_bytes+=pkt_len;
 802                 }
 803         }
 804
 805         /* If any worth-while packets have been received, dev_rint()
 806            has done a mark_bh(INET_BH) for us and will work on them
 807            when we get to the bottom-half routine.
 808          */
 809
 810         ENABLE_IRQ();
 811         stdma_release();
 812         return;
 813 }
 814
 815 /* pamsnet_tick: called by pamsnet_timer. Reads packets from the adapter,
 816  * passes them to the higher layers and restarts the timer.
 817  */
 818 static void
 819 pamsnet_tick(unsigned long data) {
 820         struct net_device        *dev = (struct net_device *)data;
 821         struct net_local *lp = netdev_priv(dev);
 822
 823         if( pamsnet_debug > 0 && (lp->open_time++ & 7) == 8 )
 824                 printk("pamsnet_tick: %ld\n", lp->open_time);
 825
 826         pamsnet_poll_rx(dev);
 827
 828         pamsnet_timer.expires = jiffies + lp->poll_time;
 829         add_timer(&pamsnet_timer);
 830 }
 831
 832 /* The inverse routine to pamsnet_open().
 833  */
 834 static int
 835 pamsnet_close(struct net_device *dev) {
 836         struct net_local *lp = netdev_priv(dev);
 837
 838         if (pamsnet_debug > 0)
 839                 printk("pamsnet_close, open_time=%ld\n", lp->open_time);
 840         del_timer(&pamsnet_timer);
 841         stdma_lock(pamsnet_intr, NULL);
 842         DISABLE_IRQ();
 843
 844         if (if_up)
 845                 stop(lance_target);
 846         if_up = 0;
 847
 848         lp->open_time = 0;
 849
 850         dev->tbusy = 1;
 851         dev->start = 0;
 852
 853         ENABLE_IRQ();
 854         stdma_release();
 855         return 0;
 856 }
 857
 858 /* Get the current statistics.
 859    This may be called with the card open or closed.
 860  */
 861 static struct net_device_stats *net_get_stats(struct net_device *dev)
 862 {
 863         struct net_local *lp = netdev_priv(dev);
 864         return &lp->stats;
 865 }
 866
 867
 868 #ifdef MODULE
 869
 870 static struct net_device *pam_dev;
 871
 872 int init_module(void)
 873 {
 874         pam_dev = pamsnet_probe(-1);
 875         if (IS_ERR(pam_dev))
 876                 return PTR_ERR(pam_dev);
 877         return 0;
 878 }
 879
 880 void cleanup_module(void)
 881 {
 882         unregister_netdev(pam_dev);
 883         free_netdev(pam_dev);
 884 }
 885
 886 #endif /* MODULE */
 887
 888 /* Local variables:
 889  *  compile-command: "gcc -D__KERNEL__ -I/usr/src/linux/include
 890         -b m68k-linuxaout -Wall -Wstrict-prototypes -O2
 891         -fomit-frame-pointer -pipe -DMODULE -I../../net/inet -c atari_pamsnet.c"
 892  *  version-control: t
 893  *  kept-new-versions: 5
 894  *  tab-width: 8
 895  * End:
 896  */