bua.c

<B>Digital的Unix操作系统VAX 4.2源码</B>

#ifndef lint
static char *sccsid = "@(#)bua.c	4.1	(ULTRIX)	7/2/90";
#endif lint

/************************************************************************
 *									*
 *			Copyright (c) 1985,1986 by			*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any	other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or	reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/

/* ------------------------------------------------------------------------
 * Modification History:
 *
 * 24-May-89	darrell
 *	Removed the v_ prefix from all cpusw fields, removed cpup from any
 *	arguments being passed in function args.  cpup is now defined
 *	globally -- as part of the new cpusw.
 *
 * 24-May-89	darrell
 *	Changed the #include for cpuconf.h to find it in it's new home --
 *	sys/machine/common/cpuconf.h
 *
 * 	10-Jul-86   -- jaw	added adpt/nexus to ioctl
 *
 * 	13-Jun-86   -- jaw 	fix to uba reset and drivers.
 *
 * 	5-Jun-86   -- jaw 	changes to config.
 *
 *	09-Mar-86  darrell -- pointer to cpusw structure now passed in.
 *		No longer use a global reference.
 *
 * 	18-Mar-86 -- jaw  add routines to cpu switch for nexus/unibus addreses
 *		     also got rid of some globals like nexnum.
 *		     ka8800 cleanup.
 *
 * 	04-feb-86 -- jaw  get rid of biic.h.
 *
 *	03-Feb-86 -- jaw  changes to SCB vectoring...
 *
 *	11-Sep-85 -- jaw  put in offical name of BUA.
 *
 *	08-Aug-85 -- lp   fixed where bua_vec points for BLA case
 *
 *	05-Aug-85 -- lp   add mask to BLA check & move HIGH arb code
 *			  to bua case only.
 *
 *	26-jul-85 -- jaw  add vector allocation code.
 *
 *	19-Jun-85 -- jaw  VAX8200 name change.
 *
 *	05 Jun 85 -- jaw  clean up and move buainit from bua.c file.
 *
 *	20 Mar 85 -- jaw  add support for VAX 8200.
 *
 * ------------------------------------------------------------------------
 */
#include "../machine/pte.h"
#include "../h/param.h"
#include "../h/systm.h"
#include "../h/map.h"
#include "../h/buf.h"
#include "../../machine/common/cpuconf.h"

#include "../machine/cpu.h"
#include "../machine/clock.h"
#ifdef vax
#include "../machine/mem.h"
#include "../machine/mtpr.h"
#include "../machine/nexus.h"
#include "../machine/scb.h"
#endif vax
#include "../io/uba/ubareg.h"
#include "../io/uba/ubavar.h"
#include "../io/bi/bireg.h"
#include "../io/bi/buareg.h"

extern int nNUBA;
extern int numuba;
extern struct cpusw *cpup;	/* pointer to cpusw entry */


bbuainit(bua,physbua,binumber,binode)
register struct bua_regs *bua;
register char *physbua;
int binumber;
int binode;
{
	int i;

	/* set offset in SCB */
	uba_hd[numuba].uh_lastiv = NBPG;

	if(numuba >= nNUBA) {
		binotconf(bua,physbua,binumber,binode);
		return;
	}

#ifdef mips
	printf("uba%x at vaxbi%x node %x NOT SUPPORTED \n", numuba,
		binumber,binode);
	return;
#endif mips
#ifdef vax
	printf("uba%x at vaxbi%x node %x \n", numuba,
		binumber,binode);

	/* bua must be at HIGH arb....or else */
	bua->bua_biic.biic_ctrl |= BICTRL_HIARB;
	bua->bua_vec = SCB_UNIBUS_PAGEOFFSET(numuba);

	uba_hd[numuba].uba_type = UBABUA;
	
	DELAY(5000000);  /* delay 5 seconds for the UNIBUS to settle */

	unifind(bua,physbua,umem[numuba],cpup->umaddr(binumber,binode),
		cpup->pc_umsize,cpup->udevaddr(binumber,binode),
		UMEMmap[numuba],cpup->pc_haveubasr,binumber,binode);
	numuba++;	
	bua->bua_ctrl |= BUACR_BUAEIE;

#endif vax
}

buainit(bua)
	register struct bua_regs *bua;
{
	long tbua_vec;
	long tbi_dest;
	long i;

	tbi_dest = bua->bua_biic.biic_int_dst;
	tbua_vec = bua->bua_vec;

	if (bisst(&(bua->bua_biic.biic_ctrl))) {
		if (((short)bua->bua_biic.biic_typ) == BI_BUA)
			printf (" DWBUA reset failed \n");
		else
			printf (" KLESI-B reset failed \n");
	}
	DELAY(5000000);  /* delay 5 seconds for the UNIBUS to settle */

	bua->bua_ctrl |= BUACR_BUAEIE;
	bua->bua_biic.biic_int_dst = tbi_dest;
	bua->bua_vec = tbua_vec;
}