1998-12-21 11:00:56 +00:00
|
|
|
#!/usr/local/bin/perl
|
|
|
|
|
# I have this in perl so I can use more usefull register names and then convert
|
|
|
|
|
# them into alpha registers.
|
|
|
|
|
#
|
|
|
|
|
|
|
|
|
|
push(@INC,"perlasm","../../perlasm");
|
|
|
|
|
require "alpha.pl";
|
|
|
|
|
require "alpha/mul_add.pl";
|
|
|
|
|
require "alpha/mul.pl";
|
|
|
|
|
require "alpha/sqr.pl";
|
|
|
|
|
require "alpha/add.pl";
|
|
|
|
|
require "alpha/sub.pl";
|
|
|
|
|
require "alpha/mul_c8.pl";
|
|
|
|
|
require "alpha/mul_c4.pl";
|
|
|
|
|
require "alpha/sqr_c4.pl";
|
|
|
|
|
require "alpha/sqr_c8.pl";
|
|
|
|
|
require "alpha/div.pl";
|
|
|
|
|
|
1999-02-12 19:05:10 +00:00
|
|
|
&asm_init($ARGV[0],$0);
|
1998-12-21 11:00:56 +00:00
|
|
|
|
|
|
|
|
&bn_mul_words("bn_mul_words");
|
|
|
|
|
&bn_sqr_words("bn_sqr_words");
|
|
|
|
|
&bn_mul_add_words("bn_mul_add_words");
|
|
|
|
|
&bn_add_words("bn_add_words");
|
|
|
|
|
&bn_sub_words("bn_sub_words");
|
|
|
|
|
&bn_div_words("bn_div_words");
|
|
|
|
|
&bn_mul_comba8("bn_mul_comba8");
|
|
|
|
|
&bn_mul_comba4("bn_mul_comba4");
|
|
|
|
|
&bn_sqr_comba4("bn_sqr_comba4");
|
|
|
|
|
&bn_sqr_comba8("bn_sqr_comba8");
|
|
|
|
|
|
|
|
|
|
&asm_finish();
|
|
|
|
|
|
