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

; VERSION 1(2) OF DELFIL.CTL
;JOB TO MAKE DELFIL.SAV FROM DELFIL.MAC
;SUBMIT WITH COMMAND .QUEUE I:=DELFIL/RESTART:1
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LOADER.SHR
;	JOBDAT.REL
;	CREF.SHR
;[SELF]	DELFIL.MAC
;
;OUTPUT FILES:
;	DELFIL.SAV
;
;OUTPUT LISTINGS:
;	DELFIL CREF LISTING
;	DELFIL MAP LISTING
;	DELFIL.LOG
;	DLLDOC.LST	; DOC FILE LISTING
;	DLLHLP.LST	; HELP FILE LISTING
;
;	COPY FILES FROM [10,7] AND MAKE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7],LOADER.SHR[10,7]
*/X_DSK:JOBDAT.REL[10,7],CREF.SHR[10,7]
;	LOG WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR
.GOTO A
A:.ASSIGN DSK: SYS:
;	COMPILE, LOAD, SAVE, PRODUCE MAP AND CREF FILES
.LOAD /MAP:LPT:DELFIL /CREF /COMPILE DELFIL
.SAVE DSK:DELFIL
.VERSION
.IF (ERROR) .E 137
;	TRY IT
.RUN DSK:DELFIL
*/H
;	PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
; PRODUCE LISTING OF THE HELP FILE
.RU DSK:PIP[10,7]
*DSK:DLLHLP.LST_DELFIL.HLP
*DSK:DLLDOC.RNO_DSK:DLL???.RND
; PRODUCE LISTING OF THE DOC FILE
.RU DSK:RUNOFF[10,7]
*DLLDOC
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=DSK:DELFIL.SAV+DELFIL.MAC+DLL???.RND+DELFIL.CTL+DELFIL.HLP
.PLEASE DELFIL SUCCESSFUL
;	REMOVE ALL TEMPORARY FILES
%FIN: .DELETE DELFIL.REL,DLLDOC.RNO
.IF (ERROR) ;IGNORE FAILURE
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL,MACRO.SHR,LOADER.SHR,CREF.SHR