Google
 

Trailing-Edge - PDP-10 Archives - BB-T573C-DD_1986 - 35,1414/dsk00.ctl
There is 1 other file named dsk00.ctl in the archive. Click here to see a list.
;(RPA0A) FEB 20 1980  TONY J. IACOBONE
;(DSK00) MAY 17 1984 TOM DUDA (Errors reported to SYSERR)
;.SUB DSK00.CTL[35,1414]/TIME/UNIQ:0/PRIOR:5,/OUT:ERROR
;
;********** JOB TO RUN DDRPI ON RPA0 (RP04/RP06)
;********** MUST RUN UNDER 1,2 FOR PRIVILEDGES TO RUN
;
.DAY
;
;*****SETUP THE LIBRARY FOR THE [6,10]
;******THIS WILL ALLOW US TO RUN DIAMON AND DDRPI
;*****WITHOUT HAVING IT IN THE LOGGED-IN AREA
;
.ERROR
.PATH LIB:/SEARCH=KLAD:[6,10]
;
.RU DIAMON
*DDRPI
*Y
*10
*0
*N
*N
*N
*N
*N
*N
*Y
*N
*RPA0
*ALL
*MAPOUT
*N
*Y
*N
*Y
=^[
*N
*RONLY
.IF (NOERROR) .GOTO RUNOK
DSKERR::
.SILENCE
.ERROR ?
.CHKPNT ERL::
.COPY DSK00.ERL=DSK00.ERL,DSK00.LOG
.IF (NOERROR) .GOTO ERMESS
.COPY DSK00.ERL=NUL:
.COPY DSK00.ERL=DSK00.ERL,DSK00.LOG
;
ERMESS::
;	MESSAGE ERROR
.PLEASE ????? ERRORS RUNNING DDRPI ON DSK00! READ DSK00.ERL ?????^[
.REVIVE
.GOTO RESUB
;
RUNOK::
.PATH /CLEAR
;
;***INFORM THE OPERATOR THAT WE HAVE FINISHED FOR NOW
;
.PLEASE *** END OF DSK00. FINISHED ONE PASS OF DDRPI***^[
;
RESUB::
.SUB DSK00[35,1414]/TIME/UNIQ:0/PRIOR:5/AFTER:+1:00:/OUT:NOL/BAT:SUP
.GOTO DONE
;
%TERR::
;
;****USE TIME ERROR IF JOB EXCEEDS EXPECTED RUN TIME
;****THIS MAY BE CAUSED BY MANY ERRORS ON THE DRIVE
;****OR BY SOME DIAGNOSTIC AND/OR SOFTWARE TIE-UP
;
.PLEASE ??????????????? TIMEOUT ERROR IN DSK00.CTL. DDRPI STOPPING?^[
.PLEASE ??? READ DSK00.LOG AND MAP BAD SPOTS IF NECESSARY ?????????^[
.GOTO DONE
;
;
%CERR::
.PLEASE ??????????????? ERROR IN DSK00.CTL. DDRPI STOPPING???????????^[
.GOTO DONE
;
;
%ERR::
.PLEASE ??????????????? ERROR IN DSK00.CTL. DDRPI STOPPING???????????^[
.PLEASE ??????????????? READ DSK00.LOG FOR CAUSE OF ERROR????????????^[
;
DONE::
;
%FIN::