  PROCEDURE [XREF] nfp$crack_file_assignment_msg
    (VAR message: ^nft$message_sequence;
     VAR message_length: integer;
     VAR station: ost$name;
     VAR device: ost$name;
     VAR device_type: nft$device_type;
     VAR device_attributes: nft$device_attributes;
     VAR btfs_address: nft$network_address;
     VAR btfs_di_title: nft$btfs_di_title;
     VAR file_name: jmt$system_supplied_name;
     VAR descriptor: nft$application_file_descriptor;
     VAR remote_system_protocol: nft$ntf_remote_system_protocol;
     VAR remote_system_type: nft$ntf_remote_system_type;
     VAR route_back_position: nft$ntf_route_back_position;
     VAR last_parameter_sent: nft$file_assignment_params;
     VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc nft$application_file_descriptor
*copyc nft$btfs_di_title
*copyc nft$device_type
*copyc nft$device_attributes
*copyc nft$file_assignment_msg
*copyc nft$message_sequence
*copyc nft$network_address
*copyc nft$ntf_remote_system_protocol
*copyc nft$ntf_remote_system_type
*copyc nft$ntf_route_back_position
*copyc ost$status
?? POP ??
