
  FUNCTION [INLINE] nlp$bm_valid_message_id
    (    message_id: nlt$bm_message_id): boolean;

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
    IF (message_id.descriptor <> NIL) THEN
      nlp$bm_valid_message_id := (message_id.descriptor^.sequence_number = message_id.sequence_number);
    ELSE
      nlp$bm_valid_message_id := message_id = nlv$bm_null_message_id;
    IFEND;
  FUNCEND nlp$bm_valid_message_id;

*copyc nlh$bm_valid_message_id

*copyc nlt$bm_message_id
*copyc nlv$bm_null_message_id
?? POP ??
