.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.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 PIP INSHD.OBJ;*/DE
	.IFT $ASM .OPEN INSHDASM.CMD;1
	.IFT $ASM .DATA INSHD'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $ASM .DATA SY:'UIC'INSHD
	.IFT $ASM .CLOSE
	.IFT $ASM MAC @INSHDASM
	.IFT $ASM PIP INSHDASM.CMD;1/DE
	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFT $TKB PIP INS.TSK;*/DE
	.IFT $TKB .OPEN INSBLD.CMD;1
	.IFT $TKB .DATA INS/PR/MM'MP'=INS/LB:INSROT:INSFSR:INSGC:INSFL:$INSPS
	.IFT $TKB .DATA INS/LB:$INSCM:INSBF:$INSLB
	.IFT $TKB .DATA INSHD.OBJ
	.IFT $TKB .DATA LB:[1,54]RSX11M.STB
	.IFT $TKB .DATA SY:MCR/LB
	.IFT $TKB .DATA LB:[1,1]EXELIB/LB
	.IFT $TKB .DATA /
	.IFT $TKB .DATA UNITS=3
	.IFT $TKB .DATA ASG=TI:2
	.IFT $TKB .DATA ASG=SY:1
	.IFT $TKB .DATA PAR=GEN:0:40000
	.IFT $TKB .DATA STACK=64
	.IFT $TKB .DATA TASK=...INS
	.IFT $TKB .DATA PRI=100
	.IFT $TKB .DATA /
	.IFT $TKB .CLOSE
	.IFT $TKB TKB @INSBLD
	.IFT $TKB PIP INSBLD.CMD;1/DE
.END:	;EOF INS