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;