.TITLE	NTDAT , DPACP network data
	.PSECT	NTDAT
	.IDENT	/M001/
;+
; NTDAT
;   Data needed for DPACP network processing
;
; AUTHOR
;   Daniel McCoy             Informatics Inc.    Palo Alto, Ca.
;
; REVISIONS    Last change - 14-APR-79 - DSM
;   DATE     PERSON    STATEMENT OF CHANGES
; 12/18/78     DSM     First coding
;
; NOTES
;   Uses DECNET-11M version 2
;-
;
	.MCALL  OPNW$,SNDW$,CONW$,RECW$
;
NTLUN==2	; Lun for DECNET
NTEFN==2	; EFN for DECNET operations
CNLUN==3	; Lun for logical link to ACPAUX
;
; Connection bit, set if we are connected, else clear
CNFLG==1
; Flags word for network status
NTFLG::	.WORD	0
;
OPN::	OPNW$	NTLUN,NTEFN,NTSTAT,,<1,3> ; One link, 3 min. recovery
SND::	SNDW$	CNLUN,NTEFN,NTSTAT,,<.RQPK,S.XPAK>
REC::	RECW$	CNLUN,NTEFN,NTSTAT,,<.RTPK,S.YPAK>
CON::	CONW$	CNLUN,NTEFN,NTSTAT,,<CONB>
;
; A connect block (CONB$$ macro) named CONB should be provided elsewhere
;
; Status block for network calls
NTSTAT::.BLKW	2
; Storage for packet to send
.RQPK::	.BLKB	S.XPAK
; Storage for packet to receive
.RTPK::	.BLKB	S.YPAK
;
	.END