SRDATA.MAC;2/AU=SRDATA.MAC;1
\
-/.IDENT/,.+1
	.IDENT	-6.3-		; 01-JUN-83
	.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
;
;	BT002 - 18-May-83
;		Merged in /SM, /HD, and /BK switches from Glen Everhart's
;		  Fall 1982 version
;
;	CEF001 -- 01-June-83
;		ADD .PSECTS for /MU
;
%
-/.GLOBL/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/	FCSBT$/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/	FDOF$L/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/	CSI$/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/	FSRSZ$	1/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/FDOP$A/,,/;CEF001/
;
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/FDOP$A/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/LSTQIO::/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/LSTDFN::/,,/;RBD001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
;
; Exit status for systems which support EXST$x
;
X$STAT::.BLKW	1		; EXIT STATUS

-/DIRBF$::/,,/;CEF001/
	.PSECT	$DATA,RW,D,LCL,REL,CON
-/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::/,.,/;BT002/
SRDVER::.ASCII	<12><15>"SRD -- Version WG-6.3, 01-June-83"<12><15>
/