.ENABLE SUBSTITUTION
.SETS LS "NL"
.ASKS LIS LISTING/MAP DEVICE (DEFAULT NL:)
.IF LIS <> "" .SETS LS LIS
.ASKS A ASSEMBLIES? [Y/N/S]:
.IF A EQ "N" .GOTO 20
.IF A EQ "S" .GOTO 10
PIP [154,24]*.OBJ;*/DE,[154,34]*.LST;*
.SETT S1
.SETT S2
.SETT S3
.SETT S4
.SETT S5
.SETT S6
.SETT S7
.SETT S8
.SETT S9
.10:
.IFNDF S1 .ASK S1 ASSEMBLE CCMDAT
.IFT S1 MAC [154,24]CCMDAT,'LS':[154,34]CCMDAT/CRF/-SP=[154,10]CCMCOM,CCMDAT
.IFNDF S2 .ASK S2 ASSEMBLE CCMTIO
.IFT S2 MAC [154,24]CCMTIO,'LS':[154,34]CCMTIO/CRF/-SP=[154,10]CCMCOM,CCMTIO
.IFNDF S3 .ASK S3 ASSEMBLE CCMINI
.IFT S3 MAC [154,24]CCMINI,'LS':[154,34]CCMINI/CRF/-SP=[154,10]CCMCOM,CCMINI
.IFNDF S4 .ASK S4 ASSEMBLE CCMLST
.IFT S4 MAC [154,24]CCMLST,'LS':[154,34]CCMLST/CRF/-SP=[154,10]CCMCOM,CCMLST
.IFNDF S5 .ASK S5 ASSEMBLE CCMCMP
.IFT S5 MAC [154,24]CCMCMP,'LS':[154,34]CCMCMP/CRF/-SP=[154,10]CCMCOM,CCMCMP
.IFNDF S6 .ASK S6 ASSEMBLE CCMDIR
.IFT S6 MAC [154,24]CCMDIR,'LS':[154,34]CCMDIR/CRF/-SP=[154,10]CCMCOM,CCMDIR
.IFNDF S7 .ASK S7 ASSEMBLE CCMDTE
.IFT S7 MAC [154,24]CCMDTE,'LS':[154,34]CCMDTE/CRF/-SP=[154,10]CCMCOM,CCMDTE
.IFNDF S8 .ASK S8 ASSEMBLE CCMIND
.IFT S8 MAC [154,24]CCMIND,'LS':[154,34]CCMIND/CRF/-SP=[154,10]CCMCOM,CCMIND
.IFNDF S9 .ASK S9 ASSEMBLE CCMREG
.IFT S9 MAC [154,24]CCMREG,'LS':[154,34]CCMREG/CRF/-SP=[154,10]CCMCOM,CCMREG
.20:
.ASK ANS NORMAL BUILD
.IFT ANS PIP [154,54]CCM.TSK;*/DE
.OPEN CCMBLD.CMD
.ENABLE DATA
[154,54]CCM,'LS':[154,34]CCM/-SP=[154,24]CCM/MP
TASK=...CCM
WNDWS=2
UNITS=5
ASG=TI0:1:5,SY0:2:3:4
GBLDEF=YR:0		;1 UNTIL LNK IS FIXED; THEN 0
//
.DISABLE DATA
.CLOSE
.OPEN CCM.ODL
.ENABLE DATA
;
;	OVERLAY DESCRIPTOR FOR CCM
;
.ROOT	*DATA-*TIO-*(PROC,LIST,CMP),*COTREE
	.NAME	NULL
COTREE:	.FCTR	NULL-*(REGION,*(DIR-DATE))
DATA:	.FCTR	[154,24]CCMDAT.OBJ
TIO:	.FCTR	[154,24]CCMTIO.OBJ
REGION:	.FCTR	[154,24]CCMREG.OBJ
INIT:	.FCTR	[154,24]CCMINI.OBJ
IND:	.FCTR	[154,24]CCMIND.OBJ
LIST:	.FCTR	[154,24]CCMLST.OBJ
CMP:	.FCTR	[154,24]CCMCMP.OBJ
DIR:	.FCTR	[154,24]CCMDIR.OBJ
DATE:	.FCTR	[154,24]CCMDTE.OBJ
PROC:	.FCTR	*(INIT,IND)
	.END
/
.DISABLE DATA
.CLOSE
.IFT ANS TKB @CCMBLD
PIP CCLBLD.CMD;*/DE/NM
.ASK ANS INSTALL
.IFF ANS .GOTO 25
.IFINS ...CCM REM ...CCM
INS [154,54]CCM
.25:
.ASK ANS FCSRES BUILD
.IFT ANS PIP [154,54]CCMFCS.TSK;*/DE
.OPEN CCMBLD.CMD
.ENABLE DATA
[154,54]CCMFCS,'LS':[154,34]CCMFCS/-SP=[154,24]CCM/MP
TASK=...CCM
WNDWS=2
UNITS=5
ASG=TI0:1:5,SY0:2:3:4
GBLDEF=YR:0		;1 UNTIL LNK IS FIXED; THEN 0
LIBR=FCSRES:RO:5
//
.DISABLE DATA
.CLOSE
.IFT ANS TKB @CCMBLD
PIP CCMBLD.CMD;*/DE/NM,CCM.ODL;*
.ASK ANS INSTALL
.IFF ANS .GOTO 30
.IFINS ...CCM REM ...CCM
INS [154,54]CCMFCS
.30:
.ASK ANS PRINT LISTINGS
.IFF ANS .EXIT
.50:
.IFACT CRF... .GOTO 50
PRI CCM=SY:[154,10]CCMCOM.MAC,'LS':[154.34]*.LST,*.MAP
.EXIT
