function sys$assign(%stdescr devnam: packed array [integer] of char;
	var chan: integer;
	%immed acmode: integer;
(*	%stdescr mbxnam: packed array [integer] of char *)
	%immed mbxnam: integer
	): integer; extern;

function sys$dassgn(%immed chan: integer): integer; extern;
 
function sys$getjpi (%immed efn: integer;
	 var pid: integer;
	 %stdescr prcnam: packed array [integer] of char;
	 var itemlist: JPI_ITEMLIST;
	 var iosb: S_IOSB;
	 %immed procedure astret;
	 %immed astval: integer
	): integer; extern;

function sys$qio (%immed efn, chan, func: integer;
	var iosb: s_iosb;
	%immed procedure astret;
	%immed astprm,p1,p2,p3,p4,p5,p6: integer
	): integer; extern;

function sys$qiow (%immed efn, chan, func: integer;
	var iosb: s_iosb;
	%immed procedure astret;
	%immed astprm,p1,p2,p3,p4,p5,p6: integer
	): integer; extern;
 
function sys$waitfr (%immed efn: integer): integer; extern;