2  *  linux/drivers/net/am79c961.c
 
   4  *  by Russell King <rmk@arm.linux.org.uk> 1995-2001.
 
   6  * This program is free software; you can redistribute it and/or modify
 
   7  * it under the terms of the GNU General Public License version 2 as
 
   8  * published by the Free Software Foundation.
 
  10  * Derived from various things including skeleton.c
 
  12  * This is a special driver for the am79c961A Lance chip used in the
 
  13  * Intel (formally Digital Equipment Corp) EBSA110 platform.  Please
 
  14  * note that this can not be built as a module (it doesn't make sense).
 
  16 #include <linux/kernel.h>
 
  17 #include <linux/types.h>
 
  18 #include <linux/interrupt.h>
 
  19 #include <linux/ioport.h>
 
  20 #include <linux/slab.h>
 
  21 #include <linux/string.h>
 
  22 #include <linux/errno.h>
 
  23 #include <linux/netdevice.h>
 
  24 #include <linux/etherdevice.h>
 
  25 #include <linux/delay.h>
 
  26 #include <linux/init.h>
 
  27 #include <linux/crc32.h>
 
  28 #include <linux/bitops.h>
 
  29 #include <linux/platform_device.h>
 
  31 #include <mach/hardware.h>
 
  33 #include <asm/system.h>
 
  38 #include "am79c961a.h"
 
  41 am79c961_interrupt (int irq, void *dev_id);
 
  43 static unsigned int net_debug = NET_DEBUG;
 
  45 static const char version[] =
 
  46         "am79c961 ethernet driver (C) 1995-2001 Russell King v0.04\n";
 
  48 /* --------------------------------------------------------------------------- */
 
  51 static void write_rreg(u_long base, u_int reg, u_int val)
 
  54         "str%?h %1, [%2]        @ NET_RAP\n\t"
 
  55         "str%?h %0, [%2, #-4]   @ NET_RDP"
 
  57         : "r" (val), "r" (reg), "r" (ISAIO_BASE + 0x0464));
 
  60 static inline unsigned short read_rreg(u_long base_addr, u_int reg)
 
  64         "str%?h %1, [%2]        @ NET_RAP\n\t"
 
  65         "ldr%?h %0, [%2, #-4]   @ NET_RDP"
 
  67         : "r" (reg), "r" (ISAIO_BASE + 0x0464));
 
  71 static inline void write_ireg(u_long base, u_int reg, u_int val)
 
  74         "str%?h %1, [%2]        @ NET_RAP\n\t"
 
  75         "str%?h %0, [%2, #8]    @ NET_IDP"
 
  77         : "r" (val), "r" (reg), "r" (ISAIO_BASE + 0x0464));
 
  80 static inline unsigned short read_ireg(u_long base_addr, u_int reg)
 
  84         "str%?h %1, [%2]        @ NAT_RAP\n\t"
 
  85         "ldr%?h %0, [%2, #8]    @ NET_IDP\n\t"
 
  87         : "r" (reg), "r" (ISAIO_BASE + 0x0464));
 
  91 #define am_writeword(dev,off,val) __raw_writew(val, ISAMEM_BASE + ((off) << 1))
 
  92 #define am_readword(dev,off)      __raw_readw(ISAMEM_BASE + ((off) << 1))
 
  95 am_writebuffer(struct net_device *dev, u_int offset, unsigned char *buf, unsigned int length)
 
  97         offset = ISAMEM_BASE + (offset << 1);
 
  98         length = (length + 1) & ~1;
 
 100                 __asm__ __volatile__("str%?h    %2, [%0], #4"
 
 101                  : "=&r" (offset) : "0" (offset), "r" (buf[0] | (buf[1] << 8)));
 
 106                 unsigned int tmp, tmp2;
 
 107                 __asm__ __volatile__(
 
 108                         "ldm%?ia        %1!, {%2, %3}\n\t"
 
 109                         "str%?h %2, [%0], #4\n\t"
 
 110                         "mov%?  %2, %2, lsr #16\n\t"
 
 111                         "str%?h %2, [%0], #4\n\t"
 
 112                         "str%?h %3, [%0], #4\n\t"
 
 113                         "mov%?  %3, %3, lsr #16\n\t"
 
 114                         "str%?h %3, [%0], #4"
 
 115                 : "=&r" (offset), "=&r" (buf), "=r" (tmp), "=r" (tmp2)
 
 116                 : "0" (offset), "1" (buf));
 
 120                 __asm__ __volatile__("str%?h    %2, [%0], #4"
 
 121                  : "=&r" (offset) : "0" (offset), "r" (buf[0] | (buf[1] << 8)));
 
 128 am_readbuffer(struct net_device *dev, u_int offset, unsigned char *buf, unsigned int length)
 
 130         offset = ISAMEM_BASE + (offset << 1);
 
 131         length = (length + 1) & ~1;
 
 134                 __asm__ __volatile__(
 
 135                         "ldr%?h %2, [%0], #4\n\t"
 
 136                         "str%?b %2, [%1], #1\n\t"
 
 137                         "mov%?  %2, %2, lsr #8\n\t"
 
 138                         "str%?b %2, [%1], #1"
 
 139                 : "=&r" (offset), "=&r" (buf), "=r" (tmp): "0" (offset), "1" (buf));
 
 143                 unsigned int tmp, tmp2, tmp3;
 
 144                 __asm__ __volatile__(
 
 145                         "ldr%?h %2, [%0], #4\n\t"
 
 146                         "ldr%?h %3, [%0], #4\n\t"
 
 147                         "orr%?  %2, %2, %3, lsl #16\n\t"
 
 148                         "ldr%?h %3, [%0], #4\n\t"
 
 149                         "ldr%?h %4, [%0], #4\n\t"
 
 150                         "orr%?  %3, %3, %4, lsl #16\n\t"
 
 151                         "stm%?ia        %1!, {%2, %3}"
 
 152                 : "=&r" (offset), "=&r" (buf), "=r" (tmp), "=r" (tmp2), "=r" (tmp3)
 
 153                 : "0" (offset), "1" (buf));
 
 158                 __asm__ __volatile__(
 
 159                         "ldr%?h %2, [%0], #4\n\t"
 
 160                         "str%?b %2, [%1], #1\n\t"
 
 161                         "mov%?  %2, %2, lsr #8\n\t"
 
 162                         "str%?b %2, [%1], #1"
 
 163                 : "=&r" (offset), "=&r" (buf), "=r" (tmp) : "0" (offset), "1" (buf));
 
 168 #error Not compatible
 
 172 am79c961_ramtest(struct net_device *dev, unsigned int val)
 
 174         unsigned char *buffer = kmalloc (65536, GFP_KERNEL);
 
 175         int i, error = 0, errorcount = 0;
 
 179         memset (buffer, val, 65536);
 
 180         am_writebuffer(dev, 0, buffer, 65536);
 
 181         memset (buffer, val ^ 255, 65536);
 
 182         am_readbuffer(dev, 0, buffer, 65536);
 
 183         for (i = 0; i < 65536; i++) {
 
 184                 if (buffer[i] != val && !error) {
 
 185                         printk ("%s: buffer error (%02X %02X) %05X - ", dev->name, val, buffer[i], i);
 
 188                 } else if (error && buffer[i] == val) {
 
 189                         printk ("%05X\n", i);
 
 200 am79c961_init_for_open(struct net_device *dev)
 
 202         struct dev_priv *priv = netdev_priv(dev);
 
 205         u_int hdr_addr, first_free_addr;
 
 211         spin_lock_irqsave(priv->chip_lock, flags);
 
 212         write_rreg (dev->base_addr, CSR0, CSR0_BABL|CSR0_CERR|CSR0_MISS|CSR0_MERR|CSR0_TINT|CSR0_RINT|CSR0_STOP);
 
 213         spin_unlock_irqrestore(priv->chip_lock, flags);
 
 215         write_ireg (dev->base_addr, 5, 0x00a0); /* Receive address LED */
 
 216         write_ireg (dev->base_addr, 6, 0x0081); /* Collision LED */
 
 217         write_ireg (dev->base_addr, 7, 0x0090); /* XMIT LED */
 
 218         write_ireg (dev->base_addr, 2, 0x0000); /* MODE register selects media */
 
 220         for (i = LADRL; i <= LADRH; i++)
 
 221                 write_rreg (dev->base_addr, i, 0);
 
 223         for (i = PADRL, p = dev->dev_addr; i <= PADRH; i++, p += 2)
 
 224                 write_rreg (dev->base_addr, i, p[0] | (p[1] << 8));
 
 227         if (dev->flags & IFF_PROMISC)
 
 230         write_rreg (dev->base_addr, MODE, i);
 
 231         write_rreg (dev->base_addr, POLLINT, 0);
 
 232         write_rreg (dev->base_addr, SIZERXR, -RX_BUFFERS);
 
 233         write_rreg (dev->base_addr, SIZETXR, -TX_BUFFERS);
 
 235         first_free_addr = RX_BUFFERS * 8 + TX_BUFFERS * 8 + 16;
 
 240         priv->rxhdr = hdr_addr;
 
 242         for (i = 0; i < RX_BUFFERS; i++) {
 
 243                 priv->rxbuffer[i] = first_free_addr;
 
 244                 am_writeword (dev, hdr_addr, first_free_addr);
 
 245                 am_writeword (dev, hdr_addr + 2, RMD_OWN);
 
 246                 am_writeword (dev, hdr_addr + 4, (-1600));
 
 247                 am_writeword (dev, hdr_addr + 6, 0);
 
 248                 first_free_addr += 1600;
 
 253         priv->txhdr = hdr_addr;
 
 254         for (i = 0; i < TX_BUFFERS; i++) {
 
 255                 priv->txbuffer[i] = first_free_addr;
 
 256                 am_writeword (dev, hdr_addr, first_free_addr);
 
 257                 am_writeword (dev, hdr_addr + 2, TMD_STP|TMD_ENP);
 
 258                 am_writeword (dev, hdr_addr + 4, 0xf000);
 
 259                 am_writeword (dev, hdr_addr + 6, 0);
 
 260                 first_free_addr += 1600;
 
 264         write_rreg (dev->base_addr, BASERXL, priv->rxhdr);
 
 265         write_rreg (dev->base_addr, BASERXH, 0);
 
 266         write_rreg (dev->base_addr, BASETXL, priv->txhdr);
 
 267         write_rreg (dev->base_addr, BASERXH, 0);
 
 268         write_rreg (dev->base_addr, CSR0, CSR0_STOP);
 
 269         write_rreg (dev->base_addr, CSR3, CSR3_IDONM|CSR3_BABLM|CSR3_DXSUFLO);
 
 270         write_rreg (dev->base_addr, CSR4, CSR4_APAD_XMIT|CSR4_MFCOM|CSR4_RCVCCOM|CSR4_TXSTRTM|CSR4_JABM);
 
 271         write_rreg (dev->base_addr, CSR0, CSR0_IENA|CSR0_STRT);
 
 274 static void am79c961_timer(unsigned long data)
 
 276         struct net_device *dev = (struct net_device *)data;
 
 277         struct dev_priv *priv = netdev_priv(dev);
 
 278         unsigned int lnkstat, carrier;
 
 280         lnkstat = read_ireg(dev->base_addr, ISALED0) & ISALED0_LNKST;
 
 281         carrier = netif_carrier_ok(dev);
 
 283         if (lnkstat && !carrier) {
 
 284                 netif_carrier_on(dev);
 
 285                 printk("%s: link up\n", dev->name);
 
 286         } else if (!lnkstat && carrier) {
 
 287                 netif_carrier_off(dev);
 
 288                 printk("%s: link down\n", dev->name);
 
 291         mod_timer(&priv->timer, jiffies + msecs_to_jiffies(500));
 
 295  * Open/initialize the board.
 
 298 am79c961_open(struct net_device *dev)
 
 300         struct dev_priv *priv = netdev_priv(dev);
 
 303         memset (&priv->stats, 0, sizeof (priv->stats));
 
 305         ret = request_irq(dev->irq, am79c961_interrupt, 0, dev->name, dev);
 
 309         am79c961_init_for_open(dev);
 
 311         netif_carrier_off(dev);
 
 313         priv->timer.expires = jiffies;
 
 314         add_timer(&priv->timer);
 
 316         netif_start_queue(dev);
 
 322  * The inverse routine to am79c961_open().
 
 325 am79c961_close(struct net_device *dev)
 
 327         struct dev_priv *priv = netdev_priv(dev);
 
 330         del_timer_sync(&priv->timer);
 
 332         netif_stop_queue(dev);
 
 333         netif_carrier_off(dev);
 
 335         spin_lock_irqsave(priv->chip_lock, flags);
 
 336         write_rreg (dev->base_addr, CSR0, CSR0_STOP);
 
 337         write_rreg (dev->base_addr, CSR3, CSR3_MASKALL);
 
 338         spin_unlock_irqrestore(priv->chip_lock, flags);
 
 340         free_irq (dev->irq, dev);
 
 346  * Get the current statistics.
 
 348 static struct net_device_stats *am79c961_getstats (struct net_device *dev)
 
 350         struct dev_priv *priv = netdev_priv(dev);
 
 354 static void am79c961_mc_hash(struct dev_mc_list *dmi, unsigned short *hash)
 
 356         if (dmi->dmi_addrlen == ETH_ALEN && dmi->dmi_addr[0] & 0x01) {
 
 360                 crc = ether_crc_le(ETH_ALEN, dmi->dmi_addr);
 
 363                 bit = (crc >> 26) & 15;
 
 365                 hash[idx] |= 1 << bit;
 
 370  * Set or clear promiscuous/multicast mode filter for this adapter.
 
 372 static void am79c961_setmulticastlist (struct net_device *dev)
 
 374         struct dev_priv *priv = netdev_priv(dev);
 
 376         unsigned short multi_hash[4], mode;
 
 379         mode = MODE_PORT_10BT;
 
 381         if (dev->flags & IFF_PROMISC) {
 
 382                 mode |= MODE_PROMISC;
 
 383         } else if (dev->flags & IFF_ALLMULTI) {
 
 384                 memset(multi_hash, 0xff, sizeof(multi_hash));
 
 386                 struct dev_mc_list *dmi;
 
 388                 memset(multi_hash, 0x00, sizeof(multi_hash));
 
 390                 for (dmi = dev->mc_list; dmi; dmi = dmi->next)
 
 391                         am79c961_mc_hash(dmi, multi_hash);
 
 394         spin_lock_irqsave(priv->chip_lock, flags);
 
 396         stopped = read_rreg(dev->base_addr, CSR0) & CSR0_STOP;
 
 400                  * Put the chip into suspend mode
 
 402                 write_rreg(dev->base_addr, CTRL1, CTRL1_SPND);
 
 405                  * Spin waiting for chip to report suspend mode
 
 407                 while ((read_rreg(dev->base_addr, CTRL1) & CTRL1_SPND) == 0) {
 
 408                         spin_unlock_irqrestore(priv->chip_lock, flags);
 
 410                         spin_lock_irqsave(priv->chip_lock, flags);
 
 415          * Update the multicast hash table
 
 417         for (i = 0; i < ARRAY_SIZE(multi_hash); i++)
 
 418                 write_rreg(dev->base_addr, i + LADRL, multi_hash[i]);
 
 421          * Write the mode register
 
 423         write_rreg(dev->base_addr, MODE, mode);
 
 427                  * Put the chip back into running mode
 
 429                 write_rreg(dev->base_addr, CTRL1, 0);
 
 432         spin_unlock_irqrestore(priv->chip_lock, flags);
 
 435 static void am79c961_timeout(struct net_device *dev)
 
 437         printk(KERN_WARNING "%s: transmit timed out, network cable problem?\n",
 
 441          * ought to do some setup of the tx side here
 
 444         netif_wake_queue(dev);
 
 451 am79c961_sendpacket(struct sk_buff *skb, struct net_device *dev)
 
 453         struct dev_priv *priv = netdev_priv(dev);
 
 454         unsigned int hdraddr, bufaddr;
 
 459         hdraddr = priv->txhdr + (head << 3);
 
 460         bufaddr = priv->txbuffer[head];
 
 462         if (head >= TX_BUFFERS)
 
 465         am_writebuffer (dev, bufaddr, skb->data, skb->len);
 
 466         am_writeword (dev, hdraddr + 4, -skb->len);
 
 467         am_writeword (dev, hdraddr + 2, TMD_OWN|TMD_STP|TMD_ENP);
 
 470         spin_lock_irqsave(priv->chip_lock, flags);
 
 471         write_rreg (dev->base_addr, CSR0, CSR0_TDMD|CSR0_IENA);
 
 472         dev->trans_start = jiffies;
 
 473         spin_unlock_irqrestore(priv->chip_lock, flags);
 
 476          * If the next packet is owned by the ethernet device,
 
 477          * then the tx ring is full and we can't add another
 
 480         if (am_readword(dev, priv->txhdr + (priv->txhead << 3) + 2) & TMD_OWN)
 
 481                 netif_stop_queue(dev);
 
 489  * If we have a good packet(s), get it/them out of the buffers.
 
 492 am79c961_rx(struct net_device *dev, struct dev_priv *priv)
 
 501                 hdraddr = priv->rxhdr + (priv->rxtail << 3);
 
 502                 pktaddr = priv->rxbuffer[priv->rxtail];
 
 504                 status = am_readword (dev, hdraddr + 2);
 
 505                 if (status & RMD_OWN) /* do we own it? */
 
 509                 if (priv->rxtail >= RX_BUFFERS)
 
 512                 if ((status & (RMD_ERR|RMD_STP|RMD_ENP)) != (RMD_STP|RMD_ENP)) {
 
 513                         am_writeword (dev, hdraddr + 2, RMD_OWN);
 
 514                         priv->stats.rx_errors ++;
 
 515                         if (status & RMD_ERR) {
 
 516                                 if (status & RMD_FRAM)
 
 517                                         priv->stats.rx_frame_errors ++;
 
 518                                 if (status & RMD_CRC)
 
 519                                         priv->stats.rx_crc_errors ++;
 
 520                         } else if (status & RMD_STP)
 
 521                                 priv->stats.rx_length_errors ++;
 
 525                 len = am_readword(dev, hdraddr + 6);
 
 526                 skb = dev_alloc_skb(len + 2);
 
 531                         am_readbuffer(dev, pktaddr, skb_put(skb, len), len);
 
 532                         am_writeword(dev, hdraddr + 2, RMD_OWN);
 
 533                         skb->protocol = eth_type_trans(skb, dev);
 
 535                         dev->last_rx = jiffies;
 
 536                         priv->stats.rx_bytes += len;
 
 537                         priv->stats.rx_packets ++;
 
 539                         am_writeword (dev, hdraddr + 2, RMD_OWN);
 
 540                         printk (KERN_WARNING "%s: memory squeeze, dropping packet.\n", dev->name);
 
 541                         priv->stats.rx_dropped ++;
 
 548  * Update stats for the transmitted packet
 
 551 am79c961_tx(struct net_device *dev, struct dev_priv *priv)
 
 558                 hdraddr = priv->txhdr + (priv->txtail << 3);
 
 559                 status = am_readword (dev, hdraddr + 2);
 
 560                 if (status & TMD_OWN)
 
 564                 if (priv->txtail >= TX_BUFFERS)
 
 567                 if (status & TMD_ERR) {
 
 570                         priv->stats.tx_errors ++;
 
 572                         status2 = am_readword (dev, hdraddr + 6);
 
 575                          * Clear the error byte
 
 577                         am_writeword (dev, hdraddr + 6, 0);
 
 579                         if (status2 & TST_RTRY)
 
 580                                 priv->stats.collisions += 16;
 
 581                         if (status2 & TST_LCOL)
 
 582                                 priv->stats.tx_window_errors ++;
 
 583                         if (status2 & TST_LCAR)
 
 584                                 priv->stats.tx_carrier_errors ++;
 
 585                         if (status2 & TST_UFLO)
 
 586                                 priv->stats.tx_fifo_errors ++;
 
 589                 priv->stats.tx_packets ++;
 
 590                 len = am_readword (dev, hdraddr + 4);
 
 591                 priv->stats.tx_bytes += -len;
 
 592         } while (priv->txtail != priv->txhead);
 
 594         netif_wake_queue(dev);
 
 598 am79c961_interrupt(int irq, void *dev_id)
 
 600         struct net_device *dev = (struct net_device *)dev_id;
 
 601         struct dev_priv *priv = netdev_priv(dev);
 
 602         u_int status, n = 100;
 
 606                 status = read_rreg(dev->base_addr, CSR0);
 
 607                 write_rreg(dev->base_addr, CSR0, status &
 
 608                            (CSR0_IENA|CSR0_TINT|CSR0_RINT|
 
 609                             CSR0_MERR|CSR0_MISS|CSR0_CERR|CSR0_BABL));
 
 611                 if (status & CSR0_RINT) {
 
 613                         am79c961_rx(dev, priv);
 
 615                 if (status & CSR0_TINT) {
 
 617                         am79c961_tx(dev, priv);
 
 619                 if (status & CSR0_MISS) {
 
 621                         priv->stats.rx_dropped ++;
 
 623                 if (status & CSR0_CERR) {
 
 625                         mod_timer(&priv->timer, jiffies);
 
 627         } while (--n && status & (CSR0_RINT | CSR0_TINT));
 
 629         return IRQ_RETVAL(handled);
 
 632 #ifdef CONFIG_NET_POLL_CONTROLLER
 
 633 static void am79c961_poll_controller(struct net_device *dev)
 
 636         local_irq_save(flags);
 
 637         am79c961_interrupt(dev->irq, dev);
 
 638         local_irq_restore(flags);
 
 643  * Initialise the chip.  Note that we always expect
 
 644  * to be entered with interrupts enabled.
 
 647 am79c961_hw_init(struct net_device *dev)
 
 649         struct dev_priv *priv = netdev_priv(dev);
 
 651         spin_lock_irq(&priv->chip_lock);
 
 652         write_rreg (dev->base_addr, CSR0, CSR0_STOP);
 
 653         write_rreg (dev->base_addr, CSR3, CSR3_MASKALL);
 
 654         spin_unlock_irq(&priv->chip_lock);
 
 656         am79c961_ramtest(dev, 0x66);
 
 657         am79c961_ramtest(dev, 0x99);
 
 662 static void __init am79c961_banner(void)
 
 664         static unsigned version_printed;
 
 666         if (net_debug && version_printed++ == 0)
 
 667                 printk(KERN_INFO "%s", version);
 
 670 static int __init am79c961_probe(struct platform_device *pdev)
 
 672         struct resource *res;
 
 673         struct net_device *dev;
 
 674         struct dev_priv *priv;
 
 677         res = platform_get_resource(pdev, IORESOURCE_IO, 0);
 
 681         dev = alloc_etherdev(sizeof(struct dev_priv));
 
 686         SET_NETDEV_DEV(dev, &pdev->dev);
 
 688         priv = netdev_priv(dev);
 
 691          * Fixed address and IRQ lines here.
 
 692          * The PNP initialisation should have been
 
 693          * done by the ether bootp loader.
 
 695         dev->base_addr = res->start;
 
 696         ret = platform_get_irq(pdev, 0);
 
 705         if (!request_region(dev->base_addr, 0x18, dev->name))
 
 711         inb(dev->base_addr + NET_RESET);
 
 715          * Check the manufacturer part of the
 
 718         if (inb(dev->base_addr) != 0x08 ||
 
 719             inb(dev->base_addr + 2) != 0x00 ||
 
 720             inb(dev->base_addr + 4) != 0x2b)
 
 723         for (i = 0; i < 6; i++)
 
 724                 dev->dev_addr[i] = inb(dev->base_addr + i * 2) & 0xff;
 
 728         spin_lock_init(&priv->chip_lock);
 
 729         init_timer(&priv->timer);
 
 730         priv->timer.data = (unsigned long)dev;
 
 731         priv->timer.function = am79c961_timer;
 
 733         if (am79c961_hw_init(dev))
 
 736         dev->open               = am79c961_open;
 
 737         dev->stop               = am79c961_close;
 
 738         dev->hard_start_xmit    = am79c961_sendpacket;
 
 739         dev->get_stats          = am79c961_getstats;
 
 740         dev->set_multicast_list = am79c961_setmulticastlist;
 
 741         dev->tx_timeout         = am79c961_timeout;
 
 742 #ifdef CONFIG_NET_POLL_CONTROLLER
 
 743         dev->poll_controller    = am79c961_poll_controller;
 
 746         ret = register_netdev(dev);
 
 748                 DECLARE_MAC_BUF(mac);
 
 750                 printk(KERN_INFO "%s: ether address %s\n",
 
 751                        dev->name, print_mac(mac, dev->dev_addr));
 
 756         release_region(dev->base_addr, 0x18);
 
 763 static struct platform_driver am79c961_driver = {
 
 764         .probe          = am79c961_probe,
 
 770 static int __init am79c961_init(void)
 
 772         return platform_driver_register(&am79c961_driver);
 
 775 __initcall(am79c961_init);