X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/77ab69d7bb0902e6ebf0994159ed2205f8413e34..b057a5d6e6db6db06ae33703ca72cd235eec91d6:/core/insn_ldx_ahl.v

diff --git a/core/insn_ldx_ahl.v b/core/insn_ldx_ahl.v
new file mode 100644
index 0000000..a2d2420
--- /dev/null
+++ b/core/insn_ldx_ahl.v
@@ -0,0 +1,29 @@
+`ifdef EXECUTE
+	`INSN_LDx_AHL: begin
+		case (cycle)
+		0:	if (opcode[3])		// LDx A, (HL)
+				`EXEC_READ(`_HL)
+			else
+				`EXEC_WRITE(`_HL, `_A)
+		1:	begin
+				`EXEC_NEWCYCLE
+				`EXEC_INC_PC
+			end
+		endcase
+	end
+`endif
+
+`ifdef WRITEBACK
+	`INSN_LDx_AHL: begin
+		case (cycle)
+		0:	begin /* Type F */ end
+		1:	begin
+				if (opcode[3])
+					`_A <= rdata;
+				`_HL <= opcode[4] ? // if set, LDD, else LDI
+					(`_HL - 1) :
+					(`_HL + 1);
+			end
+		endcase
+	end
+`endif