Google
 

Trailing-Edge - PDP-10 Archives - BB-Y390U-BM - tsu/tsuall.ctx
There are 14 other files named tsuall.ctx in the archive. Click here to see a list.
; 01 14-jun-90 Expunge all update areas first
;
;		       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
@MOUNT TAPE TSUTAP:/READ/VOLID:TSU1,TSU2
@TAKE TSU.CMD
@NOERROR
@EXPUNGE BP2SYS:
@EXPUNGE CBLSRC:
@EXPUNGE CBLSYS:
@EXPUNGE DBMALL:
@EXPUNGE FTNCSR:
@EXPUNGE FTNOSR:
@EXPUNGE FTNSYS:
@EXPUNGE LNGSRC:
@EXPUNGE SRTSRC:
@EXPUNGE SRTSYS:
@EXPUNGE T20SRC:
@EXPUNGE T20SUB:
@EXPUNGE T20SYS:
@EXPUNGE T20DIL:
@EXPUNGE T20EDT:
@ERROR
@RUN DUMPER
*TAPE TSUTAP:
*SET BLOCK 8
*SUPERSEDE ALWAYS
*FILES
*SKIP 2
*RESTORE -
*TSU:<BP2SYS> BP2SYS:
*RESTORE -
*TSU:<CBLSRC> CBLSRC:,-
*TSU:<CBLSYS> CBLSYS:
*RESTORE -
*TSU:<DBMALL> DBMALL:
*RESTORE -
*TSU:<FTNCSR> FTNCSR:,-
*TSU:<FTNOSR> FTNOSR:,-
*TSU:<FTNSYS> FTNSYS:
*RESTORE -
*TSU:<SRTSRC> SRTSRC:,-
*TSU:<SRTSYS> SRTSYS:
*RESTORE -
*TSU:<LNGSRC> LNGSRC:,-
*TSU:<T20SRC> T20SRC:,-
*TSU:<T20SUB> T20SUB:,-
*TSU:<T20SYS> T20SYS:,-
*TSU:<T20DIL> T20DIL:,-
*TSU:<T20EDT> T20EDT:
*REWIND
*EXIT
@DISMOUNT TAPE TSUTAP:
@NOERROR
@RUN APUTIL
*READ BP2SYS:BP2SYS.VFY
*DECRYPT
*READ CBLSRC:CBLSRC.VFY
*DECRYPT
*READ CBLSYS:CBLSYS.VFY
*DECRYPT
*READ DBMALL:DBMALL.VFY
*DECRYPT
*READ FTNCSR:FTNCSR.VFY
*DECRYPT
*READ FTNOSR:FTNOSR.VFY
*DECRYPT
*READ FTNSYS:FTNSYS.VFY
*DECRYPT
*READ SRTSRC:SRTSRC.VFY
*DECRYPT
*READ SRTSYS:SRTSYS.VFY
*DECRYPT
*EXIT
;@GOTO END
;REMOVE THE COMMENT AT THE BEGINNING OF THE PREVIOUS LINE
;TO SKIP OVER THE VERIFICATION PROCESS
@RUN APUTIL
*READ BP2SYS:BP2SYS.VFY
*VERIFY
*READ CBLSRC:CBLSRC.VFY
*VERIFY
*READ CBLSYS:CBLSYS.VFY
*VERIFY
*READ DBMALL:DBMALL.VFY
*VERIFY
*READ FTNCSR:FTNCSR.VFY
*VERIFY
*READ FTNOSR:FTNOSR.VFY
*VERIFY
*READ FTNSYS:FTNSYS.VFY
*VERIFY
*READ LNGSRC:LNGSRB.VFY
*VERIFY
*READ LNGSRC:LNGSRC.VFY
*VERIFY
*READ SRTSRC:SRTSRC.VFY
*VERIFY
*READ SRTSYS:SRTSYS.VFY
*VERIFY
*READ T20SRC:T20SRC.VFY
*VERIFY
*READ T20SUB:T20SUB.VFY
*VERIFY
*READ T20SYS:T20SYS.VFY
*VERIFY
*READ T20DIL:T20DIL.VFY
*VERIFY
*READ T20EDT:T20EDT.VFY
*VERIFY
*EXIT
END::