#

include(`dict.h')
include(`KERcalls.h')

/*
 *       SCCS File Type - Emulator Source File
 *
 *       What identification string
 */
static char *_S_K13	"@(#)EM_K13.c	3.1";
	/****************************************************************/
	/*
	 *      K_mount
	 */


/*
 *      K_mount (
 *          1   dev,      : seid    : long        (* device SEID  *)
 *          2   readOnly  : boolean : char        (* flag         *)
 *          3   &nsp,     : nsp_type: char        (* nsp assigned *)
 *              )
 */

K_mount( Pdev, PreadOnly, PnspP )
	seid            Pdev;
	boolean         PreadOnly;
	nsp_type        *PnspP;
{
	K_err_num       ex;

	/* r_only was boolean - changed to int to get vnsp in word boundry */

	struct  {       /* Kmount_param */
			seid            dev;    /* const */
			int             r_only; /* const */
			/* vars */
			nsp_type        vnsp;
		}pb;

	pb.dev          = Pdev;
	pb.r_only       = PreadOnly;

	ex = EMT13(&pb);

	*PnspP = pb.vnsp;

	return( ex );
}

