.TITLE	NETGND	Get network data
	.IDENT	"X1.2"
	.ENABL	LC
	.NLIST	BEX,CND,TOC
;+
; Index		Get Network Data
;
; Usage
;
;	#include <nsp.h>	/* NSP defs */
;
;	int	lun;		/* Net. data queue mailbox LUN */
;	int	efn;		/* Event flag # for wait */
;	int	status[2];	/* Status block */
;	{typ}	astsrv();	/* AST service routine */
;	struct r_conb *mail;	/* --> received connect block */
;	int	dir_stat;	/* Directive status ($DSW) */
;
;	dir_stat = netgnd(lun, efn, status, astsrv, mail);
;
; Description
;
;	netgnd() may be called by either the client or server task
;	to get data from the task's network data queue mailbox.
;	The data in the queue can consist of any of the following:
;
;		* A connect request (NT_CON)
;		* An interrupt message (NT_INT)
;		* A user disconnect notification (NT_DSC)
;		* A user abort notification (NT_ABT)
;		* A network abort notification (NT_ABO)
;
;	If netgnd() completes successfully, the first item in the
;	task's mailbox is placed in the r_conb struct whose address
;	is supplied in the call.
;
;	The nsp.h header file contains symbolic definitions for the
;	NT.XXX message type codes, and the status returns which indicate
;	the access verification status, if any.
;
;	For more information, see the RSX DECnet Programmer's
;	Reference Manual (May, 1982) section 2.8.8.
;
;	The function returns $DSW.
;
; Notes
;
;	The special forms which use NT.LON and/or NT.TYP are not
;	supported in this version.
;
;	The mailbox buffer is defined to have a length sufficient to
;	hold a full 16-byte "optional user data" message.
;-
;
; Edits:
;
; X1.0	27-Feb-83 RBD	Initial edit
; X1.1  17-Feb-84 RBD	N.CBL not defined in library
; X1.2	31-Jan-02 BQT	Changed for I/D space.
;
	.psect	c$code,i,ro
	.mcall	gnd$s

N.CBL	= 98.

NETGND::
	mov	sp,r0		; r0 --> parameter list
	gnd$s	2(r0),4(r0),6(r0),10(r0),<12(r0),#<N.CBL+18.>>
	mov	$dsw,r0		; Return $DSW
	return
	.end