
  PROCEDURE [XREF] nfp$send_file (
        connection_fid: amt$file_identifier;
        file_name: amt$local_file_name;
        facilities: nft$facility_group;
        transfer_mode: nft$transfer_modes;
        block_size: nft$block_size;
        min_timeout: nft$timeout;
        protocol_version: nft$parameter_00_values;
        network_type: nft$network_type;
        validation_ring: ost$ring;
        activate_protocol_trace: boolean;
    VAR file_size: amt$file_length;
    VAR protocol_state_consistent: boolean;
    VAR transfer_status: ost$status;
    VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc amt$file_identifier
*copyc amt$file_length
*copyc amt$local_file_name
*copyc nft$network_type
*copyc nft$parameter_00_values
*copyc nft$transfer_declarations
*copyc nft$transfer_modes
*copyc osd$virtual_address
*copyc ost$status
?? POP ??
