.SBTTL	Local and global symbols and buffers
	.TITLE	AUXDAT auxiliary task data and buffers
	.PSECT	AUXDAT
	.IDENT	/M002/
;+
;
; Data for DPACP auxiliary task network directives
;
; AUTHOR
; Daniel McCoy	Informatics Inc.	Palo Alto, Ca.
;
; REVISIONS	Last Change - 25 SEP 79 - DSM
;	DATE	PERSON	STATEMENT OF CHANGES
;  5 MAR 80	DSM	Added multi-device support
; 25 SEP 79	DSM	Added index file stuff and access list
; 12/18/78	DSM	First coding
;
; NOTES
;	Uses DECNET-11M version 2
;- 
	.MCALL	QIOW$,ALUN$
	.MCALL	OPNW$,GNDW$,ACCW$,RECW$,SNDW$,REJW$,CLSW$
;
ACENB=100000	; Enable access for access QIO
;
NTLUN==1	; Lun for network
NTEFN==1	; Event flag for network
CNLUN==2	; Lun for connection
TILUN==3	; Lun for messages
TIEFN==3	; Event flag for messages
IOLUN==4	; Lun for general (non access) I/O
IOEFN==4	; Event flag for disk I/O
ACLUN1==5	; Lun corresponding to first LUNLST entry
;
FFLUN::	.WORD	0		; First available lun entry in LUNLST
;
; Data buffers
;
NBUF::	.BLKB	N.CBL	; Buffer for network connect block
PACKET::.BLKB	S.XPAK	; Packet for processing
RPACKT::.BLKB	S.YPAK	; Results of processing for return
	.PAGE
	.SBTTL	Data for miscellaneous QIO's
;
IXFID:	.WORD	1,1,0	; File ID for index file
;
; QIO DPB for index file access,
; to force the ACP to reread file headers
QACC::	QIOW$	IO.ACW,0,IOEFN,,NTSTAT,,<IXFID,,,,ACENB>
; Set lun in QACC+Q.IOLU
;
; QIO DPB to deaccess the index file before exit
QDAC::	QIOW$	IO.DAC,0,IOEFN,,NTSTAT
; Set lun in QDAC+Q.IOLU
;
; QIO DPB for straight IO
QIO::	QIOW$	0,0,IOEFN,,QSTAT,,<0,0,0,0,0,0>
QLUN==QIO+Q.IOLU	; Place to stick lun
QFUN==QIO+Q.IOFN	; Place to stuff function code
QSTAT==RPACKT+Y.STAT	; Status return for QIO
QPARAM==QIO+Q.IOPL	; Parameter list location
;
; QIO DPB for message output
TIQIO:: QIOW$	IO.WVB,TILUN,TIEFN,,,,<0,0,40>
TIBUF==TIQIO+Q.IOPL	; Buffer pointer
TILEN==TIBUF+2	; Length of buffer
	.NLIST	BEX	; Save some paper
;
; Message for mount
MOUMSG::.ASCII	/ *ACPAUX* /
MOUDV::	.BLKB	8.	; Slot for device name and unit
	.ASCII	/ mounted from /
MOUNOD::.BLKB	6	; Slot for node name
MOULEN==.-MOUMSG	; length of message
	.EVEN
;
NMOMSG::.ASCII	/ *ACPAUX* Cannot mount /
NMODV::	.BLKB	8.	; Slot for device name and unit
	.ASCII	/ for /
NMONOD::.BLKB	6	; Slot for node name
NMOLEN==.-NMOMSG	; Length of message
	.EVEN
;
; Message for dismount time
DMOMSG::.ASCII	/ *ACPAUX* dismounted from /
DMONOD::.BLKB	6	; Slot for node name
DMOLEN==.-DMOMSG	; length of message
	.EVEN
	.PAGE
	.SBTTL	Network data
;
NTSTAT::.BLKW	2	; Status block for network
;
; Network function DPB's
;
; Initialize network
OPN::	OPNW$	NTLUN,NTEFN,NTSTAT,,<1>
; Find out who called
GND::	GNDW$	NTLUN,NTEFN,NTSTAT,,<NBUF,N.CBL>
; Accept the connect request
ACC::	ACCW$	CNLUN,NTEFN,NTSTAT,,<NBUF>
; Recieve next packet
REC::	RECW$	CNLUN,NTEFN,NTSTAT,,<PACKET,S.XPAK>
; Return the results
SND::	SNDW$	CNLUN,NTEFN,NTSTAT,,<RPACKT,S.YPAK>
; Reject the request if we don't recognize the caller
REJ::	REJW$	NTLUN,NTEFN,NTSTAT,,<NBUF>
; Close network
CLS::	CLSW$	NTLUN,NTEFN,NTSTAT
	.PAGE
	.SBTTL	LUNLST area
	.PSECT	LUNLST,CON
;
; To set the number of luns for access usage
;    at TKB time    EXTSCT  this psect LUNLST by one word for each lun
;                           desired (max= 255.-5 words)
;                   GBLDEF  NACLNS to the number of access luns
; 
	.EVEN
LUNLST::		; Table for access luns

	.END