Trailing-Edge
-
PDP-10 Archives
-
BB-FI82B-DD_1989
-
35,1414/pprpb1.ctl
There are no other files named pprpb1.ctl in the archive.
;SUB PPRPB1.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 PPRPB1.CTL
;
.ERROR %
.R CREDIR
RPB1:[10,7]/NAM:TEST
^C
.IF (ERROR) .GOTO PIP
;
;
PIP::
.ERROR
.R PIP
RPB1:[10,7]/X=KLAD:[10,7]*.*
RPB1:[10,7]/X=KLAD:[10,701]*.*
^C
;
;
.PLEASE STARTING PART TWO PPRPB1.CTL
;
;PART TWO - READ WRITE SAME DISK
;
.ERROR %
.R CREDIR
RPB1:[10,701]/NAME:TEST2
^C
.IF (ERROR) .GOTO PIP2
;
PIP2::
.ERROR
.R PIP
*RPB1:[10,701]/X=RPB1:[10,7]*.*
^C
;
.PLEASE STARTING PART THREE PPRPB1.CTL
;
;PART THREE - READ WRITE SAME DISK
;
.ERROR %
.R CREDIR
RPB1:[10,7012]/NAME:TEST3
^C
.IF (ERROR) .GOTO PIP3
;
PIP3::
.ERROR
.R PIP
*RPB1:[10,7012]/X=RPB1:[10,701]*.*
^C
;
.PLEASE PPRPB1.CTL COMPLETED
.PLEASE READ PPRPB1.LOG FOR STATUS OF RP07S
;
.SUB PPRPB1[35,1414]/TIME/UNIQ:0/AFTER:+4:00:,/DIS:DEL
%TERR::
.PLEASE ******************************************************
.PLEASE TIMELIMIT EXCEEDED FOR PPRPB1.CTL
.PLEASE ******************************************************
;
%ERR::
.PLEASE ******************************************************
.PLEASE ERROR IN PPRPB1.CTL NOT CONTINUING
.PLEASE ******************************************************
%CERR::
.PLEASE ******************************************************
.PLEASE ERROR IN PPRPB1.CTL NOT CONTINUING
.PLEASE ******************************************************
%FIN::