Trailing-Edge
-
PDP-10 Archives
-
bb-bt99g-bb
-
mpe702.ctl
There is 1 other file named mpe702.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 RESPONSIBILITY FOR THE USE OR
; RELIABILITY OF ITS SOFTWARE ON EQUIPMENT WHICH IS NOT
; SUPPLIED BY DIGITAL.
;
;*******************************************************************************
;MPE702.CTL /RCB
; Fix to copy .MACs into PAT: to cover when there are no edits
;
;-----
;Running MPE702:
;
;Submit MPE702.CTL with the following command:
; .SUBMIT MPE702/RESTART
;
;-----
;Requirements:
;
;1) This batch job must be run before the monitor-build job is done.
;
;-----
;Introduction:
;
;This file does nothing but update CPNSER.MAC, for possible inclusion in
;a monitor build procedure.
;*******************************************************************************
BEGIN::
.CHKPNT BEGIN
.PLEASE ** MPE702 ** Starting
;*******************************************************************************
; Initialization
;*******************************************************************************
;
.IF (ERROR)
;
.ERROR
.R QUOLST
.IF (ERROR)
;
.R PEPB
*INITIALIZE TOPS-10-MPE-V702
*EXIT
.IF (ERROR) .GOTO ERROR
;Delete source file in PAT:
.DELETE PAT:CPNSER.MAC
.IF (ERROR) ;NOT A PROBLEM
.RUN ASL:UPDATE
*@PAT:MPE702.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:CPNSER.MAC
EXIT::
.CHKPNT EXIT
.PLEASE ** MPE702 ** CHKPNT EXIT - End of stream
;*******************************************************************************
; End of stream
;*******************************************************************************
;
.R QUOLST
.IF (ERROR)
;
.ERROR %
.R PEPB
*SIGNAL-SUCCESS TOPS-10-MPE-V702
*EXIT
.GOTO END
;
%ERR:: .GOTO ERROR
%CERR:: .GOTO ERROR
%TERR:: .PLEASE ** MPE702 ** Time limit exceeded
.GOTO ERR2
;
ERROR::
.PLEASE ** MPE702 ** Stream has errors
ERR2::
.ERROR %
.R PEPB
*SIGNAL-FAILURE TOPS-10-MPE-V702
*EXIT
;
END::
;
%FIN:: .PLEASE ** MPE702 ** Stream finished
;
;[END OF MPE702.CTL]