Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/dtbtst.ctl
There is 1 other file named dtbtst.ctl in the archive. Click here to see a list.
;%001 19 NOV 197 TONY IACOBONE
;SUB DTBTST.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;*********** JOB TO TEST DTBTAPES ********** DDTDD DAIGNOSTIC
;
;
.ERROR
.DAY
.ASSIGN DTB DTA0
.PLEASE STARTING DTBTST REMOVE ALL GOOD TAPES AND MOUNT SCRATCH TAPES
;
;***** USE NO ERROR IF NO MORE TAPES
;
.NOERROR
.ASSIGN DTB DTA1
.ASSIGN DTB DTA2
.ASSIGN DTB DTA3
.ASSIGN DTB DTA4
.ASSIGN DTB DTA5
.ASSIGN DTB DTA6
.ASSIGN DTB DTA7
.ERROR
.R SETSRC
C /LIB:[6,10]
^C
.RU DIAMON
-
S
DDTDD
Y
400
0
ALL
^C
.QUE INP:=DTBTST[35,1414].CTL/UNIQ:0/TIME:2:00:/AFTER:+12:00,/DIS:DEL
.PLEASE *****************************************
.PLEASE DTBTST.CTL (DDTDD) COMPLETE ONE PASS
.PLEASE CLEAN HEADS. TEST WILL RERUN IN 12 HRS.
.PLEASE *****************************************
%ERR::
.PLEASE ?????????????????????????????????????????????
.PLEASE ERROR IN DTBTST.CTL (DDTDD), NOT CONTINUING
.PLEASE READ DTBTST.LOG FOR ERROR
.PLEASE ?????????????????????????????????????????????
%FIN::