
  PROCEDURE [XREF] pup$get_part
    (VAR backup_file_id: put$file_identifier;
         wsa: ^cell;
         working_storage_length: amt$working_storage_length;
     VAR file_position: put$file_position;
     VAR transfer_count: amt$file_length;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_length
*copyc amt$working_storage_length
*copyc ost$status
*copyc put$file_identifier
*copyc put$file_position
?? POP ??
