Google
 

Trailing-Edge - PDP-10 Archives - bb-k345a-sb - ttusr1.ctl
There are 5 other files named ttusr1.ctl in the archive. Click here to see a list.
;TTUSR1.CTL  %007   MAKE TTUSER.SCP AND RUN 14 JOBS.  THIS JOB
;IS RUN TOGETHER WITH TTUSR2.CTL WHICH RUNS 14 MORE JOBS OF TTUSER.SCP.
;THIS JOB WAITS FOR FILE TTUSR2.XXX TO BE CREATED ON DSK BY 
;TTUSR2.CTL, THEN MAKES AND RUNS THE SCRIPT.  TTUSR2.CTL WAITS FOR
;TTUSER.SCP
;4 AUG 77    P WHITE/SML
;
;WAIT FOR TTUSR2.CTL TO MAKE FILE TTUSR2.XXX
;
.GOTO MAKE
WAITT::
	MLON
START:	INIT	1,0
	SIXBIT	/DSK/
	0,,0
	JRST	SLP

	LOOKUP	1,[SIXBIT /TTUSR2/
		   SIXBIT /XXX/
		   0
		   0]
	JRST	SLP1

	EXIT

SLP:	MOVEI	1,1
	JRST	.+2
SLP1:	MOVEI	1,2
	MOVEI	2,3	;;SLEEP FOR 3 SEC OCTAL
	SLEEP	2,
	JRST	START

	END	START
MAKE::
;RUN IN VM IF POSSIBLE
.R SETVM
.IF (ERROR)   ;IGNORE
.R TECO
=ERTTUSR1.CTL
*_WAITT::
=0,.K
=EWWAITTT.MAC
=NMAKE::0L
=.,ZKPWEF
.EXECUTE WAITTT
; CREATE THE SCRIPT
;
.GOTO SKIP
SCP::
!;;TTUSER.SCP  SCRIPT TO USE UP TTY CHUNKS  %007
!;;P WHITE/SML   4 AUG 77
!IOFRS
LOGIN
4,777#
!Q
TEST#
!XIN
!;; RUN IN VM IF WE CAN
!Q
R SETVM
R BASIC
NEW
TTUSER
10	FOR X=1 TO 1000
20	PRINT X
30	NEXT X
50	END
RUN
SYSTEM
^C
R PIP
DSK:/Z_
^C
KJOB/K
!XOUT
SKIP::
.R TECO
=ERTTUSR1.CTL
*_SCP::
=0,.K
=EWTTUSER.SCP
=NSKIP::0L
=.,ZKPWEF
;
;END OF FILE TTUSER.SCP.  RUN 14 JOBS.  TTUSR2.CTL WILL START 14 MORE
;
.R SCRIPT
*TTUSER
.CONT
*14
*
*TTUSR1
*TTUSR1
*
*
*
*Y
*N
*Y
.IF (ERROR)  ;WCH FILE IS TOO LONG TO LIST
%FIN:
.NOERROR
.DELETE TTUSER.SCP