]>
git.ipfire.org Git - thirdparty/openssl.git/blob - crypto/bn/asm/alpha/mul.pl
7 local($cc,$a,$b,$r,$couny);
17 &function_begin
($name,"");
20 &sub($count,4,$count);
23 &blt
($count,&label
("finish"));
25 ($a0)=&NR
(1); &ld
($a0,&QWPw
(0,$ap));
29 ($a1)=&NR
(1); &ld
($a1,&QWPw
(1,$ap));
30 ($a2)=&NR
(1); &ld
($a2,&QWPw
(2,$ap));
32 &muh
($a0,$word,($h0)=&NR
(1)); &FR
($a0);
33 ($a3)=&NR
(1); &ld
($a3,&QWPw
(3,$ap));
35 &mul
($a0,$word,($l0)=&NR
(1)); &FR
($a0);
37 &muh
($a1,$word,($h1)=&NR
(1)); &FR
($a1);
38 &add
($l0,$cc,$l0); ### wait 8
39 &mul
($a1,$word,($l1)=&NR
(1)); &FR
($a1);
40 &cmpult
($l0,$cc,$cc); ### wait 8
41 &muh
($a2,$word,($h2)=&NR
(1)); &FR
($a2);
42 &add
($h0,$cc,$cc); &FR
($h0); ### wait 8
43 &mul
($a2,$word,($l2)=&NR
(1)); &FR
($a2);
44 &add
($l1,$cc,$l1); ### wait 8
45 &st
($l0,&QWPw
(0,$rp)); &FR
($l0);
46 &cmpult
($l1,$cc,$cc); ### wait 8
47 &muh
($a3,$word,($h3)=&NR
(1)); &FR
($a3);
48 &add
($h1,$cc,$cc); &FR
($h1);
49 &mul
($a3,$word,($l3)=&NR
(1)); &FR
($a3);
51 &st
($l1,&QWPw
(1,$rp)); &FR
($l1);
53 &add
($h2,$cc,$cc); &FR
($h2);
54 &sub($count,4,$count); # count-=4
55 &st
($l2,&QWPw
(2,$rp)); &FR
($l2);
58 &add
($bp,4*$QWS,$bp); # count+=4
59 &add
($h3,$cc,$cc); &FR
($h3);
60 &add
($ap,4*$QWS,$ap); # count+=4
61 &st
($l3,&QWPw
(3,$rp)); &FR
($l3);
62 &add
($rp,4*$QWS,$rp); # count+=4
64 &blt
($count,&label
("finish"));
65 ($a0)=&NR
(1); &ld
($a0,&QWPw
(0,$ap));
66 &br
(&label
("finish"));
67 ##################################################
69 ##################################################
70 # Do the last 0..3 words
72 &set_label
("last_loop");
74 &ld
(($a0)=&NR
(1),&QWPw
(0,$ap)); # get a
78 &muh
($a0,$word,($h0)=&NR
(1));
79 ### Wait 8 for next mul issue
80 &mul
($a0,$word,($l0)=&NR
(1)); &FR
($a0)
82 ### Loose 12 until result is available
84 &sub($count,1,$count);
87 &st
($l0,&QWPw
(-1,$rp)); &FR
($l0);
89 &add
($h0,$cc,$cc); &FR
($h0);
90 &bgt
($count,&label
("last_loop"));
91 &function_end_A
($name);
93 ######################################################
95 &add
($count,4,$count);
96 &bgt
($count,&label
("last_loop"));