$!      CDPACK.COM
$!
$!      Command file to create the RSX CDPACK object library on the VAX
$!      Assembles all modules, then puts them into the library CDPACK.OLB
$!
$!      Authors :
$!
$!	Vicky White, David M. Berg
$!
$!      Environment :
$!
$!	VAX/VMS  DCL
$!
$!      Version :
$!
$!            V1.0  13-Jun-1984
$!            V2.0  22-Jun-1984
$!	      V2.1   8-Aug-1984
$!
$!      Format :
$!
$!	     @CDPACK
$!
$!      Input :
$!
$!	     Assumes the library CD$LIB:CDPACK.OLB exists
$!
$!      Output :
$!
$!            None
$!
$!      Variables :
$!
$!            None
$!
$!      Temporary files :
$!
$!            None
$!
$!      Files called :
$!
$!            None
$!
$!      Privileges required :
$!
$!            None
$!
$!      Related files :
$!
$!            None
$!
$!      Modifications :
$!
$!            Author/Date	Modification
$!            -----------	------------
$!            DB / 22JUN84	Rewrote entire assembly section
$!            			Added conditional cross-reference
$!                              Added listing of prefix and macro files
$!	      DB / 8AUG84	Added modules CDKILL,CDREJ,CDSTOP,CDWAKE
$!
$ start:
$! CDPACK SUBROUTINE ASSEMBLY
$ INQUIRE CDASM "ASSEMBLE"
$ IF CDASM.NE."Y" THEN GOTO 700
$ INQUIRE LIST "LISTINGS" 
$ IF LIST.NE."Y" THEN GOTO 30
$ inquire cref "CROSS REFERENCE"
$ if cref.eq."Y" then cref = "/cr"
$ inquire macl "LISTING OF CDPREF AND CDDRV"
$ if macl.ne."Y" then goto 30
$ mcr mac ,cdmacl'cref'/nl:bin/-sp=cdmacl,cdpref,cddrv,end
$ 30:
$ INQUIRE ASGN "ASSEMBLE CDASGN MODULE"
$ INQUIRE CMPL "ASSEMBLE CDCMPL MODULE"
$ INQUIRE ERRM "ASSEMBLE CDERRM MODULE"
$ INQUIRE ERRN "ASSEMBLE CDERRN MODULE"
$ INQUIRE ERRT "ASSEMBLE CDERRT MODULE"
$ INQUIRE KILL "ASSEMBLE CDKILL MODULE"
$ INQUIRE MODE "ASSEMBLE CDMODE MODULE"
$ INQUIRE PACK "ASSEMBLE CDPACK MODULE"
$ INQUIRE REJ  "ASSEMBLE CDREJ  MODULE"
$ INQUIRE STAT "ASSEMBLE CDSTAT MODULE"
$ INQUIRE STOP "ASSEMBLE CDSTOP MODULE"
$ INQUIRE UTIL "ASSEMBLE CDUTIL MODULE"
$ INQUIRE WAIT "ASSEMBLE CDWAIT MODULE"
$ INQUIRE WAKE "ASSEMBLE CDWAKE MODULE"
$ 100:
$ IF ASGN.NE."Y" THEN GOTO 110
$ IF LIST.NE."Y" THEN GOTO 105
$ MCR MAC CDASGN,CDASGN/-SP'CREF'=CDRSX,CDPREF,CDASGN
$ GOTO 110
$ 105:
$ MCR MAC CDASGN=CDRSX,CDPREF,CDASGN
$ 110:
$ IF CMPL.NE."Y" THEN GOTO 120
$ IF LIST.NE."Y" THEN GOTO 115
$ MCR MAC CDCMPL,CDCMPL/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDCMPL
$ GOTO 120
$ 115:
$ MCR MAC CDCMPL=CDRSX,CDPREF,CDDRV,CDCMPL
$ 120:
$ IF ERRM.NE."Y" THEN GOTO 130
$ IF LIST.NE."Y" THEN GOTO 125
$ MCR MAC CDERRM,CDERRM/-SP'CREF'=CDRSX,CDPREF,CDERRM
$ GOTO 130
$ 125:
$ MCR MAC CDERRM=CDRSX,CDPREF,CDERRM
$ 130:
$ IF ERRN.NE."Y" THEN GOTO 140
$ IF LIST.NE."Y" THEN GOTO 135
$ MCR MAC CDERRN,CDERRN/-SP'CREF'=CDRSX,CDPREF,CDERRN
$ GOTO 140
$ 135:
$ MCR MAC CDERRN=CDRSX,CDPREF,CDERRN
$ 140:
$ IF ERRT.NE."Y" THEN GOTO 150
$ IF LIST.NE."Y" THEN GOTO 145
$ MCR MAC CDERRT,CDERRT/-SP'CREF'=CDRSX,CDPREF,CDERRT
$ GOTO 150
$ 145:
$ MCR MAC CDERRT=CDRSX,CDPREF,CDERRT
$ 150:
$ IF KILL.NE."Y" THEN GOTO 1510
$ IF LIST.NE."Y" THEN GOTO 1505
$ MCR MAC CDKILL,CDKILL/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDKILL
$ GOTO 1510
$ 1505:
$ MCR MAC CDKILL=CDRSX,CDPREF,CDDRV,CDKILL
$ 1510:
$ IF MODE.NE."Y" THEN GOTO 160
$ IF LIST.NE."Y" THEN GOTO 155
$ MCR MAC CDMODE,CDMODE/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDMODE
$ GOTO 160
$ 155:
$ MCR MAC CDMODE=CDRSX,CDPREF,CDDRV,CDMODE
$ 160:
$ IF PACK.NE."Y" THEN GOTO 170
$ IF LIST.NE."Y" THEN GOTO 165
$ MCR MAC CDPACK,CDPACK/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDPACK
$ GOTO 170
$ 165:
$ MCR MAC CDPACK=CDRSX,CDPREF,CDDRV,CDPACK
$ 170:
$ IF REJ.NE."Y" THEN GOTO 1710
$ IF LIST.NE."Y" THEN GOTO 1705
$ MCR MAC CDREJ,CDREJ/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDREJ
$ GOTO 1710
$ 1705:
$ MCR MAC CDREJ=CDRSX,CDPREF,CDDRV,CDREJ
$ 1710:
$ IF STAT.NE."Y" THEN GOTO 180
$ IF LIST.NE."Y" THEN GOTO 175
$ MCR MAC CDSTAT,CDSTAT/-SP'CREF'=CDRSX,CDPREF,CDSTAT
$ GOTO 180
$ 175:
$ MCR MAC CDSTAT=CDRSX,CDPREF,CDSTAT
$ 180:
$ IF STOP.NE."Y" THEN GOTO 1810
$ IF LIST.NE."Y" THEN GOTO 1805
$ MCR MAC CDSTOP,CDSTOP/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDSTOP
$ GOTO 1810
$ 1805:
$ MCR MAC CDSTOP=CDRSX,CDPREF,CDDRV,CDSTOP
$ 1810:
$ IF UTIL.NE."Y" THEN GOTO 190
$ IF LIST.NE."Y" THEN GOTO 185
$ MCR MAC CDUTIL,CDUTIL/-SP'CREF'=CDRSX,CDPREF,CDUTIL
$ GOTO 190
$ 185:
$ MCR MAC CDUTIL=CDRSX,CDPREF,CDUTIL
$ 190:
$ IF WAIT.NE."Y" THEN GOTO 200
$ IF LIST.NE."Y" THEN GOTO 195
$ MCR MAC CDWAIT,CDWAIT/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDWAIT
$ GOTO 200
$ 195:
$ MCR MAC CDWAIT=CDRSX,CDPREF,CDDRV,CDWAIT
$ 200:
$ IF WAKE.NE."Y" THEN GOTO 2010
$ IF LIST.NE."Y" THEN GOTO 2005
$ MCR MAC CDWAKE,CDWAKE/-SP'CREF'=CDRSX,CDPREF,CDDRV,CDWAKE
$ GOTO 2010
$ 2005:
$ MCR MAC CDWAKE=CDRSX,CDPREF,CDDRV,CDWAKE
$ 2010:
$ 700:
$ INQUIRE LIB "REPLACE MODULES IN CDPACK LIBRARY"
$ IF LIB.NE."Y" THEN GOTO 1000
$ INQUIRE LIB "DIRECTORY FOR CDPACK.OLB"
$ IF LIB.EQ."" THEN LIB = F$DIRECTORY()
$ ASSIGN 'LIB' CD$LIB
$ COPY CD*.OBJ OBJ.ALL
$ MCR LBR CD$LIB:CDPACK.OLB/RP=OBJ.ALL
$ DELETE OBJ.ALL;*
$ DELETE CD*.OBJ;*
$ 1000: