! ********************************************************************************************************************************
!  Created: 23-Nov-2010 12:24:13 by OpenVMS SDL EV2-1      
!  Source:  24-JUL-2008 21:21:38 BUILD26$:[TCPIP_V57_BLECO2.SRC.NET]INET_USER.SDL;1 
! ********************************************************************************************************************************
 
!*** MODULE $$BEGIN ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
!DEC$ END OPTIONS
 
!*** MODULE $ARPREQDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER ARP$M_IN_USE = '00000001'X
	PARAMETER ARP$M_COM = '00000002'X
	PARAMETER ARP$M_PERM = '00000004'X
	PARAMETER ARP$M_PUBL = '00000008'X
	PARAMETER ARP$M_USETRAILERS = '00000010'X
	PARAMETER ARP$C_LENGTH = '00000022'X
	PARAMETER ARP$K_LENGTH = '00000022'X
	STRUCTURE /ARPREQDEF/
	    CHARACTER*16 ARP$T_PA			 !  IP address
 !  $SOCKADDRINDEF defines offsets
	    CHARACTER*16 ARP$T_HA			 !  Ethernet hardware address
 !  $SOCKADDRDEF defines offsets
	    UNION
	        MAP
	        INTEGER*2 ARP$W_FLAGS			 !  flags
	        END MAP
	        MAP
	            PARAMETER ARP$S_IN_USE = 1
	            PARAMETER ARP$V_IN_USE = 0		 !  ARP entry is in use
	            PARAMETER ARP$S_COM = 1
	            PARAMETER ARP$V_COM = 1			 !  ARP entry is complete
	            PARAMETER ARP$S_PERM = 1
	            PARAMETER ARP$V_PERM = 2		 !  ARP entry is pemanent
	            PARAMETER ARP$S_PUBL = 1
	            PARAMETER ARP$V_PUBL = 3		 !  ARP entry is public
	            PARAMETER ARP$S_USETRAILERS = 1
	            PARAMETER ARP$V_USETRAILERS = 4		 !  hosts uses trailers
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	END STRUCTURE	! ARPREQDEF
!DEC$ END OPTIONS
 
!*** MODULE $IFREQDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER IFR$M_IFF_UP = '00000001'X
	PARAMETER IFR$M_IFF_BROADCAST = '00000002'X
	PARAMETER IFR$M_IFF_DEBUG = '00000004'X
	PARAMETER IFR$M_IFF_LOOPBACK = '00000008'X
	PARAMETER IFR$M_IFF_POINTOPOINT = '00000010'X
	PARAMETER IFR$M_IFF_NOTRAILERS = '00000020'X
	PARAMETER IFR$M_IFF_RUNNING = '00000040'X
	PARAMETER IFR$M_IFF_NOARP = '00000080'X
	PARAMETER IFR$M_IFF_PROMISC = '00000100'X
	PARAMETER IFR$M_IFF_ALLMULTI = '00000200'X
	PARAMETER IFR$M_IFF_MULTICAST = '00000400'X
	PARAMETER IFR$M_IFF_SIMPLEX = '00000800'X
	PARAMETER IFR$M_IFF_OACTIVE = '00001000'X
	PARAMETER IFR$M_IFF_PFCOPYALL = '00002000'X
	PARAMETER IFR$M_IFF_D1 = '00004000'X
	PARAMETER IFR$M_IFF_D2 = '00008000'X
	PARAMETER IFR$M_IFF_UIOMOVE = '00010000'X
	PARAMETER IFR$M_IFF_PKTOK = '00020000'X
	PARAMETER IFR$M_IFF_SOCKBUF = '00040000'X
	PARAMETER IFR$M_IFF_VAR_MTU = '00080000'X
	PARAMETER IFR$M_IFF_NOCHECKSUM = '00100000'X
	PARAMETER IFR$M_IFF_DYNPROTO = '00200000'X
	PARAMETER IFR$M_IFF_MOP = '00400000'X
	PARAMETER IFR$M_IFF_SLIP = '00800000'X
	PARAMETER IFR$M_IFF_DELETE = '01000000'X
	PARAMETER IFR$M_IFF_NONAME = '02000000'X
	PARAMETER IFR$M_IFF_CLUSTER = '04000000'X
	PARAMETER IFR$C_LENGTH = '00000020'X
	PARAMETER IFR$K_LENGTH = '00000020'X
	STRUCTURE /IFREQDEF/
	    CHARACTER*16 IFR$T_NAME			 !  device name
	    UNION
	        MAP
	        CHARACTER*16 IFR$T_ADDR			 !  SOCKADDRIN structure 
	        END MAP
	        MAP
	        CHARACTER*16 IFR$T_DSTADDR		 !  SOCKADDRIN structure 
	        END MAP
	        MAP
	        CHARACTER*16 IFR$T_BROADADDR		 !  SOCKADDRIN structure 
	        END MAP
	        MAP
	        UNION
	            MAP
	            INTEGER*2 IFR$W_FLAGS			 !  flags
	            END MAP
	            MAP
	                PARAMETER IFR$S_IFF_UP = 1
	                PARAMETER IFR$V_IFF_UP = 0		 !  Interface is up
	                PARAMETER IFR$S_IFF_BROADCAST = 1
	                PARAMETER IFR$V_IFF_BROADCAST = 1	 !  Broadcast address valid
	                PARAMETER IFR$S_IFF_DEBUG = 1
	                PARAMETER IFR$V_IFF_DEBUG = 2		 !  Turn on tracing 
	                PARAMETER IFR$S_IFF_LOOPBACK = 1
	                PARAMETER IFR$V_IFF_LOOPBACK = 3	 !  Interface set to loopback
	                PARAMETER IFR$S_IFF_POINTOPOINT = 1
	                PARAMETER IFR$V_IFF_POINTOPOINT = 4	 !  Interface is point-to-point link
	                PARAMETER IFR$S_IFF_NOTRAILERS = 1
	                PARAMETER IFR$V_IFF_NOTRAILERS = 5	 !  Avoid use of trailers
	                PARAMETER IFR$S_IFF_RUNNING = 1
	                PARAMETER IFR$V_IFF_RUNNING = 6		 !  Resources are allocated 
	                PARAMETER IFR$S_IFF_NOARP = 1
	                PARAMETER IFR$V_IFF_NOARP = 7		 !  No address resolution protocol
	                PARAMETER IFR$S_IFF_PROMISC = 1
	                PARAMETER IFR$V_IFF_PROMISC = 8		 !  Receive all packets 
	                PARAMETER IFR$S_IFF_ALLMULTI = 1
	                PARAMETER IFR$V_IFF_ALLMULTI = 9	 !  Receive all multicasting packets
	                PARAMETER IFR$S_IFF_MULTICAST = 1
	                PARAMETER IFR$V_IFF_MULTICAST = 10	 !  supports multicast 
	                PARAMETER IFR$S_IFF_SIMPLEX = 1
	                PARAMETER IFR$V_IFF_SIMPLEX = 11	 !  can't hear own transmissions
	                PARAMETER IFR$S_IFF_OACTIVE = 1
	                PARAMETER IFR$V_IFF_OACTIVE = 12	 !  transmission in progress 
	                PARAMETER IFR$S_IFF_PFCOPYALL = 1
	                PARAMETER IFR$V_IFF_PFCOPYALL = 13	 !  pfilt gets packets to this host
	                PARAMETER IFR$S_IFF_D1 = 1
	                PARAMETER IFR$V_IFF_D1 = 14		 !  IFF_SNAP Ethernet driver outputs 
 !  SNAP hdr
	                PARAMETER IFR$S_IFF_D2 = 1
	                PARAMETER IFR$V_IFF_D2 = 15
	                PARAMETER IFR$S_IFF_UIOMOVE = 1
	                PARAMETER IFR$V_IFF_UIOMOVE = 16	 !  DART 
	                PARAMETER IFR$S_IFF_PKTOK = 1
	                PARAMETER IFR$V_IFF_PKTOK = 17		 !  DART 
	                PARAMETER IFR$S_IFF_SOCKBUF = 1
	                PARAMETER IFR$V_IFF_SOCKBUF = 18	 !  DART
	                PARAMETER IFR$S_IFF_VAR_MTU = 1
	                PARAMETER IFR$V_IFF_VAR_MTU = 19	 !  interface supports variable MTUs
	                PARAMETER IFR$S_IFF_NOCHECKSUM = 1
	                PARAMETER IFR$V_IFF_NOCHECKSUM = 20	 !  no checksums need reliable media
	                PARAMETER IFR$S_IFF_DYNPROTO = 1
	                PARAMETER IFR$V_IFF_DYNPROTO = 21	 !  Support dynamic proto dispatching
	                PARAMETER IFR$S_IFF_MOP = 1
	                PARAMETER IFR$V_IFF_MOP = 22		 !  Device in MOP mode; not in use
	                PARAMETER IFR$S_IFF_SLIP = 1
	                PARAMETER IFR$V_IFF_SLIP = 23		 !  Interface is a SLIP IFNET
	                PARAMETER IFR$S_IFF_DELETE = 1
	                PARAMETER IFR$V_IFF_DELETE = 24		 !  Started DELETE on this interface 
	                PARAMETER IFR$S_IFF_NONAME = 1
	                PARAMETER IFR$V_IFF_NONAME = 25		 !  Interface does not hold the cluster 
 !  name
	                PARAMETER IFR$S_IFF_CLUSTER = 1
	                PARAMETER IFR$V_IFF_CLUSTER = 26	 !  Interface is a cluster IFNET
	            BYTE %FILL (4)
	            END MAP
	        END UNION
	        END MAP
	        MAP
	        INTEGER*4 IFR$L_DATA			 !  pointer to data
	        END MAP
	    END UNION
	END STRUCTURE	! IFREQDEF
!DEC$ END OPTIONS
 
!*** MODULE $INETERRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER EPERM = '00000001'X		 !  Not owner 
	PARAMETER ENOENT = '00000002'X		 !  No such file or directory 
	PARAMETER ESRCH = '00000003'X		 !  No such process 
	PARAMETER EINTR = '00000004'X		 !  Interrupted system call 
	PARAMETER EIO = '00000005'X		 !  I/O error 
	PARAMETER ENXIO = '00000006'X		 !  No such device or address 
	PARAMETER E2BIG = '00000007'X		 !  Arg list too long 
	PARAMETER ENOEXEC = '00000008'X		 !  Exec format error 
	PARAMETER EBADF = '00000009'X		 !  Bad file number 
	PARAMETER ECHILD = '0000000A'X		 !  No children 
	PARAMETER EAGAIN = '0000000B'X		 !  No more processes 
	PARAMETER ENOMEM = '0000000C'X		 !  Not enough core 
	PARAMETER EACCES = '0000000D'X		 !  Permission denied 
	PARAMETER EFAULT = '0000000E'X		 !  Bad address 
	PARAMETER ENOTBLK = '0000000F'X		 !  Block device required 
	PARAMETER EBUSY = '00000010'X		 !  Mount device busy 
	PARAMETER EEXIST = '00000011'X		 !  File exists 
	PARAMETER EXDEV = '00000012'X		 !  Cross-device link 
	PARAMETER ENODEV = '00000013'X		 !  No such device 
	PARAMETER ENOTDIR = '00000014'X		 !  Not a directory
	PARAMETER EISDIR = '00000015'X		 !  Is a directory 
	PARAMETER EINVAL = '00000016'X		 !  Invalid argument 
	PARAMETER ENFILE = '00000017'X		 !  File table overflow 
	PARAMETER EMFILE = '00000018'X		 !  Too many open files 
	PARAMETER ENOTTY = '00000019'X		 !  Not a typewriter 
	PARAMETER ETXTBSY = '0000001A'X		 !  Text file busy 
	PARAMETER EFBIG = '0000001B'X		 !  File too large 
	PARAMETER ENOSPC = '0000001C'X		 !  No space left on device 
	PARAMETER ESPIPE = '0000001D'X		 !  Illegal seek 
	PARAMETER EROFS = '0000001E'X		 !  Read-only file system 
	PARAMETER EMLINK = '0000001F'X		 !  Too many links 
	PARAMETER EPIPE = '00000020'X		 !  Broken pipe 
 !  math software 
	PARAMETER EDOM = '00000021'X		 !  Argument too large 
	PARAMETER ERANGE = '00000022'X		 !  Result too large 
 !  non-blocking and interrupt i/o 
	PARAMETER EWOULDBLOCK = '00000023'X	 !  Operation would block 
	PARAMETER EINPROGRESS = '00000024'X	 !  Operation now in progress 
	PARAMETER EALREADY = '00000025'X	 !  Operation already in progress 
 !  ipc/network software 
 !  argument errors 
	PARAMETER ENOTSOCK = '00000026'X	 !  Socket operation on non-socket 
	PARAMETER EDESTADDRREQ = '00000027'X	 !  Destination address required 
	PARAMETER EMSGSIZE = '00000028'X	 !  Message too long 
	PARAMETER EPROTOTYPE = '00000029'X	 !  Protocol wrong type for socket 
	PARAMETER ENOPROTOOPT = '0000002A'X	 !  Protocol not available 
	PARAMETER EPROTONOSUPPORT = '0000002B'X	 !  Protocol not supported 
	PARAMETER ESOCKTNOSUPPORT = '0000002C'X	 !  Socket type not supported 
	PARAMETER EOPNOTSUPP = '0000002D'X	 !  Operation not supported on socket 
	PARAMETER EPFNOSUPPORT = '0000002E'X	 !  Protocol family not supported 
	PARAMETER EAFNOSUPPORT = '0000002F'X	 !  Address family not supported by protocol family 
	PARAMETER EADDRINUSE = '00000030'X	 !  Address already in use 
	PARAMETER EADDRNOTAVAIL = '00000031'X	 !  Can't assign requested address 
 !  operational errors 
	PARAMETER ENETDOWN = '00000032'X	 !  Network is down 
	PARAMETER ENETUNREACH = '00000033'X	 !  Network is unreachable 
	PARAMETER ENETRESET = '00000034'X	 !  Network dropped connection on reset 
	PARAMETER ECONNABORTED = '00000035'X	 !  Software caused connection abort 
	PARAMETER ECONNRESET = '00000036'X	 !  Connection reset by peer 
	PARAMETER ENOBUFS = '00000037'X		 !  No buffer space available 
	PARAMETER EISCONN = '00000038'X		 !  Socket is already connected 
	PARAMETER ENOTCONN = '00000039'X	 !  Socket is not connected 
	PARAMETER ESHUTDOWN = '0000003A'X	 !  Can't send after socket shutdown 
	PARAMETER ETOOMANYREFS = '0000003B'X	 !  Too many references: can't splice 
	PARAMETER ETIMEDOUT = '0000003C'X	 !  Connection timed out 
	PARAMETER ECONNREFUSED = '0000003D'X	 !  Connection refused 
	PARAMETER ELOOP = '0000003E'X		 !  Too many levels of symbolic links 
	PARAMETER ENAMETOOLONG = '0000003F'X	 !  File name too long 
 !  should be rearranged 
	PARAMETER EHOSTDOWN = '00000040'X	 !  Host is down 
	PARAMETER EHOSTUNREACH = '00000041'X	 !  No route to host 
 !  quotas & mush 
	PARAMETER EPROCLIM = '00000043'X	 !  Too many processes 
	PARAMETER EUSERS = '00000044'X		 !  Too many users 
	PARAMETER EDQUOT = '00000045'X		 !  Disc quota exceeded 
!DEC$ END OPTIONS
 
!*** MODULE $INETSYMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER DVI$_ACP_TCP = '0000000A'X
	PARAMETER INET$C_IP = '00000000'X
	PARAMETER INET$C_ICMP = '00000001'X
	PARAMETER INET$C_IGMP = '00000002'X
	PARAMETER INET$C_GGP = '00000003'X
	PARAMETER INET$C_IPIP = '00000004'X
	PARAMETER INET$C_IPV4 = '00000004'X
	PARAMETER INET$C_TCP = '00000006'X
	PARAMETER INET$C_EGP = '00000008'X
	PARAMETER INET$C_PUP = '0000000C'X
	PARAMETER INET$C_UDP = '00000011'X
	PARAMETER INET$C_IDP = '00000016'X
	PARAMETER INET$C_TP = '0000001D'X
	PARAMETER INET$C_RSVP = '0000002E'X
	PARAMETER INET$C_IPV6 = '00000029'X
	PARAMETER INET$C_ROUTING = '0000002B'X
	PARAMETER INET$C_FRAG = '0000002C'X
	PARAMETER INET$C_ESP = '00000032'X
	PARAMETER INET$C_AUTH = '00000033'X
	PARAMETER INET$C_ICMPV6 = '0000003A'X
	PARAMETER INET$C_NONEXTHDR = '0000003B'X
	PARAMETER INET$C_DESTNODE = '0000003C'X
	PARAMETER INET$C_EON = '00000050'X
	PARAMETER INET$C_AUXS = '0000007F'X
	PARAMETER INET$C_REXEC = '00000080'X
	PARAMETER INET$C_SCTP = '00000084'X
	PARAMETER INET$C_RAW_IP = '000000FF'X
	PARAMETER INET$C_MAX = '00000100'X
	PARAMETER IPPROTO$C_IP = '00000000'X
	PARAMETER IPPROTO$C_ICMP = '00000001'X
	PARAMETER IPPROTO$C_IGMP = '00000002'X
	PARAMETER IPPROTO$C_GGP = '00000003'X
	PARAMETER IPPROTO$C_IPIP = '00000004'X
	PARAMETER IPPROTO$C_IPV4 = '00000004'X
	PARAMETER IPPROTO$C_TCP = '00000006'X
	PARAMETER IPPROTO$C_EGP = '00000008'X
	PARAMETER IPPROTO$C_PUP = '0000000C'X
	PARAMETER IPPROTO$C_UDP = '00000011'X
	PARAMETER IPPROTO$C_IDP = '00000016'X
	PARAMETER IPPROTO$C_TP = '0000001D'X
	PARAMETER IPPROTO$C_RSVP = '0000002E'X
	PARAMETER IPPROTO$C_IPV6 = '00000029'X
	PARAMETER IPPROTO$C_ROUTING = '0000002B'X
	PARAMETER IPPROTO$C_FRAG = '0000002C'X
	PARAMETER IPPROTO$C_ESP = '00000032'X
	PARAMETER IPPROTO$C_AUTH = '00000033'X
	PARAMETER IPPROTO$C_ICMPV6 = '0000003A'X
	PARAMETER IPPROTO$C_NONEXTHDR = '0000003B'X
	PARAMETER IPPROTO$C_DESTNODE = '0000003C'X
	PARAMETER IPPROTO$C_EON = '00000050'X
	PARAMETER IPPROTO$C_AUXS = '0000007F'X
	PARAMETER IPPROTO$C_REXEC = '00000080'X
	PARAMETER IPPROTO$C_SCTP = '00000084'X
	PARAMETER IPPROTO$C_RAW_IP = '000000FF'X
	PARAMETER IPPROTO$C_MAX = '00000100'X
	PARAMETER TCPIP$C_IP = '00000000'X
	PARAMETER TCPIP$C_ICMP = '00000001'X
	PARAMETER TCPIP$C_IGMP = '00000002'X
	PARAMETER TCPIP$C_GGP = '00000003'X
	PARAMETER TCPIP$C_IPIP = '00000004'X
	PARAMETER TCPIP$C_IPV4 = '00000004'X
	PARAMETER TCPIP$C_TCP = '00000006'X
	PARAMETER TCPIP$C_EGP = '00000008'X
	PARAMETER TCPIP$C_PUP = '0000000C'X
	PARAMETER TCPIP$C_UDP = '00000011'X
	PARAMETER TCPIP$C_IDP = '00000016'X
	PARAMETER TCPIP$C_TP = '0000001D'X
	PARAMETER TCPIP$C_RSVP = '0000002E'X
	PARAMETER TCPIP$C_IPV6 = '00000029'X
	PARAMETER TCPIP$C_ROUTING = '0000002B'X
	PARAMETER TCPIP$C_FRAG = '0000002C'X
	PARAMETER TCPIP$C_ESP = '00000032'X
	PARAMETER TCPIP$C_AUTH = '00000033'X
	PARAMETER TCPIP$C_ICMPV6 = '0000003A'X
	PARAMETER TCPIP$C_NONEXTHDR = '0000003B'X
	PARAMETER TCPIP$C_DESTNODE = '0000003C'X
	PARAMETER TCPIP$C_EON = '00000050'X
	PARAMETER TCPIP$C_AUXS = '0000007F'X
	PARAMETER TCPIP$C_REXEC = '00000080'X
	PARAMETER TCPIP$C_SCTP = '00000084'X
	PARAMETER TCPIP$C_RAW_IP = '000000FF'X
	PARAMETER TCPIP$C_MAX = '00000100'X
 ! 
 !  Ports < IP_PROTO$C_RESERVED are reserved for
 !  privileged processes (e.g. root).
 ! 
	PARAMETER IP_PROTO$C_RESERVED = '00000400'X
	PARAMETER INET_PROTYP$C_STREAM = '00000001'X  !  stream type
	PARAMETER INET_PROTYP$C_DGRAM = '00000002'X  !  datagram type
	PARAMETER INET_PROTYP$C_RAW = '00000003'X  !  raw type
	PARAMETER INET_PROTYP$C_RDM = '00000004'X  !  reliably-delivered message - not used on OpenVMS
	PARAMETER INET_PROTYP$C_SEQPACKET = '00000005'X  !  sequenced packet as used by SCTP
 ! 
	PARAMETER TCPIP$C_STREAM = '00000001'X
	PARAMETER TCPIP$C_DGRAM = '00000002'X
	PARAMETER TCPIP$C_RAW = '00000003'X
	PARAMETER TCPIP$C_RDM = '00000004'X
	PARAMETER TCPIP$C_SEQPACKET = '00000005'X
	PARAMETER INET$C_IPOPT = '00000000'X	 !  IP opt type parameter
	PARAMETER INET$C_SOCKOPT = '00000001'X	 !  setsockopt type parameter
	PARAMETER INET$C_IOCTL = '00000002'X	 !  ioctl type parameter
	PARAMETER INET$C_DATA = '00000003'X	 !  data
	PARAMETER INET$C_SOCK_NAME = '00000004'X  !  socket name
	PARAMETER INET$C_RESERVE_1 = '00000005'X
	PARAMETER INET$C_TCPOPT = '00000006'X	 !  TCP option type
 ! 
	PARAMETER INET$C_SCTPOPT = '00000084'X
	PARAMETER INET$C_IPV6OPT = '00000029'X
	PARAMETER TCPIP$C_IPV6OPT = '00000029'X
	PARAMETER INET$C_ICMPV6OPT = '0000003A'X
	PARAMETER TCPIP$C_ICMPV6OPT = '0000003A'X
	PARAMETER TCPIP$C_IPOPT = '00000000'X
	PARAMETER TCPIP$C_SOCKOPT = '00000001'X
	PARAMETER TCPIP$C_TCPOPT = '00000006'X
	PARAMETER TCPIP$C_IOCTL = '00000002'X
	PARAMETER TCPIP$C_DATA = '00000003'X
	PARAMETER TCPIP$C_SOCK_NAME = '00000004'X
	PARAMETER INET$C_DSC_RCV = '00000000'X	 !  discard received messages
	PARAMETER INET$C_DSC_SND = '00000001'X	 !  discard sent messages
	PARAMETER INET$C_DSC_ALL = '00000002'X	 !  discard all messages
	PARAMETER TCPIP$C_DSC_RCV = '00000000'X
	PARAMETER TCPIP$C_DSC_SND = '00000001'X
	PARAMETER TCPIP$C_DSC_ALL = '00000002'X
	PARAMETER TCPIP$C_SO_SNDBUF = '00001001'X  !  0x1001 send buffer size
	PARAMETER TCPIP$C_SO_RCVBUF = '00001002'X  !  0x1002 receive buffer size
	PARAMETER TCPIP$C_SO_SNDLOWAT = '00001003'X  !  0x1003 send low-water mark
	PARAMETER TCPIP$C_SO_RCVLOWAT = '00001004'X  !  0x1004 receive low-water mark 
	PARAMETER TCPIP$C_SO_SNDTIMEO = '00001005'X  !  0x1005 send timeout
	PARAMETER TCPIP$C_SO_RCVTIMEO = '00001006'X  !  0x1006 receive timeout
	PARAMETER TCPIP$C_SO_ERROR = '00001007'X  !  0x1007 get error status and clear
	PARAMETER TCPIP$C_SO_TYPE = '00001008'X	 !  0x1008 get socket type
	PARAMETER TCPIP$C_SO_SHARE = '00001009'X  !  0x1009 ovms Share between processes
	PARAMETER TCPIP$C_SO_CCL = '0000100A'X	 !  0x100a ovms Carriage Control socket
	PARAMETER TCPIP$C_SO_STATE = '0000100B'X  !  0x100b get socket state bits
	PARAMETER TCPIP$C_SO_FAMILY = '0000100C'X  !  0x100c get socket address family
	PARAMETER TCPIP$C_SO_XSE = '0000100D'X	 !  0x100d _XOPEN_SOURCE_EXTENDED socket
	PARAMETER TCPIP$C_SO_NO_RCV_CHKSUM = '00004000'X
	PARAMETER TCPIP$C_SO_NO_SND_CHKSUM = '00008000'X
	PARAMETER TCPIP$C_SO_NO_CHKSUM = '0000C000'X
 ! ;constant (
 ! ;	DEBUGGING 	
 ! ;	,ACCEPTCONN 
 ! ;	,REUSEADDR 
 ! ;	,KEEPALIVE 
 ! ;	,DONTROUTE 
 ! ;	,BROADCAST 
 ! ;	,USELOOPBACK 
 ! ;	,LINGER 
 ! ;	,OOBINLINE 
 ! ;	) equals 1 increment 1 prefix TCPIP$ tag C counter #types;
	PARAMETER INET$C_TCPOPT_EOL = '00000000'X
	PARAMETER INET$C_TCPOPT_NOP = '00000001'X
	PARAMETER INET$C_TCPOPT_MAXSEG = '00000002'X
	PARAMETER INET$C_TCP_NODELAY = '00000001'X  !  don't delay send to coalesce packets 
	PARAMETER INET$C_TCP_MAXSEG = '00000002'X  !  set maximum segment size
	PARAMETER INET$C_TCP_DUMMY1 = '00000003'X  !  reserve space
	PARAMETER INET$C_TCP_KEEPIDLE = '00000004'X  !  seconds before initial keepalive probe
	PARAMETER INET$C_TCP_KEEPINTVL = '00000005'X  !  seconds between keepalive probes 
	PARAMETER INET$C_TCP_KEEPCNT = '00000006'X  !  number of keepalive probes before drop 
	PARAMETER INET$C_TCP_KEEPINIT = '00000007'X  !  initial connect timeout (seconds) 
	PARAMETER INET$C_TCP_DUMMY2 = '00000008'X  !  reserve space  
	PARAMETER INET$C_TCP_NODELACK = '00000009'X  !  don't delay ACKs to await additional data
	PARAMETER INET$C_TCP_TSOPTENA = '00000010'X  !  time stamp option
	PARAMETER INET$C_TCP_PAWS = '00000020'X	 !  PAWS option
	PARAMETER INET$C_TCP_DUMMY3 = '00000030'X  !  reserve space
	PARAMETER INET$C_TCP_SACKENA = '00000040'X  !  SACK enabled
	PARAMETER INET$C_TCP_PROBE_IDLE = '00000080'X  !  probe idle timer
	PARAMETER INET$C_TCP_DROP_IDLE = '00000081'X  !  drop idle timer
	PARAMETER TCPIP$C_TCPOPT_EOL = '00000000'X
	PARAMETER TCPIP$C_TCPOPT_NOP = '00000001'X
	PARAMETER TCPIP$C_TCPOPT_MAXSEG = '00000002'X
	PARAMETER TCPIP$C_TCP_NODELAY = '00000001'X
	PARAMETER TCPIP$C_TCP_MAXSEG = '00000002'X
	PARAMETER TCPIP$C_TCP_KEEPIDLE = '00000004'X
	PARAMETER TCPIP$C_TCP_KEEPINTVL = '00000005'X
	PARAMETER TCPIP$C_TCP_KEEPCNT = '00000006'X
	PARAMETER TCPIP$C_TCP_KEEPINIT = '00000007'X
	PARAMETER TCPIP$C_TCP_NODELACK = '00000009'X
	PARAMETER TCPIP$C_TCP_TSOPTENA = '00000010'X
	PARAMETER TCPIP$C_TCP_PAWS = '00000020'X
	PARAMETER TCPIP$C_TCP_SACKENA = '00000040'X
	PARAMETER TCPIP$C_TCP_PROBE_IDLE = '00000080'X
	PARAMETER TCPIP$C_TCP_DROP_IDLE = '00000081'X
	PARAMETER INET$C_IP_OPTIONS = '00000001'X  !  buf/ip_opts; set/get IP per-packet options 
	PARAMETER INET$C_IP_HDRINCL = '00000002'X  !  int; header is included with data (raw) 
	PARAMETER INET$C_IP_TOS = '00000003'X	 !  int; IP type of service and precedence
	PARAMETER INET$C_IP_TTL = '00000004'X	 !  int; IP time to live
	PARAMETER INET$C_IP_RECVOPTS = '00000005'X  !  bool; receive all IP options w/datagram 
	PARAMETER INET$C_IP_DUMMY1 = '00000006'X  !  reserve space  
	PARAMETER INET$C_IP_RECVDSTADDR = '00000007'X  !  bool; receive IP dst addr w/datagram 
	PARAMETER INET$C_IP_MULTICAST_IF = '00000010'X  !  set/get IP multicast interface
	PARAMETER INET$C_IP_MULTICAST_TTL = '00000011'X  !  set/get IP multicast timetolive
	PARAMETER INET$C_IP_MULTICAST_LOOP = '00000012'X  !  set/get IP multicast loopback
 !  For binary compatability with UCX 4.n, TCPIP kernel accepts both 12 & 19
 !  for IP_ADD_MEMBERSHIP.
	PARAMETER INET$C_IP_ADD_MEMBERSHIP = '00000013'X  !  add  an IP group membership
	PARAMETER INET$C_IP_DROP_MEMBERSHIP = '00000014'X  !  drop an IP group membership
	PARAMETER INET$C_IP_MULTICAST_VIF = '00000015'X  !  set/get IP mcast vir. interface
	PARAMETER TCPIP$C_IP_OPTIONS = '00000001'X  !  buf/ip_opts; set/get IP per-packet options 
	PARAMETER TCPIP$C_IP_HDRINCL = '00000002'X  !  int; header is included with data (raw) 
	PARAMETER TCPIP$C_IP_TOS = '00000003'X	 !  int; IP type of service and precedence
	PARAMETER TCPIP$C_IP_TTL = '00000004'X	 !  int; IP time to live
	PARAMETER TCPIP$C_IP_RECVOPTS = '00000005'X  !  bool; receive all IP options w/datagram 
	PARAMETER TCPIP$C_IP_DUMMY1 = '00000006'X  !  reserve space  
	PARAMETER TCPIP$C_IP_RECVDSTADDR = '00000007'X  !  bool; receive IP dst addr w/datagram 
	PARAMETER TCPIP$C_IP_MULTICAST_IF = '00000010'X  !  set/get IP multicast interface
	PARAMETER TCPIP$C_IP_MULTICAST_TTL = '00000011'X  !  set/get IP multicast timetolive
	PARAMETER TCPIP$C_IP_MULTICAST_LOOP = '00000012'X  !  set/get IP multicast loopback
 !  For binary compatability with UCX 4.n, TCPIP kernel accepts both 12 & 19
 !  for IP_ADD_MEMBERSHIP.
	PARAMETER TCPIP$C_IP_ADD_MEMBERSHIP = '00000013'X  !  add  an IP group membership
	PARAMETER TCPIP$C_IP_DROP_MEMBERSHIP = '00000014'X  !  drop an IP group membership
	PARAMETER TCPIP$C_IP_MULTICAST_VIF = '00000015'X  !  set/get IP mcast vir. interface
	PARAMETER INET$C_AF_UNSPEC = '00000000'X  !  unspecified 
	PARAMETER INET$C_AF_UNIX = '00000001'X	 !  local to host (pipes, portals) 
	PARAMETER INET$C_AF_INET = '00000002'X	 !  internetwork: UDP, TCP, etc. 
	PARAMETER INET$C_AF_IMPLINK = '00000003'X  !  3 arpanet imp addresses
	PARAMETER INET$C_AF_PUP = '00000004'X	 !  4 pup protocols: e.g. BSP
	PARAMETER INET$C_AF_CHAOS = '00000005'X	 !  5 mit CHAOS protocols
	PARAMETER INET$C_AF_NS = '00000006'X	 !  6 XEROX NS protocols
	PARAMETER INET$C_AF_ISO = '00000007'X	 !  7 ISO protocols
	PARAMETER INET$C_AF_ECMA = '00000008'X	 !  8 european computer manufacturers
	PARAMETER INET$C_AF_DATAKIT = '00000009'X  !  9 datakit protocols
	PARAMETER INET$C_AF_CCITT = '0000000A'X	 !  10 CCITT protocols, X.25 etc
	PARAMETER INET$C_AF_SNA = '0000000B'X	 !  11 IBM SNA
	PARAMETER INET$C_AF_DECnet = '0000000C'X  !  12 DECnet
	PARAMETER INET$C_AF_DLI = '0000000D'X	 !  13 DEC Direct data link interface
	PARAMETER INET$C_AF_LAT = '0000000E'X	 !  14 LAT
	PARAMETER INET$C_AF_HYLINK = '0000000F'X  !  15 NSC Hyperchannel
	PARAMETER INET$C_AF_APPLETALK = '00000010'X  !  16 Apple Talk
	PARAMETER INET$C_AF_ROUTE = '00000011'X	 !  17 Internal Routing Protocol
	PARAMETER INET$C_AF_LINK = '00000012'X	 !  18 Link layer interface
	PARAMETER INET$C_pseudo_AF_XTP = '00000013'X  !  19 eXpress Transfer Protocol (no AF)
	PARAMETER INET$C_AF_NETMAN = '00000014'X  !  20 DNA Network Management
	PARAMETER INET$C_AF_X25 = '00000015'X	 !  21 X25 protocol
	PARAMETER INET$C_AF_CTF = '00000016'X	 !  22 Common Trace Facility
	PARAMETER INET$C_AF_WAN = '00000017'X	 !  23 Wide Area Network protocols
	PARAMETER INET$C_AF_USER = '00000018'X	 !  24 Wild card (user defined) protocol
	PARAMETER INET$C_AF_LAST = '00000019'X	 !  25 Local Area System Transport protocol
	PARAMETER INET$C_AF_INET6 = '0000001A'X	 !  26 IPV6: UDP, TCP, etc.
	PARAMETER INET$C_AF_AAL = '0000001B'X	 !  27 Native AAL ATM
	PARAMETER INET$C_AF_KEY = '0000001C'X	 !  28 Key management
	PARAMETER INET$C_AF_UNUSED1 = '0000001D'X
	PARAMETER INET$C_AF_UNUSED2 = '0000001E'X
	PARAMETER INET$C_AF_UNUSED3 = '0000001F'X
	PARAMETER INET$C_AF_UNUSED4 = '00000020'X
	PARAMETER INET$C_AF_UNUSED5 = '00000021'X
	PARAMETER INET$C_AF_UNUSED6 = '00000022'X
	PARAMETER INET$C_AF_MAX = '00000023'X	 !  35 maximum value 
	PARAMETER INET$C_INADDR_ANY = '00000000'X
	PARAMETER INET$C_INADDR_BROADCAST = -1
 ! 
	PARAMETER TCPIP$C_AF_UNSPEC = '00000000'X
	PARAMETER TCPIP$C_AF_UNIX = '00000001'X
	PARAMETER TCPIP$C_AF_INET = '00000002'X
	PARAMETER TCPIP$C_AF_INET6 = '0000001A'X
	PARAMETER TCPIP$C_AF_MAX = '00000023'X
	PARAMETER TCPIP$C_INADDR_ANY = '00000000'X
	PARAMETER TCPIP$C_INADDR_BROADCAST = -1
 ! 
	PARAMETER INET$M_MSG_OOB = '00000001'X
	PARAMETER INET$M_MSG_PEEK = '00000002'X
	PARAMETER INET$M_MSG_DONTROUTE = '00000004'X
	PARAMETER INET$M_DUMMYN_4 = '00000008'X
	PARAMETER INET$M_DUMMYN_5 = '00000010'X
	PARAMETER INET$M_MSG_PURGE = '00000020'X
	PARAMETER INET$M_MSG_NBIO = '00000040'X
	PARAMETER INET$M_MSG_BLOCKALL = '00000080'X
	STRUCTURE /MSGBITS/
 ! 
	        PARAMETER INET$S_MSG_OOB = 1
	        PARAMETER INET$V_MSG_OOB = 0		 !  turn on event logging, not used
	        PARAMETER INET$S_MSG_PEEK = 1
	        PARAMETER INET$V_MSG_PEEK = 1		 !  socket has had LISTEN
	        PARAMETER INET$S_MSG_DONTROUTE = 1
	        PARAMETER INET$V_MSG_DONTROUTE = 2	 !  use only the interface addr
 ! 
	        PARAMETER INET$S_DUMMYN_4 = 1
	        PARAMETER INET$V_DUMMYN_4 = 3		 !  reserve space
 ! 
	        PARAMETER INET$S_DUMMYN_5 = 1
	        PARAMETER INET$V_DUMMYN_5 = 4		 !  reserve space
 ! 
	        PARAMETER INET$S_MSG_PURGE = 1
	        PARAMETER INET$V_MSG_PURGE = 5		 !  Purge I/O
	        PARAMETER INET$S_MSG_NBIO = 1
	        PARAMETER INET$V_MSG_NBIO = 6		 !  NON-block I/O
	        PARAMETER INET$S_MSG_BLOCKALL = 1
	        PARAMETER INET$V_MSG_BLOCKALL = 7
	        BYTE %FILL (1)				 !  record TCP I/O
	END STRUCTURE	! MSGBITS
	PARAMETER INET$C_MSG_OOB = '00000001'X	 !  process out-of-band data 
	PARAMETER INET$C_MSG_PEEK = '00000002'X	 !  peek at incoming message 
	PARAMETER INET$C_MSG_DONTROUTE = '00000004'X  !  send without 
 !  using routing tables 
	PARAMETER INET$C_MSG_PURGE = '00000020'X  !  block read until fill buffer
	PARAMETER INET$C_MSG_NBIO = '00000040'X	 !  block read until fill buffer
	PARAMETER INET$C_MSG_BLOCKALL = '00000080'X  !  block read until fill buffer
	PARAMETER INET$C_MSG_MAXIOVLEN = '00000010'X
 ! 
	PARAMETER TCPIP$C_MSG_OOB = '00000001'X	 !  process out-of-band data 
	PARAMETER TCPIP$C_MSG_PEEK = '00000002'X  !  peek at incoming message 
	PARAMETER TCPIP$C_MSG_DONTROUTE = '00000004'X  !  send without 
 !  using routing tables 
	PARAMETER TCPIP$C_MSG_PURGE = '00000020'X  !  block read until fill buffer
	PARAMETER TCPIP$C_MSG_NBIO = '00000040'X  !  block read until fill buffer
	PARAMETER TCPIP$C_MSG_BLOCKALL = '00000080'X  !  block read until fill buffer
	PARAMETER TCPIP$C_MSG_MAXIOVLEN = '00000010'X
	PARAMETER TCPIP$M_MSG_OOB = '00000001'X
	PARAMETER TCPIP$M_MSG_PEEK = '00000002'X
	PARAMETER TCPIP$M_MSG_DONTROUTE = '00000004'X
	PARAMETER TCPIP$M_DUMMYX_4 = '00000008'X
	PARAMETER TCPIP$M_DUMMYX_5 = '00000010'X
	PARAMETER TCPIP$M_MSG_PURGE = '00000020'X
	PARAMETER TCPIP$M_MSG_NBIO = '00000040'X
	PARAMETER TCPIP$M_MSG_BLOCKALL = '00000080'X
	STRUCTURE /MSGBITS_1/
 ! 
	        PARAMETER TCPIP$S_MSG_OOB = 1
	        PARAMETER TCPIP$V_MSG_OOB = 0		 !  turn on event logging, not used
	        PARAMETER TCPIP$S_MSG_PEEK = 1
	        PARAMETER TCPIP$V_MSG_PEEK = 1		 !  socket has had LISTEN
	        PARAMETER TCPIP$S_MSG_DONTROUTE = 1
	        PARAMETER TCPIP$V_MSG_DONTROUTE = 2	 !  use only the interface addr
 ! 
	        PARAMETER TCPIP$S_DUMMYX_4 = 1
	        PARAMETER TCPIP$V_DUMMYX_4 = 3		 !  reserve space
 ! 
	        PARAMETER TCPIP$S_DUMMYX_5 = 1
	        PARAMETER TCPIP$V_DUMMYX_5 = 4		 !  reserve space
 ! 
	        PARAMETER TCPIP$S_MSG_PURGE = 1
	        PARAMETER TCPIP$V_MSG_PURGE = 5		 !  Purge I/O
	        PARAMETER TCPIP$S_MSG_NBIO = 1
	        PARAMETER TCPIP$V_MSG_NBIO = 6		 !  NON-block I/O
	        PARAMETER TCPIP$S_MSG_BLOCKALL = 1
	        PARAMETER TCPIP$V_MSG_BLOCKALL = 7
	        BYTE %FILL (1)				 !  record TCP I/O
	END STRUCTURE	! MSGBITS_1
!DEC$ END OPTIONS
 
!*** MODULE $OPTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER OPT$L_ADDRESS = '00000004'X
	PARAMETER OPT$C_SET_LENGTH = '00000008'X
	PARAMETER OPT$K_SET_LENGTH = '00000008'X
	PARAMETER OPT$C_GET_LENGTH = '0000000C'X
	PARAMETER OPT$K_GET_LENGTH = '0000000C'X
	STRUCTURE /OPTDEF/
	    INTEGER*2 OPT$W_LENGTH			 !  length
	    INTEGER*2 OPT$W_NAME			 !  name
	    INTEGER*4 OPT$L_ADDR			 !  address
	    INTEGER*4 OPT$L_RET_LENGTH		 !  address
	END STRUCTURE	! OPTDEF
!DEC$ END OPTIONS
 
!*** MODULE $ORTENTRYDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  We distinguish between routes to hosts and routes to networks,
 !  preferring the former if available.  For each route we infer
 !  the interface to use from the gateway address supplied when
 !  the route was entered.  Routes that forward packets through
 !  gateways are marked so that the output routines know to address the
 !  gateway rather than the ultimate destination.
 ! 
	PARAMETER ORT$M_RTF_UP = '00000001'X
	PARAMETER ORT$M_RTF_GATEWAY = '00000002'X
	PARAMETER ORT$M_RTF_HOST = '00000004'X
	PARAMETER ORT$M_RTF_DYNAMIC = '00000008'X
	PARAMETER ORT$M_RTF_MODIFIED = '00000010'X
	PARAMETER ORT$C_LENGTH = '00000030'X
	PARAMETER ORT$K_LENGTH = '00000030'X
	STRUCTURE /ORTENTRYDEF/
	    INTEGER*4 ORT$L_HASH			 !  Hash link
	    UNION
	        MAP
	            INTEGER*2 ORT$W_DST_SIN_FAMILY		 !  Address type
	            INTEGER*2 ORT$W_DST_SIN_PORT		 !  Port number
	            INTEGER*4 ORT$L_DST_SIN_ADDR		 !  Internet address
	            CHARACTER*8 ORT$T_DST_SIN_ZERO		 !  Unused space
	        END MAP
	        MAP
	        CHARACTER*16 ORT$T_DST			 !  Destination SOCKADDR structure
	        END MAP
	    END UNION
	    UNION
	        MAP
	            INTEGER*2 ORT$W_GATEWAY_SIN_FAMILY	 !  Address type
	            INTEGER*2 ORT$W_GATEWAY_SIN_PORT	 !  Port number
	            INTEGER*4 ORT$L_GATEWAY_SIN_ADDR	 !  Internet address
	            CHARACTER*8 ORT$T_GATEWAY_SIN_ZERO	 !  Unused space
	        END MAP
	        MAP
	        CHARACTER*16 ORT$T_GATEWAY		 !  Gateway SOCKADDR structure
	        END MAP
	    END UNION
	    UNION
	        MAP
	        INTEGER*2 ORT$W_FLAGS			 !  up/down?, host/net 
	        END MAP
	        MAP
	            PARAMETER ORT$S_RTF_UP = 1
	            PARAMETER ORT$V_RTF_UP = 0		 !  route useable 
	            PARAMETER ORT$S_RTF_GATEWAY = 1
	            PARAMETER ORT$V_RTF_GATEWAY = 1		 !  destination is a gateway 
	            PARAMETER ORT$S_RTF_HOST = 1
	            PARAMETER ORT$V_RTF_HOST = 2		 !  host entry (net otherwise) 
	            PARAMETER ORT$S_RTF_DYNAMIC = 1
	            PARAMETER ORT$V_RTF_DYNAMIC = 3		 !  created dynamically (by redirect)
	            PARAMETER ORT$S_RTF_MODIFIED = 1
	            PARAMETER ORT$V_RTF_MODIFIED = 4	 !  changed by redirect 
	        BYTE %FILL (1)
	        END MAP
	    END UNION
	    INTEGER*2 ORT$W_REFCNT			 !  # held references 
	    INTEGER*4 ORT$L_USE			 !  raw # packets forwarded 
	    INTEGER*4 ORT$L_IFP			 !  pointer to the IFNET interface to use
	END STRUCTURE	! ORTENTRYDEF
!DEC$ END OPTIONS
 
!*** MODULE $SIOCDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 !  
 !  Only defined here for backward compatibility
 !  
	PARAMETER FIONREAD = '4004667F'X	 !  Get # bytes to read 
	PARAMETER OFIONREAD = '8004667F'X	 !  Get # bytes to read 
	PARAMETER FIONBIO = '8004667E'X		 !  non block I/O
	PARAMETER FIOASYNC = '8004667D'X	 !  asynch I/O
	PARAMETER SIOCSHIWAT = '80047300'X	 !  high water mark
	PARAMETER SIOCGHIWAT = '40047301'X	 !  high water mark
	PARAMETER SIOCSLOWAT = '80047302'X	 !  low water mark
	PARAMETER SIOCGLOWAT = '40047303'X	 !  low water mark
	PARAMETER SIOCATMARK = '40047307'X	 !  at OOB mark
	PARAMETER SIOCSPGRP = '80047308'X	 !  Process group
	PARAMETER SIOCGPGRP = '40047309'X	 !  Process group
	PARAMETER SIOCADDRT = '8030720A'X	 !  add RT
	PARAMETER SIOCDELRT = '8030720B'X	 !  delete RT
	PARAMETER SIOCGETRT = 'C030722B'X	 !  get RT
	PARAMETER SIOCSIFADDR = '8020690C'X	 !  set IF address
	PARAMETER SIOCGIFADDR = 'C020690D'X	 !  Get IF address
	PARAMETER SIOCSIFDSTADDR = '8020690E'X	 !  Destination addr
	PARAMETER SIOCGIFDSTADDR = 'C020690F'X	 !  BDestination addr
	PARAMETER SIOCSIFFLAGS = '80206910'X	 !  IF flags
	PARAMETER SIOCGIFFLAGS = 'C0206911'X	 !  IF flags
	PARAMETER SIOCGIFBRDADDR = 'C0206912'X	 !  Broadcast addr
	PARAMETER SIOCSIFBRDADDR = '80206913'X	 !  Broadcats addr
	PARAMETER SIOCGIFCONF = 'C0086914'X	 !  IF configuration
	PARAMETER SIOCGIFNETMASK = 'C0206915'X	 !  Network mask
	PARAMETER SIOCSIFNETMASK = '80206916'X	 !  Network mask
	PARAMETER SIOCDIFADDR = '80206919'X	 !  delete addr
	PARAMETER SIOCAIFADDR = '8040691A'X	 !  add/change alias addr
	PARAMETER SIOCSARP = '8024691E'X	 !  set ARP
	PARAMETER SIOCGARP = 'C024691F'X	 !  get ARP
	PARAMETER SIOCDARP = '80246920'X	 !  delete ARP
	PARAMETER SIOCARPREQ = 'C0246928'X	 !  ARP request
	PARAMETER SIOCENABLBACK = '80206921'X	 !  enable loopback
	PARAMETER SIOCDISABLBACK = '80206922'X	 !  disable loopback
	PARAMETER SIOCSTATE = 'C0166923'X	 !  state
	PARAMETER I_STR = '20005308'X
!DEC$ END OPTIONS
 
!*** MODULE $SOCKETOPTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! 
 !  Socket options data structure. 
 ! 
	PARAMETER TCPIP$W_OPTIONS = '00000000'X
	PARAMETER INET$W_OPTIONS = '00000000'X
	PARAMETER SOCKOPT$M_SO_DEBUG = '00000001'X
	PARAMETER SOCKOPT$M_ACCEPTCONN = '00000002'X
	PARAMETER SOCKOPT$M_REUSEADDR = '00000004'X
	PARAMETER SOCKOPT$M_KEEPALIVE = '00000008'X
	PARAMETER SOCKOPT$M_DONTROUTE = '00000010'X
	PARAMETER SOCKOPT$M_BROADCAST = '00000020'X
	PARAMETER SOCKOPT$M_USELOOPBACK = '00000040'X
	PARAMETER SOCKOPT$M_LINGER = '00000080'X
	PARAMETER SOCKOPT$M_OOBINLINE = '00000100'X
	PARAMETER SOCKOPT$M_REUSEPORT = '00000200'X
	PARAMETER SOCKOPT$M_DUMMYB_3 = '00000400'X
	PARAMETER SOCKOPT$M_DUMMYB_4 = '00000800'X
	PARAMETER SOCKOPT$M_DUMMYB_5 = '00001000'X
	PARAMETER SOCKOPT$M_FULL_DUPLEX_CLOSE = '00002000'X
	PARAMETER SOCKOPT$M_NO_RCV_CHKSUM = '00004000'X
	PARAMETER SOCKOPT$M_NO_SND_CHKSUM = '00008000'X
	PARAMETER SOCKOPT$M_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER SOCKOPT$C_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER TCPIP$M_SO_DEBUG = '00000001'X
	PARAMETER TCPIP$M_ACCEPTCONN = '00000002'X
	PARAMETER TCPIP$M_REUSEADDR = '00000004'X
	PARAMETER TCPIP$M_KEEPALIVE = '00000008'X
	PARAMETER TCPIP$M_DONTROUTE = '00000010'X
	PARAMETER TCPIP$M_BROADCAST = '00000020'X
	PARAMETER TCPIP$M_USELOOPBACK = '00000040'X
	PARAMETER TCPIP$M_LINGER = '00000080'X
	PARAMETER TCPIP$M_OOBINLINE = '00000100'X
	PARAMETER TCPIP$M_REUSEPORT = '00000200'X
	PARAMETER TCPIP$M_DUMMYB_3 = '00000400'X
	PARAMETER TCPIP$M_DUMMYB_4 = '00000800'X
	PARAMETER TCPIP$M_DUMMYB_5 = '00001000'X
	PARAMETER TCPIP$M_FULL_DUPLEX_CLOSE = '00002000'X
	PARAMETER TCPIP$M_NO_RCV_CHKSUM = '00004000'X
	PARAMETER TCPIP$M_NO_SND_CHKSUM = '00008000'X
	PARAMETER TCPIP$M_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER TCPIP$C_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER INET$M_SO_DEBUG = '00000001'X
	PARAMETER INET$M_ACCEPTCONN = '00000002'X
	PARAMETER INET$M_REUSEADDR = '00000004'X
	PARAMETER INET$M_KEEPALIVE = '00000008'X
	PARAMETER INET$M_DONTROUTE = '00000010'X
	PARAMETER INET$M_BROADCAST = '00000020'X
	PARAMETER INET$M_USELOOPBACK = '00000040'X
	PARAMETER INET$M_LINGER = '00000080'X
	PARAMETER INET$M_OOBINLINE = '00000100'X
	PARAMETER INET$M_REUSPORT = '00000200'X
	PARAMETER INET$M_DUMMYB_3 = '00000400'X
	PARAMETER INET$M_DUMMYB_4 = '00000800'X
	PARAMETER INET$M_DUMMYB_5 = '00001000'X
	PARAMETER INET$M_FULL_DUPLEX_CLOSE = '00002000'X
	PARAMETER INET$M_NO_RCV_CHKSUM = '00004000'X
	PARAMETER INET$M_NO_SND_CHKSUM = '00008000'X
	PARAMETER INET$M_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER INET$C_NO_CHKSUM = '0000C000'X  !  no checksum calculation
	PARAMETER SOCKOPT$C_SNDBUF = '00001001'X  !  send buffer size 
	PARAMETER SOCKOPT$C_RCVBUF = '00001002'X  !  receive buffer size 
	PARAMETER SOCKOPT$C_SNDLOWAT = '00001003'X  !  send low-water mark 
	PARAMETER SOCKOPT$C_RCVLOWAT = '00001004'X  !  receive low-water mark
	PARAMETER SOCKOPT$C_SNDTIMEO = '00001005'X  !  send timeout 
	PARAMETER SOCKOPT$C_RCVTIMEO = '00001006'X  !  receive timeout 
	PARAMETER SOCKOPT$C_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER SOCKOPT$C_TYPE = '00001008'X	 !  get socket type 
	PARAMETER SOCKOPT$C_SHARE = '00001009'X	 !  shared between processes
	PARAMETER SOCKOPT$C_CCL = '0000100A'X	 !  carriage control added
	PARAMETER SOCKOPT$C_STATE = '0000100B'X	 !  get socket state bits
	PARAMETER SOCKOPT$C_FAMILY = '0000100C'X  !  get socket address family
	PARAMETER SOCKOPT$C_XSE = '0000100D'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER SOCKOPT$M_SNDBUF = '00001001'X  !  send buffer size 
	PARAMETER SOCKOPT$M_RCVBUF = '00001002'X  !  receive buffer size 
	PARAMETER SOCKOPT$M_SNDLOWAT = '00001003'X  !  send low-water mark 
	PARAMETER SOCKOPT$M_RCVLOWAT = '00001004'X  !  receive low-water mark
	PARAMETER SOCKOPT$M_SNDTIMEO = '00001005'X  !  send timeout 
	PARAMETER SOCKOPT$M_RCVTIMEO = '00001006'X  !  receive timeout 
	PARAMETER SOCKOPT$M_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER SOCKOPT$M_TYPE = '00001008'X	 !  get socket type 
	PARAMETER SOCKOPT$M_STATE = '00001009'X	 !  get socket state bits
	PARAMETER SOCKOPT$M_FAMILY = '0000100A'X  !  get socket address family
	PARAMETER SOCKOPT$M_XSE = '0000100B'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER SOCKOPT$M_SHARE = '00001009'X	 !  shared between processes
	PARAMETER SOCKOPT$M_CCL = '0000100A'X	 !  carriage control added
	PARAMETER TCPIP$C_SNDBUF = '00001001'X	 !  send buffer size 
	PARAMETER TCPIP$C_RCVBUF = '00001002'X	 !  receive buffer size 
	PARAMETER TCPIP$C_SNDLOWAT = '00001003'X  !  send low-water mark 
	PARAMETER TCPIP$C_RCVLOWAT = '00001004'X  !  receive low-water mark
	PARAMETER TCPIP$C_SNDTIMEO = '00001005'X  !  send timeout 
	PARAMETER TCPIP$C_RCVTIMEO = '00001006'X  !  receive timeout 
	PARAMETER TCPIP$C_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER TCPIP$C_TYPE = '00001008'X	 !  get socket type 
	PARAMETER TCPIP$C_SHARE = '00001009'X	 !  shared between processes
	PARAMETER TCPIP$C_CCL = '0000100A'X	 !  carriage control added
	PARAMETER TCPIP$C_STATE = '0000100B'X	 !  get socket state bits
	PARAMETER TCPIP$C_FAMILY = '0000100C'X	 !  get socket address family
	PARAMETER TCPIP$C_XSE = '0000100D'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER TCPIP$M_SNDBUF = '00001001'X	 !  send buffer size 
	PARAMETER TCPIP$M_RCVBUF = '00001002'X	 !  receive buffer size 
	PARAMETER TCPIP$M_SNDLOWAT = '00001003'X  !  send low-water mark 
	PARAMETER TCPIP$M_RCVLOWAT = '00001004'X  !  receive low-water mark
	PARAMETER TCPIP$M_SNDTIMEO = '00001005'X  !  send timeout 
	PARAMETER TCPIP$M_RCVTIMEO = '00001006'X  !  receive timeout 
	PARAMETER TCPIP$M_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER TCPIP$M_TYPE = '00001008'X	 !  get socket type 
	PARAMETER TCPIP$M_SHARE = '00001009'X	 !  shared between processes
	PARAMETER TCPIP$M_CCL = '0000100A'X	 !  carriage control added
	PARAMETER TCPIP$M_STATE = '0000100B'X	 !  get socket state bits
	PARAMETER TCPIP$M_FAMILY = '0000100C'X	 !  get socket address family
	PARAMETER TCPIP$M_XSE = '0000100D'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER INET$C_SNDBUF = '00001001'X	 !  send buffer size 
	PARAMETER INET$C_RCVBUF = '00001002'X	 !  receive buffer size 
	PARAMETER INET$C_SNDLOWAT = '00001003'X	 !  send low-water mark 
	PARAMETER INET$C_RCVLOWAT = '00001004'X	 !  receive low-water mark
	PARAMETER INET$C_SNDTIMEO = '00001005'X	 !  send timeout 
	PARAMETER INET$C_RCVTIMEO = '00001006'X	 !  receive timeout 
	PARAMETER INET$C_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER INET$C_TYPE = '00001008'X	 !  get socket type 
	PARAMETER INET$C_SHARE = '00001009'X	 !  shared between processes
	PARAMETER INET$C_CCL = '0000100A'X	 !  carriage control added
	PARAMETER INET$C_STATE = '0000100B'X	 !  get socket state bits
	PARAMETER INET$C_FAMILY = '0000100C'X	 !  get socket address family
	PARAMETER INET$C_XSE = '0000100D'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER INET$M_SNDBUF = '00001001'X	 !  send buffer size 
	PARAMETER INET$M_RCVBUF = '00001002'X	 !  receive buffer size 
	PARAMETER INET$M_SNDLOWAT = '00001003'X	 !  send low-water mark 
	PARAMETER INET$M_RCVLOWAT = '00001004'X	 !  receive low-water mark
	PARAMETER INET$M_SNDTIMEO = '00001005'X	 !  send timeout 
	PARAMETER INET$M_RCVTIMEO = '00001006'X	 !  receive timeout 
	PARAMETER INET$M_ERROR = '00001007'X	 !  get error status and clear 
	PARAMETER INET$M_TYPE = '00001008'X	 !  get socket type 
	PARAMETER INET$M_SHARE = '00001009'X	 !  shared between processes
	PARAMETER INET$M_CCL = '0000100A'X	 !  carriage control added
	PARAMETER INET$M_STATE = '0000100B'X	 !  get socket state bits
	PARAMETER INET$M_FAMILY = '0000100C'X	 !  get socket address family
	PARAMETER INET$M_XSE = '0000100D'X	 !  _XOPEN_SOURCE_EXTENDED socket
	PARAMETER SOCKOPT$C_SO_DEBUG = '00000001'X  !  turn on event logging, not used
	PARAMETER SOCKOPT$C_ACCEPTCONN = '00000002'X  !  socket has had LISTEN
	PARAMETER SOCKOPT$C_REUSEADDR = '00000004'X  !  allow local address reuse
	PARAMETER SOCKOPT$C_KEEPALIVE = '00000008'X  !  keep connection alive
	PARAMETER SOCKOPT$C_DONTROUTE = '00000010'X  !  use only the interface addr
	PARAMETER SOCKOPT$C_BROADCAST = '00000020'X  !  allow broadcasting
	PARAMETER SOCKOPT$C_USELOOPBACK = '00000040'X  !  loopback interface, not used
	PARAMETER SOCKOPT$C_LINGER = '00000080'X  !  linger at close
	PARAMETER SOCKOPT$C_OOBINLINE = '00000100'X  !  leave received OOB data in line 
	PARAMETER SOCKOPT$C_REUSEPORT = '00000200'X  !  allow local address and port reuse
	PARAMETER SOCKOPT$C_FULL_DUPLEX_CLOSE = '00002000'X  !  full duplex close
	PARAMETER SOCKOPT$C_NO_RCV_CHKSUM = '00004000'X  !  no receive checksum calculation
	PARAMETER SOCKOPT$C_NO_SND_CHKSUM = '00008000'X  !  no send checksum calculation
	PARAMETER TCPIP$C_SO_DEBUG = '00000001'X  !  turn on event logging, not used
	PARAMETER TCPIP$C_ACCEPTCONN = '00000002'X  !  socket has had LISTEN
	PARAMETER TCPIP$C_REUSEADDR = '00000004'X  !  allow local address reuse
	PARAMETER TCPIP$C_KEEPALIVE = '00000008'X  !  keep connection alive
	PARAMETER TCPIP$C_DONTROUTE = '00000010'X  !  use only the interface addr
	PARAMETER TCPIP$C_BROADCAST = '00000020'X  !  allow broadcasting
	PARAMETER TCPIP$C_USELOOPBACK = '00000040'X  !  loopback interface, not used
	PARAMETER TCPIP$C_LINGER = '00000080'X	 !  linger at close
	PARAMETER TCPIP$C_OOBINLINE = '00000100'X  !  leave received OOB data in line 
	PARAMETER TCPIP$C_REUSEPORT = '00000200'X  !  allow local address and port reuse
	PARAMETER TCPIP$C_FULL_DUPLEX_CLOSE = '00002000'X  !  full duplex close
	PARAMETER TCPIP$C_NO_RCV_CHKSUM = '00004000'X  !  no receive checksum calculation
	PARAMETER TCPIP$C_NO_SND_CHKSUM = '00008000'X  !  no send checksum calculation
	PARAMETER INET$C_SO_DEBUG = '00000001'X	 !  turn on event logging, not used
	PARAMETER INET$C_ACCEPTCONN = '00000002'X  !  socket has had LISTEN
	PARAMETER INET$C_REUSEADDR = '00000004'X  !  allow local address reuse
	PARAMETER INET$C_KEEPALIVE = '00000008'X  !  keep connection alive
	PARAMETER INET$C_DONTROUTE = '00000010'X  !  use only the interface addr
	PARAMETER INET$C_BROADCAST = '00000020'X  !  allow broadcasting
	PARAMETER INET$C_USELOOPBACK = '00000040'X  !  loopback interface, not used
	PARAMETER INET$C_LINGER = '00000080'X	 !  linger at close
	PARAMETER INET$C_OOBINLINE = '00000100'X  !  leave received OOB data in line 
	PARAMETER INET$C_REUSEPORT = '00000200'X  !  allow local address and port reuse
	PARAMETER INET$C_FULL_DUPLEX_CLOSE = '00002000'X  !  full duplex close
	PARAMETER INET$C_NO_RCV_CHKSUM = '00004000'X  !  no receive checksum calculation
	PARAMETER INET$C_NO_SND_CHKSUM = '00008000'X  !  no send checksum calculation
	PARAMETER SOCKOPT$C_LENGTH = '00000002'X
	PARAMETER SOCKOPT$K_LENGTH = '00000002'X
 ! constant LENGTH equals . prefix TCPIP$ tag C;
	PARAMETER INET$C_LENGTH = '00000002'X
	PARAMETER INET$K_LENGTH = '00000002'X
	STRUCTURE /SOCKETOPTDEF/
	    UNION
	        MAP
	        INTEGER*2 SOCKOPT$W_OPTIONS		 !  Socket options, see socket.h 
	        END MAP
	        MAP
	        UNION
	            MAP
 ! 
 !  Socket options bits.
 ! 
	                PARAMETER SOCKOPT$S_SO_DEBUG = 1
	                PARAMETER SOCKOPT$V_SO_DEBUG = 0	 !  turn on event logging, not used
	                PARAMETER SOCKOPT$S_ACCEPTCONN = 1
	                PARAMETER SOCKOPT$V_ACCEPTCONN = 1	 !  socket has had LISTEN
	                PARAMETER SOCKOPT$S_REUSEADDR = 1
	                PARAMETER SOCKOPT$V_REUSEADDR = 2	 !  allow local address reuse
	                PARAMETER SOCKOPT$S_KEEPALIVE = 1
	                PARAMETER SOCKOPT$V_KEEPALIVE = 3	 !  keep connection alive
	                PARAMETER SOCKOPT$S_DONTROUTE = 1
	                PARAMETER SOCKOPT$V_DONTROUTE = 4	 !  use only the interface addr
	                PARAMETER SOCKOPT$S_BROADCAST = 1
	                PARAMETER SOCKOPT$V_BROADCAST = 5	 !  allow broadcasting
	                PARAMETER SOCKOPT$S_USELOOPBACK = 1
	                PARAMETER SOCKOPT$V_USELOOPBACK = 6	 !  loopback interface, not used
	                PARAMETER SOCKOPT$S_LINGER = 1
	                PARAMETER SOCKOPT$V_LINGER = 7		 !  linger at close
	                PARAMETER SOCKOPT$S_OOBINLINE = 1
	                PARAMETER SOCKOPT$V_OOBINLINE = 8	 !  leave received OOB data in line 
	                PARAMETER SOCKOPT$S_REUSEPORT = 1
	                PARAMETER SOCKOPT$V_REUSEPORT = 9	 !  allow local addr and port reuse 
 ! 
 ! 
 ! 
	                PARAMETER SOCKOPT$S_FULL_DUPLEX_CLOSE = 1
	                PARAMETER SOCKOPT$V_FULL_DUPLEX_CLOSE = 13  !  full duplex close
	                PARAMETER SOCKOPT$S_NO_RCV_CHKSUM = 1
	                PARAMETER SOCKOPT$V_NO_RCV_CHKSUM = 14	 !  no receive checksum calculation
	                PARAMETER SOCKOPT$S_NO_SND_CHKSUM = 1
	                PARAMETER SOCKOPT$V_NO_SND_CHKSUM = 15
	                BYTE %FILL (2)				 !  no send checksum calculation
	            END MAP
	            MAP
 ! 
 !  Socket options bits.
 ! 
	                PARAMETER TCPIP$S_SO_DEBUG = 1
	                PARAMETER TCPIP$V_SO_DEBUG = 0		 !  turn on event logging, not used
	                PARAMETER TCPIP$S_ACCEPTCONN = 1
	                PARAMETER TCPIP$V_ACCEPTCONN = 1	 !  socket has had LISTEN
	                PARAMETER TCPIP$S_REUSEADDR = 1
	                PARAMETER TCPIP$V_REUSEADDR = 2		 !  allow local address reuse
	                PARAMETER TCPIP$S_KEEPALIVE = 1
	                PARAMETER TCPIP$V_KEEPALIVE = 3		 !  keep connection alive
	                PARAMETER TCPIP$S_DONTROUTE = 1
	                PARAMETER TCPIP$V_DONTROUTE = 4		 !  use only the interface addr
	                PARAMETER TCPIP$S_BROADCAST = 1
	                PARAMETER TCPIP$V_BROADCAST = 5		 !  allow broadcasting
	                PARAMETER TCPIP$S_USELOOPBACK = 1
	                PARAMETER TCPIP$V_USELOOPBACK = 6	 !  loopback interface, not used
	                PARAMETER TCPIP$S_LINGER = 1
	                PARAMETER TCPIP$V_LINGER = 7		 !  linger at close
	                PARAMETER TCPIP$S_OOBINLINE = 1
	                PARAMETER TCPIP$V_OOBINLINE = 8		 !  leave received OOB data in line 
	                PARAMETER TCPIP$S_REUSEPORT = 1
	                PARAMETER TCPIP$V_REUSEPORT = 9		 !  allow local address and port reuse
 ! 
 ! 
 ! 
	                PARAMETER TCPIP$S_FULL_DUPLEX_CLOSE = 1
	                PARAMETER TCPIP$V_FULL_DUPLEX_CLOSE = 13  !  full duplex close
	                PARAMETER TCPIP$S_NO_RCV_CHKSUM = 1
	                PARAMETER TCPIP$V_NO_RCV_CHKSUM = 14	 !  no receive checksum calculation
	                PARAMETER TCPIP$S_NO_SND_CHKSUM = 1
	                PARAMETER TCPIP$V_NO_SND_CHKSUM = 15
	                BYTE %FILL (2)				 !  no send checksum calculation
	            END MAP
	            MAP
 ! 
 !  Socket options bits.
 ! 
	                PARAMETER INET$S_SO_DEBUG = 1
	                PARAMETER INET$V_SO_DEBUG = 0		 !  turn on event logging, not used
	                PARAMETER INET$S_ACCEPTCONN = 1
	                PARAMETER INET$V_ACCEPTCONN = 1		 !  socket has had LISTEN
	                PARAMETER INET$S_REUSEADDR = 1
	                PARAMETER INET$V_REUSEADDR = 2		 !  allow local address reuse
	                PARAMETER INET$S_KEEPALIVE = 1
	                PARAMETER INET$V_KEEPALIVE = 3		 !  keep connection alive
	                PARAMETER INET$S_DONTROUTE = 1
	                PARAMETER INET$V_DONTROUTE = 4		 !  use only the interface addr
	                PARAMETER INET$S_BROADCAST = 1
	                PARAMETER INET$V_BROADCAST = 5		 !  allow broadcasting
	                PARAMETER INET$S_USELOOPBACK = 1
	                PARAMETER INET$V_USELOOPBACK = 6	 !  loopback interface, not used
	                PARAMETER INET$S_LINGER = 1
	                PARAMETER INET$V_LINGER = 7		 !  linger at close
	                PARAMETER INET$S_OOBINLINE = 1
	                PARAMETER INET$V_OOBINLINE = 8		 !  leave received OOB data in line 
	                PARAMETER INET$S_REUSPORT = 1
	                PARAMETER INET$V_REUSPORT = 9		 !  allow local address and port reuse
 ! 
 ! 
 ! 
	                PARAMETER INET$S_FULL_DUPLEX_CLOSE = 1
	                PARAMETER INET$V_FULL_DUPLEX_CLOSE = 13	 !  full duplex close
	                PARAMETER INET$S_NO_RCV_CHKSUM = 1
	                PARAMETER INET$V_NO_RCV_CHKSUM = 14	 !  no receive checksum calculation
	                PARAMETER INET$S_NO_SND_CHKSUM = 1
	                PARAMETER INET$V_NO_SND_CHKSUM = 15
	                BYTE %FILL (2)				 !  no send checksum calculation
	            END MAP
	        END UNION
	        END MAP
	    END UNION
 ! 
 !  Additional options, not kept in so_options.
 ! 
 ! constant LENGTH equals . prefix TCPIP$ tag K;
	END STRUCTURE	! SOCKETOPTDEF
!DEC$ END OPTIONS
 
!*** MODULE $SOCKADDRDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER AF_UNSPEC = '00000000'X	 !  unspecified socket family
	PARAMETER AF_INET = '00000002'X		 !  INET socket family
	PARAMETER SA$C_LENGTH = '00000010'X
	PARAMETER SA$K_LENGTH = '00000010'X
	STRUCTURE /SOCKADDR/
	    UNION
	        MAP
	        INTEGER*2 SA$W_FAMILY			 !  address family
	        END MAP
	        MAP
	            BYTE      SA$B_LEN
	            BYTE      SA$B_FAMILY
	        END MAP
	    END UNION
	    CHARACTER*14 SA$T_DATA			 !  up to 14 bytes of address
	END STRUCTURE	! SOCKADDR
!DEC$ END OPTIONS
 
!*** MODULE $SOCKADDRINDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER SIN$C_LENGTH = '00000010'X
	PARAMETER SIN$K_LENGTH = '00000010'X
	STRUCTURE /SOCKADDRIN/
	    INTEGER*2 SIN$W_FAMILY			 !  address family
	    INTEGER*2 SIN$W_PORT			 !  2 bytes specifying a port
	    INTEGER*4 SIN$L_ADDR			 !  4 bytes specifying an IP address
	    CHARACTER*8 SIN$T_ZERO			 !  8 bytes 
	END STRUCTURE	! SOCKADDRIN
	PARAMETER SIN44$C_LENGTH = '00000010'X
	PARAMETER SIN44$K_LENGTH = '00000010'X
	STRUCTURE /SOCKADDRIN44/
	    BYTE      SIN44$B_LEN
	    BYTE      SIN44$B_FAMILY
	    INTEGER*2 SIN44$W_PORT			 !  2 bytes specifying a port
	    INTEGER*4 SIN44$L_ADDR			 !  4 bytes specifying an IP address
	    CHARACTER*8 SIN44$T_ZERO		 !  8 bytes 
	END STRUCTURE	! SOCKADDRIN44
	PARAMETER SIN6$K_LENGTH = '0000001C'X	 !  Structure size 
	PARAMETER SIN6$C_LENGTH = '0000001C'X	 !  Structure size 
	STRUCTURE /SOCKADDRIN6/
	    BYTE      SIN6$B_LEN			 !  length of this struct
	    BYTE      SIN6$B_FAMILY			 !  AF_INET6
	    INTEGER*2 SIN6$W_PORT			 !  Transport layer port #
	    INTEGER*4 SIN6$L_FLOWLABEL		 !  IPv6 flow information
	    UNION
	        MAP
	        CHARACTER*16 SIN6$T_ADDR
	        END MAP
	        MAP
	        BYTE      SIN6$B_SA6_ADDR(1:16)
	        END MAP
	        MAP
	        INTEGER*2 SIN6$W_SA6_WADDR(1:8)
	        END MAP
	        MAP
	        INTEGER*4 SIN6$L_SA6_LADDR(1:4)
	        END MAP
	        MAP
	        INTEGER*4 SIN6$Q_SA6_QADDR(2,1:2)
	        END MAP
	    END UNION
	    INTEGER*4 SIN6$L_SCOPE_ID		 !  set of interfaces for a scope 
	END STRUCTURE	! SOCKADDRIN6
!DEC$ END OPTIONS
 
!*** MODULE $INETACPSYMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define ACP HOST/NET data base subroutine calls subfunction codes 
 ! 
 ! -
	PARAMETER INETACP$C_ALIASES = '00000001'X  !  aliases
	PARAMETER INETACP$C_TRANS = '00000002'X	 !  translate ASCII string in binary
	PARAMETER INETACP$C_HOSTENT = '00000003'X  !  get back a HOSTENT
	PARAMETER INETACP$C_NETENT = '00000004'X  !  get back a NETENT
	PARAMETER INETACP$C_HOSTENT_OFFSET = '00000005'X  !  get back a HOSTENT
	PARAMETER INETACP$C_NETENT_OFFSET = '00000006'X  !  get back a NETENT
	PARAMETER INETACPC$C_ALIASES = '00000001'X  !  aliases
	PARAMETER INETACPC$C_TRANS = '00000002'X  !  translate ASCII string in binary
	PARAMETER INETACPC$C_HOSTENT = '00000003'X  !  get back a HOSTENT
	PARAMETER INETACPC$C_NETENT = '00000004'X  !  get back a NETENT
	PARAMETER INETACPC$C_HOSTENT_OFFSET = '00000005'X  !  get back a HOSTENT
	PARAMETER INETACPC$C_NETENT_OFFSET = '00000006'X  !  get back a NETENT
!DEC$ END OPTIONS
 
!*** MODULE $INETACPFSYMDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
 ! +
 !  Define ACP control subfunction codes 
 ! 
 ! -
	PARAMETER INETACP_FUNC$C_GETHOSTBYNAME = '00000001'X  !  Subroutine call of GET_HOST_BY_NAME
	PARAMETER INETACP_FUNC$C_GETHOSTBYADDR = '00000002'X  !  Subroutine call of GET_HOST_BY_ADDR
	PARAMETER INETACP_FUNC$C_GETNETBYNAME = '00000003'X  !  Subroutine call of GET_NET_BY_NAME
	PARAMETER INETACP_FUNC$C_GETNETBYADDR = '00000004'X  !  Subroutine call of GET_NET_BY_ADDR 
 ! 
!DEC$ END OPTIONS
 
!*** MODULE $NETENTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER NET$C_LENGTH = '00000010'X	 ! 
	PARAMETER NET$K_LENGTH = '00000010'X	 ! 
	STRUCTURE /NETENTDEF/
	    INTEGER*4 NET$L_N_NAME			 !  pointer to the network name
	    INTEGER*4 NET$L_N_ALIASES		 !  pointer to array of pointers to aliases
	    INTEGER*4 NET$L_N_ADDRTYPE		 !  Network address type 
	    INTEGER*4 NET$L_N_NET			 !  Network address 
	END STRUCTURE	! NETENTDEF
 ! 
 !  Structures returned by network
 !  data base library.  All addresses
 !  are supplied in host order, and
 !  returned in network order (suitable
 !  for use in system calls).
 ! 
!DEC$ END OPTIONS
 
!*** MODULE $HOSTENTDEF ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
	PARAMETER HOST$L_H_ADDR = '00000010'X	 ! 
	PARAMETER HOST$C_LENGTH = '00000014'X	 ! 
	PARAMETER HOST$K_LENGTH = '00000014'X	 ! 
	STRUCTURE /HOSTENTDEF/
	    INTEGER*4 HOST$L_H_NAME			 !  pointer to the host name
	    INTEGER*4 HOST$L_H_ALIASES		 !  pointer to array of pointers to aliases
	    INTEGER*4 HOST$L_H_ADDRTYPE		 !  Host address type 
	    INTEGER*4 HOST$L_H_LENGTH		 !  Length of address 
	    INTEGER*4 HOST$L_H_ADDR_LIST		 !  Pointer to array of pointers to addresses
	END STRUCTURE	! HOSTENTDEF
!DEC$ END OPTIONS
 
!*** MODULE $$END ***
!DEC$ OPTIONS/ALIGN=(RECORDS=PACKED,COMMONS=PACKED)/NOWARN
!DEC$ END OPTIONS