Google
 

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: