#

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

/*
 *       SCCS File Type - Emulator Source File
 *
 *       What identification string
 */
static char *_S_K22	"@(#)EM_K22.c	3.1";
	/****************************************************************/
	/*
	 *      K_rendezvous_segment
	 */

/*
 *      K_rendezvous_segment (
 *          1   segSeid,  : seid     : long       (* segment SEID    *)
 *          2   location, : virt_loc : long       (* where to put it *)
 *          3   access,   : acc_mode : long       (* modes           *)
 *          4  &segDes,   : seg_des  : int        (* seg designator  *)
 *              )
 */

K_rendezvous_segment( PsegSeid, Plocation, Paccess, PsegDesP )
	 seid     PsegSeid;
	 virt_loc Plocation;
	 acc_mode Paccess;
	 seg_des  *PsegDesP;
{

	K_err_num       ex;

	struct  {       /* Krndzvs_param  */
			seid            s_seid; /* const */
			virt_loc        loc;    /* const */
			acc_mode        access; /* const */
			/* vars */
			seg_des         vsegDes;
		}pb;


	pb.s_seid = PsegSeid;
	pb.loc    = Plocation;
	pb.access = Paccess;

	ex = EMT22(&pb);

	*PsegDesP  = pb.vsegDes;

	return( ex );
}
