userapps/opensource/openssl/crypto/bn/asm/alpha/mul_add.pl

   1 #!/usr/local/bin/perl
   2 # alpha assember
   3
   4 sub bn_mul_add_words
   5         {
   6         local($name)=@_;
   7         local($cc,$a,$b,$r,$couny);
   8
   9         &init_pool(4);
  10         ($cc)=GR("r0");
  11
  12         $rp=&wparam(0);
  13         $ap=&wparam(1);
  14         $count=&wparam(2);
  15         $word=&wparam(3);
  16
  17         &function_begin($name,"");
  18
  19         &comment("");
  20         &sub($count,4,$count);
  21          &mov("zero",$cc);
  22         ###
  23          &blt($count,&label("finish"));
  24
  25         &ld(($a0)=&NR(1),&QWPw(0,$ap));
  26
  27 $a=<<'EOF';
  28 ##########################################################
  29         &set_label("loop");
  30
  31         &ld(($r0)=&NR(1),&QWPw(0,$rp));
  32          &ld(($a1)=&NR(1),&QWPw(1,$ap));
  33         &muh($a0,$word,($h0)=&NR(1));
  34          &ld(($r1)=&NR(1),&QWPw(1,$rp));
  35         &ld(($a2)=&NR(1),&QWPw(2,$ap));
  36          ###
  37         &mul($a0,$word,($l0)=&NR(1));   &FR($a0);
  38          &ld(($r2)=&NR(1),&QWPw(2,$rp));
  39         &muh($a1,$word,($h1)=&NR(1));
  40          &ld(($a3)=&NR(1),&QWPw(3,$ap));
  41         &mul($a1,$word,($l1)=&NR(1));   &FR($a1);
  42          &ld(($r3)=&NR(1),&QWPw(3,$rp));
  43         &add($r0,$l0,$r0);
  44          &add($r1,$l1,$r1);
  45         &cmpult($r0,$l0,($t0)=&NR(1));  &FR($l0);
  46          &cmpult($r1,$l1,($t1)=&NR(1)); &FR($l1);
  47         &muh($a2,$word,($h2)=&NR(1));
  48          &add($r0,$cc,$r0);
  49         &add($h0,$t0,$h0);              &FR($t0);
  50          &cmpult($r0,$cc,$cc);
  51         &add($h1,$t1,$h1);              &FR($t1);
  52          &add($h0,$cc,$cc);             &FR($h0);
  53         &mul($a2,$word,($l2)=&NR(1));   &FR($a2);
  54          &add($r1,$cc,$r1);
  55         &cmpult($r1,$cc,$cc);
  56          &add($r2,$l2,$r2);
  57         &add($h1,$cc,$cc);              &FR($h1);
  58          &cmpult($r2,$l2,($t2)=&NR(1)); &FR($l2);
  59         &muh($a3,$word,($h3)=&NR(1));
  60          &add($r2,$cc,$r2);
  61         &st($r0,&QWPw(0,$rp)); &FR($r0);
  62          &add($h2,$t2,$h2);             &FR($t2);
  63         &st($r1,&QWPw(1,$rp)); &FR($r1);
  64          &cmpult($r2,$cc,$cc);
  65         &mul($a3,$word,($l3)=&NR(1));   &FR($a3);
  66          &add($h2,$cc,$cc);             &FR($h2);
  67         &st($r2,&QWPw(2,$rp)); &FR($r2);
  68          &sub($count,4,$count); # count-=4
  69          &add($rp,4*$QWS,$rp);  # count+=4
  70         &add($r3,$l3,$r3);
  71          &add($ap,4*$QWS,$ap);  # count+=4
  72         &cmpult($r3,$l3,($t3)=&NR(1));  &FR($l3);
  73          &add($r3,$cc,$r3);
  74         &add($h3,$t3,$h3);              &FR($t3);
  75          &cmpult($r3,$cc,$cc);
  76         &st($r3,&QWPw(-1,$rp)); &FR($r3);
  77          &add($h3,$cc,$cc);             &FR($h3);
  78
  79         ###
  80          &blt($count,&label("finish"));
  81         &ld(($a0)=&NR(1),&QWPw(0,$ap));
  82          &br(&label("loop"));
  83 EOF
  84 ##################################################
  85         # Do the last 0..3 words
  86
  87         &set_label("last_loop");
  88
  89         &ld(($a0)=&NR(1),&QWPw(0,$ap)); # get a
  90          &ld(($r0)=&NR(1),&QWPw(0,$rp));        # get b
  91         ###
  92          ###
  93         &muh($a0,$word,($h0)=&NR(1));   &FR($a0);
  94          ### wait 8
  95         &mul($a0,$word,($l0)=&NR(1));   &FR($a0);
  96          &add($rp,$QWS,$rp);
  97         &add($ap,$QWS,$ap);
  98          &sub($count,1,$count);
  99         ### wait 3 until l0 is available
 100         &add($r0,$l0,$r0);
 101          ###
 102         &cmpult($r0,$l0,($t0)=&NR(1));  &FR($l0);
 103          &add($r0,$cc,$r0);
 104         &add($h0,$t0,$h0);              &FR($t0);
 105          &cmpult($r0,$cc,$cc);
 106         &add($h0,$cc,$cc);              &FR($h0);
 107
 108         &st($r0,&QWPw(-1,$rp));         &FR($r0);
 109          &bgt($count,&label("last_loop"));
 110         &function_end_A($name);
 111
 112 ######################################################
 113         &set_label("finish");
 114         &add($count,4,$count);
 115          &bgt($count,&label("last_loop"));
 116
 117         &set_label("end");
 118         &function_end($name);
 119
 120         &fin_pool;
 121         }
 122
 123 1;