Trailing-Edge
-
PDP-10 Archives
-
dec-10-omona-u-mc9
-
bootdx.ctl
There are 2 other files named bootdx.ctl in the archive. Click here to see a list.
;JOB%1(13) TO MAKE BOOTDX.EXE FROM BOOTDX.MAC
;SUBMIT WITH COMMAND .QUEUE I:=BOOTDX/RESTART:1
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] PIP
; DIRECT
; COMPIL
; MACRO
; LINK
; LNKSCN
; LNKLOD
; LNKMAP
; LNKXIT
; LNKERR
; LNK999
; JOBDAT.REL
; HELPER.REL
; CREF
;[SELF] BOOTDX.MAC
; BOOTDX.HLP
; BOOTDX.DOC
;
;OUTPUT FILE:
; BOOTDX.EXE
;OUTPUT LISTINGS:
; BOOTDX MAP
; BOOTDX CREF LISTING
; BOOTDX.LOG
;
;
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.*
.GOTO A
A:.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=*.MAC+*.REL
;BOOTDX WILL NOT ASSEMBLE WITH MACRO 50A, USE V52
.R SETSRC
*NEW
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.COMPILE /CREF /COMPILE BOOTDX.MAC
;USE FIELD-IMAGE SOFTWARE FOR REST OF IT
.ASSIGN DEC: SYS:
.R LINK
*BOOTDX/MAP, BOOTDX/SAVE = BOOTDX/GO
*/GO
.GET DSK:BOOTDX
.VERSION
.IF (ERROR) .E 137
;
;CONVERT IT TO AN EXE FILE
NSA DSK:BOOTDX
.IF(NOERROR) .DELETE BOOTDX.SAV
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:BOOTDX
*/H
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=BOOTDX.*
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PRINT BOOTDX.LST
.PLEASE BOOTDX SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE BOOTDX.REL
.IF (ERROR) ;DON'T CARE IF FAILED