Google
 

Trailing-Edge - PDP-10 Archives - BB-Y390U-BM - tsu/bldtsu.ctl
There are 10 other files named bldtsu.ctl in the archive. Click here to see a list.
; This file will create disk directories for use by the TSU
; process. The TSU.CMD file must be present in DSK: and it must
; have been edited so that the NUL: for desired products has
; been replaced with a real structure. The TOPS-20 KS BUILD
; command does not recognize logicals. The same editing is
; required in this file. Before use, replace all XXX: for
; desired products with a real structure.
;
;		       COPYRIGHT (c) 1990 BY
;	    Digital Equipment Corporation, Maynard, MA.
;
;   This software is furnished under a license and may be  used
;   and  copied  only  in  accordance  with  the  terms of such
;   license and with  the  inclusion  of  the  above  copyright
;   notice.   This software or any other copies thereof may not
;   be provided  or  otherwise	made  available  to  any  other
;   person.   No  title  to  and  ownership  of the software is
;   hereby transferred.
;
;   The information in	this  software	is  subject  to  change
;   without  notice and should not be construed as a commitment
;   by Digital Equipment Corporation.
;
;   Digital  assumes  no  responsibility   for	 the   use   or
;   reliability  of  its  software  on	equipment  which is not
;   supplied by Digital.
;
@ENABLE
@TAKE TSU.CMD
@COPY NUL: BP2SYS:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.BP2SYS]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE BP2SYS:X.X
@IF (ERROR)
@COPY NUL: CBLSRC:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.CBLSRC]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE CBLSRC:X.X
@IF (ERROR)
@COPY NUL: CBLSYS:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.CBLSYS]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE CBLSYS:X.X
@IF (ERROR)
@COPY NUL: DBMALL:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.DBMALL]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE DBMALL:X.X
@IF (ERROR)
@COPY NUL: FTNCSR:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.FTNCSR]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE FTNCSR:X.X
@IF (ERROR)
@COPY NUL: FTNOSR:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.FTNOSR]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE FTNOSR:X.X
@IF (ERROR)
@COPY NUL: FTNSYS:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.FTNSYS]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE FTNSYS:X.X
@IF (ERROR)
@COPY NUL: LNGSRC:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.LNGSRC]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE LNGSRC:X.X
@IF (ERROR)
@COPY NUL: SRTSRC:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.SRTSRC]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE SRTSRC:X.X
@IF (ERROR)
@COPY NUL: SRTSYS:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.SRTSYS]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE SRTSYS:X.X
@IF (ERROR)
@COPY NUL: T20SRC:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.T20SRC]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE T20SRC:X.X
@IF (ERROR)
@COPY NUL: T20SUB:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.T20SUB]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE T20SUB:X.X
@IF (ERROR)
@COPY NUL: T20SYS:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.T20SYS]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE T20SYS:X.X
@IF (ERROR)
@COPY NUL: T20DIL:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.T20DIL]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE T20DIL:X.X
@IF (ERROR)
@COPY NUL: T20EDT:X.X
@IF (NOERROR) @GOTO NEXT
@BUILD XXX:[UPDATE.T20EDT]
@WOR 1000000000
@PER 1000000000
@DIR 10
@FILES-ONLY
@

NEXT::
@DELETE T20EDT:X.X
@IF (ERROR)