X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fz80%2Fpeeph-gbz80.def;h=9341d6b77f0aa28a5ac8152cbca47e1b46c6ce2c;hb=88911079e8f9eb7fb3dfb08c32e805bb7b5e62c1;hp=01a465a23c2fb9fbcd21e3a31efbae4765136dc3;hpb=790a8acf38d1731ed743dff7da17937d209c335c;p=fw%2Fsdcc

diff --git a/src/z80/peeph-gbz80.def b/src/z80/peeph-gbz80.def
index 01a465a2..9341d6b7 100644
--- a/src/z80/peeph-gbz80.def
+++ b/src/z80/peeph-gbz80.def
@@ -1,8 +1,8 @@
 replace {
-	ld      (hl),a
-        dec     hl
+	ld	(hl),a
+	dec	hl
 } by {
-        ld      (hl-),a
+	ld	(hl-),a
 }
 replace {
 	ld	(hl),a
@@ -58,15 +58,16 @@ replace {
 	ld	(hl),a
 	ld	%1,(hl)
 } by {
-        ld      (hl),a
-        ld      %1,a
+	ld	(hl),a
+	ld	%1,a
 }
 replace {
-	ld	(hl),%1
-	ld	a,%2
-	sub	a,(hl)
+	ld	(hl),a
+	inc	de
+	ld	a,(de)
+	inc	hl
 } by {
-	ld	(hl),%1
-	ld	a,%2
-	sub	a,%1
+	ld	(hl+),a
+	inc	de
+	ld	a,(de)
 }