	.ENABLE SUBSTITUTION
	.SETS CLI <CLI>
	.IF <CLI> = "MCR" .GOTO MAC
SET /MCR=TI:
	.IF <EXSTAT> <> <SUCCES> .EXIT <EXSTAT>
.MAC:	.SETN STATUS <SUCCES>
	.SETS ODT ""
	.SETS CRFNLS "/CR:SYM:MAC:REG:PST"
	.IF P1 <> "DEBUG" .GOTO NODBG
	.SETS ODT "/DA"
	.SETS CRFNLS "/CR:SYM/NL:BEX:TOC:SYM:CND:MD"
.NODBG:	.OPEN FDC.ASM;1
	.DATA FDC;1,FDC;1/-SP'CRFNLS'=LB:[1,1]EXEMC/ML,SY:'<UIC>'FDC
	.CLOSE
MAC @FDC.ASM
	.IF <EXSTAT> <> <SUCCES> .GOTO CLI$
	.OPEN FDC.BLD;1
	.DATA FDC;1/CP/-FP'ODT',FDC;1/CR/-SP/-SH=FDC
	.DATA /
	.DATA UNITS=3
	.DATA TASK=...FDC
	.DATA STACK=200
	.TESTPARTITION FCSRES
	.IF <EXSTRI> <> "NSP" .DATA LIBR=FCSRES:RO
	.CLOSE
TKB @FDC.BLD
.CLI$:	.SETN STATUS <EXSTAT>
	.TESTFILE FDC.OBJ
	.IF <FILERR> <> <SUCCES> .GOTO NOOBJ
PIP FDC.OBJ;*/DE
	.IF STATUS = <SUCCES> .SETN STATUS <EXSTAT>
.NOOBJ:	.IF <CLI> = CLI .EXIT STATUS
SET /CLI=TI:'CLI'
	.IF STATUS = <SUCCES> .SETN STATUS <EXSTAT>
	.EXIT STATUS
