Trailing-Edge
-
PDP-10 Archives
-
de-10-omona-v-mc9
-
bootm.ctl
There are 2 other files named bootm.ctl in the archive. Click here to see a list.
;JOB%1(10) - 18 AUG 75 - TO CREATE BOOTM.REL FOR USE
; WITH DXLD, AND A PAPER-TAPE BOOTM FOR HARDWARE-READ-IN
; FROM THE PAPER TAPE READER OF THE PDP-10
;
;SUBMIT THIS CONTROL FILE WITH THE COMMAND
; .SUBMIT BOOTM.CTL/RESTART:1
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] PIP
; DIRECT
; LINK
; COMPIL
; MACRO
; CREF
;EITHER IN THE STANDARD DISTRIBUTION AREA, [10,7] OR
; ON SYS:, IF ON A KL10, THE LATEEST RELEASED VERSION OF
; RSXT10
;[SELF] BOOTM.MAC
; BOOTM.DOC
;
;OUTPUT FILE:
; BOOTM.REL FOR USE WITH DXLD (TU70 ONLY).
; BOOTM.EXB FOR USE ON KL10
; PTP:BOOTM BOOTSTRAP ON PAPER-TAPE
;OUTPUT LISTINGS:
; BOOTM CREF LISTING
; BOOTM.LOG
;
;
;USSE PRIVATE SYS:
.ASSIGN DEC SYS
;
;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
;
.MAKE FTBTM.MAC
*I
MAGRIM==0 ;NOT IN MAGRIM FORMAT
*EX
.COMPILE /COMP/CREF BOOTM=FTBTM+BOOTM
;
.CREF
.DELETE FTBTM.MAC
;WE NOW HAVE BOOTM.REL FOR DXLD
;
;NOW MAKE A BOOTM.EXB FOR USE ON A KL10
.RUN DSK:LINK[10,7]
*BOOTM/SAVE=BOOTM/GO
.RUN RSXT10[10,7]
.IF(NOERROR).GOTO A
.RUN STD:RSXT10
.IF(ERROR) .GOTO B
A::
*CONVERT BOOTM.SAV BOOTM.EXB
;WE NOW HAVE A BOOTM.EXB
B::
.DELETE BOOTM.SAV
;NOW MAKE THE PAPER TAPE OF BOOTM
.MAKE FTBTM.MAC
*I
MAGRIM==0 ;NOT IN MAGRIM FORMAT
PTPSW==1 ;PAPER TAPE FORMAT
*EX
.R MACRO
*PTP:BOOTM=FTBTM,BOOTM
;THIS OBJECT PROGRAM BEING AN EXEC MODE BOOTSTRAP, THERE IS
;NO WAY TO TEST IT UNDER BATCH, SO WE LET THAT PASS.
;
;TELL THE OPR WE WERE SUCCESSFUL
.PLEASE BOOTM SUCCESSFUL
;DELETE THE FTBTM FILE, WHICH IS EXTRANEOUS NOW
.DELETE FTBTM.MAC
;REMOVE ALL TEMPORARY FILES
%FIN: .IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL,PIP