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

; 1 22-MAR-88 HAH Add another clear of SYS: definition
 
;
;			COPYRIGHT (c) 1983,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.
;

@PEPB
*INITIALIZE FTS-20-V1
*EXIT
@EXPUNGE PAT:
@DEFINE SYS: ASL:
@DEFINE DSK: ASL:
@TYPE FTS201.MKL
@RU MAKLIB
*@FTS201.MKL
@EXPUNGE PAT:
@RU LINK
*FTS2V1/SEARCH/INCLUDE:FTS
*DAP2V1.REL/SEARCH
*XPN2V1.REL/SEARCH
*XPORT.REL/SEARCH/G
@D 124 .MAIN.+1
@SAVE FTS
;Build FTSLIB.REL from FTS2V1.REL:
;Module order: COPYRI, FTSSYM, FTSIPS, FTST20, DAPT20, STRING, IPCF,
;  FTSQUT, ERROR, DAPERR, RMSERR, XPNERR, DIRLST, ASL:XPORT
@RU MAKLIB
*FTSLIB.REL=DAP2V1.REL/EXTRACT:COPYRI
*FTSLIB.REL=FTSLIB.REL,FTS2V1.REL/APPEND:FTSSYM
*FTSLIB.REL=FTSLIB.REL,FTS2V1.REL/APPEND:(FTSIPS,FTST20)
*FTSLIB.REL=FTSLIB.REL,ASL:DAP2V1.REL/APPEND:DAPT20
*FTSLIB.REL=FTSLIB.REL,ASL:DAP2V1.REL/APPEND:STRING
*FTSLIB.REL=FTSLIB.REL,FTS2V1.REL/APPEND:(IPCF,FTSQUT)
*FTSLIB.REL=FTSLIB.REL,FTS2V1.REL/APPEND:ERROR
*FTSLIB.REL=FTSLIB.REL,ASL:DAP2V1.REL/APPEND:DAPERR
*FTSLIB.REL=FTSLIB.REL,ASL:DAP2V1.REL/APPEND:RMSERR
*FTSLIB.REL=FTSLIB.REL,ASL:XPN2V1.REL/APPEND:XPNERR
*FTSLIB.REL=FTSLIB.REL,ASL:DAP2V1.REL/APPEND:DIRLST
*FTSLIB.REL=FTSLIB.REL,ASL:XPORT.REL/APPEND
*FTSLIB.REL=FTSLIB.REL/INDEX
*/EXIT
@EXPUNGE
@DEFINE SYS:
@PEPB
*SIGNAL-SUCCESS FTS-20-V1
*EXIT
@EXPUNGE PAT:
@GOTO FIN1
%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::

@DEFINE SYS:
@PEPB
*SIGNAL-FAILURE FTS-20-V1
*EXIT
@EXPUNGE PAT:
FIN1::
%FIN::