Google
 

Trailing-Edge - PDP-10 Archives - cust_sup_cusp_bb-x130c-sb - 10,7/unscsp/lodtst/perfor.ctl
There are 5 other files named perfor.ctl in the archive. Click here to see a list.
;JOB%(1) PERFOR.CTL [CONTROL FILE TO BUILD SCHEDULER PERFORMANCE PACKAGE]
; FEBRUARY 1977
;SUBMIT WITH COMMAND .SUBMIT PERFOR/RESTART:1
;
START::
.CHKPNT START
;
;REMOVE UNNECESSARY FILES LEFT FROM PREVIOUS RUNS OF THIS .CTL FILE.
.DELETE LINES.EXE,LINES.REL,LNSRPT.EXE,LNSRPT.REL,EXIST.REL,SIMP1.EXE
.IF (ERROR)
.DELETE SIMP1.REL,GRAPH1.REL,GRAPH1.EXE
.IF (ERROR)
;REQUIRED FILES (LATEST RELEASED VERSIONS)
;DEC:	PIP.EXE
;	DIRECT.EXE
;	COMPILE.EXE
;	MACRO.EXE
;	LNK???.EXE
;	LINK.EXE
;	CREF.EXE
;	FOROTS.EXE
;	FORTRA.EXE
;	FORTB.EXE
;	FORTC.EXE
;	FORTD.EXE
;	FORTE.EXE
;	FORTF.EXE
;	FORTG.EXE
;OUTPUT FILES
;	LINES.EXE
;	LNSRPT.EXE
;	SIMP1.EXE
;	GRAPH1.EXE
;OUTPUT LISTINGS
;	LINES.LST
;	LNSRPT.LST
;	SIMP1.LST
;	GRAPH1.LST
;FILES TO BE SHIPPED
;	PERFOR.CTL
;	LINES.MAC
;	LINES.EXE
;	LNSRPT.FOR
;	EXIST.MAC
;	GRAPH1.FOR
;	SIMP1.FOR
;
;MAKE A DIRECTORY OF ALL REQUIRED FILES (LATEST RELEASED VERSIONS)
.R DIRECT
*TTY:/CHECKSUM=DEC:PIP.EXE,DIRECT.EXE,COMPILE.EXE,MACRO.EXE,LNK???.EXE,-
*LINK.EXE,CREF.EXE,FOROTS.EXE,FORTRA.EXE,FORTB.EXE,FORTC.EXE,FORTF.EXE,-
*FORTE.EXE,FORTF.EXE,FORTG.EXE
.DIRECT /CHECKSUM LINES.MAC,LNSRPT.FOR,EXIST.MAC,SIMP1.FOR,GRAPH1.FOR
;
;
COMPL::
.CHKPNT COMPL
;
;
;GET FIELD IMAGE SOFTWARE
.ASSIGN DEC SYS
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (ERROR) ;IF TINY MONITOR
;
.ERROR %
.ASSIGN DSK LPT
;
.LOAD LINES.MAC/CREF
.NSAVE LINES
.VERSION
.IF(ERROR).E 137
.CREF
;
.LOAD /CREF LNSRPT.FOR(KA10)
.NSAVE LNSRPT
.VERSION
.IF(ERROR).E 137
.CREF
;
.LOAD /CREF GRAPH1.FOR(KA10)
.NSAVE GRAPH1
.VERSION
.IF(ERROR).E 137
.CREF
;
.LOAD /CREF SIMP1.FOR(KA10),EXIST
.NSAVE SIMP1
.VERSION
.IF(ERROR).E 137
.CREF
;DELETE INTERMEDIATE FILES
;
.DELETE LINES.REL,LNSRPT.REL,EXIST.REL,SIMP1.REL,GRAPH1.REL
;
.DIRECT /CHECKSUM LINES.EXE,LNSRPT.EXE,SIMP1.EXE,GRAPH1.EXE
.GOTO DONE
;
;IF THIS JOB FAILED, MAKE A ".ERR" FILE ON THE DISK TO LET YOU
; KNOW THAT IT FAILED
ERROR::
%ERR::
%FIN::
;
.COPY PERFOR.ERR=NUL:PERFOR.ERR
.PLEASE PERFORM.CTL FAILED.
DONE::
;END FILE [PERFOR.CTL]