elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Foros Generales
| |-+  Dudas Generales (Moderador: engel lex)
| | |-+  AYUDA vhdl
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA vhdl  (Leído 1,746 veces)
emg123

Desconectado Desconectado

Mensajes: 1


Ver Perfil
AYUDA vhdl
« en: 16 Junio 2016, 06:32 am »

Hola!
Verán, llevó tiempo trabajando en una ALU en VHDL, y he estado probando cada función por separado pero al momento de ponerlo todo en un case la simulacion ya no sirve :(
Quería saber si me pueden ayudar?



library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use ieee.std_logic_unsigned.all;
use ieee.std_logic_arith.all;

-- Uncomment the following library declaration if using
-- arithmetic functions with Signed or Unsigned values
--use IEEE.NUMERIC_STD.ALL;

-- Uncomment the following library declaration if instantiating
-- any Xilinx primitives in this code.
--library UNISIM;
--use UNISIM.VComponents.all;

entity prueba is
    Port ( A : in  STD_LOGIC_VECTOR (8 downto 1);
           Rs : in  STD_LOGIC_VECTOR (8 downto 1);
           op: in std_logic_vector(4 downto 0);
           Ci : in  STD_LOGIC;
           Ni : in  STD_LOGIC;
           Vi : in  STD_LOGIC;
           Zi : in  STD_LOGIC;
           S : out  STD_LOGIC_VECTOR (8 downto 1);
           Co : out  STD_LOGIC;
           No : out  STD_LOGIC;
           Vo : out  STD_LOGIC;
           Zo : out  STD_LOGIC);
end prueba;

architecture Behavioral of prueba is
signal s1:std_logic_vector(9 downto 1);
signal op1:std_logic_vector(4 downto 0);
begin
op1(4)<=op(4);
op1(3)<=op(3);
op1(2)<=op(2);
op1(1)<=op(1);
op1(0)<=op(0);
process(A,Rs,op1,Ci,Ni,Vi,Zi)
begin
case (op1) is
when"00001"=>            --SUMA
s1<=('0'& A)+Rs+Ci;
S<=s1(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00010"=>             --RESTA
s1<=('0'& A)-Rs-Ci;
S<=s1(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00011"=>         --NEGACION
s1<='0'& not (A);
S<=s1(8 downto 1);
Co<='0';
No<=s1(8);
Vo<=Vi;
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00100"=>             --COM A 2
s1<='0' & not (A) + 1;
S<=s1(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00101"=>              --INC
s1<='0'&A+1;
S<=s1(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00110"=>         --DEC
s1<='0'&A-1;
S<=s1(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"00111"=>               --CLR
S<="00000000";
Co<=Ci;
No<='0';
Vo<='0';
Zo<='1';
when"01000"=>           --CPC
s1<=('0'&A)-Rs-Ci;
S<=A(8 downto 1);
Co<=s1(9);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01001"=>           --AND
s1<='0'&(A and Rs);
S<=s1(8 downto 1);
Co<=Ci;
No<=s1(8);
Vo<=Vi;
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01010"=>--OR   
s1<='0'&(A or Rs);
S<=s1(8 downto 1);
Co<='0';
No<=s1(8);
Vo<=Vi;
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01011"=>--XOR
s1<='0'&(A xor Rs);
S<=s1(8 downto 1);
Co<='0';
No<=s1(8);
Vo<=Vi;
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01100"=>--ROL
s1(1)<=Ci;
s1(2)<=A(1);
s1(3)<=A(2);
s1(4)<=A(3);
s1(5)<=A(4);
s1(6)<=A(5);
s1(7)<=A(6);
s1(8)<=A(7);
S<=s1(8 downto 1);
Co<=A(8);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01101"=>--ROR
s1(1)<=A(2);
s1(2)<=A(3);
s1(3)<=A(4);
s1(4)<=A(5);
s1(5)<=A(6);
s1(6)<=A(7);
s1(7)<=A(8);
s1(8)<=Ci;
S<=s1(8 downto 1);
Co<=A(1);
No<=s1(8);
Vo<=s1(9) xor s1(8);
Zo<=not(s1(9)or s1(8)or s1(7)or s1(6)or s1(5)or s1(4)or s1(3)or s1(2)or s1(1));
when"01110"=>--CI-IN
Co<='1';
No<=Ni;
Vo<=Vi;
Zo<=Zi;
S<="00000000";
when"01111"=>
Co<='0';
No<=Ni;
Vo<=Vi;
Zo<=Zi;
S<="00000000";
when"10000"=>
Co<=Ci;
No<='1';
Vo<=Vi;
Zo<=Zi;
S<="00000000";
when"10001"=>
Co<=Ci;
No<='0';
Vo<=Vi;
Zo<=Zi;
S<="00000000";
when"10010"=>
Co<=Ci;
No<=Ni;
Vo<='1';
Zo<=Zi;
S<="00000000";
when"10011"=>
Co<=Ci;
No<=Ni;
Vo<='0';
Zo<=Zi;
S<="00000000";
when"10100"=>
Co<=Ci;
No<=Ni;
Vo<=Vi;
Zo<='1';
S<="00000000";
when"10101"=>
Co<=Ci;
No<=Ni;
Vo<=Vi;
Zo<='0';
S<="00000000";
when others=>
Co <= Ci;-- otros
No <= Ni;
Vo <= Vi;
Zo <= Zi;
S <= "00000000";
end case;

end process;
end Behavioral;

Este es mi codigo, si pudieran ayudarme estaría o corregirme en algo
Saludos!


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Programacion en VHDL
Programación General
Fox_Neo 1 4,313 Último mensaje 10 Octubre 2013, 17:44 pm
por Fox_Neo
Active vhdl
Electrónica
Fox_Neo 0 1,653 Último mensaje 2 Febrero 2014, 10:51 am
por Fox_Neo
Ayuda VHDL
Programación General
grandanh 0 1,331 Último mensaje 21 Febrero 2014, 17:04 pm
por grandanh
VGA en VHDL
Foro Libre
joan.ayala 0 1,181 Último mensaje 23 Mayo 2014, 22:52 pm
por joan.ayala
Necesito ayuda con esta ALU en VHDL
Dudas Generales
Joloko 0 840 Último mensaje 21 Noviembre 2022, 20:59 pm
por Joloko
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines