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

;PAKINT.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. IF NOT THE CONTROL FILE WILL ERROR OUT.
;IT IS FURTHER ASSUMED THAT THE OTHER DRIVES ON THE SYSTEM MUST BE
;FORMATTED, (NORMALLY THE CASE IF STARTING AN INITIAL ACCEPTANCE RUN.
;
;***WARNING IF YOU DO NOT WISH TO FORMAT A DRIVE LEAVE IT CYCLED DOWN
;   OR DO NOT RUN THIS CONTROL FILE
;
.DAYTIME
;
;MAKE SURE THE KLAD IS ON DRIVE RPA0 - TEST FOR KLDCP.BIN IN [6,11]
;
.ERROR
.DIR RPA0:[6,11]KLDCP.BIN
.IF (NOERROR) .GOTO MAKE
;
.PLEASE ***KLAD NOT MOUNTED ON RPA0, NOT CONTINUING***^[
.GOTO DONE
;
MAKE::
.NOERROR
;MAKE A MOUNT COMMAND FILE
.MAKE MOUNT.CMD
*EX^[^[
;
;MAKE A MODIFY COMMAND FILE TO PUT DRIVES INTO ACTIVE SWAPPING LIST
.MAKE MODIFY.CMD
*EX^[^[
;
.ERROR ?
;
;VERIFY THAT THERE ARE MORE DRIVES TO BE TESTED ON RPA
;
.DIR RPA1:[1,1]
;
.IF (ERROR) .GOTO RPB
RPA1::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA1:[1,1]
.IF (ERROR) .GOTO RPB
.ERROR ??
;
;MAKE SURE PACK IS ON LINE
;
.OPERATOR
;
.RU TESTRP[35,1414]
RPA1
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA2
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA1
;
.IF (NOERROR) .GOTO R7A1
.SUB RPA1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA1:
^[^[
*EX^[^[
.GOTO RPA2
;
R7A1::
.SUB R7A1FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA1:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA1:
^[^[
*EX^[^[
RPA2::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA2:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA2
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA3
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA2
;
.IF (NOERROR) .GOTO R7A2
.SUB RPA2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA2:
^[^[
*EX^[^[
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA2:
^[^[
*EX^[^[
;
.GOTO RPA3
;
R7A2::
.SUB R7A2FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA2:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA2:
^[^[
*EX^[^[

RPA3::
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA3:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA3
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA4
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA3
;
.IF (NOERROR) .GOTO R7A3
.SUB RPA3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA3:
^[^[
*EX^[^[
.GOTO RPA4
;
R7A3::
.SUB R7A3FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA3:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA3:
^[^[
*EX^[^[
;
RPA4::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA4:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA4
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA5
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA4
;
.IF (NOERROR) .GOTO R7A4
.SUB RPA4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPA5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA4:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA4:
^[^[
*EX^[^[
;
R7A4::
.SUB R7A4FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA4:
^[^[
*EX^[^[
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA4:
^[^[
*EX^[^[
;
RPA5::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA5:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA5
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA6
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA5
;
.IF (NOERROR) .GOTO R7A5
.SUB RPA5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPA6
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA5:
^[^[
*EX^[^[
;
R7A5::
.SUB R7A5FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA5:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA5:
^[^[
*EX^[^[
;
RPA6::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA6:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA6
;
.NOOPERATOR
.IF (ERROR) .GOTO RPA7
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA6
;
.IF (NOERROR) .GOTO R7A6
.SUB RPA6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPA7
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA6:
^[^[
*EX^[^[
;
R7A6::
.SUB R7A6FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA6:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA6:
^[^[
*EX^[^[
;
RPA7::
;
;IS THIS DRIVE IN THE SYSTEM ?
.ERROR ?
.DIR RPA7:[1,1]
.IF (ERROR) .GOTO RPB
;MAKE SURE PACK IS ON LINE
.ERROR ??
.OPERATOR
;
.RU TESTRP[35,1414]
RPA7
;
.NOOPERATOR
.IF (ERROR) .GOTO RPB
;
;IF ERROR PACK NOT TO BE TESTED GO CHECK NEXT DRIVE
;
.ERROR #
;
;WHAT KIND OF DRIVE IS IT
;
.RU TESTRP[35,1414]
RPA7
;
.IF (NOERROR) .GOTO R7A7
.SUB RPA7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO RPB
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA7:
^[^[
*EX^[^[
;
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA7:
^[^[
*EX^[^[
;
R7A7::
.SUB R7A7FM[35,1414]/TIME/UNIQ:0/PRIOR:5
;
;UPDATE THE MOUNT COMMAND FILE
.ERROR
.TECO MOUNT.CMD
*IRECOGNIZE RPA7:
^[^[
*EX^[^[
.TECO MODIFY.CMD
*IMODIFY ACTIVE-SWAPPING-LIST INCLUDE RPA7:
^[^[
*EX^[^[
;
RPB::
;
;GO SEE IF THERE ARE ANY MORE TO BE CHECKED
;
.ERROR ?
.DIR RPB:[1,1]
.IF (ERROR) .GOTO DONE::
;YES
.SUB PKINTB[35,1414]/TIME/UNIQ:0/PRIOR:5
.GOTO DONE
%ERR::
.PLEASE ***ERROR IN PAKINT.CTL***^[
%CERR::
.PLEASE ***ERROR IN PAKINT.CTL***^[
DONE::
%FIN::