function V6MIN (AIN,BIN: std_logic_vector (5 downto 0)) return boolean is
variable result : boolean := False;
begin
        bits : for I in AIN'high downto AIN'low loop
                if(AIN(I) < BIN(I)) then
                        result := True;
                        exit bits;
                elsif(AIN(I) > BIN(I)) then
                        result := False;
                        exit bits;
                end if;
        end loop bits;
        return (result);
end V6MIN;

function V5SAME (AIN,BIN: std_logic_vector (4 downto 0)) return boolean is
variable result : boolean := TRUE;
begin
        bits : for I in AIN'high downto AIN'low loop
                if(AIN(I) /= BIN(I)) then
                        result := FALSE;
                        exit bits;
                end if;
        end loop bits;
        return (result);
end V5SAME;