# HG changeset patch
# User Mike Pavone <pavone@retrodev.com>
# Date 1371187395 25200
# Node ID c20607e5b27273da82012f502ae032013c542771
# Parent  09328dbe670006da3b1838bd4c6aa89df99c9c4a
Fix LDIR

diff -r 09328dbe6700 -r c20607e5b272 z80_to_x86.c
--- a/z80_to_x86.c	Tue Jun 11 23:36:18 2013 -0700
+++ b/z80_to_x86.c	Thu Jun 13 22:23:15 2013 -0700
@@ -517,7 +517,7 @@
 		dst = mov_rr(dst, opts->regs[Z80_HL], SCRATCH1, SZ_W);
 		dst = call(dst, (uint8_t *)z80_read_byte);
 		dst = mov_rr(dst, opts->regs[Z80_DE], SCRATCH2, SZ_W);
-		dst = call(dst, (uint8_t *)z80_read_byte);
+		dst = call(dst, (uint8_t *)z80_write_byte);
 		dst = add_ir(dst, 1, opts->regs[Z80_DE], SZ_W);
 		dst = add_ir(dst, 1, opts->regs[Z80_HL], SZ_W);