Trailing-Edge
-
PDP-10 Archives
-
bb-y390o-bm_tops20_v41_atpch_20
-
autopatch/fts201.ddc
There are 4 other files named fts201.ddc in the archive. Click here to see a list.
;
; COPYRIGHT (c) 1983, 1984, 1985 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.
;
@DEFINE DIS: AP20:<AUTOPATCH.FTS>
@MOUNT TAPE FTS:/READ-ONLY/REMARK:"MOUNT TAPE BB-M251A-BM"
@ENABLE
@DUMPER
*TAPE FTS:
*REWIND
*FILES
*SKIP 1
*RES PS:<*>FTSLIB.REL DIS:
*RES PS:<*>FTS20.REL DIS:
*REWIND
*EXIT
@DEF DSK: DIS:
@MAKLIB
; DELETE DAP MODULES
*FTS2V1=FTS20/DEL:(RMSERR,OPEN,GETPUT,M11FIL,RDWRIT,DAP,DAPERR,DAPSUB)
*FTS2V1=FTS2V1/DEL:(DAPT20,DIRECT,DIR20,DIRLST,NXTF20,NXTFIL,SETAI,STRING,TRACE)
; DELETE XPN MODULES
*FTS2V1=FTS2V1/DEL:(XPNCLO,XPNERR,XPNEVE,XPNFAI,XPNGET)
*FTS2V1=FTS2V1/DEL:(XPNOPN,XPNPMR,XPNPUT,XPNDIS,XPNUTL,XPNPSI)
; DELETE XPORT MODULES
*FTS2V1=FTS2V1/DEL:(XGET,XIOB,XDESC,XSPEC,XDUMPF,XOPEN,XCLOSE,XPUT,XBACK)
*FTS2V1=FTS2V1/DEL:(XDELET,XRENAM,X36,XT20,XVALID,XZAP,XBUILD,XPARSE,XMEM,XHEAP)
*FTS2V1=FTS2V1/DEL:(XFAIL,XTERM,XPMSG,XXMSG,XROOT,SAPPEN,SASCII,SBIN,SCOPY)
*FTS2V1=FTS2V1/DEL:(SFAIL,SFORM,SJOIN,SMSG,SSCAN,STEMP,SVALID,STRCMP)
*FTS2V1=FTS2V1/DEL:(STREQL,STRGEQ,STRGTR,STRLEQ,STRLSS,STRNEQ)
; EXTRACT FTSSYM
*FTSSYM=FTSLIB/EXT:(FTSSYM)
; APPEND FTSSYM
*FTS2V1=FTS2V1/MAS:(FTSSYM),FTSSYM/APP
@DEF DSK: