
  PROCEDURE [INLINE] nlp$bm_get_message_contents
    (    received_message: ^nlt$bm_message_descriptor;
         number_of_bytes: nat$data_length;
     VAR contents: ^SEQ ( * ));

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??

    VAR
      length: nat$data_length;

    length := number_of_bytes;
    IF length > (received_message^.container_length - received_message^.data_start) THEN
      length := received_message^.container_length - received_message^.data_start;
    IFEND;
    i#build_adaptable_seq_pointer (1, #SEGMENT (received_message^.container),
          #OFFSET (received_message^.container) + received_message^.data_start, length, 0, contents);

  PROCEND nlp$bm_get_message_contents;

*copyc nlh$bm_get_message_contents

*copyc nat$data_length
*copyc nlt$bm_message_descriptor
*copyc i#build_adaptable_seq_pointer
?? POP ??
