
  TYPE
    amt$fap_pointer = ^procedure (    file_identifier: amt$file_identifier;
                                      call_block: amt$call_block;
                                      layer_number: amt$fap_layer_number;
                                  VAR status: ost$status);

*copyc amt$call_block
*copyc amt$fap_layer_number
*copyc amt$file_identifier
*copyc ost$status


