FUNCTION adr_to_index(a: std_logic_vector; base: std_logic_vector; o_size: integer) RETURN natural IS
        VARIABLE idx: natural;
BEGIN
        idx := to_integer(base) - to_integer(a) / o_size;
        return idx;
END FUNCTION;