Import of old SSLeay release: SSLeay 0.9.1b (unreleased)

[openssl.git] / crypto / bn / asm / x86 / sqr.pl

diff --git a/crypto/bn/asm/x86/sqr.pl b/crypto/bn/asm/x86/sqr.pl
new file mode 100644 (file)
index 0000000..1f90993
--- /dev/null
+++ b/crypto/bn/asm/x86/sqr.pl
@@ -0,0 +1,60 @@
+#!/usr/local/bin/perl
+# x86 assember
+
+sub bn_sqr_words
+       {
+       local($name)=@_;
+
+       &function_begin($name,"");
+
+       &comment("");
+       $r="esi";
+       $a="edi";
+       $num="ebx";
+
+       &mov($r,&wparam(0));    #
+       &mov($a,&wparam(1));    #
+       &mov($num,&wparam(2));  #
+
+       &and($num,0xfffffff8);  # num / 8
+       &jz(&label("sw_finish"));
+
+       &set_label("sw_loop",0);
+       for ($i=0; $i<32; $i+=4)
+               {
+               &comment("Round $i");
+               &mov("eax",&DWP($i,$a,"",0));   # *a
+                # XXX
+               &mul("eax");                    # *a * *a
+               &mov(&DWP($i*2,$r,"",0),"eax"); #
+                &mov(&DWP($i*2+4,$r,"",0),"edx");#
+               }
+
+       &comment("");
+       &add($a,32);
+       &add($r,64);
+       &sub($num,8);
+       &jnz(&label("sw_loop"));
+
+       &set_label("sw_finish",0);
+       &mov($num,&wparam(2));  # get num
+       &and($num,7);
+       &jz(&label("sw_end"));
+
+       for ($i=0; $i<7; $i++)
+               {
+               &comment("Tail Round $i");
+               &mov("eax",&DWP($i*4,$a,"",0)); # *a
+                # XXX
+               &mul("eax");                    # *a * *a
+               &mov(&DWP($i*8,$r,"",0),"eax"); #
+                &dec($num) if ($i != 7-1);
+               &mov(&DWP($i*8+4,$r,"",0),"edx");
+                &jz(&label("sw_end")) if ($i != 7-1);
+               }
+       &set_label("sw_end",0);
+
+       &function_end($name);
+       }
+
+1;