------------------------------------------------------------------------------- -- -- -- X X XXXXXX XXXXXX XXXXXX XXXXXX X -- -- XX XX X X X X X X X XX -- -- X X X X X X X X X X X X -- -- X X X X X X X X X X X X -- -- X X X X XXXXXX X X XXXXXX X -- -- X X X X X X X X X -- -- X X X X X X X X X -- -- X X X X X X X X X X -- -- X X XXXXXX XXXXXX XXXXXX XXXXXX X -- -- -- -- -- -- O R E G A N O S Y S T E M S -- -- -- -- Design & Consulting -- -- -- ------------------------------------------------------------------------------- -- -- -- Web: http://www.oregano.at/ -- -- -- -- Contact: mc8051@oregano.at -- -- -- ------------------------------------------------------------------------------- -- -- -- MC8051 - VHDL 8051 Microcontroller IP Core -- -- Copyright (C) 2001 OREGANO SYSTEMS -- -- -- -- This library is free software; you can redistribute it and/or -- -- modify it under the terms of the GNU Lesser General Public -- -- License as published by the Free Software Foundation; either -- -- version 2.1 of the License, or (at your option) any later version. -- -- -- -- This library is distributed in the hope that it will be useful, -- -- but WITHOUT ANY WARRANTY; without even the implied warranty of -- -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -- -- Lesser General Public License for more details. -- -- -- -- Full details of the license can be found in the file LGPL.TXT. -- -- -- -- You should have received a copy of the GNU Lesser General Public -- -- License along with this library; if not, write to the Free Software -- -- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -- -- -- ------------------------------------------------------------------------------- -- -- -- Author: Roland H鰈ler -- -- Filename: dcml_adjust_rtl.vhd -- -- Date of Creation: Mon Aug 9 12:14:48 1999 -- -- Version: $Revision: 1.4 $ -- -- Date of Latest Version: $Date: 2002/01/07 12:17:44 $ -- -- -- Description: Combinational design to calculate the decimal -- representation (BCD) of a data bus. -- -- -- -- ------------------------------------------------------------------------------- architecture rtl of dcml_adjust is begin -- rtl p_calc_adjst: process (data_i, cy_i) variable v_cy : std_logic_vector((DWIDTH-1)/4 downto 0); variable v_nxtcy : std_logic; variable v_tmpda : unsigned(DWIDTH downto 0); variable v_tmpda1 : unsigned(4 downto 0); variable v_compvl : unsigned(3 downto 0); begin -- process p_calc_adjst v_tmpda(DWIDTH-1 downto 0) := unsigned(data_i); v_tmpda(DWIDTH) := '0'; v_cy := cy_i; v_nxtcy := '0'; for i in 0 to (DWIDTH-1)/4 loop if DWIDTH-i*4 -- Calculate the decimal adjustment of the last nibble/rest of bits v_compvl := conv_unsigned(0,4); v_compvl(DWIDTH-1-i*4 downto 0) := v_tmpda(DWIDTH-1 downto i*4); if (v_cy(i) = '1') or (v_compvl > conv_unsigned(9,4)) then if DWIDTH-i*4 > 2 then v_tmpda(DWIDTH downto i*4) := v_tmpda(DWIDTH-1 downto i*4) + conv_unsigned(6,v_tmpda(DWIDTH downto i*4)'LENGTH); else v_tmpda(DWIDTH downto i*4) := v_tmpda(DWIDTH-1 downto i*4) + conv_unsigned(2,v_tmpda(DWIDTH downto i*4)'LENGTH); end if; end if; -- An already set intermediate carry flag must not be lost. v_cy(i) := v_tmpda(DWIDTH) or v_cy(i); else -- Calculate the decimal adjustment of all nibbles, but the last one. v_compvl := v_tmpda(i*4+3 downto i*4); v_tmpda1 := conv_unsigned(0,5); if (v_cy(i) = '1') or (v_compvl > conv_unsigned(9,4)) then for j in i to (DWIDTH-1)/4 loop if DWIDTH-1 > j*4+3 then -- Calculate all subsequent nibbles from the actual position up -- to the one before the last. if j=i then v_tmpda1 := v_tmpda(j*4+3 downto j*4) + conv_unsigned(6,5); v_nxtcy := v_tmpda1(4); v_tmpda(j*4+3 downto j*4) := v_tmpda1(3 downto 0); else v_tmpda1 := v_tmpda(j*4+3 downto j*4) + conv_unsigned(v_nxtcy,5); v_nxtcy := v_tmpda1(4); v_tmpda(j*4+3 downto j*4) := v_tmpda1(3 downto 0); end if; -- An already set intermediate carry flag must not be lost. v_cy(j) := v_tmpda1(4) or v_cy(j); else -- Calculate the last nibble. if j=i then v_tmpda(DWIDTH downto j*4) := v_tmpda(DWIDTH-1 downto j*4) + conv_unsigned(6,v_tmpda(DWIDTH downto j*4)'LENGTH); else v_tmpda(DWIDTH downto j*4) := v_tmpda(DWIDTH-1 downto j*4) + conv_unsigned(v_nxtcy,v_tmpda(DWIDTH downto j*4)'LENGTH); end if; -- An already set intermediate carry flag must not be lost. v_cy(j) := v_tmpda(DWIDTH) or v_cy(j); end if; end loop; -- j end if; end if; end loop; -- i -- Generate outputs cy_o data_o end process p_calc_adjst; end rtl;
