.; Commands to assemble file and replace module in library		810724
.;
.; Syntax:	@NEW <module> [C]
.;
.;	where	<module> = file name
.;
.;		C	 = signal to compress library after
.;			   replacement

	.ENABLE SUBSTITUTION

!	Module 'P1'

	.ENABLE	QUIET

.; Assemble module

	MAC 'P1'=RNPRE/PA:1,'P1'
	.IF	<EXSTAT> NE 1	.GOTO 10

.; Replace in library

	LBR RNO.OLB/RP='P1'.OBJ
	PIP 'P1'.OBJ;*/DE/NM

	.IF P2 <> "C"	.GOTO 10

.; Compress library

	LBR RNO/CO:50.=RNO.OLB
	PIP RNO.OLB/PU
	PIP *.*;1=RNO.OLB;2/RE

.10:	.EXIT	<EXSTAT>