
  CONST
    msc$maximum_memory_error_count = 1000,
    msc$memory_cel_entry_count = 10;

  TYPE
    mst$cel_type = (msc$m1_cel, msc$m2_cel, msc$m3_cel, msc$mtheta_cel,
      msc$p1_cel, msc$p2_cel, msc$p3_cel, msc$ptheta_cel),

    mst$memory_cel = record
      unlogged_entries: boolean,
      port_number: 0 .. 0f(16),
      syndrome_code: 0 .. 0ff(16),
      address_and_parity: 0 .. 7ffffff(16),
      count: 0 .. msc$maximum_memory_error_count,
    recend,

    mst$corrected_error_log_buffer = record
      case log_type: mst$cel_type of
      = msc$m1_cel .. msc$mtheta_cel =
        memory_cel: array [1 .. msc$memory_cel_entry_count] of mst$memory_cel,
      = msc$p1_cel .. msc$ptheta_cel =
{To be defined jointly by AHPD and CDED}
        processor_cel: array [0 .. 0ff(16)] of cell,
      casend,
    recend;
