.ENABLE SUBSTITUTION
.SETS FC ""
.SETS FCS ";"
.SETS LS "NL"
.ASKS LIS LISTING/MAP DEVICE
.IF LIS <> "" .SETS LS LIS[1:3]
.ASK ASM ASSEMBLY
.ASK BLD BUILD
.IFT BLD .ASK FCSRES BUILD WITH FCSRES
.IFT FCSRES .SETS FC "FCS
.IFT FCSRES .SETS FCS "LIBR=FCSRES:RO"
.IFF ASM .GOTO 5
PIP [176,24]CLM.OBJ;*/DE/NM
.IF LS <> "NL" PIP 'LS':[176,34]CLM.LST;*/DE/NM
.OPEN CLMASM.CMD
.ENABLE DATA
[176,24]CLM,'LS':[176,34]CLM/-SP=SY:[176,10]COMPLM
.DISABLE DATA
.CLOSE
MAC @CLMASM
PIP CLMASM.CMD;*/DE
.5:
.IFF BLD .GOTO 10
PIP [176,54]CLM'FC'.TSK;*/DE/NM
.IF LS <> "NL" PIP 'LS':[176,34]CLM'FC'.MAP;*/DE/NM
.OPEN CLMBLD.CMD
.ENABLE DATA
[176,54]CLM'FC','LS':[176,34]CLM'FC'/-SP=SY:[176,24]CLM
/
UNITS=9
ASG=SY0:1:2:3:4:7:8,TI0:5:9,CL0:6
TASK=...CLM
'FCS'
//
DISABLE DATA
.CLOSE
TKB @CLMBLD
PIP CLMBLD.CMD;*/DE/NM
.IFINS CLM REM ...CLM
.IFNINS CLM INS [176,54]CLM'FC'/TASK=...CLM
.ASK MOV MOV CLM TO DM0:[1,54]
.IFT MOV PIP DM0:[1,54]/NV/CO=[176,54]CLM'FC'.TSK
.10:
.ASK ANS PRINT LISTINGS/MAPS
.IFF ANS .EXIT
PRI CLM/NOFL=[176,34]CLM.LST,CLM'FC'.MAP
.EXIT
