Enter your search terms Submit search form
	Web pdp-10.trailing-edge.com

;
;   PAS2V1.CTL -- Patch and rebuild PASCAL-20-V1
;   Version 1(1)
;	June 1, 1983  / GCS
;	July 2, 1984 / HAH
;	May 4, 1988 / HAH Add branch for no update - requires
;			  PEP 1B(173)
;
;
;		       COPYRIGHT (c) 1984, 1988 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.
;

;
;   This .CTL file applies the  patches  to  the  libraries  of
;   PASCAL-20-V1    and    rebuilds   PASCAL.EXE,   PASOTS.EXE,
;   PASLIB.REL and PASDDT.REL.
;
;   For this .CTL file to run, the connected directory must  be
;   the patching directory (Logical name PAT:).
;
;   This control file is expected to run without errors.
;

@PEPB
*INITIALIZE PASCAL-20-V1
*EXIT
;

@DEFINE DSK: ASL:
@DEFINE SYS: ASL:

;
;	Apply patches to the library files
;

@ERROR %
@TYPE PAT:PAS2V1.MKL
@IF (ERROR) @GOTO NOUPD
@RU MAKLIB
*@PAT:PAS2V1.MKL
NOUPD::
@ERROR
@EXP PAT:

;
;	Build PASLIB.REL
;

@RU MAKLIB
*PASLIB.REL=PAS2L1.REL/INDEX
*^Z

;
;	Build PASOTS.EXE
;

@RU LINK
*/SYMSEG:H/NOLOCALS/SET:.LOW.:374000 PASOTS/SAVE,PASOTS/MAP=-
*PAS2O1,/GO
@GET PAT:PASOTS
@SAVE PASOTS 400 577

;
;	Build PASCAL.EXE
;

@RU LINK
*/SEGMENT:DEFAULT /HASH:1000 PASCAL/SAVE,-
*PASCAL/MAP /SET:.HIGH.:311000
*/NOLOCALS PAS2C1 /SYSLIB, HSPACE/GO
@DEFINE SYS:
@RUN PAT:PASCAL
@SAVE PASCAL 0 577

;
;	Build PASDDT.REL
;

@COPY PAS2D1.REL PASDDT.REL

;
;	Signal success
;

@EXP PAT:
@DEFINE DSK:

@PEPB
*SIGNAL-SUCCESS PASCAL-20-V1
*EXIT
@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::

@EXP PAT:
@DEFINE DSK:
@DEFINE SYS:

@PEPB
*SIGNAL-FAILURE PASCAL-20-V1
*EXIT

EXIT::
%FIN::