Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - boots.ctl
There are 2 other files named boots.ctl in the archive. Click here to see a list.
;BOOTS.CTL%002 - 24 SEP 76 - TO CREATE BOOTS.REL FOR USE
; WITH WTBOOT, AND A 96K PAPER-TAPE BOOTS FOR HARDWARE-READ-IN
; FROM THE PAPER TAPE READER OF THE KA AND KI10, AND AN .EXB FILE
; WHICH CAN BE READ FROM DECTAPE OR RP04 ON THE KL10
;
;SUBMIT THIS CONTROL FILE WITH THE COMMAND
;  .QUEUE INP:=BOOTS.CTL/RESTART:1
;
;REQUIRED FILES:
; IN YOUR OWN AREA,
;	BOOTS.MAC
; IN THE STANDARD DISTRIBUTION AREA, [10,7], THE
; LATEST RELEASED VERSIONS OF
;	MACRO
;	CREF
;	TECO
;	DIRECT
;EITHER IN THE STANDARD DISTRIBUTION AREA, [10,7] OR
; ON SYS:, IF ON A KL10, THE LATEEST RELEASED VERSION OF
;	RSXT10
;
; THE OUTPUTS OF THIS CONTROL FILE ARE
;	BOOTS.REL	;USABLE WITH WTBOOT
;	BOOTS CREF LISTING, CORRESPONDING TO THE ABOVE REL FILE
;	PAPER TAPE OF 96K ABSOLUTE BOOTS, IN PDP10 HRI(RIM10B) FORMAT
;	BT256K.EXB	;LOADABLE BY THE KL10 FRONT END FROM DECTAPE OR RP04
;
;
;THE FOLLOWING ASSEMBLY INSTRUCTIONS ARE EXTRACTED FROM BOOTS.MAC
;
;;ASSEMBLY INSTRUCTIONS:
;;1. TO MAKE LOCATION INDEPENDENT VERSION FOR LOADING WITH WTBOOT PROGRAM
;;	ASSEMBLE WITH NO SPECIAL SYMBOL DEFINITIONS.
;;2. TO MAKE ABSOLUTE PAPER TAPE VERSION, DEFINE CORE TO BE:
;;	40000	FOR 16K
;;	100000	FOR 32K
;;	140000	FOR 48K
;;	200000	FOR 64K
;;	240000	FOR 80K
;;	300000	FOR 96K, ETC
;;
;;	.MAKE FTBOOT.MAC
;;	ICORE=40000
;;	$$
;;	EX$$
;;	.R MACRO
;;	PTP:_FTBOOT,BOOTS
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=BOOTS.MAC,MACRO.*[10,7],TECO.*[10,7],CREF.*[10,7],RSXT10.*[10,7]
.GOTO A
A:.
;MAKE BOOTS.REL FOR WTBOOT AND THE CREF LISTING
.RUN DSK:MACRO[10,7]
*BOOTS,/C_BOOTS
.RUN DSK:CREF[10,7]
*LPT:BOOTS_
;NOW MAKE THE PAPER TAPE OF 96 K BOOTS
.RUN DSK:TECO[10,7]
*EWFTBOOT.MACI
CORE=300000		;MODIFY THIS LINE FOR OTHER SIZES
*EX
.RUN DSK:MACRO[10,7]
*PTP:BOOTS_FTBOOT,BOOTS
;THIS OBJECT PROGRAM BEING AN EXEC MODE BOOTSTRAP, THERE IS
;NO WAY TO TEST IT UNDER BATCH, SO WE LET THAT PASS.
;NOW MAKE A 256K .EXB FILE FOR A KL10
.RUN DSK:TECO[10,7]
*EWFTBOOT.MACI
FTKL10==1		;ASSEMBLE BOOTS FOR A KL10
CORE==1000000		;CHANGE FOR DIFFERENT SIZES
EX
.RUN DSK:MACRO[10,7]
*BT256K_FTBOOT,BOOTS
.RUN DSK:LINK[10,7]
*BT256K/SAVE=BT256K/GO
.RUN DSK:RSXT10[10,7]
.IF(NOERROR) .GOTO B
.RUN STD:RSXT10
..IF(ERROR) .GOTO C
B:*CONVERT BT256K.SAV BT256K.EXB
;
;TELL THE OPR WE WERE SUCCESSFUL
.PLEASE BOOTS SUCCESSFUL
;DELETE THE FTBOOT FILE, WHICH IS EXTRANEOUS NOW
C::
.DELETE FTBOOT.MAC,BT256K.REL,BT256K.SAV