Trailing-Edge
-
PDP-10 Archives
-
AP-D543V_SB
-
syserr.ctl
There are 17 other files named syserr.ctl in the archive. Click here to see a list.
; SYSERR.CTL VERSION 12A(1010) 21 AUG 78
;
;
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY ONLY BE USED
; OR COPIED IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE.
;
;COPYRIGHT (C) 1972,1975,1977,1978 BY DIGITAL EQUIPMENT CORPORATION
;
;
;
;
;TO MAKE SYSERR.EXE FROM SYSERR.MAC
;SUBMIT WITH THE FOLLOWING COMMAND:
;
; .SUBMIT SYSERR /RESTART:1 /TIME:0:20:0
;
;
;REQUIRED FILES - - LATEST RELEASED VERSIONS
;
;DEC: DIRECT.EXE
; PIP.EXE
; LNK???.EXE
; MACRO.EXE
; LINK.EXE
; SCAN.REL
; HELPER.REL
;
;[SELF] SYSERR.CTL
; SYSERR.HLP
; SYRUNV.MAC
; SYRLOW.MAC
; SYRLIB.MAC
; SYSERR.MAC
; SYSERA.MAC
; SYSERB.MAC
; SYSERC.MAC
; SYSERD.MAC
; SYSERK.MAC
; SYSERN.MAC
; SYSERS.MAC
; SYR12A.RND
;
;
;OUTPUT FILES
;
; SYSERR.EXE
; SYSERA.EXE
; SYSERB.EXE
; SYSERC.EXE
; SYSERD.EXE
; SYSERK.EXE
; SYSERN.EXE
; SYSERS.EXE
; SYSERR.LOG
; SYSERR.ERR (IF AN ERROR OCCURS IN THE FILE)
;
;
START::
.CHKPNT START ;
;
.ASSIGN DEC: SYS:
;DELETE OLD OUTPUT FILES
;
.R PIP
*DSK:/D=SYSERR.EXE,SYSERA.EXE,SYSERB.EXE,SYSERC.EXE,SYSERD.EXE
.IF (ERROR) ;OKAY, THOSE FILES MAY NOT BE THERE.
*DSK:/D=SYSERK.EXE,SYSERN.EXE,SYSERS.EXE,SYSERR.ERR
.IF (ERROR) ;OKAY
;
;DELETE OLD TEMPORARY FILES
;
.R PIP
*DSK:/D=SYR???.UNV,SYR???.REL,SYSER?.REL
;
;
;MAKE A CHECKSUM DIRECTORY OF ALL REQUIRED FILES
;
.R DIRECT
*TTY:/CHECKSUM=DEC:DIRECT.EXE,LINK.EXE,PIP.EXE,MACRO.EXE,LNK???.EXE
*TTY:/CHECKSUM=DEC:SCAN.REL,HELPER.REL,DSK:SYR???.*,SYSER?.*
;
;
COMPL::
.CHKPNT COMPL ;
;
;
;MAKE A RECORD OF WHAT IS BEING USED
.SET WATCH VERSION
.IF (ERROR) ;OKAY - MAY BE KA10
;
.ERROR % ;FLAG % ERRORS
;
;
;COMPILE, LOAD, SAVE
;
.R MACRO
*SYRUNV=SYRUNV
.IF (ERROR) .GOTO ERROR:
;
.R MACRO
*SYRLOW=SYRLOW
.IF (ERROR) .GOTO ERROR:
;
.R MACRO
*SYRLIB=SYRLIB
.IF (ERROR) .GOTO ERROR:
;
.R MACRO
*SYSERR=SYSERR
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERR/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERA=SYSERA
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERA/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERB=SYSERB
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERB/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERC=SYSERC
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERC/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERD=SYSERD
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERD/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERK=SYSERK
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERK/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERN=SYSERN
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERN/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
.R MACRO
*SYSERS=SYSERS
.IF (ERROR) .GOTO ERROR:
.R LINK
*DEC:SCAN,DEC:HELPER,SYSERS/G
.IF (ERROR) .GOTO ERROR:
.SSAVE
;
;MAKE A CHECKSUM DIRECTORY OF ALL OUTPUT FILES JUST MADE.
.R DIRECT
*TTY:/CHECKSUM=DSK:SYSERR.EXE,SYSERA.EXE,SYSERB.EXE,SYSERC.EXE,SYSERD.EXE
.IF (ERROR) .GOTO ERROR: ;THERE SHOULD BE NO KIND OF ERROR HERE.
*TTY:/CHECKSUM=DSK:SYSERK.EXE,SYSERN.EXE,SYSERS.EXE
.IF (ERROR) .GOTO ERROR:
;
;
;DELETE TEMPORARY FILES
;
.R PIP
*DSK:/D=SYR???.UNV,SYR???.REL,SYSER?.REL
;
.KJOB/F
;
;
;IF JOB FAILED, MAKE A "SYSERR.ERR" FILE ON
;DISK TO LET YOU KNOW IT FAILED.
;
ERROR::
%ERR::
%FIN::
;
.R TECO
*IERROR IN SYSERR.CTL
*EWSYSERR.ERREX
;
;
;[END OF SYSERR.CTL]