.ENABLE	LC
;
;	Version 6.4 of SRD
;
; SRD PRE FIX FILE
;
;	UPDATED: 1-DEC-76
;
;	UPDATED: 08-MAR-79
;
;	UPDATED: 05-AUG-79
;
;	UPDATED: 19-NOV-79	H.R.TUMBLIN, DUMC
;
;	UPDATED: 28-NOV-80	Phil Stephensen-Payne
;
;	UPDATED:  01DEC81	BOB TURKELSON	(;BT001)
;	UPDATED:  18MAY83	BOB TURKELSON	(;BT002)
;	UPDATED:  07NOV83	Bob Turkelson   (;BT003)
;
	TTYLUN	= 5		; LUN for terminal I/O
	HDRLUN	= 4		; LUN to read file headers
	EFN1	= 1		; UTILITY EVENT FLAG
 	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.
;
;	Error Request Codes
;
	GCME	= 1		;ERROR READING COMMAND
	CS1E	= 2		;COMMAND SYNTAX ERROR
	CS2I	= 3		;INPUT FILE COMMANDD SYNTAX ERROR
	CS2O	= 4		;OUTPUT FILE SYNTAX ERROR
	DPRIV	= 5		; DIRECTORY PRIVILEGE VIOLATION
	DOERR	= 6		; OTHER DIRECTORY OPEN 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
	WBERR	= 25		; DIRECTORY WRITE-BACK ERROR
	SQCHK	= 26		; FILE ID/SEQ # MISMATCH
	WBCAN	= 27		; WRITE-BACK CANCELLED
	HDPRV	= 30		; PRIV VIOLATION
	BADDH	= 31		; Bad date format in file header
	XHDRD	= 32		; Error reading extension header
	BADSK	= 33		; Invalid sort key fields
	BADSV	= 34		; Sort keys specified do not allow /SV,/OV,/PU
	BADDS	= 35		; Unable to read or convert date for date sort
	BADCM	= 36		; Illegal value given in /CM: switch
;
; 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
;
	NASW	= 100000	; SORT BY NAME SW
	MISW	= 40000		; Middle Listing
	PUSW	= 20000		; PURGE THE FILES SELCTED
	SPSW	= 10000		; SPOOL FILE
	AESW	= 4000		; After/on Date Switch
	AFSW	= 2000		; After Date Switch
	BESW	= 1000		; Before/on Date Switch
	BFSW	= 400		; Before Date Switch
	NESW	= 200		; NEGATE SELECTION DECISION
	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
;
;	2ND SWITCH MASK WORD DEFINITIONS
;
	M2SW	= 100000	; 2nd type of Middle-Sized Listing
	HESW	= 40000		; Help
	WISW	= 20000		; Automatic wildcarding
	WDSW	= 10000		; Automatic wildcarding on delete
	HVSW	= 4000		; SELECT HIGHER VERSION
	ZESW	= 2000		; SELECT FILES WITH ZERO BLOCKS USED            ;BT001
	ATSW	= 1000		; Attach output device if terminal              ;**-1
	SYSW	= 400		; Include system directories in [*,*]
	WBSW	= 200		; WRITE BACK SWITCH
	SRSW	= 100		; Sort the directory
	RDSW	= 40		; Use Revision Date for date checks
	SISW	= 20		; DISPLAY INTERNAL BUFFER SIZE
	IDSW	= 10		; LIST SRD VERSION
	COSW	= 4		; SELECT CONTIGUOUS FILES
	LOSW	= 2		; SELECT LOCKED FILES
	MUSW	= 1		; SELECT MULTI-HEADER FILES
;                                                                               ;BT001
;	3RD SWITCH MASK WORD DEFINITIONS                                        ;BT001
;                                                                               ;BT001
	H2SW	= 100000	; Report errors reading extension headers
	FOSW	= 2000		; Select files according to file owner
	CMSW	= 1000		; Create command file format
	PASW	= 400		; Pack file names (exclude blanks)
	FISW	= 200		; Select file with specified file id
	TBSW	= 100		; Print total blocks
	GTSW	= 40		; Select files larger or equal to value
	ERSW	= 20		; Select files with header read errors
	BKSW	= 10		; Include 2 blanks ahead of file names
	HDSW	= 4		; Include command line in header
	SMSW	= 2		; Include summary in listing
	ZDSW	= 1		; Include [0,0] in [*,*] searches
;
; FLAG BIT DEFINITIONS
;
	HDFL	= 100000	; LINE HEADER NOT PRINTED
	DATERR	= 400		; Error in date detected during date selection
	FLFL	= 200		; FILES LISTED
	NOFOSW	= 100		; Indicate /-FO specified on command line
	ASCVER	= 40		; Sorting versions ascending
	OVDSVA	= 20		; (/OV and versions descending) or (/-OV and
;				;    versions ascending)
	OUTFSW	= 10		; Output filespec given
	DATSRT	= 4		; Sort by date will be done
	HDRERR	= 2		; Header read error indicator
	RDHDFL	= 1		; Need to read file headers
;
; USER-CONTROLLED FILE CHARACTERISTICS FLAG BIT DEFINITIONS (HEADER BYTE H.UCHA)
;
	COFLAG	= 200
	LOFLAG	= 100
;
;	DIRECTORY OFFSETS AND VALUES
;
;
	MFDNUM	=	4	; FILE ID NUMBER FOR FILE 000000.DIR
	MFDSEQ	=	4	; FILE SEQ NUMBER FOR MFD
;
; DIRECTORY OFFSETS
;
	D.SIZ	= 20		; SIZE OF DIR. ENTRY
	D.FLEV	= 4		; File system level offset (always zero value
;				;   on ODS-1 disk structure)
	D.FNAM	= 6		; OFFSET TO NAME
	D.TYP	= 14		; OFFSET TO FILE TYPE
	D.VER	= 16		; ...AND VERSION

	WBTRY=3			; Max # of Directory Write-Back Retries

	.IF NDF	E$$EIS
	.MACRO	SOB RG,PLC
	DEC	RG
	BNE	PLC
	.ENDM
	.ENDC
;
; MACRO TO DO TASK EXPANSION. KEEP THIS UNTIL THE RSX-11M PEOPLE
; MANAGE TO GET IT INTO THE MACRO LIBRARY.
;
	.MACRO	EXRG$S	SIZE
	.MCALL	DIR$
	CLR	-(SP)
	MOV	SIZE,-(SP)
	MOV	#<3*400!89.>,-(SP)
	DIR$
	.ENDM	EXRG$S
	.LIST			; enable list of assemblies                     ;CEF001