Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
queuer.ctl
There are no other files named queuer.ctl in the archive.
;JOB%1(20) TO MAKE QUEUER.REL FROM QUEUER.MAC
;SUBMIT WITH COMMAND .QUEUE I:=QUEUER/RESTART:1
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] PIP.SHR
; DIRECT.SHR
; COMPIL.SHR
; MACRO.SHR
; CREF.SHR
;[SELF] QUEUER.MAC
; QUR4.RND
;
;OUTPUT FILE:
; QUEUER.REL
;
;OUTPUT LISTINGS:
; QUEUER CREF LISTING
; QUEUER.LOG
; QUEUER.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],CREF.SHR[10,7],DIRECT.SHR[10,7]
;
.ASSIGN DSK: SYS:
;
;COMPILE; PRODUCING CREF FILE
.COMPILE /CREF /COMPILE QUEUER.MAC
;MAKE SURE .REL FILE PRODUCED
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=QUEUER.REL,QUEUER.MAC,QUEUER.CTL,QUR4.RND
;
;PRODUCE CREF LISTING
.ASSIGN DSK LPT
.CREF
.COPY QUEUER.TMP=QUR4.RND
.RUN RUNOFF[10,7]
*QUEUER.TMP
*QUEUER.DOC
;
.DEASSIGN
.MOUNT DTA:QUEUER/VID:'QUEUER SUBMISSION TAPE'/WE
.IF (ERROR) .GOTO NOTAP
.ZERO QUEUER:
.LABEL QUEUER:QUEUER
.COPY QUEUER:=QUEUER.CTL,QUEUER.MAC,QUR4.RND,QUEUER.REL
.DIRECTORY QUEUER:
.DEASSIGN
.PLEASE OPR - GET A DIRECTORY OF DTA:QUEUER AND DISMOUNT
NOTAP::
.PLEASE QUEUER SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE MACRO.SHR,CREF.SHR,COMPIL.SHR,PIP.SHR,DIRECT.SHR,QUEUER.TMP
.IF (ERROR) ;DON'T CARE IF FAILED
;
.PRINT /DISP:RENAME QUEUER.LST,QUEUER.LOG/DISP:DELETE,/COPIES:3 QUEUER.DOC
;
.K/F