proceduresi02.txt

类似vc6的集成开发环境的源代码

macro:
  rspstart=0x0000;
  rhpstartaddr=0x0070;
const:
  rhpstart=rhpstartaddr;
  num65537=65537;
main:
   rd0=rspstart;
   rsp=rd0;
   rd0=rhpstart;
   push(rd0);
   pop(rhp);
   push(rd0);
	 pop(ra1);
   push(rd0);
   pop(ra0);
1:
  push(ra0);
  pop(rhp);
   rhp-=1;
   m(rhp+0)=ra0;
   push(rhp);
   pop(ra0);
2:
  push(ra1);
  pop(rhp);
   rhp-=3;
   m(rhp+0)=ra1;
   push(rhp);
   pop(ra1);
3:
    rd0=0;
4:
   m(ra1+1)=rd0;
5:
    rd0=1;
6:
   m(ra1+2)=rd0;
7:
   rd0=m(ra1+2);
8:
    rd1=num65537;
9:
   rd1-=rd0;
   if(!rcarry) goto(laa);
   rd0=1;
   goto(10);
laa:
   rd0=0;
10:
   rd0--;
   if(!rzero) goto(22);
11:
   goto(17);
12:
   rd0=m(ra1+2);
13:
    rd1=1;
14:
   rd0+=rd1;
15:
   m(ra1+2)=rd0;
16:
   goto(7);
17:
   rd0=m(ra1+1);
18:
    rd1=10;
19:
   rd0+=rd1;
20:
   m(ra1+1)=rd0;
21:
   goto(12);
22:
   rd0=m(ra1+1);
23:
    rd1=100;
24:
   rd0+=rd1;
25:
   m(ra1+1)=rd0;
26:
   goto(26);
sub:l27;
28:
  push(ra1);
  pop(rhp);
   rhp-=2;
   m(rhp+0)=ra1;
   push(rhp);
   pop(ra1);
   pop(rd3);
   m(ra1+1)=rd3;
31:
   push(ra1);
   pop(rhp);
   ra1=m(rhp+0);
   return;