.TITLE NTDSC
	.ENABLE LC
	.IDENT /010688/

;
;	File:[22,310]NTDSC.MAC
;	Author: Jim Bostwick   1-JUN-1988
;	Last Edit: jmb -  1-JUN-1988 18:25:33
;	Desc: Disconnect a DECnet Logical Link
;	History: JMB  1-JUN-1988
;
;

.REM |

Procedure NTDSC (
	Lun: Integer;
	EFN: Event_flag;
	MSG: CH16;
	VAR IOSB: IO_Status_block
	);External;

{*USER*
Disconnect the network logical link active on LUN, and free the LUN. Unlike
NTABT, pending transmits are allowed to complete before the link is shut down. 
Pending receive messages continue to be delivered until all transmits are 
gone, then any remaining are aborted. MSG is user data sent to remote task.
} 

{*WIZZARD*
AST not implemented. DSCW$S synchronous call used. 
}

|

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

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

	PROC NTDSC
	PARAM LUN, Integer;
	PARAM EFN, Char
	PARAM MSG, 16.*Char
	PARAM IOSB, Address
	SAVE <R0,R1,R2,R3,R4,R5>
	BEGIN
	mov	sp, r0
	mov	efn(r0), r1
	bic	#^C377, r1
	mov	sp, r2
	add	#MSG, r2
	DSCW$S lun(r0),r1,iosb(r0),,<r2,#16.>

	ENDPR

	.END