
  TYPE
    amt$compression_procedure = ^procedure
           (    effect: amt$compression_effect;
                input_working_storage_area: ^cell;
                input_working_storage_length: amt$max_record_length;
                output_working_storage_area: ^cell;
            VAR output_working_storage_length: amt$max_record_length;
            VAR record_left_uncompressed: boolean;
            VAR status: ost$status);

*copyc amt$compression_effect
*copyc amt$max_record_length
*copyc ost$status
