Google
 

Trailing-Edge - PDP-10 Archives - dec-10-omona-u-mc9 - syserr.ctl
There are 17 other files named syserr.ctl in the archive. Click here to see a list.
; Job %1(6) to make SYSERR.SHR from SYSERR.MAC
; Submit with command .SUBMIT SYSERR/RESTART:1/TIME:20:0/UNIQ:0
;DEFINE YOUR SYSTEM CONFIGURATION (DPANUM,ETC)IN SYRUNV.MAC IF
;NECESSARY FIRST.
;SECTION TO BUILD SOURCE LISTINGS IS COMMENTED OUT BECAUSE OF 
;STORAGE REQUIREMENTS.  TO GET LISTINGS, REMOVE THE ";" IN THE RIGHT
;PLACES. ALSO INSERT "/CREF" IN THE COMPILE COMMANDS.

; Required files: [10,7]  (Latest released versions)
;	MACRO.SHR
;	LINK.SHR
;	LNK???.SHR
;	COMPIL.SHR
;	JOBDAT.REL
;	SCAN.REL
;	HELPER.REL
;[SELF] SYSERR.MAC
;	SYRUNV.MAC
;	SYSERC.MAC
;	SYSERA.MAC
;	SYSERB.MAC
;	SYSERS.MAC
;	SYSERR.HLP

; Output files
;	SYSERC.SHR
;	SYSERR.SHR
;	SYRUNV.UNV
;	SYSERA.SHR
;	SYSERB.SHR
;	SYSERS.SHR
;	SYSERR.MAP
;	SYSERA.MAP
;	SYSERB.MAP
;	SYSERS.MAP
;	SYRUNV.LST
;	SYSERA.LST
;	SYSERB.LST
;	SYSERS.LST
;	SYSERR.LST
;	SYSERR.LOG

.PLEASE SYSERR SUBMISSION CONTROL FILE INITIALIZING

; Copy files from [10,7] and use private "SYS:"

; Make a record of what is being used
.SET WATCH VERSION
.IF (NOERROR) .GOTO A
A::;.ASSIGN DEC: SYS:

; CompILE, Load, Save, and Testing Section
.COMP SYRUNV
.DEL SYRUNV.REL
.COMP SYRLOW
.COMP SYRLIB
.COMP SYSERR
.COMP SYSERA
.COMP SYSERC
.COMP SYSERB
.COMP SYSERD
.COMP SYSERK
.COMP SYSERS
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERR/G
.SSAVE SYSERR
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERA/G
.SSAVE SYSERA
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERB/G
.SSAVE SYSERB
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERC/G
.SSAVE SYSERC
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERD/G
.SSAVE SYSERD
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERK/G
.SSAVE SYSERK
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERS/G
.SSAVE SYSERS

; Try it just to make sure it works
.RUN DSK:SYSERR
*/HELP
.DEASSIGN


; Produce source listing
;.RUN CREF[10,7]
;*DSK:SYSERC.LST=SYSERC.CRF
;*DSK:SYSERR.LST_SYSERR.CRF
;*DSK:SYRUNV.LST=SYRUNV.CRF
;*DSK:SYSERA.LST=SYSERA.CRF
;*DSK:SYSERB.LST=SYSERB.CRF
;*DSK:SYSERS.LST=SYSERS.CRF
; Now get checksummed directories of all files
.RU DIRECT[10,7]
*TTY:=/CHECKSUM SYSER?.MAC,SYR???.*,SYSER?.EXE,SYSERR.CTL,SYR???.RN?,SYSERR.HLP,JOBDAT.REL,SCAN.REL,HELPER.REL

; Remove all temporary files

%ERR::
%FIN::.DEASSIGN
.IF (ERROR) 	; Don't care if failed
.PLEASE SYSERR DONE
.IF (ERROR) .GOTO END
.K/F
END: