;
;	VERSION 5 OF SRD
;
	.NLIST
;
; SRD PRE FIX FILE
;
;	UPDATED: 1-DEC-76
;
;	UPDATED: 08-MAR-79
;
;	UPDATED: 05-AUG-79
;
;	UPDATED: 19-NOV-79	H.R.TUMBLIN, DUMC
;
; CONDITIONALS DEPENDING ON THE SYSTEM FOR WHICH THIS IS
; BEING ASSEMBLED...
;
E$$IS	=1 ;DEFINE THIS FOR EIS SYSTEMS
I$$AS	=1 ;DEFINE THIS SYMBOL FOR IAS
WILD$	=1 ;DEFINE TO APPEND WILD CARD FILE NAME
;			;MATCHING CHARACTERS TO FILE NAME FIELD FOR AN IMPLIED
;			;SELECTION
;
	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
;
	DIRB	= 0		; DIRECTORY TOO BIG!
	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
	PRIV	= 25		; PRIVILEGE 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
	PUSW	= 20000		; PURGE THE FILES SELCTED
	SPSW	= 10000		; SPOOL FILE
	HVSW	= 4000		; SELECT HIGHER VERSION
	NESW	= 2000		; NEGATE SELECTION DECISION
	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
;
;	2ND SWITCH MASK WORD DEFINITIONS
;
	BFSW	= 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
;
; 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
 
	.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