.ENABLE SUBSTITUTION
	;
	; TCR.CMD
	;
	; Assemble and taskbuild TCR for M+
	;
	.SETF MP
	.IF <SYSTEM> = 6 .SETT MP
	.SETS CLI <CLI>
	.IF CLI NE "MCR" SET MCR
	MAC TCR=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY:'<UIC>'TCR
	.OPEN TCR.BLD
.IFT MP	.DATA TcrPlus/pr:0,tcrPlus/-sp=Tcr
.IFF MP	.DATA Tcr,tcr/-sp=Tcr
	.DATA /
	.DATA task=...Tcr
	.DATA asg =ti:4
	.DATA //
	.CLOSE
	TKB @TCR.BLD
	PIP TCR.BLD;0/DE
	.IF CLI NE "MCR" SET /'CLI'=TI: