SRDROT.MAC;2/AU=SRDROT.MAC;1 \ -/.IDENT/,. .IDENT -6.3- ; 01-JUN-83 -/England./ -/flexible/ ; ; VERSION 6.1 - 01-DEC-81 ; ; Bob Turkelson, NASA/GSFC, Code 935, Greenbelt, MD 20771 ; ; Corrected bug which prevented /WB/-LI from working properly; ; Ignore /WI and /WD implicit wild-carding whenever the /SE ; switch is specified; ; Added /ZE switch to list zero used block files; ; When header attributes show 0 blocks allocated, calculate value ; from retrieval pointers, and include in directory total ; ; ; VERSION 6.2 - 13-JUL-82 (;RBD001) ; ; Bob Denny ; Creative System Design Co. ; 3452 E. Foothill Blvd. Suite 601 ; Pasadena, CA 91107 ; ; General update for RSX-11M Version 4.0: ; Lower case messages ; Conditional spawn to CLI... if multi CLI support ; Many small mods to SRD.CMD build command file ; Support for Exit with Status (EXST$x) ; New ODL for V4.0 PLAS FCSRES ; ; ; VERSION 6.3 - 01-Jun-83 (;BT002 and ;CEF001) ; ; Bob Turkelson ; ; 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) ; Correct bug which caused version number selection to fail ; to list the proper files in many cases. ; ; Carl E. Friedberg ; ; Have flattened out for MPLUS; also will set PSECT attributes ; here ; .PSECT SRDCOD,I,RO,CON,REL,LCL ; % -/FINIT$/+2 -/FINIT$/,,/;RBD001/ MOV #EX$SUC,X$STAT ; INITIALLY, ASSUME SUCCESS /