ETHERWATCH0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79 ETHERWATCHPETHERWATCH X4-002TT ETHERWATCHP LIB$PUT_OUTPUT@ SYS$ASSIGN@P@PH[LIB$PUT_OUTPUT READ_NODELIST PARSE_COMMAND SYS$ASSIGNPP0,LIB$STOPENABLE_CONTROLCSTARTUP_DEVICE SYS$HIBERP H ETHERWATCHENABLE_CONTROLCLIB$STOPLIB$PUT_OUTPUT PARSE_COMMAND READ_NODELISTSTARTUP_DEVICE SYS$ASSIGN SYS$HIBERSYS_CHECK_SOFTWARE_EXPIRY1O$CODE$PDATA4$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATA)P OCONVERT_HEADER0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79CONVERT_HEADERP!XB-!XB-!XB-!XB-!XB-!XB!XB-!XB-!XB-!XB-!XB-!XB!XB-!XBCONVERT_HEADER,P(5L(DP@PPAAP>[PPPOPAP>P6t PARSE_COMMAND0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79 PARSE_COMMANDP*$LINE /_EtherWatch: FROMTOBOTH_WAYSPROTOCOLDEVICEDISPLAY% PARSE_COMMANDHP -Q f      pp CLI$GET_VALUE@H H ETHERWATCH_CLD LIB$GET_INPUT LIB$GET_INPUT CLI$DCL_PARSE@8 CLI$PRESENT@#H# CLI$PRESENT@ &X& CLI$PRESENT@0h0 CLI$PRESENT@0x0 CLI$GET_VALUE@ CLI$GET_VALUE@@PXM## CLI$GET_VALUE@D`h99 CLI$PRESENT@99 CLI$GET_VALUE@x@@ CLI$PRESENT@@(@ CLI$GET_VALUE@P`xPX`hPHP`H`HP@PI@[`SYS_FIND_ETHER_DEVICE\hSTR_LENP̔( ̘̊,J ̦,* ̶,* -,* ,* f,* Q,* ,* x CLI$GET_VALUEˈlˌ˘ LIB$INDEXPVˤl˨˴ LIB$INDEXPWVW, M lVWVVVPP^(PFln^SX ^( Mn X,Xn lPQ^WWWPP^(PGln^SV ^( Mn V,Vn lPQ^STR_LENPl CLI$DCL_PARSEPɏPPSYS$EXIT CLI$PRESENTP CLI$PRESENTP  CLI$PRESENTP 0 CLI$PRESENTP CLI$_PRESENTVVCLI$_DEFAULTEDPP@ CLI$GET_VALUEP STR_UPPERCASE-̶̻ W(Z̶-̶̻ _(b̶VCLI$_DEFAULTEDPP` CLI$GET_VALUE(( -kMp LOOKUPNODEP- g,* (VCLI$_DEFAULTEDPPˌ CLI$GET_VALUE(Q( fЫ̆˜ LOOKUPNODEP- g,* Q(Q˸ CLI$PRESENTPVCLI$_DEFAULTEDPP CLI$GET_VALUE CLI$PRESENTPVCLI$_DEFAULTEDVV CLI$GET_VALUE̦A,J ̦̦H, n ̦̦N,y ̦̦T,} ̦ STR_UPPERCASE STR_UPPERCASESTR_LENP̢STR_LENP̲ STR_LENP̻(STR_LENP)0STR_LENPM8STR_LENPb@STR_LENP̆)P LIB$INDEXPd LIB$INDEXP*~)^()n)WWV,Vn PQ^)bx LIB$INDEXPˌ LIB$INDEXP*~b^(bQnbWWV,Vn QPQ^b̻ˠ LIB$INDEXP˴ LIB$INDEXP*~̻^(̶̻n̻WWV,Vn ̶PQ^̻ZP60-04QLATQ60-02QMOPQUNKNOWNQETHERWATCHQALLQ!HEXADECIMALNONETEXT I PARSE_COMMAND CLI$DCL_PARSE CLI$GET_VALUE CLI$PRESENT CLI$_PRESENT CLI$_NEGATED CLI$_LOCPRESCLI$_DEFAULTED CLI$_LOCNEG CLI$_ABSENTETHERWATCH_CLD LIB$GET_INPUT LOOKUPNODESTR_LEN STR_UPPERCASESYS_FIND_ETHER_DEVICESYS$EXIT LIB$INDEX$CODE$PDATA$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATAPPPpP7P3P5 P0hPPP P P !P/POWP'dPtP PPOP&PP PP #P1PYBP VP jP ~P PCP6P)OPC\P6iP)PCP6P)PROCESS_PACKET0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79PROCESS_PACKETP!72*-!/From !AS [!AS] to !AS [!AS]!/Protocol !AS, !4UL byte buffer at !%D!/PROCESS_PACKETtP 116 G|t|||,p|hK hlp|x  P@P QUEUE_ASYNC_READ0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79QUEUE_ASYNC_READQUEUE_ASYNC_READP 1PROCESS_PACKETP@PH[2)PPP`PP,kSYS$QIOP84 LIB$SIGNAL HQUEUE_ASYNC_READ LIB$SIGNALPROCESS_PACKETSYS$QIOX$CODE$PDATA<$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATAFPX READ_NODELIST0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79 READ_NODELISTPETHERWATCHER:NODELIST.DAT!UL nodenames/addresses loaded%ETHWATCH-I-FILERR, error opening ETHERWATCHER:NODELIST.DAT=) READ_NODELISTP  FOR$OPEN@;99 LIB$PUT_OUTPUT@u <XP@PQPI[FOR$OPENkXLIB$PUT_OUTPUTFOR_STOP\(y, :P`wݫ FOR$READ_SF  FOR$IO_T_DS FOR$IO_ENDPV1V1` STR_COLLAPSEl STR_UPPERCASE|!1ˀ LIB$INDEXPW9XW(|H, HWP,P| HWP,PG| HˌHː˔STR_LEN9XHRPb ˜HˠˤSTR_LEN9RBRPbwݫ FOR$READ_SF  FOR$IO_T_DS FOR$IO_ENDPV1ˬ FOR$CLOSESYS$FAOﰫ|LIB$PUT_OUTPUTVkPUNKNOWNQxx-xx-xx-xx-xx-xxNoName I READ_NODELISTFOR_STOPLIB$PUT_OUTPUT STR_COLLAPSE STR_UPPERCASESTR_LENSYS$FAOFOR$OPEN LIB$INDEX FOR$CLOSE$CODE$PDATAh$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATA FOR$IO_END FOR$IO_T_DS FOR$READ_SFPPP!PPPPP&KP!G{STARTUP_DEVICE0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79STARTUP_DEVICESTARTUP_DEVICEP  cxP@PI[\VƢ^(ƢƘnƢW^(nWWW\^ LIB$PUT_OUTPUT\^ SYS$ASSIGNP0, LIB$SIGNALP`P`P `P<`PQ`P `P `P`P `P<``P `P`2<DPPT4SYS$QIOWPlh LIB$SIGNALP`PPP2`tp LIB$SIGNAL\]~Ɔ^(ƆfnƆXXW [~Wb^(bQnbXXW^(nWM^(M-nMXXW [~W)^()n)XXW^(!nWWxW\^|ˀLIB$PUT_OUTPUT\^\Ʋ^(ƲƦnƲW^(&nWƻ^(ƻƶnƻXXW ^( 7n WWˈW\^ˌːLIB$PUT_OUTPUT\^QUEUE_ASYNC_READPStarting a watch on device QFrom Q], to QProtocol Q, display option  ISTARTUP_DEVICELIB$PUT_OUTPUT LIB$SIGNALQUEUE_ASYNC_READ SYS$ASSIGNSYS$QIOW,$CODE@$PDATA$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATAYPPP2 ,ENABLE_CONTROLC0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79ENABLE_CONTROLCENABLE_CONTROLCP #PROCESS_CONTROLCP@PH[kSYS$QIOWPP84LIB$STOP HENABLE_CONTROLCLIB$STOPPROCESS_CONTROLCSYS$QIOW($CODE$PDATA<$LOCAL ADDRESS_RANGEIO_STATUS_BLOCK ITEM_LIST_2 ITEM_LIST_3ITEM_LIST_PAIRITEM_QUOTA_LISTLOCK_STATUS_BLOCK RIGHTS_HOLDERUIC NODE_RECORD ETH_PARAMSETH_PARAM_DESC ETH_ADDRDEFETH_DEFETHER_WATCH_DATAP (PROCESS_CONTROLC0125-Feb-1994 09:4025-Feb-1994 09:40VAX FORTRAN V5.4-79PROCESS_CONTROLCPROCESS_CONTROLCPPH[kLIB$STOP HPROCESS_CONTROLCLIB$STOP$CODE$PDATA$LOCAL #