.TITLE  SRDATA
	.IDENT	/2.1/		;12-NOV-76
	.LIST	MEB
;+
; SRDATA---SORT DIRECTORY DATA MODULE
;
; THIS MODULE CONTAINS ALL IMPURE DATA FOR THE
; ...DIRECTORY SORT TASK
;-
	EFN1	= 1
	LUN2	= 2
;
;
; SYSTEM MACRO CALLS
;
        .MCALL  FDBDF$,FSRSZ$,FDRC$A,FDOP$A,FDBF$A,GCMLB$,FDBK$A,CSI$
	.MCALL	FDAT$A,NMBLK$,FCSBT$,FDOF$L,QIO$
	.MCALL	QIOW$
	FCSBT$
	FDOF$L
	CSI$
	FSRSZ$	1
;
; LOCAL DEFINITIONS
        CMDLUN	=1		;LUN FOR CMD INPUT
        UFDLUN	=2		;LUN TO READ USER-FILE-DIECTORY
	LSTLUN	=3		;LUN TO LIST SORTED DIRECTORY
        DSKEFN	=1		;EFN FOR UFD READ SYNC.
;
;GET TKB TO ALLOCATE A LUN FOR ERROR MESSAGES
;
.MOLUN::.BLKW	1
;
;
; COMMAND BUFFER & CONTROL BLOCK
;
CSIBLK::.BLKB C.SIZE
;
CMDBLK::GCMLB$  2,SRD,LINBUF,CMDLUN
;
CMDSIZ==CMDBLK+G.CMLD           ;DEFINE COMMAND SIZE ADDRESS
CMDADR==CMDSIZ+2                ;...AND ADDRESS POINTER
;
UFDFDB::FDBDF$
        FDRC$A  FD.RWM          ;READ/WRITE MODE
        FDBK$A  ,512.,,DSKEFN,IOSB$
        FDOP$A  UFDLUN,,,FO.RD
;
LSTFDB::FDBDF$
	FDAT$A	R.VAR,FD.CR
	FDOP$A	LSTLUN,,,FO.WRT
IOSB$:: .BLKW   2
;
;QIO DPB TO ATTACH/DETACH THE LISTING DEVICE
;
LSTQIO::QIOW$	IO.ATT,LSTLUN,EFN1
LSTDFN::NMBLK$	DIRECTORY,LST,0,SY,0
;
; SAVE AREA FOR STACK POINTER
;
SAVSP:: .BLKW   1
LIMIT.::.LIMIT			;TKB PUTS BOTTOM OF STACK&
	DIRBF$==.-2		;SET POINTER TO START OF BUFFER
DIRBE$::.BLKW	1		;END OF DIRECTORY BUFFER HERE
PARBF$::.BLKW	16.		;GET PAR PARMS HERE
SEBUF$::.BLKB	20.		;SELECT NAME BUFFER
LINSZ$::.BLKW	1		;LINE SIZE SWITCH VALUE
DABUF$::.BLKB	9.		;DATE HERE
	.BYTE	0		;SENTENAL
	.EVEN
SWMSK$::.BLKW	1
SVNUM$::			;REFERENCE LABEL
LVNUM$::.BLKW	1		;LOW VERSION NUMBER WHEN SELECTING HIGHER VERSIONS
DATIM$::.BLKB	16.		;KEEP DATE & TIME HERE
;
;SAVE AREA FOR DIRECTORY AND DEVICE INFO FOR SELECTIVE DELETE
;
SAVDID::.BLKW	2		;DIRECTORY ID SAVED HERE
SAVDVN::.BLKW	1		;DEVICE NAME GOES HERE
SAVUNM::.BLKW	1		;UNIT NUMBER HERE
;
;WILD CARD DIRECTORY FLAGS
;
NXUIC$::.BLKW	1		;NEXT UIC TO CHECK
WCGRP$::.BLKW	1		;GROUP CODE OR 0 FOR WILD CARD GRP
WCUSR$::.BLKW	1		;USER NUMBER OR ZERO FOR WILD
	.EVEN			;WORD ALIGNMENT NEEDED
UICS$::	.ASCIZ	/000/		;PROTOTYPE UIC FIELD
	.EVEN
;
;READ FILE HEADER DPB
;
READHD::QIO$	IO.RAT,LUN2,EFN1,,IOSB$,,<0,ATTLST>
;
ATTLST:	.BYTE	-10.,0		;ATTRIBUTE LIST---READ ENTIRE HEADRE
	.WORD	HDBUF$		;THIS IS THE BUFFER POINTER
	.WORD	0		;TERMINATE READ ATTRIBUTES LIST
HDBUF$::.BLKW	256.		;THIS IS THE BUFFER
;
LINBUF::.BLKB	132.
HEADBF::.BLKB	132.
;DATE HERE
;
        .END