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

;
;   SRTV4D.CTL -- Patch and rebuild SORT-10-V4D
;   Version 1(1)
;	January 28, 1986  / HAH
;	16-JUN-88 HAH ADD BRANCH FOR NO UPDATE
;
 
;
;COPYRIGHT (c) 1986 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-10-V4D 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.
;

.R PEPB
*INITIALIZE SORT-10-V4D
*EXIT

.PA ASL:/SEARCH
;
;
;	Delete any source modules left in PAT:
;

.DELETE PAT:SORT.MAC,PAT:SRTCER.MAC,PAT:SRTCMP.MAC,PAT:SRTFLT.MAC,PAT:SRTPRM.MAC
.DELETE PAT:SRTSCN.MAC,PAT:SRTSTA.MAC,PAT:SRTUUO.MAC,PAT:SRTCBL.MAC

;
;	Apply patches to the modules
;

.ERROR %
.DIR PAT:SRTV4D.SUP
.IF (ERROR) .GOTO NOUPD
.RUN ASL:UPDATE
*@PAT:SRTV4D.SUP
NOUPD::
.ERROR

;
;	Build SORT.EXE
;

.RUN ASL:MACRO
*SORT=ASL:SRTPRM,ASL:SRTSTA,ASL:SRTSCN,ASL:SRTUUO,ASL:SRTCMP,ASL:SRTFLT,ASL:SORT

.RUN ASL:LINK
*SORT.MAP/MAP=SORT,-
*ASL:SCAN/SEGMENT:LOW/INCLUDE:(.VERBO,.TOUTS,.SAVE,.TNEWL),-
*ASL:SCAN/EXCLUDE:(.VERBO,.TOUTS,.SAVE,$SCNDC,.TNEWL),-
*ASL:HELPER/G
.SSAVE SORT

.RUN ASL:MACRO
*FSORT=TTY:,ASL:SRTPRM,ASL:SRTSTA,ASL:SRTSCN,ASL:SRTUUO,ASL:SRTCMP,ASL:SRTFLT,ASL:SORT
*FTVM==1
^Z
^Z

.RUN ASL:LINK
*FSORT.MAP/MAP=FSORT,ASL:SCAN/SEGMENT:HIGH/G
.SSAVE FSORT

.COPY PAT:=ASL:SRTPRM.MAC
.COPY PAT:=ASL:SRTCBL.MAC
.COPY PAT:=ASL:SRTCER.MAC
.COPY PAT:=ASL:SRTUUO.MAC
.COPY PAT:=ASL:SORT.MAC

;
;	Signal success
;

.R PEPB
*SIGNAL-SUCCESS SORT-10-V4D
*EXIT

.GOTO EXIT

;
;	Signal failure on error
;

%ERR::
.GOTO ERROR
%CERR::
.GOTO ERROR
%TERR::
ERROR::

.R PEPB
*SIGNAL-FAILURE SORT-10-V4D
*EXIT

EXIT::
%FIN::