.TITLE	NETABT	Abort a logical link
	.IDENT	"X1.1"
	.ENABL	LC
	.NLIST	BEX,CND,TOC
;+
; Index		Abort a logical link
;
; Usage
;
;	#include <nsp.h>	/* NSP defs */
;
;	int	lun;		/* Logical link LUN */
;	int	efn;		/* Event flag # for wait */
;	int	status[2];	/* Status block */
;	{typ}	astsrv();	/* AST service routine */
;	char	*out;		/* Opt. 1-16 byte msg. */
;	int	outlen;		/* Length of opt. msg. */
;	int	dir_stat;	/* Dir. status ($DSW) */
;
;	dir_stat = netabt(lun, efn, status, astsrv, out,
;				outlen);
;
; Description
;
;	netabt() can be issued by either the client or server task to
;	abort a logical link.  netabt() immediately aborts all pending
;	transmits and receives on the link, disconnects it, and frees
;	the LUN assigned to it.  For more info, see the RSX DECnet
;	Programmer's Reference Manual (May, 1982), section 2.8.1.
;
;	You may optionally send a 1- to 16-byte message to the task at
;	the other end of the link.
;
;	The function returns $DSW.
;
; Notes
;
;	The "out" and "outlen" parameters must either be both zero, or
;	they must both be 'live'.
;
;	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	abt$s

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