.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.SETS LI ""
	.SETS MP ""
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.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
	.SETF $TKB
	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFT $ASM PIP SPROV"FDT".OBJ;*/DE
	.IFT $ASM SLP @SPROV"FDT".SLP
	.IFT $ASM .OPEN SPROV"FDT"ASM.CMD;1
	.IFT $ASM .DATA SPROV"FDT"'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'SPROV"FDT"
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @SPROV"FDT"ASM
	.IFT $ASM PIP SPROV"FDT".MAC;2/DE
	.IFT $ASM PIP SPROV"FDT"ASM.CMD;1/DE
	.IFT $ASM PIP SPROV.OBJ/RE=SPROV"FDT".OBJ
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP SYS.TSK;*/DE
	.IFT $TKB .OPEN SYSBLD.CMD;1
	.IFT $TKB .DATA ; ONCE THE NEW COPY OF SPROV"FDT".OBJ IS 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/MM/-FP=NSYSBLD.ODL/MP
	.IFT $TKB .DATA  UNITS=3
	.IFT $TKB .DATA  ASG=TI:1
	.IFT $TKB .DATA  ASG=CL:2
	.IFT $TKB .DATA  ASG=SY:3
	.IFT $TKB .DATA  PAR=GEN:0:10000
	.IFT $TKB .DATA  STACK=64
	.IFT $TKB .DATA  TASK=...SYS
	.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
.EEND:	;EOF SYS