Rev 800 |
Blame |
Compare with Previous |
Last modification |
View Log
| Download
| RSS feed
| ?url?
#include "defs.h"
#include "op_noprefix.h"
#include "tables.h"
#include "op_ed.h"
#include "op_dd.h"
#include "op_fd.h"
/* DDCB/FDCB opcodes */
/* note: cpu.t and destination updated in step(), here process 'byte' */
//#ifdef Z80_COMMON
static Z80LOGIC oplx_00(Z80 *cpu, unsigned char byte) { // rlc (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
cpu->f = rlcf[byte]; return rol[byte];
}
static Z80LOGIC oplx_08(Z80 *cpu, unsigned char byte) { // rrc (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
cpu->f = rrcf[byte]; return ror[byte];
}
static Z80LOGIC oplx_10(Z80 *cpu, unsigned char byte) { // rl (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
if(cpu->f & CF)
{
cpu->f = rl1[byte];
return u8((byte << 1) | 1);
}
else
{
cpu->f = rl0[byte];
return u8(byte << 1);
}
}
static Z80LOGIC oplx_18(Z80 *cpu, unsigned char byte) { // rr (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
if (cpu->f & CF) {
cpu->f = rr1[byte]; return (byte >> 1) + 0x80;
} else {
cpu->f = rr0[byte]; return (byte >> 1);
}
}
static Z80LOGIC oplx_20(Z80 *cpu, unsigned char byte) { // sla (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
cpu->f = rl0[byte];
return u8(byte << 1);
}
static Z80LOGIC oplx_28(Z80 *cpu, unsigned char byte) { // sra (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
cpu->f = sraf[byte]; return (byte >> 1) + (byte & 0x80);
}
static Z80LOGIC oplx_30(Z80 *cpu, unsigned char byte) { // sli (ix+nn)
cpu->f = rl1[byte];
return u8((byte << 1) | 1);
}
static Z80LOGIC oplx_38(Z80 *cpu, unsigned char byte) { // srl (ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
cpu->f = rr0[byte]; return (byte >> 1);
}
static Z80LOGIC oplx_40(Z80 *cpu, unsigned char byte) { // bit 0,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 0); return byte;
}
static Z80LOGIC oplx_48(Z80 *cpu, unsigned char byte) { // bit 1,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 1); return byte;
}
static Z80LOGIC oplx_50(Z80 *cpu, unsigned char byte) { // bit 2,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 2); return byte;
}
static Z80LOGIC oplx_58(Z80 *cpu, unsigned char byte) { // bit 3,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 3); return byte;
}
static Z80LOGIC oplx_60(Z80 *cpu, unsigned char byte) { // bit 4,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 4); return byte;
}
static Z80LOGIC oplx_68(Z80 *cpu, unsigned char byte) { // bit 5,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 5); return byte;
}
static Z80LOGIC oplx_70(Z80 *cpu, unsigned char byte) { // bit 6,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 6); return byte;
}
static Z80LOGIC oplx_78(Z80 *cpu, unsigned char byte) { // bit 7,(ix+nn) | M:5 T:20 (4, 4, 3, 5, 4)
bitmem(cpu, byte, 7); return byte;
}
static Z80LOGIC oplx_80(Z80 *cpu, unsigned char byte) { // res 0,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 0);
}
static Z80LOGIC oplx_88(Z80 *cpu, unsigned char byte) { // res 1,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 1);
}
static Z80LOGIC oplx_90(Z80 *cpu, unsigned char byte) { // res 2,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 2);
}
static Z80LOGIC oplx_98(Z80 *cpu, unsigned char byte) { // res 3,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 3);
}
static Z80LOGIC oplx_A0(Z80 *cpu, unsigned char byte) { // res 4,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 4);
}
static Z80LOGIC oplx_A8(Z80 *cpu, unsigned char byte) { // res 5,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 5);
}
static Z80LOGIC oplx_B0(Z80 *cpu, unsigned char byte) { // res 6,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 6);
}
static Z80LOGIC oplx_B8(Z80 *cpu, unsigned char byte) { // res 7,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return resbyte(byte, 7);
}
static Z80LOGIC oplx_C0(Z80 *cpu, unsigned char byte) { // set 0,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 0);
}
static Z80LOGIC oplx_C8(Z80 *cpu, unsigned char byte) { // set 1,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 1);
}
static Z80LOGIC oplx_D0(Z80 *cpu, unsigned char byte) { // set 2,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 2);
}
static Z80LOGIC oplx_D8(Z80 *cpu, unsigned char byte) { // set 3,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 3);
}
static Z80LOGIC oplx_E0(Z80 *cpu, unsigned char byte) { // set 4,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 4);
}
static Z80LOGIC oplx_E8(Z80 *cpu, unsigned char byte) { // set 5,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 5);
}
static Z80LOGIC oplx_F0(Z80 *cpu, unsigned char byte) { // set 6,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 6);
}
static Z80LOGIC oplx_F8(Z80 *cpu, unsigned char byte) { // set 7,(ix+nn) | M:6 T:23 (4, 4, 3, 5, 4, 3)
(void)cpu;
return setbyte(byte, 7);
}
LOGICFUNC const logic_ix_opcode[0x100] = {
oplx_00, oplx_00, oplx_00, oplx_00, oplx_00, oplx_00, oplx_00, oplx_00,
oplx_08, oplx_08, oplx_08, oplx_08, oplx_08, oplx_08, oplx_08, oplx_08,
oplx_10, oplx_10, oplx_10, oplx_10, oplx_10, oplx_10, oplx_10, oplx_10,
oplx_18, oplx_18, oplx_18, oplx_18, oplx_18, oplx_18, oplx_18, oplx_18,
oplx_20, oplx_20, oplx_20, oplx_20, oplx_20, oplx_20, oplx_20, oplx_20,
oplx_28, oplx_28, oplx_28, oplx_28, oplx_28, oplx_28, oplx_28, oplx_28,
oplx_30, oplx_30, oplx_30, oplx_30, oplx_30, oplx_30, oplx_30, oplx_30,
oplx_38, oplx_38, oplx_38, oplx_38, oplx_38, oplx_38, oplx_38, oplx_38,
oplx_40, oplx_40, oplx_40, oplx_40, oplx_40, oplx_40, oplx_40, oplx_40,
oplx_48, oplx_48, oplx_48, oplx_48, oplx_48, oplx_48, oplx_48, oplx_48,
oplx_50, oplx_50, oplx_50, oplx_50, oplx_50, oplx_50, oplx_50, oplx_50,
oplx_58, oplx_58, oplx_58, oplx_58, oplx_58, oplx_58, oplx_58, oplx_58,
oplx_60, oplx_60, oplx_60, oplx_60, oplx_60, oplx_60, oplx_60, oplx_60,
oplx_68, oplx_68, oplx_68, oplx_68, oplx_68, oplx_68, oplx_68, oplx_68,
oplx_70, oplx_70, oplx_70, oplx_70, oplx_70, oplx_70, oplx_70, oplx_70,
oplx_78, oplx_78, oplx_78, oplx_78, oplx_78, oplx_78, oplx_78, oplx_78,
oplx_80, oplx_80, oplx_80, oplx_80, oplx_80, oplx_80, oplx_80, oplx_80,
oplx_88, oplx_88, oplx_88, oplx_88, oplx_88, oplx_88, oplx_88, oplx_88,
oplx_90, oplx_90, oplx_90, oplx_90, oplx_90, oplx_90, oplx_90, oplx_90,
oplx_98, oplx_98, oplx_98, oplx_98, oplx_98, oplx_98, oplx_98, oplx_98,
oplx_A0, oplx_A0, oplx_A0, oplx_A0, oplx_A0, oplx_A0, oplx_A0, oplx_A0,
oplx_A8, oplx_A8, oplx_A8, oplx_A8, oplx_A8, oplx_A8, oplx_A8, oplx_A8,
oplx_B0, oplx_B0, oplx_B0, oplx_B0, oplx_B0, oplx_B0, oplx_B0, oplx_B0,
oplx_B8, oplx_B8, oplx_B8, oplx_B8, oplx_B8, oplx_B8, oplx_B8, oplx_B8,
oplx_C0, oplx_C0, oplx_C0, oplx_C0, oplx_C0, oplx_C0, oplx_C0, oplx_C0,
oplx_C8, oplx_C8, oplx_C8, oplx_C8, oplx_C8, oplx_C8, oplx_C8, oplx_C8,
oplx_D0, oplx_D0, oplx_D0, oplx_D0, oplx_D0, oplx_D0, oplx_D0, oplx_D0,
oplx_D8, oplx_D8, oplx_D8, oplx_D8, oplx_D8, oplx_D8, oplx_D8, oplx_D8,
oplx_E0, oplx_E0, oplx_E0, oplx_E0, oplx_E0, oplx_E0, oplx_E0, oplx_E0,
oplx_E8, oplx_E8, oplx_E8, oplx_E8, oplx_E8, oplx_E8, oplx_E8, oplx_E8,
oplx_F0, oplx_F0, oplx_F0, oplx_F0, oplx_F0, oplx_F0, oplx_F0, oplx_F0,
oplx_F8, oplx_F8, oplx_F8, oplx_F8, oplx_F8, oplx_F8, oplx_F8, oplx_F8,
};
// offsets to b,c,d,e,h,l,trash,a from cpu.c
static const unsigned reg_offset[] =
{
(offsetof(TZ80State, b) - offsetof(TZ80State, c)),
(offsetof(TZ80State, c) - offsetof(TZ80State, c)),
(offsetof(TZ80State, d) - offsetof(TZ80State, c)),
(offsetof(TZ80State, e) - offsetof(TZ80State, c)),
(offsetof(TZ80State, h) - offsetof(TZ80State, c)),
(offsetof(TZ80State, l) - offsetof(TZ80State, c)),
(offsetof(TZ80State, trash) - offsetof(TZ80State, c)),
(offsetof(TZ80State, a) - offsetof(TZ80State, c))
};
static_assert((offsetof(TZ80State, b) - offsetof(TZ80State, c)) == 1, "bad offset b->c");
static_assert((offsetof(TZ80State, c) - offsetof(TZ80State, c)) == 0, "bad offset c->c");
static_assert((offsetof(TZ80State, d) - offsetof(TZ80State, c)) == 5, "bad offset d->c");
static_assert((offsetof(TZ80State, e) - offsetof(TZ80State, c)) == 4, "bad offset e->c");
static_assert((offsetof(TZ80State, h) - offsetof(TZ80State, c)) == 9, "bad offset h->c");
static_assert((offsetof(TZ80State, l) - offsetof(TZ80State, c)) == 8, "bad offset l->c");
static_assert((offsetof(TZ80State, trash) - offsetof(TZ80State, c)) == 2, "bad offset trash->c");
static_assert((offsetof(TZ80State, a) - offsetof(TZ80State, c)) == 13, "bad offset a->c");
//#endif
//#ifndef Z80_COMMON
Z80INLINE void Z80FAST ddfd(Z80 *cpu, unsigned char opcode)
{
unsigned char op1; // last DD/FD prefix
do {
op1 = opcode;
opcode = cpu->m1_cycle();
} while ((opcode | 0x20) == 0xFD); // opcode == DD/FD
if (opcode == 0xCB) {
unsigned ptr; // pointer to DDCB operand
ptr = unsigned(int((op1 == 0xDD) ? cpu->ix:cpu->iy) + i8(cpu->MemIf->xm(cpu->pc++)));
cpu->memptr = ptr;
// DDCBnnXX,FDCBnnXX increment R by 2, not 3!
opcode = cpu->m1_cycle(); cpu->r_low--;
unsigned char byte = (logic_ix_opcode[opcode])(cpu, cpu->MemIf->rm(ptr));
if ((opcode & 0xC0) == 0x40) { cpu->t += 8; return; } // bit n,rm
// select destination register for shift/res/set
*(&cpu->c + reg_offset[opcode & 7]) = byte;
cpu->MemIf->wm(ptr, byte);
cpu->t += 11;
return;
}
if (opcode == 0xED) {
opcode = cpu->m1_cycle();
(ext_opcode[opcode])(cpu);
return;
}
// one prefix: DD/FD
((op1 == 0xDD) ? ix_opcode[opcode] : iy_opcode[opcode])(cpu);
}
Z80OPCODE op_DD(Z80 *cpu)
{
ddfd(cpu, 0xDD);
}
Z80OPCODE op_FD(Z80 *cpu)
{
ddfd(cpu, 0xFD);
}
//#endif