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

;PKINTE.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
;
;
RPE0::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE0:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPE0
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE1
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE0
;
.IF (NOERROR) .GOTO R7E0
.SUB RPE0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE0:
^[^[
*EX^[^[
.GOTO RPE1
;
R7E0::
.SUB R7E0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE0:
^[^[
*EX^[^[
RPE1::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE1:[1,1]
.IF (ERROR) .GOTO DONE
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPE1
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE2
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE1
;
.IF (NOERROR) .GOTO R7E1
.SUB RPE1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE1:
^[^[
*EX^[^[
;
.GOTO RPE2
;
R7E1::
.SUB R7E1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE1:
^[^[
*EX^[^[
;
RPE2::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE2:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE2
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE3
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE2
;
.IF (NOERROR) .GOTO R7E2
.SUB RPE2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE2:
^[^[
*EX^[^[
;
.GOTO RPE3
;
R7E2::
.SUB R7E2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE2:
^[^[
*EX^[^[
;

RPE3::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE3:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE3
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE4
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE3
;
.IF (NOERROR) .GOTO R7E3
.SUB RPE3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE3:
^[^[
*EX^[^[
;
.GOTO RPE4
;
R7E3::
.SUB R7E3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE3:
^[^[
*EX^[^[
;
;
RPE4::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE4:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE4
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE5
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE4
;
.IF (NOERROR) .GOTO R7E4
.SUB RPE4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPE5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE4:
^[^[
*EX^[^[
;
;
R7E4::
.SUB R7E4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE4:
^[^[
*EX^[^[
;
RPE5::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE5:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE5
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE6
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE5
;
.IF (NOERROR) .GOTO R7E5
.SUB RPE5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPE6
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE5:
^[^[
*EX^[^[
;
;
R7E5::
.SUB R7E5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE5:
^[^[
*EX^[^[
;
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE5:
^[^[
*EX^[^[
;
RPE6::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE6:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE6
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE7
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE6
;
.IF (NOERROR) .GOTO R7E6
.SUB RPE6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPE7
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE6:
^[^[
*EX^[^[
;
;
R7E6::
.SUB R7E6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE6:
^[^[
*EX^[^[
;
;
RPE7::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPE7:[1,1]
.IF (ERROR) .GOTO DONE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPE7
;
.NOOPERATOR
.IF (ERROR) .GOTO DONE
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPE7
;
.IF (NOERROR) .GOTO R7E7
.SUB RPE7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO DONE
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE7:
^[^[
*EX^[^[
;
;
R7E7::
.SUB R7E7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPE7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPE7:
^[^[
*EX^[^[
;
.GOTO DONE
%ERR::
.PLEASE ***ERROR IN PKINTE.CTL***^[
%CERR::
.PLEASE ***ERROR IN PKINTE.CTL***^[
DONE::
%FIN::