.TITLE NTABT
	.ENABLE LC
	.IDENT /101488/

;
;	File:[22,310]NTABT.MAC
;	Author: Jim Bostwick   1-JUN-1988 
;	Last Edit 1-JUN-1988 01:58:34 
;
;	Desc: NTABT - Abort Network Link
;
;	History: JMB  1-JUN-1988 
;
;

.REM |

Procedure NTABT	( 
	Lun: Integer;
	efn: Event_flag;
	msg: CH16;
	VAR IOSB: IO_Status_block;
	);External;

{*USER*
 Immediately abort specified logical link. All pending traffic on the 
link is killed, and the LUN freed. 
 EFN is required (do NOT use f0), and is set when the abort completes
(will be set upon return). 
 MSG is an optional user data string which is sent to the other end
of the link as part of the disconnect message. It may be of zero length
(in-use length). It is recommended that an empty type-0 string be used
if no user message is desired. 
 Control returns when the abort completes. 
} 

{*WIZZARD*
}

|

;
; Assemble with PASMAC.MAC as prefix file.
;

	.library /lb:[1,1]netlib.mlb/
	.MCALL ABTW$S

	PROC NTABT
	PARAM LUN, Integer		; lun of link to be killed
	PARAM EFN, Char			; (byte) Event flag
	PARAM msg, 16*Char		; user data 
	PARAM iosb, address		; io status block

	SAVE <R0,R1>
	BEGIN
	mov	sp, r0			; get local copy
	movb	efn(sp), r1		; copy efn
	bic	#^C377, r1		; zap high byte
	ABTW$S	lun(r0),r1,iosb(r0),,<msg(r0),#16.>

	ENDPR

	.END