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

;PKINTD.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
;
;
RPD0::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD0:[1,1]
.IF (ERROR) .GOTO RPE
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPD0
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD1
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD0
;
.IF (NOERROR) .GOTO R7D0
.SUB RPD0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD0:
^[^[
*EX^[^[
.GOTO RPD1
;
R7D0::
.SUB R7D0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD0:
^[^[
*EX^[^[
RPD1::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD1:[1,1]
.IF (ERROR) .GOTO RPE
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPD1
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD2
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD1
;
.IF (NOERROR) .GOTO R7D1
.SUB RPD1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD1:
^[^[
*EX^[^[
;
.GOTO RPD2
;
R7D1::
.SUB R7D1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD1:
^[^[
*EX^[^[
;
RPD2::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD2:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD2
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD3
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD2
;
.IF (NOERROR) .GOTO R7D2
.SUB RPD2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD2:
^[^[
*EX^[^[
;
.GOTO RPD3
;
R7D2::
.SUB R7D2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD2:
^[^[
*EX^[^[
;

RPD3::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD3:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD3
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD4
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD3
;
.IF (NOERROR) .GOTO R7D3
.SUB RPD3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD3:
^[^[
*EX^[^[
;
.GOTO RPD4
;
R7D3::
.SUB R7D3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD3:
^[^[
*EX^[^[
;
;
RPD4::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD4:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD4
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD5
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD4
;
.IF (NOERROR) .GOTO R7D4
.SUB RPD4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPD5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD4:
^[^[
*EX^[^[
;
;
R7D4::
.SUB R7D4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD4:
^[^[
*EX^[^[
;
RPD5::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD5:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD5
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD6
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD5
;
.IF (NOERROR) .GOTO R7D5
.SUB RPD5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPD6
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD5:
^[^[
*EX^[^[
;
;
R7D5::
.SUB R7D5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD5:
^[^[
*EX^[^[
;
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD5:
^[^[
*EX^[^[
;
RPD6::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD6:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD6
;
.NOOPERATOR
.IF (ERROR) .GOTO RPD7
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD6
;
.IF (NOERROR) .GOTO R7D6
.SUB RPD6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPD7
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD6:
^[^[
*EX^[^[
;
;
R7D6::
.SUB R7D6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD6:
^[^[
*EX^[^[
;
;
RPD7::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPD7:[1,1]
.IF (ERROR) .GOTO RPE
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPD7
;
.NOOPERATOR
.IF (ERROR) .GOTO RPE
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPD7
;
.IF (NOERROR) .GOTO R7D7
.SUB RPD7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPE
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD7:
^[^[
*EX^[^[
;
;
R7D7::
.SUB R7D7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPD7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPD7:
^[^[
*EX^[^[
;
RPE::
;
;GO SEE IF THERE ARE ANY MORE TO BE CHECKED
;
.ERROR ?
.DIR RPE:[1,1]
.IF (ERROR) .GOTO DONE::
;YES
.SUB PKINTE[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO DONE
%ERR::
.PLEASE ***ERROR IN PKINTD.CTL***^[
%CERR::
.PLEASE ***ERROR IN PKINTD.CTL***^[
DONE::
%FIN::