Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - dxld.ctl
There are 2 other files named dxld.ctl in the archive. Click here to see a list.
;JOB%1(10) - 18 AUG 75 - TO CREATE BOOTM.RDI FOR USE
; WITH TU70 HARDWARE READ-IN.
;
;SUBMIT THIS CONTROL FILE WITH THE COMMAND
;  .SUBMIT DXLD.CTL/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LINK.SHR
;	LNKSCN.SHR
;	LNKLOD.SHR
;	LNKMAP.SHR
;	LNKXIT.SHR
;	LNKERR.SHR
;	LNK999.SHR
;	CREF.*
;	DXMPA.BIN
;[SELF]	DXLD.MAC
;	BOOTM.REL
;
;OUTPUT FILE:
;	BOOTM.RDI FOR TU70 READ-IN TAPE
;OUTPUT LISTINGS:
;	DXLD  CREF LISTING
;	DXLD.LOG
;	DXLD  LOADING MAP
;
;
;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]
*/X=CREF.*[10,7],DXMPA.BIN[10,7]
*/X_DSK:LINK.SHR[10,7],LNKLOD.SHR[10,7],LNKSCN.SHR[10,7]
*/X_DSK:LNKMAP.SHR[10,7],LNKXIT.SHR[10,7],LNKERR.SHR[10,7],LNK999.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+*.BIN
.ASSIGN DSK: SYS:
;
;COMPILE AND LOAD DXLD
.COMPILE /CREF/COMP DXLD
.R LINK
*LPT:DXLD/MAP,DSK:DXLD.SAV/SAVE=
*DXLD.REL,BOOTM.REL
*/GO
.GET DSK:DXLD
.VERSION
.IF (ERROR) .E 137
;
.ASSIGN DSK:OUT
.RUN DSK:DXLD
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=DXLD.SAV+DXLD.CTL+BOOTM.RDI
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE DXLD SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE DXLD.REL,MACRO.SHR,LINK.SHR,CREF.*
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE LNK???.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,DXMPA.BIN