.TITLE  SRDATA
	.IDENT	-5.0-		; 19-NOV-79
	.LIST	MEB
;+
; SRDATA---SORT DIRECTORY DATA MODULE
; 
; THIS MODULE CONTAINS ALL IMPURE DATA FOR THE
; ...DIRECTORY SORT TASK
;
; MODIFICATIONS:
;
;	HLC001 -- FIX BUG ON SYSTEMS WITH EXTEND TASK AND NO
;		  DYNAMIC CHECKPOINT ALLOCATION.
;
;	 BT001 -- 11-JUL-79 -- SUPPORT REPORTING OF CONTIGUOUS, LOCKED,
;		  AND MULTI-HEADER FILES.
;	 BT002 -- 15-JUL-79 -- SUPPORT /AF AND /BE SWITCHES IN COMMAND LINE
;		  TO SELECT FILES BETWEEN THE TWO DATES.
;	 BT003 -- 18-JUL-79 -- TREAT FILE SPECIFICATION STRING GIVEN IN 
;		  COMMAND LINE (NOT IN /SE: OR /SD: SWITCH STRING) AS IF IT
;		  HAD WILD CARD MATCHING AFTER NAME AND TYPE STRINGS GIVEN;
;		  ALSO INSERT '.' IF NONE GIVEN IN /SE: OR /SD: SWITCH STRING.
;	DUKE004 -- 19-NOV-79 -- ADD VERSION NUMBER MESSAGE, ALSO MODIFIED
;		  UFD FILE DESCRIPTOR BLOCK SO IF SRD ABORTS ABNORMALLY,
;		  IT WON'T LOCK THE UFD FILE, ALSO REMOVED REFERENCE
;		  TO .MOLUN SINCE MO.... IS NOT USED BY SRD.
;
;-
	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$
	.GLOBL	Q.IOPL
	FCSBT$
	FDOF$L
	CSI$
	FSRSZ$	1
; 
; LOCAL DEFINITIONS
;
	.IF	DF	MO$LUN

; GET TKB TO ALLOCATE A LUN FOR ERROR MESSAGES
; 
.MOLUN::.BLKW	1
; 
	.ENDC	; MO$LUN
; 
; 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,FA.DLK	; DUKE004
; 
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
DIRIC$::.BLKW	1		; LAST DYNAMIC INCREMENT
PARBF$::.BLKW	3		; GET PAR PARMS HERE
	.IF DF	R$$11D!I$$AS	; IF ON RSX11D OR IAS...
	.BLKW	15		; ALLOW MORE SPACE (FOR GTSK$)
	.ENDC
SEBUF$::.BLKB	20.		; SELECT NAME BUFFER
	.BLKB	2		; TWO-BYTE OVERFLOW FOR SEBUF$ MANIPULATION
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
	.EVEN
DABUF$::.BLKB	9.		; /AF OR /DA DATE HERE
	.BYTE	0		; SENTINEL
	.EVEN
BEBUF$::.BLKB	9.		; /BE DATE HERE
	.BYTE	0		; SENTINEL
	.EVEN
SWMSK$::.BLKW	1		; SWITCH BITS HERE
SWMS2$::.BLKW	1		; 2ND SWITCH WORD 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
	.WORD	0		; TO TERMINATE PARAMETER BLOCK
HDBUF$::.BLKW	256.		; THIS IS THE BUFFER
MFDBK$==HDBUF$			; CURRENT MFD BLOCK HERE
MFDBF$==HDBUF$+2		; START OF MFD BUFFER
; 
LINBUF::.BLKB	132.
PRMPT::	.BLKB	132.		; SPACE FOR PROMPT STRING
CLMFLD::.BLKW	2		; SPACE FOR CONTIGUOUS, LOCKED, MULTI-HEADER
;				;   FILE CHARACTERISTICS REPORT BUFFER
 
;	VERSION NUMBER MESSAGE
;
SRDVER::.ASCII	<12><15>"SRD -- VERSION 5.0, 19-NOV-79"<12><15>
	SRDVS	==	.-SRDVER
;
        .END