Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
pal10.ctl
There are 6 other files named pal10.ctl in the archive. Click here to see a list.
; Job %1(1) to make PAL10.SHR from PAL10.MAC
; Submit with command .SUBMIT PAL10/RESTART:1/TIME:10:0/UNIQ:0
; Required files: [10,7] (Latest released versions)
; MACRO.SHR
; LOADER.SHR
; COMPIL.SHR
; JOBDAT.REL
;[SELF] PAL10.MAC
; Output files
; PAL10.SHR
; PAL10.LST
; PAL10.LOG
.PLEASE PAL10 SUBMISSION CONTROL FILE INITIALIZING
; Copy files from [10,7] and use private "SYS:"
.RUN DSK:PIP[10,7]
*DSK:(XB)_[10,7]MACRO.SHR,LOADER.SHR,COMPIL.SHR,JOBDAT.REL
; Make a record of what is being used
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
.RUN DSK:DIRECT[10,7]
*TTY:/CHECKSUM=*.SHR
A::.ASSIGN DSK: SYS:
; Compile, Load, Save, and Testing Section
.LOAD /CREF /COMPILE PAL10
.SSAV DSK:PAL10
; Try it just to make sure it works
.RUN DSK:PAL10
*/H
.IF (ERROR) ; OK, /H is illegal for PAL10 anyway
.DEASSIGN
; Produce source listing
.RUN CREF[10,7]
*DSK:PAL10.LST_PAL10.CRF
;
; Now get checksummed directories of all files
.RU DIRECT[10,7]
*TTY:=/CHECKSUM PAL10.MAC,PAL10.SHR,PAL10.CTL,P10???.RN?,PAL10.HLP
; Submission tape creation routine
.OPERATOR %
.RUN TECO[10,7]
*!AGAIN!
*% PLEASE PAL10.CTL - MAKE A SUBMISSION DECTAPE<YES/NO>?
*HK0UM
*!LOOP!UMQM-13"EOLOOP'QM-27"E10UM'QM-10"NQMIOLOOP'
*BJH-3"E:SYES"SOYES''
*H-2"E:SYE"SOYES':SNO"SONO''
*H-1"E:SY"SOYES':SN"SONO''OAGAIN
*!YES!
*YES, MAKE THE TAPE
*OEND!NO!
*? NO, FORGET MAKING THE TAPE
=!END!
.NOOPERATOR
.IF (ERROR) .GOTO OVER
MAKE::.MOUNT DTA:DEC/VID:'PAL10 SUBMISSION TAPE'/WE
.RU PIP[10,7]
*DEC:^^PAL10^^_/Z
.IF (ERROR) ; OK, we can do without the ID
*DEC:(XB)_DSK:PAL10.MAC,PAL10.SHR,PAL10.CTL
.IF (NOERROR) .GOTO CONT
.PLEASE PAL10 - TROUBLE MAKING SUBMISSION DTA<TRY AGAIN?>
.DEASSIGN
.BACKTO MAKE
CONT::.DIR DEC:
.PLEASE PAL10 - OPERATOR GET A DIRECTORY OF PAL10 SUBMISSION TAPE & DISMOUNT
.REWIND DEC:
.IF (ERROR)
.DEASSIGN
OVER::.PLEASE PAL10 SUCCESSFUL
; Remove all temporary files
%ERR::
%CERR::
%FIN::.DEASSIGN
.DELETE MACRO.SHR,LOADER.SHR,COMPIL.SHR,JOBDAT.REL
.IF (ERROR) ; Don't care if failed
.PLEASE PAL10 DONE
.PRINT /AFTER:+3 PAL10.LST,PAL10.LOG
.IF (ERROR) .GOTO END
.K/F
END: