Trailing-Edge
-
PDP-10 Archives
-
BB-Y390T-BM
-
tsu/tsunew.ctx
There are 14 other files named tsunew.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
@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 1
*RESTORE -
*TSU:<BP2SYS> BP2SYS:,-
*TSU:<CBLSRC> CBLSRC:,-
*TSU:<CBLSYS> CBLSYS:,-
*TSU:<DBMALL> DBMALL:,-
*TSU:<FTNCSR> FTNCSR:,-
*TSU:<FTNOSR> FTNOSR:,-
*TSU:<FTNSYS> FTNSYS:,-
*TSU:<LNGSRC> LNGSRC:,-
*TSU:<SRTSRC> SRTSRC:,-
*TSU:<SRTSYS> SRTSYS:,-
*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::