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

;PKINTB.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
;
;
RPB0::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB0:[1,1]
.IF (ERROR) .GOTO RPC
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPB0
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB1
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB0
;
.IF (NOERROR) .GOTO R7B0
.SUB RPB0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB0:
^[^[
*EX^[^[
.GOTO RPB1
;
R7B0::
.SUB R7B0FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB0:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB0:
^[^[
*EX^[^[
RPB1::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB1:[1,1]
.IF (ERROR) .GOTO RPC
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPB1
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB2
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB1
;
.IF (NOERROR) .GOTO R7B1
.SUB RPB1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB1:
^[^[
*EX^[^[
;
.GOTO RPB2
;
R7B1::
.SUB R7B1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB1:
^[^[
*EX^[^[
;
RPB2::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB2:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB2
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB3
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB2
;
.IF (NOERROR) .GOTO R7B2
.SUB RPB2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB2:
^[^[
*EX^[^[
;
.GOTO RPB3
;
R7B2::
.SUB R7B2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB2:
^[^[
*EX^[^[
;

RPB3::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB3:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB3
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB4
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB3
;
.IF (NOERROR) .GOTO R7B3
.SUB RPB3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB3:
^[^[
*EX^[^[
;
.GOTO RPB4
;
R7B3::
.SUB R7B3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB3:
^[^[
*EX^[^[
;
;
RPB4::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB4:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB4
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB5
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB4
;
.IF (NOERROR) .GOTO R7B4
.SUB RPB4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPB5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB4:
^[^[
*EX^[^[
;
;
R7B4::
.SUB R7B4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB4:
^[^[
*EX^[^[
;
RPB5::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB5:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB5
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB6
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB5
;
.IF (NOERROR) .GOTO R7B5
.SUB RPB5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPB6
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB5:
^[^[
*EX^[^[
;
;
R7B5::
.SUB R7B5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB5:
^[^[
*EX^[^[
;
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB5:
^[^[
*EX^[^[
;
RPB6::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB6:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB6
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB7
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB6
;
.IF (NOERROR) .GOTO R7B6
.SUB RPB6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPB7
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB6:
^[^[
*EX^[^[
;
;
R7B6::
.SUB R7B6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB6:
^[^[
*EX^[^[
;
;
RPB7::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPB7:[1,1]
.IF (ERROR) .GOTO RPC
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPB7
;
.NOOPERATOR
.IF (ERROR) .GOTO RPC
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPB7
;
.IF (NOERROR) .GOTO R7B7
.SUB RPB7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPC
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB7:
^[^[
*EX^[^[
;
;
R7B7::
.SUB R7B7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPB7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPB7:
^[^[
*EX^[^[
;
RPC::
;
;GO SEE IF THERE ARE ANY MORE TO BE CHECKED
;
.ERROR ?
.DIR RPC:[1,1]
.IF (ERROR) .GOTO DONE::
;YES
.SUB PKINTC[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO DONE
%ERR::
.PLEASE ***ERROR IN PKINTB.CTL***^[
%CERR::
.PLEASE ***ERROR IN PKINTB.CTL***^[
DONE::
%FIN::