.TITLE NTCLS
	.ENABLE LC
	.IDENT /010688/

;
;	File:[22,310]NTCLS.MAC
;	Author: Jim Bostwick   1-JUN-1988
;	Last Edit: jmb -  1-JUN-1988 18:06:42
;	Desc: End Task Network Operations
;	History: JMB  1-JUN-1988
;
;

.REM |

Procedure NTCLS (
	Lun: Integer;
	Efn: Event_flag;
	VAR Iosb: Io_Status_block
	);External;

{*USER*
This call ends all task network activity. All open logical links are aborted,
and all network luns are freed. Most pending network activity is discarded.
If incomming connect requests are in the network data queue, the task is
rescheduled. 
} 

{*WIZZARD*
AST not implemented. 
}

|

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

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

	PROC NTCLS
	PARAM LUN, Integer		
	PARAM EFN, Char
	PARAM IOSB, Address
	SAVE <R0,R1,R2,R3,R4,R5>
	BEGIN
	mov	sp, r0
	mov	efn(sp), r1
	bic	#^C377, r1
	CLSW$S lun(r0),r1,iosb(r0)
	ENDPR

	.END