.SBTTL	SRDPRE---PREFIX FILE						;**NEW**
;										;**NEW**
; EDIT # 0016	20 Jan 1981   12:28:44	DR0:[300,57]SRDPRE.MAC;25
; PREVIOUS EDIT	20 Jan 1981   12:09:26	DR0:[300,57]SRDPRE.MAC;24
;SRD PREFIX FILE								;**-1
;
	EFN1=1
	E$$EIS=0	;EXTENDED INSTRUCTION SET AVAILABLE
	.GLOBL	Q.IOPL								;**-5
;
;ERROR REQUEST CODES
;
	GCME	= 1		;ERROR READING COMMAND				;**NEW**
	CS1E	= 2		;COMMAND SYNTAX ERROR				;**NEW**
	CS2I	= 3		;INPUT FILE COMMANDD SYNTAX ERROR		;**NEW**
	CS2O	= 4		;OUTPUT FILE SYNTAX ERROR			;**NEW**
	DPRIV	= 5		; DIRECTORY PRIVILEGE VIOLATION			;**NEW**
	DOERR	= 6		; OTHER DIRECTORY OPEN ERROR			;**NEW**
	MFDE	= 7		;MFD OPEN ERROR					;**-4
	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					;**NEW**
	BADD	= 16		;BAD DATE FORMAT				;**-1
	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			;**NEW**
	SQCHK	= 26		; FILE ID/SEQ # MISMATCH			;**NEW**
	WBCAN	= 27		; WRITE-BACK CANCELLED				;**NEW**
	HDPRV	= 30		; PRIV VIOLATION				;**NEW**
;
;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							;**NEW**
; IN SWMSK$									;**NEW**
	NASW	= 100000	;SORT BY NAME SW				;**-2
	HDSW	= 40000		;LINE HEADER NOT PRINTED
	FLSW	= 20000		;FILES LISTED
	SPSW	= 10000		;SPOOL THE LISTING
	MISW	= 4000		; MIDDLE SIZE OUTPUT--SHOW DATE & TIME		;**NEW**
	NESW	= 2000		;NEGATE SELECTION DECISION			;**-1
	BESW	= 1000		;BEFORE 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
;
; IN SWMS1$									;**NEW**
RDSW=1			; USE REVISION DATE FOR DATE SELECT			;**NEW**
SRSW=2			; SORT THE STUFF					;**NEW**
SYSW=4			; INCLUDE SYSTEM UIC'S IN WILDCARD ( <011 )		;**NEW**
OUTFSW=10		; OUTPUT FILE WAS SPECIFIED				;**NEW**
FOSW=20			; SELECT BY FILE OWNER ALSO
NHSW=40			; DON'T PRINT HEADER/TRAILER										;**NEW**
										;**NEW**
;	DIRECTORY OFFSETS							;**NEW**
;										;**NEW**
;MAGIC CONSTANTS TO OPEN MFD							;**NEW**
;										;**-3
	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
										;**NEW**
	WBTRY=3		; MAX # OF DIRECTORY WRITE-BACK RETRIES			;**NEW**
	.IF NDF	E$$EIS
	.MACRO	SOB RG,PLC
	DEC	RG
	BNE	PLC
	.ENDM
	.ENDC
										;**NEW**
										;**NEW**
; MACRO TO EXTEND TASK--COPIED FROM RSX-11M					;**NEW**
	.MACRO	EXTK$S	SIZE							;**NEW**
	.MCALL	DIR$								;**NEW**
	CLR	-(SP)								;**NEW**
	MOV	SIZE,-(SP)							;**NEW**
	MOV	#<3*400!89.>,-(SP)						;**NEW**
	DIR$									;**NEW**
	.ENDM	EXTK$S								;**NEW**
										;**NEW**
	.SBTTL									;**NEW**