1#!/usr/local/bin/perl 2# alpha assember 3 4sub 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")); 83EOF 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 1231; 124