Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/dectst.ctl
There is 1 other file named dectst.ctl in the archive. Click here to see a list.
;%002 DEC 21 1977 TONY IACOBONE
;SUB DECTST.CTL[35,1414]/TIME/UNIQ:0,/OUT:0
;
;*********** JOB TO TEST DECTAPES ********** DDTDD DAIGNOSTIC
;
;
.ERROR
.DAY
.ASSIGN DTA
.PLEASE STARTING DECTST REMOVE ALL GOOD TAPES AND MOUNT SCRATCH TAPES
;
;***** USE NO ERROR IF NO MORE TAPES
;
.NOERROR
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTA
.ASSIGN DTB
.ASSIGN DTB
.ASSIGN DTB
.ASSIGN DTB
.ASSIGN DTB
.ERROR

.R SETSRC
C /LIB:[6,10]
^C
.RU DIAMON
-
S
DDTDD
Y
400
0
ALL
^C




.QUE INP:=DECTST[35,1414].CTL/UNIQ:0/TIME:2:00:/AFTER:+6:00,/OUT:0
.PLEASE DECTST.CTL (DDTDD) COMPLETE ONE PASS
.PLEASE CLEAN HEADS.  TEST WILL RERUN IN 6 HRS.
%ERR::
.PLEASE ERROR IN DECTST.CTL (DDTDD), NOT CONTINUING
.PLEASE READ DECTST.LOG FOR ERROR
%FIN::