
  PROCEDURE [INLINE] nlp$bm_get_message_header
    (    message: nlt$bm_message_id;
         number_of_bytes: nat$data_length;
     VAR header: ^SEQ ( * ));

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

    VAR
      length: nat$data_length;

    length := number_of_bytes;
    IF length > (message.descriptor^.container_length -
          message.descriptor^.data_start) THEN
      length := message.descriptor^.container_length -
            message.descriptor^.data_start;
    IFEND;
    i#build_adaptable_seq_pointer (1, #SEGMENT (message.descriptor^.container),
          #OFFSET (message.descriptor^.container) +
          message.descriptor^.data_start, length, 0, header);
  PROCEND nlp$bm_get_message_header;

*copyc nlh$bm_get_message_header

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