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

;
;   SRTV5.CTL -- Patch and rebuild SORT-20-V5
;   Version 1(1)
;	March 7, 1983  / HAH
;1	July 27, 1988 / HAH	Add branch for no update
;
 
;
;			COPYRIGHT (c) 1982,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  modules  of
;   SORT-20-V5 and rebuilds SORT.EXE.
;
;   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 SORT-20-V5
*EXIT

;
;	Delete any sources that may be left in PAT:
;

@DELETE PAT:SORT.MAC,PAT:SRTCER.MAC,PAT:SRTCMD.MAC,PAT:SRTCMP.MAC,PAT:SRTFLT.MAC
@DELETE PAT:SRTJSS.MAC,PAT:SRTPRM.MAC,PAT:SRTDTR.MAC,PAT:SRTSTA.MAC
@DELETE PAT:SRTCBL.MAC

;
;	Apply patches to the modules
;

@ERROR %
@VDIR PAT:SRTV5.SUP
@IF (ERROR) @GOTO NOUPD
@R ASL:UPDATE
*@PAT:SRTV5.SUP
NOUPD::
@ERROR
@EXPUNGE PAT:

@DEFINE UNV: ASL:
@DEFINE DSK: ASL:

;
;	Build SORT.EXE
;

@RUN MACRO
*COPYRT=COPYRT
*SRTPRM=SRTPRM
*SRTSTA=SRTSTA
*SRTCBL=SRTCBL
*SRTCMD=SRTCMD
*SRTJSS=SRTJSS
*SRTCER=SRTCER
*SRTCMP=SRTCMP
*SRTFLT=SRTFLT
*SRTDTR=SRTDTR
*SORT=SORT

! APPEND THE COPYRIGHT STATEMENT TO ALL THE UNV FILES TO PROTECT THEM
!
@APPEND COPYRT.TXT COPYRT.UNV
@APPEND COPYRT.TXT SRTPRM.UNV
!
@RU ASL:LINK
*SORT.EXE/SAV,SORT.MAP/MAP=SRTSTA,SRTCBL,SRTCMD,SRTJSS,SRTCER,SRTCMP,SRTFLT,SRTDTR,SORT,/SYMSEG:PSECT:CODE/GO


;
;	Signal success
;

@EXPUNGE PAT:

@PEPB
*SIGNAL-SUCCESS SORT-20-V5
*EXIT

@GOTO EXIT

;
;	Signal failure on error
;

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

@EXPUNGE PAT:
@DEFINE DSK:

@PEPB
*SIGNAL-FAILURE SORT-20-V5
*EXIT

EXIT::
%FIN::