Subversion Repositories 1664

#include "cpu_1664.h"

struct cpu_1664 * cpu_1664_nova(nN cuantia)

{

 struct cpu_1664 *cpu=(struct cpu_1664 *)memoria_nova(sizeof(struct cpu_1664));

 cpu->lista_imaje=lista_nova(cuantia);

 nN i;

 for(i=0;i<(1<<cpu_1664_bitio_opera);i++)

 {

  cpu->opera_ajusta_vantaje[i]=i;

  cpu->opera_ajusta_usor[i]=i;

 }

 //cpu->opera_lista[cpu_1664_opera_ajusta]=cpu_1664_opera__ajusta;

 for(i=1; i<(1<<cpu_1664_bitio_ao); i++)

 {

  cpu->opera_lista[i]=cpu_1664_opera___; //opera nonlegal

 }

 cpu->opera_lista[cpu_1664_opera_yli]=cpu_1664_opera__yli;

 cpu->opera_lista[cpu_1664_opera_ylr]=cpu_1664_opera__ylr;

 cpu->opera_lista[cpu_1664_opera_ldi]=cpu_1664_opera__ldi;

 cpu->opera_lista[cpu_1664_opera_ldis]=cpu_1664_opera__ldis;

 cpu->opera_lista[cpu_1664_opera_ldm]=cpu_1664_opera__ldm;

 cpu->opera_lista[cpu_1664_opera_stm]=cpu_1664_opera__stm;

 cpu->opera_lista[cpu_1664_opera_ldr]=cpu_1664_opera__ldr;

 cpu->opera_lista[cpu_1664_opera_str]=cpu_1664_opera__str;

 cpu->opera_lista[cpu_1664_opera_cam]=cpu_1664_opera__cam;

 cpu->opera_lista[cpu_1664_opera_ldb]=cpu_1664_opera__ldb;

 cpu->opera_lista[cpu_1664_opera_stb]=cpu_1664_opera__stb;

 cpu->opera_lista[cpu_1664_opera_cmp]=cpu_1664_opera__cmp;

 cpu->opera_lista[cpu_1664_opera_dep]=cpu_1664_opera__dep;

 cpu->opera_lista[cpu_1664_opera_bit]=cpu_1664_opera__bit;

 cpu->opera_lista[cpu_1664_opera_rev]=cpu_1664_opera__rev;

 cpu->opera_lista[cpu_1664_opera_and]=cpu_1664_opera__and;

 cpu->opera_lista[cpu_1664_opera_or]=cpu_1664_opera__or;

 cpu->opera_lista[cpu_1664_opera_eor]=cpu_1664_opera__eor;

 cpu->opera_lista[cpu_1664_opera_mul]=cpu_1664_opera__mul;

 cpu->opera_lista[cpu_1664_opera_plu]=cpu_1664_opera__plu;

 cpu->opera_lista[cpu_1664_opera_sut]=cpu_1664_opera__sut;

 cpu->opera_lista[cpu_1664_opera_sutr]=cpu_1664_opera__sutr;

 cpu->opera_lista[cpu_1664_opera_div]=cpu_1664_opera__div;

 cpu->opera_lista[cpu_1664_opera_shl]=cpu_1664_opera__shl;

 cpu->opera_lista[cpu_1664_opera_shr]=cpu_1664_opera__shr;

 cpu->opera_lista[cpu_1664_opera_sar]=cpu_1664_opera__sar;

 cpu_1664_vantaje(cpu,1);

 for(i=0;i<1<<cpu_1664_bitio_r;i++)

 {

  cpu->sinia_vantaje[i]=0;

  cpu->sinia_usor[i]=0;

 }

 for(i=0;i<32;i++)

 {

  cpu->depende[i]=0;

 }

 for(i=0;i<32;i++)

 {

  cpu->opera_ajusta_vantaje[i]=i;

  cpu->opera_ajusta_usor[i]=i;

  cpu->opera_ajusta_asm[i]=i;

 }

// cpu->opera_ajusta_protejeda=0;

// cpu->depende_opera_influe_vantaje=0;

// cpu->depende_opera_influe_usor=0;

// cpu->sinia[cpu_1664_sinia_eseta]=0;

 cpu->opera_sicle=0;

 cpu->contador_sicle=0;

 cpu->contador_sicle_usor=0;

 cpu->contador_sicle_usor_limite=0;

 //asm

 cpu->asm_eror=0;

 cpu->lista_imaje_asm=lista_nova(0);

 cpu->lista_defina_sinia=lista_nova(0);

 cpu->lista_defina_valua=lista_nova(0);

 cpu->lista_opera_sinia=lista_nova(0);

// cpu->lista_opera_ajusta=lista_nova(0);

 cpu->lista_opera_parametre_sinia=lista_nova(0);

 cpu->lista_asm_opera_parametre_referi=lista_nova(0);

 cpu->lista_asm_opera_parametre_funsiona=lista_nova(0);

 cpu->lista_asm_comanda_sinia=lista_nova(0);

 cpu->lista_asm_comanda_funsiona=lista_nova(0);

 cpu->lista_taxe=lista_nova(0);

 cpu->lista_taxe_d=lista_nova(0);

 cpu->lista_eticeta_cadena=lista_nova(0);

  //inclui

  cpu->lista_inclui_curso=lista_nova(0);

  lista_ajunta__P(cpu->lista_inclui_curso, lista_nova__ccadena("/"));

 //model

 cpu->lista_model=lista_nova(0);

 cpu->lista_model_sinia=lista_nova(0);

 cpu->avisa__no_definida=0;

 //dev

 cpu->lista_dev_asm_desloca=lista_nova(0);

 cpu->lista_dev_asm_cadena=lista_nova(0);

 cpu->lista_dev_opera_cadena=lista_nova(0);

 cpu->lista_dev_opera_parametre_referi=lista_nova(0);

 cpu->lista_dev_opera_parametre_funsiona=lista_nova(0);

//a ordina frecuentia

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "2r6r", cpu_1664_asm_opera_parametre_funsiona__2r6r, cpu_1664_dev_opera_parametre_funsiona__2r6r);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "8e", cpu_1664_asm_opera_parametre_funsiona__8e, cpu_1664_dev_opera_parametre_funsiona__8e);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "8y", cpu_1664_asm_opera_parametre_funsiona__8y, cpu_1664_dev_opera_parametre_funsiona__8y);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "8ylr", cpu_1664_asm_opera_parametre_funsiona__8ylr, cpu_1664_dev_opera_parametre_funsiona__8ylr);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "m", cpu_1664_asm_opera_parametre_funsiona__m, cpu_1664_dev_opera_parametre_funsiona__m);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "6r2r", cpu_1664_asm_opera_parametre_funsiona__6r2r, cpu_1664_dev_opera_parametre_funsiona__6r2r);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "3e3e2e", cpu_1664_asm_opera_parametre_funsiona__3e3e2e, cpu_1664_dev_opera_parametre_funsiona__3e3e2e);

 cpu_1664_asm_opera_parametre_funsiona_ajunta(cpu, "ajusta_vacua", 0, 0);

//a ordina frecuentia

 cpu_1664_asm_asm_comanda_ajunta(cpu, "m", cpu_1664_asm_asm_comanda__m);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "defina", cpu_1664_asm_asm_comanda__defina);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "ajusta", cpu_1664_asm_asm_comanda__ajusta);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "implicada", cpu_1664_asm_asm_comanda__implicada);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "ds", cpu_1664_asm_asm_comanda__ds);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "d1", cpu_1664_asm_asm_comanda__d1);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "d4", cpu_1664_asm_asm_comanda__d4);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "do", cpu_1664_asm_asm_comanda__do);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "d2", cpu_1664_asm_asm_comanda__d2);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "model", cpu_1664_asm_asm_comanda__model);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "inclui", cpu_1664_asm_asm_comanda__inclui);

 cpu_1664_asm_asm_comanda_ajunta(cpu, "opera", cpu_1664_asm_asm_comanda__opera);

 cpu_1664_asm_ajunta__ccadena(cpu, ".opera ajusta ajusta_vacua"); //opera 'falsa' - pseudo op

 return cpu;

}