
  TYPE
    amt$transfer_count = amt$working_storage_length;

*copyc amt$working_storage_length
