
  PROCEDURE [XREF] dfp$file_server_allocation
    (    sfid: gft$system_file_identifier;
         segment_offset: ost$segment_offset;
         segment_length: ost$segment_length;
         io_id: mmt$io_identifier;
         buffer_descriptor: mmt$buffer_descriptor;
         file_limit: sft$file_space_limit_kind;
     VAR spio_status: syt$monitor_status);

?? PUSH (LISTEXT := ON) ??
*copyc gft$system_file_identifier
*copyc mmt$buffer_descriptor
*copyc mmt$io_identifier
*copyc osd$virtual_address
*copyc sft$file_space_limit_kind
*copyc syt$monitor_request_code
?? POP ??
