OLD | NEW |
1 #!/usr/local/bin/perl | 1 #!/usr/local/bin/perl |
2 | 2 |
3 push(@INC,"perlasm","../../perlasm"); | 3 $0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1; |
| 4 push(@INC,"${dir}","${dir}../../perlasm"); |
4 require "x86asm.pl"; | 5 require "x86asm.pl"; |
5 require "cbc.pl"; | 6 require "cbc.pl"; |
6 | 7 |
7 &asm_init($ARGV[0],"rc5-586.pl"); | 8 &asm_init($ARGV[0],"rc5-586.pl"); |
8 | 9 |
9 $RC5_MAX_ROUNDS=16; | 10 $RC5_MAX_ROUNDS=16; |
10 $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4; | 11 $RC5_32_OFF=($RC5_MAX_ROUNDS+2)*4; |
11 $A="edi"; | 12 $A="edi"; |
12 $B="esi"; | 13 $B="esi"; |
13 $S="ebp"; | 14 $S="ebp"; |
(...skipping 86 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
100 | 101 |
101 &pop("ebx"); | 102 &pop("ebx"); |
102 &pop("edi"); | 103 &pop("edi"); |
103 &pop("esi"); | 104 &pop("esi"); |
104 &pop("ebp"); | 105 &pop("ebp"); |
105 &ret(); | 106 &ret(); |
106 &function_end_B($name); | 107 &function_end_B($name); |
107 } | 108 } |
108 | 109 |
109 | 110 |
OLD | NEW |