Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;PKINTC.CTL[35,1414] 20 DEC 1982 T. IACOBONE
;
;BATCH CONTROL FILE SUBMITTED FROM ACCINT.MIC
;
;THIS CONTROL FILE WILL SCAN FOR THE EXISTANCE OF RP06 AND/OR RP07
;DRIVES BUILT INTO THE TOPS10 MONITOR. IT IS ASSUMED THAT THE KLAD
;IS MOUNTED ON RPA0.
;
;***WARNING IF YOU DO NOT WISH TO FORMAT A DRIVE LEAVE IT CYCLED DOWN
;   OR DO NOT RUN THIS CONTROL FILE
;
.DAYTIME
;
;
RPC0::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC0:[1,1]
.IF (ERROR) .GOTO RPD
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPC0
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC1
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC0
;
.IF (NOERROR) .GOTO R7C0
.SUB RPC0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC0:
^[^[
*EX^[^[
.GOTO RPC1
;
R7C0::
.SUB R7C0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC0:
^[^[
*EX^[^[
RPC1::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC1:[1,1]
.IF (ERROR) .GOTO RPD
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPC1
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC2
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC1
;
.IF (NOERROR) .GOTO R7C1
.SUB RPC1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC1:
^[^[
*EX^[^[
;
.GOTO RPC2
;
R7C1::
.SUB R7C1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC1:
^[^[
*EX^[^[
;
RPC2::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC2:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC2
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC3
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC2
;
.IF (NOERROR) .GOTO R7C2
.SUB RPC2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC2:
^[^[
*EX^[^[
;
.GOTO RPC3
;
R7C2::
.SUB R7C2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC2:
^[^[
*EX^[^[
;

RPC3::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC3:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC3
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC4
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC3
;
.IF (NOERROR) .GOTO R7C3
.SUB RPC3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC3:
^[^[
*EX^[^[
;
.GOTO RPC4
;
R7C3::
.SUB R7C3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC3:
^[^[
*EX^[^[
;
;
RPC4::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC4:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC4
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC5
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC4
;
.IF (NOERROR) .GOTO R7C4
.SUB RPC4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPC5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC4:
^[^[
*EX^[^[
;
;
R7C4::
.SUB R7C4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC4:
^[^[
*EX^[^[
;
RPC5::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC5:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC5
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC6
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC5
;
.IF (NOERROR) .GOTO R7C5
.SUB RPC5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPC6
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC5:
^[^[
*EX^[^[
;
;
R7C5::
.SUB R7C5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC5:
^[^[
*EX^[^[
;
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC5:
^[^[
*EX^[^[
;
RPC6::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC6:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC6
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC7
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC6
;
.IF (NOERROR) .GOTO R7C6
.SUB RPC6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPC7
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC6:
^[^[
*EX^[^[
;
;
R7C6::
.SUB R7C6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC6:
^[^[
*EX^[^[
;
;
RPC7::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPC7:[1,1]
.IF (ERROR) .GOTO RPD
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPC7
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPC7
;
.IF (NOERROR) .GOTO R7C7
.SUB RPC7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPD
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC7:
^[^[
*EX^[^[
;
;
R7C7::
.SUB R7C7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPC7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPC7:
^[^[
*EX^[^[
;
RPD::
;
;GO SEE IF THERE ARE ANY MORE TO BE CHECKED
;
.ERROR ?
.DIR RPD:[1,1]
.IF (ERROR) .GOTO DONE::
;YES
.SUB PKINTD[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO DONE
%ERR::
.PLEASE ***ERROR IN PKINTC.CTL***^[
%CERR::
.PLEASE ***ERROR IN PKINTC.CTL***^[
DONE::
%FIN::