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