.;  COMMAND FILE TO BUILD A PROGRAM WHICH WILL DUMP THE CONTENTS
.;  OF THE SHARED COMMON CDTRAC.  THIS PROGRAM NEEDS TO BE
.;  ASSEMBLED ONLY ONCE, BUT MUST BE TASK BUILT SEPARATELY
.;  FOR EACH CD: UNIT, E.G., CD0DMP, CD1DMP, ETC.
;
;  BUILD CDDUMP PROGRAM TO ANALYSE CONTENTS OF CDTRAC REGION
;
.ENABLE SUBSTITUTION
.SETS L ""
.SETS MACLIB ""
.SETS LIB ""
.SETF LIST
.ASK ASM ASSEMBLE
.IFT ASM .ASK LIST LISTING
.IFT LIST .SETS L "CDDUMP/-SP"
.IFT ASM .ASKS MACLIB CERNLIB.MLB DISK AND UIC [DEFAULT SY:[77,100]]
.IFT ASM .IF MACLIB EQ "" .SETS MACLIB "SY:[77,100]"
.ASK BUILD BUILD
.IFF BUILD .GOTO 3
.ASKS LIB RSXLIB DISK AND UIC [DEFAULT SY:[77,100]]
.IF LIB EQ "" .SETS LIB "SY:[77,100]"
.ASKS NAME TASK FILE NAME FOR DUMP PROGRAM [DEFAULT CDDUMP]
.IF NAME EQ "" .SETS NAME "CDDUMP"
.ASKS INSNAM INSTALLED NAME FOR DUMP PROGRAM [DEFAULT ...CDD]
.IF INSNAM EQ "" .SETS INSNAM "...CDD"
.ASKN UNIT CD UNIT NUMBER TO BUILD FOR
.3:
.IFF ASM .GOTO 10
.OPEN CDDUMP.ASM
.ENABLE DATA
CDDUMP,'L'=LB:[11,10]RSXMC,[1,1]EXEMC/ML,'MACLIB'CERNLIB/ML,SY:'<UIC>'CDPREF,CDDUMP
.DISABLE DATA
.CLOSE
MAC @CDDUMP.ASM
.10:
.IFF BUILD .GOTO 20
.OPEN CDDUMP.TKB
.ENABLE DATA
'NAME'/CP/PR/-FP,'NAME'/-SP=CDDUMP
'LIB'RSXLIB/LB
LB:[1,54]RSX11M.STB/SS
LB:[1,1]EXELIB/LB/SS
/
TASK='INSNAM'
PRI=110
GBLDEF=UNTNUM:'UNIT'
UNITS=2
ASG=TI:1
STACK=32
WNDWS=1
/
.DISABLE DATA
.CLOSE
TKB @CDDUMP.TKB
.20:
PIP CDDUMP.ASM;*/DE
PIP CDDUMP.TKB;*/DE