Line 1... |
Line 1... |
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
------------------------------------------------------------------------------
|
-- --
|
-- --
|
-- Copyright (c) 2009-2018 Tobias Gubener --
|
-- Copyright (c) 2009-2019 Tobias Gubener --
|
-- Subdesign fAMpIGA by TobiFlex --
|
|
-- Patches by MikeJ, Till Harbaum, Rok Krajnk, ... --
|
-- Patches by MikeJ, Till Harbaum, Rok Krajnk, ... --
|
|
-- Subdesign fAMpIGA by TobiFlex --
|
-- --
|
-- --
|
-- This source file is free software: you can redistribute it and/or modify --
|
-- This source file is free software: you can redistribute it and/or modify --
|
-- it under the terms of the GNU Lesser General Public License as published --
|
-- it under the terms of the GNU Lesser General Public License as published --
|
-- by the Free Software Foundation, either version 3 of the License, or --
|
-- by the Free Software Foundation, either version 3 of the License, or --
|
-- (at your option) any later version. --
|
-- (at your option) any later version. --
|
Line 952... |
Line 952... |
ELSE --Word
|
ELSE --Word
|
set_flags <= OP1IN(15)&flag_z(1)&addsub_ofl(1)&c_out(1);
|
set_flags <= OP1IN(15)&flag_z(1)&addsub_ofl(1)&c_out(1);
|
END IF;
|
END IF;
|
|
|
IF rising_edge(clk) THEN
|
IF rising_edge(clk) THEN
|
IF clkena_lw = '1' THEN
|
IF Reset='1' THEN
|
|
Flags(7 downto 0) <= "00000000";
|
|
ELSIF clkena_lw = '1' THEN
|
IF exec(directSR)='1' OR set_stop='1' THEN
|
IF exec(directSR)='1' OR set_stop='1' THEN
|
Flags(7 downto 0) <= data_read(7 downto 0);
|
Flags(7 downto 0) <= data_read(7 downto 0);
|
END IF;
|
END IF;
|
IF exec(directCCR)='1' THEN
|
IF exec(directCCR)='1' THEN
|
Flags(7 downto 0) <= data_read(7 downto 0);
|
Flags(7 downto 0) <= data_read(7 downto 0);
|