a2d(digitaldeng)bufen.txt.bak

ad取样

	if val(3 downto 0)>"1001" then
		val(3 downto 0)<=val(3 downto 0)-"1010";
		if val(7 downto 4)>"1000" then
			val(7 downto 4)<=val(7 downto 4)-"1010";			
			val(7 downto 4)<=val(7 downto 4)+1;
			if 	val(11 downto 8)>"1000"	then
				val(11 downto 8)<=val(11 downto 8)-"1010";			
				val(11 downto 8)<=val(11 downto 8)+1;
				if 	val(15 downto 12)>"1000"	then
					val(15 downto 12)<=val(15 downto 12)-"1010";			
					val(15 downto 12)<=val(15 downto 12)+1;				
					val(19 downto 16)<=val(19 downto 16)+1;
				else
					val(15 downto 12)<=val(15 downto 12)+1;		
				end if;
			else
				val(11 downto 8)<=val(11 downto 8)+1;
					if 	val(15 downto 12)>"1001"	then
						val(15 downto 12)<=val(15 downto 12)-"1010";			
						val(15 downto 12)<=val(15 downto 12)+1;				
						val(19 downto 16)<=val(19 downto 16)+1;
					else
						val(15 downto 12)<=val(15 downto 12)+1;		
					end if;		
			end if;
			
		else
			val(7 downto 4)<=val(7 downto 4)+1;
			if 	val(11 downto 8)>"1001"	then
				val(11 downto 8)<=val(11 downto 8)-"1010";			
				val(11 downto 8)<=val(11 downto 8)+1;
				if 	val(15 downto 12)>"1000"	then
					val(15 downto 12)<=val(15 downto 12)-"1010";			
					val(15 downto 12)<=val(15 downto 12)+1;				
					val(19 downto 16)<=val(19 downto 16)+1;
				else
					val(15 downto 12)<=val(15 downto 12)+1;		
				end if;
			else
				val(11 downto 8)<=val(11 downto 8)+1;
					if 	val(15 downto 12)>"1001"	then
						val(15 downto 12)<=val(15 downto 12)-"1010";			
						val(15 downto 12)<=val(15 downto 12)+1;				
						val(19 downto 16)<=val(19 downto 16)+1;
					else
						val(15 downto 12)<=val(15 downto 12)+1;		
					end if;		
			end if;
	else
				if val(7 downto 4)>"1000" then
			val(7 downto 4)<=val(7 downto 4)-"1010";			
			val(7 downto 4)<=val(7 downto 4)+1;
			if 	val(11 downto 8)>"1000"	then
				val(11 downto 8)<=val(11 downto 8)-"1010";			
				val(11 downto 8)<=val(11 downto 8)+1;
				if 	val(15 downto 12)>"1000"	then
					val(15 downto 12)<=val(15 downto 12)-"1010";			
					val(15 downto 12)<=val(15 downto 12)+1;				
					val(19 downto 16)<=val(19 downto 16)+1;
				else
					val(15 downto 12)<=val(15 downto 12)+1;		
				end if;
			else
				val(11 downto 8)<=val(11 downto 8)+1;
					if 	val(15 downto 12)>"1001"	then
						val(15 downto 12)<=val(15 downto 12)-"1010";			
						val(15 downto 12)<=val(15 downto 12)+1;				
						val(19 downto 16)<=val(19 downto 16)+1;
					else
						val(15 downto 12)<=val(15 downto 12)+1;		
					end if;		
			end if;
			
		else
			val(7 downto 4)<=val(7 downto 4)+1;
			if 	val(11 downto 8)>"1001"	then
				val(11 downto 8)<=val(11 downto 8)-"1010";			
				val(11 downto 8)<=val(11 downto 8)+1;
				if 	val(15 downto 12)>"1000"	then
					val(15 downto 12)<=val(15 downto 12)-"1010";			
					val(15 downto 12)<=val(15 downto 12)+1;				
					val(19 downto 16)<=val(19 downto 16)+1;
				else
					val(15 downto 12)<=val(15 downto 12)+1;		
				end if;
			else
				val(11 downto 8)<=val(11 downto 8)+1;
					if 	val(15 downto 12)>"1001"	then
						val(15 downto 12)<=val(15 downto 12)-"1010";			
						val(15 downto 12)<=val(15 downto 12)+1;				
						val(19 downto 16)<=val(19 downto 16)+1;
					else
						val(15 downto 12)<=val(15 downto 12)+1;		
					end if;		
			end if;
		end if;
			
												

		 
		
else
		flag<='0';
end if;