#

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

/*
 *       SCCS File Type - Emulator Source File
 *
 *       What identification string
 */
static char *_S_K21	"@(#)EM_K21.c	3.1";
	/****************************************************************/
	/*
	 *      K_remap
	 */


/*
 *      K_remap (
 *          1   inSeg,    : seg_des  : int        (* to map in  *)
 *          2   inLoc,    : virt_loc : long       (* location   *)
 *          3   inAcc,    : acc_mode : long       (* new modes  *)
 *          4   outSeg,   : seg_des  : int        (* to map out *)
 *          5   outSize,  : seg_size : int        (* size of outgoing seg *)
 *          6   choice    : selector : int        (* status sel *)
 *              )
 */

/*
 *      struct  {       (* Kremap_param  *)
 *                      seg_des         inSeg;  (* const *)
 *                      virt_loc        inLoc;  (* const *)
 *                      acc_mode        inAcc;  (* const *)
 *                      seg_des         outSeg; (* const *)
 *                      seg_size        outSize;(* const *)
 *                      selector        choice; (* const *)
 *              }pb;
 */


K_remap( PinSeg, PinLoc, PinAcc, PoutSeg, PoutSize, Pchoice )
	seg_des  PinSeg;
	virt_loc PinLoc;
	acc_mode PinAcc;
	seg_des  PoutSeg;
	seg_size PoutSize;
	selector Pchoice;

{
	/* just point to first argument- same a param block */

	return ( EMT21(&PinSeg) );
}


