
  TYPE
    amt$hashing_procedure = ^procedure (    old_key: ^cell;
                                            key_length: amt$key_length;
                                        VAR hashed_key: integer;
                                        VAR status: ost$status);

*copyc amt$key_length
*copyc ost$status
