
  PROCEDURE [INLINE] nlp$bm_get_message_resources
    (    message_id: nlt$bm_message_id;
     VAR message_length: integer;
     VAR number_of_buffers: integer);

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

    VAR
      descriptor: ^nlt$bm_message_descriptor;

    IF nlp$bm_valid_message_id (message_id) THEN
      message_length := 0;
      number_of_buffers := 0;
      IF message_id <> nlv$bm_null_message_id THEN
        descriptor := message_id.descriptor;
        REPEAT
          message_length := message_length + descriptor^.container_length - descriptor^.data_start;
          number_of_buffers := number_of_buffers + 1;
          descriptor := descriptor^.link;
        UNTIL descriptor = NIL;
      IFEND;
    ELSE { Invalid message_id.
      nap$namve_system_error (FALSE, nlv$bm_buffer_manager_caller, NIL);
    IFEND;
  PROCEND nlp$bm_get_message_resources;

*copyc nlh$bm_get_message_resources

*copyc nlt$bm_message_id
*copyc nap$namve_system_error
*copyc nlp$bm_valid_message_id
*copyc nlv$bm_buffer_manager_caller
*copyc nlv$bm_null_message_id
?? POP ??
