;+
;
; THIS PROGRAM IS NOT SUPPORTED BY DIGITAL EQUIPMENT CORPORATION,
; NOR IS IT SUPPORTED BY ANY USER ORGANIZATION AFFILIATED WITH
; DEC.  ANYONE USING THIS PROGRAM MUST RECOGNIZE THAT HE IS RES-
; PONSIBLE FOR PROVIDING HIS OWN PROGRAM SUPPORT.
;
; VERSION 2.02
;
; AUTHOR UNKNOWN	??-???-??
;
; MODIFIED BY:
;
; NO.	AUTHOR		DATE		CHANGE
; ---	------------	---------	-------------------------
; 001	REID L BROWN	20-SEP-76	ADD IAS/RSX11D SUPPORT
; 002	WILLIAM CAEL	26-MAY-79	FIX EMPTY DIRECTORY BUG
; 002					ADD /RV REVISION DATE SUB-SWITCH
; 002					FIX ONE DIGIT DATE (D-MMM-YY) BUG
; 002					CHANGE WILD * TO MATCH STRINGS
; 002					FIX WILD UIC SELECTIVE DELETE BUG
; 002			14-NOV-79	ADD OWNER SELECT SWITCH
; 002			12-MAY-80	MORE MFD BUGS AND CLEANUP
; 002			23-MAY-80	ALLOW LOWER CASE 'Y' FOR DELETE
;			08-OCT-81	FIX HAUNTING /WB WRITE BACK BUG
;			08-OCT-81	MAKE /NE APPLY TO ALL OTHER SELECTION
;						CRITERIA.
;
;
;
; **-SRD-	SORT DIRECTORY UTILITY
;
; 'SRD' ALLOWS FOR MORE SPECIALIZED DIRECTORY OPERATIONS THAN
; PREVIOUSLY POSSIBLE WITH PIP.  DIRECTORIES MAY BE SELECTIVLY
; SEARCHED, SORTED AND REWRITTEN.
;
;-
 
 
; SYSTEM CONDITIONALIZATION
;
 
IAS=	1				;DELETE FOR RSX11M

;
;SRD PRE FIX FILE
;
;
	EFN1=1
;
;ERROR REQUEST CODES
;
	GCME	= 1		;ERROR READINF COMMAND
	CS1E	= 2		;COMMAND SYNTAX ERROR
	CS2I	= 3		;INPUT FILE COMMANDD SYNTAX ERROR
	CS2O	= 4		;OUTPUT FILE SYNTAX ERROR
	MFDE	= 7		;MFD OPEN ERROR
	PRSE	= 10		;PARSE FILE ERROR
	OPNE	= 11		;OPEN FAILURE
	OPNI	= 12		;OPEN FAILURE ON INPUT FILE
	OPNO	= 13		;OPEN FAILURE ON OUTPUT FILE
	DIRF	= 14		;DIRECTORY FIND ERR
	NOFL	= 15		;NO SUCH FILES
	BADD	= 16		;BAD DATE FORMAT
	HDRE	= 17		;HEADER READ ERR
	PUTE	= 20		;FAILED TO WRITE RECORD
	GETE	= 21		;FAILED TO READ RECORD
	WRTE	= 22		;FAILED TO WRITE BOLCK
	REDE	= 23		;FAILED TO GET BLOCK
	FDEL	= 24		;FAILED TO DELETE FILE
;
;MACRO TO GENERATE AN ERROR MESSAGE REQUEST
;	FOR A FATAL ERROR
;
	.MACRO	FERR	NUM
	TRAP	NUM
	.ENDM
	.MACRO	DIAG	NUM
	TRAP	200!NUM
	.ENDM
; SOME LOCAL DEFINITIONS
;
;	SWITCH MASK DEFINTIONS (SWMSK$)				;+++002
;
	NASW	= 100000	;SORT BY NAME SW
	SUSW	= 40000		;INCLUDE DIRECTORY SUMMARY LINE
	RVSW	= 20000		;REVISION DATE SUBSWITCH	;+++002
	OWSW	= 10000		;OWNER SELECT SWITCH		;
	HVSW	= 4000		;SELECT HIGHER VERSION
	NESW	= 2000		;NEGATE SELECTION DECISION
	BESW	= 1000		;BEFORS DATE SUBSWITCH
	AFSW	= 400		;AFTER DATE SUBSW
	WBSW	= 200		;WRITE BACK SWITCH
	SVSW	= 100		;SELECT VERSION SWITCH
	SDSW	= 40		;SELECTIVE DELETE
	FUSW	= 20		;FULL LISTING
	DASW	= 10		;DATE SELECTION ACTIVE
	SESW	= 4		;SELECTIVE LISTING SWITCH
	LISW	= 2		;NO LISTING SWITCH
	DESW	=	1	;DELETE  ALWAYS
;
;	SWITCH MASK DEFINITIONS (S2MSK$)			;+++002
;
	HDSW	= 100000	;LINE HEADER NOT PRINTED	;+++002
	FLSW	= 40000		;FILES LISTED			;+++002
	OWSUPL	= 20000		;OWNER STRING SUPPLIED		;
;
;	DIRECTORY OFFSETS
;
;MAJIC CONSTANTS TO OPEN MFD
;
	MFDNUM	=	4	;FILE ID NUMBER FOR FILE 000000.DIR
	MFDSEQ	=	4	;FILE SEQ NUMBER FOR MFD
	D.SIZ=20		;SIZE OF DIR. ENTRY
	D.FNAM=6		 ;OFFSET TO NAME
	D.TYP=14		;OFFSET TO FILE TYPE
	D.VER=16		;...AND VERSION
	.IF NDF	E$$EIS
	.MACRO	SOB RG,PLC
	DEC	RG
	BNE	PLC
	.ENDM
	.ENDC