微機原理-大作業(yè)1電子版

LIBRARYIEEE; USEIEEE.STD_LOGIC_1164.ALL;--調用其中的STD_LOGIC_1164.ALL包集合--USEIEEE.STD_LOGIC_ARITH.ALL;USE--8BITSALU:CHECK8_BITALUENTITYSHIPENG A:INSTD_LOGIC_VECTOR(7DOWNTO0);B:INSTD_LOGIC_VECTOR(7DOWNTOreset:INSTD_LOGIC;CIN:INSTD_LOGIC;CLK:INSTD_LOGIC;S:INSTD_LOGIC_VECTOR(3DOWNTO0);addr_in:INoutSTD_LOGIC_VECTOR(7DOWNTO0);BCDOUT:OUTSTD_LOGIC_VECTOR(7DOWNTO0);COUT:OUTSTD_LOGIC);ENDARCHITECTUREARCHOFSHIPENG SIGNALFSTD_LOGIC_VECTOR(8DOWNTO SIGNAL :STD_LOGIC_VECTOR(7DOWNTO--SIGNALQ:UNSIGNED(7DOWNTO--***************MATH 句--***************ADDER IFRESET='1' ELSIFCLK'EVENTANDCLK='1'THENCASESISWHEN--***************SUB WHEN"0001"=>--************TRANSFERA+CIN 傳遞WHENF--****************TRANSFERA-CIN***********---傳遞（cin=1）WHEN"0011"=>F<=('0'&A)---***************LOGICOPERATOR*************** WHEN"0100"=>F(7)<=A(7)ANDF(6)<=A(6)ANDF(5)<=A(5)ANDF(4)<=A(4)ANDF(3)<=A(3)ANDF(2)<=A(2)ANDF(1)<=A(1)ANDF(0)<=A(0)AND--***************OR***************---或操作WHEN"0101"=>F(7)<=A(7)ORF(6)<=A(6)ORF(5)<=A(5)ORF(4)<=A(4)ORF(3)<=A(3)ORF(2)<=A(2)ORF(1)<=A(1)ORF(0)<=A(0)OR WHEN"0110"=>F(7)<=A(7)XORF(6)<=A(6)XORF(5)<=A(5)XORF(4)<=A(4)XORF(3)<=A(3)XORF(2)<=A(2)XORF(1)<=A(1)XORF(0)<=A(0)XOR--BCDOUT<=F(7)&F(6)&F(5)&F(4)&F(3)&F(2)&F(1)& WHEN"0111"=>F(7)<=NOTF(6)<=NOTF(5)<=NOTF(4)<=NOTF(3)<=NOTF(2)<=NOTF(1)<=NOTF(0)<=NOT when"1000"=> F(7DOWNTO0)<=A(7)&A(6)&A(5)&A(4)&A(3)&A(2)&when"1001"=> F(7DOWNTO1)<=F(6DOWNTO0);when"1010"=> F(7DOWNTO1)<=F(6DOWNTO "1011"=> F(6DOWNTO0)<=F(7DOWNTO F(6DOWNTO0)<=F(7DOWNTO1); "1101"=>---F "1110" F<=('0'&A)---***************OTHERS***************--其它WHENOTHERS=>F<=" ENDENDIF;ENDPROCESS;BCDOUT<=F(7)&F(6)&F(5)&F(4)&F(3)&F(2)&F(1)&F(0);if