Trailing-Edge
-
PDP-10 Archives
-
scratch
-
10,7/unscsp/montst/pario.ctl
There are 5 other files named pario.ctl in the archive. Click here to see a list.
;PARIO.CTL %010 CREATE AND RUN PARIO.SCP TO TEST PARALLEL DISK
;I/O ON DSKB AND DSKC.
;2 DECEMBER 71 P WHITE MODIFIED 4 AUG 77 SM LIBMAN
;
.GOTO SKIP
SCP::
!;; PARIO.SCP - SCRIPT TO TEST PARALLEL IO ON DSKB AND DSKC - %010
!;; T. HASTINGS/TH/PFC/PW/SML 4 AUG 77
!;;FOR 603 MONITOR
!IORFS ;;KILL ALL RESPONSE DELAYS
LOGIN
4,777#
!Q
TEST#
!XIN
!;;RUN IN VM IF POSSIBLE
!Q
R SETVM
!;;CHECK VERSION NUMBER
GET SYS:PIP
VERSION
ZERO DSK:
R PIP 8
DSKC:A/B_SYS:MACRO.*
DSKB:B/B_SYS:MACRO.*
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
A_A
B_B
A_B
B_A
^C
KJOB/D/D
!XOUT
SKIP::
;RUN VIRTUALLY IF WE CAN
.R SETVM
.IF (ERROR) ;IGNORE
.R TECO
=ERPARIO.CTL
*_SCP::
=0,.K
=EWPARIO.SCP
=NSKIP::0L
=.,ZKPWEF
;
;END OF FILE PARIO.SCP. NOW RUN IT, 5 JOBS
;
.R SCRIPT
*PARIO
.CON
*5
*
*PARIO
*PARIO
*
*
*
*Y
*N
*Y
.IF (ERROR) .GOTO B
.PLEASE PARIO SUCCESSFUL
.DELETE PARIO.WCH
.DELETE PARIO.SCP
.GOTO A
B::
.PLEASE ERROR RUNNING PARIO
.QUEUE PARIO.WCH/DISPOSE:DELETE
A::
%FIN:
.NOERROR
.DELETE PARIO.SCP