
  PROCEDURE [XREF] nlp$register_title
    (    title: string ( * <= nac$max_title_length);
         osi_address: nat$osi_registration_address;
         protocol: nat$protocol;
         user_information: ^cell;
         user_information_length: 0 .. nac$max_directory_data_length;
         priority: nat$directory_priority;
         domain: nat$title_domain;
         distribute: boolean;
         class: nat$title_class;
         password: nat$directory_password;
     VAR user_identifier: ost$name;
     VAR identifier: nat$directory_entry_identifier;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nat$directory_data
*copyc nat$directory_entry_identifier
*copyc nat$directory_interfaces
*copyc nat$directory_priority
*copyc nat$protocol
*copyc nat$title
*copyc ost$name
*copyc ost$status
?? POP ??
