
  PROCEDURE [INLINE] nap$move_user_data_to_data_area
    (    user_data_area: ^SEQ ( * );
     VAR data_area: ^SEQ ( * ));

?? PUSH (LISTEXT := ON) ??
    IF user_data_area <> NIL THEN
      IF ((data_area <> NIL) AND (#SIZE (data_area^) <>
            #SIZE (user_data_area^))) THEN
        FREE data_area IN nav$network_paged_heap^;
      IFEND;
      IF data_area = NIL THEN
        REPEAT
          ALLOCATE data_area: [[REP #SIZE (user_data_area^) OF cell]] IN
                nav$network_paged_heap^;
          IF data_area = NIL THEN
            syp$cycle;
          IFEND;
        UNTIL data_area <> NIL;
      IFEND;
      data_area^ := user_data_area^;
    ELSE
      IF data_area <> NIL THEN
        FREE data_area IN nav$network_paged_heap^;
      IFEND;
    IFEND;

  PROCEND nap$move_user_data_to_data_area;

*copyc ost$status
*copyc syp$cycle
?? POP ??

