2c1.c

z80的软件仿真程序以及源代码

{j=i-1;cms.si[j]=cms.si[i];}cms.si[i-1]=0;
if((cms.si[0]=='h'||cms.si[0]=='H')&&(cms.si[1]=='l'||cms.si[1]=='L'))
{a=0xb6;BYTE;return;}
 else if(cms.si[0]=='i'||cms.si[0]=='I')
{if(cms.si[1]=='x'||cms.si[1]=='X')
 {a=0xb6dd;WORD;if(cms.si[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.si[i]))&&cms.si[i]!=')'&&cms.si[i]!=']';i++,j++)
      {cms.si[j]=cms.si[i];}cms.si[j]=0;
       if(Is_num(cms.si[0]))a=ljs(cms.si);
       else {i=find_da(dseg,cms.si);if(i==-1){PREC(cms.si);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;return;} 
else if(cms.si[1]=='y'||cms.si[1]=='Y')
 {a=0xb6fd;WORD;if(cms.si[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.si[i]))&&cms.si[i]!=')'&&cms.si[i]!=']';i++,j++)
	{cms.si[j]=cms.si[i];}cms.si[j]=0;
        if(Is_num(cms.si[0]))a=ljs(cms.si);
        else {i=find_da(dseg,cms.si);if(i==-1){PREC(cms.si);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_xor(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(cms.si[0]==0){strcpy(cms.si,cms.di);cms.di[0]='a';cms.di[1]=0;}
if(cms.di[1]==0&&(cms.di[0]=='a'||cms.di[0]=='A'))
{if(Is_char(cms.si[0])){a=0xa8;n=bit_si(cms.si);
if(n<=0x7){a=a+n;BYTE;return;}else {PREC(cms.si);exit(0);}}
else if(cms.si[0]=='#')
{a=0xee;BYTE;
for(i=0;Ture(cms.si[i]);i++)
{j=i+1;cms.si[i]=cms.si[j];}
if(Is_num(cms.si[0])){a=ljs(cms.si);
if(a>0xff){OVER(a);exit(0);}else{BYTE;return;}}
else{i=find_da(dseg,cms.si);if(i==-1){PREC(cms.si);exit(0);}
a=dseg[i].data;if(a>0xff){OVER(a);exit(0);} BYTE;return;}}
else 
if(cms.si[0]=='('||cms.si[0]=='[')
{for(i=1;Ture(cms.si[i])&&cms.si[i]!=')'&&cms.si[i]!=']';i++)
{j=i-1;cms.si[j]=cms.si[i];}cms.si[i-1]=0;
if((cms.si[0]=='h'||cms.si[0]=='H')&&(cms.si[1]=='l'||cms.si[1]=='L'))
{a=0xae;BYTE;return;}
else if(cms.si[0]=='i'||cms.si[0]=='I')
{if(cms.si[1]=='x'||cms.si[1]=='X')
 {a=0xaedd;WORD;if(cms.si[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.si[i]))&&cms.si[i]!=')'&&cms.si[i]!=']';i++,j++)
      {cms.si[j]=cms.si[i];}cms.si[j]=0;
       if(Is_num(cms.si[0]))a=ljs(cms.si);
       else {i=find_da(dseg,cms.si);if(i==-1){PREC(cms.si);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;return;} 
else if(cms.si[1]=='y'||cms.si[1]=='Y')
 {a=0xaefd;WORD;if(cms.si[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.si[i]))&&cms.si[i]!=')'&&cms.si[i]!=']';i++,j++)
	{cms.si[j]=cms.si[i];}cms.si[j]=0;
        if(Is_num(cms.si[0]))a=ljs(cms.si);
        else {i=find_da(dseg,cms.si);if(i==-1){PREC(cms.si);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_inc(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(Is_char(cms.di[0])&&Is_char(cms.di[1])&&cms.di[2]==0)
{if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X'){a=0x23dd;WORD;return;}
else if(cms.di[1]=='y'||cms.di[1]=='y'){a=0x23fd;WORD;return;}
else{PREC(cms.di);exit(0);}}
else{a=0x3;n=word_bit(cms.di);if(n!=0xff){a=a+n;BYTE;return;}
else{PREC(cms.di);exit(0);}}}
else 
{if(Is_char(cms.di[0])&&cms.di[1]==0){a=0x4;n=bit_di(cms.di);
if(n<=0x38){a=a+n;BYTE;return;}else {PREC(cms.di);exit(0);}}
else 
if(cms.di[0]=='('||cms.di[0]=='[')
{for(i=1;Ture(cms.di[i])&&cms.di[i]!=')'&&cms.di[i]!=']';i++)
{j=i-1;cms.di[j]=cms.di[i];}cms.di[i-1]=0;
if((cms.di[0]=='h'||cms.di[0]=='H')&&(cms.di[1]=='l'||cms.di[1]=='L'))
{a=0x34;BYTE;return;}
else if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X')
 {a=0x34dd;WORD;if(cms.di[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
      {cms.di[j]=cms.di[i];}cms.di[j]=0;
       if(Is_num(cms.di[0]))a=ljs(cms.di);
       else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;return;} 
else if(cms.di[1]=='y'||cms.di[1]=='Y')
 {a=0x34fd;WORD;if(cms.di[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
	{cms.di[j]=cms.di[i];}cms.di[j]=0;
        if(Is_num(cms.di[0]))a=ljs(cms.di);
        else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_dec(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(Is_char(cms.di[0])&&Is_char(cms.di[1])&&cms.di[2]==0)
{if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X'){a=0x2bdd;WORD;return;}
else if(cms.di[1]=='y'||cms.di[1]=='y'){a=0x2bfd;WORD;return;}
else{PREC(cms.di);exit(0);}}
else{a=0xb;n=word_bit(cms.di);if(n!=0xff){a=a+n;BYTE;return;}
else{PREC(cms.di);exit(0);}}}
else 
{if(Is_char(cms.di[0])&&cms.di[1]==0){a=0x5;n=bit_di(cms.di);
if(n<=0x38){a=a+n;BYTE;return;}else {PREC(cms.di);exit(0);}}
else 
if(cms.di[0]=='('||cms.di[0]=='[')
{for(i=1;Ture(cms.di[i])&&cms.di[i]!=')'&&cms.di[i]!=']';i++)
{j=i-1;cms.di[j]=cms.di[i];}cms.di[i-1]=0;
if((cms.di[0]=='h'||cms.di[0]=='H')&&(cms.di[1]=='l'||cms.di[1]=='L'))
{a=0x35;BYTE;return;}
else if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X')
 {a=0x35dd;WORD;if(cms.di[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
      {cms.di[j]=cms.di[i];}cms.di[j]=0;
       if(Is_num(cms.di[0]))a=ljs(cms.di);
       else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;return;} 
else if(cms.di[1]=='y'||cms.di[1]=='Y')
 {a=0x35fd;WORD;if(cms.di[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
	{cms.di[j]=cms.di[i];}cms.di[j]=0;
        if(Is_num(cms.di[0]))a=ljs(cms.di);
        else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_rlc(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(cms.di[0]=='a'||cms.di[0]=='A'){a=0x7;BYTE;return;}
else{if(Is_char(cms.di[0])){a=0xcb;BYTE;a=0x00;n=bit_si(cms.di);
if(n<=0x7){a=a+n;BYTE;return;}else {PREC(cms.di);exit(0);}}
else 
if(cms.di[0]=='('||cms.di[0]=='[')
{for(i=1;Ture(cms.di[i])&&cms.di[i]!=')'&&cms.di[i]!=']';i++)
{j=i-1;cms.di[j]=cms.di[i];}cms.di[i-1]=0;
if((cms.di[0]=='h'||cms.di[0]=='H')&&(cms.di[1]=='l'||cms.di[1]=='L'))
{a=0x06cb;WORD;return;}
else if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X')
 {a=0xcbdd;WORD;if(cms.di[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
      {cms.di[j]=cms.di[i];}cms.di[j]=0;
       if(Is_num(cms.di[0]))a=ljs(cms.di);
       else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;a=0x6;BYTE;return;} 
else if(cms.di[1]=='y'||cms.di[1]=='Y')
 {a=0xcbfd;WORD;if(cms.di[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
	{cms.di[j]=cms.di[i];}cms.di[j]=0;
        if(Is_num(cms.di[0]))a=ljs(cms.di);
        else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;a=0x6;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_rrc(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(cms.di[0]=='a'||cms.di[0]=='A'){a=0xf;BYTE;return;}
else{if(Is_char(cms.di[0])){a=0xcb;BYTE;a=0x8;n=bit_si(cms.di);
if(n<=0x7){a=a+n;BYTE;return;}else {PREC(cms.di);exit(0);}}
else 
if(cms.di[0]=='('||cms.di[0]=='[')
{for(i=1;Ture(cms.di[i])&&cms.di[i]!=')'&&cms.di[i]!=']';i++)
{j=i-1;cms.di[j]=cms.di[i];}cms.di[i-1]=0;
if((cms.di[0]=='h'||cms.di[0]=='H')&&(cms.di[1]=='l'||cms.di[1]=='L'))
{a=0x0ecb;WORD;return;}
else if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X')
 {a=0xcbdd;WORD;if(cms.di[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
      {cms.di[j]=cms.di[i];}cms.di[j]=0;
       if(Is_num(cms.di[0]))a=ljs(cms.di);
       else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;a=0xe;BYTE;return;} 
else if(cms.di[1]=='y'||cms.di[1]=='Y')
 {a=0xcbfd;WORD;if(cms.di[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
	{cms.di[j]=cms.di[i];}cms.di[j]=0;
        if(Is_num(cms.di[0]))a=ljs(cms.di);
        else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;a=0xe;BYTE;return;}}}}
printf("[%d]Error",No-1);exit(0);}
void com_sla(FILE *p,struct coms cms,struct dataseg dseg[64])
{unsigned int a,n;
int i,j;
if(Is_char(cms.di[0])){a=0xcb;BYTE;a=0x20;n=bit_si(cms.di);
if(n<=0x7){a=a+n;BYTE;return;}else {PREC(cms.di);exit(0);}}
else 
if(cms.di[0]=='('||cms.di[0]=='[')
{for(i=1;Ture(cms.di[i])&&cms.di[i]!=')'&&cms.di[i]!=']';i++)
{j=i-1;cms.di[j]=cms.di[i];}cms.di[i-1]=0;
if((cms.di[0]=='h'||cms.di[0]=='H')&&(cms.di[1]=='l'||cms.di[1]=='L'))
{a=0x26cb;WORD;return;}
else if(cms.di[0]=='i'||cms.di[0]=='I')
{if(cms.di[1]=='x'||cms.di[1]=='X')
 {a=0xcbdd;WORD;if(cms.di[2]=='+')
  {j=0;
   for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
      {cms.di[j]=cms.di[i];}cms.di[j]=0;
       if(Is_num(cms.di[0]))a=ljs(cms.di);
       else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
       a=dseg[i].data;}
       if(a>0xff){OVER(a);exit(0);}}
      else a=0;BYTE;a=0x26;BYTE;return;} 
else if(cms.di[1]=='y'||cms.di[1]=='Y')
 {a=0xcbfd;WORD;if(cms.di[2]=='+')
   {j=0;
     for(i=3;(Ture(cms.di[i]))&&cms.di[i]!=')'&&cms.di[i]!=']';i++,j++)
	{cms.di[j]=cms.di[i];}cms.di[j]=0;
        if(Is_num(cms.di[0]))a=ljs(cms.di);
        else {i=find_da(dseg,cms.di);if(i==-1){PREC(cms.di);exit(0);}
        a=dseg[i].data;}
        if(a>0xff){OVER(a);exit(0);}}
else a=0;BYTE;a=0x26;BYTE;return;}}}
printf("[%d]Error",No-1);exit(0);}