	.ENABLE SUBSTITUTION
	.SETS S$PROC <FILSPC>
	.SETS S$MCR ""
	.IF <CLI> <> "MCR"	.SETS S$MCR "MCR "
;
;		'S$PROC'
;
;	Rebuild LBC -- Logical Block Copy.
;
	.TRANSLATE MP
	.SETS S$OMP <EXSTRI>
	.ASK L$LIST Do you want to generate listings and map
	.ASK L$OBJ Do you want to retain the objects
	;
	.SETS S$OBJ ""
	.IFT L$LIST	'S$MCR'ASN SY:=MP:
	.IFF L$LIST	'S$MCR'ASN NL:=MP:
	.GOSUB F77 CMDSQZ
	.GOSUB F77 JASK
	.GOSUB F77 JSWAP
	.GOSUB F77 LASK
	.GOSUB F77 LBC
	.GOSUB F77 LBCCOP
	.GOSUB F77 LBCERR
	.GOSUB F77 LBCPSR
	.GOSUB F77 MOVW
	.GOSUB MAC ERRORS
	'S$MCR'TKB @LBCBLD
	'S$MCR'ASN =MP:
	.TRANSLATE MP:
	.IF <EXSTRI> <> S$OMP	'S$MCR'ASN 'S$OMP'=MP:
	.SETS S$OBJ S$OBJ[2:*]
	.IFT L$OBJ	.GOTO KEEPOB
.DELOB:
	.PARSE S$OBJ "," S$FIL S$OBJ
	'S$MCR'PIP 'S$FIL'.OBJ;*/DE/NM
	.IF S$OBJ <> ""	.GOTO DELOB
.KEEPOB:.;
	.EXIT
.F77:
	.SETS COMMAN "'COMMAN%C'"
	.SETS COMMAN "'COMMAN%C'"
	.IFT L$LIST	'S$MCR'F77 'COMMAN','COMMAN'/-SP = 'COMMAN'
	.IFF L$LIST	'S$MCR'F77 'COMMAN' = 'COMMAN'
	.SETS S$OBJ S$OBJ+","+COMMAN
	.RETURN
.MAC:
	.SETS COMMAN "'COMMAN%C'"
	.SETS COMMAN "'COMMAN%C'"
	.IFT L$LIST	'S$MCR'MAC 'COMMAN','COMMAN'/-SP = 'COMMAN'
	.IFF L$LIST	'S$MCR'MAC 'COMMAN' = 'COMMAN'
	.SETS S$OBJ S$OBJ+","+COMMAN
	.RETURN
