.TITLE	NETOPN	Access the network
	.IDENT	"X1.1"
	.ENABL	LC
	.NLIST	BEX,CND,TOC
;+
; Index		Access the network
;
; Usage
;	#include <nsp.h>	/* NSP defs. */
;
;	int	lun;		/* Net. data mailbox LUN */
;	int	efn;		/* Event flag # for wait */
;	int	status[2];	/* Status block */
;	{typ}	astsrv();	/* AST service routine */
;	int	maxlinks;	/* Max. # of logical links */
;	int	lrp;		/* Link recovery period, min. */
;	int	dir_stat;	/* Directive status ($DSW) */
;
;	dir_stat = netopn(lun, efn, status, astsrv, maxlinks,
;				lrp);
;
; Description
;
;	This function establishes the current task as an active network
;	task and creates a network data queue mailbox for it.  For more
;	information, see the RSX DECnet Programmer's Reference Manual
;	(May, 1982) section 2.8.9.
;
;	The function returns $DSW.
;
; Notes
;
;	netopn() must be issued before using any other intertask
;	communication function in the CN library.
;
;	The first three parameters are required!
;-
;
; 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	opn$s

NETOPN::
	mov	sp,r0		; r0 --> parameter list
	opn$s	2(r0),4(r0),6(r0),10(r0),<12(r0),14(r0)>
	mov	$dsw,r0		; Return $DSW
	return
	.end