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

;JOB%1(20) TO MAKE DIRECT.SHR FROM DIRECT.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=DIRECT/RESTART:1
;
;THIS CONTROL FILE IS PROVIDED FOR INFORMATION PURPOSES ONLY.  THE
;PURPOSE OF THE FILE IS TO DOCUMENT THE PROCEDURES USED TO BUILD
;THE DISTRIBUTED SOFTWARE.  IT IS UNLIKELY TO BE ABLE TO BE EXECUTED
;WITHOUT MODIFICATION ON OTHER SYSTEMS.  IN PARTICULAR, ATTENTION
;SHOULD BE GIVEN TO ERSATZ DEVICES AND STRUCTURE NAMES, PPN'S AND
;OTHER SUCH SYSTEM PARAMETERS.  SUBMIT TIMES MAY VARY DEPENDING ON
;CONFIGURATION AND LOAD.  THE AVAILABILITY OF SUFFICIENT DISK SPACE
;AND CORE IS MANDATORY.  THIS CONTROL FILE HAS NOT BEEN EXTENSIVELY
;TESTED ON ALTERNATE CONFIGURATIONS.  IT HAS BEEN USED SUCCESSFULLY
;FOR THE PURPOSE FOR WHICH IT IS INTENDED: TO BUILD THE DISTRIBUTED
;SOFTWARE.
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LINK.SHR
;	LNK???.SHR
;	JOBDAT.REL
;	CREF.SHR
;	CREF.LOW
;	C.UNV
;	SCNMAC.MAC
;	HELPER.REL
;
;[SELF]	DIRECT.CTL
;	DIRECT.MAC
;	DRT5.RND
;	DIRECT.RNH
;	SCN7B.REL
;	WLD7A.REL
;
;OUTPUT FILE:
;	DIRECT.LOG
;	DIRECT.SHR
;	DIRECT.DOC
;	DIRECT.HLP
;OUTPUT LISTINGS:
;	DIRECT  MAP
;	DIRECT  CREF LISTING
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7],LINK.SHR[10,7]
*/X_DSK:JOBDAT.REL[10,7],CREF.LOW[10,7],CREF.SHR[10,7],C.UNV[10,7],SCNMAC.MAC[10,7]
*/X_DSK:HELPER.REL[10,7],LNK???.SHR[10,7]
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR
.GOTO A
A:.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=C.UNV+SCNMAC.MAC+DIRECT.MAC+SCN7B.REL+WLD7A.REL+HELPER.REL+JOBDAT.REL
.ASSIGN DSK: SYS:
;MAKE TMP FILE TO FORCE C AND SCNMAC
.COPY U.TMP=TTY:
	%.C==-3

;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.COMPILE /CREF /COMPILE U.TMP+SCNMAC.MAC,DIRECT.MAC
.LOAD/LINK /MAP:LPT:DIRECT DIRECT.REL,SCN7B.REL,HELPER.REL,WLD7A.REL %"CONT:ZERO"
.OSSAVE DSK:DIRECT
.VERSION
.IF (ERROR) .E 137
;
.RUN DSK:RUNOFF[10,7]
*DIRECT.DOC=DRT5.RND
*DIRECT.HLP=DIRECT.RNH
.
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:DIRECT
*/HELP
*TTY:/CHECKSUM=DIRECT.SHR+DIRECT.HLP+DIRECT.CTL+DRT???.RND
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE DIRECT SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE DIRECT.REL,MACRO.SHR,LINK.SHR,CREF.LOW,CREF.SHR,C.UNV,SCNMAC.MAC
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE U.TMP,SCNMAC.REL,SCNMAC.UNV,SCNMAC.LST
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL,HELPER.REL,LNK???.SHR