Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;DTBOOT.CTL%001 - 05 OCT 71 - TO CREATE DTBOOT.REL FOR USE
; WITH "COPY", AND A 64K PAPER-TAPE DTBOOT FOR HARDWARE-READ-IN
; FROM THE PAPER TAPE READER OF THE PDP-10
;
;SUBMIT THIS CONTROL FILE WITH THE COMMAND
;  .QUEUE INP:=DTBOOT.CTL/RESTART:1
;
;REQUIRED FILES:
; IN YOUR OWN AREA,
;	DTBOOT.MAC
; IN THE STANDARD DISTRIBUTION AREA, [10,7], THE
; LATEST RELEASED VERSIONS OF
;	MACRO.SHR
;	CREF.SHR
;	TECO.SHR
;	DIRECT.SHR
;
; THE OUTPUTS OF THIS CONTROL FILE ARE
;	DTBOOT.REL	;USABLE WITH "COPY"
;	DTBOOT CREF LISTING, CORRESPONDING TO THE ABOVE REL FILE
;	PAPER TAPE OF 64K ABSOLUTE DTBOOT, IN PDP10 HRI(RIM10B) FORMAT
;
;
;THE FOLLOWING ARE THE MANUAL ASSEMBLY INSTRUCTIONS FOR DTBOOT
;
;ASSEMBLY INSTRUCTIONS:
;1. TO MAKE REL VERSION FOR LOADING WITH "COPY" PROGRAM
;	ASSEMBLE WITH PARAMETER "REL" = 1
;	AND NO ASSIGNMENT TO "CORE"
;
;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 90K, ETC
;	AND NO ASSIGNMENT TO "REL"
;
;	.R MACRO
;	PTP:_FTBOOT,DTBOOT
;
;	WHERE FTBOOT.MAC HAS BEEN PREPARED WITH ASSIGNMENTS TO
;	PARAMETERS "CORE" AND "REL" AS APPROPRIATE
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=DTBOOT.MAC,MACRO.SHR[10,7],TECO.SHR[10,7],CREF.SHR[10,7]
.GOTO A
A:.
;MAKE DTBOOT.REL FOR "COPY" AND THE CREF LISTING
.RUN DSK:TECO[10,7]
*EWFTBOOT.MACI
*REL==1		;SET FOR REL ASSEMBLY
*EX
.RUN DSK:MACRO[10,7]
*DTBOOT,/C_FTBOOT,DTBOOT
.RUN DSK:CREF[10,7]
*LPT:DTBOOT_
;NOW MAKE THE PAPER TAPE OF 64 K DTBOOT
.RUN DSK:TECO[10,7]
*EWFTBOOT.MACI
CORE=200000		;MODIFY THIS LINE FOR OTHER SIZES
*EX
.RUN DSK:MACRO[10,7]
*PTP:DTBOOT_FTBOOT,DTBOOT
;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 DTBOOT SUCCESSFUL
;DELETE THE FTBOOT FILE, WHICH IS EXTRANEOUS NOW
.DELETE FTBOOT.MAC