void RSbianma()
{  
	int i,j,*p,*q,k=0,shang1,shang2,shang3,out[3375],data[15];
 
 	for(i=0;i<8100;i+=4)
		out[i/4]=output[i+3]<<3|output[i+2]<<2|output[i+1]<<1|output[i];

    initial(m);                        
    p=GenGx(m,N0,L);                   

    for(i=0;i<225;i++)
	  { 
		  for(j=0;j<L;j++)
			  data[j]=out[L*i+j];
	      q=Encode(data,p,m,N0,L);       
          for(j=0;j<N0;j++)               
		  {
            output[k++]=q[j];
//			output[k++]=q[j]%2;
//			shang1=q[j]/2;
//			output[k++]=shang1%2;
//			shang2=shang1/2;
//			output[k++]=shang2%2;
//			shang3=shang2/2;
//			output[k++]=shang3%2;

		  }
		  free (EncodeOut);
	  }	
	  k=0;	
	  for(i=0;i<15;i++)
	  for(j=0;j<225;j++)
 	  out[k++]=output[i+15*j];
	  k=0;
	  for(i=0;i<3375;i++)
	  {
	     output[k++]=out[i]%2;
	     shang1=out[i]/2;
         output[k++]=shang1%2;
	     shang2=shang1/2;
	     output[k++]=shang2%2;
	     shang3=shang2/2;
	     output[k++]=shang3%2;
	  }	  
	  
    free(Temp);
	asm(" mov   #2000h,mmap(ier0)");
	asm(" bclr  intm");
    
}