  TYPE
     dst$dft_pp_registers = record
        p_register: 0 .. 0ffffffff(16),
        q_register: 0 .. 0ffffffff(16),
        k_register: 0 .. 0ffffffff(16),
        a_register: 0 .. 0ffffffff(16),
       recend;
