Subversion Repositories 1664

#include "cpu_1664.h"
 
void cpu_1664_asm_asm_model__lista(struct cpu_1664 *cpu, struct lista *model, struct lista *lista_parametre, nN indise_desloca)
{
 const n1 sinia_braso_clui[] = {cpu_1664_asm_table_clui};
 nN indise_limite=lista_parametre->contador/sizeof(P);
 
 if(model!=0)
 {
  struct lista *lista;
  struct lista *lista_inisial=lista_nova(256);
  struct lista *lista_redise=lista_nova(256);
 
 
  lista=lista_inisial;
 
  nN k;
  n8 valua;
  nN indise;
 
  nN j=0;
  while(j<model->contador)
  {
 
   switch(model->datos[j])
   {
    default:
     lista_ajunta__dato(lista, model->datos[j++]);
     break;
 
    case '\\':
     j++;
     if(model->datos[j-2]!='\\')
     {
      lista_ajunta__dato(lista, model->datos[j++]);
     }
     break;
 
 
    case cpu_1664_asm_sinia_model_opera:
     j++;
 
     switch(model->datos[j])
     {
      default:
       lista_ajunta__dato(lista, cpu_1664_asm_sinia_model_opera);
       lista_ajunta__dato(lista, model->datos[j++]);
       break;
 
      case '@': //asm_desloca
       lista_ajunta__ccadena(lista, "0x");
       lista_ajunta_asciiexadesimal__n8(lista, cpu->lista_imaje_asm->contador);
       j++;
       break;
 
      case 'c': //parametre contador
       lista_ajunta__ccadena(lista, "0x");
       lista_ajunta_asciiexadesimal__n8(lista, indise_limite-1);
       j++;
       break;
 
      case '0':
      case '1':
      case '2':
      case '3':
      case '4':
      case '5':
      case '6':
      case '7':
      case '8':
      case '9':
       indise=indise_desloca+(model->datos[j]&0x0f);
       if(indise<indise_limite) { lista_ajunta__datos(lista, ((struct lista **)(lista_parametre->datos))[indise]->datos,((struct lista **)(lista_parametre->datos))[indise]->contador); }
       j++;
       break;
 
      case '{': //parametre sustitua
       k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
       indise=indise_desloca+cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
       if(indise<indise_limite) { lista_ajunta__datos(lista, ((struct lista **)(lista_parametre->datos))[indise]->datos,((struct lista **)(lista_parametre->datos))[indise]->contador); }
       j+=k;
       break;
     }
     break;
   }
  }
  j=1;
  model=lista_inisial;
  lista=lista_redise;
  while(j<model->contador-1)
  {
 
   switch(model->datos[j])
   {
    default:
     lista_ajunta__dato(lista, model->datos[j++]);
     break;
 
    case cpu_1664_asm_sinia_model_opera:
     j++;
 
     if(model->datos[j-2]!='\\')
     {
 
      switch(model->datos[j])
      {
       default:  //parametre sustitua
        indise=indise_desloca+(model->datos[j]&0x0f);
        if(indise<indise_limite) { lista_ajunta__datos(lista, ((struct lista **)(lista_parametre->datos))[indise]->datos,((struct lista **)(lista_parametre->datos))[indise]->contador); }
        j++;
        break;
 
       case '-': //comenta si evalua no zero
        j++;
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        valua=cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        if(valua!=0) { lista_ajunta__dato(lista, cpu_1664_asm_sinia_comenta); }
        j+=k;
        break;
 
       case '+': //comenta si evalua zero
        j++;
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        valua=cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        if(valua==0) { lista_ajunta__dato(lista, cpu_1664_asm_sinia_comenta); }
        j+=k;
        break;
 
       case '>': //avansa 1 si evalua no zero
        j++;
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        valua=cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        j+=k+(valua!=0);
        break;
 
       case '.':
        j++;
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        valua=cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        if(valua!=0) 
        { 
         j=model->contador; 
        }
        else
        {
         j+=k;
        }
        break;
 
       case '!':
        j++;
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        valua=cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        j+=k;
        while(model->datos[j]!='"') { j++; }
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
 
        if(valua!=0) 
        { 
         cpu->asm_eror=1;
         cadena__f((P)scrive_stdout,"%*s\n", k-2, model->datos+j+1);
         j=model->contador; 
        }
        else
        {
         j+=k;
        }
        break;
 
       case 'I': //informa
        j++;
        while(model->datos[j]!='"') { j++; }
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        cadena__f((P)scrive_stdout,"%*s\n", k-2, model->datos+j+1);
        j+=k;
        break;
 
       case '{': //parametre sustitua
        k=nN_cuantia_brasetida__cadena(model->datos+j, model->datos[j], sinia_braso_clui[model->datos[j]]);
        indise=indise_desloca+cpu_1664_asm_n8_valua__cadena(cpu, model->datos+j, k);
        if(indise<indise_limite) { lista_ajunta__datos(lista, ((struct lista **)(lista_parametre->datos))[indise]->datos,((struct lista **)(lista_parametre->datos))[indise]->contador); }
        j+=k;
        break;
      }
     }
     break;
   }
  }
 
  cpu_1664_asm_ajunta__cadena(cpu, lista->datos, lista->contador);
  lista_libri(lista_inisial);
  lista_libri(lista_redise);
 }
 
}