  PROCEDURE [XREF] nfp$initialize_control_block
    (    application: nft$application_values;
         data_declaration: nft$parameter_31_type;
         requested_facilities: nft$parameter_03_value_set;
         required_facilities: nft$parameter_03_value_set;
         allowed_facilities: nft$parameter_03_value_set;
         initial_protocol: nft$parameter_00_values;
         mode_of_access: nft$mode_of_access;
         parameter_rules: ^nft$parameter_rules_array;
     VAR control_block: nft$control_block);

{}
?? PUSH (LISTEXT := ON) ??
*copyc nft$application_values
*copyc nft$transfer_declarations
*copyc nft$parameter_31_type
*copyc nft$parameter_03_value_set
*copyc nft$parameter_00_values
*copyc nft$mode_of_access
*copyc nft$parameter_rules_array
*copyc nft$control_block
?? POP ??
