Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/tu77b.ctl
There are no other files named tu77b.ctl in the archive.
;%002 JAN 21 80 TONY J. IACOBONE
; SUB TU77B.CTL[35,1414]/TIME:0,/DIS:DEL
;
;***** BATCH JOB TO DETERMINE NR OF TU77'S ON MTB
;
;
.DAY
;
.NOOPERATOR
;*****FIRST LETS SEE IF THERE ARE ANY MTB'S AVAILABLE
;
.ERROR
.AS MTB
;
.DEAS MTB
;
.ERROR
MTB0::
;
;
.ERROR ?
;
;*****USE ERROR TO FIND NUMBER OF DRIVES ON MTB
;
.AS MTB0
.IF (ERROR) .GOTO MTB1::
.DEAS MTB0
.SUB TU770B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB1::
.AS MTB1
.IF (ERROR) .GOTO MTB2::
.DEAS MTB1
.SUB TU771B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB2::
.AS MTB2
.IF (ERROR) .GOTO MTB3::
.DEAS MTB2
.SUB TU772B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB3::
.AS MTB3
.IF (ERROR) .GOTO MTB4::
.DEAS MTB3
.SUB TU773B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB4::
.AS MTB4
.IF (ERROR) .GOTO MTB5::
.DEAS MTB4
.SUB TU774B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB5::
.AS MTB5
.IF (ERROR) .GOTO MTB6::
.DEAS MTB5
.SUB TU775B.CTL[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB6::
.AS MTB6
.IF (ERROR) .GOTO MTB7::
.DEAS MTB6
.SUB TU776B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
MTB7::
.AS MTB7
.IF (ERROR) .GOTO DONE::
.DEAS MTB7
.SUB TU777B[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;
%ERR::
.PLEASE******************************************
.PLEASE ERROR IN TU77B.CTL. NOT CONTINUING
.PLEASE******************************************
%CERR::
.PLEASE******************************************
.PLEASE ERROR IN TU77B.CTL. NOT CONTINUING
.PLEASE******************************************
;
;
DONE::
;
;
%FIN::