1 /* bionet.c BioNet-100 device driver for linux68k.
3 * Version: @(#)bionet.c 1.0 02/06/96
5 * Author: Hartmut Laue <laue@ifk-mp.uni-kiel.de>
6 * and Torsten Narjes <narjes@ifk-mp.uni-kiel.de>
8 * Little adaptions for integration into pl7 by Roman Hodek
10 * Some changes in bionet_poll_rx by Karl-Heinz Lohner
14 This driver controls the BIONET-100 LAN-Adapter which connects
15 an ATARI ST/TT via the ACSI-port to an Ethernet-based network.
17 This version can be compiled as a loadable module (See the
18 compile command at the bottom of this file).
19 At load time, you can optionally set the debugging level and the
20 fastest response time on the command line of 'insmod'.
23 controls the amount of diagnostic messages:
25 >0 : see code for meaning of printed messages
27 'bionet_min_poll_time' (always >=1)
28 gives the time (in jiffies) between polls. Low values
29 increase the system load (beware!)
31 When loaded, a net device with the name 'bio0' becomes available,
32 which can be controlled with the usual 'ifconfig' command.
34 It is possible to compile this driver into the kernel like other
35 (net) drivers. For this purpose, some source files (e.g. config-files
36 makefiles, Space.c) must be changed accordingly. (You may refer to
37 other drivers how to do it.) In this case, the device will be detected
38 at boot time and (probably) appear as 'eth0'.
40 This code is based on several sources:
41 - The driver code for a parallel port ethernet adapter by
42 Donald Becker (see file 'atp.c' from the PC linux distribution)
43 - The ACSI code by Roman Hodek for the ATARI-ACSI harddisk support
45 - Very limited information about moving packets in and out of the
46 BIONET-adapter from the TCP package for TOS by BioData GmbH.
50 Because the ATARI DMA port is usually shared between several
51 devices (eg. harddisk, floppy) we cannot block the ACSI bus
52 while waiting for interrupts. Therefore we use a polling mechanism
53 to fetch packets from the adapter. For the same reason, we send
54 packets without checking that the previous packet has been sent to
55 the LAN. We rely on the higher levels of the networking code to detect
56 missing packets and resend them.
58 Before we access the ATARI DMA controller, we check if another
59 process is using the DMA. If not, we lock the DMA, perform one or
60 more packet transfers and unlock the DMA before returning.
61 We do not use 'stdma_lock' unconditionally because it is unclear
62 if the networking code can be set to sleep, which will happen if
63 another (possibly slow) device is using the DMA controller.
65 The polling is done via timer interrupts which periodically
66 'simulate' an interrupt from the Ethernet adapter. The time (in jiffies)
67 between polls varies depending on an estimate of the net activity.
68 The allowed range is given by the variable 'bionet_min_poll_time'
69 for the lower (fastest) limit and the constant 'MAX_POLL_TIME'
70 for the higher (slowest) limit.
72 Whenever a packet arrives, we switch to fastest response by setting
73 the polling time to its lowest limit. If the following poll fails,
74 because no packets have arrived, we increase the time for the next
75 poll. When the net activity is low, the polling time effectively
76 stays at its maximum value, resulting in the lowest load for the
80 #define MAX_POLL_TIME 10
82 static char version[] =
83 "bionet.c:v1.0 06-feb-96 (c) Hartmut Laue.\n";
85 #include <linux/module.h>
87 #include <linux/errno.h>
88 #include <linux/kernel.h>
89 #include <linux/jiffies.h>
90 #include <linux/types.h>
91 #include <linux/fcntl.h>
92 #include <linux/interrupt.h>
93 #include <linux/ioport.h>
95 #include <linux/slab.h>
96 #include <linux/string.h>
97 #include <linux/delay.h>
98 #include <linux/timer.h>
99 #include <linux/init.h>
100 #include <linux/bitops.h>
102 #include <linux/netdevice.h>
103 #include <linux/etherdevice.h>
104 #include <linux/skbuff.h>
106 #include <asm/setup.h>
107 #include <asm/pgtable.h>
108 #include <asm/system.h>
111 #include <asm/atarihw.h>
112 #include <asm/atariints.h>
113 #include <asm/atari_acsi.h>
114 #include <asm/atari_stdma.h>
117 /* use 0 for production, 1 for verification, >2 for debug
123 * Global variable 'bionet_debug'. Can be set at load time by 'insmod'
125 unsigned int bionet_debug = NET_DEBUG;
126 module_param(bionet_debug, int, 0);
127 MODULE_PARM_DESC(bionet_debug, "bionet debug level (0-2)");
128 MODULE_LICENSE("GPL");
130 static unsigned int bionet_min_poll_time = 2;
133 /* Information that need to be kept for each board.
136 struct net_device_stats stats;
137 long open_time; /* for debugging */
138 int poll_time; /* polling time varies with net load */
141 static struct nic_pkt_s { /* packet format */
142 unsigned char status;
144 unsigned char l_lo, l_hi;
145 unsigned char buffer[3000];
147 unsigned char *phys_nic_packet;
149 /* Index to functions, as function prototypes.
151 static int bionet_open(struct net_device *dev);
152 static int bionet_send_packet(struct sk_buff *skb, struct net_device *dev);
153 static void bionet_poll_rx(struct net_device *);
154 static int bionet_close(struct net_device *dev);
155 static struct net_device_stats *net_get_stats(struct net_device *dev);
156 static void bionet_tick(unsigned long);
158 static DEFINE_TIMER(bionet_timer, bionet_tick, 0, 0);
160 #define STRAM_ADDR(a) (((a) & 0xff000000) == 0)
162 /* The following routines access the ethernet board connected to the
163 * ACSI port via the st_dma chip.
165 #define NODE_ADR 0x60
173 sendcmd(unsigned int a0, unsigned int mod, unsigned int cmd) {
176 dma_wd.dma_mode_status = (mod | ((a0) ? 2 : 0) | 0x88);
177 dma_wd.fdc_acces_seccount = cmd;
178 dma_wd.dma_mode_status = (mod | 0x8a);
180 if( !acsi_wait_for_IRQ(HZ/2) ) /* wait for cmd ack */
181 return -1; /* timeout */
183 c = dma_wd.fdc_acces_seccount;
190 sendcmd(0,0x100,NODE_ADR | C_SETCR); /* CMD: SET CR */
193 dma_wd.dma_mode_status = 0x80;
197 get_status(unsigned char *adr) {
201 c = sendcmd(0,0x00,NODE_ADR | C_GETEA); /* CMD: GET ETH ADR*/
202 if( c < 0 ) goto gsend;
204 /* now read status bytes */
206 for (i=0; i<6; i++) {
207 dma_wd.fdc_acces_seccount = 0; /* request next byte */
209 if( !acsi_wait_for_IRQ(HZ/2) ) { /* wait for cmd ack */
211 goto gsend; /* timeout */
213 c = dma_wd.fdc_acces_seccount;
214 *adr++ = (unsigned char)c;
218 dma_wd.dma_mode_status = 0x80;
223 bionet_intr(int irq, void *data) {
229 get_frame(unsigned long paddr, int odd) {
234 local_irq_save(flags);
236 dma_wd.dma_mode_status = 0x9a;
237 dma_wd.dma_mode_status = 0x19a;
238 dma_wd.dma_mode_status = 0x9a;
239 dma_wd.fdc_acces_seccount = 0x04; /* sector count (was 5) */
240 dma_wd.dma_lo = (unsigned char)paddr;
242 dma_wd.dma_md = (unsigned char)paddr;
244 dma_wd.dma_hi = (unsigned char)paddr;
245 local_irq_restore(flags);
247 c = sendcmd(0,0x00,NODE_ADR | C_READ); /* CMD: READ */
248 if( c < 128 ) goto rend;
252 c = sendcmd(1,0x00,odd); /* odd flag for address shift */
253 dma_wd.dma_mode_status = 0x0a;
255 if( !acsi_wait_for_IRQ(100) ) { /* wait for DMA to complete */
259 dma_wd.dma_mode_status = 0x8a;
260 dma_wd.dma_mode_status = 0x18a;
261 dma_wd.dma_mode_status = 0x8a;
262 c = dma_wd.fdc_acces_seccount;
264 dma_wd.dma_mode_status = 0x88;
265 c = dma_wd.fdc_acces_seccount;
269 dma_wd.dma_mode_status = 0x80;
271 acsi_wait_for_noIRQ(20);
277 hardware_send_packet(unsigned long paddr, int cnt) {
282 local_irq_save(flags);
284 dma_wd.dma_mode_status = 0x19a;
285 dma_wd.dma_mode_status = 0x9a;
286 dma_wd.dma_mode_status = 0x19a;
287 dma_wd.dma_lo = (unsigned char)paddr;
289 dma_wd.dma_md = (unsigned char)paddr;
291 dma_wd.dma_hi = (unsigned char)paddr;
293 dma_wd.fdc_acces_seccount = 0x4; /* sector count */
294 local_irq_restore(flags);
296 c = sendcmd(0,0x100,NODE_ADR | C_WRITE); /* CMD: WRITE */
297 c = sendcmd(1,0x100,cnt&0xff);
298 c = sendcmd(1,0x100,cnt>>8);
300 /* now write block */
302 dma_wd.dma_mode_status = 0x10a; /* DMA enable */
303 if( !acsi_wait_for_IRQ(100) ) /* wait for DMA to complete */
306 dma_wd.dma_mode_status = 0x19a; /* DMA disable ! */
307 c = dma_wd.fdc_acces_seccount;
310 c = sendcmd(1,0x100,0);
311 c = sendcmd(1,0x100,0);
313 dma_wd.dma_mode_status = 0x180;
315 acsi_wait_for_noIRQ(20);
320 /* Check for a network adaptor of this type, and return '0' if one exists.
322 struct net_device * __init bionet_probe(int unit)
324 struct net_device *dev;
325 unsigned char station_addr[6];
326 static unsigned version_printed;
327 static int no_more_found; /* avoid "Probing for..." printed 4 times */
331 if (!MACH_IS_ATARI || no_more_found)
332 return ERR_PTR(-ENODEV);
334 dev = alloc_etherdev(sizeof(struct net_local));
336 return ERR_PTR(-ENOMEM);
338 sprintf(dev->name, "eth%d", unit);
339 netdev_boot_setup_check(dev);
341 SET_MODULE_OWNER(dev);
343 printk("Probing for BioNet 100 Adapter...\n");
345 stdma_lock(bionet_intr, NULL);
346 i = get_status(station_addr); /* Read the station address PROM. */
350 /* Check the first three octets of the S.A. for the manufactor's code.
354 || station_addr[0] != 'B'
355 || station_addr[1] != 'I'
356 || station_addr[2] != 'O' ) {
358 printk( "No BioNet 100 found.\n" );
360 return ERR_PTR(-ENODEV);
363 if (bionet_debug > 0 && version_printed++ == 0)
366 printk("%s: %s found, eth-addr: %02x-%02x-%02x:%02x-%02x-%02x.\n",
367 dev->name, "BioNet 100",
368 station_addr[0], station_addr[1], station_addr[2],
369 station_addr[3], station_addr[4], station_addr[5]);
371 /* Initialize the device structure. */
373 nic_packet = (struct nic_pkt_s *)acsi_buffer;
374 phys_nic_packet = (unsigned char *)phys_acsi_buffer;
375 if (bionet_debug > 0) {
376 printk("nic_packet at 0x%p, phys at 0x%p\n",
377 nic_packet, phys_nic_packet );
380 dev->open = bionet_open;
381 dev->stop = bionet_close;
382 dev->hard_start_xmit = bionet_send_packet;
383 dev->get_stats = net_get_stats;
385 /* Fill in the fields of the device structure with ethernet-generic
386 * values. This should be in a common file instead of per-driver.
389 for (i = 0; i < ETH_ALEN; i++) {
391 dev->broadcast[i] = 0xff;
393 dev->dev_addr[i] = station_addr[i];
395 err = register_netdev(dev);
402 /* Open/initialize the board. This is called (in the current kernel)
403 sometime after booting when the 'ifconfig' program is run.
405 This routine should set everything up anew at each open, even
406 registers that "should" only need to be set once at boot, so that
407 there is non-reboot way to recover if something goes wrong.
410 bionet_open(struct net_device *dev) {
411 struct net_local *lp = netdev_priv(dev);
413 if (bionet_debug > 0)
414 printk("bionet_open\n");
415 stdma_lock(bionet_intr, NULL);
417 /* Reset the hardware here.
420 lp->open_time = 0; /*jiffies*/
421 lp->poll_time = MAX_POLL_TIME;
428 bionet_timer.data = (long)dev;
429 bionet_timer.expires = jiffies + lp->poll_time;
430 add_timer(&bionet_timer);
435 bionet_send_packet(struct sk_buff *skb, struct net_device *dev) {
436 struct net_local *lp = netdev_priv(dev);
439 /* Block a timer-based transmit from overlapping. This could better be
440 * done with atomic_swap(1, dev->tbusy), but set_bit() works as well.
442 local_irq_save(flags);
444 if (stdma_islocked()) {
445 local_irq_restore(flags);
446 lp->stats.tx_errors++;
449 int length = ETH_ZLEN < skb->len ? skb->len : ETH_ZLEN;
450 unsigned long buf = virt_to_phys(skb->data);
453 stdma_lock(bionet_intr, NULL);
454 local_irq_restore(flags);
455 if( !STRAM_ADDR(buf+length-1) ) {
456 skb_copy_from_linear_data(skb, nic_packet->buffer,
458 buf = (unsigned long)&((struct nic_pkt_s *)phys_nic_packet)->buffer;
461 if (bionet_debug >1) {
462 u_char *data = nic_packet->buffer, *p;
465 printk( "%s: TX pkt type 0x%4x from ", dev->name,
466 ((u_short *)data)[6]);
468 for( p = &data[6], i = 0; i < 6; i++ )
469 printk("%02x%s", *p++,i != 5 ? ":" : "" );
472 for( p = data, i = 0; i < 6; i++ )
473 printk("%02x%s", *p++,i != 5 ? ":" : "" "\n" );
475 printk( "%s: ", dev->name );
476 printk(" data %02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x"
477 " %02x%02x%02x%02x len %d\n",
478 data[12], data[13], data[14], data[15], data[16], data[17], data[18], data[19],
479 data[20], data[21], data[22], data[23], data[24], data[25], data[26], data[27],
480 data[28], data[29], data[30], data[31], data[32], data[33],
483 dma_cache_maintenance(buf, length, 1);
485 stat = hardware_send_packet(buf, length);
489 dev->trans_start = jiffies;
491 lp->stats.tx_packets++;
492 lp->stats.tx_bytes+=length;
499 /* We have a good packet(s), get it/them out of the buffers.
502 bionet_poll_rx(struct net_device *dev) {
503 struct net_local *lp = netdev_priv(dev);
508 local_irq_save(flags);
509 /* ++roman: Take care at locking the ST-DMA... This must be done with ints
510 * off, since otherwise an int could slip in between the question and the
511 * locking itself, and then we'd go to sleep... And locking itself is
512 * necessary to keep the floppy_change timer from working with ST-DMA
514 if (stdma_islocked()) {
515 local_irq_restore(flags);
518 stdma_lock(bionet_intr, NULL);
520 local_irq_restore(flags);
522 if( lp->poll_time < MAX_POLL_TIME ) lp->poll_time++;
524 while(boguscount--) {
525 status = get_frame((unsigned long)phys_nic_packet, 0);
527 if( status == 0 ) break;
531 dma_cache_maintenance((unsigned long)phys_nic_packet, 1520, 0);
533 pkt_len = (nic_packet->l_hi << 8) | nic_packet->l_lo;
535 lp->poll_time = bionet_min_poll_time; /* fast poll */
536 if( pkt_len >= 60 && pkt_len <= 1520 ) {
537 /* ^^^^ war 1514 KHL */
538 /* Malloc up new buffer.
540 struct sk_buff *skb = dev_alloc_skb( pkt_len + 2 );
542 printk("%s: Memory squeeze, dropping packet.\n",
544 lp->stats.rx_dropped++;
548 skb_reserve( skb, 2 ); /* 16 Byte align */
549 skb_put( skb, pkt_len ); /* make room */
551 /* 'skb->data' points to the start of sk_buff data area.
553 skb_copy_to_linear_data(skb, nic_packet->buffer,
555 skb->protocol = eth_type_trans( skb, dev );
557 dev->last_rx = jiffies;
558 lp->stats.rx_packets++;
559 lp->stats.rx_bytes+=pkt_len;
561 /* If any worth-while packets have been received, dev_rint()
562 has done a mark_bh(INET_BH) for us and will work on them
563 when we get to the bottom-half routine.
566 if (bionet_debug >1) {
567 u_char *data = nic_packet->buffer, *p;
570 printk( "%s: RX pkt type 0x%4x from ", dev->name,
571 ((u_short *)data)[6]);
574 for( p = &data[6], i = 0; i < 6; i++ )
575 printk("%02x%s", *p++,i != 5 ? ":" : "" );
577 for( p = data, i = 0; i < 6; i++ )
578 printk("%02x%s", *p++,i != 5 ? ":" : "" "\n" );
580 printk( "%s: ", dev->name );
581 printk(" data %02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x %02x%02x%02x%02x"
582 " %02x%02x%02x%02x len %d\n",
583 data[12], data[13], data[14], data[15], data[16], data[17], data[18], data[19],
584 data[20], data[21], data[22], data[23], data[24], data[25], data[26], data[27],
585 data[28], data[29], data[30], data[31], data[32], data[33],
590 printk(" Packet has wrong length: %04d bytes\n", pkt_len);
591 lp->stats.rx_errors++;
599 /* bionet_tick: called by bionet_timer. Reads packets from the adapter,
600 * passes them to the higher layers and restarts the timer.
603 bionet_tick(unsigned long data) {
604 struct net_device *dev = (struct net_device *)data;
605 struct net_local *lp = netdev_priv(dev);
607 if( bionet_debug > 0 && (lp->open_time++ & 7) == 8 )
608 printk("bionet_tick: %ld\n", lp->open_time);
610 if( !stdma_islocked() ) bionet_poll_rx(dev);
612 bionet_timer.expires = jiffies + lp->poll_time;
613 add_timer(&bionet_timer);
616 /* The inverse routine to bionet_open().
619 bionet_close(struct net_device *dev) {
620 struct net_local *lp = netdev_priv(dev);
622 if (bionet_debug > 0)
623 printk("bionet_close, open_time=%ld\n", lp->open_time);
624 del_timer(&bionet_timer);
625 stdma_lock(bionet_intr, NULL);
637 /* Get the current statistics.
638 This may be called with the card open or closed.
640 static struct net_device_stats *net_get_stats(struct net_device *dev)
642 struct net_local *lp = netdev_priv(dev);
649 static struct net_device *bio_dev;
651 int init_module(void)
653 bio_dev = bionet_probe(-1);
655 return PTR_ERR(bio_dev);
659 void cleanup_module(void)
661 unregister_netdev(bio_dev);
662 free_netdev(bio_dev);
668 * compile-command: "gcc -D__KERNEL__ -I/usr/src/linux/include
669 -b m68k-linuxaout -Wall -Wstrict-prototypes -O2
670 -fomit-frame-pointer -pipe -DMODULE -I../../net/inet -c bionet.c"
672 * kept-new-versions: 5