mmodes.h

#ifndef vml
#define vml static
#endif

vml inline rw32     GetEA_m2(ashort) AREGP;
vml inline rw32     GetEA_m5(ashort) AREGP;
vml inline rw32     GetEA_m6(ashort) AREGP;
vml inline rw32     GetEA_m7(ashort) AREGP;
vml inline rw32     GetEA_mBad(ashort) AREGP;

vml inline rw8      GetFromEA_b_m0(void);
vml inline rw8      GetFromEA_b_mBad(void);
vml inline rw8      GetFromEA_b_m2(void);
vml inline rw8      GetFromEA_b_m3(void);
vml inline rw8      GetFromEA_b_m4(void);
vml inline rw8      GetFromEA_b_m5(void);
vml inline rw8      GetFromEA_b_m6(void); 
vml inline rw8      GetFromEA_b_m7(void);

vml inline rw16     GetFromEA_w_m0(void);
vml inline rw16     GetFromEA_w_m1(void);
vml inline rw16     GetFromEA_w_m2(void);
vml inline rw16     GetFromEA_w_m3(void);
vml inline rw16     GetFromEA_w_m4(void);
vml inline rw16     GetFromEA_w_m5(void);
vml inline rw16     GetFromEA_w_m6(void);
vml inline rw16     GetFromEA_w_m7(void);

vml inline rw32     GetFromEA_l_m0(void);
vml inline rw32     GetFromEA_l_m1(void);
vml inline rw32     GetFromEA_l_m2(void);
vml inline rw32     GetFromEA_l_m3(void);
vml inline rw32     GetFromEA_l_m4(void);
vml inline rw32     GetFromEA_l_m5(void);
vml inline rw32     GetFromEA_l_m6(void);
vml inline rw32     GetFromEA_l_m7(void);

vml inline void PutToEA_b_m0(ashort,aw8) AREGP;
vml inline void PutToEA_b_mBad(ashort,aw8) AREGP;
vml inline void PutToEA_b_m2(ashort,aw8) AREGP;
vml inline void PutToEA_b_m3(ashort,aw8) AREGP;
vml inline void PutToEA_b_m4(ashort,aw8) AREGP;
vml inline void PutToEA_b_m5(ashort,aw8) AREGP;
vml inline void PutToEA_b_m6(ashort,aw8) AREGP;
vml inline void PutToEA_b_m7(ashort,aw8) AREGP;

vml inline void PutToEA_w_m0(ashort,aw16) AREGP;
vml inline void PutToEA_w_m1(ashort,aw16) AREGP;
vml inline void PutToEA_w_m2(ashort,aw16) AREGP;
vml inline void PutToEA_w_m3(ashort,aw16) AREGP;
vml inline void PutToEA_w_m4(ashort,aw16) AREGP;
vml inline void PutToEA_w_m5(ashort,aw16) AREGP;
vml inline void PutToEA_w_m6(ashort,aw16) AREGP;
vml inline void PutToEA_w_m7(ashort,aw16) AREGP;

vml inline void PutToEA_l_m0(ashort,aw32) AREGP;
vml inline void PutToEA_l_m1(ashort,aw32) AREGP;
vml inline void PutToEA_l_m2(ashort,aw32) AREGP;
vml inline void PutToEA_l_m3(ashort,aw32) AREGP;
vml inline void PutToEA_l_m4(ashort,aw32) AREGP;
vml inline void PutToEA_l_m5(ashort,aw32) AREGP;
vml inline void PutToEA_l_m6(ashort,aw32) AREGP;
vml inline void PutToEA_l_m7(ashort,aw32) AREGP;

vml inline Cond ccT(void);
vml inline Cond ccF(void);
vml inline Cond ccHI(void);
vml inline Cond ccLS(void);
vml inline Cond ccCC(void);
vml inline Cond ccCS(void);
vml inline Cond ccNE(void);
vml inline Cond ccEQ(void);
vml inline Cond ccVC(void);
vml inline Cond ccVS(void);
vml inline Cond ccPL(void);
vml inline Cond ccMI(void);
vml inline Cond ccGE(void);
vml inline Cond ccLT(void);
vml inline Cond ccGT(void);
vml inline Cond ccLE(void);

vml inline rw8 GetFromEA_b_m0(void)
{ 
  return (w8)(reg[code&7]);
}

vml rw8 GetFromEA_b_mBad(void)
{    
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
  return 0;
}


inline rw32 AREGP GetEA_m2(ashort r)
{   
  return  aReg[r];
}

inline rw32 AREGP GetEA_m5(ashort r)
{     
  return aReg[r]+(w16)RW(pc++);
}

rw32 AREGP GetEA_m6(ashort r)
{
  /*w16*/ shindex displ;

  displ=(w16)RW(pc++);
  if((displ&2048)!=0)
    return *(((w32*)((Ptr)reg+((displ>>10)&60)))) + aReg[r] + (w32)((w8)displ);
  /*        register access */
  return (w32) (*((w16*)((Ptr)reg+RWO+((displ>>10)&60)))) + aReg[r] + (w32)((w8)displ);
}

rw32 AREGP GetEA_m7(ashort r)
{   
  /*w16*/ shindex displ;
  switch(r) {
  case 0:displ=(w16)RW(pc++);
    return displ;
  case 1:pc+=2;
    return  RL((w32*)(pc-2));
  case 2:displ=(w16)RW(pc++);
    return (Ptr)pc-(Ptr)theROM-2+displ;
  case 3:
    displ=(w16)RW(pc++);
    if((displ&2048)!=0) return reg[(displ>>12) & 15]+
			  (Ptr)pc-(Ptr)theROM-2+(w32)((w8)displ);
    return (w32)((w16)(reg[(displ>>12) & 15]))+
      (Ptr)pc-(Ptr)theROM-2+(w32)((w8)displ);
  }
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
  return 0;
}

vml rw32 GetEA_m7_3(void)
{     
  /*w16*/ shindex displ;

  displ=(w16)RW(pc++);
  if((displ&2048)!=0) return reg[(displ>>12) & 15]
			+(Ptr)pc-(Ptr)theROM-2+(w32)((w8)displ);
  return (w32)((w16)(reg[(displ>>12) & 15]))+
    (Ptr)pc-(Ptr)theROM-2+(w32)((w8)displ);
}


vml inline rw8 GetFromEA_b_m2(void)
{    
  return inl_ReadByte(aReg[code&7]);
}

vml inline rw8 GetFromEA_b_m3(void)
{  
  register rw8 b;
  register shindex r;
  uw32 addr;
  
  r=code&7;
  addr=aReg[r]++;
  if(r==7) aReg[r]++;
  b=inl_ReadByte(addr);

  return b;
}

/* added as special case for cmpm */

vml inline rw8 GetFromEA_rb_m3(ashort r)
{  
  register rw8 b;
  uw32 addr;
  
  addr=aReg[r]++;
  if(r==7) aReg[r]++;
  b=inl_ReadByte(addr);

  return b;
}

vml inline rw16 GetFromEA_rw_m3(ashort r)
{  
  uw32 addr;

  addr=aReg[r];
  aReg[r]+=2; 
  
  return inl_ReadWord(addr);
}
vml inline rw32 GetFromEA_rl_m3(ashort r)
{  
  uw32 addr;
  
  addr=aReg[r];
  aReg[r]+=4;

  return inl_ReadLong(addr);
}
/****/

vml inline rw8 GetFromEA_b_m4(void)
{    
  register shindex r;
      
  r=code&7;
  if(r==7) aReg[r]--;
  return inl_ReadByte(--aReg[r]);
}

vml inline rw8 GetFromEA_b_m5(void)
{   
  return inl_ReadByte(aReg[code&7]+(w16)RW(pc++));
}

vml inline rw8 GetFromEA_b_m6(void)
{    
  return inl_ReadByte(GetEA_m6(code&7));
}

vml  rw8 GetFromEA_b_m7(void)
{   
  register w32 addr;

  switch(code&7){
  case 0:
    return ReadByte((w32)((w16)RW(pc++)));
  case 1:
    addr=RL((w32*)pc);
    pc+=2;
    return ReadByte(addr);
  case 2:
    addr=(w32)pc-(w32)theROM+(w16)RW(pc);
    pc++;
    return ReadByte(addr);
  case 3:
    return ReadByte(GetEA_m7_3());
  case 4:
    pc++;
    return RB((w8*)pc-1);
  }
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
  return 0;
}

vml inline rw16 GetFromEA_w_m0(void)
{    
  return (w16)(reg[code&7]);
}

vml inline rw16 GetFromEA_w_m1(void)
{    
  return (w16)(aReg[code&7]);
}

vml inline rw16 GetFromEA_w_m2(void)
{    
  return inl_ReadWord(aReg[code&7]);
}

vml inline rw16 GetFromEA_w_m3(void)
{   
  register rw16 t;
  register shindex r;
  uw32 addr;
  
  r=code&7;
  addr=aReg[r];
  aReg[r]+=2;
  t=inl_ReadWord(addr);

  return t;
}

vml inline rw16 GetFromEA_w_m4(void)
{    
  return inl_ReadWord(aReg[code&7]-=2);
}

vml inline rw16 GetFromEA_w_m5(void)
{    
  return inl_ReadWord(aReg[code&7]+(w16)RW(pc++));
}

vml rw16 GetFromEA_w_m6()
{   
  /*w16*/ shindex displ;
  displ=(w16)RW(pc++);
  return inl_ReadWord(((displ&2048)!=0)? 
		  (*((w32*)((Ptr)reg+((displ>>10)&60)))+
		     aReg[code&7]+(w32)((w8)displ)) :
		  (w32)*(((w16*)((Ptr)reg+RWO+((displ>>10)&60))))+
		     aReg[code&7]+(w32)((w8)displ));
}

vml rw16 GetFromEA_w_m7(void)
{      
  register w32 addr;

  switch(code&7){
  case 0:
    return inl_ReadWord((w32)((w16)RW(pc++)));
  case 1:
    addr=RL((w32*)pc);
    pc+=2;
    return inl_ReadWord(addr);
  case 2:
    addr=(w32)pc-(w32)theROM+(w16)RW(pc);
    pc++;
    return inl_ReadWord(addr);
  case 3:
    return inl_ReadWord(GetEA_m7_3());
  case 4:
    return (w16)RW(pc++);
  }
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
  return 0;
}

vml inline rw32 GetFromEA_l_m0(void)
{    
  return reg[code&7];
}

vml inline rw32 GetFromEA_l_m1(void)
{     
  return aReg[code&7];
}

vml inline rw32 GetFromEA_l_m2(void)
{     
  return inl_ReadLong(aReg[code&7]);
}

vml inline rw32 GetFromEA_l_m3(void)
{     
  register rw32 t;
  register shindex r;
  uw32 addr;
  
  r=code&7;
  addr=aReg[r];
  aReg[r]+=4;
  t=inl_ReadLong(addr);

  return t;
}

vml inline rw32 GetFromEA_l_m4(void)
{     
  return inl_ReadLong(aReg[code&7]-=4);
}

vml inline rw32 GetFromEA_l_m5(void)
{     
  return inl_ReadLong(aReg[code&7]+(w16)RW(pc++));
}

vml inline rw32 GetFromEA_l_m6(void)
{    
  return inl_ReadLong(GetEA_m6(code&7));
}

vml rw32 GetFromEA_l_m7(void)
{    
  register w32 addr;

  switch(code&7){
  case 0:
    return inl_ReadLong((w32)((w16)RW(pc++)));
  case 1:
    addr=RL((w32*) pc);/* *((w32*)pc); */
    pc+=2;
    return inl_ReadLong(addr);
  case 2:
    addr=(w32)pc-(w32)theROM+(w16)RW(pc);
    pc++;
    return inl_ReadLong(addr);
  case 3:
    return inl_ReadLong(GetEA_m7_3());
  case 4:
    pc+=2;
    return RL((w32*)(pc-2));
  }
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
  return 0;
}

vml void AREGP PutToEA_b_m0(ashort r,aw8 d)
{   
  *( (w8*)( (Ptr)(&(reg[r])) + RBO ) )=d;
}

vml void AREGP PutToEA_b_mBad(ashort r,aw8 d)
{    
  exception=4;
  extraFlag=true;
  nInst2=nInst;
  nInst=0;
}

vml inline void AREGP PutToEA_b_m2(ashort r,aw8 d)
{   
  inl_WriteByte(aReg[r],d);
}

vml inline void AREGP PutToEA_b_m3(ashort r,aw8 d)
{     
  uw32 addr=aReg[r];
  aReg[r]++;
  if(r==7) aReg[r]++;

  inl_WriteByte(addr,d);
}

vml inline void AREGP PutToEA_b_m4(ashort r,aw8 d)
{   
  if(r==7) aReg[r]--;
  inl_WriteByte(--aReg[r],d);
}

vml inline void AREGP PutToEA_b_m5(ashort r,aw8 d)
{    
  inl_WriteByte(aReg[r]+(w16)RW(pc++),d);
}

vml inline void AREGP PutToEA_b_m6(ashort r,aw8 d)
{   
  inl_WriteByte(GetEA_m6(r),d);
}

vml inline void AREGP PutToEA_b_m7(ashort r,aw8 d)
{     
  inl_WriteByte(GetEA_m7(r),d);
}

vml inline void AREGP PutToEA_w_m0(ashort r,aw16 d)
{
  *( (w16*)( (Ptr)(&(reg[r])) + RWO ) )=d; 
}

vml inline void AREGP PutToEA_w_m1(ashort r,aw16 d)
{   
  *( (w16*)( (Ptr)(&(aReg[r])) + RWO ) )=d; 
}

vml inline void AREGP PutToEA_w_m2(ashort r,aw16 d)
{     
  inl_WriteWord(aReg[r],d);
}

vml inline void AREGP PutToEA_w_m3(ashort r,aw16 d)
{     
  uw32 addr=aReg[r];

  aReg[r]+=2;
  inl_WriteWord(addr,d);
}

vml inline void AREGP PutToEA_w_m4(ashort r,aw16 d)
{    
  inl_WriteWord(aReg[r]-=2,d);
}

vml inline void AREGP PutToEA_w_m5(ashort r,aw16 d)
{     
  inl_WriteWord(aReg[r]+(w16)RW(pc++),d);
}

vml inline void AREGP PutToEA_w_m6(ashort r,aw16 d)
{     
  inl_WriteWord(GetEA_m6(r),d);
}

vml inline void AREGP PutToEA_w_m7(ashort r,aw16 d)
{    
  inl_WriteWord(GetEA_m7(r),d);
}

vml inline void AREGP PutToEA_l_m0(ashort r,aw32 d)
{     
  reg[r]=d;
}

vml inline void AREGP PutToEA_l_m1(ashort r,aw32 d)
{    
  aReg[r]=d;
}

vml inline void AREGP PutToEA_l_m2(ashort r,aw32 d)
{    
  inl_WriteLong(aReg[r],d);
}

vml inline void AREGP PutToEA_l_m3(ashort r,aw32 d)
{    
  uw32 addr=aReg[r];
  aReg[r]+=4;
  inl_WriteLong(addr,d);
}

vml inline void AREGP PutToEA_l_m4(ashort r,aw32 d)
{    
  inl_WriteLong(aReg[r]-=4,d);
}

vml inline void AREGP PutToEA_l_m5(ashort r,aw32 d)
{   
  inl_WriteLong(aReg[r]+(w16)RW(pc++),d);
}

vml inline void AREGP PutToEA_l_m6(ashort r,aw32 d)
{   
  inl_WriteLong(GetEA_m6(r),d);
}

vml inline void AREGP PutToEA_l_m7(ashort r,aw32 d)
{   
  inl_WriteLong(GetEA_m7(r),d);
}