.ENABLE SUBSTITUTION
.ASK ASM ASSEMBLE
.ASK BLD BUILD
.ASK FAST FAST
.IFT FAST .SETS TKB "FTB"
.IFF FAST .SETS TKB "TKB"
.IFF ASM .GOTO 100
.ASK LIST LISTING
.SETS LST ""
.IFT LIST .SETS LST "QIORCV/-SP"
MAC QIORCV,'LST'=[1,1]CERNLIB/ML,'<UIC>'QIORCV
.100:
.IFF BLD .GOTO 200
'TKB' QIORCV,QIORCV/-SP=QIORCV,[1,1]RSXLIB/LB,LB:[1,1]F4POTS/LB,SYSLIB/LB
.200:
