Google
 

Trailing-Edge - PDP-10 Archives - ap-c796e-sb - chain.ctl
There are no other files named chain.ctl in the archive.
;JOB%1(16) TO MAKE CHAIN.REL FROM CHAIN.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=CHAIN/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	CREF.SHR
;[SELF]	CHAIN.MAC
;
;OUTPUT FILE:
;	CHAIN.REL
;OUTPUT LISTINGS:
;	CHAIN  CREF LISTING
;	CHAIN.LOG
;
;
;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],CREF.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=*.MAC+*.REL
;****HERE INCLUDE OTHER SUBROUTINES AND THERE CHECKSUM****
;*****EXAMPLES ARE SCANER,QUEUER ETC                 *****
.ASSIGN DSK: SYS:
;
;COMPIL AND PRODUCE CREF FILE
.COMPILE /CREF /COMPILE CHAIN.MAC
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=CHAIN.REL
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE CHAIN SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE MACRO.SHR,COMPIL.SHR,CREF.SHR,PIP.SHR
.IF (ERROR) ;DON'T CARE IF FAILED