Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;%002 JAN 4 78  TONY J. IACOBONE
; SUB DXATST.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;***** BATCH JOB TO DETERMINE NR OF XPORTS ON DX10 NR 0
;
;
.DAY
;
;*****FIRST LETS SEE IF THERE ARE ANY MTA'S AVAILABLE
;
.ERROR
.AS MTA
;
.DEAS MTA
;
.R BOOTDX
/C/S/U:0
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:30:/AFTER:+00:05:/UNIQ:0,/OUT:0
;
;
MTA1::
.AS MTA1
.IF (ERROR) .GOTO MTA2::
.DEAS MTA1
.SUB DX1TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:20:,/OUT:0
;
;
MTA2::
.AS MTA2
.IF (ERROR) .GOTO MTA3::
.DEAS MTA2
.SUB DX2TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:40:,/OUT:0
;
;
MTA3::
.AS MTA3
.IF (ERROR) .GOTO MTA4::
.DEAS MTA3
.SUB DX3TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+00:20:,/OUT:0
;
;
MTA4::
.AS MTA4
.IF (ERROR) .GOTO MTA5::
.DEAS MTA4
.SUB DX4TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+01:00:,/OUT:0
;
;
MTA5::
.AS MTA5
.IF (ERROR) .GOTO MTA6::
.DEAS MTA5
.SUB DX5TST.CTL[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+01:05:,/OUT:0
;
;
MTA6::
.AS MTA6
.IF (ERROR) .GOTO MTA7::
.DEAS MTA6
.SUB DX6TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+01:10:,/OUT:0
;
;
MTA7::
.AS MTA7
.IF (ERROR) .GOTO DONE::
.DEAS MTA7
.SUB DX7TST[35,1414]/TIME:00:30:/UNIQ:0/AFTER:+01:15:,/OUT:0
;
;
%ERR::
%CERR::
.PLEASE ????????????????????????????????????????
.PLEASE ????????????????????????????????????????
.PLEASE ERROR IN DXATST.CTL.  NOT CONTINUING
.PLEASE ????????????????????????????????????????
.PLEASE ????????????????????????????????????????
;
;
DONE::
;
;
%FIN::