Trailing-Edge
-
PDP-10 Archives
-
ap-c796e-sb
-
loader.ctl
There are 3 other files named loader.ctl in the archive. Click here to see a list.
; Job %1(11) to make LOADER.SHR,LOADER.DOC from LOADER.MAC
; Submit with command .SUBMIT LOADER/RESTART:1/TIME:10:0/UNIQ:0
; Required files: [10,7] (Latest released versions)
; MACRO.SHR
; LOADER.SHR
; COMPIL.SHR
; JOBDAT.REL
;[SELF] LOADER.MAC
; LDR057.RND
; Output files
; LOADER.SHR
; LOADER.DOC
; LOADER.LST
; LOADER.LOG
.PLEASE LOADER 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
.RUN DSK:MACRO
*D:LOADER,D:LOADER/CREF_D:LOADER.MAC
.RUN LOADER
*LOADER
.SSAV D:LOADER
.RUN RUNOFF[10,7]
*LDR057.RND
*LOADER.DOC
.DEASSIGN
; Produce source listing
.RUN CREF[10,7]
*DSK:LOADER.LST_LOADER.CRF
;
; Now get checksummed directories of all files
.RU DIRECT[10,7]
*TTY:=/CHECKSUM LOADER.MAC,LDR057.RND,LOADER.SHR,LOADER.DOC,LOADER.CTL,LDR???.RN?,JOBDAT.REL
; Submission tape creation routine
.OPERATOR %
.RUN TECO[10,7]
*!AGAIN!
*% PLEASE LOADER.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:'LOADER SUBMISSION TAPE'/WE
.RU PIP[10,7]
*DEC:^^LOADER^^_/Z
.IF (ERROR) ; OK, we can do without the ID
*DEC:(XB)_DSK:LOADER.MAC,LDR057.RND,LOADER.SHR,LOADER.DOC,LOADER.CTL,LDR???.RN?
.IF (NOERROR) .GOTO CONT
.PLEASE LOADER - TROUBLE MAKING SUBMISSION DTA<TRY AGAIN?>
.DEASSIGN
.BACKTO MAKE
CONT::.DIR DEC:
.PLEASE LOADER - OPERATOR GET A DIRECTORY OF LOADER SUBMISSION TAPE & DISMOUNT
.REWIND DEC:
.IF (ERROR)
.DEASSIGN
OVER::.RUN PIP[10,7]
*LOADER.RUN_LDR???.RND
.RUN RUNOFF[10,7]
*LOADER.RUN
*LOADER.DOC
.DELETE LOADER.RUN
.IF (ERROR)
; BLAK Pack update routine
.OPERATOR %
.RUN TECO[10,7]
*!AGAIN!
*% PLEASE LOADER.CTL - UPDATE THE BLAK PACKS<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, UPDATE THE BLAK PACKS
*OEND!NO!
*? NO, FORGET UPDATING THE BLAK PACKS
=!END!
.NOOPERATOR
.IF (ERROR) .GOTO NOUPD
UPD::.MOUNT BLKC:/VID:'LOADER SUBMISSION CONTROL FILE'
.IF (ERROR) .GOTO NOUPD
.RU PIP[10,7]
*BLKC:[7,1142](XB)<100>_LOADER.MAC,LDR057.RND,LOADER.SHR,LOADER.DOC,LOADER.CTL,LDR???.RN?
.IF (NOERROR) .GOTO BCON
.PLEASE LOADER - TRANSFER ERROR ON BLACK PACKS PROCEEDING ...
.GOTO NOUPD
BCON::.PLEASE LOADER - BLAK PACKS UPDATED SUCCESSFULLY
NOUPD::.PLEASE LOADER 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 LOADER DONE
.PRINT /AFTER:+3 LOADER.LOG,LOADER.LST,LOADER.DOC/COP:3/DISP:REN
.IF (ERROR) .GOTO END
.K/F
END: