Fixed zexdoc not passing RLD/RRD

Author: nicolasbauw

src/cpu.rs

@@ -2787,11 +2787,11 @@ impl CPU {
                 let hl_contents = self.bus.read_byte(self.reg.get_hl());
                 let a_contents = self.reg.a;
 
-                let r = (self.reg.a & 0xF0) | ((((hl_contents & 0xF0) as i8) >> 4) as u8);
+                let r = (self.reg.a & 0xF0) | ((hl_contents & 0xF0) >> 4);
                 self.reg.a = r;
                 self.bus
                     .write_byte(self.reg.get_hl(), (hl_contents << 4) | (a_contents & 0x0F));
-                self.reg.flags.s = (r as i8) < 0;
+                self.reg.flags.s = r & 0x80 == 0x80;
                 self.reg.flags.z = r == 0x00;
                 self.reg.flags.h = false;
                 self.reg.flags.p = r.count_ones() & 0x01 == 0x00;
@@ -2807,9 +2807,9 @@ impl CPU {
                 self.reg.a = r;
                 self.bus.write_byte(
                     self.reg.get_hl(),
-                    ((a_contents & 0x0F) << 4) | ((((hl_contents & 0xF0) as i8) >> 4) as u8),
+                    ((a_contents & 0x0F) << 4) | ((hl_contents & 0xF0) >> 4),
                 );
-                self.reg.flags.s = (r as i8) < 0;
+                self.reg.flags.s = r & 0x80 == 0x80;
                 self.reg.flags.z = r == 0x00;
                 self.reg.flags.h = false;
                 self.reg.flags.p = r.count_ones() & 0x01 == 0x00;

zexdoc_results.txt

@@ -56,7 +56,7 @@ ldd<r> (2)....................  OK
 ldi<r> (1)....................  OK
 ldi<r> (2)....................  OK
 neg...........................  OK
-<rrd,rld>.....................  ERROR **** crc expected:955ba326 found:e2191d5f
+<rrd,rld>.....................  OK
 <rlca,rrca,rla,rra>...........  OK
 shf/rot (<ix,iy>+1)...........  OK
 shf/rot <b,c,d,e,h,l,(hl),a>..  OK
@@ -66,4 +66,4 @@ ld (<ix,iy>+1),<b,c,d,e>......  OK
 ld (<ix,iy>+1),<h,l>..........  OK
 ld (<ix,iy>+1),a..............  OK
 ld (<bc,de>),a................  OK
-Tests complete
+Tests complete