.nlist
;
;SRD PREFIX FILE
;
	EFN1=1
	.GLOBL	Q.IOPL
;
;ERROR REQUEST CODES
;
	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
;
;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
	HDSW	= 40000		;LINE HEADER NOT PRINTED
	FLSW	= 20000		;FILES LISTED
	SPSW	= 10000		;SPOOL THE LISTING
	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
 
;	DEFINE THE FOLLOWING SYMBOL TO CONTAIN THE DEFAULT SWITCH
;	SETTINGS.

	DEFSW$	= WBSW+LISW	; +02 DEFAULT SWITCH SETTINGS
;
;	DIRECTORY OFFSETS
;
;	MAGIC CONSTANTS TO OPEN MFD
;
	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
	.list