
  TYPE
    nlt$cl_connections = record
      cid_seed: ALIGNED [0 MOD 8] integer,
      active: ALIGNED [0 MOD 8] integer,
      list: ^array [0 .. * ] of nlt$cl_connection_root,
    recend,

    nlt$cl_connections_per_system = 2 .. 65536,

    nlt$cl_connection_root = record
      access_control: ALIGNED [0 MOD 8] nlt$cl_connection_root_access,
      first: ^nlt$cl_connection,
    recend,

    nlt$cl_connection_root_access = record
      case boolean of
      = FALSE =
        nonexclusive_accessors: 0 .. 0ffffffff(16),
        exclusive: boolean,
        fill: 0 .. 0ffffff(16),
      = TRUE =
        value: integer,
      casend,
    recend;

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

  CONST
    nlc$cl_connections_locked = 'LOCKED  ',
    nlc$cl_connections_unlocked = 'UNLOCKED';

*copyc nlt$cl_connection
