Google
 

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