
  PROCEDURE [INLINE] nlp$get_layer_protocol_header
    (    protocol_header: ^cell;
         protocol_header_length: nat$data_length;
     VAR message_header {INPUT, OUTPUT} : ^cell;
     VAR message_header_length {INPUT, OUTPUT} : nat$data_length);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
*copy nlh$get_layer_protocol_header

{   IF (protocol_header_length > message_header_length) THEN
{     osp$system_error ('GET LAYER PROTOCOL HEADER', NIL);
{   IFEND;

    i#move (message_header, protocol_header, protocol_header_length);
    message_header_length := message_header_length - protocol_header_length;
    IF (message_header_length > 0) THEN
      message_header := #ADDRESS (1, #SEGMENT (#LOC (message_header^)),
            (#OFFSET (#LOC (message_header^)) + protocol_header_length));
    ELSE
      message_header := NIL;
    IFEND;
  PROCEND nlp$get_layer_protocol_header;
*copyc nat$data_length
{*copyc OSP$SYSTEM_ERROR
*copyc i#move
?? POP ??
