Google
 

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