SRDATA.MAC;2/AU:72.=SRDATA.MAC;1
\
-/.IDENT/,.+1
	.IDENT	-6.2-		; 13-JUL-82
	.LIST
	.ENABL	LC
-/;-/
;
;  MODIFICATIONS:
;
;	BT001 - 01-DEC-81
;		ADD 3RD SWITCH WORD
;
;	RBD001	13-Jul-82
;		Lower case messages
;		Conditionally assemble help spawn to CLI... for
;		RSX-11M V4.0, to spawn to appropriate CLI in use.
;		Add support for Exit with Status
;		Update version message
;
%
-/LSTDFN::/,,/;RBD001
;
; Exit status for systems which support EXST$x
;
X$STAT::.BLKW	1		; EXIT STATUS

-/SWMS2$::/,,/;BT001
SWMS3$::.BLKW	1		; 3RD SWITCH WORD HERE
-/HLSPWN::/,.,/;RBD001/
	.IF DF R$$MV4
HLSPWN:: SPWN$	CLI...,,,,,1,,,HELCMD,HELCML
	.IFF
HLSPWN:: SPWN$	MCR...,,,,,1,,,HELCMD,HELCML
	.ENDC
-/FILMSG::/,.
FILMSG::	.ASCII	' XXXXX. Files selected     '
-/FTMSG::/,.
FTMSG::		.ASCII	' XXXXX. Files total'
-/SBMSG::/,.
SBMSG::	.ASCII	' Selected blocks used/allocated : '
-/SRDVER::/,.
SRDVER::.ASCII	<12><15>"SRD -- Version 6.2, 13-Jul-82"<12><15>
/