ߠ MX023.BMX023.BLBACKUP/INTERCHANGE/BLOCK=8192 [.NETLIB_INSTALL]*.*;* SYS$DISK:[]MX023.B/SAVE MADISON ?M$V5.4 _ECS01::  _$50$DUA62: V5.4  )**[MX.KIT.NETLIB_INSTALL]CMU064_ERRORS.OPT;2+,h. /> 4L 0- b0123KPWO 56E! 77$89G>HJ UNIVERSAL =-( NET$_IR,- ! INSUFFICIENT RESOURCES.( NET$_IFC,- ! INVALID FUNCTION CODE.& NET$_UCT,- ! UNABLE TO CREATE TCB( NET$_IFS,- ! INVALID FOREIGN SOCKET$ NET$_ILP,- ! INVALID LOCAL PORT( NET$_NUC,- ! NON-UNIQUE CONNECTION.3 NET$_CSE,- ! CONNECTION TABLE SPACE EXHAUSTED.< NET$_NOPRV,- ! INSUFFICIENT PRIVILEGES TO USE LOCAL PORT5 NET$_CIP,- ! CONNECTION ILLEGAL FOR THIS PROCESS* NET$_CC,- ! ERROR: CONNECTION CLOSING, NET$_CDE,- ! CONNECTION DOES NOT EXIST.( NET$_CR,- ! ERROR: CONNECTION RESET- NET$_FSU,- ! Foreign-Socket unspecified.' NET$_UNN,- ! Unknown Network Node.& NET$_VTF,- ! Valid-TCB Table Full% NET$_CTO,- ! Connection TimeOut.$ NET$_TWT,- ! Time-Wait TimeOut.E NET$_FTO,- ! User function timeout. Network event didn't happen.L NET$_CRef,- ! Connection REFUSED, RESET in SYN-Recv state. Active open.9 NET$_CCAN,- ! Connection cancelled by process abort. NET$_TE,- ! TCP is Exiting.* NET$_FIP,- ! IO Function in Progress.5 NET$_BTS,- ! User specified buffer is Too small.* NET$_ihi,- ! invalid known host index" NET$_bdi,- ! Bad device index. NET$_epd,- ! error processing device dump) NET$_URC,- ! Destination Unreachable( NET$_IGF,- ! Invalid GTHST function# NET$_UNA,- ! Unknown host name% NET$_UNU,- ! Unknown host number3 NET$_NYI,- ! User function not yet implemented1 NET$_NOINA,- ! Access to internet not allowed0 NET$_NOANA,- ! Access to ARPANET not allowed3 NET$_NOPN,- ! UDP wildcard connection not open0 NET$_NOADR,- ! Host address not yet resolved* NET$_GTHFUL,- ! GTHST queue full error* NET$_DAE,- ! NET$DUMP: Argument error( NET$_NMLTO,- ! Name-lookup timed-out* NET$_NSEXIT,- ! Name server is exiting* NET$_NONS,- ! Name server not running. NET$_NSQFULL,- ! Name server queue is full1 NET$_DSDOWN,- ! Domain service is unavailable? NET$_DSNODS,- ! Domain service: no domain servers contacted6 NET$_DSINCOMP,- ! Domain service: incomplete reply8 NET$_DSNOADDR,- ! Domain service: no addresses found3 NET$_DSNONAME,- ! Domain service: no name found; NET$_DSFMTERR,- ! Domain service: format error in query2 NET$_DSSRVERR,- ! Domain service: server error0 NET$_DSNAMERR,- ! Domain service: name error; NET$_DSNOTIMP,- ! Domain service: query not implemented3 NET$_DSREFUSD,- ! Domain service: query refused= NET$_DSNONSRV,- ! Domain service: no usable servers found: NET$_DSUNKERR,- ! Domain service: unknown server error@ NET$_DSREFEXC,- ! Domain service: maximum referrals exceeded1 NET$_GREENERR,- ! Unknown name lookup failure3 NET$_GP_INVREQ,- ! Name lookup: invalid request: NET$_GP_INVINF,- ! Name lookup: invalid host info item< NET$_GP_INVNAM,- ! Name lookup: invalid host name syntax? NET$_GP_INVADR,- ! Name lookup: invalid host address syntax: NET$_GP_INVMBX,- ! Name lookup: invalid mailbox syntax8 NET$_GP_INVCLS,- ! Name lookup: invalid domain class5 NET$_GP_RSBUSY,- ! Name lookup: resolver too busy< NET$_GP_NONMSR,- ! Name lookup: no name server availableC NET$_GP_NOHINF,- ! Name lookup: specified host info unavailable2 NET$_GP_NOTFND,- ! Name lookup: name not found5 NET$_GP_UNKMBX,- ! Name lookup: mailbox not found< NET$_GP_NOTIMP,- ! Name lookup: function not implemented9 NET$_GP_TOOBIG,- ! Name lookup: reply too big for UDP= NET$_GP_NSDOWN,- ! Name lookup: all name servers are down- NET$_NRT ! No route to specified address'*[MX.KIT.NETLIB_INSTALL]CMU_ERRORS.OPT;1+,h. /> 4L - b0123KPWO 56 ' 77$89G>HJ  UNIVERSAL = -( NET$_IR,- ! INSUFFICIENT RESOURCES.( NET$_IFC,- ! INVALID FUNCTION CODE.( NET$_IPC,- ! INVALID PROTOCOL CODE.& NET$_UCT,- ! UNABLE TO CREATE TCB( NET$_IFS,- ! INVALID FOREIGN SOCKET$ NET$_ILP,- ! INVALID LOCAL PORT( NET$_NUC,- ! NON-UNIQUE CONNECTION.3 NET$_CSE,- ! CONNECTION TABLE SPACE EXHAUSTED.< NET$_NOPRV,- ! INSUFFICIENT PRIVILEGES TO USE LOCAL PORT5 NET$_CIP,- ! CONNECTION ILLEGAL FOR THIS PROCESS* NET$_CC,- ! ERROR: CONNECTION CLOSING, NET$_CDE,- ! CONNECTION DOES NOT EXIST.( NET$_CR,- ! ERROR: CONNECTION RESET- NET$_FSU,- ! Foreign-Socket unspecified.' NET$_UNN,- ! Unknown Network Node.& NET$_VTF,- ! Valid-TCB Table Full% NET$_CTO,- ! Connection TimeOut.$ NET$_TWT,- ! Time-Wait TimeOut.E NET$_FTO,- ! User function timeout. Network event didn't happen.L NET$_CRef,- ! Connection REFUSED, RESET in SYN-Recv state. Active open.9 NET$_CCAN,- ! Connection cancelled by process abort. NET$_TE,- ! TCP is Exiting.* NET$_FIP,- ! IO Function in Progress.5 NET$_BTS,- ! User specified buffer is Too small.* NET$_ihi,- ! invalid known host index" NET$_bdi,- ! Bad device index. NET$_epd,- ! error processing device dump) NET$_URC,- ! Destination Unreachable( NET$_IGF,- ! Invalid GTHST function# NET$_UNA,- ! Unknown host name% NET$_UNU,- ! Unknown host number3 NET$_NYI,- ! User function not yet implemented1 NET$_NOINA,- ! Access to internet not allowed0 NET$_NOANA,- ! Access to ARPANET not allowed3 NET$_NOPN,- ! UDP wildcard connection not open0 NET$_NOADR,- ! Host address not yet resolved* NET$_GTHFUL,- ! GTHST queue full error* NET$_DAE,- ! NET$DUMP: Argument error( NET$_NMLTO,- ! Name-lookup timed-out* NET$_NSEXIT,- ! Name server is exiting* NET$_NONS,- ! Name server not running. NET$_NSQFULL,- ! Name server queue is full1 NET$_DSDOWN,- ! Domain service is unavailable? NET$_DSNODS,- ! Domain service: no domain servers contacted6 NET$_DSINCOMP,- ! Domain service: incomplete reply8 NET$_DSNOADDR,- ! Domain service: no addresses found3 NET$_DSNONAME,- ! Domain service: no name found; NET$_DSFMTERR,- ! Domain service: format error in query2 NET$_DSSRVERR,- ! Domain service: server error0 NET$_DSNAMERR,- ! Domain service: name error; NET$_DSNOTIMP,- ! Domain service: query not implemented3 NET$_DSREFUSD,- ! Domain service: query refused= NET$_DSNONA MX023.Bh b'[MX.KIT.NETLIB_INSTALL]CMU_ERRORS.OPT;1L SRV,- ! Domain service: no usable servers found: NET$_DSUNKERR,- ! Domain service: unknown server error@ NET$_DSREFEXC,- ! Domain service: maximum referrals exceeded1 NET$_GREENERR,- ! Unknown name lookup failure3 NET$_GP_INVREQ,- ! Name lookup: invalid request: NET$_GP_INVINF,- ! Name lookup: invalid host info item< NET$_GP_INVNAM,- ! Name lookup: invalid host name syntax? NET$_GP_INVADR,- ! Name lookup: invalid host address syntax: NET$_GP_INVMBX,- ! Name lookup: invalid mailbox syntax8 NET$_GP_INVCLS,- ! Name lookup: invalid domain class5 NET$_GP_RSBUSY,- ! Name lookup: resolver too busy< NET$_GP_NONMSR,- ! Name lookup: no name server availableC NET$_GP_NOHINF,- ! Name lookup: specified host info unavailable2 NET$_GP_NOTFND,- ! Name lookup: name not found5 NET$_GP_UNKMBX,- ! Name lookup: mailbox not found< NET$_GP_NOTIMP,- ! Name lookup: function not implemented9 NET$_GP_TOOBIG,- ! Name lookup: reply too big for UDP= NET$_GP_NSDOWN,- ! Name lookup: all name servers are down/ NET$_NRT,- ! No route to specified address4 NET$_KILL ! This connection has been terminated'*[MX.KIT.NETLIB_INSTALL]NETLIBDEF.L32;29+,~h./> 4x- b0123KPWO56`y]7$89G>HJ VAX Bliss-32 V4.6-90219-Mar-1991 15:50:29  ( < P d  @ NET_M_PUSH@ NET_V_PUSH @ NET_M_NOTRM@ NET_V_NOTRM @ NET_K_TCP @ NET_K_UDP&*[MX.KIT.NETLIB_INSTALL]NETLIBDEF.R32;1+,|h./> 46- b0123KPWO5(6`=67Z$89G>HJ!++!! NETLIBDEF.R32!6! Definitions for use by callers of NETLIB routines.!!--LITERAL! Protocol values for NET_BIND NET_K_TCP = 1, NET_K_UDP = 2,)! Mask values for TCP_SEND FLAGS argument NET_M_PUSH = 1, NET_M_NOTRM = 2;(! Bit values for TCP_SEND FLAGS argumentMACRO NET_V_PUSH = 0,0,1,0%, NET_V_NOTRM = 0,1,1,0%;(*[MX.KIT.NETLIB_INSTALL]NETLIB_CMU.OLB;38+,h.f/> 4f-- b0123 KPWO-56Vh{7$89G>HJ% VAX-11 Librarian V04-00{h{@h{!,- `   e NETLIB_CMU_MXLOOK NETLIB_CMU_NETRNETLIB_CMU_TCPNETLIB_CMU_UDP 0NETWORKh  DNS_MXLOOK 0IPACP$_FACILITY 0NET$_BDI 0NET$_BTS 0NET$_CC 0 NET$_CCAN 0NET$_CDE 0NET$_CIP 0NET$_CR 0 NET$_CREF 0NET$_CSE 0NET$_CTO 0NET$_DAE 0 NET$_DSDOWN 0 NET$_DSFMTERR 0 NET$_DSINCOMP 0 NET$_DSNAMERR 0 NET$_DSNOADDR 0 NET$_DSNODS 0 NET$_DSNONAME 0 NET$_DSNONSRV 0 NET$_DSNOTIMP 0 NET$_DSREFEXC 0 NET$_DSREFUSD 0 NET$_DSSRVERR 0 NET$_DSUNKERR NET_ADDR_TO_NAME  NET_ASSIGN-1P MX023.Bh b([MX.KIT.NETLIB_INSTALL]NETLIB_CMU.OLB;38fHR TCP_CONNECTRTCP_CONNECT_ADDRRTCP_DISCONNECTR TCP_GET_LINER TCP_RECEIVERTCP_SEND UDP_RECEIVEUDP_SENDj NET$_DSNONSRVNET$_GP_NOTFND NET$_NONS NET_ASSIGN TCP_ACCEPTUDP_SEND NET_BIND NET_CVT_STATUS  NET_DEASSIGN NET_GET_ADDRESS NET_GET_HOSTNAME  NET_GET_INFOR TCP_ACCEPT] 0 NET$_DSNOTIMP 0 NET$_DSREFEXC 0 NET$_DSREFUSD 0 NET$_DSSRVERR 0 NET$_DSUNKERR 0NET$_EPD 0NET$_FIP 0NET$_FSU 0NET$_FTO 0NET$_GP_INVADR 0NET$_GP_INVCLS 0NET$_GP_INVINF 0NET$_GP_INVMBX 0NET$_GP_INVNAM 0NET$_GP_INVREQ 0NET$_GP_NOHINF 0NET$_GP_NONMSR 0NET$_GP_NOTFND 0NET$_GP_NOTIMP 0NET$_GP_NSDOWN 0NET$_GP_RSBUSY 0NET$_GP_TOOBIG 0NET$_GP_UNKMBX NET_ADDR_TO_NAME  NET_ASSIGN[ 0NET$_GP_NOTIMP 0NET$_GP_NSDOWN 0NET$_GP_RSBUSY 0NET$_GP_TOOBIG 0NET$_GP_UNKMBX 0 NET$_GREENERR 0 NET$_GTHFUL 0NET$_IFC 0NET$_IFS 0NET$_IGF 0NET$_IHI 0NET$_ILP 0NET$_IPC 0NET$_IR 0 NET$_KILL 0 NET$_NMLTO 0 NET$_NOADR 0 NET$_NOANA 0 NET$_NOINA 0 NET$_NONS 0 NET$_NOPN 0 NET$_NOPRV 0NET$_NRT 0 NET$_NSEXIT 0 NET$_NSQFULL 0NET$_NUC NET_ADDR_TO_NAME  NET_ASSIGN 0 NET$_NOPN 0 NET$_NOPRV 0NET$_NRT 0 NET$_NSEXIT 0 NET$_NSQFULL 0NET$_NUC 0NET$_NYI 0NET$_TE 0NET$_TWT 0NET$_UCT 0NET$_UNA 0NET$_UNN 0NET$_UNU 0NET$_URC 0NET$_VTF NET_ADDR_TO_NAME  NET_ASSIGN 1@R<_V1.0>NETLIB_CMU_MXLOOKV1.021-Mar-1991 13:1521-Mar-1991 13:15VAX Bliss-32 V4.5-862.NETLIB_CMU_MXLOOK DNS_MXLOOK,P. IP:LIB$ANALYZE_SDESC LIB$FREE_VM LIB$GET_VM STR$COPY_DX STR$APPEND STR$FREE1_DX STR$POS_EXTR STR$POSITION STR$COMPARE STR$CONCAT STR$COPY_R STR$UPCASE LIB$ADD_TIMES LIB$SUB_TIMES_ SYS$ASSIGN STR$FREE1_D XSYS$QIOW SYS$DASSGN STR$FREE1_DX STR$FREE1_DXP  DNS_MXLOOKF  588 STR$FREE1_DXW STR$APPENDVU^ЏԮԼ Pݬ STR$UPCASE<PP.Uf f|~ SYS$ASSIGNPRR;}~ݮ$<~4|~(%<(~~ SYS$QIOWPRx TCP_ACCEPT0SYS$QIOSYS$QIOW x TCP_ACCEPT# x #l(|~~мPݠ(|~}~ݬ 3мP<,~~ SYS$QIOмQ R|~~мPݠ(|~|~R3<,~~ SYS$QIOWPb, ݢNET_CVT_STATUS6@ TCP_SND_AST @ QK^ЬRR STR$FREE1_DX} SR LIB$FREE_VMSTcP4t TCP_RECEIVEP SYS$SETIMRSYS$QIO SYS$CANTIM SYS$SYNCH t TCP_RECEIVE> t z/NET_CVT_STATUSY^ЬS,cTЬR<( LIB$GET_VMЮVclЬ l}|Ԧ~V c~~ SYS$SETIMR|~|~$CODE$$CODE$>$PLIT$ !$PLIT$ QHww1J`ͼ-=01NETWORK0 5-SEP-1990 15:26 5-SEP-1990 15:26VAX-11 Message V04-00k$ABS$` MSG$SECTIONMSG$AAAAAAAAAAAMSG$AAAAAAAAAABMSG$AAAAAAAAAACBc NET$_KILL:cNET$_NRT2cNET$_GP_NSDOWN*cNET$_GP_TOOBIG"cNET$_GP_NOTIMPcNET$_GP_UNKMBXcNET$_GP_NOTFND cNET$_GP_NOHINFcNET$_GP_NONMSRcNET$_G"P_RSBUSYcNET$_GP_INVCLScNET$_GP_INVMBXcNET$_GP_INVADRځcNET$_GP_INVNAMҁcNET$_GP_INVINFʁcNET$_GP_INVREQc NET$_GREENERRc NET$_DSREFEXCc NET$_DSUNKERRc NET$_DSNONSRVc NET$_DSREFUSDc NET$_DSNOTIMPc NET$_DSNAMERRc NET$_DSSRVERRc NET$_DSFMTERRzc NET$_DSNONAMErc NET$_DSNOADDRjc NET$_DSINCOMPbc NET$_DSNODSZc NET$_DSDOWNRc NET$_NSQFULLJc NET$ʂ MX023.Bh b([MX.KIT.NETLIB_INSTALL]NETLIB_CMU.OLB;38fB"#_NONSBc NET$_NSEXIT:c NET$_NMLTO2cNET$_DAE*c NET$_GTHFUL"c NET$_NOADRc NET$_NOANAc NET$_NOINA c NET$_NOPNcNET$_NYIcNET$_FTOcNET$_TEcNET$_TWTcNET$_CTOڀcNET$_CCҀcNET$_UNUʀcNET$_UNA€cNET$_IGFcNET$_URCcNET$_EPDcNET$_BDIcNET$_IHIcNET$_BTScNET$_FIPc NET$_CCANc NET$_CREFzcNET$_VTFrcNET$_UNN$jcNET$_FSUbcNET$_CRZcNET$_CDERcNET$_CIPJc NET$_NOPRVBcNET$_CSE:cNET$_NUC2cNET$_ILP*cNET$_IFS"cNET$_UCTcNET$_IPCcNET$_IFC cNET$_IRcIPACP$_FACILITYPeP*P'P`(VpH{cpcc c(c0c68cV@cHcPcXc`cFhcrpcxccc&cZc%cccccDȀchЀc؀cccc c@cccc c:(cx0c8c@c HcH Pc Xc `c hcV pc xc c$ cj c c c& cn c c c2 ȁcl Ёc ؁c cBccccZccc cD(c0c8c @c6*IRInsufficient system resources,IFCInvalid network fun&ction code,IPCInvalid network protocol code"UCTUnable to create TCB"IFSInvalid foreign port ILPInvalid local port.NUCNon-unique connection specified.CSE Connection table space exhausted:NOPRV*No privilege for access to well-known port2CIP#Connection illegal for this process(CDEConnection does not exist,CRConnection RESET by remote host&FSUForeign host unspecified"UNNUnknown net'work node<VTF-Valid-TCB table full (all connections in use)0CREF!Connection refused by remote host4CCAN%Connection cancelled by process abort&FIPIO Function in Progress0BTS"User specified buffer is Too small&IHIInvalid known host indexBDIBad device index*EPDError processing device dump&URCDestination Unreachable$IGFInvalid GTHST function UNAUnknown host name"UNUUnknown host numb(er6CC)Connection is closing - operation invalid CTOConnection TimeOut TWTTime-Wait TimeOut TENet ACP is Exiting@FTO2User function timeout. Network event didn't happen0NYI!User function not yet implemented4NOPN$UDP wildcard connection not yet open,NOINAInternet access not allowed*NOANAARPANET access not allowed>NOADR.Name lookup not yet complete - no host addressDGTHFUL2GTHST queue full )- can't queue name/address lookup&DAENET$DUMP argument error*NMLTOHost name lookup time-out<NSEXIT+Name lookup failure: name server is exiting>NONS/Name lookup failure: name server is not running@NSQFULL.Name lookup failure: name server queue is fullJDSDOWN9Name not found in host table (domain service unavailable)FDSNODS4Domain service: no domain servers could be contactedJDSINCOMP7Domain service: received incomplete dom*ain server replyDDSNOADDR0Domain service: no addresses found for host name@DSNONAME,Domain service: no name found for IP addressFDSFMTERR3Domain service: domain server returned format error6DSSRVERR#Domain service: domain server error<DSNAMERR)Domain service: name error (no such name)JDSNOTIMP6Domain service: domain server returned not implementedHDSREFUSD5Domain service: domain server refused to resolve nameJDSNONSRV6Domai+n service: no usable servers returned by referral8DSUNKERR$Domain service: unknown server errorBDSREFEXC/Domain service: maximum referral limit exceeded:GREENERR'Name lookup failure, unknown error codeB GP_INVREQ-Name lookup: invalid request (internal error)H GP_INVINF4Name lookup: invalid host info item (internal error)L GP_INVNAM8Name lookup: invalid domain name syntax (internal error)H GP_INVADR4Name lookup: invalid address syntax (in,ternal error)H GP_INVMBX4Name lookup: invalid mailbox syntax (internal error)F GP_INVCLS2Name lookup: invalid domaifn class (internal error)B GP_RSBUSY-Name lookup: resolver to busy to handle query> GP_NONMSR*Name lookup: no name server could be foundF GP_NOHINF2Name lookup: request host info item does not exist4 GP_NOTFND Name lookup: host name not found2 GP_UNKMBXName lookup: mailbox not foundH GP_NOTIMP3Name lookup: unimplemented request (internal error)> GP_TOOBIG)Name lookup: request data too big for UDP@ GP_NSDOWN+Name lookup: all name servers declared down,NRTNo route found for destination KILLConnection killedcIPACPww+*[MX.KIT.NETLIB_INSTALL]NETLIB_CMU.VERSION;2+,h./> 4 - b0123KPWO5(6j77$89G>HJ IDENT="V1.0"+*[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.OLB;38+,h.f/> 4fB- b0123 KPWOB56`h{7`r$89G>HJ% VAX-11 Librarian V04-007h{ ^h{!AB _   g NETLIB_CMU064_NETNETLIB_CMU064_UDPNETLIB_CMU_TCPR NETLIB_MXLOOK5jNETWORKE MX023.Bh b+[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.OLB;38fVR DNS_MXLOOKRGET_NAMESERVERS5jIPACP$_FACILITY5jNET$_BDI5jNET$_BTS5jNET$_CC5j NET$_CCAN5jNET$_CDE5jNET$_CIP5jNET$_CR5j NET$_CREF5jNET$_CSE5jNET$_CTO5jNET$_DAE5j NET$_DSDOWN5j NET$_DSFMTERR5j NET$_DSINCOMP5j NET$_DSNAMERR5j NET$_DSNOADDR5j NET$_DSNODS5j NET$_DSNONAME5j NET$_DSNONSRV5j NET$_DSNOTIMP5j NET$_DSREFEXC5j NET$_DSREFUSD NET_ADDR_TO_NAME  NET_ASSIGN NET_BINDTTCP_CONNECT_ADDRTCP_DISCONNECT TCP_GET_LINE TCP_RECEIVETCP_SEND UDP_RECEIVEUDP_SENDg NET$_DSNODSNET$_GP_NOHINF NET$_NONS NET_BIND TCP_CONNECTUDP_SEND NET_CVT_STATUS  NET_DEASSIGN NET_GET_ADDRESS NET_GET_HOSTNAME  NET_GET_INFO TCP_ACCEPT TCP_CONNECT[5j NET$_DSNONAME5j NET$_DSNONSRV5j NET$_DSNOTIMP5j NET$_DSREFEXC5j NET$_DSREFUSD5j NET$_DSSRVERR5j NET$_DSUNKERR5jNET$_EPD5jNET$_FIP5jNET$_FSU5jNET$_FTO5jNET$_GP_INVADR5jNET$_GP_INVCLS5jNET$_GP_INVINF5jNET$_GP_INVMBX5jNET$_GP_INVNAM5jNET$_GP_INVREQ5jNET$_GP_NOHINF5jNET$_GP_NONMSR5jNET$_GP_NOTFND5jNET$_GP_NOTIMP5jNET$_GP_NSDOWN NET_ADDR_TO_NAME  NET_ASSIGN NET_BINDf5jNET$_GP_NONMSR5jNET$_GP_NOTFND5jNET$_GP_NOTIMP5jNET$_GP_NSDOWN5jNET$_GP_RSBUSY5jNET$_GP_TOOBIG5jNET$_GP_UNKMBX5j NET$_GREENERR5j NET$_GTHFUL5jNET$_IFC5jNET$_IFS5jNET$_IGF5jNET$_IHI5jNET$_ILP5jNET$_IR5j NET$_NMLTO5j NET$_NOADR5j NET$_NOANA5j NET$_NOINA5j NET$_NONS5j NET$_NOPN5j NET$_NOPRV5jNET$_NRT5j NET$_NSEXIT5j NET$_NSQFULL NET_ADDR_TO_NAME  NET_ASSIGN NET_BIND!5j NET$_NOPN5j NET$_NOPRV5jNET$_NRT5j NET$_NSEXIT5j NET$_NSQFULL5jNET$_NUC5jNET$_NYI5jNET$_TE5jNET$_TWT5jNET$_UCT5jNET$_UNA5jNET$_UNN5jNET$_UNU5jNET$_URC5jNET$_VTF NET_ADDR_TO_NAME  NET_ASSIGN NET_BIND 1 fZ{V1.0-1@NETLIB_CMU064_NETV1.0-126-Apr-1991 14:2426-Apr-1991 14:24VAX Bliss-32 V4.5-862.NETLIB_CMU064_NET NET_ASSIGN<P0 00:05:00 INET$DEVICE IP0:( LIB$GET_VM LIB$FREE_VM STR$CONCAT STR$FREE1_DX STR$APPEND STR$COPY_DXSTR$FIND_FIRST_NOT_IN_SET STR$TRANSLATE LIB$CVT_DTB STR$UPCASE STR$COPY_R SYS$BINTIM SYS$ASSIGN SYS$ASSIGNP  NET_ASSIGN%  / SYS$ASSIGNY X^ݬ0 LIB$GET_VMPWмV,n0fWYPP`PX SYS$BINTIM|~,iPWWD W |~, iPWWݬ0 LIB$FREE_VMWPNET_BIND"SYS$QIOW NET_BIND$  b#l^l мPЬ (ѬFNETLIB_CMU064_UDPV1.126-AprpX@ MX023.Bh b+[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.OLB;38fJ\ -1991 14:2426-Apr-1991 14:24VAX Bliss-32 V4.5-862,NETLIB_CMU064_UDPUDP_SEND@NET_CVT_STATUS LIB$GET_VM LIB$FREE_VMSYS$QIOWP UDP_SEND'  ' ^,Y<X XX LIB$GET_VMPWWgЮVfЬ ( |~~@|~(0x TCP_ACCEPT0SY S$QIOSYS$QIOW x TCP_ACCEPT# x #l(|~~мPݠ(|~}~ݬ 3мP<,~~ SYS$QIOмQ R|~~мPݠ(|~|~R3<,~~ SYS$QIOWPb, ݢNET_CVT_STATUS6@ TCP_SND_AST @ QK^ЬRR STR$FREE1_DX} SR LIB$FREE_VMSTcP4t TCP_RECEIVEP SYS$SETIMRSYS$QIO SYS$CANTIM SYS$SYNCH t TCP_RECEIVE> t z/NET_CVT_STATUSY^ЬS,cTЬR<( LIB$GET_VMЮVclЬ l}|Ԧ~Vc~~ SYS$SETIMR|~|~ !AS)Ɔ} MX023.Bh b+[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.OLB;38f{!"LNM$SYSTEM PNETLIB_DEBUG d%NETLIB_MXLOOK, cleaned entry [!UL], !AD, from CNAMTAB6xLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, MX entry[!UL]: !AD expires !%D.LNM$SYSTEM NETLIB_DEBUG ,%NETLIB_MXLOOK, We have a match, entry [!UL].../@LNM$SYSTEM xNETLIB_DEBUG %NETLIB_MXLOOK, !AD, pref=!ULLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, cleaned entry [!UL], !AD, from# MXTAB5LNM$SYSTEM 0NETLIB_DEBUG D%NETLIB_MXLOOK, Asking nameserver !AF about name !AS4X..LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, trying !UB.!UB.!UB.!UB...+LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, got !UW answer!%S and !UW auth!%S with authoritative = !ULK0igLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, CNAME -> !ASLNM$SYSTEM N$ETLIB_DEBUG %NETLIB_MXLOOK, MX Pref=!UW, name=!AS(LNM$SYSTEM 4NETLIB_DEBUG H%NETLIB_MXLOOK, NS -> !AS\LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, Name error with authoritative = !UL3 SYS$BINTIM SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SY%S$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT &LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DXP  y>  (      %'^ЬЬ ЬYЏЏЏ ЏPP.,n,nPPnn1? ԾԮP| SYS$BINTIM SYS$GETTIMݬ STR$UPCASE<PP. STR$APPENDTŏTP@1\@U % |~~ SYS$TRNLNMP-U < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTU LIB$SUB_TIMESP~- (nŎŌ STR$COPY_R % |~~ SYS$TRNLNMP(T~H LIB$SYS_FAOLIB$PUT_OUTPUTb % |~p\~ SYS$TRNLNMP+ < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTTWŏWP@1@T % |~~ SYS$TRNLNMP-T<~W~ LIB$SYS_FAOLIB$PUT_OUTPUT)T LIB$SUB_TIMESP1/-1Đ[ĘZĠX % |~8$~ SYS$TRNLNMP$W~p LIB$SYS_FAOLIB$PUT_OUTPUTФTTоTTV1 % |~~ SYS$TRNLNMP1~<~R1~~/ LIB$SYS_FAOLIB$PUT_OUTPUT> Ծ<4n֮Ѯ 1n@ NET_DEASSIGNDD  LIB$FREE_VM STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DXnP  NAME_UNPACK1P..PI  1:  d  STR$COPY_DXXW STR$APPENDV^ЬUЬSЬ RhCT b UhT?1TbTnbSP0 @fUfTbPbCTʟCQbSPQbildcard connection not yet open,NOINAInternet access not allowed*NOANAARPANET access not allowed>NOADR.Name lookup not yet complete - no host addressDGTHFUL2GTHST queue full - can't queue name/address lookup&DAENET$DUMP argument error*NMLTOHost name lookup time-out<NSEXIT+Name lookup failure: name server is exiting>NONS/Name lookup failure: name server is not running@NSQFULL.Name lookup failure: name server qu?eue is fullJDSDOWN9Name not found in host table (domain service unavailable)FDSNODS4Domain service: no domain servers could be contactedJDSINCOMP7Domain service: received incomplete domain server replyDDSNOADDR0Domain service: no addresses found for host name@DSNONAME,Domain service: no name found for IP addressFDSFMTERR3Domain service: domain server returned format error6DSSRVERR#Domain service: domain server error<DSNAMER % MX023.Bh b+[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.OLB;38fB?@R)Domain service: name error (no such name)JDSNOTIMP6Domain service: domain server returned not implementedHDSREFUSD5Domain service: domain server refused to resolve nameJDSNONSRV6Domain service: no usable servers returned by referral8DSUNKERR$Domain service: unknown server errorBDSREFEXC/Domain service: maximum referral limit exceeded:GREENERR'Name lookup failure, unknown error codeB GP_INVREQ-Name lookup: invalid request (internal Aerror)H GP_INVINF4Name lookup: invalid host info item (internal error)L GP_INVNAM8Name lookup: invalid domain name syntax (internal error)H GP_INVADR4Name lookup: invalid address syntax (internal error)H GP_INVMBX4Name lookup: invalid mailbox syntax (internal error)F GP_INVCLS2Name lookup: invalid domain class (internal error)B GP_RSBUSY-Name lookup: res olver to busy to handle query> GP_NONMSR*Name lookup: no name server could be foundF GP_NOHINF2Name lookup: request host info item does not exist4 GP_NOTFND Name lookup: host name not found2 GP_UNKMBXName lookup: mailbox not foundH GP_NOTIMP3Name lookup: unimplemented request (internal error)> GP_TOOBIG)Name lookup: request data too big for UDP@ GP_NSDOWN+Name lookup: all name servers declared down,NRTNo route found for destinationcIPACPww.*[MX.KIT.NETLIB_INSTALL]NETLIB_CMU064.VERSION;3+,h./> 4 - b0123KPWO56Xg{7`$89G>HJ IDENT="V1.1",*[MX.KIT.NETLIB_INSTALL]NETLIB_INSTALL.COM;13+,uh./> 4U- b0123KPWO56 [s`{7$89G>HJ$! [NETLIB]NETLIB_INSTALL.COM$!.$! KITINSTAL procedure for installing NETLIB.$!0$! 31-JAN-1991 V1.0 Madison Initial coding.M$! 05-FEB-1991 V1.0-1 Madison Two parts for integration into other kits.6$! 26-APR-1991 V1.0-2 Madison Nameserver changes.$!)$ ON CONTROL_Y THEN GOTO NETLIB_CONTROL_Y"$ ON WARNING THEN GOTO NETLIB_FAIL$!$ GOTO NETLIB_INSTALL$!$NETLIB_CONTROL_Y:=$ IF F$TRNLNM ("NETLIB_STUP") .NES. "" THEN CLOSE NETLIB_STUP$ VMI$CALLBACK CONTROL_Y$! $NETLIB_FAIL:$ NETLIB_STATUS == $STATUS=$ IF F$TRNLNM ("NETLIB_STUP") .NES. "" THEN CLOSE NETLIB_STUP$ EXIT 'NETLIB_STATUS$!$NETLIB_INSTALL:$!$ IF P2 THEN SET VERIFY$! $ NETLIB_SAY := WRITE SYS$OUTPUT$!-$ NETLIB_INSTALL_NODE = F$GETSYI ("NODENAME")$!%$! Build the tables for menu choices.$!$ NETLIB_TCP_NAMES = "?" +- ":CMU-Tek TCP/IP V6.4"+- ":CMU-Tek TCP/IP V6.5"+-' ":DEC VMS/ULTRIX Connection V1.2"+-' ":DEC VMS/ULTRIX Connection V1.3"+- ":TGV MultiNet V2.2"G$ NETLIB_TCPS = "?:NETLIB_CMU064:NETLIB_CMU:NETLIB_UCX012:NETLIB_UCX"+- ":NETLIB_MULTINET"$ NETLIB_I = 0$NETLIB_INIT_LOOP:$ NETLIB_I = NETLIB_I + 13$ NETLIB_TCP = F$ELEMENT (NETLIB_I,":",NETLIB_TCPS)8$ IF NETLIB_TCP .EQS. ":" THEN GOTO NETLIB_END_INIT_LOOP$ 'NETLIB_TCP = " "$ GOTO NETLIB_INIT_LOOP$!@$! Now we make some educated guesses about which TCP/IP's should$! be pre-selected.$!$NETLIB_END_INIT_LOOP:$!$ IF F$GETDVI ("IP0","EXISTS")$ THEN($ IF F$TRNLNM ("CMUTEK_ROOT") .NES. ""$ THEN$ NETLIB_CMU = "*"$ ELSE$ NETLIB_CMU064 = "*" $ ENDIF$ ENDIF-$ IF F$GETDVI ("UCX$DEVICE","EXISTS") .AND. -5 F$SEARCH ("SYS$SYSTEM:UCX$INETACP.EXE") .NES. ""$ THEN<$ IF F$SEARCH ("SYS$SYSTEM:UCX$INET_ROUTING.EXE") .NES. ""$ THEN$ NETLIB_UCX = "*"$ ELSE$ NETLIB_UCX012 = "*" $ ENDIF$ ENDIF;$ IF F$GETDVI ("INET0","EXISTS") THEN NETLIB_MULTINET = "*"$!$NETLIB_SELECT_MENU:$!$ TYPE SYS$INPUT:/ TCP/IP Support SelectionA Select the NETLIB TCP/IP support you wish to install from theC menu below. An asterisk appears next to the packages that haveB already been selected. You can remove a package from the listA by selecting it again. You may enter more than one selection+ by separating your choices with commas.$ NETLIB_M = 0$NETLIB_SEL_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)3$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_SELECT_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)I$ NETLIB_SAY F$FAO (" !2UL. [!AS] !AS", NETLIB_M, 'NETLIB_T, NETLIB_N)$ GOTO NETLIB_SEL_LOOP$NETLIB_SELECT_ASK:$ NETLIB_SAY ""3$ NETLIB_SAY F$FAO (" !2UL. Exit", NETLIB_M)$ NETLIB_SAY ""$ NETLIB_SAY ""$!*$ VMI$CALLBACK ASK NETLIB_CHOICE_INPUT -& " Your choice" "''NETLIB_M'"$ NETLIB_I = -1$NETLIB_PARSE_LOOP:$ NETLIB_I = NETLIB_I + 1@$ NETLIB_CHOICE = F$ELEMENT (NETLIB_I, ",", NETLIB_CHOICE_INPUT)9$ IF NETLIB_CHOICE .EQS. "," THEN GOTO NETLIB_SELECT_MENU+$ NETLIB_CHOICE = F$INTEGER (NETLIB_CHOICE)9$ IF NETLIB_CHOICE .EQ. NETLIB_M THEN GOTO NETLIB_CONFIRM:$ IF NETLIB_CHOICE .LT. 1 .OR. NETLIB_CHOICE .GT. NETLIB_M$ THEN&$ VMI$CALLBACK MESSAGE E BADCHOICE -L "Choice ''NETLIB_CHOICE' invalid; choices range from 1 to ''NETLIB_M'."$ ELSE:$ NETLIB_T = F$ELEMENT (NETLIB_CHOICE, ":", NETLIB_TCPS)$ IF 'NETLIB_T .EQS. "*"$ THEN$ 'NETLIB_T = " "$ ELSE$ 'NETLIB_T = "*" $ ENDIF$ ENDIF$ GOTO NETLIB_PARSE_LOOP$!$NETLIB_CONFIRM:$ NETLIB_SAY ""B$ NETLIB_SAY " You have selected the following TCP/IP support:"$ NETLIB_SAY ""$ NETLIB_CNT = 0$ NETLIB_M = 0$NETLIB_CONF_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)1$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_CONF_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)$ IF 'NETLIB_T .EQS. "*"$ THEN$ NETLIB_PRI = NETLIB_M"$ NETLIB_SAY " ",NETLIB_N$ NETLIB_CNT = NETLIB_CNT + 1$ ENDIF$ GOTO NETLIB_CONF_LOOP$!$NETLIB_CONF_ASK:7$ IF NETLIB_CNT .EQ. 0 THEN NETLIB_SAY " (None)"$ NETLIB_SAY ""$ NETLIB_SAY ""6$ VMI$CALLBACK ASK NETLIB_OK "Is this correct" "YES" B1$ IF .NOT. NETLIB_OK THEN GOTO NETLIB_SELECT_MENU$!$ IF NETLIB_CNT .EQ. 0$ THEN>$ VMI$CALLBACK MESSAGE I WONTINSTALL "No packages selected."$ EXIT VMI$_SUCCESS$ ENDIF$!/$ IF NETLIB_CNT .EQ. 1 THEN GOTO NETLIB_DIR_ASK$!$NETLIB_PRIMARY_MENU:$!$ TYPE SYS$INPUT:? You have selected support for more than one TCP/IP package.= You must now select which is to be used by default on the current system.$ NETLIB_M = 0$NETLIB_PRI_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)4$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_PRIMARY_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)2$ IF 'NETLIB_T .EQS. " " THEN GOTO NETLIB_PRI_LOOP8$ NETLIB_SAY F$FAO (" !2UL. !AS", N oXh b$[MX.KIT.NETLIB_INSTALL]CMU_ERRORS06(8ONz;38L  R&,, YDB?1~PN6ە ̫*į?ĭZ>P)w]UiCٕ)Π >wOnLBf|3_ށ_r}Yl:aj=$:Du< |_rCH!0<*(AҮbkmZEdrso])٧SBt72OG:ow`"d oi3X lhG1gnU7$|ݠ=A')MQZS[< 9?&<%T$YڡJA+' __7rjiMdxYiP5xh̫3'oz 0xI0nYcBz [SH% bz`[I1+Rj !@p{^1it! /,K([Ou. 1hjӏpw`(.!EwA8Ѯ( =&;u PzTiؖ72w^s;0IҖy<&$p`zz 7/ӽ\WAv_X F Wwױ?-Ce b*G1(P aI1YGK=}YyL0zMiFR3;Ukp˂+=E{@yUgd8 a)Uyo6PC- x>J+4mܽ梋P-sh oUtion73yq$&HadMB]mWPQĕf+u+!G 60=a @[Ma#A `((*v(?cA/Yw)At0HVюyC?i|{p1JDHEjLݟy"u^%GOEFz@{|Tx(@NQPpgR,l]H l0HV%vpI7 .&@y&lYOL ?)ʎ0j؁g3fC`mz9=*~:Chmdh;2-$\VUtBUV_ r&n!^$7tK7v|%NbhTUR4B-..R)E 8ZC6;B4j6 uNL=8dDpU\C߻1 CPzUcxr1#b|ek`Ml{ Q%u.rrt)Dd Z^(xiDW#XOnX!Y:?d,**$nTt aLRwTN %G"y 2^0e} #>X4$FZ ~CU)K+ ;EzwQTUO8"Ye*p׉> +g/+p; ;v+^SZm9|GFX lCy9g~O H||w)(YkFޟIvtlp#&yEWƊk;Cn\=6B覑hdn鎛 G/",Ly)d\aZ\$Ya $["j](u^޼֮{A#ՙbځQoP5hooBNdog~H!Ey`$^^ |#^Qum&_&ӟ*v;`QK⇸^Nv+\(sk0@szZ |ehv zgb>^BmF~`q0QPaIIh@ SJJmAQx(IHՐ>QUh*qvCOM' 0T0!Az#V~7PpʓDy'-57+ЁئHN8 9<ű"yRX"QsdLwqc:jƹ89 0WN׾;\ο)</?'V!̺'XF@8/::,ŜZu٫g%":hӭ~N2D?y j}*Dˆ4!<֚LCzJ) WU ]ױ`'uZ;A "lElbѐ#qIƀfkN–vH6$&"$렑ډo4H&!-~=% ?F@J6fΩ= b  +^Q٠9A0sm-͊!^s%hl_G/KZp6>[EX\eA~xNrVEF*L!VEe$mZE5=J* lq:DZvUp97RݩmXU~1O- JqـfSXFAƊLk)5wVNI0K{92v]\ .%- e;4NPEF ua4*Y@1DĒe] pVN.B \+nG( vgD hCslIbǕTb&O:} ٠Wl {ך#}t[qU)1P?La0bhy8Pe ^E9+2ܙLw-p*ukdcOK ij  "'>.0P ǿ)SKz[WcS^ixj ȐvB2Foŗ|`ϖ@ךw.lPA;<&sY>O]J|ML.%^uHfIZ&.xk9d)_-;\%O}8n9o% V &8<*k=m.JhGRߗ4q@yOK[c,BJM6hua=2K Ѱ{u%`ZujSyLnC F$RR+)l8-1B,O9`@C*W,KZzkR9&-u/*Ň/~ɜ{߃a,Jm!ʻ@!, -U],h@ `G#DaU2-^M|0~͂vl꭭t‡f9B)~},D *mpаǵdڸ-L?Ht/(ϵ+{,!}V3iIV jKK7l~y#𨇠 9z!⮫1])CJUSN XXRL`lD^lUs|8n]aUR}PaI8)J{rNr=f3$w n72$l,N0ȀauFj4OmPkcȧD0/w`|a;wj0A Lj]zn$Lw^nԸ5)߁a C̿9l2f7hS3g\ιQ= ZZTO4*b(v_bv$eOBSppgedJm3.icwq}-Zȃ H}g?0# vP" t2A=C[wu(4톆a\ׇR56r 3e5TԿI4vٻJO!XN:Uug s"g橲8;#Ui :3w5K{{RR#mv:$}M,8Agb?UB>AY>P9_@PbveGVhp`NntBVZƟo䎈a"Ou8PR'!0CU0xp\S@ck֕E%Q bXY]5L`xgWk,֨Yi_1kCkkihY9Tq|WB[;3rKQD J(A% f Bc״|t tF[1!b܀..ЍɈ9k7Ctp̲Ч##t}SNطlTQ]/[xj( - ի!|5P– g{q׏67`g 1^jX_/i/0CUzZxG(N+q50""'Z]]hfD[+(Z͕atN_2zxm6X 7nJXH.v"3[.ڷ>+GSi6'.ųjc{+0}0Ʌ%K/_ؿ+t}\*2F-hQ'n2"k4k"%]J9Yl~.8,\/<ٍcz"਷ؖ|AV>%9dŀܫ>:xۦzG4qꎾ޾No?-ڵE@-7&1*7Z$ۆ+ ΐg;EaN`8;i(w;ᏼKo\T_TBo|Z\1@+84 mANTy yn$/;3N!Rgcv8%*rŨ 1&D5GPz&GӚ P-^(|:Av'4o*Bk|M=lC"Ǒ09q1@3CGB{;\Փ;I9x 9맳z<'ܢKoOZ;V|\ȃWWb%ˑdoڃ])x`|{uvhTW Vf1 /?߁0* \{m[W{@T;%]#kgnw.y!FPa2nQNa7cNJ5-% ɄFV({܃*b2vm&c޷gNб3np )xc@KOhg7"Id\7T DTڒHyXw6x1&DzGn6i R#cʠC^N;>_߼++,~|DxՌ6*o=(.6NFLbaGl9]x~ ;>=Brtz ~ iGJQ6^LVz.nALȗ | t"ZQh83ٱ0q !7*# m'8~~ * F5X)i<]c t?+H@ys"J$/ ٣ nYP)9M~;3ybtZ,dyDsD 6xxb o(oXF2c05[  6#)q.xI9^(?_\ W]9!%&,vvԻf%g~V| _DJ*,N< X*CZA/ h{4 Vmf,ZfVAՙL!lHEN GOTO NETLIB_PRI_LOOP8$ NETLIB_SAY F$FAO (" !2UL. !AS", N MZ" MX023.Buh b,[MX.KIT.NETLIB_INSTALL]NETLIB_INSTALL.COM;13Uj ETLIB_M, NETLIB_N)$ GOTO NETLIB_PRI_LOOP$!$NETLIB_PRIMARY_ASK:$!$ NETLIB_SAY ""$ NETLIB_SAY ""3$ VMI$CALLBACK ASK NETLIB_TMP " Your choice"$!%$ NETLIB_PRI = F$INTEGER (NETLIB_TMP)4$ IF NETLIB_PRI .LT. 1 .OR. NETLIB_PRI .GE. NETLIB_M$ THENP$ VMI$CALLBACK MESSAGE W SELRANGE "Selection out of range. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF3$ NETLIB_T = F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS)$ IF 'NETLIB_T .NES. "*"$ THENU$ VMI$CALLBACK MESSAGE W UNAVAIL "That choice is not available. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF$!$NETLIB_DIR_ASK:$!$ NETLIB_SAY ""8$ NETLIB_SAY " Default TCP/IP transport will be: ", -0 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCP_NAMES)$!$ TYPE SYS$INPUT:! Choosing the NETLIB Directory= The NETLIB libraries may go in either SYS$COMMON:[SYSLIB]( or some other directory you specify.&$ NETLIB_DEFANS := SYS$COMMON:[SYSLIB],$ IF F$TRNLNM ("NETLIB_DIR") .NES. "" THEN -+ NETLIB_DEFANS = F$TRNLNM ("NETLIB_DIR")$ VMI$CALLBACK ASK NETLIB_DIR -D "Where should the NETLIB libraries be placed" "''NETLIB_DEFANS'"1$ NETLIB_DIR = F$PARSE (NETLIB_DIR,,,"DEVICE") +-' F$PARSE (NETLIB_DIR,,,"DIRECTORY")2$ IF F$SEARCH ("''NETLIB_DIR'X.X") .EQS. "" THEN -4 VMI$CALLBACK CREATE_DIRECTORY USER 'NETLIB_DIR -2 "/OWNER=[1,4]/PROTECT=(S:RWE,O:RWE,G:RE,W:E)"$!#$ CREATE VMI$KWD:NETLIB_STARTUP.COM4$ OPEN/APPEND NETLIB_STUP VMI$KWD:NETLIB_STARTUP.COM $ NETLIB_W = "WRITE NETLIB_STUP".$ NETLIB_W "$! SYS$STARTUP:NETLIB_STARTUP.COM"F$ NETLIB_W "$! Startup command procedure for NETLIB library routines."C$ NETLIB_W "$! Copyright 1991, Rensselaer Polytechnic Institute."$ NETLIB_W "$!"@$ NETLIB_W "$ DEFINE/SYSTEM/EXEC/NOLOG NETLIB_DIR ''NETLIB_DIR'"$ IF NETLIB_CMU064 .EQS. "*"$ THENE$ NETLIB_W "$ DEFINE/SYSTEM/EXEC/NOLOG NETLIB_CMU064_NAMESERVERS -"H$ NETLIB_W " ""c.nyser.net"",""terp.umd.edu"",""ns.nasa.gov"",-"($ NETLIB_W " ""ns.nic.ddn.mil"""$ ENDIF$!$ NETLIB_W "$!"$$ NETLIB_W "$DO_INSTALL: SUBROUTINE"$ NETLIB_W "$ CMD := CREATE"F$ NETLIB_W "$ IF F$FILE_ATTRIBUTES (P1,""KNOWN"") THEN CMD := REPLACE"2$ NETLIB_W "$ INSTALL 'CMD'/OPEN/SHARE/HEADER 'P1"$ NETLIB_W "$ ENDSUBROUTINE"$ NETLIB_W "$!"H$ NETLIB_W "$ DEFINE/SYSTEM/EXEC NETLIB_SHRXFR NETLIB_DIR:NETLIB_SHRXFR"1$ NETLIB_W "$ CALL DO_INSTALL NETLIB_SHRXFR:.EXE"$!A$ VMI$CALLBACK MESSAGE I LINKING "Linking image NETLIB_SHRXFR..."G$ LINK/SHARE=VMI$KWD:NETLIB_SHRXFR.EXE VMI$KWD:NETLIB_INSTALL.OPT/OPT,-? VMI$KWD:NETLIB_SHRXFR.OBJ,VMI$KWD:NETLIB_SHRXFR.VERSION/OPT/$ SET PROTECTION=W:RE VMI$KWD:NETLIB_SHRXFR.EXEH$ VMI$CALLBACK PROVIDE_IMAGE NETLIB_IMGOK NETLIB_SHRXFR.EXE 'NETLIB_DIR'$!:$ NETLIB_W "$ DEFINE/SYSTEM/EXEC NETLIB_SHR NETLIB_DIR:",-3 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS), "_SHR"$!$ NETLIB_I = 0$NETLIB_INST_LOOP:$ NETLIB_I = NETLIB_I + 11$ NETLIB_T = F$ELEMENT (NETLIB_I,":",NETLIB_TCPS)7$ IF NETLIB_T .EQS. ":" THEN GOTO NETLIB_FINISH_INSTALL$ IF 'NETLIB_T .EQS. "*"$ THEN? NETLIB_W "$ CALL DO_INSTALL NETLIB_DIR:''NETLIB_T'_SHR.EXE"E$ VMI$CALLBACK MESSAGE I LINKING "Linking image ''NETLIB_T'_SHR..."$ NETLIB_L = ""@$ IF F$LOCATE ("CMU",NETLIB_T) .LT. F$LENGTH (NETLIB_T) THEN -9 NETLIB_L = ",''NETLIB_T'_ERRORS.OPT/OPT" - "NETLIB_"J$ LINK/SHARE=VMI$KWD:'NETLIB_T'_SHR.EXE VMI$KWD:NETLIB_INSTALL.OPT/OPT,-H VMI$KWD:'NETLIB_T'.VERSION/OPT,VMI$KWD:'NETLIB_T'.OLB/LIB'NETLIB_L'2$ SET PROTECTION=W:RE VMI$KWD:'NETLIB_T'_SHR.EXEK$ VMI$CALLBACK PROVIDE_IMAGE NETLIB_IMGOK 'NETLIB_T'_SHR.EXE 'NETLIB_DIR'$ ENDIF$ GOTO NETLIB_INST_LOOP$!$NETLIB_FINISH_INSTALL:$!$ CLOSE NETLIB_STUPU$ VMI$CALLBACK PROVIDE_FILE NETLIB_STUPFILE NETLIB_STARTUP.COM VMI$ROOT:[SYS$STARTUP]?$ VMI$CALLBACK PROVIDE_FILE NETLIB_OK NETLIBDEF.R32 'NETLIB_DIR?$ VMI$CALLBACK PROVIDE_FILE NETLIB_OK NETLIBDEF.L32 'NETLIB_DIR$!6$ IF NETLIB_CMU064 .EQS. "*" .OR. NETLIB_CMU .EQS. "*"$ THEN0$ IF F$INTEGER (F$GETSYI ("MAXBUF")) .LT. 2300$ THEN$ TYPE SYS$INPUT: -- WARNING --H NETLIB support for CMU-Tek TCP/IP requires that the SYSGEN parameter# MAXBUF be set to at least 2300.G$ NETLIB_SAY " MAXBUF is currently set to: ", F$GETSYI ("MAXBUF")$ TYPE SYS$INPUT:F Please remember to change the value of MAXBUF before attempting to7 use a NETLIB-based application over CMU-Tek TCP/IP. $ ENDIF$ ENDIF$!$ NETLIB_STATUS == VMI$_SUCCESS$!$ EXIT 'NETLIB_STATUS+*[MX.KIT.NETLIB_INSTALL]NETLIB_INSTALL.OPT;2+,yh./> 43- b0123KPWO5(6 :;7@$89G>HJGSMATCH=LEQUAL,1,03CLUSTER=$$NETLIB_VECTOR,,,VMI$KWD:NETLIB_VECTOR.OBJCLUSTER=CLUSTER1PSECT_ATTR=$CODE$,PIC,SHRPSECT_ATTR=$PLIT$,PIC,SHR&COLLECT = CLUSTER1,$CODE$,$CODE,$PLIT$-*[MX.KIT.NETLIB_INSTALL]NETLIB_MULTINET.OLB;19+,h.f/> 4f1- b0123 KPWO156 Ch{7@ $89G>HJ% VAX-11 Librarian V04-00 h{f4h{!0\1  bNETLIB_MULTINET_NET NETLIB_MULTINET_TCPNETLIB_MULTINET_UDPD NETLIB_MXLOOK1 شg{V1.1@NETLIB_MULTINET_NETV1.126-Apr-1991 15:5726-Apr-1991 15:57VAX Bliss-32 V4.6-9020NETLIB_MULTINET_NET NET_ASSIGNMPPNETLIB_CTX_ZONE0 00:05:00 INET0:, GETHOSTBYNAME GETHOSTBYADDR LIB$GET_VM LIB$FREE_VM STR$CONCAT STR$FREE1_DX STR$APPEND STR$COPY_DXSTR$FIND_FIRST_NOT_IN_SET STR$TRANSLATE LIB$CVT_DTB STR$UPCASE STR$COPY_RcLIB$CREATE_VM_ZONE SYS$SETAST SYS$SETAST SYS$SETAST SYS$BINTIM SYS$ASSIGNP | NET_ASSIGNH  2:  Y X W V| SYS$SETASTVUT^~fPSdQU|~$$$$$$$$"$$@$$$$T LIB$CREATE_VM_ZONEPRS fR jS fTݬ@  LIB$GET_VMPRRFPP`P~ SYS$BINTIM|~<~$7 SYS$ASSIGNPRRTݬ@  LIB$FREE_VMRP x䊧 MX023.Bh b-[MX.KIT.NETLIB_INSTALL]NETLIB_MULTINET.OLB;19fNET_BINDISYS$QIOWSYS$QIOWSYS$QIOWSYS$QIOW NET_BIND?  q0&YSYS$QIOWX(^ЬPP|~|~ P|~|~|~@2мP<<~~ hPWl& PxPP QQPlЬVլ VVԮ,n|~|~$|~@r~мR<<~~ hPWW<< ~iPWW/l*|~|~~V|~@~<<~~ hPWW < ~iPWWP"NET_GET_ADDRESS' ^ЬRЬTHRSTR$FIND_FIRST_NOT_IN_SETPddЏԮ TR STR$CONCATݮ  GETHOSTBYNAMEPS STR$FREE1_DXS TCP_SND_AST  gR^ЬRR STR$FREE1_DX} SR LIB$FREE_VMSTcP: TCP_RECEIVE0PNETLIB_RCV_ZONE0f SYS$SETAST SYS$SETAST SYS$SETAST SYS$SETIMRSYS$QIO SYS$CANTIM SYS$SYNCHP  TCP_RECEIVEZ  K    SYS$SETASTYX ^<TЬR~iPShW@|~$$$$$$$$ $$<($$$$X LIB$CREATE_VM_ZONEPWS iW 1S iX <(  LIB$GET_VMPWWЮVмlЬ l}|Ԧ~V~~ SYS$SETIMR|~|~' PPPU$RTQPQ 1QRQ$<($$ LIB$FREE_VM$RTT ch[['lЬ Pg`լ~}~ SYS$DCLASTP~ SYS$SETASTPT_`|~(((((ޮ((( ((<((((( LIB$CREATE_VM_ZONEPST   SYS$SETASTS1T   SYS$SETAST$<($$ LIB$GET_VMPSSЮ U(TT$jWl } Ь |ԥ~Uj~~ SYS$SETIMR|~|~<~TU1<(~~ SYS$QIOPSS&~U SYS$CANTIM$<($$ LIB$FREE_VMե~ SYS$SYNCHPSSP TCP_RCV_AST: SYS$CANTIM0st MX023.Bh b-[MX.KIT.NETLIB_INSTALL]NETLIB_MULTINET.OLB;19f#s SYS$SETIMRSYS$QIO SYS$CANTIM    ^ЬRVТ $WZ> g<[: [QQZ: [QZ QQZQZZ1< PPP[QQPPQQgݮ STR$APPENDЬR(g~R~ S YS$SETIMR|~|~<~gR1& PPPZgR[QPQ1QRQ<( LIB$FREE_VMgR[QQXhоP` ծnP,  TCP_TMO_AST SYS$CANCEL   d !ЬPРP<<~ SYS$CANCEL $OWN$$OWN$ $CODE$$CODE$ h$PLIT$$PLIT$hFQ QQ QuQ QQDww1g{V1.1@NETLIB_MULTINET_UDPV1.126-Apr-1991 15:5826-Apr-1991 15:58VAX Bliss-32 V4.6-902.NETLIB_MULTINET_UDPUDP_SEND!NET_CVT_STATUSSYS$QIOWP |UDP_SEND"  & r|^<V PxPP QQP Ь ,n}~~<~ݬ|~ 0 !AS)LNM$SYSTEM PNETLIB_DEBUG d%NETLIB_MXLOOK, cleaned entry [!UL], !AD, from CNAMTAB6xLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, MX entry[!UL]: !AD expires !%D.LNM$SYSTEM NETLIB_DEBUG ,%NETLIB_MXLOOK, We have a match, entry [!UL].../@LNM$SYSTEM xNETLIB_DEBUG %NETLIB_MXLOOK, !AD, pref=!ULLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, cleaned entry [!UL], !AD, from MXTAB5LNM$SYSTEM 0NETLIB_DEBUG D%NETLIB_MXLOOK, Asking nameserver !AF about name !AS4X..LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, trying !UB.!UB.!UB.!UB...+LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, got !UW answer!%S and !UW auth!%S with authoritative = !ULK0igLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, CNAME -> !ASLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, MX Pref=!UW, name=!AS(LNM$SYSTEM 4NETLIB_DEBUG H%NETLIB_MXLOOK, NS -> !AS\LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, Name error with authoritative = !UL3 SYS$BINTIM SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNML IB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO! SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DXP  y>  (      %^Ь"Ь ЬYЏЏЏ ЏPP.,n,nPPnn1? ԾԮP| SYS$BINTIM SYS$GETTIMݬ STR$UPCASE<PP. STR$APPENDTŏTP@1\@U % |~~ SYS$TRNLNMP-U < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTU LIB$SUB_TIMESP~- nŎŌ# STR$COPY_R % |~~ SYS$TRNLNMP(T~H LIB$SYS_FAOLIB$PUT_OUTPUTb % |~p\~ SYS$TRNLNMP+ < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTTWŏWP@1@T % |~~ SYS$TRNLNMP-T<~W~ LIB$SYS_FAOLIB$PUT_OUTPUTT LTI(I MX023.Bh b-[MX.KIT.NETLIB_INSTALL]NETLIB_MULTINET.OLB;19f#$IB$SUB_TIMESP1/-1Đ[ĘZĠX % |~8$~ SYS$TRNLNMP$W~p LIB$SYS_FAOLIB$PUT_OUTPUTФTTоTTV1 % |~~ SYS$TRNLNMP1~<~R1~~ LIB$SYS_FAO*LIB$PUT_OUTPUT> Ծ<4n֮Ѯ 1n@ NET_DEASSIGNDD  LIB$FREE_VM STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DXnP  NAME_UNPACK1P..PI  1:  d  STR$COPY_DXXW STR$APPENDV^ЬUЬSЬ RhCT b UhT?1TbTnbSP @fU+fTbPbCTʟCQbSPQb 4*<- b0123KPWO56`ig{7$89G>HJXԕ MX023.Bh b0[MX.KIT.NETLIB_INSTALL]NETLIB_MULTINET.VERSION;3*YIDENT="V1.1-1"*MULTINET:MULTINET_SOCKET_LIBRARY.EXE/SHARE**[MX.KIT.NETLIB_INSTALL]NETLIB_SHRXFR.OBJ;6+,h. /> 4s - b0123KPWO 56 %_7` $89G>HJ: NETLIB_SHRXFRV1.021-Mar-1991 13:1321-Mar-1991 13:13VAX Bliss-32 V4.5-862* NETLIB_SHRXFR NET_ASSIGN8PPNETLIB_SHR NET_ASSIGN .LIB$FIND_IMAGE_SYMBOLLIB$_FATERRLIBP  NET_ASSIGN  ;5q'  LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl55NET_BIND8P(PNETLIB_SHR (NET_BIND<5P 5NET_BIND 5 <5q'D4LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl5j NET_DEASSIGN<PLPNETLIB_SHR LNET_DEASSIGN `jP j NET_DEASSIGN j =5q'lXLIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl"5NET_GET_ADDRESSB PtPNETLIB_SHR tNET_GET_ADDRESSP NET_GET_ADDRESS  >5s ' LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl #5NET_ADDR_TO_NAMEDPPNETLIB_SHR NET_ADDR_TO_NAMEP NET_ADDR_TO_NAME  ?5s'LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl5  NET_GET_INFO@PPNETLIB_SHR NET_GET_INFO  P   NET_GET_INFO   @5s'LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl#5>NET_GET_HOSTNAMEDPPNETLIB_SHR NET_GET_HOSTNAME>P >NET_GET_HOSTNAME > A5s'LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl5s TCP_CONNECT@P PNETLIB_SHR  TCP_CONNECT 4sP s TCP_CONNECT s B5s'@,LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl#5TCP_CONNECT_ADDRD PHPNETLIB_SHR HTCP_CONNECT_ADDR\P TCP_CONNECT_ADDR  C5s ' lTLIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl !5TCP_DISCONNECTD$PtPNETLIB_SHR tTCP_DISCONNECTP TCP_DISCONNECT  D5s$'$LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl$5 TCP_ACCEPT@(PPNETLIB_SHR TCP_ACCEPT P  TCP_ACCEPT  E5s('(LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl(5GTCP_SEND<,PPNETLIB_SHR TCP_SENDGP GTCP_SEND G F5s,',LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl,5| TCP_RECEIVE@0PPNETLIB_SHR TCP_RECEIVE |P | TCP_RECEIVE | G5s0'0 LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl05 TCP_GET_LINE@4PPNETLIB_SHR TCP_GET_LINE (P  TCP_GET_LINE  H5s4'44 LIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl45UDP_SEND<8P<PNETLIB_SHR <UDP_SENDPP UDP_SEND  I5s8'8XHLIB$FIND_IMAGE_SYMBOLPP~ݏLIB$_FATERRLIB LIB$SIGNALl85 UDP_RECEIVE@ 4"- b0123KPWO5(6b67 )$89G>HJNAME=NETLIB_SHRXFR IDENT="V1.0"(*[MX.KIT.NETLIB_INSTALL]NETLIB_UCX.OLB;38+,h.f/> 4f-- b0123 KPWO-56`h{74$89G>HJ% VAX-11 Librarian V04-00ɍh{@h{!,-   MX023.Bh b([MX.KIT.NETLIB_INSTALL]NETLIB_UCX.OLB;38fQS NETLIB_MXLOOKNETLIB_UCX_NET!:NETLIB_UCX_TCP*4NETLIB_UCX_UDP1ue{V1.3: NETLIB_MXLOOKV1.326-Apr-1991 15:4326-Apr-1991 15:43VAX Bliss-32 V4.5-862* NETLIB_MXLOOK DNS_MXLOOKPQPLNM$SYSTEM NETLIB_DOMAIN LNM$SYSTEM ,NETLIB_DOMAIN @.X.d NET_ASSIGNNET_BINDNET_GET_ADDRESSUDP_SEND UDP_RECEIVE NET_DEASSIGNNET_GET_HOSTNAMELIB$ANALYZE_SDESC LIB$FREE_VM LIB$GET_VM STR$COPY_DX STR$APPEND STR$FREE1_DX STR$POS_EXTR STR$POSITION STR$COMPARE STR$CONCAT STR$COPY_R STR$UPCASE LIB$ADD_TIMES LIB$SUB_TIMES LIB$SYS_FAO SYS$TRNLNM SYS$TRNLNM STR$FREE1_DXP  DNS_MXLOOKp  b ? l STR$FREE1_DXZ SYS$TRNLNMYX STR$CONCATW$V^ЬSc<4P !AS)LNM$SYSTEM PNETLIB_DEBUG d%NETLIB_MXLOOK, cleaned entry [!UL], !AD, from CNAMTAB6xLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, MX entry[!UL]: !AD expires !%D.LNM$SYSTEM NETLIB_DEBUG ,%NETLIB_MXLOOK, We have a match, entry [!UL].../@LNM$SYSTEM xNETLIB_DEBUG %NETLIB_MXLOOK, !AD, pref=!ULLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, cleaned entry [!UL], !AD, from MXTAB5LNM$SYSTEM 0NETLIB_DEBUG D%NETLIB_MXLOOK, Asking nameserver !AF about name !AS4X..LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, trying !UB.!UB.!UB.!UB...+LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, got !UW answ er!%S and !UW auth!%S with authoritative = !ULK0igLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, CNAME -> !ASLNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, MX Pref=!UW, name=!AS(LNM$SYSTEM 4NETLIB_DEBUG H%NETLIB_MXLOOK, NS -> !AS\LNM$SYSTEM NETLIB_DEBUG %NETLIB_MXLOOK, Name error with authoritative = !UL3 SYS$BINTIM SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DX STR$FREE1_DX SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$GETTIM SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNM LIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO SYS$TRNLNMLIB$PUT_OUTPUT LIB$SYS_FAO STR$FREE1_DXP  y>  (       %^ЬЬ ЬYЏЏЏ ЏPP.,n,nPPnn1? ԾԮP| SYS$BINTIM SYS$GETTIMݬ STR$UPCASE<PP. STR$APPENDTŏTP@1\@U % |~~ SYS$TRNLNMP-U < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTU LIB$SUB_TIMESP~- nŎŌ STR$COPY_R % |~~ SYS$TRNLNMP(T~H LIB$SYS_FAOLIB$PUT_OUTPUTb % |~p\~ SYS$TRNLNMP+ < ~T~ LIB$SYS_FAOLIB$PUT_OUTPUTTWŏWP@1@T % |~~ SYS$TRNLNMP-T<~W~ LIB$SYS_FAOLIB$PUT_OUTPUTT LIB$SUB_TIMESP1/-1Đ[ĘZĠX % |~8$~ SYS$TRNLNMP$W~p LIB$SYS_FAOLIB$PUT_OUTPUTФTTоTTV1 % |~~ SYS$TRNLNMP1~<~R1~~ LIB$SYS_FAOLIB$PUT_OUTPUT> Ծ<4n֮Ѯ 1n@ NET_DEASSIGNDD  LIB$FREE_VM STR$FREE1_DX STR$FREE1_DX STR$FREE1_DX STR$FREE1_DXnP  NAME_UNPACK1P..PI  1:  d  STR$COPY_DXXW STR$APPENDV^ЬUЬSЬ RhCT b UhT?1TbTnbSP @fUfTbPbCTʟCQbSPQb r \0(|4^ЬPP n Pnl& PxPP QQPlЬVլ VVԮ ,n$|~V~|~L#мPG TCP_SND_AST G aK^ЬRR STR$FREE1_DX} SR LIB$FREE_VMSTcP4{ TCP_RECEIVEP SYS$SETIMRSYS$QIO SYS$CANTIM SYS$SYNCH { TCP_RECEIVE; { ,^ЬSHcTЬR<( LIB$GET_VMЮVclЬ l}|Ԧ~Vc~~ SYS$SETIMR|~|~ 4 - b0123KPWO56g{74?$89G>HJ IDENT="V1.1"+*[MX.KIT.NETLIB_INSTALL]NETLIB_UCX012.OLB;38+,h.f/> 4f- b0123 KPWO56`yh{7\H$89G>HJGN MX023.Bh b+[MX.KIT.NETLIB_INSTALL]NETLIB_UCX012.OLB;38fX% VAX-11 Librarian V04-00@Ӑh{h{!  XNETLIB_NULL_MXLOOKVNETLIB_UCX_NET xNETLIB_UCX_TCPrNETLIB_UCX_UDP1F _V1.0?NETLIB_NULL_MXLOOKV1.021-Mar-1991 13:1421-Mar-1991 13:14VAX Bliss-32 V4.5-862/NETLIB_NULL_MXLOOK DNS_MXLOOKP DNS_MXLOOK  " ( Լ  r \0(|4^ЬPP n Pnl& PxPP QQPlЬVլ VVԮ ,n$|~V~|~L#мPG TCP_SND_AST G aK^ЬRR STR$FREE1_DX} SR LIB$FREE_VMSTcP4{ TCP_RECEIVEP SYS$SETIMRSYS$QIO SYS$CANTIM SYS$SYNCH { TCP_RECEIVE; { ,^ЬSHcTЬR<( LIB$GET_VMЮVclЬ l}|Ԧ~Vc~~ SYS$SETIMR|~|~ 4 - b0123KPWO5(6 |}77 S$89G>HJ IDENT="V1.0"0*[MX.KIT.NETLIB_INSTALL]NETLIB_USER_INSTALL.COM;8+,wh./> 4T- b0123KPWO5 6@ք>7`]$89G>HJ"$! [NETLIB]NETLIB_USER_INSTALL.COM$!1$! Procedure for private installation of NETLIB. $! To use:$!0$! $ CREATE/DIRECTORY [some working directory]&$! $ SET DEFAULT [working directory]!$! $ BACKUP NETLIB010.B/SAVE []$! $ @NETLIB_USER_INSTALL$!0$! 08-FEB-1991 V1.0 Madison Initial coding.$!)$ ON CONTROL_Y THEN GOTO NETLIB_CONTROL_Y"$ ON WARNING THEN GOTO NETLIB_FAIL$! $ NETLIB_SAY := WRITE SYS$OUTPUT$ DEFINE VMI$KWD SYS$DISK:[]$!$ GOTO NETLIB_INSTALL$!$NETLIB_CONTROL_Y:=$ IF F$TRNLNM ("NETLIB_STUP") .NES. "" THEN CLOSE NETLIB_STUP0$ NETLIB_SAY "Installation cancelled by CTRL/Y."$ EXIT 1$! $NETLIB_FAIL:$ NETLIB_STATUS == $STATUS=$ IF F$TRNLNM ("NETLIB_STUP") .NES. "" THEN CLOSE NETLIB_STUP$ EXIT 'NETLIB_STATUS$!$NETLIB_INSTALL:$!-$ NETLIB_INSTALL_NODE = F$GETSYI ("NODENAME")$!%$! Build the tables for menu choices.$!$ NETLIB_TCP_NAMES = "?" +- ":CMU-Tek TCP/IP V6.4"+- ":CMU-Tek TCP/IP V6.5"+-' ":DEC VMS/ULTRIX Connection V1.2"+-' ":DEC VMS/ULTRIX Connection V1.3"+- ":TGV MultiNet V2.2"G$ NETLIB_TCPS = "?:NETLIB_CMU064:NETLIB_CMU:NETLIB_UCX012:NETLIB_UCX"+- ":NETLIB_MULTINET"$ NETLIB_I = 0$NETLIB_INIT_LOOP:$ NETLIB_I = NETLIB_I + 13$ NETLIB_TCP = F$ELEMENT (NETLIB_I,":",NETLIB_TCPS)8$ IF NETLIB_TCP .EQS. ":" THEN GOTO NETLIB_END_INIT_LOOP$ 'NETLIB_TCP = " "$ GOTO NETLIB_INIT_LOOP$!@$! Now we make some educated guesses about which TCP/IP's should$! be pre-selected.$!$NETLIB_END_INIT_LOOP:$!$ IF F$GETDVI ("IP0","EXISTS")$ THEN($ IF F$TRNLNM ("CMUTEK_ROOT") .NES. ""$ THEN$ NETLIB_CMU = "*"$ ELSE$ NETLIB_CMU064 = "*" $ ENDIF$ ENDIF-$ IF F$GETDVI ("UCX$DEVICE","EXISTS") .AND. -5 F$SEARCH ("SYS$SYSTEM:UCX$INETACP.EXE") .NES. ""$ THEN<$ IF F$SEARCH ("SYS$SYSTEM:UCX$INET_ROUTING.EXE") .NES. ""$ THEN$ NETLIB_UCX = "*"$ ELSE$ NETLIB_UCX012 = "*" $ ENDIF$ ENDIF;$ IF F$GETDVI ("INET0","EXISTS") THEN NETLIB_MULTINET = "*"$!$NETLIB_SELECT_MENU:$!$ TYPE SYS$INPUT:/ TCP/IP Support SelectionA Select the NETLIB TCP/IP support you wish to install from theC menu below. An asterisk appears next to the packages that haveB already been selected. You can remove a package from the listA by selecting it again. You may enter more than one selection+ by separating your choices with commas.$ NETLIB_M = 0$NETLIB_SEL_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)3$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_SELECT_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)I$ NETLIB_SAY F$FAO (" !2UL. [!AS] !AS", NETLIB_M, 'NETLIB_T, NETLIB_N)$ GOTO NETLIB_SEL_LOOP$NETLIB_SELECT_ASK:$ NETLIB_SAY ""3$ NETLIB_SAY F$FAO (" !2UL. Exit", NETLIB_M)$ NETLIB_SAY ""$ NETLIB_SAY ""$!'$ CALL NETLIB_ASK NETLIB_CHOICE_INPUT -& " Your choice" "''NETLIB_M'"$ NETLIB_I = -1$NETLIB_PARSE_LOOP:$ NETLIB_I = NETLIB_I + 1@$ NETLIB_CHOICE = F$ELEMENT (NETLIB_I, ",", NETLIB_CHOICE_INPUT)9$ IF NETLIB_CHOICE .EQS. "," THEN GOTO NETLIB_SELECT_MENU+$ NETLIB_CHOICE = F$INTEGER (NETLIB_CHOICE)9$ IF NETLIB_CHOICE .EQ. NETLIB_M THEN GOTO NETLIB_CONFIRM:$ IF NETLIB_CHOICE .LT. 1 .OR. NETLIB_CHOICE .GT. NETLIB_M$ THEN'$ NETLIB_SAY "%NETLIB-E-BADCHOICE, ",L "Choice ''NETLIB_CHOICE' invalid; choices range from 1 to ''NETLIB_M'."$ ELSE:$ NETLIB_T = F$ELEMENT (NETLIB_CHOICE, ":", NETLIB_TCPS)A*m zpnD+YKvN;3?V 40 DunpHYQt7SLO e؟ ەWgapJ;5Ah_VVR)e ;eo6Eg +QdJln 8p$Lhe%R¤#](0^O Vs= [8iȫNJ<94_$#(*ې:d#}"$1 ՇqA5 ixb3Y`E^||tXiyG zwVx4 x[L 98Qa"j("z, ֤Ng,ESidǖ_mt/dwSvUl\ىos( jWd{[v!4nJT$'UOΚҗ$wvC1}9WhFqkܧnީ8)wr ̩J| _KЬNŲfna]t87NWQ@FAILM}*]¤MXIAiX+o\l.*lО. `eMj`q4Q') 7Srå4pebc(7$!̗4h"fdT]M4ScyM[R+Lp xM33F%n*%ycE +h4`7%ke }§*>ۥ$Q}w(i LtРR ݅Xɑ8[ށ)H$<_ճbT8=k%>1?TFh@hZ&VjAAo0'*V w_@Tlv}zBeWS_W,?uStvӐ%:;Ň|p8A1w) -(Rp"0ҪZzØ_se&^U"H8 ,M[W$c;ƃBѳ;cr"Q#E6un{i pweRXU%;4:iS" ,R*o5BPE*y?$暵D?&$R }0eWJLy&H6td#da{[(LujL`.p[Nq(n(h>uVq;qxnlm* {)t hlR6K{S(_!М{2z.r.oKsU1gUkvZ[.OeoXyceR,8 zuֵ%0D%0OҤR`P Фz.%BsتRbNv$*,T3i{(H︎q? ,|^^qܣO^W$Gޏʔ !!̒;;mWå"ΛZs0,}nDE0>,9$Xv%^5 -bK$7MGC;;q"("K9~'1׃J_G҃m8LןjZ~,!pPYEk"TğYAuYy rF7$ƻYWjPUCwf6_g1 `N{M*AYÓ#SR`u{^e^ֿ1LLf+)`VVxMH_2{ g$NZei˫ Ԡ:E{BT|^ tv[&ǑKZǍr FF4f{kb-@G4Qvp-¬9+u%r9y1"Gzi}*(Ugg4& 39'"ӦAueT"|^gXn^E"*@G?9L3dTh቟ZVv+eʲncOhY^~S{xKQx.0nI#htNhtjyorI'dP?ϰ#ڍRCd@VH~3.e`4Nq=P 6i>Q0%_ ܏::(k! _}[u7E :/.ZNkZa6!H3KtEJza. KSP j.GƕR 6IۜE==؈xsU c}\rX @:O1^"IYqRWL_jN8vmo 8;k3ʥ=>"A]CB2>ܿ\Kg&J0fшg:TAOM7|ZmL;W_՚\E` >ݝ䎃VۖQ6JXv/:<O<摘{pU~d)kҬٰYGŠ6hq&э)QYgg^ =pI mO-;VEl~*2h(7hKٝ mV J!%ޖB=U.mx6un5/S.ZS!_}Si`ae3;h|9/q}.FMLɰVAHClRDEZ[KPi^$;s0S}nL:¶>?YZkTF]WoJSA-/@< ,cAʞ2g]BթJAZTY(LGz3=tSy lFn?N=cCd^Fbz?Esč#/}ʺW)=쾼Η!kuq%$ e0? ]E1u_}źD8&>kN9y 'UUBV}?z6Vdإ{XܧӒr۝Ug$| G/9P`gvCaWku!mj“ 1Mf L <kM@C1> sGt)|{R,/La-n$qu~N=h4ys"i93?&y i<1wXbC+I( kV2YZ>I2se4аMaEڦq$͑a$ot8i_󊺍Rl3gF"è3ٔ*F$:۫c1o-K={Aήb~)3Wy!oXqP-Qȶ_&ɫ_B֞0n.`5/&7`HH54^ afҷ H+J%[you< 2pY3ǥ: (FES sEo 6c|UMZ'@ MНtNG]ӛW^/9ʝ򛹼U|1;"Xg dX 4*`?jFT&@K0 L.^[Be\ ̵ɂeB&bnZGoqaKit.IjFZ=](\kyF,܍퀪CPǜU  uණ(9*)@Z-&14KfIE# M MN)ߋCx5/7%OZRJ`NDPh #B ?P1eYƔ]8/ @oA,:.5N$.~9Ψj7}$+Z {vN D(a73*a<+.R=Y ͽ#W#dDxVB' tV$I2U#6+_N7l\a.+.Of9HK8D(R5S^roo#& vͧA Wĝm뽢LQaw ;n:7=M,p vQ&wP}%hXcEWM 9ߕfp-qTkX]!|x'2e;Qy2쓭KGE떄J/='&P Uu*ecd+/[1Q5b-yCJ^σi6l"O>Oʔ!!Ξ`b9mA2fvk_ 3F:G@U[N9\,#UGI_V$@HJpXr5"+ү]rf Մ3ؽc7_Q2.&Bj\fF N*{`՘lOw=R%),y0.ƃr~^vs㢀iڜ(neaNFk%%hS 4}mڼ**7Ksr,=[<4P{ )ᐶΎ4JӆMOAZ8&Nb/[(K|\BƵIl1^TΣ]U62N6 !){+`Jo rC$kCهYٮR,e995\}_R:&D\E]Ф\v&ciji*q01v?ٵ*D {}Vh9(]C,ZHFW8na쳜q975&*YKz2Ҙ)JyJ+$vͧDuOpAjZFyGV>}/VRٽx$hoX͜"n!mypJP>hk75:%Đ+L8+UKUlͫΌ>etޠ7d]9rRA6pʭacn{kIlۛI {\> aNzQv,B z5 !j57,v!i۞N=WqTjೖbXpxp RjU 6~@;gj}_% .dQTKW[XE^"Brv8 7ZRdtDN@=St2oM<dsF痿 ]޶–rD 0We3ƙk@a\;52"GHB vx+4;ѬxO]r=@B}x({ 瑯Maz~ Og*cAO<6:.G1pu#J|L WrPOr擣]dC _N87||zi@ _~ށA&J5\rF)GY-DFvsVO9O)4 ~]b!H-ڟ$$ DEg{sninY#6RpU헯c/ )vkj HyXb MX023.Bwh b0[MX.KIT.NETLIB_INSTALL]NETLIB_USER_INSTALL.COM;8TY$ IF 'NETLIB_T .EQS. "*"$ THEN$ 'NETLIB_T = " "$ ELSE$ 'NETLIB_T = "*" $ ENDIF$ ENDIF$ GOTO NETLIB_PARSE_LOOP$!$NETLIB_CONFIRM:$ NETLIB_SAY ""B$ NETLIB_SAY " You have selected the following TCP/IP support:"$ NETLIB_SAY ""$ NETLIB_CNT = 0$ NETLIB_M = 0$NETLIB_CONF_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)1$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_CONF_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)$ IF 'NETLIB_T .EQS. "*"$ THEN$ NETLIB_PRI = NETLIB_M"$ NETLIB_SAY " ",NETLIB_N$ NETLIB_CNT = NETLIB_CNT + 1$ ENDIF$ GOTO NETLIB_CONF_LOOP$!$NETLIB_CONF_ASK:7$ IF NETLIB_CNT .EQ. 0 THEN NETLIB_SAY " (None)"$ NETLIB_SAY ""$ NETLIB_SAY ""5$ CALL NETLIB_ASK NETLIB_OK "Is this correct" "YES" B1$ IF .NOT. NETLIB_OK THEN GOTO NETLIB_SELECT_MENU$!$ IF NETLIB_CNT .EQ. 0$ THEN=$ NETLIB_SAY "%NETLIB-I-WONTINSTALL, No packages selected." $ EXIT 1$ ENDIF$!/$ IF NETLIB_CNT .EQ. 1 THEN GOTO NETLIB_DIR_ASK$!$NETLIB_PRIMARY_MENU:$!$ TYPE SYS$INPUT:? You have selected support for more than one TCP/IP package.= You must now select which is to be used by default on the current system.$ NETLIB_M = 0$NETLIB_PRI_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)4$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_PRIMARY_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)2$ IF 'NETLIB_T .EQS. " " THEN GOTO NETLIB_PRI_LOOP8$ NETLIB_SAY F$FAO (" !2UL. !AS", NETLIB_M, NETLIB_N)$ GOTO NETLIB_PRI_LOOP$!$NETLIB_PRIMARY_ASK:$!$ NETLIB_SAY ""$ NETLIB_SAY ""2$ CALL NETLIB_ASK NETLIB_TMP " Your choice"$!%$ NETLIB_PRI = F$INTEGER (NETLIB_TMP)4$ IF NETLIB_PRI .LT. 1 .OR. NETLIB_PRI .GE. NETLIB_M$ THENO$ NETLIB_SAY "%NETLIB-W-SELRANGE, Selection out of range. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF3$ NETLIB_T = F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS)$ IF 'NETLIB_T .NES. "*"$ THENT$ NETLIB_SAY "%NETLIB-W-UNAVAIL, That choice is not available. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF$!$NETLIB_DIR_ASK:$!$ NETLIB_SAY ""8$ NETLIB_SAY " Default TCP/IP transport will be: ", -0 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCP_NAMES)$!$ TYPE SYS$INPUT:! Choosing the NETLIB Directory> The NETLIB libraries may go in either your login directory( or some other directory you specify.$ NETLIB_DEFANS := SYS$LOGIN::$ IF F$TRNLNM ("NETLIB_DIR","LNM$PROCESS") .NES. "" THEN -9 NETLIB_DEFANS = F$TRNLNM ("NETLIB_DIR","LNM$PROCESS")$ CALL NETLIB_ASK NETLIB_DIR -D "Where should the NETLIB libraries be placed" "''NETLIB_DEFANS'"1$ NETLIB_DIR = F$PARSE (NETLIB_DIR,,,"DEVICE") +-' F$PARSE (NETLIB_DIR,,,"DIRECTORY")2$ IF F$SEARCH ("''NETLIB_DIR'X.X") .EQS. "" THEN - CREATE/DIRECTORY 'NETLIB_DIR$!#$ CREATE SYS$LOGIN:NETLIB_LOGIN.COM4$ OPEN/APPEND NETLIB_STUP SYS$LOGIN:NETLIB_LOGIN.COM $ NETLIB_W = "WRITE NETLIB_STUP" $ NETLIB_W "$! NETLIB_LOGIN.COM"D$ NETLIB_W "$! Login command procedure for NETLIB library routines."C$ NETLIB_W "$! Copyright 1991, Rensselaer Polytechnic Institute."$ NETLIB_W "$!"4$ NETLIB_W "$ DEFINE/NOLOG NETLIB_DIR ''NETLIB_DIR'">$ NETLIB_W "$ DEFINE/NOLOG NETLIB_NAMESERVERS ""127.0.0.1"",-"F$ NETLIB_W " ""c.nyser.net"",""terp.umd.edu"",""ns.nasa.gov"",-"&$ NETLIB_W " ""ns.nic.ddn.mil"""$!$ NETLIB_W "$!"B$ NETLIB_W "$ DEFINE/NOLOG NETLIB_SHRXFR NETLIB_DIR:NETLIB_SHRXFR"$!@$ NETLIB_SAY "%NETLIB-I-LINKING, Linking image NETLIB_SHRXFR..."C$ LINK/SHARE='NETLIB_DIR'NETLIB_SHRXFR.EXE NETLIB_INSTALL.OPT/OPT,-/ NETLIB_SHRXFR.OBJ,NETLIB_SHRXFR.VERSION/OPT$!.$ NETLIB_W "$ DEFINE NETLIB_SHR NETLIB_DIR:",-3 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS), "_SHR"$!$ NETLIB_I = 0$NETLIB_INST_LOOP:$ NETLIB_I = NETLIB_I + 11$ NETLIB_T = F$ELEMENT (NETLIB_I,":",NETLIB_TCPS)7$ IF NETLIB_T .EQS. ":" THEN GOTO NETLIB_FINISH_INSTALL$ IF 'NETLIB_T .EQS. "*"$ THEND$ NETLIB_SAY "%NETLIB-I-LINKING, Linking image ''NETLIB_T'_SHR..."$ NETLIB_L = ""@$ IF F$LOCATE ("CMU",NETLIB_T) .LT. F$LENGTH (NETLIB_T) THEN -9 NETLIB_L = ",''NETLIB_T'_ERRORS.OPT/OPT" - "NETLIB_"F$ LINK/SHARE='NETLIB_DIR''NETLIB_T'_SHR.EXE NETLIB_INSTALL.OPT/OPT,-8 'NETLIB_T'.VERSION/OPT,'NETLIB_T'.OLB/LIB'NETLIB_L'$ ENDIF$ GOTO NETLIB_INST_LOOP$!$NETLIB_FINISH_INSTALL:$!$ CLOSE NETLIB_STUP$ TYPE SYS$INPUT:E The file SYS$LOGIN:NETLIB_LOGIN.COM includes commands that shouldE be added to your login command procedure to set up NETLIB logical names.! NETLIB installation complete.$!$ @SYS$LOGIN:NETLIB_LOGIN$ EXIT 1$!$NETLIB_ASK: SUBROUTINE$ PROMPT = "* " + P21$ IF "''P4'" .EQS. "B" THEN PROMPT = PROMPT + "?"7$ IF "''P3'" .NES. "" THEN PROMPT = PROMPT + " [''P3']"$ PROMPT = PROMPT + ": "$ASK1: $ ANSWER = "",$ READ SYS$COMMAND/PROMPT="''PROMPT'" ANSWER*$ IF ANSWER .EQS. "" THEN ANSWER = "''P3'"$ IF ANSWER .EQS. ""$ THEN;$ NETLIB_SAY "%NETLIB-I-ANSREQD, A response is required." $ GOTO ASK1$ ENDIF#$ ANSWER = F$EDIT (ANSWER,"UPCASE")$ IF "''P4'" .EQS. "B"$ THEN#$ ANSWER = F$EXTRACT (0,1,ANSWER).$ IF ANSWER .NES. "Y" .AND. ANSWER .NES. "N"$ THEN;$ NETLIB_SAY "%NETLIB-I-ANSYN, please answer YES or NO."$ GOTO ASK1 $ ENDIF$ ENDIF$ 'P1 == ANSWER$ ENDSUBROUTINE**[MX.KIT.NETLIB_INSTALL]NETLIB_VECTOR.OBJ;7+,h./> 4- b0123KPWO56W~]7`i$89G>HJ: NETLIB_VECTORV1.019-MAR-1991 15:58 VAX MACRO T5.2V-4/MACRO/OBJ=NETLIB_VECTOR.OBJ NETLIB_VECTOR.MAR  NETLIB_VECTOR DNS_MXLOOKNET_ADDR_TO_NAME NET_ASSIGNNET_BIND NET_DEASSIGNNET_GET_ADDRESSNET_GET_HOSTNAME NET_GET_INFO TCP_ACCEPT TCP_CONNECTTCP_CONNECT_ADDRTCP_DISCONNECT TCP_GET_LINE TCP_RECEIVETCP_SEND UDP_RECEIVEUDP_SEND . ABS .P$$NETLIB_VECTORPA NET_ASSIGN NET_ASSIGN& NET_ASSIGN3ANET_BIND NET_BIND&NET_BIND3A NET_DEASSIGN NET_DEASSIGN& NET_DEASSIGN3ANET_GET_ADDRESS NET_GET_ADDRESS&NET_GET_ADDRESS3ANET_ADDR_TO_NAME NET_ADDR_TO_NAME&NET_ADDR_TO_NAME3A NET_GET_INFO NET_GET_INFO& NET_GET_INFO3ANET_GET_HOSTNAME NET_GET_HOSTNAME&NET_GET_HOSTNAME3A TCP_CONNECT TCP_CONNECT& TCP_CONNECT3ATCP_CONNECT_ADDR TCP_CONNECT_ADDR&TCP_CONNECT_ADDR3ATCP_DISCONNECT TCP_DISCONNECT&TCP_DISCONNECT3A TCP_ACCEPT TCP_ACCEPT& TCP_ACCEPT3ATCP_SEND TCP_SEND&TCP_SEND3A TCP_RECEIVE TCP_RECEIVE& TCP_RECEIVE3A TCP_GET_LINE TCP_GET_LINE& TCP_GET_LINE3AUDP_SEND UDP_SEND&UDP_SEND3A UDP_RECEIVE UDP_RECEIVE& UDP_RECEIVE3A DNS_MXLOOK DNS_MXLOOK& DNS_MXLOOK3Qx $$NETLIB_VECTORX MX023.Bwh b0[MX.KIT.NETLIB_INSTALL]NETLIB_USER_INSTALL.COM;8Te$ IF 'NETLIB_T .EQS. "*"$ THEN$ 'NETLIB_T = " "$ ELSE$ 'NETLIB_T = "*" $ ENDIF$ ENDIF$ GOTO NETLIB_PARSE_LOOP$!$NETLIB_CONFIRM:$ NETLIB_SAY ""B$ NETLIB_SAY " You have selected the following TCP/IP support:"$ NETLIB_SAY ""$ NETLIB_CNT = 0$ NETLIB_M = 0$NETLIB_CONF_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)1$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_CONF_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)$ IF 'NETLIB_T .EQS. "*"$ THEN$ NETLIB_PRI = NETLIB_M"$ NETLIB_SAY " ",NETLIB_N$ NETLIB_CNT = NETLIB_CNT + 1$ ENDIF$ GOTO NETLIB_CONF_LOOP$!$NETLIB_CONF_ASK:7$ IF NETLIB_CNT .EQ. 0 THEN NETLIB_SAY " (None)"$ NETLIB_SAY ""$ NETLIB_SAY ""5$ CALL NETLIB_ASK NETLIB_OK "Is this correct" "YES" B1$ IF .NOT. NETLIB_OK THEN GOTO NETLIB_SELECT_MENU$!$ IF NETLIB_CNT .EQ. 0$ THEN=$ NETLIB_SAY "%NETLIB-I-WONTINSTALL, No packages selected." $ EXIT 1$ ENDIF$!/$ IF NETLIB_CNT .EQ. 1 THEN GOTO NETLIB_DIR_ASK$!$NETLIB_PRIMARY_MENU:$!$ TYPE SYS$INPUT:? You have selected support for more than one TCP/IP package.= You must now select which is to be used by default on the current system.$ NETLIB_M = 0$NETLIB_PRI_LOOP:$ NETLIB_M = NETLIB_M + 16$ NETLIB_N = F$ELEMENT (NETLIB_M,":",NETLIB_TCP_NAMES)4$ IF NETLIB_N .EQS. ":" THEN GOTO NETLIB_PRIMARY_ASK1$ NETLIB_T = F$ELEMENT (NETLIB_M,":",NETLIB_TCPS)2$ IF 'NETLIB_T .EQS. " " THEN GOTO NETLIB_PRI_LOOP8$ NETLIB_SAY F$FAO (" !2UL. !AS", NETLIB_M, NETLIB_N)$ GOTO NETLIB_PRI_LOOP$!$NETLIB_PRIMARY_ASK:$!$ NETLIB_SAY ""$ NETLIB_SAY ""2$ CALL NETLIB_ASK NETLIB_TMP " Your choice"$!%$ NETLIB_PRI = F$INTEGER (NETLIB_TMP)4$ IF NETLIB_PRI .LT. 1 .OR. NETLIB_PRI .GE. NETLIB_M$ THENO$ NETLIB_SAY "%NETLIB-W-SELRANGE, Selection out of range. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF3$ NETLIB_T = F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS)$ IF 'NETLIB_T .NES. "*"$ THENT$ NETLIB_SAY "%NETLIB-W-UNAVAIL, That choice is not available. Please try again."$ GOTO NETLIB_PRIMARY_MENU$ ENDIF$!$NETLIB_DIR_ASK:$!$ NETLIB_SAY ""8$ NETLIB_SAY " Default TCP/IP transport will be: ", -0 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCP_NAMES)$!$ TYPE SYS$INPUT:! Choosing the NETLIB Directory> The NETLIB libraries may go in either your login directory( or some other directory you specify.$ NETLIB_DEFANS := SYS$LOGIN::$ IF F$TRNLNM ("NETLIB_DIR","LNM$PROCESS") .NES. "" THEN -9 NETLIB_DEFANS = F$TRNLNM ("NETLIB_DIR","LNM$PROCESS")$ CALL NETLIB_ASK NETLIB_DIR -D "Where should the NETLIB libraries be placed" "''NETLIB_DEFANS'"1$ NETLIB_DIR = F$PARSE (NETLIB_DIR,,,"DEVICE") +-' F$PARSE (NETLIB_DIR,,,"DIRECTORY")2$ IF F$SEARCH ("''NETLIB_DIR'X.X") .EQS. "" THEN - CREATE/DIRECTORY 'NETLIB_DIR$!#$ CREATE SYS$LOGIN:NETLIB_LOGIN.COM4$ OPEN/APPEND NETLIB_STUP SYS$LOGIN:NETLIB_LOGIN.COM $ NETLIB_W = "WRITE NETLIB_STUP" $ NETLIB_W "$! NETLIB_LOGIN.COM"D$ NETLIB_W "$! Login command procedure for NETLIB library routines."C$ NETLIB_W "$! Copyright 1991, Rensselaer Polytechnic Institute."$ NETLIB_W "$!"4$ NETLIB_W "$ DEFINE/NOLOG NETLIB_DIR ''NETLIB_DIR'">$ NETLIB_W "$ DEFINE/NOLOG NETLIB_NAMESERVERS ""127.0.0.1"",-"F$ NETLIB_W " ""c.nyser.net"",""terp.umd.edu"",""ns.nasa.gov"",-"&$ NETLIB_W " ""ns.nic.ddn.mil"""$!$ NETLIB_W "$!"B$ NETLIB_W "$ DEFINE/NOLOG NETLIB_SHRXFR NETLIB_DIR:NETLIB_SHRXFR"$!@$ NETLIB_SAY "%NETLIB-I-LINKING, Linking image NETLIB_SHRXFR..."C$ LINK/SHARE='NETLIB_DIR'NETLIB_SHRXFR.EXE NETLIB_INSTALL.OPT/OPT,-/ NETLIB_SHRXFR.OBJ,NETLIB_SHRXFR.VERSION/OPT$!.$ NETLIB_W "$ DEFINE NETLIB_SHR NETLIB_DIR:",-3 F$ELEMENT (NETLIB_PRI,":",NETLIB_TCPS), "_SHR"$!$ NETLIB_I = 0$NETLIB_INST_LOOP:$ NETLIB_I = NETLIB_I + 11$ NETLIB_T = F$ELEMENT (NETLIB_I,":",NETLIB_TCPS)7$ IF NETLIB_T .EQS. ":" THEN GOTO NETLIB_FINISH_INSTALL$ IF 'NETLIB_T .EQS. "*"$ THEND$ NETLIB_SAY "%NETLIB-I-LINKING, Linking image ''NETLIB_T'_SHR..."$ NETLIB_L = ""@$ IF F$LOCATE ("CMU",NETLIB_T) .LT. F$LENGTH (NETLIB_T) THEN -9 NETLIB_L = ",''NETLIB_T'_ERRORS.OPT/OPT" - "NETLIB_"F$ LINK/SHARE='NETLIB_DIR''NETLIB_T'_SHR.EXE NETLIB_INSTALL.OPT/OPT,-8 'NETLIB_T'.VERSION/OPT,'NETLIB_T'.OLB/LIB'NETLIB_L'$ ENDIF$ GOTO NETLIB_INST_LOOP$!$NETLIB_FINISH_INSTALL:$!$ CLOSE NETLIB_STUP$ TYPE SYS$INPUT:E The file SYS$LOGIN:NETLIB_LOGIN.COM includes commands that shouldE be added to your login command procedure to set up NETLIB logical names.! NETLIB installation complete.$!$ @SYS$LOGIN:NETLIB_LOGIN$ EXIT 1$!$NETLIB_ASK: SUBROUTINE$ PROMPT = "* " + P21$ IF "''P4'" .EQS. "B" THEN PROMPT = PROMPT + "?"7$ IF "''P3'" .NES. "" THEN PROMPT = PROMPT + " [''P3']"$ PROMPT = PROMPT + ": "$ASK1: $ ANSWER = "",$ READ SYS$COMMAND/PROMPT="''PROMPT'" ANSWER*$ IF ANSWER .EQS. "" THEN ANSWER = "''P3'"$ IF ANSWER .EQS. ""$ THEN;$ NETLIB_SAY "%NETLIB-I-ANSREQD, A response is required." $ GOTO ASK1$ ENDIF#$ ANSWER = F$EDIT (ANSWER,"UPCASE")$ IF "''P4'" .EQS. "B"$ THEN#$ ANSWER = F$EXTRACT (0,1,ANSWER).$ IF ANSWER .NES. "Y" .AND. ANSWER .NES. "N"$ THEN;$ NETLIB_SAY "%NETLIB-I-ANSYN, please answer YES or NO."$ GOTO ASK1 $ ENDIF$ ENDIF$ 'P1 == ANSWER$ ENDSUBROUTINE**[MX.KIT.NETLIB_INSTALL]NETLIB_VECTOR.OBJ;7+,h./> 4- b0123KPWO56W~]7`i$89G>HJ: NETLIB_VECTORV1.019-MAR-1991 15:58 VAX MACRO T5.2V-4/MACRO/OBJ=NETLIB_VECTOR.OBJ NETLIB_VECTOR.MAR  NETLIB_VECTOR DNS_MXLOOKNET_ADDR_TO_NAME NET_ASSIGNNET_BIND NET_DEASSIGNNET_GET_ADDRESSNET_GET_HOSTNAME NET_GET_INFO TCP_ACCEPT TCP_CONNECTTCP_CONNECT_ADDRTCP_DISCONNECT TCP_GET_LINE TCP_RECEIVETCP_SEND UDP_RECEIVEUDP_SEND . ABS .P$$NETLIB_VECTORPA NET_ASSIGN NET_ASSIGN& NET_ASSIGN3ANET_BIND NET_BIND&NET_BIND3A NET_DEASSIGN NET_DEASSIGN& NET_DEASSIGN3ANET_GET_ADDRESS NET_GET_ADDRESS&NET_GET_ADDRESS3ANET_ADDR_TO_NAME NET_ADDR_TO_NAME&NET_ADDR_TO_NAME3A NET_GET_INFO NET_GET_INFO& NET_GET_INFO3ANET_GET_HOSTNAME NET_GET_HOSTNAME&NET_GET_HOSTNAME3A TCP_CONNECT TCP_CONNECT& TCP_CONNECT3ATCP_CONNECT_ADDR TCP_CONNECT_ADDR&TCP_CONNECT_ADDR3ATCP_DISCONNECT TCP_DISCONNECT&TCP_DISCONNECT3A TCP_ACCEPT TCP_ACCEPT& TCP_ACCEPT3ATCP_SEND TCP_SEND&TCP_SEND3A TCP_RECEIVE TCP_RECEIVE& TCP_RECEIVE3A TCP_GET_LINE TCP_GET_LINE& TCP_GET_LINE3AUDP_SEND UDP_SEND&UDP_SEND3A UDP_RECEIVE UDP_RECEIVE& UDP_RECEIVE3A DNS_MXLOOK DNS_MXLOOK& DNS_MXLOOK3Qx $$NETLIB_VECTOR