Trailing-Edge
-
PDP-10 Archives
-
BB-T573C-DD_1986
-
35,1414/con.ctl
There is 1 other file named con.ctl in the archive. Click here to see a list.
;%002 21 DEC 1977 TONY J. IACOBONE
;.SUB CON.CTL[35,1414]/TIME/UNIQ:0,/OUT:NOLOG
;
;***SUBMIT CONTROL FILES THAT WILL REQUIRE OPERATOR INTERVENTION
.SUB HDCPY.CTL[35,1414]/TIME/UNIQ:0,/OUT:NOLOG
;
;CHECK FOR DN60'S
;.TECO HDWCNF.MAC
;*NDN60,0
;*^C
;.IF (NOERROR) .GOTO RNA
;
;.SUB DUPTST[35,1414]/TIME/UNIQ:0,/DIS:DEL
;
;*****SEARCH FOR RP20S
;
RNA::
.DIR RNA:[1,1]
.IF (ERROR) .GOTO DTA
.SUB RP2TST[35,1414]/TIME:12::/UNIQ:0,/DIS:DEL
.SUB RDRP20[35,1414]/TIME:12::/UNIQ:0,/DIS:DEL
;
;
DTA::
;
;***SEARCH THE SYSTEM FOR TU56'S, RP03'S, RP04/RP06'S, RS04'S
;***AND SUBMIT APPROPRIATE CONTROL FILES
ASSIGN DTA:
.IF (ERROR) .GOTO A
DEAS DTA:
.PLEASE MAKE SURE ALL DECTAPE TRANSPORTS HAVE SCRATCH TAPES MOUNTED^[
.PLEASE MAKE ALL DECTAPES WRITE ENABLED^[
;
;
.SUB DTATST.CTL[35,1414]/UNIQ:0/TIME/AFTER:+00:05:,/OUT:NOLOG
ASSIGN DTB:
.IF (ERROR) .GOTO A
DEAS DTB:
;
;
.SUB DTBTST.CTL[35,1414]/UNIQ:0/TIME/AFTER:+00:05::,/OUT:NOLOG
A::
.DIR DPA:[1,1]
.IF (ERROR) .GOTO B
.SUB DPATST.CTL[35,1414]/UNIQ:0/TIME,/OUT:NOLOG
B::
.DIR FSA:[1,1]
.IF (ERROR) .GOTO C
.SUB FSATST.CTL[35,1414]/UNIQ:0/TIME,/OUT:NOLOG
C::
.SUB RPATST.CTL[35,1414]/UNIQ:0/TIME,/OUT:NOLOG
D::
.ERROR ?
.DIR RPB:[1,1]
.IF (ERROR) .GOTO DONE
.SUB RPBTST.CTL[35,1414]/UNIQ:0/TIME,/OUT:NOLOG
;
;
E::
.DIR RPC:[1,1]
.IF (ERROR) .GOTO DONE
.SUB RPCTST.CTL[35,1414]/UNIQ:0/TIME,/OUT:NOLOG
;
F::
;
;
.DIR RPD:[1,1]
.IF (ERROR) .GOTO DONE
.SUB RPDTST.CTL[35,1414]/TIME/UNIQ:0,/OUT:NOLOG
;
G::
.DIR RPE:[1,1]
.IF (ERROR) .GOTO DONE
.SUB RPETST.CTL[35,1414]/TIME/UNIQ:0,/OUT:NOLOG
;
DONE::
;
.SUB FINISH[35,1414]/UNIQ:1/AFTER:+00:05:
;
;
%CERR::
.PLEASE ***ERROR IN CON.CTL READ CON.LOG***^[
%ERR::
.PLEASE ***ERROR IN CON.CTL READ CON.LOG***^[
%FIN::