summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog7
-rw-r--r--i386/bogus/at3c501.h1
-rw-r--r--i386/i386at/autoconf.c11
-rw-r--r--i386/i386at/conf.c15
-rw-r--r--i386/i386at/if_3c501.c1240
-rw-r--r--i386/i386at/if_3c501.h175
6 files changed, 7 insertions, 1442 deletions
diff --git a/ChangeLog b/ChangeLog
index 9125c34..6cc5102 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,13 @@
`DEVELOPMENT' for details. Partly based on suggestions by
Gianluca Guida <glguida@gmail.com>.
+ * i386/bogus/at3c501.h: Remove file.
+ * i386/i386at/if_3c501.c: Likewise.
+ * i386/i386at/if_3c501.h: Likewise.
+ * i386/i386at/autoconf.c: Don't include <at3c501.h> anymore and adopt
+ all users of NAT3C501 as if it were always defined to `0'.
+ * i386/i386at/conf.c: Likewise.
+
* i386/bogus/ns8390.h: Remove file.
* i386/i386at/ds8390.h: Likewise.
* i386/i386at/if_3c503.h: Likewise.
diff --git a/i386/bogus/at3c501.h b/i386/bogus/at3c501.h
deleted file mode 100644
index 0e4e440..0000000
--- a/i386/bogus/at3c501.h
+++ /dev/null
@@ -1 +0,0 @@
-#define NAT3C501 1
diff --git a/i386/i386at/autoconf.c b/i386/i386at/autoconf.c
index bd0cddc..50a0e6f 100644
--- a/i386/i386at/autoconf.c
+++ b/i386/i386at/autoconf.c
@@ -59,12 +59,6 @@ extern struct bus_driver eaha_driver;
extern int eaha_intr();
#endif /* NEAHA */
-#include <at3c501.h>
-#if NAT3C501 > 0
-extern struct bus_driver at3c501driver;
-extern int at3c501intr();
-#endif /* NAT3C501 */
-
#include <ul.h>
#if NUL > 0
extern struct bus_driver uldriver;
@@ -245,11 +239,6 @@ struct bus_device bus_device_init[] = {
{ &eaha_driver, "tz", 7, 0, 0x0,0, 0, '?', 0, 0, 7, 0, },
#endif /* NEAHA > 0*/
-#if NAT3C501 > 0
- {&at3c501driver, "et", 0, at3c501intr, 0x300, 0,0x300,
- '?', 0, -1, -1, 0, 0, 0, SPL_SIX, 9},
-#endif /* NAT3C501 > 0 */
-
#if NUL > 0
{&uldriver, "ul", 0, ulintr, 0, 0, 0, '?', 0, -1, -1, 0, 0, 0, SPL_SIX, 0},
{&uldriver, "ul", 1, ulintr, 0, 0, 0, '?', 0, -1, -1, 0, 0, 0, SPL_SIX, 0},
diff --git a/i386/i386at/conf.c b/i386/i386at/conf.c
index 446744b..e718b7d 100644
--- a/i386/i386at/conf.c
+++ b/i386/i386at/conf.c
@@ -54,14 +54,6 @@ extern int wtopen(), wtread(), wtwrite(), wtclose();
#define wtname "wt"
#endif /* NWT > 0 */
-#include <at3c501.h>
-#if NAT3C501 > 0
-extern int at3c501open(), at3c501output(),
- at3c501getstat(), at3c501setstat(),
- at3c501setinput();
-#define at3c501name "et"
-#endif /* NAT3C501 > 0 */
-
#include <ul.h>
#if NUL > 0
extern int ulopen(), uloutput(), ulgetstat(), ulsetstat(),
@@ -199,13 +191,6 @@ struct dev_ops dev_name_list[] =
nodev },
#endif /* NWT > 0 */
-#if NAT3C501 > 0
- { at3c501name, at3c501open, nulldev, nulldev,
- at3c501output,at3c501getstat, at3c501setstat, nomap,
- at3c501setinput, nulldev, nulldev, 0,
- nodev },
-#endif
-
#if NUL > 0
{ ulname, ulopen, nulldev, nulldev,
uloutput, ulgetstat, ulsetstat, nulldev,
diff --git a/i386/i386at/if_3c501.c b/i386/i386at/if_3c501.c
deleted file mode 100644
index b822d27..0000000
--- a/i386/i386at/if_3c501.c
+++ /dev/null
@@ -1,1240 +0,0 @@
-/*
- * Mach Operating System
- * Copyright (c) 1991,1990,1989 Carnegie Mellon University
- * All Rights Reserved.
- *
- * Permission to use, copy, modify and distribute this software and its
- * documentation is hereby granted, provided that both the copyright
- * notice and this permission notice appear in all copies of the
- * software, derivative works or modified versions, and any portions
- * thereof, and that both notices appear in supporting documentation.
- *
- * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
- * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
- * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
- *
- * Carnegie Mellon requests users of this software to return to
- *
- * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
- * School of Computer Science
- * Carnegie Mellon University
- * Pittsburgh PA 15213-3890
- *
- * any improvements or extensions that they make and grant Carnegie Mellon
- * the rights to redistribute these changes.
- */
-/*
- * File: if_3c501.c
- * Author: Philippe Bernadat
- * Date: 1989
- * Copyright (c) 1989 OSF Research Institute
- *
- * 3COM Etherlink 3C501 Mach Ethernet drvier
- */
-/*
- Copyright 1990 by Open Software Foundation,
-Cambridge, MA.
-
- All Rights Reserved
-
- Permission to use, copy, modify, and distribute this software and
-its documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appears in all copies and
-that both the copyright notice and this permission notice appear in
-supporting documentation, and that the name of OSF or Open Software
-Foundation not be used in advertising or publicity pertaining to
-distribution of the software without specific, written prior
-permission.
-
- OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
-IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
-LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT,
-NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
-WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-*/
-
-#include <at3c501.h>
-
-#ifdef MACH_KERNEL
-#include <kern/time_out.h>
-#include <device/device_types.h>
-#include <device/errno.h>
-#include <device/io_req.h>
-#include <device/if_hdr.h>
-#include <device/if_ether.h>
-#include <device/net_status.h>
-#include <device/net_io.h>
-#else MACH_KERNEL
-#include <sys/param.h>
-#include <mach/machine/vm_param.h>
-#include <sys/systm.h>
-#include <sys/mbuf.h>
-#include <sys/buf.h>
-#include <sys/protosw.h>
-#include <sys/socket.h>
-#include <sys/vmmac.h>
-#include <sys/ioctl.h>
-#include <sys/errno.h>
-#include <sys/syslog.h>
-
-#include <net/if.h>
-#include <net/netisr.h>
-#include <net/route.h>
-
-#ifdef INET
-#include <netinet/in.h>
-#include <netinet/in_systm.h>
-#include <netinet/in_var.h>
-#include <netinet/ip.h>
-#include <netinet/if_ether.h>
-#endif
-
-#ifdef NS
-#include <netns/ns.h>
-#include <netns/ns_if.h>
-#endif
-#endif MACH_KERNEL
-
-#include <i386/ipl.h>
-#include <chips/busses.h>
-#include <i386at/if_3c501.h>
-
-#define SPLNET spl6
-
-int at3c501probe();
-void at3c501attach();
-int at3c501intr();
-int at3c501init();
-int at3c501output();
-int at3c501ioctl();
-int at3c501reset();
-int at3c501watch();
-
-static vm_offset_t at3c501_std[NAT3C501] = { 0 };
-static struct bus_device *at3c501_info[NAT3C501];
-struct bus_driver at3c501driver =
- {at3c501probe, 0, at3c501attach, 0, at3c501_std, "et", at3c501_info, };
-
-int watchdog_id;
-
-typedef struct {
-#ifdef MACH_KERNEL
- struct ifnet ds_if; /* generic interface header */
- u_char ds_addr[6]; /* Ethernet hardware address */
-#else MACH_KERNEL
- struct arpcom at3c501_ac;
-#define ds_if at3c501_ac.ac_if
-#define ds_addr at3c501_ac.ac_enaddr
-#endif MACH_KERNEL
- int flags;
- int timer;
- char *base;
- u_char address[ETHER_ADD_SIZE];
- short mode;
- int badxmt;
- int badrcv;
- int spurious;
- int rcv;
- int xmt;
-} at3c501_softc_t;
-
-at3c501_softc_t at3c501_softc[NAT3C501];
-
-/*
- * at3c501probe:
- *
- * This function "probes" or checks for the 3c501 board on the bus to see
- * if it is there. As far as I can tell, the best break between this
- * routine and the attach code is to simply determine whether the board
- * is configured in properly. Currently my approach to this is to write
- * and read a string from the Packet Buffer on the board being probed.
- * If the string comes back properly then we assume the board is there.
- * The config code expects to see a successful return from the probe
- * routine before attach will be called.
- *
- * input : address device is mapped to, and unit # being checked
- * output : a '1' is returned if the board exists, and a 0 otherwise
- *
- */
-at3c501probe(port, dev)
-struct bus_device *dev;
-{
- caddr_t base = (caddr_t)dev->address;
- int unit = dev->unit;
- char inbuf[50];
- char *str = "3c501 ethernet board %d out of range\n";
- int strsize = strlen(str);
-
- if ((unit < 0) || (unit >= NAT3C501)) {
- printf(str, unit);
- return(0);
- }
-
- /* reset */
- outb(IE_CSR(base), IE_RESET);
-
- /* write a string to the packet buffer */
-
- outb(IE_CSR(base), IE_RIDE | IE_SYSBFR);
- outw(IE_GP(base), 0);
- loutb(IE_BFR(base), str, strsize);
-
- /* read it back */
-
- outb(IE_CSR(base), IE_RIDE | IE_SYSBFR);
- outw(IE_GP(base), 0);
- linb(IE_BFR(base), inbuf, strsize);
- /* compare them */
-
-#ifdef MACH_KERNEL
- if (strncmp(str, inbuf, strsize))
-#else MACH_KERNEL
- if (bcmp(str, inbuf, strsize))
-#endif MACH_KERNEL
- {
- return(0);
- }
- at3c501_softc[unit].base = base;
-
- return(1);
-}
-
-/*
- * at3c501attach:
- *
- * This function attaches a 3C501 board to the "system". The rest of
- * runtime structures are initialized here (this routine is called after
- * a successful probe of the board). Once the ethernet address is read
- * and stored, the board's ifnet structure is attached and readied.
- *
- * input : bus_device structure setup in autoconfig
- * output : board structs and ifnet is setup
- *
- */
-void at3c501attach(dev)
-struct bus_device *dev;
-{
- at3c501_softc_t *sp;
- struct ifnet *ifp;
- u_char unit;
- caddr_t base;
-#ifdef MACH_KERNEL
-#else MACH_KERNEL
- extern int tcp_recvspace;
- tcp_recvspace = 0x300; /* empircal messure */
-#endif MACH_KERNEL
-
- take_dev_irq(dev);
- unit = (u_char)dev->unit;
- printf(", port = %x, spl = %d, pic = %d. ",
- dev->address, dev->sysdep, dev->sysdep1);
-
- sp = &at3c501_softc[unit];
- base = sp->base;
- if (base != (caddr_t)dev->address) {
- printf("3C501 board %d attach address error\n", unit);
- return;
- }
- sp->timer = -1;
- sp->flags = 0;
- sp->mode = 0;
- outb(IE_CSR(sp->base), IE_RESET);
- at3c501geteh(base, sp->ds_addr);
- at3c501geteh(base, sp->address);
- at3c501seteh(base, sp->address);
- printf("ethernet id [%x:%x:%x:%x:%x:%x]",
- sp->address[0],sp->address[1],sp->address[2],
- sp->address[3],sp->address[4],sp->address[5]);
- ifp = &(sp->ds_if);
- ifp->if_unit = unit;
- ifp->if_mtu = ETHERMTU;
- ifp->if_flags = IFF_BROADCAST;
-#ifdef MACH_KERNEL
- ifp->if_header_size = sizeof(struct ether_header);
- ifp->if_header_format = HDR_ETHERNET;
- ifp->if_address_size = 6;
- ifp->if_address = (char *)&sp->address[0];
- if_init_queues(ifp);
-#else MACH_KERNEL
- ifp->if_name = "et";
- ifp->if_init = at3c501init;
- ifp->if_output = at3c501output;
- ifp->if_ioctl = at3c501ioctl;
- ifp->if_reset = at3c501reset;
- ifp->if_next = NULL;
- if_attach(ifp);
-#ifdef notdef
- watchdog_id = timeout(at3c501watch, &(ifp->if_unit), 20*HZ);
-#endif
-#endif MACH_KERNEL
-}
-
-/*
- * at3c501watch():
- *
- */
-at3c501watch(b_ptr)
-
-caddr_t b_ptr;
-
-{
- int x,
- y,
- opri,
- unit;
- at3c501_softc_t *is;
-
- unit = *b_ptr;
-#ifdef MACH_KERNEL
- timeout(at3c501watch,b_ptr,20*hz);
-#else MACH_KERNEL
- watchdog_id = timeout(at3c501watch,b_ptr,20*HZ);
-#endif MACH_KERNEL
- is = &at3c501_softc[unit];
- printf("\nxmt/bad rcv/bad spurious\n");
- printf("%d/%d %d/%d %d\n", is->xmt, is->badxmt, \
- is->rcv, is->badrcv, is->spurious);
- is->rcv=is->badrcv=is->xmt=is->badxmt=is->spurious=0;
-}
-
-/*
- * at3c501geteh:
- *
- * This function gets the ethernet address (array of 6 unsigned
- * bytes) from the 3c501 board prom.
- *
- */
-
-at3c501geteh(base, ep)
-caddr_t base;
-char *ep;
-{
- int i;
-
- for (i = 0; i < ETHER_ADD_SIZE; i++) {
- outw(IE_GP(base), i);
- *ep++ = inb(IE_SAPROM(base));
- }
-}
-
-/*
- * at3c501seteh:
- *
- * This function sets the ethernet address (array of 6 unsigned
- * bytes) on the 3c501 board.
- *
- */
-
-at3c501seteh(base, ep)
-caddr_t base;
-char *ep;
-{
- int i;
-
- for (i = 0; i < ETHER_ADD_SIZE; i++) {
- outb(EDLC_ADDR(base) + i, *ep++);
- }
-}
-
-#ifdef MACH_KERNEL
-int at3c501start(); /* forward */
-
-at3c501output(dev, ior)
- dev_t dev;
- io_req_t ior;
-{
- register int unit = minor(dev);
-
- if (unit < 0 || unit >= NAT3C501 ||
- at3c501_softc[unit].base == 0)
- return (ENXIO);
-
- return (net_write(&at3c501_softc[unit].ds_if, at3c501start, ior));
-}
-
-at3c501setinput(dev, receive_port, priority, filter, filter_count)
- dev_t dev;
- mach_port_t receive_port;
- int priority;
- filter_t filter[];
- u_int filter_count;
-{
- register int unit = minor(dev);
-
- if (unit < 0 || unit >= NAT3C501 ||
- at3c501_softc[unit].base == 0)
- return (ENXIO);
-
- return (net_set_filter(&at3c501_softc[unit].ds_if,
- receive_port, priority,
- filter, filter_count));
-}
-
-#else MACH_KERNEL
-/*
- * at3c501output:
- *
- * This routine is called by the "if" layer to output a packet to
- * the network. This code resolves the local ethernet address, and
- * puts it into the mbuf if there is room. If not, then a new mbuf
- * is allocated with the header information and precedes the data
- * to be transmitted.
- *
- * input: ifnet structure pointer, an mbuf with data, and address
- * to be resolved
- * output: mbuf is updated to hold enet address, or a new mbuf
- * with the address is added
- *
- */
-at3c501output(ifp, m0, dst)
-struct ifnet *ifp;
-struct mbuf *m0;
-struct sockaddr *dst;
-{
- int type, error;
- spl_t opri;
- u_char edst[6];
- struct in_addr idst;
- register at3c501_softc_t *is;
- register struct mbuf *m = m0;
- register struct ether_header *eh;
- register int off;
- int usetrailers;
-
- is = &at3c501_softc[ifp->if_unit];
- if ((ifp->if_flags & (IFF_UP|IFF_RUNNING)) != (IFF_UP|IFF_RUNNING)) {
- printf("3C501 Turning off board %d\n", ifp->if_unit);
- at3c501intoff(ifp->if_unit);
- error = ENETDOWN;
- goto bad;
- }
- switch (dst->sa_family) {
-
-#ifdef INET
- case AF_INET:
- idst = ((struct sockaddr_in *)dst)->sin_addr;
- if (!arpresolve(&is->at3c501_ac, m, &idst, edst, &usetrailers)){
- return (0); /* if not yet resolved */
- }
- off = ntohs((u_short)mtod(m, struct ip *)->ip_len) - m->m_len;
-
- if (usetrailers && off > 0 && (off & 0x1ff) == 0 &&
- m->m_off >= MMINOFF + 2 * sizeof (u_short)) {
- type = ETHERTYPE_TRAIL + (off>>9);
- m->m_off -= 2 * sizeof (u_short);
- m->m_len += 2 * sizeof (u_short);
- *mtod(m, u_short *) = htons((u_short)ETHERTYPE_IP);
- *(mtod(m, u_short *) + 1) = htons((u_short)m->m_len);
- goto gottrailertype;
- }
- type = ETHERTYPE_IP;
- off = 0;
- goto gottype;
-#endif
-#ifdef NS
- case AF_NS:
- type = ETHERTYPE_NS;
- bcopy((caddr_t)&(((struct sockaddr_ns *)dst)->sns_addr.x_host),
- (caddr_t)edst, sizeof (edst));
- off = 0;
- goto gottype;
-#endif
-
- case AF_UNSPEC:
- eh = (struct ether_header *)dst->sa_data;
- bcopy((caddr_t)eh->ether_dhost, (caddr_t)edst, sizeof (edst));
- type = eh->ether_type;
- goto gottype;
-
- default:
- printf("at3c501%d: can't handle af%d\n", ifp->if_unit,
- dst->sa_family);
- error = EAFNOSUPPORT;
- goto bad;
- }
-
-gottrailertype:
- /*
- * Packet to be sent as trailer: move first packet
- * (control information) to end of chain.
- */
- while (m->m_next)
- m = m->m_next;
- m->m_next = m0;
- m = m0->m_next;
- m0->m_next = 0;
- m0 = m;
-
-gottype:
- /*
- * Add local net header. If no space in first mbuf,
- * allocate another.
- */
- if (m->m_off > MMAXOFF ||
- MMINOFF + sizeof (struct ether_header) > m->m_off) {
- m = m_get(M_DONTWAIT, MT_HEADER);
- if (m == 0) {
- error = ENOBUFS;
- goto bad;
- }
- m->m_next = m0;
- m->m_off = MMINOFF;
- m->m_len = sizeof (struct ether_header);
- } else {
- m->m_off -= sizeof (struct ether_header);
- m->m_len += sizeof (struct ether_header);
- }
- eh = mtod(m, struct ether_header *);
- eh->ether_type = htons((u_short)type);
- bcopy((caddr_t)edst, (caddr_t)eh->ether_dhost, sizeof (edst));
- bcopy((caddr_t)is->address,(caddr_t)eh->ether_shost,
- sizeof(edst));
- /*
- * Queue message on interface, and start output if interface
- * not yet active.
- */
- opri = SPLNET();
- if (IF_QFULL(&ifp->if_snd)) {
- IF_DROP(&ifp->if_snd);
- splx(opri);
- m_freem(m);
- return (ENOBUFS);
- }
- IF_ENQUEUE(&ifp->if_snd, m);
- /*
- * Some action needs to be added here for checking whether the
- * board is already transmitting. If it is, we don't want to
- * start it up (ie call at3c501start()). We will attempt to send
- * packets that are queued up after an interrupt occurs. Some
- * flag checking action has to happen here and/or in the start
- * routine. This note is here to remind me that some thought
- * is needed and there is a potential problem here.
- *
- */
- at3c501start(ifp->if_unit);
- splx(opri);
- return (0);
-
-bad:
- m_freem(m0);
- return (error);
-}
-#endif MACH_KERNEL
-
-/*
- * at3c501reset:
- *
- * This routine is in part an entry point for the "if" code. Since most
- * of the actual initialization has already (we hope already) been done
- * by calling at3c501attach().
- *
- * input : unit number or board number to reset
- * output : board is reset
- *
- */
-at3c501reset(unit)
-int unit;
-{
- at3c501_softc[unit].ds_if.if_flags &= ~IFF_RUNNING;
- return(at3c501init(unit));
-}
-
-
-
-/*
- * at3c501init:
- *
- * Another routine that interfaces the "if" layer to this driver.
- * Simply resets the structures that are used by "upper layers".
- * As well as calling at3c501hwrst that does reset the at3c501 board.
- *
- * input : board number
- * output : structures (if structs) and board are reset
- *
- */
-at3c501init(unit)
-int unit;
-{
- struct ifnet *ifp;
- int stat;
- spl_t oldpri;
-
- ifp = &(at3c501_softc[unit].ds_if);
-#ifdef MACH_KERNEL
-#else MACH_KERNEL
- if (ifp->if_addrlist == (struct ifaddr *)0) {
- return;
- }
-#endif MACH_KERNEL
- oldpri = SPLNET();
- if ((stat = at3c501hwrst(unit)) == TRUE) {
- at3c501_softc[unit].ds_if.if_flags |= IFF_RUNNING;
- at3c501_softc[unit].flags |= DSF_RUNNING;
- at3c501start(unit);
- }
- else
- printf("3C501 trouble resetting board %d\n", unit);
- at3c501_softc[unit].timer = 5;
- splx(oldpri);
- return(stat);
-
-}
-
-#ifdef MACH_KERNEL
-/*ARGSUSED*/
-at3c501open(dev, flag)
- dev_t dev;
- int flag;
-{
- register int unit = minor(dev);
-
- if (unit < 0 || unit >= NAT3C501 ||
- at3c501_softc[unit].base == 0)
- return (ENXIO);
-
- at3c501_softc[unit].ds_if.if_flags |= IFF_UP;
- at3c501init(unit);
- return(0);
-}
-#endif MACH_KERNEL
-
-/*
- * at3c501start:
- *
- * This is yet another interface routine that simply tries to output a
- * in an mbuf after a reset.
- *
- * input : board number
- * output : stuff sent to board if any there
- *
- */
-at3c501start(unit)
-int unit;
-
-{
-#ifdef MACH_KERNEL
- io_req_t m;
-#else MACH_KERNEL
- struct mbuf *m;
-#endif MACH_KERNEL
- struct ifnet *ifp;
-
- ifp = &(at3c501_softc[unit].ds_if);
- for(;;) {
- IF_DEQUEUE(&ifp->if_snd, m);
-#ifdef MACH_KERNEL
- if (m != 0)
-#else MACH_KERNEL
- if (m != (struct mbuf *)0)
-#endif MACH_KERNEL
- at3c501xmt(unit, m);
- else
- return;
- }
-}
-
-#ifdef MACH_KERNEL
-/*ARGSUSED*/
-at3c501getstat(dev, flavor, status, count)
- dev_t dev;
- int flavor;
- dev_status_t status; /* pointer to OUT array */
- u_int *count; /* out */
-{
- register int unit = minor(dev);
-
- if (unit < 0 || unit >= NAT3C501 ||
- at3c501_softc[unit].base == 0)
- return (ENXIO);
-
- return (net_getstat(&at3c501_softc[unit].ds_if,
- flavor,
- status,
- count));
-}
-
-at3c501setstat(dev, flavor, status, count)
- dev_t dev;
- int flavor;
- dev_status_t status;
- u_int count;
-{
- register int unit = minor(dev);
- register at3c501_softc_t *sp;
-
- if (unit < 0 || unit >= NAT3C501 ||
- at3c501_softc[unit].base == 0)
- return (ENXIO);
-
- sp = &at3c501_softc[unit];
-
- switch (flavor) {
- case NET_STATUS:
- {
- /*
- * All we can change are flags, and not many of those.
- */
- register struct net_status *ns = (struct net_status *)status;
- int mode = 0;
-
- if (count < NET_STATUS_COUNT)
- return (D_INVALID_SIZE);
-
- if (ns->flags & IFF_ALLMULTI)
- mode |= MOD_ENAL;
- if (ns->flags & IFF_PROMISC)
- mode |= MOD_PROM;
-
- /*
- * Force a compilete reset if the receive mode changes
- * so that these take effect immediately.
- */
- if (sp->mode != mode) {
- sp->mode = mode;
- if (sp->flags & DSF_RUNNING) {
- sp->flags &= ~(DSF_LOCK | DSF_RUNNING);
- at3c501init(unit);
- }
- }
- break;
- }
- case NET_ADDRESS:
- {
- register union ether_cvt {
- char addr[6];
- int lwd[2];
- } *ec = (union ether_cvt *)status;
-
- if (count < sizeof(*ec)/sizeof(int))
- return (D_INVALID_SIZE);
-
- ec->lwd[0] = ntohl(ec->lwd[0]);
- ec->lwd[1] = ntohl(ec->lwd[1]);
- at3c501seteh(sp->base, ec->addr);
- break;
- }
-
- default:
- return (D_INVALID_OPERATION);
- }
- return (D_SUCCESS);
-}
-#else MACH_KERNEL
-
-/*
- * at3c501ioctl:
- *
- * This routine processes an ioctl request from the "if" layer
- * above.
- *
- * input : pointer the appropriate "if" struct, command, and data
- * output : based on command appropriate action is taken on the
- * at3c501 board(s) or related structures
- * return : error is returned containing exit conditions
- *
- */
-int curr_ipl;
-u_short curr_pic_mask;
-u_short pic_mask[];
-
-at3c501ioctl(ifp, cmd, data)
-struct ifnet *ifp;
-int cmd;
-caddr_t data;
-{
- register struct ifaddr *ifa = (struct ifaddr *)data;
- register at3c501_softc_t *is;
- int error;
- spl_t opri;
- short mode = 0;
-
- is = &at3c501_softc[ifp->if_unit];
- opri = SPLNET();
- error = 0;
- switch (cmd) {
- case SIOCSIFADDR:
- ifp->if_flags |= IFF_UP;
- at3c501init(ifp->if_unit);
- switch (ifa->ifa_addr.sa_family) {
-#ifdef INET
- case AF_INET:
- ((struct arpcom *)ifp)->ac_ipaddr =
- IA_SIN(ifa)->sin_addr;
- arpwhohas((struct arpcom *)ifp,
- &IA_SIN(ifa)->sin_addr);
- break;
-#endif
-#ifdef NS
- case AF_NS:
- {
- register struct ns_addr *ina =
- &(IA_SNS(ifa)->sns_addr);
- if (ns_nullhost(*ina))
- ina->x_host =
- *(union ns_host *)(ds->ds_addr);
- else
- at3c501seteh(ina->x_host.c_host,
- at3c501_softc[ifp->if_unit].base);
- break;
- }
-#endif
- }
- break;
- case SIOCSIFFLAGS:
- if (ifp->if_flags & IFF_ALLMULTI)
- mode |= MOD_ENAL;
- if (ifp->if_flags & IFF_PROMISC)
- mode |= MOD_PROM;
- /*
- * force a complete reset if the receive multicast/
- * promiscuous mode changes so that these take
- * effect immediately.
- *
- */
- if (is->mode != mode) {
- is->mode = mode;
- if (is->flags & DSF_RUNNING) {
- is->flags &=
- ~(DSF_LOCK|DSF_RUNNING);
- at3c501init(ifp->if_unit);
- }
- }
- if ((ifp->if_flags & IFF_UP) == 0 &&
- is->flags & DSF_RUNNING) {
- printf("AT3C501 ioctl: turning off board %d\n",
- ifp->if_unit);
- is->flags &= ~(DSF_LOCK | DSF_RUNNING);
- is->timer = -1;
- at3c501intoff(ifp->if_unit);
- } else
- if (ifp->if_flags & IFF_UP &&
- (is->flags & DSF_RUNNING) == 0)
- at3c501init(ifp->if_unit);
- break;
- default:
- error = EINVAL;
- }
- splx(opri);
- return (error);
-}
-#endif MACH_KERNEL
-
-
-/*
- * at3c501hwrst:
- *
- * This routine resets the at3c501 board that corresponds to the
- * board number passed in.
- *
- * input : board number to do a hardware reset
- * output : board is reset
- *
- */
-#define XMT_STAT (EDLC_16|EDLC_JAM|EDLC_UNDER|EDLC_IDLE)
-#define RCV_STAT (EDLC_STALE|EDLC_ANY|EDLC_SHORT|EDLC_DRIBBLE|EDLC_OVER|EDLC_FCS)
-int
-at3c501hwrst(unit)
-int unit;
-{
- u_char stat;
- caddr_t base = at3c501_softc[unit].base;
-
- outb(IE_CSR(base), IE_RESET);
- outb(IE_CSR(base), 0);
- at3c501seteh(base, at3c501_softc[unit].address);
- if ((stat = inb(IE_CSR(base))) != IE_RESET) {
- printf("at3c501reset: can't reset CSR: %x\n", stat);
- return(FALSE);
- }
- if ((stat = inb(EDLC_XMT(base))) & XMT_STAT) {
- printf("at3c501reset: can't reset XMT: %x\n", stat);
- return(FALSE);
- }
- if (((stat = inb(EDLC_RCV(base))) & RCV_STAT) != EDLC_STALE) {
- printf("at3c501reset: can't reset RCV: %x\n", stat);
- return(FALSE);
- }
- if (at3c501config(unit) == FALSE) {
- printf("at3c501hwrst(): failed to config\n");
- return(FALSE);
- }
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- return(TRUE);
-}
-
-/*
- * at3c501intr:
- *
- * This function is the interrupt handler for the at3c501 ethernet
- * board. This routine will be called whenever either a packet
- * is received, or a packet has successfully been transfered and
- * the unit is ready to transmit another packet.
- *
- * input : board number that interrupted
- * output : either a packet is received, or a packet is transfered
- *
- */
-at3c501intr(unit)
-int unit;
-{
- at3c501rcv(unit);
- at3c501start(unit);
-
- return(0);
-}
-
-
-/*
- * at3c501rcv:
- *
- * This routine is called by the interrupt handler to initiate a
- * packet transfer from the board to the "if" layer above this
- * driver. This routine checks if a buffer has been successfully
- * received by the at3c501. If so, the routine at3c501read is called
- * to do the actual transfer of the board data (including the
- * ethernet header) into a packet (consisting of an mbuf chain).
- *
- * input : number of the board to check
- * output : if a packet is available, it is "sent up"
- *
- */
-at3c501rcv(unit)
-int unit;
-{
- int stat;
- caddr_t base;
-#ifdef MACH_KERNEL
- ipc_kmsg_t new_kmsg;
- struct ether_header *ehp;
- struct packet_header *pkt;
-#else MACH_KERNEL
- struct mbuf *m, *tm;
-#endif MACH_KERNEL
- u_short len;
- register struct ifnet *ifp;
- struct ether_header header;
- int tlen;
- register at3c501_softc_t *is;
- register struct ifqueue *inq;
- spl_t opri;
- struct ether_header eh;
-
- is = &at3c501_softc[unit];
- ifp = &is->ds_if;
- base = at3c501_softc[unit].base;
- is->rcv++;
- if (inb(IE_CSR(base)) & IE_RCVBSY)
- is->spurious++;
- while (!((stat=inb(EDLC_RCV(base))) & EDLC_STALE)) {
- outb(IE_CSR(base), IE_SYSBFR);
- if (!(stat & EDLC_ANY)) {
- outw(IE_GP(base), 0);
- len = inw(IE_RP(base))-sizeof(struct ether_header);
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- is->badrcv++;
-#ifdef DEBUG
- printf("at3c501rcv: received %d bad bytes", len);
- if (stat & EDLC_SHORT)
- printf(" Short frame");
- if (stat & EDLC_OVER)
- printf(" Data overflow");
- if (stat & EDLC_DRIBBLE)
- printf(" Dribble error");
- if (stat & EDLC_FCS)
- printf(" CRC error");
- printf("\n");
-#endif DEBUG
- } else {
- outw(IE_GP(base), 0);
- len = inw(IE_RP(base));
- if (len < 60) {
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- return;
- }
- linb(IE_BFR(base), &eh, sizeof(struct ether_header));
-#ifdef MACH_KERNEL
- new_kmsg = net_kmsg_get();
- if (new_kmsg == IKM_NULL) {
- /*
- * Drop the packet.
- */
- is->ds_if.if_rcvdrops++;
-
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- return;
- }
-
- ehp = (struct ether_header *)
- (&net_kmsg(new_kmsg)->header[0]);
- pkt = (struct packet_header *)
- (&net_kmsg(new_kmsg)->packet[0]);
-
- /*
- * Get header.
- */
- *ehp = eh;
-
- /*
- * Get body
- */
- linb(IE_BFR(base),
- (char *)(pkt + 1),
- len - sizeof(struct ether_header));
-
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
-
- pkt->type = ehp->ether_type;
- pkt->length = len - sizeof(struct ether_header)
- + sizeof(struct packet_header);
-
- /*
- * Hand the packet to the network module.
- */
- net_packet(ifp, new_kmsg, pkt->length,
- ethernet_priority(new_kmsg));
-
-#else MACH_KERNEL
- eh.ether_type = htons(eh.ether_type);
- m =(struct mbuf *)0;
-#ifdef DEBUG
- printf("received %d bytes\n", len);
-#endif DEBUG
- len -= sizeof(struct ether_header);
- while ( len ) {
- if (m == (struct mbuf *)0) {
- m = m_get(M_DONTWAIT, MT_DATA);
- if (m == (struct mbuf *)0) {
- printf("at3c501rcv: Lost frame\n");
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
-
- return;
- }
- tm = m;
- tm->m_off = MMINOFF;
- /*
- * first mbuf in the packet must contain a pointer to the
- * ifnet structure. other mbufs that follow and make up
- * the packet do not need this pointer in the mbuf.
- *
- */
- *(mtod(tm, struct ifnet **)) = ifp;
- tm->m_len = sizeof(struct ifnet **);
- }
- else {
- tm->m_next = m_get(M_DONTWAIT, MT_DATA);
- tm = tm->m_next;
- tm->m_off = MMINOFF;
- tm->m_len = 0;
- if (tm == (struct mbuf *)0) {
- m_freem(m);
- printf("at3c501rcv: No mbufs, lost frame\n");
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- return;
- }
- }
- tlen = MIN( MLEN - tm->m_len, len );
- tm->m_next = (struct mbuf *)0;
- linb(IE_BFR(base), mtod(tm, char *)+tm->m_len, tlen );
- tm->m_len += tlen;
- len -= tlen;
- }
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- /*
- * received packet is now in a chain of mbuf's. next step is
- * to pass the packet upwards.
- *
- */
- switch (eh.ether_type) {
-#ifdef INET
- case ETHERTYPE_IP:
- schednetisr(NETISR_IP);
- inq = &ipintrq;
- break;
- case ETHERTYPE_ARP:
- arpinput(&is->at3c501_ac, m);
- return;
-#endif
-#ifdef NS
- case ETHERTYPE_NS:
- schednetisr(NETISR_NS);
- inq = &nsintrq;
- break;
-#endif
- default:
- m_freem(m);
- return;
- }
- opri = SPLNET();
- if (IF_QFULL(inq)) {
- IF_DROP(inq);
- splx(opri);
- m_freem(m);
- return;
- }
- IF_ENQUEUE(inq, m);
- splx(opri);
-#endif MACH_KERNEL
- }
- }
-}
-
-
-/*
- * at3c501xmt:
- *
- * This routine fills in the appropriate registers and memory
- * locations on the 3C501 board and starts the board off on
- * the transmit.
- *
- * input : board number of interest, and a pointer to the mbuf
- * output : board memory and registers are set for xfer and attention
- *
- */
-at3c501xmt(unit, m)
-int unit;
-#ifdef MACH_KERNEL
-io_req_t m;
-#else MACH_KERNEL
-struct mbuf *m;
-#endif MACH_KERNEL
-{
-#ifdef MACH_KERNEL
-#else MACH_KERNEL
- register struct mbuf *tm_p;
-#endif MACH_KERNEL
- int i;
- at3c501_softc_t *is = &at3c501_softc[unit];
- caddr_t base = is->base;
- u_short count = 0;
- u_short bytes_in_msg;
-
- is->xmt++;
- outb(IE_CSR(base), IE_SYSBFR);
-#ifdef MACH_KERNEL
- count = m->io_count;
-#define max(a,b) (((a) > (b)) ? (a) : (b))
- bytes_in_msg = max(count,
- ETHERMIN + sizeof(struct ether_header));
-#else MACH_KERNEL
- bytes_in_msg = max(m_length(m), ETHERMIN + sizeof(struct ether_header));
-#endif MACH_KERNEL
- outw(IE_GP(base), BFRSIZ-bytes_in_msg);
-#ifdef MACH_KERNEL
- loutb(IE_BFR(base), m->io_data, count);
-#else MACH_KERNEL
- for (tm_p = m; tm_p != (struct mbuf *)0; tm_p = tm_p->m_next) {
- if (count + tm_p->m_len > ETHERMTU + sizeof(struct ether_header))
- break;
- if (tm_p->m_len == 0)
- continue;
- loutb(IE_BFR(base), mtod(tm_p, caddr_t), tm_p->m_len);
- count += tm_p->m_len;
- }
-#endif MACH_KERNEL
- while (count < bytes_in_msg) {
- outb(IE_BFR(base), 0);
- count++;
- }
- do {
- if (!(int)m) {
- outb(IE_CSR(base), IE_SYSBFR);
- }
- outw(IE_GP(base), BFRSIZ-bytes_in_msg);
- outb(IE_CSR(base), IE_RIDE|IE_XMTEDLC);
- if (m) {
-#ifdef MACH_KERNEL
- iodone(m);
- m = 0;
-#else MACH_KERNEL
- m_freem(m);
- m = (struct mbuf *) 0;
-#endif MACH_KERNEL
- }
- for (i=0; inb(IE_CSR(base)) & IE_XMTBSY; i++);
- if ((i=inb(EDLC_XMT(base))) & EDLC_JAM) {
- is->badxmt++;
-#ifdef DEBUG
- printf("at3c501xmt jam\n");
-#endif DEBUG
- }
- } while ((i & EDLC_JAM) && !(i & EDLC_16));
-
- if (i & EDLC_16) {
- printf("%");
- }
- return;
-
-}
-
-/*
- * at3c501config:
- *
- * This routine does a standard config of the at3c501 board.
- *
- */
-at3c501config(unit)
-int unit;
-{
- caddr_t base = at3c501_softc[unit].base;
- u_char stat;
-
- /* Enable DMA & Interrupts */
-
- outb(IE_CSR(base), IE_RIDE|IE_SYSBFR);
-
- /* No Transmit Interrupts */
-
- outb(EDLC_XMT(base), 0);
- inb(EDLC_XMT(base));
-
- /* Setup Receive Interrupts */
-
- outb(EDLC_RCV(base), EDLC_BROAD|EDLC_SHORT|EDLC_GOOD|EDLC_DRIBBLE|EDLC_OVER);
- inb(EDLC_RCV(base));
-
- outb(IE_CSR(base), IE_RIDE|IE_SYSBFR);
- outb(IE_RP(base), 0);
- outb(IE_CSR(base), IE_RIDE|IE_RCVEDLC);
- return(TRUE);
-}
-
-/*
- * at3c501intoff:
- *
- * This function turns interrupts off for the at3c501 board indicated.
- *
- */
-at3c501intoff(unit)
-int unit;
-{
- caddr_t base = at3c501_softc[unit].base;
- outb(IE_CSR(base), 0);
-}
-
-#ifdef MACH_KERNEL
-#else MACH_KERNEL
-/*
- * The length of an mbuf chain
- */
-m_length(m)
- register struct mbuf *m;
-{
- register int len = 0;
-
- while (m) {
- len += m->m_len;
- m = m->m_next;
- }
- return len;
-}
-#endif MACH_KERNEL
diff --git a/i386/i386at/if_3c501.h b/i386/i386at/if_3c501.h
deleted file mode 100644
index ac0641f..0000000
--- a/i386/i386at/if_3c501.h
+++ /dev/null
@@ -1,175 +0,0 @@
-/*
- * Mach Operating System
- * Copyright (c) 1991,1990,1989 Carnegie Mellon University
- * All Rights Reserved.
- *
- * Permission to use, copy, modify and distribute this software and its
- * documentation is hereby granted, provided that both the copyright
- * notice and this permission notice appear in all copies of the
- * software, derivative works or modified versions, and any portions
- * thereof, and that both notices appear in supporting documentation.
- *
- * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
- * CONDITION. CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
- * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
- *
- * Carnegie Mellon requests users of this software to return to
- *
- * Software Distribution Coordinator or Software.Distribution@CS.CMU.EDU
- * School of Computer Science
- * Carnegie Mellon University
- * Pittsburgh PA 15213-3890
- *
- * any improvements or extensions that they make and grant Carnegie Mellon
- * the rights to redistribute these changes.
- */
-/*
- * File: if_3c501.h
- * Author: Philippe Bernadat
- * Date: 1989
- * Copyright (c) 1989 OSF Research Institute
- *
- * 3COM Etherlink 3C501 Mach Ethernet drvier
- */
-/*
- Copyright 1990 by Open Software Foundation,
-Cambridge, MA.
-
- All Rights Reserved
-
- Permission to use, copy, modify, and distribute this software and
-its documentation for any purpose and without fee is hereby granted,
-provided that the above copyright notice appears in all copies and
-that both the copyright notice and this permission notice appear in
-supporting documentation, and that the name of OSF or Open Software
-Foundation not be used in advertising or publicity pertaining to
-distribution of the software without specific, written prior
-permission.
-
- OSF DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE
-INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS,
-IN NO EVENT SHALL OSF BE LIABLE FOR ANY SPECIAL, INDIRECT, OR
-CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
-LOSS OF USE, DATA OR PROFITS, WHETHER IN ACTION OF CONTRACT,
-NEGLIGENCE, OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION
-WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-*/
-
-/* The various IE command registers */
-
-#define EDLC_ADDR(base) (base) /* EDLC station address, 6 bytes*/
-#define EDLC_RCV(base) ((base)+0x6) /* EDLC receive cmd. & stat. */
-#define EDLC_XMT(base) ((base)+0x7) /* EDLC transmit cmd. & stat. */
-#define IE_GP(base) ((base)+0x8) /* General Purpose pointer */
-#define IE_RP(base) ((base)+0xa) /* Receive buffer pointer */
-#define IE_SAPROM(base) ((base)+0xc) /* station addr prom window */
-#define IE_CSR(base) ((base)+0xe) /* IE command and status */
-#define IE_BFR(base) ((base)+0xf) /* 1 byte window on packet buffer*/
-
-/* CSR Status Register (read)
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | XMTBSY | RIDE | DMA | EDMA | BUFCTL | | RCVBSY |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-/* CSR Command Register (write)
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | RESET | RIDE | DMA | | BUFCTL | | IRE |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-#define IE_XMTBSY 0x80 /* Transmitter busy (ro) */
-#define IE_RESET 0x80 /* reset the controller (wo) */
-#define IE_RIDE 0x40 /* request interrupt/DMA enable (rw) */
-#define IE_DMA 0x20 /* DMA request (rw) */
-#define IE_EDMA 0x10 /* DMA done (ro) */
-#define IE_BUFCTL 0x0c /* mask for buffer control field (rw) */
-#define IE_RCVBSY 0x01 /* receive in progress (ro) */
-#define IE_IRE 0x01 /* Interrupt request enable */
-
-/* BUFCTL values */
-
-#define IE_LOOP 0x0c /* 2 bit field in bits 2,3, loopback */
-#define IE_RCVEDLC 0x08 /* gives buffer to receiver */
-#define IE_XMTEDLC 0x04 /* gives buffer to transmit */
-#define IE_SYSBFR 0x00 /* gives buffer to processor */
-
-/* XMTCSR Transmit Status Register (read)
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | | | | | IDLE | 16 | JAM | UNDER |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-/* XMTCSR Transmit Command Register (write) enables interrupts when written
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | | | | | | | | |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-#define EDLC_IDLE 0x08 /* transmit idle */
-#define EDLC_16 0x04 /* packet experienced 16 collisions */
-#define EDLC_JAM 0x02 /* packet experienced a collision */
-#define EDLC_UNDER 0x01 /* data underflow */
-
-/* RCVCSR Receive Status Register (read)
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | STALE | | GOOD | ANY | SHORT | DRIBBLE| FCS | OVER |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-/* RCVCSR Receive Command Register (write) enables interrupt when written
- *
- * _______________________________________________________________________
- * | | | | | | | | |
- * | ADDR MATCH MODE | GOOD | ANY | SHORT | DRIBBLE| FCS | OVER |
- * |________|________|________|________|________|________|________|________|
- *
- */
-
-#define EDLC_STALE 0x80 /* receive CSR status previously read */
-#define EDLC_GOOD 0x20 /* well formed packets only */
-#define EDLC_ANY 0x10 /* any packet, even those with errors */
-#define EDLC_SHORT 0x08 /* short frame */
-#define EDLC_DRIBBLE 0x04 /* dribble error */
-#define EDLC_FCS 0x02 /* CRC error */
-#define EDLC_OVER 0x01 /* data overflow */
-
-/* Address Match Mode */
-
-#define EDLC_NONE 0x00 /* match mode in bits 5-6, write only */
-#define EDLC_ALL 0x40 /* promiscuous receive, write only */
-#define EDLC_BROAD 0x80 /* station address plus broadcast */
-#define EDLC_MULTI 0xc0 /* station address plus multicast */
-
-/* Packet Buffer size */
-
-#define BFRSIZ 2048
-
-#define NAT3C501 1
-#define ETHER_ADD_SIZE 6 /* size of a MAC address */
-
-#ifndef TRUE
-#define TRUE 1
-#endif TRUE
-#define HZ 100
-
-#define DSF_LOCK 1
-#define DSF_RUNNING 2
-
-#define MOD_ENAL 1
-#define MOD_PROM 2