[BACK]Return to z80c_s.mcr CVS log [TXT] [DIR] Up to [RetroPC.NET] / xmil / z80c
File:  [RetroPC.NET] / xmil / z80c / z80c_s.mcr
Revision 1.8: download - view: text, annotated - select for diffs
Sat Aug 21 08:01:16 2004 JST (21 years, 2 months ago) by yui
Branches: MAIN
CVS tags: HEAD
fix...


#define	MCR_Z80INF(reg) {												\
		(reg) = iocore_inp(R_Z80BC);									\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szp_flag[(reg)];									\
	}

#define	MCR_Z80OUT(reg) {												\
		iocore_out(R_Z80BC, (reg));										\
	}

#define MCR_SBC_W(reg) {												\
		UINT32 tmp;														\
		tmp = R_Z80HL - (reg) - (R_Z80F & 1);							\
		R_Z80F = N_FLAG;												\
		if (tmp & 0xffff0000) {											\
			R_Z80F |= C_FLAG;											\
		}																\
		if (!(tmp & 0x0000ffff)) {										\
				R_Z80F |= Z_FLAG;										\
		}																\
		else if (tmp & 0x00008000) {									\
			R_Z80F |= S_FLAG;											\
		}																\
		R_Z80F |= ((((R_Z80HL) ^ tmp) & ((R_Z80HL) ^ (reg)))			\
													>> 13) & V_FLAG;	\
		R_Z80F |= ((R_Z80HL ^ tmp ^ (reg)) >> 8) & H_FLAG;				\
		R_Z80HL = (UINT16)tmp;											\
	}

#define MCR_NEG {														\
		UINT res;														\
		res = 0 - R_Z80A;												\
		R_Z80F = z80szc_flag[res & 0x1ff] | N_FLAG;						\
		R_Z80F |= (res ^ R_Z80A) & H_FLAG;								\
		R_Z80F |= ((res & R_Z80A) >> 5) & V_FLAG;						\
		R_Z80A = (UINT8)res;											\
	}

#define	MCR_RETN {														\
		Z80_IFF &= ~(1 << IFF_NMI);										\
		MCR_RET															\
	}

#define MCR_IM(mode) {													\
		R_Z80IM = (mode);												\
	}

#define MCR_ADC_W(reg) {												\
		UINT32 tmp;														\
		tmp = R_Z80HL + (reg) + (R_Z80F & 1);							\
		R_Z80F = (UINT8)(tmp >> 16);									\
		if (!(tmp & 0x0000ffff)) {										\
			R_Z80F |= Z_FLAG;											\
		}																\
		else if (tmp & 0x00008000) {									\
			R_Z80F |= S_FLAG;											\
		}																\
		R_Z80F |= (((tmp ^ (reg)) & (tmp ^ R_Z80HL)) >> 13) & V_FLAG;	\
		R_Z80F |= ((R_Z80HL ^ tmp ^ (reg)) >> 8) & H_FLAG;				\
		R_Z80HL = (UINT16)tmp;											\
	}

#define MCR_RETI {														\
		ievent_eoi();													\
		MCR_RET															\
	}

#define MCR_LD_RA {														\
		R_Z80R = R_Z80A;												\
		R_Z80R2 = R_Z80A;												\
	}


#define MCR_LD_AI {														\
		R_Z80A = R_Z80I;												\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szc_flag[R_Z80I];									\
		if (!(Z80_IFF & (1 << IFF_IFLAG))) {							\
			R_Z80F |= V_FLAG;											\
		}																\
	}

#define MCR_LD_AR {														\
		R_Z80A = (R_Z80R & 0x7f) | (R_Z80R2 & 0x80);					\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szc_flag[R_Z80A];									\
		if (!(Z80_IFF & (1 << IFF_IFLAG))) {							\
			R_Z80F |= V_FLAG;											\
		}																\
	}


#define MCR_RRD {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL);										\
		mem_write8(R_Z80HL, (REG8)((tmp >> 4) | (R_Z80A << 4)));		\
		R_Z80A = (R_Z80A & 0xf0) | (tmp & 0x0f);						\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szp_flag[R_Z80A];									\
	}

#define MCR_RLD {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL);										\
		mem_write8(R_Z80HL, (REG8)((tmp << 4) + (R_Z80A & 0x0f)));		\
		R_Z80A = (R_Z80A & 0xf0) | (tmp >> 4);							\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szp_flag[R_Z80A];									\
	}


#define MCR_Z80IN0 {													\
		REG8 tmp;														\
		tmp = iocore_inp(R_Z80BC);										\
		R_Z80F &= C_FLAG;												\
		R_Z80F |= z80szp_flag[tmp];										\
	}


#define MCR_LDI {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL++);										\
		mem_write8(R_Z80DE++, tmp);										\
		R_Z80F &= 0xe9;													\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
		}																\
	}

#define MCR_CPI {														\
		REG8 tmp;														\
		REG8 diff;														\
		tmp = mem_read8(R_Z80HL++);										\
		R_Z80F &= C_FLAG;												\
		diff = R_Z80A - tmp;											\
		R_Z80F |= (diff ^ R_Z80A ^ tmp) & H_FLAG;						\
		R_Z80F |= z80szc_flag[LOW8(diff)];								\
		R_Z80F |= N_FLAG;												\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
		}																\
	}

#define MCR_INI {														\
		REG8 tmp;														\
		tmp = iocore_inp(R_Z80BC);										\
		mem_write8(R_Z80HL++, tmp);										\
		R_Z80F = N_FLAG;												\
		R_Z80B--;														\
		if (!R_Z80B) {													\
			R_Z80F |= Z_FLAG;											\
		}																\
	}

#define MCR_OUTI {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL++);										\
		R_Z80F = N_FLAG;												\
		R_Z80B--;														\
		if (!R_Z80B) {													\
			R_Z80F |= Z_FLAG;											\
		}																\
		iocore_out(R_Z80BC, tmp);										\
	}

#define MCR_LDD {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL--);										\
		mem_write8(R_Z80DE--, tmp);										\
		R_Z80F &= 0xe9;													\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
		}																\
	}

#define MCR_CPD {														\
		REG8 tmp;														\
		REG8 diff;														\
		tmp = mem_read8(R_Z80HL--);										\
		R_Z80F &= C_FLAG;												\
		diff = R_Z80A - tmp;											\
		R_Z80F |= (diff ^ R_Z80A ^ tmp) & H_FLAG;						\
		R_Z80F |= z80szc_flag[LOW8(diff)];								\
		R_Z80F |= N_FLAG;												\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
		}																\
	}

#define MCR_IND {														\
		REG8 tmp;														\
		tmp = iocore_inp(R_Z80BC);										\
		mem_write8(R_Z80HL--, tmp);										\
		R_Z80F = N_FLAG;												\
		R_Z80B--;														\
		if (!R_Z80B) {													\
			R_Z80F |= Z_FLAG;											\
		}																\
	}

#define MCR_OUTD {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL--);										\
		R_Z80F = N_FLAG;												\
		R_Z80B--;														\
		if (!R_Z80B) {													\
			R_Z80F |= Z_FLAG;											\
		}																\
		iocore_out(R_Z80BC, tmp);										\
	}

#define MCR_LDIR {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL++);										\
		mem_write8(R_Z80DE++, tmp);										\
		R_Z80F &= 0xe9;													\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
	}

#define MCR_CPIR {														\
		REG8 tmp;														\
		REG8 diff;														\
		tmp = mem_read8(R_Z80HL++);										\
		R_Z80F &= C_FLAG;												\
		diff = R_Z80A - tmp;											\
		R_Z80F |= (diff ^ R_Z80A ^ tmp) & H_FLAG;						\
		R_Z80F |= z80szc_flag[LOW8(diff)];								\
		if (!diff) {													\
			R_Z80F |= N_FLAG;											\
			if (--R_Z80BC) {											\
				R_Z80F |= V_FLAG;										\
			}															\
		}																\
		else {															\
			if (--R_Z80BC) {											\
				R_Z80F |= V_FLAG;										\
				Z80_COUNT(5);											\
				R_Z80PC -= 2;											\
			}															\
		}																\
	}

#define MCR_INIR {														\
		REG8 tmp;														\
		tmp = iocore_inp(R_Z80BC);										\
		mem_write8(R_Z80HL++, tmp);										\
		if (--R_Z80B) {													\
			R_Z80F = N_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
		else {															\
			R_Z80F = (N_FLAG | Z_FLAG);									\
		}																\
	}

#define MCR_OTIR {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL++);										\
		if (--R_Z80B) {													\
			R_Z80F = N_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
		else {															\
			R_Z80F = (N_FLAG | Z_FLAG);									\
		}																\
		iocore_out(R_Z80BC, tmp);										\
	}

#define MCR_LDDR {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL--);										\
		mem_write8(R_Z80DE--, tmp);										\
		R_Z80F &= 0xe9;													\
		R_Z80BC--;														\
		if (R_Z80BC) {													\
			R_Z80F |= V_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
	}

#define MCR_CPDR {														\
		REG8 tmp;														\
		REG8 diff;														\
		tmp = mem_read8(R_Z80HL--);										\
		R_Z80F &= C_FLAG;												\
		diff = R_Z80A - tmp;											\
		R_Z80F |= (diff ^ R_Z80A ^ tmp) & H_FLAG;						\
		R_Z80F |= z80szc_flag[LOW8(diff)];								\
		if (!diff) {													\
			R_Z80F |= N_FLAG;											\
			if (--R_Z80BC) {											\
				R_Z80F |= V_FLAG;										\
			}															\
		}																\
		else {															\
			if (--R_Z80BC) {											\
				R_Z80F |= V_FLAG;										\
				Z80_COUNT(5);											\
				R_Z80PC -= 2;											\
			}															\
		}																\
	}

#define MCR_INDR {														\
		REG8 tmp;														\
		tmp = iocore_inp(R_Z80BC);										\
		mem_write8(R_Z80HL--, tmp);										\
		if (--R_Z80B) {													\
			R_Z80F = N_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
		else {															\
			R_Z80F = (N_FLAG | Z_FLAG);									\
		}																\
	}

#define MCR_OTDR {														\
		REG8 tmp;														\
		tmp = mem_read8(R_Z80HL--);										\
		if (--R_Z80B) {													\
			R_Z80F = N_FLAG;											\
			Z80_COUNT(5);												\
			R_Z80PC -= 2;												\
		}																\
		else {															\
			R_Z80F = (N_FLAG | Z_FLAG);									\
		}																\
		iocore_out(R_Z80BC, tmp);										\
	}
RetroPC.NET-CVS <cvs@retropc.net>