.SBTTL	SRDPRE---PREFIX FILE
;
	EFN1=1
	E$$EIS=0	;EXTENDED INSTRUCTION SET AVAILABLE
	.GLOBL	Q.IOPL
;
;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
	VERSN	= 31		;VERSION NUMBER CONFLICT
	WBSV	= 32		;WRITE BACK AND VERSION SELECTION CONFLICT
	FMTR	= 33		;ILLEGAL CHAR. IN CM FORMAT
;
;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 DEFINITIONS
; IN SWMSK$
	IDSW	= 100000	;PRINT SRD VERSION NUMBER
	HDSW	= 40000		;LINE HEADER NOT PRINTED
	FLSW	= 20000		;FILES LISTED
	SPSW	= 10000		;SPOOL THE LISTING
	LISW	= 4000		; MIDDLE SIZE OUTPUT--SHOW DATE & TIME
	NESW	= 2000		;NEGATE SELECTION DECISION
	BESW	= 1000		;BEFORE DATE SUBSWITCH
	AFSW	= 400		;AFTER DATE SUBSWITCH
	WBSW	= 200		;WRITE BACK SWITCH
	SVSW	= 100		;SELECT VERSION SWITCH
;********BIT 40  FREE TO BE USED BY NEW SWITCHES
	FUSW	= 20		;FULL LISTING
	DASW	= 10		;DATE SELECTION ACTIVE
	SESW	= 4		;SELECTIVE LISTING SWITCH
	BRSW	= 2		;NO LISTING SWITCH
	DESW	= 1		;DELETE  ALWAYS
;
; IN SWMS1$
RDSW=1			; USE REVISION DATE FOR DATE SELECT
SRSW=2			; SORT THE STUFF
SDSW=4			;SELECTIVE DELETE
OUTFSW=10		; OUTPUT FILE WAS SPECIFIED
PRSW=20			;PROCESSOR
OVSW=40			;OLD VERSIONS SELECTED
HVSW=100		;HIGHER THAN X VERSION SELECTION
NVSW=200		;NEWEST VERSIONS SELECTED
DNSW=400		;SORT ON NAME
DTSW=1000		;SORT ON TYPE
DVSW=2000		;SORT ON VERSION
CNTSW=4000		;SORT ON COUNT    USED IN SPECIAL -SR
COSW=10000		;CONTIGUOUS FILES SELECT
LOSW=20000		;LOCKED FILES SELECT
MUSW=40000		;MULTI FILES SELECT
;
;
COFLAG=200
LOFLAG=100
;MAGIC CONSTANTS TO OPEN MFD
	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.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 EXTEND TASK--COPIED FROM RSX-11M
	.MACRO	EXTK$S	SIZE
	.MCALL	DIR$
	CLR	-(SP)
	MOV	SIZE,-(SP)
	MOV	#<3*400!89.>,-(SP)
	DIR$
	.ENDM	EXTK$S
;
	.SBTTL