SRDINI.MAC;2=SRDINI.MAC;1
-/.IDENT/,.
	.IDENT	-6.1-		; 01-DEC-81
-/;-/
;
;  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
-/SWTABL:/,,/;BT001
-/00,ZESW/,.
	CSI$SW	00,ZDSW,SWMS3$,SET,NEG
-/M2,/
	CSI$SW	ZE,ZESW,SWMS2$,SET,NEG
-/LOOP:/
-/#SW2INI/
	MOV	#SW3INI,SWMS3$
-/CMDOK:/
-/45$:/
	BIT	#SESW,SWMSK$		; WAS /SE SWITCH SPECIFIED?
	BEQ	46$			; IF EQ NO - PROCEED
	BIC	#<WISW!WDSW>,SWMS2$	; NO IMPLICIT WILDCARDING WITH /SE
46$:
-/LST1:/
-/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
/