.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.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 $FDT .ASK $FDT ARE YOU USING THE FULL DUPLEX TERMINAL DRIVER
	.IFT $FDT .SETS FDT "FDT"
	.IFF $FDT .SETS FDT ""
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.IFT $ASM .GOTO START
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFF $ASM .GOTO ASKTKB
	PIP SPROV'FDT'.OBJ;*/DE/NM,SDSOV'FDT'.OBJ;*,MCRDEF.OBJ;*
	SLP @SPROV'FDT'.SLP
MAC SPROV'FDT'.OBJ;1'LI'=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'UIC'SPROV'FDT'
	PIP SPROV'FDT'.MAC;2/DE
	SLP @SDSOV'FDT'.SLP
MAC SDSOV'FDT'.OBJ;1'LI'=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'UIC'SDSOV'FDT'
	PIP SDSOV'FDT'.MAC;2/DE
	SLP @SETOV'FDT'.SLP
MAC SETOV'FDT'.OBJ;1'LI'=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'UIC'SETOV'FDT'
	PIP SETOV'FDT'.MAC;2/DE
	SLP @MCRDEF.SLP
MAC MCRDEF.OBJ;1=LB:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,SY:'UIC'MCRDEF
	PIP MCRDEF.MAC;2/DE
	.IFT $FDT PIP MCRTTFD.OBJ=SPROV'FDT'.OBJ,SETOV'FDT',SDSOV'FDT'
.ASKTKB:	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP SYS.TSK;*/DE/NM
	.IFT $TKB PIP SPROV.OBJ/RE=SPROV'FDT'.OBJ
	.IFT $TKB PIP SDSOV.OBJ/RE=SDSOV'FDT'.OBJ
	.IFT $TKB PIP SETOV.OBJ/RE=SETOV'FDT'.OBJ
	.IFT $TKB .OPEN SYSBLD.CMD;1
	.IFT $TKB .DATA ; ONCE THE NEW COPIES OF SPROV.OBJ ,SETOV.OBJ
	.IFT $TKB .DATA ; SDSOV.OBJ, MCRTTFD.OBJ, AND MCRDEF.OBJ ARE PLACED IN
	.IFT $TKB .DATA ; MCR.OLB, THE MODIFIED SYS, WILL BUILD EACH SYSGEN.
	.IFT $TKB .DATA ; THIS COMMAND FILE AND NSYSBLD.ODL ARE ONLY NEEDED
	.IFT $TKB .DATA ; THE FIRST TIME AROUND.
	.IFT $TKB .DATA SYS.TSK;1/PR/-SE/MM/-FP=NSYSBLD.ODL/MP
	.IFT $TKB .DATA  UNITS=4
	.IFT $TKB .DATA  ASG=TI:1
	.IFT $TKB .DATA  ASG=CL:2
	.IFT $TKB .DATA  ASG=SY:3
	.IFT $TKB .DATA  ASG=TI:4	; ERROR MESSAGE LUN
	.IFT $TKB .DATA  PAR=GEN:0:20000
	.IFT $TKB .DATA  STACK=64
	.IFT $TKB .DATA  TASK=...MCR
	.IFT $TKB .DATA  PRI=160
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @SYSBLD
	.IFT $TKB PIP SYSBLD.CMD;1/DE
	.IFT $TKB PIP SPROV'FDT'.OBJ/RE=SPROV.OBJ
	.IFT $TKB PIP SDSOV'FDT'.OBJ/RE=SDSOV.OBJ
	.IFT $TKB PIP SETOV'FDT'.OBJ/RE=SETOV.OBJ
.EEND:	;EOF SYS