.TITLE  SRDATA
	.IDENT	/4.0/		; 1-SEP-1977
	.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,QIOW$
	FCSBT$
	FDOF$L
	CSI$
	FSRSZ$	1
; 
; LOCAL DEFINITIONS
; 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
	FDRC$A	FD.PLC,LINBUF,132.
	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			; TKB PUTS BOTTOM OF STACK&
	DIRBF$==.-2		; SET POINTER TO START OF BUFFER
DIRBE$::.BLKW	1		; END OF DIRECTORY BUFFER HERE
PARBF$::.BLKW	3		; GET PAR PARMS HERE
SEBUF$::.BLKB	20.		; SELECT NAME BUFFER
LINSZ$::.BLKW	1		; LINE SIZE SWITCH VALUE
VRSNS$::.BLKW	1		; NUMBER OF VERSIONS OF FILE SEEN
VRSCT$::.BLKW	1		; COUNT OF NUMBER TO USE IN PURGE/SELECT VERSION
DABUF$::.BLKB	9.		; DATE HERE
	.BYTE	0		; SENTENAL
	.EVEN
SWMSK$::.BLKW	1		; SWITCH BITS HERE
FLAGS$::.BLKW	1		; FLAGS BITS HERE
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::QIOW$	IO.RAT,LUN2,EFN1,,IOSB$,,<0,ATTLST>
; 
ATTLST:	.BYTE	-10.,0		; ATTRIBUTE LIST---READ ENTIRE HEADRE
	.WORD	HDBUF$		; THIS IS THE BUFFER POINTER
HDBUF$::.BLKW	257.		; THIS IS THE BUFFER
MFDBK$==HDBUF$			; CURRENT MFD BLOCK HERE
MFDBF$==HDBUF$+2		; START OF MFD BUFFER
; 
LINBUF::.BLKB	132.
 
        .END