[comp.os.vms] NETACP Patch for Area Routers

ress@eis.gmd.dbp.de (ress) (05/24/88)

Hey,

We had a problem with a KMS11 interface and consulted Rob Kelleher from
DEC's AFSG Net and Comms Support to help us - our problems are not yet 
solved, but by the way Rob send us a Patch for the NETACP used on 
Area-Routers. It might be possible that this is a well known patch 
- i never heard about this patch... - but nevertheless i'll send it to
you.

wbw

Matthias Ress
----------------------------------------------------------------------
|       Matthias Ress                                                |   
|       Gesellschaft fuer Mathematik und DV                          |
|       Project E.I.S.                                               |
|       P.O.Box 1240                                                 |
|       D-5205 St.Augustin 1                                         |
|       West Germany                                                 |
|                                                                    |
|       phone:      (0049) 2241/14-2301                              |
|       E-mail:     ress@eis.gmd.dbp.de                              |
|                   ress%gmdeis@gmdzi.UUCP                           |
|                   PSI%026245224124140::RESS                        |
|       telex:      8 89 469 gmd d                                   |
|       telefax:    (0049) 2241/14-2889                              |
----------------------------------------------------------------------    
TO USE:

Extract into file.
Stop your network.
From SYS$SYSTEM execute this command procedure.
Restart you network.
$ PATCH SYS$SYSTEM:NETACP.EXE
!
!	ECO059	RBH003
!	MODULE:	NETDLLTRN
!	Don't let L2 router send routing message to each other
!	if there is no change in topology.
!
!	*** FOR VAX/VMS V4.6 and V4.7 ONLY ***
!
SET ECO 59
DEFINE NETDLLTRN=0DD42
DELETE/INS NETDLLTRN+1688			! In XXX Routine...
	"BBSS	#00,L^000034D4,0000F3D2"
EXIT

REPLACE/INS NETDLLTRN+1A14			! In AREA_DECISION Routine...
	"BBCC	#00,B^0B(R4),0000F75B"
EXIT
	"CLRL	R5"				! Init our new L2 routing indication
EXIT
REPLACE/INS NETDLLTRN+1A2B
	"BBSS	#00,B^0B(R4),0000F772"
EXIT
	"MOVL	#1,R5"				! Indicate we're not isolated L2
EXIT
REPLACE/INS NETDLLTRN+1A35
	"MOVZWL	#3F,R8"
EXIT
	"CMPZV	#00,#01,B^0B(R4),R5"		! Any change from our old level 2?
	"BEQLU	E59_1"		    		! Br if no
	"INSV	R5,#00,#01,B^0B(R4)"		! Reflect our new L2 status
	"BBSS	#00,L^000034D4,E59_1"		! Force recompute of nearest L2
"E59_1:	 MOVZWL	#3F,R8"
EXIT
UPDATE
EXIT