 TYPE
    cmt$pp_registers = record
      a_register: integer,
      k_register: integer,
      p_register: integer,
      q_register: integer,
    recend;
