Subversion Repositories 1664

#include "cpu_1664.h"

void cpu_1664_opera__mul(struct cpu_1664 *cpu, n1 bait)

{

 cpu->opera_sicle=cpu_1664_sicle_opera_mul;

 #define sz_sinia sizeof(cpu_1664_sinia_t)

 #define masca_di ((((cpu_1664_sinia_t)(-1))>>((sz_sinia*4)-1))>>1)

 #define desloca_di ((sz_sinia*4)-1)

 n1 rd=bait&((1<<cpu_1664_bitio_rd)-1);

 n1 rf=bait>>cpu_1664_bitio_rd;

 cpu_1664_sinia_t A=cpu->sinia[rd];

 cpu_1664_sinia_t B=cpu->sinia[rf];

#ifdef ojeto_64

 cpu_1664_sinia_t m0=(A&masca_di)*(B&masca_di);

 cpu_1664_sinia_t m1=(A&masca_di)*((B>>desloca_di)>>1);

 cpu_1664_sinia_t m2=((A>>desloca_di)>>1)*(B&masca_di);

 cpu_1664_sinia_t m3=((A>>desloca_di)>>1)*((B>>desloca_di)>>1);

 cpu_1664_sinia_t masima = m3 + ((m1>>desloca_di)>>1) + ((m2>>desloca_di)>>1);

 cpu_1664_sinia_t minima = m0 + ((m1<<desloca_di)<<1);

 masima+=(minima<m0);

 minima+=((m2<<desloca_di)<<1);

 masima+=(minima<((m2<<desloca_di)<<1));

#endif

#ifdef ojeto_32

n8 produi=A*B;

cpu_1664_sinia_t masima = ((produi>>31)>>1);

cpu_1664_sinia_t minima = produi&0xffffffff;

#endif

#ifdef ojeto_16

n4 produi=A*B;

cpu_1664_sinia_t masima = (produi>>16);

cpu_1664_sinia_t minima = produi&0xffff;

#endif

#ifdef ojeto_8

n2 produi=A*B;

cpu_1664_sinia_t masima = (produi>>8);

cpu_1664_sinia_t minima = produi&0xff;

#endif

 {

 //?salva

 cpu->sinia[cpu_1664_sinia_masima]=masima;

 cpu->sinia[cpu_1664_sinia_minima]=minima;

 }

 cpu_1664_sinia_t desloca_masima;

 cpu_1664_sinia_t desloca_minima=0;

 cpu_1664_sinia_t masca;

 nN i;

 for(masca=-1, i=0;((masima&masca)!=0);i++)

 {

  masca<<=1;

 }

 desloca_masima=(sizeof(cpu_1664_sinia_t)*8)-i;

 if(desloca_masima==(sz_sinia*8))

 {

  for(masca=-1, i=0; ((minima&masca)!=0); i++)

  {

   masca<<=1;

  }

  desloca_minima=(sizeof(cpu_1664_sinia_t)*8)-i;

 }

#ifdef ojeto_32

 masima<<=desloca_masima;

 minima>>=(sz_sinia*8)-desloca_masima;

 minima<<=desloca_minima;

#endif

#ifdef ojeto_64 

 //x86-64

// nN i;

 for(i=desloca_masima;i>desloca_di;i-=desloca_di)

 {

  masima<<=desloca_di;

 }

 masima<<=i;

 for(i=(sz_sinia*8)-desloca_masima;i>desloca_di;i-=desloca_di)

 {

  minima>>=desloca_di;

 }

 minima>>=i;

 for(i=desloca_minima;i>desloca_di;i-=desloca_di)

 {

  minima<<=desloca_di;

 }

 minima<<=i;

#endif

 cpu->sinia[cpu_1664_sinia_desloca]+=desloca_masima+desloca_minima-sizeof(cpu_1664_sinia_t)*8;

 cpu->sinia[rd]=masima|minima; //x86-64

 if (cpu->depende[cpu_1664_depende_bitio_depende_influe]!=0)

 {

  cpu->depende[cpu_1664_depende_z] = (cpu->sinia[rd]==0);

  cpu->depende[cpu_1664_depende_n] = cpu->depende[cpu_1664_depende_z]==0;

 }

}