#

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

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

	/**********************************************************************
	 *
	 *      K_post
	 *
	 */

/*
 *      K_post (
 *          1   receiver, : seid       : long     (* process SEID *)
 *          2   psInt,    : boolean    : char     (* pseudo int   *)
 *          3  &msg       : msg_struct : struct   (* text         *)
 *             )
 */

K_post ( Preceiver, PpsInt, PmsgP )
	seid                    Preceiver;
	boolean                 PpsInt;
	msg_struct              PmsgP;
{
	struct  {       /* Kpost_param  */
			seid            p_seid; /* const */
			/* ps_int was boolean- make word to force msg to */
			/* be on word boundary                           */
			int             ps_int; /* const */
			msg_struct      msg;    /*const*/
		} pb;

	pb.p_seid = Preceiver;
	pb.ps_int = PpsInt;
	st_copy ( PmsgP, &pb.msg, sizeof(msg_struct) );

	return ( EMT16(&pb) );
}
