?? LEFT := 1, RIGHT := 110 ??

  CONST
    nlc$cl_path_locked = 'LOCKED  ',
    nlc$cl_path_unlocked = 'UNLOCKED';


  TYPE
    nlt$cl_connection_layer_templat = record
      initialization_lock: ALIGNED [0 MOD 8] string (8),
      path_header_size: nat$data_length,
      path: array [nlt$cl_layer_name] of boolean,
      sap: array [nlt$cl_layer_name] of nlt$cl_sap_template,
      connection: array [nlt$cl_layer_name] of nlt$cl_connection_template,
    recend,

    nlt$cl_sap_template = record
      event_processor: nlt$cl_event_processor,
      timer_evaluator: nat$network_procedure,
    recend,

    nlt$cl_connection_template = record
      description_offset: nlt$cl_layer_connection_size,
      description_size: nlt$cl_layer_connection_size,
      maximum_protocol_header_size: nat$data_length,
      event_processor: nlt$cl_event_processor,
      timer_evaluator: nat$network_procedure,
    recend,

    nlt$cl_layer_connection_size = 1 .. 0ffffffff(16),

    nlt$cl_event_processor = record
      CASE layer: nlt$cl_layer_name OF
      = nlc$xns_session_layer =
        se: nat$network_procedure,
      = nlc$channel_connection_layer =
        cc: nat$network_procedure,
      = nlc$osi_transport_access_agent =
        ta: nat$network_procedure,
      = nlc$tcp_access_agent =
        tcpaa: nat$network_procedure,
      CASEND,
    recend,

    nlt$cl_evaluate_sap_timer = ^procedure (current_time: integer),
    nlt$cl_evaluat_connection_timer = ^procedure (current_time: integer;
      cl_connection: ^nlt$cl_connection);

*copyc nlt$cl_layer_name
?? PUSH (LISTEXT := ON) ??
*copyc nlt$cl_connection
*copyc nlt$sl_event_processor
*copyc nat$data_fragments
*copyc nat$network_procedure
?? POP ??
