forsubt.vbe

i need of vhdl code for 32-bit risc processor

ENTITY forsubt IS
PORT (
secvec : IN BIT_VECTOR(7 downto 0);
addbit : IN BIT;
outsec: OUT BIT_VECTOR(7 downto 0)
);
END forsubt;

ARCHITECTURE forsubt_arch OF forsubt IS

begin
outsec(7) <= secvec(7) XOR addbit;
outsec(0) <= secvec(0);
outsec(1) <= secvec(1);
outsec(2) <= secvec(2);
outsec(3) <= secvec(3);
outsec(4) <= secvec(4);
outsec(5) <= secvec(5);
outsec(6) <= secvec(6);

end;