PDP-10 Archive: 35,1414/dx10.ctl from BB-T573C-DD

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/dx10.ctl

There is 1 other file named dx10.ctl in the archive. Click here to see a list.

;%002 JAN 4 78  TONY J. IACOBONE
; SUB DX10.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;***** BATCH JOB TO DETERMINE NR OF XPORTS ON DX10 NR 0
;
;
.DAY
.GOTO MTA0
;
;*****FIRST LETS SEE IF THERE ARE ANY MTA'S AVAILABLE
;
.ERROR
.AS MTA
;
.DEAS MTA
;
.ERROR
MTA0::
;
;
.ERROR ?
;
;*****USE ERROR TO FIND NUMBER OF DRIVES ON DX10
;
.AS MTA0
.IF (ERROR) .GOTO MTA1::
.DEAS MTA0
.SUB DX0TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA1::
.AS MTA1
.IF (ERROR) .GOTO MTA2::
.DEAS MTA1
.SUB DX1TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA2::
.AS MTA2
.IF (ERROR) .GOTO MTA3::
.DEAS MTA2
.SUB DX2TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA3::
.AS MTA3
.IF (ERROR) .GOTO MTA4::
.DEAS MTA3
.SUB DX3TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA4::
.AS MTA4
.IF (ERROR) .GOTO MTA5::
.DEAS MTA4
.SUB DX4TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA5::
.AS MTA5
.IF (ERROR) .GOTO MTA6::
.DEAS MTA5
.SUB DX5TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA6::
.AS MTA6
.IF (ERROR) .GOTO MTA7::
.DEAS MTA6
.SUB DX6TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA7::
.AS MTA7
.IF (ERROR) .GOTO DONE::
.DEAS MTA7
.SUB DX7TST[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN DX10.CTL.  NOT CONTINUING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN DX10.CTL.  NOT CONTINUING
.PLEASE******************************************
;
;
DONE::
;
;
%FIN::