Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/dx20.ctl
There is 1 other file named dx20.ctl in the archive. Click here to see a list.
;%002 JAN 4 78  TONY J. IACOBONE
; SUB DX20.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;***** BATCH JOB TO DETERMINE NR OF XPORTS ON DX20 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 DX200[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA1::
.AS MTA1
.IF (ERROR) .GOTO MTA2::
.DEAS MTA1
.SUB DX201[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA2::
.AS MTA2
.IF (ERROR) .GOTO MTA3::
.DEAS MTA2
.SUB DX202[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA3::
.AS MTA3
.IF (ERROR) .GOTO MTA4::
.DEAS MTA3
.SUB DX203[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA4::
.AS MTA4
.IF (ERROR) .GOTO MTA5::
.DEAS MTA4
.SUB DX204[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA5::
.AS MTA5
.IF (ERROR) .GOTO MTA6::
.DEAS MTA5
.SUB DX205[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA6::
.AS MTA6
.IF (ERROR) .GOTO MTA7::
.DEAS MTA6
.SUB DX206[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
MTA7::
.AS MTA7
.IF (ERROR) .GOTO DONE::
.DEAS MTA7
.SUB DX207[35,1414]/TIME:00:15:/UNIQ:0,/DIS:DEL
;
;
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN DX20.CTL.  NOT CONTINUING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN DX20.CTL.  NOT CONTINUING
.PLEASE******************************************
;
;
DONE::
;
;
%FIN::