
  PROCEDURE [INLINE] nlp$cc_get_device_specific_attr
    (    device_id: nlt$device_identifier;
         connection: ^nlt$cc_connection;
     VAR main_connection: boolean;
     VAR device_specific_attributes: ^nlt$cc_device_specific_attr);

?? PUSH (LISTEXT := ON) ??
*copy nlh$cc_get_device_specific_attr

    VAR
      i: integer;

    IF device_id = connection^.device_specific_attributes.device_id THEN
      main_connection := TRUE;
      device_specific_attributes := ^connection^.device_specific_attributes;
    ELSE
      main_connection := FALSE;
      i := 1;
      WHILE device_id <> connection^.sub_connections^ [i].device_id DO
        i := i + 1;
      WHILEND;
      device_specific_attributes := ^connection^.sub_connections^ [i];
    IFEND;

  PROCEND nlp$cc_get_device_specific_attr;

*copyc nlt$cc_connection
*copyc nlt$device_identifier
?? POP ??

