.TITLE NTACC
	.ENABLE LC
	.IDENT /010688/
;
;	     Desc: Accept Network Link Connect Request
;	     File: [22,310]NTACC.MAC
;	   Author: Jim Bostwick   1-JUN-1988
;	Last Edit: 15-NOV-1988 12:14:37 
;	  History: 
;		 3-AUG-1989 10:50:29 - JMB - changed location of PASMAC (again)
;	 	 15-NOV-88 12:00:00 - JMB - Conform to AMI Header specs. 
;		 23-JUN-1988 21:17:06  - JMB PA3UTL upgrade.
;
;

.REM |
{*CALL*}

Procedure NTACC (
	lun:integer; 
	efn:event_flag;
	VAR conb:Net_Connect_block;
	VAR msg:CH16;
	VAR iosb:Io_status_block
	);External;

{*USER*

 Directs DECnet software to complete the logical link request from a
remote task, using LUN. CONB is the connect block filled in by a 
previous NTGND or NTGNDW call. MSG contains user message returned
to the remote task.

 } 

{*WIZZARD*

AST, NOFLOW control not implemented. 
 }

|

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

	.LIBRARY /LB:[1,1]NETLIB.MLB/
	.include /pas$utl:pasmac.mac/

	.MCALL ACCW$S

	PROC NTACC
	PARAM lun, integer		; logical unit for link
	PARAM EFN, Char			; efn set when ACC completes
	PARAM CONB, address		; connect block address
	PARAM MSG, Address		; CH16 address
	PARAM IOSB, Address		; status block address

	SAVE <R0,R1>
	BEGIN
	mov	sp, r0			; form frame pointer
	movb	efn(r0), r1		; get event flag
	bic	#^C377, r1
	ACCW$S	lun(r0),r1,iosb(r0),,<conb(r0),,msg(r0),#16.>

	ENDPR

	.END