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

;JOB%1(17) TO MAKE WTBOOT.EXE FROM WTBOOT.MAC
;ALSO MAKES WABOOT.EXE, WIBOOT.EXE, AND WLBOOT.EXE
;SUBMIT WITH COMMAND  .QUEUE I:=WTBOOT/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.EXE
;	DIRECT.EXE
;	COMPIL.EXE
;	MACRO.EXE
;	LINK.EXE
;	LNK???.EXE
;	JOBDAT.REL
;	CREF.EXE
;	TECO.EXE
;[SELF]	WTBOOT.MAC
;	BOOTS.MAC
;
;OUTPUT FILES:
;	WTBOOT.EXE
;	WABOOT.EXE
;	WIBOOT.EXE
;	WLBOOT.EXE
;OUTPUT LISTINGS:
;	WTBOOT  MAP
;	WTBOOT  CREF LISTING
;	WTBOOT.LOG
;
;
;USE FIELD IMAGE SOFTWARE
.ASSIGN DEC SYS
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) ;TOO BAD
.R DIRECT
TTY:/CHECK=DEC:PIP+DIRECT+COMPIL+MACRO+LINK+LNK*+JOBDAT+CREF+TECO
TTY:/CHECKS=*.*
;****HERE INCLUDE OTHER SUBROUTINES AND THEIR CHECKSUM****
;*****EXAMPLES ARE SCANER,QUEUER ETC                 *****
;
;MAKE VERSION OF BOOTS WHICH READS AND WRITES SAVE FILES FROM/TO RP02S/RP03S AND
; FIXED HEAD DISKS
.MAKE BPARAM.MAC
*IFTEXE==0
*FTSAVE==1
*FTFHD==1
*FTDPC==1
*EX
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.COMPILE /COMPILE BPARAM.MAC+BOOTS.MAC
.COMPILE /CREF /COMPILE WTBOOT.MAC
.R LINK
*WTBOOT /SAVE, LPT:WTBOOT/MAP = WTBOOT , BOOTS /GO
.GET DSK:WTBOOT
.VERSION
.IF (ERROR) .E 137
;
NSA DSK:WTBOOT
.IF (NOERROR).DELETE WTBOOT.SAV
.R DIRECT
*TTY:/CHECKSUM=WTBOOT.EXE+BOOTS.REL
;NOW MAKE A BOOTS WHICH READS AND WRITES EXE FILES
;
;ASSEMBLE WTBOOT TO CARRY ON A DIALOGUE WITH THE OPERATOR
.MAKE FTNSWB.MAC
*ISTDWTB==0
*EX
.COMPILE /COMPILE NSWTB=FTNSWB+WTBOOT
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP02S/RP03S ON KA10S OR KI10S
.MAKE FTKADP.MAC
*IFTWTBOOT==0
*FT22BIT==0
*FTDHX==0
*FTKI10==1
*FTKA10==1
*FTKL10==0
*FTFHD==0
*FTDPC==1
*FTSAVE==0
*FTEXE==1
*EX
.COMPILE /COMPILE BTKADP=FTKADP+BOOTS
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP04S ON KA10S OR KI10S
.MAKE FTKADH.MAC
*IFTWTBOOT==0
*FT22BIT==0
*FTDHX==1
*FTKI10==1
*FTKA10==1
*FTKL10==0
*FTFHD==0
*FTDPC==0
*FTSAVE==0
*FTEXE==1
*EX
.COMPILE /COMPILE BTKADH=FTKADH+BOOTS
;NOW MAKE A WTBOOT WHICH ALLOWS THE OPERATOR TO SPECIFY WHICH
; FLAVOR OF BOOTS TO WRITE WHERE (CALL IT WABOOT)
.R LINK
*WABOOT /SAVE = NSWTB, BTKADP, BTKADH /GO
.GET DSK:WABOOT
.VERSION
.IF (ERROR) .E 137
;
NSA DSK:WABOOT
.IF (NOERROR).DELETE WABOOT.SAV
.R DIRECT
*TTY:/CHECKSUM=WABOOT.EXE+NSWTB.REL+BTKADP.REL+BTKADH.REL
.DELETE BTKADP.REL,BTKADH.REL
.IF (ERROR) ;DON'T CARE
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP02S/RP03S ON KI10S ONLY BUT CAN READ OR DUMP MORE THAN 256K
.MAKE FTKIDP.MAC
*IFTWTBOOT==0
*FT22BIT==1
*FTDHX==0
*FTKI10==1
*FTKA10==0
*FTKL10==0
*FTFHD==0
*FTDPC==1
*FTSAVE==0
*FTEXE==1
*EX
.COMPILE /COMPILE BTKIDP=FTKIDP+BOOTS
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP04S ON KI10S ONLY BUT CAN READ OR DUMP MORE THAN 256K
.MAKE FTKIDH.MAC
*IFTWTBOOT==0
*FT22BIT==1
*FTDHX==1
*FTKI10==1
*FTKA10==0
*FTKL10==0
*FTFHD==0
*FTDPC==0
*FTSAVE==0
*FTEXE==1
*EX
.COMPILE /COMPILE BTKIDH=FTKIDH+BOOTS
;NOW MAKE A WTBOOT WHICH ALLOWS THE OPERATOR TO SPECIFY WHICH
; FLAVOR OF BOOTS TO WRITE WHERE (CALL IT WIBOOT)
.R LINK
*WIBOOT /SAVE = NSWTB, BTKIDP, BTKIDH /GO
.GET DSK:WIBOOT
.VERSION
.IF (ERROR) .E 137
;
.NSA DSK:WIBOOT
.IF (NOERROR).DELETE WIBOOT.SAV
.R DIRECT
*TTY:/CHECKSUM=WIBOOT.EXE+NSWTB.REL+BTKIDP.REL+BTKIDH.REL
.DELETE BTKIDP.REL,BTKIDH.REL,NSWTB.REL
.IF (ERROR) ;DON'T CARE
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP04S ON RH10S OR RH20S ON KL10S ONLY
.MAKE FTKLDH.MAC
*IFT22BIT==1
*FTWTBOOT=0
*FTDHX==1
*FTKI10==0
*FTKA10==0
*FTKL10==1
*FTFHD==0
*FTDPC==0
*FTSAVE==0
*FTEXE==1
*EX
.COMPILE /COMPILE BTKLDH=FTKLDH+BOOTS
;PRODUCE A REL FILE FOR BOOTS WHICH READS/WRITES EXE FILES FROM/TO
; RP04S ON RH20S ON KL10S ONLY
MAKE FTKLD2.MAC
*IFT22BIT==1
*FTWTBOOT=0
*FTRH20==1
*FTDHX==1
*FTKI10==0
*FTKA10==0
*FTKL10==1
*FTFHD==0
*FTDPC==0
*FTSAVE==0
*FTEXE==1
*EX
COMPILE /COMPILE BTKLD2=FTKLD2+BOOTS
;NOW MAKE A WTBOOT WHICH WILL CHOOSE THE RIGHT VERSION OF KL BOOTS
MAKE FTWTB.MAC
*IFTKL10==1
*STDWTB=0
*EX
COMPILE /COMPILE W2BOOT=FTWTB.MAC+WTBOOT.MAC
;NOW MAKE A WTBOOT FOR THE KL10 (CALL IT WLBOOT)
;SINCE NO RP10 VERSION OF BOOTS EXISTS FOR A KL10 WHICH CAN FIT IN 1 PAGE
; WE FIRST MAKE A DUMMY FILE TO SATISFY UNDEFINED GLOBAL
.MAKE DUMMY.MAC
*IBTDPSA:: HALT
*	END
*EX
.COMPILE/COMPILE DUMMY
.R LINK
*WLBOOT /SAVE = W2BOOT, BTKLDH, BTKLD2, DUMMY /GO
.GET DSK:WLBOOT
.VERSION
.IF (ERROR) .E 137
;
.NSA DSK:WLBOOT
.IF (NOERROR).DELETE WLBOOT.SAV
.R DIRECT
*TTY:/CHECKSUM=WLBOOT.EXE+BTKLDH.REL
.DELETE BTKLDH.REL,BTKLD2.REL,FTWTB.MAC,FTK???.MAC,DUMMY.*
.IF (ERROR) ;DON'T CARE
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
ASSIGN DSK LPT
.CREF
.PRINT WTBOOT.LST
.PLEASE WTBOOT SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE W?BOOT.REL,BOOTS.REL,BPARAM.MAC,FTNSWB.MAC
.IF (ERROR) ;DON'T CARE IF FAILED