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],"bf-586.pl",$ARGV[$#ARGV] eq "386"); | 8 &asm_init($ARGV[0],"bf-586.pl",$ARGV[$#ARGV] eq "386"); |
8 | 9 |
9 $BF_ROUNDS=16; | 10 $BF_ROUNDS=16; |
10 $BF_OFF=($BF_ROUNDS+2)*4; | 11 $BF_OFF=($BF_ROUNDS+2)*4; |
11 $L="edi"; | 12 $L="edi"; |
12 $R="esi"; | 13 $R="esi"; |
13 $P="ebp"; | 14 $P="ebp"; |
(...skipping 113 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
127 | 128 |
128 &xor( $L, $tmp2); | 129 &xor( $L, $tmp2); |
129 # delay | 130 # delay |
130 } | 131 } |
131 | 132 |
132 sub n2a | 133 sub n2a |
133 { | 134 { |
134 sprintf("%d",$_[0]); | 135 sprintf("%d",$_[0]); |
135 } | 136 } |
136 | 137 |
OLD | NEW |