Google
 

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]