Trailing-Edge
-
PDP-10 Archives
-
bb-bt99e-bb
-
dcn702.ctl
There is 1 other file named dcn702.ctl in the archive. Click here to see a list.
; COPYRIGHT (C) 1984, 1985 BY
; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MA.
;
; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED
; AND COPIED ONLY IN ACCORDANCE WITH THE TERMS OF SUCH
; LICENSE AND WITH THE INCLUSION OF THE ABOVE COPYRIGHT
; NOTICE. THIS SOFTWARE OR ANY OTHER COPIES THEREOF MAY NOT
; BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY OTHER
; PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS
; HEREBY TRANSFERRED.
;
; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE
; WITHOUT NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT
; BY DIGITAL EQUIPMENT CORPORATION.
;
; DIGITAL ASSUMES NO RESPONSIBLITY FOR THE USE OR
; RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT
; SUPPLIED BY DIGITAL.
;
;*******************************************************************************
;DCN702.CTL /RCB
; Fix to copy .MACs into PAT: to cover when there are no edits
;
;-----
;Running DCN702:
;
;Submit DCN702.CTL with the following command:
; .SUBMIT DCN702/RESTART
;
;-----
;Requirements:
;
;1) This batch job must be run before the monitor-build job is done.
;
;-----
;Introduction:
;
;This file does nothing but update the DECnet modules for possible inclusion in
;a monitor build procedure.
;*******************************************************************************
BEGIN::
.CHKPNT BEGIN
.PLEASE ** DCN702 ** Starting
;*******************************************************************************
; Initialization
;*******************************************************************************
;
.IF (ERROR)
;
.ERROR
.RUN ASL: QUOLST
.IF (ERROR)
;
.R PEPB
*INITIALIZE TOPS-10-DCN-V702
*EXIT
.IF (ERROR) .GOTO ERROR
;Delete source files in PAT:
.NOERROR
.DELETE PAT:SCPAR.MAC,PAT:ROUTER.MAC,PAT:LLINKS.MAC,PAT:SCLINK.MAC,PAT:SCMUUO.MAC
.DELETE PAT:NTMAN.MAC,PAT:NRTSER.MAC
.ERROR
.RUN ASL:UPDATE
*@PAT:DCN702.SUP
.IF (ERROR) .GOTO ERROR
;Copy source files from ASL: to PAT: in case there are no edits and the
;DIS: area is not the same as that for the monitor
.COPY PAT:=ASL:SCPAR.MAC
.COPY PAT:=ASL:ROUTER.MAC
.COPY PAT:=ASL:LLINKS.MAC
.COPY PAT:=ASL:SCLINK.MAC
.COPY PAT:=ASL:SCMUUO.MAC
.COPY PAT:=ASL:NTMAN.MAC
.COPY PAT:=ASL:NRTSER.MAC
EXIT::
.CHKPNT EXIT
.PLEASE ** DCN702 ** CHKPNT EXIT - End of stream
;*******************************************************************************
; End of stream
;*******************************************************************************
;
.RUN ASL: QUOLST
.IF (ERROR)
;
.ERROR %
.R PEPB
*SIGNAL-SUCCESS TOPS-10-DCN-V702
*EXIT
.GOTO END
;
%ERR:: .GOTO ERROR
%CERR:: .GOTO ERROR
%TERR:: .PLEASE ** DCN702 ** Time limit exceeded
.GOTO ERR2
;
ERROR::
.PLEASE ** DCN702 ** Stream has errors
ERR2::
.ERROR %
.R PEPB
*SIGNAL-FAILURE TOPS-10-DCN-V702
*EXIT
;
END::
;
%FIN:: .PLEASE ** DCN702 ** Stream finished
;
;[END OF DCN702.CTL]