Archipelago » qemu

   p[0] = tget32(addr + 4);

   p[1] = tget32(addr); /* sign & exponent */

#endif

static inline

void loadExtended(const unsigned int Fn,const unsigned int *pMem)

   p[0] = tget32(addr);  /* sign & exponent */

   p[1] = tget32(addr + 8);  /* ls bits */

   p[2] = tget32(addr + 4);  /* ms bits */

static inline

void loadMultiple(const unsigned int Fn,const unsigned int *pMem)

   p = (unsigned int*)&(fpa11->fpreg[Fn]);

   x = tget32(addr);

   fpa11->fType[Fn] = (x >> 14) & 0x00000003;

   switch (fpa11->fType[Fn])

   {

      case typeSingle:

         p[2] = 0;        /* empty */

      }

      break;

      case typeExtended:

      {

         p[1] = tget32(addr + 8);

         p[2] = tget32(addr + 4);  /* msw */

      }

      break;

   }

   FPA11 *fpa11 = GET_FPA11();

   float32 val;

   register unsigned int *p = (unsigned int*)&val;

   switch (fpa11->fType[Fn])

   {

      case typeDouble:

      default: val = fpa11->fpreg[Fn].fSingle;

   }

   tput32(addr, p[0]);

static inline

void storeDouble(const unsigned int Fn,unsigned int *pMem)

   tput32(addr, p[1]);	/* msw */

   tput32(addr + 4, p[0]);	/* lsw */

#endif

static inline

void storeExtended(const unsigned int Fn,unsigned int *pMem)

   FPA11 *fpa11 = GET_FPA11();

   floatx80 val;

   register unsigned int *p = (unsigned int*)&val;

   switch (fpa11->fType[Fn])

   {

      case typeSingle:

      default: val = fpa11->fpreg[Fn].fExtended;

   }

   tput32(addr, p[0]); /* sign & exp */

   tput32(addr + 8, p[1]);

   tput32(addr + 4, p[2]); /* msw */

static inline

void storeMultiple(const unsigned int Fn,unsigned int *pMem)

   target_ulong addr = (target_ulong)(long)pMem;

   FPA11 *fpa11 = GET_FPA11();

   register unsigned int nType, *p;

   p = (unsigned int*)&(fpa11->fpreg[Fn]);

   nType = fpa11->fType[Fn];

   switch (nType)

   {

      case typeSingle:

	 tput32(addr, nType << 14);

      }

      break;

      case typeExtended:

      {

	 tput32(addr + 4, p[2]); /* msw */

      case TRANSFER_EXTENDED: loadExtended(getFd(opcode),pAddress); break;

      default: nRc = 0;

   }

   if (write_back) writeRegister(getRn(opcode),(unsigned int)pFinal);

   return nRc;

}

{

   unsigned int *pBase, *pAddress, *pFinal, nRc = 1,

     write_back = WRITE_BACK(opcode);

   //printk("PerformSTF(0x%08x), Fd = 0x%08x\n",opcode,getFd(opcode));

   SetRoundingMode(ROUND_TO_NEAREST);

   pBase = (unsigned int*)readRegister(getRn(opcode));

   if (REG_PC == getRn(opcode))

   {

      case TRANSFER_EXTENDED: storeExtended(getFd(opcode),pAddress); break;

      default: nRc = 0;

   }

   if (write_back) writeRegister(getRn(opcode),(unsigned int)pFinal);

   return nRc;

}

{

   unsigned int i, Fd, *pBase, *pAddress, *pFinal,

     write_back = WRITE_BACK(opcode);

   pBase = (unsigned int*)readRegister(getRn(opcode));

   if (REG_PC == getRn(opcode))

   {

     pBase += 2;

     write_back = 0;

   }

   pFinal = pBase;

   if (BIT_UP_SET(opcode))

     pFinal += getOffset(opcode);

  unsigned int nRc = 0;

  //printk("EmulateCPDT(0x%08x)\n",opcode);

  if (LDF_OP(opcode))

  {

    nRc = PerformLDF(opcode);

  {

    nRc = 0;

  }

  return nRc;

}

#endif