Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/rpa1fm.mod
There are no other files named rpa1fm.mod in the archive.
;RPA1FM.CTL - CONTROL FILE TO RUN DDRPI PAKINT ON RPA1
;
;DEC 16 1982 - T. IACOBONE
;
;.SUB RPA1FM.CTL/TIME/UNIQ:0
;
.ERROR
;
;SETUP SEARCH LIST FOR DIAMON
.PATH LIB:/SEA=KLAD:[6,10]
;
;
;START THE DIAGNOSTIC
;
.ERROR ?
;
.RUN DIAMON
S
DDRPI
Y
10
0
N
Y
RPA1
Y
E01
01
PAKINT
Y
Y
^C
;
;
.IF (NOERROR) .GOTO SUB
;
.ERROR
;
.RUN DIAMON
S
DDRPI
Y
10
0
N
Y
RPA1
Y
E01
Y
01
PAKINT
Y
Y
^C
;
SUB::
.PLEASE ***RPA1FM COMPLETED SUCCESSFULLY ***^[
;
.SUBMIT RP1TWC[35,1414]/TIME/UNIQ:0
;
.GOTO END
;
%ERR::
.PLEASE ???? ERROR IN RPA1FM.CTL CHECK LOG AND RESUBMIT ????^[
%CERR::
.PLEASE ???? ERROR IN RPA1FM.CTL CHECK LOG AND RESUBMIT ????^[
;
END::
%FIN::