Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
frs.ctl
There are no other files named frs.ctl in the archive.
;JOB %1(1) TO MAKE FRS.SHR FROM FRS.MAC
;SUBMIT WITH COMMAND .SUBMIT FRS/RESTART:1/UNIQ:0/TIME:1::
;
;REQUIRED FILES: (LATEST RELEASED VERSIONS)
;[10,7] MACRO.SHR
; CREF.SHR
; LINK.SHR
; LNK???.SHR
; PIP.SHR
; DIRECT.SHR
;[SELF] FC.MAC
; FMTREC.MAC
; FRS.MAC
; ENDECR.MAC
; FRS.RNO
;OUTPUT FILES:
; FRS.REL
; ENDECR.REL
; FRS.SHR
;OUTPUT LISTINGS:
; FRS CREF LISTING
; FRS.LOG
; FRS.DOC
;
.SET WATCH VERSION
;COPY FILES FROM [10,7] AND USE PRIVATE "SYS:"
.RUN DSK:PIP[10,7]
*DSK:(XB)_[10,7]PIP.SHR,MACRO.SHR,CREF.SHR,LINK.SHR,LNK???.SHR,DIRECT.SHR
;
.ASSIGN DSK:SYS:
;
.R MACRO
*FRS,FRS/C/G=FC,FMTREC,FRS
*ENDECR,ENDECR/C/G=ENDECR
;
.R LINK
*FRS,ENDECR/GO
.SSAVE FRS
.DEASSIGN
;PRODUCE CREF LISTING
.ASSIGN DSK LPT
.CREF
*FRS
*ENDECR
.COPY FRS.TMP=FRS.RNO
.RUN RUNOFF[10,7]
*FRS.TMP
*FRS.DOC
.DEASSIGN
;NOW GET CHECKSUMMED DIRECTORIES OF ALL FILES
.R DIRECT[10,7]
*TTY:=/CHECKSUM FRS.CTL,*.MAC,*.REL,*.SHR,FRS.RNO,FRS.DOC
.MOUNT DTA:FRS/VID:'FRS SUBMISSION TAPE'/WE
.R PIP[10,7]
*FRS:/X/B=FRS.SHR
.DIRECTORY FRS:
.DEASSIGN
.PLEASE OPR - GET DIRECTORY OF DTA:FRS AND DISMOUNT
.PLEASE FRS SUCCESSFUL
;
;REMOVE ALL TEMPORARY FILES
%FIN: .DELETE MACRO.SHR,CREF.SHR,PIP.SHR,DIRECT.SHR,LINK.SHR,LNK???.SHR
.IF (ERROR) ;DON'T CARE IF FAILED
.DELETE *.TMP,*.REL
;
PRINT /DISP:RENAME FRS.LST,ENCECR.LST,FRS.LOG/DISP:DELETE,/COPIES:3 FRS.DOC
.K/F