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

;
;   T26A61.CTL -- Patch and rebuild TOPS-20-TCPIP-V6-1
;   Version 2(0)
;	December 2, 1985 / DEE
;
 
;
;			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.
;

;
;   This .CTL file applies the  patches  to  the  libraries  of
;   TOPS-20-TCPIP-V6-1 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-V6-1
*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: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:SMTPSV.MAC
@EXP PAT:

@DEFINE DSK: ASL:
@DEFINE R: ASL:
@DEFINE SYS: ASL:
;
;	Build the monitor
;

@RUN MACRO
*VERSIO=NAMAM0.MAC,VERSIO.MAC
*STGAN=PARAM0.MAC,PARAMS.MAC,STG.MAC
;
;
@TYPE ANLNK.CCL
@RUN LINK
*@ANLNK.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G

@EXP PAT:
@GET AMON
@START 142
*0^[6M
*EDDTF/1
=BUGHLT<HLTADR^[12B
=BUGCHK<CHKADR^[11B
*DDTIBP^[10B
*^[10B+2/2
=^[G
;
@IF (NOERROR) @GOTO OK
TRY2::
@NOERROR
@TYPE LNKNEW.CCL
@TYPE PARNEW.MAC
@RUN MACRO
*STGAN=PARAM0.MAC,PARAMS.MAC,PARNEW.MAC,STG.MAC
;
@ERROR
@RUN LINK
*@LNKNEW.CCL
*@LNKANI.CCL
*T20AN/S, -
*/NOLOCALS, -
*/SYSLIB, -
*/G

@EXP PAT:
@GET AMON
@START 142
*0^[6M
*EDDTF/1
=BUGHLT<HLTADR^[12B
=BUGCHK<CHKADR^[11B
*DDTIBP^[10B
*^[10B+2/2
=^[G

OK::
;
@DELETE PAT:MON.*
@RENAME PAT:AMONITR.EXE PAT:MONITR.EXE
@EXP PAT:

;
;	Build the EXEC
;
;
@RUN MACRO
*EXECC0=EXECF0.MAC,EXECCA.MAC
;
;
@RUN LINK
*TTY:/LOG/LOGL:5
*EXEC/SAVE
*T20EX6.REL
*EXECC0.REL
*MACREL.REL
*/G

@RUN EXEC
*Y

;	Build the 'utilities'
;

@LOAD/COMP FTPSRT.MAC+FTP1.MAC+FTP2S.MAC+TCPSIM.MAC+FTP4.MAC
@SAVE FTPSRT

@COMPILE/COMP SNDDEF,HSTNAM,RELAY,SNDMSG,MMAILR,MMLBX,SMTPSV,MAISER
@LOAD MMAILR.MAC
@LOAD MMLBX.MAC
@RESET
@RENAME MMLBX.EXE MMAILBOX.EXE
@LOAD MAISER.MAC
@LOAD SMTPSV.MAC
@DELETE SNDDEF.REL,HSTNAM.REL,RELAY.REL,SNDMSG.REL
@DELETE MMAILR.REL,MMLBX.REL,SMTPSV.REL,MAISER.REL

;
;	Signal success
;

@EXP PAT:
@DEFINE SYS:
@PEPB
*SIGNAL-SUCCESS TOPS-20-TCPIP-V6-1
*EXIT
@GOTO EXIT

;
;	Signal failure on error
;

%ERR::
@EXP PAT:
@DEFINE SYS:
@PEPB
*SIGNAL-FAILURE TOPS-20-TCPIP-V6-1
*EXIT

EXIT::
%FIN::