
  TYPE
    cmt$peripheral_element_table = record
      lock: ost$signature_lock,
      pointer: ^array [1 .. * ] of cmt$peripheral_element_entry,
    recend;

*copyc cmt$peripheral_element_entry
*copyc ost$signature_lock

