SRDINI.MAC;2/AU:72.=SRDINI.MAC;1 \ -/.IDENT/,. .IDENT -6.2- ; 13-JUL-82 -/;-/ ; ; 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 ; % -/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 -/LOOP:/ -/#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 #,SWMS2$ ; NO IMPLICIT WILDCARDING WITH /SE 46$: -/LST1:/ -/30$:/ -/BIC...WBSW/,.+1 BIC #^C,R1 BNE 35$ BIT #WBSW,SWMS2$ ; /WB SPECIFIED? BNE 35$ ; IF NE YES, DO NOT TURN OFF SORT -/.END/+1,/.END...START/ /