
  TYPE
    nlt$udp_global_sockets = record
      socket_seed: ALIGNED [0 MOD 8] integer,
      active: ALIGNED [0 MOD 8] integer,
      list: ^array [0 .. * ] of nlt$udp_global_socket_root,
    recend,

    nlt$udp_global_sckts_per_system = 2 .. 65536,

    nlt$udp_global_socket_root = record
      access_control: ALIGNED [0 MOD 8] nlt$udp_global_sckt_root_access,
      first: ^nlt$udp_global_socket,
    recend,

    nlt$udp_global_sckt_root_access = record
      nonexclusive_accessors: 0 .. 0ffffffff(16),
      exclusive: boolean,
      fill: 0 .. 0ffffff(16),
    recend;

  TYPE
    nlt$udp_global_sockets_control = record
      lock: ALIGNED [0 MOD 8] string (8),
    recend;

  CONST
    nlc$udp_global_sockets_locked = 'LOCKED  ',
    nlc$udp_global_sockets_unlocked = 'UNLOCKED';

*copyc nlt$udp_global_socket
