Google
 

Trailing-Edge - PDP-10 Archives - de-10-omona-v-mc9 - fildae.ctl
There are 2 other files named fildae.ctl in the archive. Click here to see a list.
;CONTROL FILE
;TO MAKE FILDAE.EXE FROM FILDAE.MAC, VERSION X(Y), 11-MAR-77.
;SUBMIT WITH COMMAND .SUBMIT FILDAE/RESTART:1
;
START::
.CHKPNT START	;
;
;REMOVE UNNECESSARY FILES LEFT FROM PREVIOUS RUNS OF THIS .CTL FILE.
.DELETE FILDAE.ERR,FILDAE.EXE,FILDAE.MAP,FILDAE.REL
.IF (ERROR) ;OKAY, THOSE FILES MAY NOT BE THERE.
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;DEC:	PIP.EXE
;	DIRECT.EXE
;	COMPIL.EXE
;	MACRO.EXE
;	LNK???.EXE
;	LINK.EXE
;	HELPER.REL
;	SCAN.REL
;	UUOSYM.UNV
;	MACTEN.UNV
;	SCNMAC.UNV
;	FILDAE.MAC	[SELF]
;
;OUTPUT FILE:
;	FILDAE.EXE
;
;OUTPUT LISTINGS:
;	FILDAE.MAP
;	FILDAE.LST	[FILDAE LISTING]
;	FILDAE.LOG
;
;FILES TO BE SHIPPED
;	FILDAE.CTL
;	FILDAE.DOC
;	FILDAE.EXE
;	FILDAE.MAC
;	FILDAE.RND
;
;
;MAKE A DIRECTORY OF REQUIRED FILES (LATEST RELEASED VERSIONS).
.R DIRECT
*TTY:/CHECKSUM=DEC:PIP.EXE,DIRECT.EXE,COMPIL.EXE,MACRO.EXE,LNK???.EXE
*TTY:/CHECKSUM=DEC:LINK.EXE,HELPER.REL,SCAN.REL,UUOSYM.UNV,MACTEN.UNV,SCNMAC.UNV,CREF.EXE
;
;
COMPL::
.CHKPNT COMPL	;
;
;
;GET FIELD IMAGE SOFTWARE.
.ASSIGN DEC SYS
;
.ASSIGN DEC REL
;
.ASSIGN DEC UNV
;
;MAKE A RECORD OF WHAT IS BEING USED.
.SET WATCH VERSION
.IF (ERROR) ;OKAY WE MAY BE ON A KA-10.
;
.ERROR %	;FLAG "% ERRORS".
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND FILDAE FILE.
.R MACRO
*FILDAE,FILDAE/C=FILDAE
.IF (ERROR) .GOTO ERROR:
;
.R LINK
*FILDAE/MAP = /SEGMENT:LOW FILDAE, SCAN, HELPER
.IF (ERROR) .GOTO ERROR:
.NSSAVE DSK:FILDAE
.GET DSK:FILDAE
.VERSION
.IF (ERROR) .E 137
.ERROR
;
;SHOULD TRY IT HERE BUT IT REQUIRES PRIVILEGES
.R DIRECT
*TTY:/CHECKSUM=DSK:FILDAE.EXE
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR.
.ASSIGN DSK:LPT		;PUT ".LST" FILE ON DISK.
.R CREF
*FILDAE
.PLEASE FILDAE SUCCESSFUL.	;NOTIFY THE OPERATOR.
.DEASSIGN	;DEASSIGN ALL LOGICAL NAMES.
;
;REMOVE TEMPORARY FILES.
.DELETE FILDAE.REL
.KJOB/F
;
;
;IF THIS JOB FAILED, MAKE A ".ERR" FILE ON THE DISK TO LET YOU
; KNOW THAT IT FAILED.
ERROR::
%ERR::
%FIN::
;
.R TECO
*EWFILDAE.ERREX
.PLEASE FILDAE FAILED.	;NOTIFY THE OPERATOR.
;END FILE [FILDAE.CTL]