Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

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