simon@sirius.ua.oz (Simon Hackett) (05/10/88)
Hello netland. In response to a posted request, here for your enjoyment
is a patch for versions of VMS after 4.5 which restores the monitor
command MONITOR ETHERNET to working status. If anyone is interested in
HOW it works (and what changed), ask me via e-mail for the full gory
details - I won't waste space posting them unless I get a lot of interest.
It also enables a few other monitor classes, of varying usefulness, namely
VMS1, JOURNALING and JDEVICE. (and maybe one other I can't remember! - try
doing a MONITOR ALL)
The performance of this patch is NOT guaranteed on your system, and changes you
make using this patch are entirely your own responsibility (and the patch may
break without warning at some version of VMS beyond 4.7!)
Note also that a maximum of one process on a system may MONITOR ETHERNET.
Attempts to start a second monitor operation will be rejected with a "Bad
Parameter Value" error from the $QIOW which places the interface into
promiscuous mode.
For your very own modified MONITOR image, which you use by assigning
the logical name MONITOR to point to your copy of MONITOR, turning on PHY_IO,
making sure you have lots of byte limit quota, and typing MONITOR ETHERNET,
apply the following patch to a copy of SYS$SYSTEM:MONITOR ...
--------------------------------------------------------------------------------
MONITOR_ETHERNET.PAT
--------------------------------------------------------------------------------
$! modified for version 4.6 of VMS, Simon Hackett 29/3/88
$!
$! Copy the image SYS$SYSTEM:MONITOR.EXE into your working directory,
$! execute this file as a command file (@ it), define the logical name
$! MONITOR to specify the name of your copy of MONITOR, and
$! type MONITOR ETHERNET
$!
$! note: requires PHY_IO privilege and a large byte limit quota
$!
$! Based on an earlier patch, author unknown, for versions of VMS up to 4.5
$!
$ Patch Monitor.exe
REPLACE 4158+33e
211
exit
11
exit
replace 4158+391
211
exit
11
exit
replace 4158+48a
235
exit
35
exit
replace 4158+583
211
exit
11
exit
replace 4158+629
211
exit
11
exit
replace/long 170f6 ! additional for V4.6
00000000
exit
00000660 ! specify valid protocol value for $QIOW to hack deuna
exit
update
exit
$ exit
--------------------------------------------------------------------------------
end of file
--------------------------------------------------------------------------------
{------------------------------------------------------------------------------}
{ Simon Hackett, Systems Group, University of Adelaide, South Australia }
{ }
{ ACSNET,CSNET,BITNET: shackett@sirius.ua.oz }
{ ARPA: shackett%sirius.ua.oz@seismo.css.gov }
{ USENET: ...!<backbone>!munnari!uacomsci.ua.oz!shackett }
{------------------------------------------------------------------------------}