Trailing-Edge
-
PDP-10 Archives
-
bb-l014q-bm_tops20_v6_1_atpch17
-
autopatch/fts201.ctl
There are 4 other files named fts201.ctl in the archive. Click here to see a list.
;
; COPYRIGHT (c) 1983, 1984, 1985, 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.
;
@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
@EXPUNGE PAT:
@DEFINE SYS:
;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
@PEPB
*SIGNAL-SUCCESS FTS-20-V1
*EXIT
@EXPUNGE PAT:
@GOTO FIN1
%ERR::
@GOTO ERROR
%TERR::
@GOTO ERROR
ERROR::
@PEPB
*SIGNAL-FAILURE FTS-20-V1
*EXIT
@EXPUNGE PAT:
FIN1::
%FIN::