.ENABLE GLOBAL
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.; $LBUIC TRUE => SUPPORT FOR RUN $ SEARCH OF 'LIBUIC'
	.SETS LI ""
	.SETS MP ""
	.SETT $LBUIC
	.IFDF $ASM .GOTO START
	.SETF $MAP
	.SETF $LIST
	.IFNDF $TKB .SETF $TKB
	.IFNDF $ASM .SETF $ASM
	.SETF $TKB
.100:	.ASK $ASM ASSEMBLE
	.IFT $ASM .ASK $LIST LIST
	.IFT $LIST .SETS LI ",TI:"
.START:	.IFF $ASM .GOTO NOASM
	PIP INSHD.OBJ;*/DE/NM,INSPS.OBJ;*,INSROT.OBJ;*,INSFL.OBJ;*
	SLP @INSHD.SLP
	SLP @INSPS.SLP
	SLP @INSROT.SLP
	.IFT $LBUIC SLP @INSFL.SLP
	.OPEN INSHDASM.CMD;1
	.DATA INSHD'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.DATA SY:'UIC'INSHD
	.CLOSE
	.OPEN INSPSASM.CMD;1
	.DATA INSPS'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.DATA SY:'UIC'INSPS
	.CLOSE
	.OPEN INSROTASM.CMD;1
	.DATA INSROT'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.DATA SY:'UIC'INSROT
	.CLOSE
	.IFT $LBUIC .OPEN INSFLASM.CMD;1
	.IFT $LBUIC .DATA INSFL'LI'=LB0:[1,1]EXEMC/ML,[200,200]RSXMC/PA:1,-
	.IFT $LBUIC .DATA SY:'UIC'INSFL
	.IFT $LBUIC .CLOSE
	MAC @INSHDASM
	PIP INSHD.MAC;2/DE/NM
	MAC @INSPSASM
	PIP INSPS.MAC;2/DE
	MAC @INSROTASM
	PIP INSROT.MAC;2/DE/NM
	.IFT $LBUIC MAC @INSFLASM
	.IFT $LBUIC PIP INSFL.MAC;2/DE
	PIP INSHDASM.CMD;1/DE/NM,INSPSASM.CMD;1,INSROTASM.CMD;1,INSFLASM.CMD;1
.NOASM:	.IFT $TKB .GOTO START2
	.ASK $TKB TASKBUILD
	.IFT $TKB .ASK $MAP MAP
	.IFT $MAP .SETS MP ",TI:"
.START2:.IFF $TKB .GOTO .EEND
	PIP INS.TSK;*/DE/NM
	.OPEN INSBLD.CMD;1
	.IFF $LBUIC .DATA INS/PR/MM'MP'=INSROT,INS/LB:INSFSR:INSGC:INSFL
	.IFT $LBUIC .DATA INS/PR/MM'MP'=INSROT,INS/LB:INSFSR:INSGC
	.DATA INS/LB:$INSCM:INSBF:$INSLB
	.IFF $LBUIC .DATA INSHD.OBJ,INSPS
	.IFT $LBUIC.DATA INSFL.OBJ,INSHD,INSPS
	.DATA LB:[1,54]RSX11M.STB
	.DATA SY:MCR/LB
	.DATA LB:[1,1]EXELIB/LB
	.DATA /
	.DATA UNITS=3
	.DATA ASG=TI:2
	.DATA ASG=SY:1
	.DATA PAR=GEN
	.DATA STACK=64
	.DATA TASK=...INS
	.DATA PRI=100
	.DATA /
	.CLOSE
	TKB @INSBLD
	PIP INSBLD.CMD;1/DE
.EEND:	;EOF INS