| 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 |