Subversion Repositories 1664

#include "cpu_1664.h"
 
n1 cpu_1664_asm_opera_parametre_funsiona__8y(struct cpu_1664 * cpu, struct lista *lista)
{
 n8 desloca=cpu_1664_asm_n8_valua__lista(cpu, ((struct lista **)(lista->datos))[(lista->contador/sizeof(P))-1]);
 n1 c=((struct lista **)(lista->datos))[(lista->contador/sizeof(P))-1]->datos[0];
 
 if(((c>'9')||(c<'0'))&&(c!='-'))
 {
 
  if(desloca>=cpu->lista_imaje_asm->contador)
  {
   desloca-=cpu->lista_imaje_asm->contador;
 
   if((desloca&0x01)!=0)
   {
    if(cpu->avisa__no_definida==0) 
    {
     cadena__f((P)scrive_stdout, "avisa : \"desloca no alinia [%*x]\"\n",8,cpu->lista_imaje_asm->contador);
     cpu->asm_eror=1;
    }
   }
 
   desloca>>=1;
 
   if(desloca>=0x80)
   {
    if(cpu->avisa__no_definida==0) 
    {
     cadena__f((P)scrive_stdout, "avisa : \"desloca plu masima [%*x]\"\n",8,cpu->lista_imaje_asm->contador);
     cpu->asm_eror=1;
    }
   }
  }
  else
  {
   desloca-=cpu->lista_imaje_asm->contador;
 
   if((desloca&0x01)!=0)
   {
    if(cpu->avisa__no_definida==0) 
    {
     cadena__f((P)scrive_stdout, "avisa : \"desloca no alinia [%*x]\"\n",8,cpu->lista_imaje_asm->contador);
     cpu->asm_eror=1;
    }
   }
 
   desloca=(desloca>>1)&0xff;
 
   if(desloca<0x80)
   {
    if(cpu->avisa__no_definida==0) 
    {
     cadena__f((P)scrive_stdout, "avisa : \"desloca plu masima [%*x]\"\n",8,cpu->lista_imaje_asm->contador);
     cpu->asm_eror=1;
    }
   }
  }
 }
 
 n1 bait=desloca;
 return bait;
}