1998-08-03 19:14:33 +00:00
|
|
|
/*-
|
|
|
|
* Copyright (c) 1998 Nicolas Souchu
|
|
|
|
* 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.
|
|
|
|
*
|
|
|
|
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR 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 AUTHOR 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.
|
|
|
|
*
|
1999-01-10 12:04:56 +00:00
|
|
|
* $Id: ppb_msq.c,v 1.3 1998/09/20 14:41:54 nsouch Exp $
|
1998-08-03 19:14:33 +00:00
|
|
|
*
|
|
|
|
*/
|
|
|
|
#include <machine/stdarg.h>
|
|
|
|
|
|
|
|
#include <sys/param.h>
|
|
|
|
#include <sys/systm.h>
|
|
|
|
#include <sys/kernel.h>
|
|
|
|
|
|
|
|
#include <dev/ppbus/ppbconf.h>
|
|
|
|
#include <dev/ppbus/ppb_msq.h>
|
|
|
|
|
|
|
|
/* msq index (see PPB_MAX_XFER)
|
|
|
|
* These are device modes
|
|
|
|
*/
|
|
|
|
#define COMPAT_MSQ 0x0
|
|
|
|
#define NIBBLE_MSQ 0x1
|
|
|
|
#define PS2_MSQ 0x2
|
|
|
|
#define EPP17_MSQ 0x3
|
|
|
|
#define EPP19_MSQ 0x4
|
|
|
|
#define ECP_MSQ 0x5
|
|
|
|
|
|
|
|
/*
|
|
|
|
* Device mode to submsq conversion
|
|
|
|
*/
|
|
|
|
static struct ppb_xfer *
|
|
|
|
mode2xfer(struct ppb_device *dev, int opcode)
|
|
|
|
{
|
|
|
|
int index, epp;
|
|
|
|
struct ppb_xfer *table;
|
|
|
|
|
|
|
|
switch (opcode) {
|
|
|
|
case MS_OP_GET:
|
|
|
|
table = dev->get_xfer;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MS_OP_PUT:
|
|
|
|
table = dev->put_xfer;
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
panic("%s: unknown opcode (%d)", __FUNCTION__, opcode);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* retrieve the device operating mode */
|
|
|
|
switch (ppb_get_mode(dev)) {
|
|
|
|
case PPB_COMPATIBLE:
|
|
|
|
index = COMPAT_MSQ;
|
|
|
|
break;
|
|
|
|
case PPB_NIBBLE:
|
|
|
|
index = NIBBLE_MSQ;
|
|
|
|
break;
|
|
|
|
case PPB_PS2:
|
|
|
|
index = PS2_MSQ;
|
|
|
|
break;
|
|
|
|
case PPB_EPP:
|
|
|
|
switch ((epp = ppb_get_epp_protocol(dev))) {
|
|
|
|
case EPP_1_7:
|
|
|
|
index = EPP17_MSQ;
|
|
|
|
break;
|
|
|
|
case EPP_1_9:
|
|
|
|
index = EPP19_MSQ;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
panic("%s: unknown EPP protocol (0x%x)!", __FUNCTION__,
|
|
|
|
epp);
|
|
|
|
}
|
|
|
|
break;
|
|
|
|
case PPB_ECP:
|
|
|
|
index = ECP_MSQ;
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
panic("%s: unknown mode (%d)", __FUNCTION__, dev->mode);
|
|
|
|
}
|
|
|
|
|
|
|
|
return (&table[index]);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ppb_MS_init()
|
|
|
|
*
|
|
|
|
* Initialize device dependent submicrosequence of the current mode
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
ppb_MS_init(struct ppb_device *dev, struct ppb_microseq *loop, int opcode)
|
|
|
|
{
|
|
|
|
struct ppb_xfer *xfer = mode2xfer(dev, opcode);
|
|
|
|
|
|
|
|
xfer->loop = loop;
|
|
|
|
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ppb_MS_exec()
|
|
|
|
*
|
|
|
|
* Execute any microsequence opcode - expensive
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
ppb_MS_exec(struct ppb_device *dev, int opcode, union ppb_insarg param1,
|
|
|
|
union ppb_insarg param2, union ppb_insarg param3, int *ret)
|
|
|
|
{
|
|
|
|
struct ppb_microseq msq[] = {
|
|
|
|
{ MS_UNKNOWN, { MS_UNKNOWN, MS_UNKNOWN, MS_UNKNOWN } },
|
|
|
|
MS_RET(0)
|
|
|
|
};
|
|
|
|
|
|
|
|
/* initialize the corresponding microseq */
|
|
|
|
msq[0].opcode = opcode;
|
|
|
|
msq[0].arg[0] = param1;
|
|
|
|
msq[0].arg[1] = param2;
|
|
|
|
msq[0].arg[2] = param3;
|
|
|
|
|
|
|
|
/* execute the microseq */
|
|
|
|
return (ppb_MS_microseq(dev, msq, ret));
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ppb_MS_loop()
|
|
|
|
*
|
|
|
|
* Execute a microseq loop
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
ppb_MS_loop(struct ppb_device *dev, struct ppb_microseq *prolog,
|
|
|
|
struct ppb_microseq *body, struct ppb_microseq *epilog,
|
|
|
|
int iter, int *ret)
|
|
|
|
{
|
|
|
|
struct ppb_microseq loop_microseq[] = {
|
|
|
|
MS_CALL(NULL), /* execute prolog */
|
|
|
|
|
|
|
|
MS_SET(MS_UNKNOWN), /* set size of transfer */
|
|
|
|
/* loop: */
|
|
|
|
MS_CALL(NULL), /* execute body */
|
|
|
|
MS_DBRA(-1 /* loop: */),
|
|
|
|
|
|
|
|
MS_CALL(NULL), /* execute epilog */
|
|
|
|
MS_RET(0)
|
|
|
|
};
|
|
|
|
|
|
|
|
/* initialize the structure */
|
|
|
|
loop_microseq[0].arg[0].p = (void *)prolog;
|
|
|
|
loop_microseq[1].arg[0].i = iter;
|
|
|
|
loop_microseq[2].arg[0].p = (void *)body;
|
|
|
|
loop_microseq[4].arg[0].p = (void *)epilog;
|
|
|
|
|
|
|
|
/* execute the loop */
|
|
|
|
return (ppb_MS_microseq(dev, loop_microseq, ret));
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ppb_MS_init_msq()
|
|
|
|
*
|
|
|
|
* Initialize a microsequence - see macros in ppb_msq.h
|
|
|
|
*
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
ppb_MS_init_msq(struct ppb_microseq *msq, int nbparam, ...)
|
|
|
|
{
|
|
|
|
int i;
|
|
|
|
int param, ins, arg, type;
|
|
|
|
va_list p_list = 0;
|
|
|
|
|
|
|
|
va_start(p_list, nbparam);
|
|
|
|
|
|
|
|
for (i=0; i<nbparam; i++) {
|
|
|
|
/* retrieve the parameter descriptor */
|
|
|
|
param = va_arg(p_list, int);
|
|
|
|
|
|
|
|
ins = MS_INS(param);
|
|
|
|
arg = MS_ARG(param);
|
|
|
|
type = MS_TYP(param);
|
|
|
|
|
|
|
|
/* check the instruction position */
|
|
|
|
if (arg >= PPB_MS_MAXARGS)
|
|
|
|
panic("%s: parameter out of range (0x%x)!",
|
|
|
|
__FUNCTION__, param);
|
|
|
|
|
|
|
|
#if 0
|
|
|
|
printf("%s: param = %d, ins = %d, arg = %d, type = %d\n",
|
|
|
|
__FUNCTION__, param, ins, arg, type);
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* properly cast the parameter */
|
|
|
|
switch (type) {
|
|
|
|
case MS_TYP_INT:
|
|
|
|
msq[ins].arg[arg].i = va_arg(p_list, int);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MS_TYP_CHA:
|
1998-09-13 18:26:26 +00:00
|
|
|
msq[ins].arg[arg].i = (int)va_arg(p_list, char);
|
1998-08-03 19:14:33 +00:00
|
|
|
break;
|
|
|
|
|
|
|
|
case MS_TYP_PTR:
|
|
|
|
msq[ins].arg[arg].p = va_arg(p_list, void *);
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MS_TYP_FUN:
|
|
|
|
msq[ins].arg[arg].f = va_arg(p_list, void *);
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
panic("%s: unknown parameter (0x%x)!", __FUNCTION__,
|
|
|
|
param);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
return (0);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*
|
|
|
|
* ppb_MS_microseq()
|
|
|
|
*
|
|
|
|
* Interprete a microsequence. Some microinstructions are executed at adapter
|
|
|
|
* level to avoid function call overhead between ppbus and the adapter
|
|
|
|
*/
|
|
|
|
int
|
|
|
|
ppb_MS_microseq(struct ppb_device *dev, struct ppb_microseq *msq, int *ret)
|
|
|
|
{
|
|
|
|
struct ppb_data *ppb = dev->ppb;
|
|
|
|
struct ppb_microseq *mi; /* current microinstruction */
|
1998-09-20 14:41:54 +00:00
|
|
|
int error;
|
1998-08-03 19:14:33 +00:00
|
|
|
|
|
|
|
struct ppb_xfer *xfer;
|
|
|
|
|
|
|
|
/* microsequence executed to initialize the transfer */
|
|
|
|
struct ppb_microseq initxfer[] = {
|
|
|
|
MS_PTR(MS_UNKNOWN), /* set ptr to buffer */
|
|
|
|
MS_SET(MS_UNKNOWN), /* set transfer size */
|
|
|
|
MS_RET(0)
|
|
|
|
};
|
|
|
|
|
|
|
|
if (ppb->ppb_owner != dev)
|
|
|
|
return (EACCES);
|
|
|
|
|
1998-09-20 14:41:54 +00:00
|
|
|
#define INCR_PC (mi ++)
|
1998-08-03 19:14:33 +00:00
|
|
|
|
1998-09-20 14:41:54 +00:00
|
|
|
mi = msq;
|
1998-08-03 19:14:33 +00:00
|
|
|
for (;;) {
|
|
|
|
switch (mi->opcode) {
|
|
|
|
case MS_OP_PUT:
|
|
|
|
case MS_OP_GET:
|
|
|
|
|
|
|
|
/* attempt to choose the best mode for the device */
|
|
|
|
xfer = mode2xfer(dev, mi->opcode);
|
|
|
|
|
|
|
|
/* figure out if we should use ieee1284 code */
|
1999-01-10 12:04:56 +00:00
|
|
|
if (!xfer->loop) {
|
|
|
|
if (mi->opcode == MS_OP_PUT) {
|
|
|
|
if ((error = ppb->ppb_link->adapter->write(
|
|
|
|
ppb->ppb_link->adapter_unit,
|
|
|
|
(char *)mi->arg[0].p,
|
|
|
|
mi->arg[1].i, 0)))
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
INCR_PC;
|
|
|
|
goto next;
|
|
|
|
} else
|
|
|
|
panic("%s: IEEE1284 read not supported", __FUNCTION__);
|
|
|
|
}
|
1998-08-03 19:14:33 +00:00
|
|
|
|
|
|
|
/* XXX should use ppb_MS_init_msq() */
|
|
|
|
initxfer[0].arg[0].p = mi->arg[0].p;
|
|
|
|
initxfer[1].arg[0].i = mi->arg[1].i;
|
|
|
|
|
|
|
|
/* initialize transfer */
|
|
|
|
ppb_MS_microseq(dev, initxfer, &error);
|
|
|
|
|
|
|
|
if (error)
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
/* the xfer microsequence should not contain any
|
|
|
|
* MS_OP_PUT or MS_OP_GET!
|
|
|
|
*/
|
|
|
|
ppb_MS_microseq(dev, xfer->loop, &error);
|
|
|
|
|
|
|
|
if (error)
|
|
|
|
goto error;
|
|
|
|
|
|
|
|
INCR_PC;
|
|
|
|
break;
|
|
|
|
|
|
|
|
case MS_OP_RET:
|
1998-09-13 18:26:26 +00:00
|
|
|
if (ret)
|
|
|
|
*ret = mi->arg[0].i; /* return code */
|
1998-08-03 19:14:33 +00:00
|
|
|
return (0);
|
|
|
|
break;
|
|
|
|
|
|
|
|
default:
|
|
|
|
/* executing microinstructions at ppc level is
|
|
|
|
* faster. This is the default if the microinstr
|
|
|
|
* is unknown here
|
|
|
|
*/
|
|
|
|
if ((error = ppb->ppb_link->adapter->exec_microseq(
|
1999-01-10 12:04:56 +00:00
|
|
|
ppb->ppb_link->adapter_unit,
|
|
|
|
&mi)))
|
1998-09-20 14:41:54 +00:00
|
|
|
goto error;
|
1998-08-03 19:14:33 +00:00
|
|
|
break;
|
|
|
|
}
|
1999-01-10 12:04:56 +00:00
|
|
|
next:
|
1998-08-03 19:14:33 +00:00
|
|
|
}
|
|
|
|
error:
|
1998-09-20 14:41:54 +00:00
|
|
|
return (error);
|
1998-08-03 19:14:33 +00:00
|
|
|
}
|
|
|
|
|