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

;JOB %1(17) TO MAKE DUMP.SHR FROM DUMP.MAC
;SUBMIT WITH COMMAND  .QUEUE I:=DUMP/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]	DUMP.MAC
;	DMP???.RND
;	SCAN.REL (VERSION 3 ONLY)
;	SCNMAC.MAC (VERSION 3 ONLY)
;	C.MAC (VERSION 4 ONLY)
;	HELPER.REL
;
;OUTPUT FILE:
;	DUMP.SHR
;
;OUTPUT LISTINGS:
;	DUMP  MAP
;	DUMP  CREF LISTING
;	DUMP.LOG
;	DUMP.DOC
;
;
.SET WATCH VERSION
;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:JOBDAT.REL[10,7],CREF.SHR[10,7],DIRECT.SHR[10,7],LNK???.SHR[10,7]
;
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.R PIP
*T.MAC=TTY:
*	%.C==-3
^Z
.LOAD/LINK /MAP:DUMP /CREF /COMPILE T.MAC+<C.MAC,SCNMAC.MAC>,DUMP.MAC,SCAN.REL,HELPER.REL
.SSAVE DSK:DUMP
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:DUMP
*INPUT DUMP.SHR
*OUT TTY:
*IRADIX 8
*DUMP [402000&402040
*MOD SYM
*DUMP [402000&402040
;
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=DUMP.SHR,DUMP.LOW,DUMP.SAV,DUMP.MAC,DUMP.CTL,DMP???.RND
*TTY:/CHECKSUM=C.MAC,SCNMAC.MAC,SCAN.REL,HELPER.REL,JOBDAT.REL
;
;PRODUCE CREF LISTING
.ASSIGN DSK LPT
.CREF
.COPY DUMP.TMP=DMP???.RND
.RUN RUNOFF[10,7]
*DUMP.TMP
*DUMP.DOC
;
.DEASSIGN
.MOUNT DTA:DUMP/VID:'DUMP SUBMISSION TAPE'/WE
.IF (ERROR)  .GOTO NOTAP
.ZERO DUMP:
.LABEL DUMP:DUMP
.COPY DUMP:=DUMP.CTL,DUMP.MAC,DUMP.SHR,DMP???.RND
.DIRECTORY DUMP:
.DEASSIGN
.PLEASE OPR - GET A DIRECTORY OF DTA:DUMP AND DISMOUNT
NOTAP::
.PLEASE DUMP SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN:.DELETE DUMP.REL,MACRO.SHR,LINK.SHR,CREF.SHR,LNK???.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL,DIRECT.SHR,DUMP.TMP
;
.PRINT /DISP:RENAME DUMP.LST,DUMP.MAP,DUMP.LOG/DISP:DELETE,/COPIES:3 DUMP.DOC
;
.K/F