Procedure Fgv41(a:int32; VAR b:int16; c:uns16);@nodisplay;@noframe;@returns("EAX");
 //  x és y int32 típusú ideiglenes mennyiségek
 

1. y=a%23+47; for(x=0;x<y;x=x+1)do b=b+a*x endfor;
   
2. for(x=0;x<b;x=x+x+1) do a=a-x*b endfor; b=a%(x+1)
   
3. for(x=1;x<|a|;x=x+x) do b=(b | x) endfor;
4. x=|b|; while (x<100_000) do x=x+1+|x-b|; a=(a & x)+b; endwhile; b=b-a%32;
   
5. x=a; while (x>4) do x=SHR(2,x)+1; b=(b^x); endwhile;
6. x=c+(c>1111?0:999);repeat  b=b-a%x;  x=x/2; until(x<20);
7.  for(x=5;x<c%42;x=x+1) do  a=a+x*x endfor; b=a%x
8. y=a%213+17; for(x=1;x<y;x=x+1)do b=b+a%x endfor;
   
9. for(x=1;x<b;x=x+x+1) do a=a-b%x endfor; b=a*x
   
10. for(x=1;x<|b|;x=x+x) do b=(b | x) endfor; a=a-b
    
11. x=|b|; while (x<100_000) do x=x+1+|b|; a=(a ^ x)+b; endwhile; b=b-a/512;
    
12. x=a; while (x>5) do x=SHR(3,x)+3; b=(b^(a+x)); endwhile;
13. x=c+(c>64?0:39);repeat  b=b+a%x;  x=x-1; until(x<20);
14.  for(x=15;x<c%324;x=x+1) do  a=a+b*x endfor; b=a-x
15. for(x=0;x<(b+c)%34+65;x=x+1)do b=b+x endfor;  a=a-x
    
16. for(x=0;x<|b|;x=x+x+1) do a=a-x endfor; b=b-a%(x+1+x)
    
17. for(x=1;x<a/2;x=3*x+|b|) do b=(b ^ x) endfor; a=a-x
    
18. x=b; while (|x|<100_000) do x=x+1+x+x; a=(a ^ x)+b; endwhile; b=b-x;
    
19. x=a; while (x<>0) do x=SHR(2,x); b=b+x; endwhile;
20. x=(c>234?c:234);repeat  b=b-a%x;  x=x/4; until(x<11);
21.  for(x=5;x<c;x=x+x) do  a=a+b%x endfor; b=a%x
22. y=a%123*147; for(x=1;x<y;x=x+x) do b=b+(a & x) endfor;
    
23. for(x=0;x<b;x=x+x+1) do a=a-(x | b) endfor; b=(a ^ x)
    
24. for(x=12;x<|a|;x=3*x) do b=(b ^ x) endfor;
25. x=b; while (|x|<100_000) do x=x+x; a=(a | x)+b; endwhile; b=b-x;
    
26. x=a; while (x<>0) do x=SHR(2,x); b=(b^x); endwhile;

0. x=|a|;for(y=1;y<x;y=y+y)do b=b+y-x endfor;
1. y=a%3+147; for(x=0;x<y;x=x+1)do b=(b | x) endfor;
   
2. for(x=0;x<b;x=x+x+1) do a=a-x endfor; b=(b | a%(x+19))
   
3. for(x=1;x<|a|;x=x+x) do b=(b ^ x) endfor;
4. x=b; while (|x|<100_000) do x=5*x+1; a=(a & x)+b; endwhile; b=b-a;
   
5. x=a; while (x<>0) do x=SHR(2,x); b=(b ^ (b | x)); endwhile;
6. x=(c>1111?c:999);repeat  b=b-a%x;  x=x/2+x/4; until(x<7);
7.  for(x=5;x<c;x=x+1) do  a=a+x endfor; b=b+a%x
8. x=a; while (x<>0) do x=SHR(2,x); b=(b^x); endwhile;
9. x=|b|+(c>1111?0:999);repeat  b=b-x;  x=x/2; until(x<120);

1. EAX=c>0?Fgv41(x,b,c/2):b*a
2. EAX=c>2?Fgv41(a,b,c/3):x
3. EAX=c>1?Fgv41(x,b,c%32-1):b+a
4. EAX=c>5?Fgv41(a,b,(c-3)/2):x+a
5. EAX=c>1?Fgv41(x,b,c/2):b*a
6. EAX=c>4?Fgv41(a,b,c/3):x
7. EAX=c>2?Fgv41(x,b,c%36-1)):b+a
8. EAX=c>3?Fgv41(a,b,(c-1)/3):x+a
9. EAX=c>0?Fgv41(x,b,c/2):b*a
10. EAX=c>7?Fgv41(a,b,c/3):x
11. EAX=c>0?Fgv41(x,b,c/2):b*a
12. EAX=c>4?Fgv41(a,b,c/3):x
13. EAX=c>2?Fgv41(a,b,c/3):x
14. EAX=c>5?Fgv41(x,b,c/2):b*a
15. EAX=c>2?Fgv41(x,b,c%26-1)):b+a
16. EAX=c>3?Fgv41(x,b,c/2):b*a
17. EAX=c>2?Fgv41(a,b,c/3):x
18. EAX=c>5?Fgv41(a,b,(c-3)/2):x+a
19. EAX=c>9?Fgv41(a,b,c/3):x
20. EAX=c>2?Fgv41(x,b,c%18-1)):b+a
21. EAX=c>3?Fgv41(a,b,c/3):x
22. EAX=c>5?Fgv41(a,b,(c-1)/3):x+a
23. EAX=c>2?Fgv41(x,b,c%42-1)):b+a
24. EAX=c>6?Fgv41(a,b,c/3):x
25. EAX=c>2?Fgv41(x,b,c%34-1)):b+a
26. EAX=c>0?Fgv41(x,b,c/2):b*a

0. EAX=c>1?Fgv41(x,b,c%36-(c>0?1:0)):b+a
1. EAX=c>2?Fgv41(a,b,c/3):x
2. EAX=c>7?Fgv41(a,b,c/3):x
3. EAX=c>3?Fgv41(a,b,(c-1)/3):x+a
4. EAX=c>0?Fgv41(x,b,c/2):b*a
5. EAX=c>2?Fgv41(a,b,c/3):x
6. EAX=c>6?Fgv41(x,b,c%38-1)):b+a
7. EAX=c>2?Fgv41(a,b,c/3):x
8. EAX=c>8?Fgv41(a,b,c/3):x
9. EAX=c>2?Fgv41(a,b,c/3):x