Google
 

Trailing-Edge - PDP-10 Archives - BB-FI82B-DD_1989 - 35,1414/pprpa1.ctl
There are no other files named pprpa1.ctl in the archive.
;SUB PPRPA1.CTL[35,1414]/TIME/UNIQ:0,/OUT:0
;
;***PRELIM RP07 TEST TO RUN EDITTED VERSION OF REDALL.EXE (RDRP07.EXE)
;***IN USER MODE. THIS VERSION RUNS ON RP07S

;
.DAYTIME
;
.PLEASE STARTING PART ONE PPRPA1.CTL
;
.ERROR %
.R CREDIR
RPA1:[10,7]/NAM:TEST
^C
.IF (ERROR) .GOTO PIP
;
;
PIP::
.ERROR
.R PIP
RPA1:[10,7]/X=KLAD:[10,7]*.*
RPA1:[10,7]/X=KLAD:[10,701]*.*
^C
;
;
.PLEASE STARTING PART TWO PPRPA1.CTL
;
;PART TWO - READ WRITE SAME DISK
;
.ERROR %
.R CREDIR
RPA1:[10,701]/NAME:TEST2
^C
.IF (ERROR) .GOTO PIP2
;
PIP2::
.ERROR
.R PIP
*RPA1:[10,701]/X=RPA1:[10,7]*.*
^C
;
.PLEASE STARTING PART THREE PPRPA1.CTL
;
;PART THREE - READ WRITE SAME DISK
;
.ERROR %
.R CREDIR
RPA1:[10,7012]/NAME:TEST3
^C
.IF (ERROR) .GOTO PIP3
;
PIP3::
.ERROR
.R PIP
*RPA1:[10,7012]/X=RPA1:[10,701]*.*
^C
;
.PLEASE PPRPA1.CTL COMPLETED
.PLEASE READ PPRPA1.LOG FOR STATUS OF RP07S
;
.SUB PPRPA1[35,1414]/TIME/UNIQ:0/AFTER:+4:00:,/DIS:DEL
%TERR::
.PLEASE ******************************************************
.PLEASE TIMELIMIT EXCEEDED FOR PPRPA1.CTL
.PLEASE ******************************************************
;
%ERR::
.PLEASE ******************************************************
.PLEASE ERROR IN PPRPA1.CTL NOT CONTINUING
.PLEASE ******************************************************
%CERR::
.PLEASE ******************************************************
.PLEASE ERROR IN PPRPA1.CTL NOT CONTINUING
.PLEASE ******************************************************
%FIN::