3 type Four_Bits is mod 2 ** 4;
14 F3 at 0 range 8 .. 11;
15 F4 at 0 range 12 .. 15;
31 F3 at 0 range 8 .. 11;
32 F4 at 0 range 12 .. 15;
33 F5 at 0 range 16 .. 19;
34 F6 at 0 range 20 .. 23;
35 F7 at 0 range 24 .. 27;
36 F8 at 0 range 28 .. 31;
39 C_16 : constant R16 := (2, 3, 5, 7);
40 C_32 : constant R32 := (1, 1, 2, 3, 5, 8, 13, 5);