#

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

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


/*
 *      K_set_da (
 *          1   objSeid,  : seid         : long     (* object SEID *)
 *          2   da,       : discr_access : int      (* new da      *)
 *              )
 */

/*
 *      struct  {       (* Ksetda_param *)
 *                      seid            o_seid; (* const *)
 *                      discr_access    da;      (*const*)
 *              }pb;
 */


K_set_da( PobjSeid, Pda )
	seid            PobjSeid;
	discr_access    Pda;
{
	/* just point to first argument- same a param block */

	return ( EMT35(&PobjSeid) );
}



