Subversion Repositories 1664

#include "cpu_1664.h"

void cpu_1664_asm_ajunta__cadena(struct cpu_1664 *cpu, n1 *cadena, nN cuantia)

{

 const n1 sinia_braso_clui[] = {cpu_1664_asm_table_clui};

 const n1 sinia_braso_inclui[] ={cpu_1664_asm_table_sinia_inclui_brasos};

 struct lista *lista_parametre;

 n1 *fini=cadena+cuantia;

 n1 *cadena_;

 struct lista *lista_eticeta_cadena;

 nN i;

 struct lista *model_cadena;

 cpu_1664_asm_sinia_t sinia;

 while(cadena<fini)

 {

  if(cpu->asm_eror!=0)

  {

   break;

  }

  cpu->asm_eror=0;

  switch(*cadena)

  {

   default:

    lista_parametre=cpu_1664_asm_lista_parametre__cadena(cadena);

    sinia=cpu_1664_asm_sinia_t_sinia__cadena(((struct lista **)(lista_parametre->datos))[0]->datos,((struct lista **)(lista_parametre->datos))[0]->contador);

    for(model_cadena=0, i=0;i<cpu->lista_model_sinia->contador/sizeof(cpu_1664_asm_sinia_t);i++)

    {

     if(((cpu_1664_asm_sinia_t *)(cpu->lista_model_sinia->datos))[i]==sinia)

     {

      model_cadena=((struct lista **)(cpu->lista_model->datos))[i]; break;

     }

    }

    if(model_cadena!=0)

    {

     cpu_1664_asm_asm_model__lista(cpu, model_cadena, lista_parametre, 1);

     while((*cadena!=cpu_1664_asm_sinia_fini)&&(*(cadena-1)!='\\')&&(cadena<fini))

     {

      switch(*cadena)

      {

       default:

        cadena++;

        break;

       case '"':

       case '[':

       case '(':

       case '{':

        cadena+=nN_cuantia_brasetida__cadena(cadena, *cadena, sinia_braso_clui[*cadena]);

        break;

      }

     }

    }

    else

    {

     cpu_1664_asm_asm_opera__lista_2(cpu, lista_parametre);

     while((*cadena!=cpu_1664_asm_sinia_fini)&&(cadena<fini)) { cadena++; }

    }

    lista_2_libri(lista_parametre);

    break;

   case cpu_1664_asm_sinia_comenta:

    while((*cadena!=cpu_1664_asm_sinia_fini)&&(cadena<fini)) { cadena++; }

    break;

   //case 0x0a:

   case cpu_1664_asm_sinia_fini:

   case 0x09:

   case ' ':

    cadena++;

    break;

   case cpu_1664_asm_sinia_opera:

    cadena++;

    cpu_1664_asm_asm_opera__cadena(cpu, cadena);

    while((*cadena!=cpu_1664_asm_sinia_fini)&&(cadena<fini)) { cadena++; }

    break;

   case cpu_1664_asm_sinia_eticeta:

    cadena_=++cadena;

    while((sinia_braso_inclui[*cadena]==1)&&(cadena<fini)) { cadena++; }

    cpu_1664_asm_defina_valua(cpu, cpu_1664_asm_sinia_t_sinia__cadena(cadena_,cadena-cadena_), cpu->lista_imaje_asm->contador);

    lista_libri(cpu->lista_eticeta_cadena);

    cpu->lista_eticeta_cadena=lista_nova__datos(cadena_, cadena-cadena_);

    break;

   case cpu_1664_asm_sinia_eticeta_su:

    cadena_=cadena;

    while((sinia_braso_inclui[*cadena]==1)&&(cadena<fini)) { cadena++; }

    lista_eticeta_cadena=lista_nova__lista(cpu->lista_eticeta_cadena);

    lista_ajunta__datos(lista_eticeta_cadena, cadena_, cadena-cadena_);

    cpu_1664_asm_defina_valua(cpu, cpu_1664_asm_sinia_t_sinia__cadena(lista_eticeta_cadena->datos, lista_eticeta_cadena->contador), cpu->lista_imaje_asm->contador);

    lista_libri(lista_eticeta_cadena);

    break;

   case '{': //pasaladal ".m"

    cpu_1664_asm_asm_comanda__m(cpu, cadena);

    cadena+=nN_cuantia_brasetida__cadena(cadena, *cadena, sinia_braso_clui[*cadena]);

    while((*cadena!=cpu_1664_asm_sinia_fini)&&(*(cadena-1)!='\\')&&(cadena<fini))

    {

     switch(*cadena)

     {

      default:

       cadena++;

       break;

      case '"':

      case '[':

      case '(':

      case '{':

       cadena+=nN_cuantia_brasetida__cadena(cadena, *cadena, sinia_braso_clui[*cadena]);

       break;

     }

    }

    break;

   case cpu_1664_asm_sinia_comanda:

    cpu_1664_asm_asm_comanda(cpu, cadena+1);

    while((*cadena!=cpu_1664_asm_sinia_fini)&&(*(cadena-1)!='\\')&&(cadena<fini))

    {

     switch(*cadena)

     {

      default:

       cadena++;

       break;

      case '"':

      case '[':

      case '(':

      case '{':

       cadena+=nN_cuantia_brasetida__cadena(cadena, *cadena, sinia_braso_clui[*cadena]);

       break;

     }

    }

    break;

  }

 }

// taxe

 if(cpu->lista_taxe->contador!=0)

 {

  nN i;

  cpu_1664_sinia_t desloca_;

  struct lista *lista_taxe_=lista_nova(0);

  struct cpu_1664_asm_taxe *taxe;

  for(i=0;i<cpu->lista_taxe->contador/sizeof(P);i++)

  {

   cpu->avisa__no_definida=0;

   taxe=((struct cpu_1664_asm_taxe *)((struct lista **)(cpu->lista_taxe->datos))[i]);

   desloca_=cpu->lista_imaje_asm->contador;

   cpu->lista_imaje_asm->contador=taxe->desloca;

   taxe->parola=(taxe->parola&0xff)|taxe->asm_opera_parametre_funsiona(cpu, taxe->lista)<<8;

   *((cpu_1664_opera_t *)(cpu->lista_imaje_asm->datos+taxe->desloca))=taxe->parola;

   if(cpu->avisa__no_definida!=0)

   {

//    cadena__f((P)scrive_stdout, "avisa : taxe [%.*x] no definida\n",8,taxe->desloca);

    lista_ajunta__P(lista_taxe_, (P)taxe);

   }

   else

   {

    lista_2_libri(taxe->lista);

    memoria_libri((P)taxe);

   }

   cpu->lista_imaje_asm->contador=desloca_;

  }

  lista_libri(cpu->lista_taxe);

  cpu->lista_taxe=lista_taxe_;

 }

// taxe_d

 if(cpu->lista_taxe_d->contador!=0)

 {

  struct lista *lista_taxe_d_=lista_nova(0);

  struct cpu_1664_asm_taxe_d *taxe_d;

  cpu_1664_sinia_t valua[1];

  nN i,j;

  for(i=0;i<cpu->lista_taxe_d->contador/sizeof(P);i++)

  {

   cpu->avisa__no_definida=0;

   taxe_d=((struct cpu_1664_asm_taxe_d *)((struct lista **)(cpu->lista_taxe_d->datos))[i]);

   valua[0]=cpu_1664_asm_n8_valua__lista(cpu, taxe_d->lista);

   for(j=0;j<taxe_d->cuantia;j++)

   {

    ((n1 *)(cpu->lista_imaje_asm->datos+taxe_d->desloca))[j]=((n1 *)(valua))[j];

   }

   if(cpu->avisa__no_definida!=0)

   {

//    cadena__f((P)scrive_stdout, "avisa : taxe_d [%.*x] no definida\n",8,taxe_d->desloca);

    lista_ajunta__P(lista_taxe_d_, (P)taxe_d);

   }

   else

   {

    lista_libri(taxe_d->lista);

    memoria_libri((P)taxe_d);

   }

  }

  lista_libri(cpu->lista_taxe_d);

  cpu->lista_taxe_d=lista_taxe_d_;

 }

}