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