X-Git-Url: http://git.joshuawise.com/fpgaboy.git/blobdiff_plain/3ad960bdb71efcbb1dfd436163085da0d70eb699..6ba4cfea4b24fdd898e90ebd55e95ad43d5d21d4:/insn_ldx_ahl.v?ds=inline

diff --git a/insn_ldx_ahl.v b/insn_ldx_ahl.v
index a16d6ba..a2d2420 100644
--- a/insn_ldx_ahl.v
+++ b/insn_ldx_ahl.v
@@ -1,18 +1,13 @@
 `ifdef EXECUTE
 	`INSN_LDx_AHL: begin
 		case (cycle)
-		0:	begin
-				address <= {registers[`REG_H],registers[`REG_L]};
-				if (opcode[3]) begin	// LDx A, (HL)
-					rd <= 1;
-				end else begin
-					wr <= 1;
-					wdata <= registers[`REG_A];
-				end
-			end
+		0:	if (opcode[3])		// LDx A, (HL)
+				`EXEC_READ(`_HL)
+			else
+				`EXEC_WRITE(`_HL, `_A)
 		1:	begin
-				`EXEC_NEWCYCLE;
-				`EXEC_INC_PC;
+				`EXEC_NEWCYCLE
+				`EXEC_INC_PC
 			end
 		endcase
 	end
@@ -24,11 +19,10 @@
 		0:	begin /* Type F */ end
 		1:	begin
 				if (opcode[3])
-					registers[`REG_A] <= rdata;
-				{registers[`REG_H],registers[`REG_L]} <=
-					opcode[4] ? // if set, LDD, else LDI
-					({registers[`REG_H],registers[`REG_L]} - 1) :
-					({registers[`REG_H],registers[`REG_L]} + 1);
+					`_A <= rdata;
+				`_HL <= opcode[4] ? // if set, LDD, else LDI
+					(`_HL - 1) :
+					(`_HL + 1);
 			end
 		endcase
 	end