Subversion Repositories 1664

#include "cpu_1664.h"

n1 cpu_1664_asm_opera_parametre_funsiona__m(struct cpu_1664 *cpu, struct lista *lista)

{

 const n1 sinia_m[] = {cpu_1664_asm_table_sinia_m};

 struct lista *m;

 nN lista_cuantia=lista->contador/sizeof(P);

 nN indise_m;

 n1 bitio_ajusta=0;

 n1 bitio_estende=0;

 n1 bitio_ordina=0;

 n1 bitio_orienta=0;

 nN estende;

 nN Ar=-1;

 if(lista_cuantia==0)

 {

  cadena__f((P)scrive_stdout, "eror ylr -\n");

  cpu->asm_eror=1;

  return 0;

 }

 else

 {

  if((((struct lista **)(lista->datos))[lista_cuantia-1])->datos[0]!='[')

  {

   estende=cpu_1664_asm_n8_valua__lista(cpu,((struct lista **)(lista->datos))[lista_cuantia-1]);

   indise_m=lista_cuantia-2;

  }

  else

  {

   estende=sizeof(cpu_1664_sinia_t);

   indise_m=lista_cuantia-1;

  }

  m=((struct lista **)(lista->datos))[indise_m];

  nN i=1;

  nN j;

  while(m->datos[i]!=']')

  {

   switch(m->datos[i])

   {

    default:

     if(bitio_ajusta==0) bitio_ordina=1;

     for(j=0; sinia_m[m->datos[i+j]]==1; j++) { }

     Ar=(cpu_1664_asm_n8_valua__cadena(cpu, m->datos+i, j));

     i+=j;

     break;

    case '+':

     bitio_ajusta=1;

     bitio_orienta=1;

     i++;

     break;

    case '-':

     bitio_ajusta=1;

     i++;

     break;

    case ',':

    case 0x09:

    case ' ':

     i++;

     break;

   }

  }

  if(bitio_ajusta==0)

  {

   bitio_orienta=0;

   bitio_ordina=0;

  }

  switch(estende)

  {

   default:

    bitio_estende=4;

    break;

   case 8:

    bitio_estende=3;

    break;

   case 4:

    bitio_estende=2;

    break;

   case 2:

    bitio_estende=1;

    break;

   case 1:

    bitio_estende=0;

    break;

  }

  if((Ar>=(1<<cpu_1664_opera_ldm_sinia))||(bitio_estende>3))

  {

   cadena__f((P)scrive_stdout, "eror ylr [%x] %x\n",Ar,1<<bitio_estende);

   cpu->asm_eror=1;

   return 0;

  }

  else

  {

   n1 bait= Ar|(bitio_estende<<cpu_1664_opera_ldm_bitio_estende0)|\

        (bitio_ajusta<<cpu_1664_opera_ldm_bitio_ajusta)|\

        (bitio_ordina<<cpu_1664_opera_ldm_bitio_ordina)|\

        (bitio_orienta<<cpu_1664_opera_ldm_bitio_orienta);

   return bait;

  }

 }

}