.TITLE	NETACC	Accept a logical link request
	.IDENT	"X1.1"
	.ENABL	LC
	.NLIST	BEX,CND,TOC
;+
; Index		Accept a logical link request
;
; Usage
;
;	#include <nsp.h>	/* NSP defs */
;
;	int	lun;		/* LUN to be assg'd to link */
;	int	efn;		/* Event flag # for wait */
;	int	status[2];	/* Status block */
;	{typ}	astsrv();	/* AST service routine */
;	struct r_conb *mail;	/* --> GND$ rec'd con. blk */
;	char	*out;		/* Opt. 1-16 byte message */
;	int	outlen;		/* Length of opt. msg */
;	int	dir_stat;	/* Directive status ($DSW) */
;
;	dir_stat = netacc(lun, efn, status, astsrv, mail,
;				out, outlen);
;
; Description
;
;	netacc() is issued by the server task to accept a logical link
;	request by the client.  Optionally, a 1- to 16-byte message
;	can be returned to the client as part of the link request
;	acceptance.  For more information, see the RSX DECnet Programmer's
;	Reference Manual (May, 1982) section 2.8.2.
;
;	The function returns $DSW.
;
; Notes
;
;	The connect blocks generated and communicated by the CN-Library
;	routines are of maximum length, i.e., they always contain room
;	for a 16-byte service message.  For this reason, the length of
;	the connect block is not a parameter for the functions.
;
;	The "out" and "outlen" parameters are paired; make both zero,
;	or both 'live'.
;
;	The first three parameters are required!
;
; 	The NOFLOW option is not supported.
;-
;
; Edits:
;
; X1.0	27-Feb-83 RBD	Initial edit
; X1.1	31-Jan-02 BQT	Changed for I/D space.
;
	.psect	c$code,i,ro
	.mcall	acc$s

NETACC::
	mov	sp,r0		; r0 --> parameter list
	acc$s	2(r0),4(r0),6(r0),10(r0),<12(r0),#116.,14(r0),16(r0)>
	mov	$dsw,r0		; Return $DSW
	return
	.end