crypto/openssl-0.9/crypto/bn/asm/x86/sqr.pl

   1 #!/usr/local/bin/perl
   2 # x86 assember
   3
   4 sub bn_sqr_words
   5         {
   6         local($name)=@_;
   7
   8         &function_begin($name,"");
   9
  10         &comment("");
  11         $r="esi";
  12         $a="edi";
  13         $num="ebx";
  14
  15         &mov($r,&wparam(0));    #
  16         &mov($a,&wparam(1));    #
  17         &mov($num,&wparam(2));  #
  18
  19         &and($num,0xfffffff8);  # num / 8
  20         &jz(&label("sw_finish"));
  21
  22         &set_label("sw_loop",0);
  23         for ($i=0; $i<32; $i+=4)
  24                 {
  25                 &comment("Round $i");
  26                 &mov("eax",&DWP($i,$a,"",0));   # *a
  27                  # XXX
  28                 &mul("eax");                    # *a * *a
  29                 &mov(&DWP($i*2,$r,"",0),"eax"); #
  30                  &mov(&DWP($i*2+4,$r,"",0),"edx");#
  31                 }
  32
  33         &comment("");
  34         &add($a,32);
  35         &add($r,64);
  36         &sub($num,8);
  37         &jnz(&label("sw_loop"));
  38
  39         &set_label("sw_finish",0);
  40         &mov($num,&wparam(2));  # get num
  41         &and($num,7);
  42         &jz(&label("sw_end"));
  43
  44         for ($i=0; $i<7; $i++)
  45                 {
  46                 &comment("Tail Round $i");
  47                 &mov("eax",&DWP($i*4,$a,"",0)); # *a
  48                  # XXX
  49                 &mul("eax");                    # *a * *a
  50                 &mov(&DWP($i*8,$r,"",0),"eax"); #
  51                  &dec($num) if ($i != 7-1);
  52                 &mov(&DWP($i*8+4,$r,"",0),"edx");
  53                  &jz(&label("sw_end")) if ($i != 7-1);
  54                 }
  55         &set_label("sw_end",0);
  56
  57         &function_end($name);
  58         }
  59
  60 1;