Mercurial > repos > blastem

changeset 400:a09aa6d067fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Have test generator test both flag register 0 case and flag register FF case
author Mike Pavone <pavone@retrodev.com>
date Sat, 15 Jun 2013 23:10:37 -0700
parents acaae7c3d34c
children f54af24aad1d
files ztestgen.c
diffstat 1 files changed, 80 insertions(+), 39 deletions(-) [+]
line wrap: on
line diff
--- a/ztestgen.c	Fri Jun 14 23:27:01 2013 -0700
+++ b/ztestgen.c	Sat Jun 15 23:10:37 2013 -0700
@@ -21,6 +21,7 @@
 #define LD_IR16 0x01
 #define LD_IR8  0x06
 #define LD_RR8  0x40
+#define AND_R   0xA0
 #define PUSH    0xC5
 #define POP     0xC1
 
@@ -118,6 +119,25 @@
 	}
 }
 
+uint8_t * and_r(uint8_t * dst, uint8_t reg)
+{
+	if (reg == Z80_IXH || reg == Z80_IXL) {
+		*(dst++) = PRE_IX;
+		return and_r(dst, reg - (Z80_IXL - Z80_L));
+	} else if(reg == Z80_IYH || reg == Z80_IYL) {
+		*(dst++) = PRE_IY;
+		return and_r(dst, reg - (Z80_IYL - Z80_L));
+	} else {
+		if (reg == Z80_A) {
+			reg = 7;
+		} else {
+			reg = (reg - Z80_C) ^ 1;
+		}
+		*(dst++) = AND_R | reg;
+		return dst;
+	}
+}
+
 void z80_gen_test(z80inst * inst, uint8_t *instbuf, uint8_t instlen)
 {
 	z80inst copy;
@@ -251,50 +271,71 @@
 	*(cur++) = 0xF3;
 	//setup SP
 	cur = ld_ir16(cur, Z80_SP, 0x2000);
-	//setup memory
-	if (is_mem) {
-		mem_val = rand() % 256;
-		cur = ld_ir8(cur, Z80_A, mem_val);
-		cur = ld_amem(cur, address);
-	}
-	//setup AF
-	cur = ld_ir16(cur, Z80_BC, reg_values[Z80_A] << 8);
-	cur = push(cur, Z80_BC);
-	cur = pop(cur, Z80_AF);
+	for (int i = 0; i < 2; i ++) {
+		//setup memory
+		if (is_mem) {
+			mem_val = rand() % 256;
+			cur = ld_ir8(cur, Z80_A, mem_val);
+			cur = ld_amem(cur, address);
+		}
+		//setup AF
+		cur = ld_ir16(cur, Z80_BC, reg_values[Z80_A] << 8 | (i ? 0xFF : 0));
+		cur = push(cur, Z80_BC);
+		cur = pop(cur, Z80_AF);
 	
-	//setup other regs
-	for (uint8_t reg = Z80_BC; reg <= Z80_IY; reg++) {
-		if (reg != Z80_AF && reg != Z80_SP) {
-			cur = ld_ir16(cur, reg, reg_values[reg]);
+		//setup other regs
+		for (uint8_t reg = Z80_BC; reg <= Z80_IY; reg++) {
+			if (reg != Z80_AF && reg != Z80_SP) {
+				cur = ld_ir16(cur, reg, reg_values[reg]);
+			}
 		}
-	}
+	
+		//copy instruction
+		if (instlen == 3) {
+			memcpy(cur, instbuf, 2);
+			cur += 2;
+		} else {
+			memcpy(cur, instbuf, instlen);
+			cur += instlen;
+		}
 	
-	//copy instruction
-	if (instlen == 3) {
-		memcpy(cur, instbuf, 2);
-		cur += 2;
-	} else {
-		memcpy(cur, instbuf, instlen);
-		cur += instlen;
-	}
-	
-	//immed/displacement byte(s)
-	if (addr_mode == Z80_IX_DISPLACE || addr_mode == Z80_IY_DISPLACE) {
-		*(cur++) = inst->ea_reg;
-	} else if (addr_mode == Z80_IMMED & inst->op != Z80_IM) {
-		*(cur++) = inst->immed & 0xFF;
-		if (word_sized) {
+		//immed/displacement byte(s)
+		if (addr_mode == Z80_IX_DISPLACE || addr_mode == Z80_IY_DISPLACE) {
+			*(cur++) = inst->ea_reg;
+		} else if (addr_mode == Z80_IMMED & inst->op != Z80_IM) {
+			*(cur++) = inst->immed & 0xFF;
+			if (word_sized) {
+				*(cur++) = inst->immed >> 8;
+			}
+		} else if (addr_mode == Z80_IMMED_INDIRECT) {
+			*(cur++) = inst->immed & 0xFF;
 			*(cur++) = inst->immed >> 8;
 		}
-	} else if (addr_mode == Z80_IMMED_INDIRECT) {
-		*(cur++) = inst->immed & 0xFF;
-		*(cur++) = inst->immed >> 8;
-	}
-	if (inst->reg == Z80_USE_IMMED && inst->op != Z80_BIT && inst->op != Z80_RES && inst->op != Z80_SET) {
-		*(cur++) = inst->immed & 0xFF;
-	}
-	if (instlen == 3) {
-		*(cur++) = instbuf[2];
+		if (inst->reg == Z80_USE_IMMED && inst->op != Z80_BIT && inst->op != Z80_RES && inst->op != Z80_SET) {
+			*(cur++) = inst->immed & 0xFF;
+		}
+		if (instlen == 3) {
+			*(cur++) = instbuf[2];
+		}
+		if (!i) {
+			//Save AF from first run
+			cur = push(cur, Z80_AF);
+		} else {
+			//Pop AF from first run for final result
+			for (int reg = Z80_BC; reg <= Z80_IY; reg++) {
+				if (reg != Z80_AF && !reg_usage[reg]) {
+					cur = pop(cur, reg);
+					cur = push(cur, Z80_AF);
+					cur = ld_ir8(cur, Z80_A, 0xC7);
+					cur = and_r(cur, z80_low_reg(reg));
+					cur = ld_rr8(cur, Z80_A, z80_low_reg(reg));
+					cur = pop(cur, Z80_AF);
+					reg_usage[reg] = 1;
+					reg_usage[z80_low_reg(reg)] = 1;
+					break;
+				}
+			}
+		}
 	}
 
 	for (char * cur = disbuf; *cur != 0; cur++) {