.TITLE NTACC
	.ENABLE LC
	.IDENT /010688/

;
;	File:[22,310]NTACC.MAC
;	Author: Jim Bostwick   1-JUN-1988
;	Last Edit: jmb -  1-JUN-1988 17:54:30
;	Desc: Accept Network Link Connect Request
;	History: JMB  1-JUN-1988
;
;

.REM |

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/
	.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