.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.TESTFILE MCR.OLB
	.IF <FILERR> NE 1 ; MCR.OLB IS MISSING FROM THIS UIC, EXITING.
	.IF <FILERR> NE 1 .EXIT
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START: .IFF $ASM .GOTO BUILD
	PIP MCRDIS.OBJ;*/DE/NM
	SLP @MCRDIS.SLP
	MAC MCRDIS.OBJ;1=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'UIC'MCRDIS
	PIP MCRDIS.MAC;2/DE
.BUILD:
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFF $TKB .GOTO EEND
	.ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:PIP MCRMU.TSK;*/DE/NM
	.OPEN MCRBLD.CMD;1
	.DATA MCRMU.TSK;1/PR/MM/AL/-SE/-FP'MP'=NMCRMUBLD.ODL/MP
	.DATA UNITS=4
	.DATA ASG=TI:1
	.DATA ASG=TI:4		; ERROR MESSAGE LUN
	.DATA PAR=SYSPAR:0:10000
	.DATA STACK=64
	.DATA TASK=MCR...
	.DATA PRI=160
	.DATA //
	.CLOSE
	 TKB @MCRBLD
	 PIP MCRBLD.CMD;1/DE
.EEND:	;EOF SYS