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

;
;   T26A70.CTL -- Patch and rebuild TOPS-20-TCPIP-V7-0
;   Version 1(0)
;	July 20, 1988 / HAH
;
 
;
; COPYRIGHT (c) 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  libraries  of
;   TOPS-20-TCPIP-V7-0 and rebuilds MONITR.EXE and EXEC.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 TOPS-20-TCPIP-V7-0
*EXIT

@DELETE PAT:*MON.*,PAT:MONITR.*,PAT:EXEC.*
@DELETE PAT:VERSIO.REL,PAT:STG*.REL
@DELETE PAT:FTPSRT.MAC,PAT:FTP1.MAC,PAT:FTP2S.MAC,PAT:FTP2U.MAC
@DELETE PAT:IPHOST.MAC,PAT:TCPSIM.MAC,PAT:FTP4.MAC
@DELETE PAT:MAISER.MAC,PAT:HSTNAM.MAC,PAT:SNDDEF.MAC,PAT:RELAY.MAC
@DELETE PAT:SNDMSG.MAC,PAT:MMAILR.MAC,PAT:NMLBX.MAC,PAT:SMTJFN.MAC
@DELETE PAT:TCPAML.MAC,PAT:TELNET.MAC,PAT:WAKEUP.MAC
@EXPUNGE PAT:

@ERROR %
@VDIR PAT:T26A70.PCF
@IF (ERROR) @GOTO NOUPD
@UPDATE
*@PAT:T26A70.PCF
@
NOUPD::
@ERROR
@EXPUNGE

@DEFINE DSK: ASL:
@DEFINE R: ASL:
@DEFINE SYS: ASL:

@SET DEFAULT COMPILE-SWITCHES . /MAC
@SET DEFAULT COMPILE-SWITCHES MAC /COMPILE

;
;	Build the monitor
;

@COMPILE NAMAN+VEDIT+VERSIO VERSIO
@COMPILE PARAN+PARARP+PARAMS+STG STGAN

@TYPE LNKARP.CCL
@RUN LINK
*@LNKARP.CCL
*@LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/COUNTERS, -
*/G
@EXPUNGE PAT:
@GET AMON
@START 142
*0^[6M
=BUGHLT<HLTADR^[12B
=BUGCHK<CHKADR^[11B
=^[G
;
@IF (NOERROR) @GOTO OK
TRY2::
@NOERROR
@TYPE LNKNEW.CCL
@TYPE PARNEW.MAC
@COMPILE PARAN+PARNEW+PARAMS+STG STGAN
@ERROR
@RUN LINK
*@LNKNEW.CCL
*@LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/COUNTERS, -
*/G
@EXPUNGE PAT:
@GET AMON
@START 142
*0^[6M
=BUGHLT<HLTADR^[12B
=BUGCHK<CHKADR^[11B
=^[G
@COPY LNKARP.CCL.0 LNKARP.OLD
@COPY PARARP.MAC.0 PARARP.OLD
@COPY LNKNEW.CCL LNKARP.CCL
@COPY PARNEW.MAC PARARP.MAC
OK::
@DELETE PAT:AMON.*
@RENAME PAT:AMONITR.EXE PAT:MONITR.EXE
@EXPUNGE PAT:

;
;	Build the EXEC
;

@COMPILE EXECF0+EXECCA EXECC0

@RUN LINK
*TTY:/LOG/LOGL:5
*EXEC/SAVE
*T20EX7.REL
*EXECC0.REL
*MACREL.REL
*/G

@RUN EXEC
*Y

;	Build the 'utilities'
;

@LOAD TCPFTP+FTP1+FTP2U+TCPSIM+FTP4 FTP
@SAVE FTP
@LOAD FTPSRT+FTP1+FTP2S+TCPSIM+FTP4 FTPSRT
@SAVE FTPSRT
@LOAD FTSCTT
@SAVE FTSCTT

@LOAD IPHOST
@SAVE IPHOST

@COMPILE /NOBINARY SNDDEF
@COMPILE BLANKT,HSTNAM,RELAY,SNDMSG,WAKEUP,TCPAML
@LOAD %"NOINITIAL" MMLBX
@RESET
@RENAME MMLBX.EXE MMAILBOX.EXE
@LOAD %"NOINITIAL" MAISER
@LOAD %"NOINITIAL" SMTJFN
@LOAD %"NOINITIAL" MMAILR

@LOAD TELNET
@SAVE TELNET

@DELETE BLANKT.REL,HSTNAM.REL,RELAY.REL,SNDMSG.REL,WAKEUP.REL
@DELETE MMAILR.REL,MMLBX.REL,SMTJFN.REL,MAISER.REL,ARMAIL.REL
@DELETE FTP.REL,FTPSRT.REL,FTSCTT.REL,IPHOST.REL,TELNET.REL
;
;	Signal success
;
@DEFINE DSK:
@DEFINE SYS:

@EXPUNGE PAT:
@PEPB
*SIGNAL-SUCCESS TOPS-20-TCPIP-V7-0
*EXIT
@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@DEFINE DSK:
@DEFINE SYS:
@EXPUNGE PAT:
@PEPB
*SIGNAL-FAILURE TOPS-20-TCPIP-V7-0
*EXIT

EXIT::
%FIN::