Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/tu77.ctl
There is 1 other file named tu77.ctl in the archive. Click here to see a list.
;%002 JAN 21 80 TONY J. IACOBONE
; SUB TU77.CTL[35,1414]/TIME:0,/DIS:DEL
;
;***** BATCH JOB TO DETERMINE NR OF TU77'S ON MTA
;
;
.DAY
;
.NOOPERATOR
;*****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 MTA
;
.AS MTA0
.IF (ERROR) .GOTO MTA1::
.DEAS MTA0
.SUB TU770[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA1::
.AS MTA1
.IF (ERROR) .GOTO MTA2::
.DEAS MTA1
.SUB TU771[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA2::
.AS MTA2
.IF (ERROR) .GOTO MTA3::
.DEAS MTA2
.SUB TU772[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA3::
.AS MTA3
.IF (ERROR) .GOTO MTA4::
.DEAS MTA3
.SUB TU773[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA4::
.AS MTA4
.IF (ERROR) .GOTO MTA5::
.DEAS MTA4
.SUB TU774[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA5::
.AS MTA5
.IF (ERROR) .GOTO MTA6::
.DEAS MTA5
.SUB TU775.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA6::
.AS MTA6
.IF (ERROR) .GOTO MTA7::
.DEAS MTA6
.SUB TU776[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTA7::
.AS MTA7
.IF (ERROR) .GOTO DONE::
.DEAS MTA7
.SUB TU777[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
;
.GOTO DONE
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN TU77.CTL. NOT CONTINUING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN TU77.CTL. NOT CONTINUING
.PLEASE******************************************
;
;
DONE::
;
;
%FIN::