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

;JOB%1(16) TO MAKE DTCOPY.SAV FROM DTCOPY.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=DTCOPY/RESTART:1
;
;REQUIRED FILES:  (LATEST RELEASED VERSIONS)
;[10,7]	PIP.SHR
;	DIRECT.SHR
;	COMPIL.SHR
;	MACRO.SHR
;	LINK.SHR
;	LNK???.SHR
;	JOBDAT.REL
;	CREF.SHR
;[SELF]	DTCOPY.MAC
;	DTBOOT.MAC
;
;OUTPUT FILE:
;	DTCOPY.SAV
;OUTPUT LISTINGS:
;	DTCOPY  MAP
;	DTCOPY  CREF LISTING
;	DTCOPY.LOG
;
;
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*/X_DSK:PIP.SHR[10,7],COMPIL.SHR[10,7],MACRO.SHR[10,7],LINK.SHR[10,7]
*/X_DSK:LNK???.SHR[10,7],JOBDAT.REL[10,7],CREF.SHR[10,7]
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR
.GOTO A
A::.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=*.MAC+*.REL
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /LINK /MAP:LPT:DTCOPY /CREF /COMPILE DTCOPY.MAC %%CONTENTS:ZERO%
.SAVE DSK:DTCOPY
.VERSION
.IF (ERROR) .E 137
;
;ASSEMBLE DTBOOT WITH CONDITIONAL SWITCH REL SET TO "1"
;  PRODUCING BSLDR.REL
.RUN DSK:MACRO
*BSLDR.REL,_TTY:,DSK:DTBOOT
REL==1
^Z
^Z
;NOW, MAKE A VERSION WITH A BOOTSTRAP LOADER IN IT
.ASSIGN DSK PTR    ;ASSIGN LOGICAL NAME "PTR" FOR DTCOPY'S "/L" SWITCH
.RUN DSK:DTCOPY
*/L
.SAVE DSK:DTCOPY	;SAVE DTCOPY WITH A BOOTSTRAP LOADER IN IT
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:DTCOPY
*/H

.RU DSK: DIRECT[10,7]
*TTY:/CHECKSUM=DTCOPY.SAV
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE DTCOPY SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE DTCOPY.REL,MACRO.SHR,LINK.SHR,LNK???.SHR,BSLDR.REL
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,CREF.SHR,JOBDAT.REL

;DTCOPY.OPR
;
;TO LOAD TYPE	"LOAD DTCOPY"
;TO SAVE TYPE	"SAVE DTCOPY"
;
;DTCOPY MAY BE LOADED WITH DTBOOT AS FOLLOWS:
;
;		.R MACRO
;		*BSLDR,_TTY:,DSK:DTBOOT
;		*REL==1
;		^Z
;		END OF PASS 1		;TYPED BY MACRO
;		^Z
;
;		.ASSIGN DSK PTR
;		.EXECUTE DTCOPY
;		*/L
;		*^C
;		.SAVE DTCOPY