Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
dmpfil.ctl
There are no other files named dmpfil.ctl in the archive.
;JOB%1(16) TO MAKE DMPFIL.SAV FROM DMPFIL.MAC
;SUBMIT WITH COMMAND .SUBMIT DMPFIL/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] DMPFIL.MAC
;
;OUTPUT FILE:
; DMPFIL.SAV
;OUTPUT LISTINGS:
; DMPFIL MAP
; DMPFIL CREF LISTING
; DMPFIL.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]
*/X=DSK:LINK.SHR[10,7],LNK???.SHR[10,7]
*/X=DSK: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=*.SAV+*.SHR+*.HLP
.GOTO A
A::.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=*.MAC+*.REL
;
;****HERE INCLUDE OTHER SUBROUTINES AND THEIR CHECKSUM****
;*****EXAMPLES ARE SCANER,QUEUER ETC *****
;
.ASSIGN DSK: SYS:
;
;COMPILE, LOAD, AND SAVE; PRODUCING MAP AND CREF FILE
.LOAD /MAP:LPT:DMPFIL /CREF /COMPILE DMPFIL.MAC
.SSAVE DSK:DMPFIL
.VERSION
.IF (ERROR) .E 137
;
;TRY IT JUST TO MAKE SURE IT WORKS
.RUN DSK:DMPFIL
.RUN DSK: DIRECT[10,7]
*TTY:/CHECKSUM=DMPFIL.SHR+DMPFIL.LOW+DMPFIL.SAV
;
;PRODUCE SOURCE LISTING AND TELL OPERATOR
.CREF
.PLEASE DMPFIL SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE DMPFIL.REL,MACRO.SHR,LINK.SHR,LNK???.SHR,CREF.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE COMPIL.SHR,PIP.SHR,JOBDAT.REL