SRDINI.MAC;2/AU=SRDINI.MAC;1
\
-/.IDENT/,.
	.IDENT	-6.3-		; 01-JUN-83
-/;-/
;
;  MODIFICATIONS:
;
;	BT001 - 01-DEC-81
;		CORRECT CHECK FOR /WB TO SEE IF WE SHOULD SORT THE DIRECTORY;
;		ADD /ZE SWITCH;
;		CHANGE SYMBOL FOR /00 SWITCH VALUE TO ZDSW (FROM ZESW) AND MOVE
;		     TO SWMS3$;
;		TURN OFF /WI AND /WD IF /SE SPECIFIED
;
;	RBD001	13-Jul-82
;		Add exit with status support for '11M
;		Delete garbage at the end of the file
;
;	BT002 - 18-May-83
;		Merged in /SM, /HD, and /BK switches from Glen Everhart's
;		  Fall 1982 version;
;		Do not allow /DE without file name or /SE specified;
;		When file name on command line has no ".", append ".*;*"
;		  only when original search string ended in "*" (e.g.,
;		  /SE:*ABC*); otherwise, append ".;*", to prevent deletion
;		  of all files with that name and any type (e.g., when
;		  GHI/DE specified)
;
;	CEF001 - 01-June-83
;		CREATE I (RO) AND D (RW) PSECTS
;
;
;
%
-/SYSTEM MACRO CALLS/,,/;CEF001/
;
	.PSECT	SRDATA,D,RW,LCL,REL,CON
;
-/EXRG$S/,,/;RBD001/
	.MCALL	EXST$S
-/SWTABL:/,,/;BT001/
-/00,ZESW/,.
	CSI$SW	00,ZDSW,SWMS3$,SET,NEG
-/M2,/
	CSI$SW	ZE,ZESW,SWMS2$,SET,NEG
-,,/;BT002/
	CSI$SW	BK,BKSW,SWMS3$,SET,NEG
	CSI$SW	SM,SMSW,SWMS3$,SET,NEG
	CSI$SW	HD,HDSW,SWMS3$,SET,NEG
-/DFNB:/,,/;CEF001/
;
	.PAGE
	.SBTTL	SRDINI - CODE
	.PSECT	SRDCOD,I,RO,REL,CON,LCL
-/LOOP:/,,/;BT001/
-/#SW2INI/
	MOV	#SW3INI,SWMS3$
-/EXIT$S/,.,/;RBD001/
	.IF DF R$$11M
	EXST$S	X$STAT			; TRY TO EXIT WITH STATUS
	.ENDC
	EXIT$S				; EXIT
-/CMDOK:/,,/;BT001/
-/45$:/
	BIT	#SESW,SWMSK$		; WAS /SE SWITCH SPECIFIED?
	BEQ	46$			; IF EQ NO - PROCEED
	BIC	#<WISW!WDSW>,SWMS2$	; NO IMPLICIT WILDCARDING WITH /SE
46$:
-/#CS.NMF/+1,.,/;BT002/
	BNE	47$		; BR IF YES
	BIT	#SESW,SWMSK$	; WAS SELECT SWITCH SPECIFIED?
	BNE	SETUP		; BR IF YES
	BIT	#DESW,SWMSK$	; WAS /DE SPECIFIED WITHOUT /SE OR NAME FIELD?
	BEQ	SETUP		; BR IF NO
	BR	CS1ERR		; SIGNAL ERROR CONDITON - CALL IT SYNTAX ERROR
47$:
-/SETUP:/
-/10$:/
-/MOVB...#'./
	CMPB	-2(R0),#'*	; DID ORIGINAL SEARCH STRING END IN '*'?
	BNE	20$		; IF NE NO - DO NOT USE WILDCARD TYPE
-/20$:/
-/MOVB...#'*/
	CLRB	(R0)+		; INSERT TERMINATING NULL
-/50$:/
-/INC...R1/,/60$:/
	INC	R1		;SHOVE UP ONE TO ALLOW ROOM FOR DOT
60$:	MOVB	-(R0),-(R1)	;SHIFT THE BYTES UP ONE
-/MOVB...#'*/,.
-/LST1:/,,/;BT001/
-/30$:/
-/BIC...WBSW/,.+1
	BIC	#^C<LISW!FUSW!MISW!SVSW>,R1
	BNE	35$
	BIT	#WBSW,SWMS2$	; /WB SPECIFIED?
	BNE	35$		; IF NE YES, DO NOT TURN OFF SORT
-/.END/+1,/.END...START/
/