29 lines
664 B
Perl
29 lines
664 B
Perl
|
#!/usr/bin/env perl
|
||
|
|
|
||
|
|
$0 =~ m/(.*[\/\\])[^\/\\]+$/; $dir=$1;
|
||
|
|
push(@INC,"${dir}","${dir}../../perlasm");
|
||
|
|
require "x86asm.pl";
|
||
|
|
|
||
|
|
require("x86/mul_add.pl");
|
||
|
|
require("x86/mul.pl");
|
||
|
|
require("x86/sqr.pl");
|
||
|
|
require("x86/div.pl");
|
||
|
|
require("x86/add.pl");
|
||
|
|
require("x86/sub.pl");
|
||
|
|
require("x86/comba.pl");
|
||
|
|
|
||
|
|
&asm_init($ARGV[0],$0);
|
||
|
|
|
||
|
|
&bn_mul_add_words("bn_mul_add_words");
|
||
|
|
&bn_mul_words("bn_mul_words");
|
||
|
|
&bn_sqr_words("bn_sqr_words");
|
||
|
|
&bn_div_words("bn_div_words");
|
||
|
|
&bn_add_words("bn_add_words");
|
||
|
|
&bn_sub_words("bn_sub_words");
|
||
|
|
&bn_mul_comba("bn_mul_comba8",8);
|
||
|
|
&bn_mul_comba("bn_mul_comba4",4);
|
||
|
|
&bn_sqr_comba("bn_sqr_comba8",8);
|
||
|
|
&bn_sqr_comba("bn_sqr_comba4",4);
|
||
|
|
|
||
|
|
&asm_finish();
|