InfoMagic Source Code 1993 July/THE_SOURCE_CODE_CD_ROM.iso/bsd_srcs/sys/hp300/stand/hpib.c

C/C++ Source or Header | 1991-05-07 | 4.8 KB | 183 lines

/*
 * Copyright (c) 1982, 1990 The Regents of the University of California.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. All advertising materials mentioning features or use of this software
 *    must display the following acknowledgement:
 *    This product includes software developed by the University of
 *    California, Berkeley and its contributors.
 * 4. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 *
 *    @(#)hpib.c    7.5 (Berkeley) 5/7/91
 */

/*
 * HPIB driver
 */
#include <sys/param.h>
#include <sys/reboot.h>
#include "../dev/device.h"
#include "hpibvar.h"

#include "saio.h"
#include "samachdep.h"

int    internalhpib = IIOV(0x478000);
int    fhpibppoll(), nhpibppoll();

struct    hpib_softc hpib_softc[NHPIB];

#define    hpibunit(x)    ((x) >> 3)
#define    hpibslave(x)    ((x) & 7)

hpibinit()
{
    extern struct hp_hw sc_table[];
    register struct hp_hw *hw;
    register struct hpib_softc *hs;
    register int i, addr;
    static int first = 1;

    i = 0;
    for (hw = sc_table; i < NHPIB && hw < &sc_table[MAXCTLRS]; hw++) {
        if (!HW_ISHPIB(hw))
            continue;
        hs = &hpib_softc[i];
        hs->sc_addr = hw->hw_kva;
        if (nhpibinit(i) == 0)
            if (fhpibinit(i) == 0)
                continue;
        if (howto & RB_ASKNAME)
            printf("hpib%d at sc%d\n", i, hw->hw_sc);
        /*
         * Adjust devtype on first call.  This routine assumes that
         * adaptor is in the high byte of devtype.
         */
        if (first && ((devtype >> 24) & 0xff) == hw->hw_sc) {
            devtype = (devtype & 0x00ffffff) | (i << 24);
            first = 0;
        }
        hs->sc_alive = 1;
        i++;
    }
}

hpibalive(unit)
    register int unit;
{
    unit = hpibunit(unit);
    if (unit >= NHPIB || hpib_softc[unit].sc_alive == 0)
        return (0);
    return (1);
}

hpibid(unit)
    register int unit;
{
    register struct hpib_softc *hs = &hpib_softc[hpibunit(unit)];
    register int slave;
    short id;

    slave = hpibslave(unit);
    unit = hpibunit(unit);
    if (hs->sc_type == HPIBC)
        slave = fhpibrecv(unit, 31, slave, &id, 2);
    else
        slave = nhpibrecv(unit, 31, slave, &id, 2);
    if (slave != 2)
        return (0);
    return (id);
}

hpibsend(unit, sec, buf, cnt)
    register char *buf;
    register int cnt;
{
    register struct hpib_softc *hs = &hpib_softc[hpibunit(unit)];
    register int slave;

    slave = hpibslave(unit);
    unit = hpibunit(unit);
    if (hs->sc_type == HPIBC)
        return (fhpibsend(unit, slave, sec, buf, cnt));
    else
        return (nhpibsend(unit, slave, sec, buf, cnt));
}

hpibrecv(unit, sec, buf, cnt)
    register char *buf;
    register int cnt;
{
    register struct hpib_softc *hs = &hpib_softc[hpibunit(unit)];
    register int slave;

    slave = hpibslave(unit);
    unit = hpibunit(unit);
    if (hs->sc_type == HPIBC)
        return (fhpibrecv(unit, slave, sec, buf, cnt));
    else
        return (nhpibrecv(unit, slave, sec, buf, cnt));
}

hpibswait(unit)
    register int unit;
{
    register int timo = 1000000;
    register int slave = 0x80 >> hpibslave(unit);
    register int (*poll)();

    unit = hpibunit(unit);
    if (hpib_softc[unit].sc_type == HPIBC)
        poll = fhpibppoll;
    else
        poll = nhpibppoll;
    while (((*poll)(unit) & slave) == 0)
        if (--timo == 0)
            break;
    if (timo == 0)
        return (-1);
    return (0);
}

hpibgo(unit, sec, addr, count, flag)
    register int unit;
    char *addr;
{
    register int slave;

    slave = hpibslave(unit);
    unit = hpibunit(unit);
    if (hpib_softc[unit].sc_type == HPIBC)
        if (flag == F_READ)
            fhpibrecv(unit, slave, sec, addr, count);
        else
            fhpibsend(unit, slave, sec, addr, count);
    else
        if (flag == F_READ)
            nhpibrecv(unit, slave, sec, addr, count);
        else
            nhpibsend(unit, slave, sec, addr, count);
}