.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS MCR ""
	.IF <CLI> NE "MCR" .SETS MCR "MCR "
	.SETS UIC <UIC>
	.IFDF <DIRECT> .IF <DIRECT> NE "[]" .SETS UIC <DIRECT> !Named directory
	.SETS LI ""
	.SETS MP ""
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.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 'mcr'PIP FRAG.OBJ;*/DE
	.IFT $ASM .OPEN FRAGASM.CMD
	.IFT $ASM .DATA FRAG'LI'=LB:[1,1]EXEMC/ML,[11,10]RSXMC/PA:1,SY:'uic'FRAG
	.IFT $ASM .CLOSE
	.IFT $ASM 'mcr'MAC @FRAGASM
	.IFT $ASM 'mcr'PIP FRAGASM.CMD;*/DE
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB 'mcr'PIP FRAG.TSK;*/DE
	.IFT $TKB .OPEN FRAGBLD.CMD
	.IFT $TKB .DATA FRAG/MM'MP'=FRAG,LB:[1,24]MCR/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA PAR=GEN:0:40000
	.IFT $TKB .DATA ; LUN2 IS USED FOR STATISTICS OUTPUT
	.IFT $TKB .DATA ASG=TI:2
	.IFT $TKB .DATA ; LUN 5 IS USED FOR ERROR MESSAGE OUTPUT
	.IFT $TKB .DATA ASG=TI:5
	.IFT $TKB .DATA STACK=50
	.IFT $TKB .DATA TASK=...FRG
	.IFT $TKB .DATA PRI=55
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB 'mcr'TKB @FRAGBLD
	.IFT $TKB 'mcr'PIP FRAGBLD.CMD;*/DE
.END:	;EOF FRAG