Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/rp20.mic
There is 1 other file named rp20.mic in the archive. Click here to see a list.
;****************************************************
;THIS MIC CONTROL FILE WILL RUN TWICE ON ANY RP20
;SPINDLE NOT MOUNTED IN THE SYSTEM. THERE FOR IF YOU
;YOU WANT TO REFRESH AND/OR DEFINE A FILE STRUCTURE
;YOU MUST RUN OMOUNT AND REMOVE IT FROM THE SYSTEM.
;****************************************************
.SILENCE
;
;*****SEARCH FOR ALL AVAILABLE SPINDLES ON RNA
;
.ERROR ?
.DIR RNA0:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA0:[1,1]
.IF (NOERROR) .GOTO RNA1
;
;*******IF A SPINDLE IS DISMOUNTED, RUN TWICE ON IT
;
.DO TWCRP2.MIC[35,1414] R200,RNA0
RNA1::
.ERROR ?
.DIR RNA1:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA1:[1,1]
.IF (NOERROR) .GOTO RNA2
;.DO TWCRP2.MIC[35,1414] R201,RNA1
RNA2::
.ERROR ?
.DIR RNA2:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA2:[1,1]
.IF (NOERROR) .GOTO RNA3
.DO TWCRP2.MIC[35,1414] R202,RNA2
RNA3::
.ERROR ?
.DIR RNA3:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA3:[1,1]
.IF (NOERROR) .GOTO RNA4
.DO TWCRP2.MIC[35,1414] R203,RNA3
RNA4::
.ERROR ?
.DIR RNA4:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA4:[1,1]
.IF (NOERROR) .GOTO RNA5
.DO TWCRP2.MIC[35,1414] R204,RNA4
RNA5::
.ERROR ?
.DIR RNA5:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA5:[1,1]
.IF (NOERROR) .GOTO RNA6
.DO TWCRP2.MIC[35,1414] R205,RNA5
RNA6::
.ERROR ?
.DIR RNA6:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA6:[1,1]
.IF (NOERROR) .GOTO RNA7
.DO TWCRP2.MIC[35,1414] R206,RNA6
RNA7::
.ERROR ?
.DIR RNA7:[1,1]
.IF (ERROR) .GOTO RNB
.ERROR %
.DIR RNA7:[1,1]
.IF (NOERROR) .GOTO RNB
.DO TWCRP2.MIC[35,1414] R207,RNA7
RNB::
;
;SEARCH FOR ALL AVAILABLE RP20S ON RNB
;
.ERROR ?
.DIR RNB0:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB0:[1,1]
.IF (NOERROR) .GOTO RNB1
;
;****IF YOU FIND A DISMOUNTED UNIT RUN TWICE ON IT
;
.DO TWCRP2.MIC[35,1414] RP210,RNB0
RNB1::
.ERROR ?
.DIR RNB1:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB1:[1,1]
.IF (NOERROR) .GOTO RNB2
;.DO TWCRP2.MIC[35,1414] RP211,RNB1
RNB2::
.ERROR ?
.DIR RNB2:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB2:[1,1]
.IF (NOERROR) .GOTO RNB3
.DO TWCRP2.MIC[35,1414] RP212,RNB2
RNB3::
.ERROR ?
.DIR RNB3:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB3:[1,1]
.IF (NOERROR) .GOTO RNB4
.DO TWCRP2.MIC[35,1414] RP213,RNB3
RNB4::
.ERROR ?
.DIR RNB4:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB4:[1,1]
.IF (NOERROR) .GOTO RNB5
.DO TWCRP2.MIC[35,1414] RP214,RNB4
RNB5::
.ERROR ?
.DIR RNB5:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB5:[1,1]
.IF (NOERROR) .GOTO RNB6
.DO TWCRP2.MIC[35,1414] RP215,RNB5
RNB6::
.ERROR ?
.DIR RNB6:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB6:[1,1]
.IF (NOERROR) .GOTO RNB7
.DO TWCRP2.MIC[35,1414] RP216,RNB6
RNB7::
.ERROR ?
.DIR RNB7:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR %
.DIR RNB7:[1,1]
.IF (NOERROR) .GOTO RNB
.DO TWCRP2.MIC[35,1414] RP217,RNB7
DONE::
.REVIVE
;****************************************************
;TWICE HAS BEEN RUN ON ALL AVAILABLE DISMOUNTED
;RP20S ON RNA AND RNB.
;****************************************************
.SILENCE
%FIN::