/** fMSX: portable MSX emulator ******************************/
/**                                                         **/
/**                         CodesED.h                       **/
/**                                                         **/
/** This file contains implementation for the ED table of   **/
/** Z80 commands. It is included from Z80.c.                **/
/**                                                         **/
/** Copyright (C) Marat Fayzullin 1994,1995                 **/
/**     You are not allowed to distribute this software     **/
/**     commercially. Please, notify me, if you make any    **/
/**     changes to this file.                               **/
/*************************************************************/

case ADC_HL_BC: M_ADCW(BC);break;
case ADC_HL_DE: M_ADCW(DE);break;
case ADC_HL_HL: M_ADCW(HL);break;
case ADC_HL_SP: M_ADCW(SP);break;

case SBC_HL_BC: M_SBCW(BC);break;
case SBC_HL_DE: M_SBCW(DE);break;
case SBC_HL_HL: M_SBCW(HL);break;
case SBC_HL_SP: M_SBCW(SP);break;

case LD_xWORDe_HL:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  M_WRMEM(J.W,R.HL.B.l);J.W++;
  M_WRMEM(J.W,R.HL.B.h);
  break;
case LD_xWORDe_DE:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  M_WRMEM(J.W,R.DE.B.l);J.W++;
  M_WRMEM(J.W,R.DE.B.h);
  break;
case LD_xWORDe_BC:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  M_WRMEM(J.W,R.BC.B.l);J.W++;
  M_WRMEM(J.W,R.BC.B.h);
  break;
case LD_xWORDe_SP:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  M_WRMEM(J.W,R.SP.B.l);J.W++;
  M_WRMEM(J.W,R.SP.B.h);
  break;

case LD_HL_xWORDe:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  R.HL.B.l=*(Addr+(J.W++));
  R.HL.B.h=*(Addr+J.W);
  break;
case LD_DE_xWORDe:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  R.DE.B.l=*(Addr+(J.W++));
  R.DE.B.h=*(Addr+J.W);
  break;
case LD_BC_xWORDe:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  R.BC.B.l=*(Addr+(J.W++));
  R.BC.B.h=*(Addr+J.W);
  break;
case LD_SP_xWORDe:
  J.B.l=*(Addr+(R.PC.W++));
  J.B.h=*(Addr+(R.PC.W++));
  R.SP.B.l=*(Addr+(J.W++));
  R.SP.B.h=*(Addr+J.W);
  break;

case RRD:
  I=*(Addr+R.HL.W);
  J.B.l=(I>>4)|(R.AF.B.h<<4);
  M_WRMEM(R.HL.W,J.B.l);
  R.AF.B.h=(I&0x0F)|(R.AF.B.h&0xF0);
  R.AF.B.l=
    PTable[R.AF.B.h]|(R.AF.B.l&C_FLAG)|
    (R.AF.B.h? 0:Z_FLAG)|(R.AF.B.h&S_FLAG);
  break;
case RLD:
  I=*(Addr+R.HL.W);
  J.B.l=(I<<4)|(R.AF.B.h&0x0F);
  M_WRMEM(R.HL.W,J.B.l);
  R.AF.B.h=(I>>4)|(R.AF.B.h&0xF0);
  R.AF.B.l=
    PTable[R.AF.B.h]|(R.AF.B.l&C_FLAG)|
    (R.AF.B.h? 0:Z_FLAG)|(R.AF.B.h&S_FLAG);
  break;

case LD_A_I:
  R.AF.B.h=R.I;
  R.AF.B.l=
    (R.AF.B.l&C_FLAG)|(R.IFF&1? P_FLAG:0)|
    (R.AF.B.h? 0:Z_FLAG)|(R.AF.B.h&S_FLAG);
  break;

case LD_A_R:
#ifdef INTERRUPTS
  R.AF.B.h=(byte)(-Cnt&0xFF);
#endif
  R.AF.B.l=
    (R.AF.B.l&C_FLAG)|(R.IFF&1? P_FLAG:0)|
    (R.AF.B.h? 0:Z_FLAG)|(R.AF.B.h&S_FLAG);
  break;

case LD_I_A:   R.I=R.AF.B.h;break;
case LD_R_A:   break;

case IM_0:     R.IFF&=0xF9;break;
case IM_1:     R.IFF=(R.IFF&0xF9)|2;break;
case IM_2:     R.IFF=(R.IFF&0xF9)|4;break;

case RETI:     R.IFF|=1;M_RET;break;
case RETN:     R.IFF|=1;M_RET;break;

case NEG:      I=R.AF.B.h;R.AF.B.h=0;M_SUB(I);break;

case IN_B_xC:  M_IN(R.BC.B.h);break;
case IN_C_xC:  M_IN(R.BC.B.l);break;
case IN_D_xC:  M_IN(R.DE.B.h);break;
case IN_E_xC:  M_IN(R.DE.B.l);break;
case IN_H_xC:  M_IN(R.HL.B.h);break;
case IN_L_xC:  M_IN(R.HL.B.l);break;
case IN_A_xC:  M_IN(R.AF.B.h);break;
case IN_F_xC:  M_IN(J.B.l);break;

case OUT_xC_B: DoOut(R.BC.B.l,R.BC.B.h);break;
case OUT_xC_C: DoOut(R.BC.B.l,R.BC.B.l);break;
case OUT_xC_D: DoOut(R.BC.B.l,R.DE.B.h);break;
case OUT_xC_E: DoOut(R.BC.B.l,R.DE.B.l);break;
case OUT_xC_H: DoOut(R.BC.B.l,R.HL.B.h);break;
case OUT_xC_L: DoOut(R.BC.B.l,R.HL.B.l);break;
case OUT_xC_A: DoOut(R.BC.B.l,R.AF.B.h);break;

case INI:
  M_WRMEM(R.HL.W,DoIn(R.BC.B.l));R.HL.W++;R.BC.B.h--;
  R.AF.B.l=N_FLAG|(R.BC.B.h? 0:Z_FLAG);
  break;

case INIR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.B.h)? Cnt-R.BC.B.h:1;
#endif
  do
  { M_WRMEM(R.HL.W,DoIn(R.BC.B.l));R.HL.W++;R.BC.B.h--; }
  while(R.BC.B.h);
  R.AF.B.l=Z_FLAG|N_FLAG;break;

case IND:
  M_WRMEM(R.HL.W,DoIn(R.BC.B.l));R.HL.W--;R.BC.B.h--;
  R.AF.B.l=N_FLAG|(R.BC.B.h? 0:Z_FLAG);
  break;

case INDR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.B.h)? Cnt-R.BC.B.h:1;
#endif
  do
  { M_WRMEM(R.HL.W,DoIn(R.BC.B.l));R.HL.W--;R.BC.B.h--; }
  while(R.BC.B.h);
  R.AF.B.l=Z_FLAG|N_FLAG;break;

case OUTI:
  DoOut(R.BC.B.l,*(Addr+(R.HL.W++)));R.BC.B.h--;
  R.AF.B.l=N_FLAG|(R.BC.B.h? 0:Z_FLAG);
  break;

case OTIR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.B.h)? Cnt-R.BC.B.h:1;
#endif
  do
  { DoOut(R.BC.B.l,*(Addr+(R.HL.W++)));R.BC.B.h--; }
  while(R.BC.B.h);
  R.AF.B.l=Z_FLAG|N_FLAG;break;

case OUTD:
  DoOut(R.BC.B.l,*(Addr+(R.HL.W--)));R.BC.B.h--;
  R.AF.B.l=N_FLAG|(R.BC.B.h? 0:Z_FLAG);
  break;

case OTDR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.B.h)? Cnt-R.BC.B.h:1;
#endif
  do
  { DoOut(R.BC.B.l,*(Addr+(R.HL.W--)));R.BC.B.h--; }
  while(R.BC.B.h);
  R.AF.B.l=Z_FLAG|N_FLAG;break;

case LDI:
  I=*(Addr+(R.HL.W++));M_WRMEM(R.DE.W,I);R.DE.W++;R.BC.W--;
  R.AF.B.l=(R.AF.B.l&~(N_FLAG|H_FLAG|P_FLAG))|(R.BC.W? P_FLAG:0);
  break;

case LDIR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.W)? Cnt-R.BC.W:1;
#endif
  do
  { I=*(Addr+(R.HL.W++));M_WRMEM(R.DE.W,I);R.DE.W++;R.BC.W--; }
  while(R.BC.W);
  R.AF.B.l&=~(N_FLAG|H_FLAG|P_FLAG);break;

case LDD:
  I=*(Addr+(R.HL.W--));M_WRMEM(R.DE.W,I);R.DE.W--;R.BC.W--;
  R.AF.B.l=(R.AF.B.l&~(N_FLAG|H_FLAG|P_FLAG))|(R.BC.W? P_FLAG:0);
  break;

case LDDR:
#ifdef INTERRUPTS
  Cnt=(Cnt>R.BC.W)? Cnt-R.BC.W:1;
#endif
  do
  { I=*(Addr+(R.HL.W--));M_WRMEM(R.DE.W,I);R.DE.W--;R.BC.W--; }
  while(R.BC.W);
  R.AF.B.l&=~(N_FLAG|H_FLAG|P_FLAG);break;

case CPI:
  I=*(Addr+(R.HL.W++));J.B.l=R.AF.B.h-I;R.BC.W--;
  R.AF.B.l=
    N_FLAG|(R.AF.B.l&C_FLAG)|(J.B.l? 0:Z_FLAG)|(J.B.l&S_FLAG)|
    ((R.AF.B.h^I^J.B.l)&H_FLAG)|(R.BC.W? P_FLAG:0);
  break;

case CPIR:
  do
  { I=*(Addr+(R.HL.W++));J.B.l=R.AF.B.h-I;R.BC.W--; }  
  while(R.BC.W&&J.B.l);
  R.AF.B.l=
    N_FLAG|(R.AF.B.l&C_FLAG)|(J.B.l? 0:Z_FLAG)|(J.B.l&S_FLAG)|
    ((R.AF.B.h^I^J.B.l)&H_FLAG)|(R.BC.W? P_FLAG:0);
  break;  

case CPD:
  I=*(Addr+(R.HL.W--));J.B.l=R.AF.B.h-I;R.BC.W--;
  R.AF.B.l=
    N_FLAG|(R.AF.B.l&C_FLAG)|(J.B.l? 0:Z_FLAG)|(J.B.l&S_FLAG)|
    ((R.AF.B.h^I^J.B.l)&H_FLAG)|(R.BC.W? P_FLAG:0);
  break;

case CPDR:
  do
  { I=*(Addr+(R.HL.W--));J.B.l=R.AF.B.h-I;R.BC.W--; }
  while(R.BC.W&&J.B.l);
  R.AF.B.l=
    N_FLAG|(R.AF.B.l&C_FLAG)|(J.B.l? 0:Z_FLAG)|(J.B.l&S_FLAG)|
    ((R.AF.B.h^I^J.B.l)&H_FLAG)|(R.BC.W? P_FLAG:0);
  break;