
  PROCEDURE [INLINE] nap$move_data_to_user_data_area
    (VAR data_area: ^SEQ ( * );
     VAR user_data_area: ^SEQ ( * );
     VAR data_length: nat$data_length;
     VAR status_normal: boolean);

?? PUSH (LISTEXT := ON) ??
    status_normal := TRUE;
    IF data_area <> NIL THEN
      IF ((user_data_area <> NIL) AND (#SIZE (user_data_area^) >=
            #SIZE (data_area^))) THEN
        i#move (data_area, user_data_area, #SIZE (data_area^));
        data_length := #SIZE (data_area^);
      ELSE
        status_normal := FALSE;
      IFEND;
    ELSE
      data_length := 0;
    IFEND;

  PROCEND nap$move_data_to_user_data_area;

*copyc i#move
*copyc nat$data_fragments
?? POP ??
