Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/rpatst.ctl
There is 1 other file named rpatst.ctl in the archive. Click here to see a list.
;%004 22 DEC 1982 TONY J. IACOBONE
;UPDATED FOR RP07 FIELD TEST OCT 1981
;UPDATED FOR 701A DECEMBER 82
;* SUB RPATST.CTL[35,1414]/UNIQ:0/TIME/PRIOR:5,/OUT:ERROR
;
;***BATCH JOB TO SEARCH SYSTEM FOR ALL RP04/RP06/RP07'S ON THE SYSTEM
;THIS FILE SUBMITTED BY CON.CTL
;*********MUST BE LOGGED INTO 1,2 AREA. ******************************
;
;
;ASSUME THAT THERE IS A DRIVE 0 OR WE WOULDN'T BE HERE
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA0:[1,1]
.IF (NOERROR) .GOTO TEST0
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA0 WILL NOT BE TESTED%%%^[
.GOTO DRIVE1
TEST0::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA0
.IF (ERROR) .GOTO RPA0
;DRIVE TYPE IS RP07
.SUB PPRPA0.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA0.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE1
RPA0::
;DRIVE TYPE IS RP06
.SUB RPA0A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE1::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA1:[1,1]
.IF (ERROR) .GOTO END
.ERROR %
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.DIR RPA1:[1,1]
.IF (NOERROR) .GOTO TEST1
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA1 WILL NOT BE TESTED%%%^[
.GOTO DRIVE2
TEST1::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA1
.IF (ERROR) .GOTO RPA1
;DRIVE TYPE IS RP07
.SUB PPRPA1.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA1.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE2
RPA1::
;DRIVE TYPE IS RP06
.SUB RPA1A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE2::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA2:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA2:[1,1]
.IF (NOERROR) .GOTO TEST2
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA2 WILL NOT BE TESTED%%%^[
.GOTO DRIVE3
TEST2::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA2
.IF (ERROR) .GOTO RPA2
;DRIVE TYPE IS RP07
.SUB PPRPA2.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA2.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE3
RPA2::
;DRIVE TYPE IS RP06
.SUB RPA2A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE3::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA3:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA3:[1,1]
.IF (NOERROR) .GOTO TEST3
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA3 WILL NOT BE TESTED%%%^[
.GOTO DRIVE4
TEST3::
.ERROR #
;IS THIS AN RP06 OR RP07?
.RU TESTRP[35,1414]
RPA3
.IF (ERROR) .GOTO RPA3
;DRIVE TYPE IS RP07
.SUB PPRPA3.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA3.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE4
RPA3::
;DRIVE TYPE IS RP06
.SUB RPA3A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE4::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA4:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA4:[1,1]
.IF (NOERROR) .GOTO TEST4
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA4 WILL NOT BE TESTED%%%^[
.GOTO DRIVE5
TEST4::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA4
.IF (ERROR) .GOTO RPA4
;DRIVE TYPE IS RP07
.SUB PPRPA4.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA4.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE5
RPA4::
;DRIVE TYPE IS RP06
.SUB RPA4A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE5::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA5:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA5:[1,1]
.IF (NOERROR) .GOTO TEST5
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA5 WILL NOT BE TESTED%%%^[
.GOTO DRIVE6
TEST5::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA5
.IF (ERROR) .GOTO RPA5
;DRIVE TYPE IS RP07
.SUB PPRPA5.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA5.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE6
RPA5::
;DRIVE TYPE IS RP06
.SUB RPA5A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE6::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA6:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA6:[1,1]
.IF (NOERROR) .GOTO TEST6
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA6 WILL NOT BE TESTED%%%^[
.GOTO DRIVE7
TEST6::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA6
.IF (ERROR) .GOTO RPA6
;DRIVE TYPE IS RP07
.SUB PPRPA6.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA6.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO DRIVE7
RPA6::
;DRIVE TYPE IS RP06
.SUB RPA6A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
DRIVE7::
;IS THIS DRIVE BUILT IN - IF NOT SEARCH IS COMPLETE
.ERROR ?
.DIR RPA7:[1,1]
.IF (ERROR) .GOTO END
;IF NO STRUCTURE MOUNTED ON THIS DRIVE TELL TECH AND GO ON
.ERROR %
.DIR RPA7:[1,1]
.IF (NOERROR) .GOTO TEST7
.PLEASE %%%STRUCTURE NOT MOUNTED ON RPA7 WILL NOT BE TESTED%%%^[
.GOTO END
TEST7::
;IS THIS AN RP06 OR RP07?
.ERROR #
.RU TESTRP[35,1414]
RPA7
.IF (ERROR) .GOTO RPA7
;DRIVE TYPE IS RP07
.SUB PPRPA7.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.SUB RDRPA7.CTL[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
.GOTO END
RPA7::
;DRIVE TYPE IS RP06
.SUB RPA7A[35,1414]/TIME/PRIOR:5/UNIQ:0,/OUT:ERROR
END::
%CERR::
.PLEASE ???ERROR IN RPATST.CTL. NOT CONTINUING???^[
%ERR::
.PLEASE ???ERROR IN RPATST.CTL???^[
;
%FIN::