1 files changed, 56 insertions, 0 deletions
diff --git a/rtl/core/control/cycles.sv b/rtl/core/control/cycles.sv
new file mode 100644
index 0000000..f804e93
--- /dev/null
+++ b/rtl/core/control/cycles.sv
@@ -0,0 +1,56 @@
+`include "core/uarch.sv"
+
+module core_control_cycles
+(
+	input  logic      clk,
+	                  ldst,
+	                  bubble,
+	                  exception,
+	                  mem_ready,
+	                  pop_valid,
+	                  trivial_shift,
+	                  ldst_writeback,
+	                  data_snd_shift_by_reg,
+
+	output ctrl_cycle cycle,
+	                  next_cycle
+);
+
+	always_comb begin
+		next_cycle = ISSUE;
+
+		unique case(cycle)
+			ISSUE:
+				if(exception)
+					next_cycle = EXCEPTION;
+				else if(data_snd_shift_by_reg)
+					next_cycle = RD_INDIRECT_SHIFT;
+				else if(!trivial_shift)
+					next_cycle = WITH_SHIFT;
+
+			RD_INDIRECT_SHIFT:
+				if(!trivial_shift)
+					next_cycle = WITH_SHIFT;
+
+			TRANSFER:
+				if(!mem_ready || pop_valid)
+					next_cycle = TRANSFER;
+				else if(ldst_writeback)
+					next_cycle = BASE_WRITEBACK;
+
+			default: ;
+		endcase
+
+		if(bubble)
+			next_cycle = ISSUE;
+		else if(next_cycle == ISSUE && ldst)
+			next_cycle = TRANSFER;
+	end
+
+	always_ff @(posedge clk)
+		cycle <= next_cycle;
+
+	initial
+		cycle = ISSUE;
+
+endmodule