.ENABLE	LC
;
;	VERSION 6 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
;
	TTYLUN	= 4		; LUN FOR TERMINAL I/O
	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
;
; 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		; Include [0,0] in [*,*]
	ATSW	= 1000		; Attach output device if terminal
	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
;
; FLAG BIT DEFINITIONS
;
	HDFL	= 100000	; LINE HEADER NOT PRINTED
	FLFL	= 200		; FILES LISTED
	OUTFSW	= 10		; Output filespec given
;
; 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.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