Donatien Garnier / MiniTLS-GPL

A super trimmed down TLS stack, GPL licensed

Dependents:   MiniTLS-HTTPS-Example

MiniTLS - A super trimmed down TLS/SSL Library for embedded devices Author: Donatien Garnier Copyright (C) 2013-2014 AppNearMe Ltd

This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details.

You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.

math/sqr/fp_sqr_comba_32.c@0:35aa5be3b78d, 2014-06-06 (annotated)

Committer:
MiniTLS
Date:
Fri Jun 06 10:49:02 2014 +0000
Revision:
0:35aa5be3b78d
Initial commit

Who changed what in which revision?

UserRevisionLine numberNew contents of line
MiniTLS 0:35aa5be3b78d 1 #define TFM_DEFINES
MiniTLS 0:35aa5be3b78d 2 #include "fp_sqr_comba.c"
MiniTLS 0:35aa5be3b78d 3
MiniTLS 0:35aa5be3b78d 4 #ifdef TFM_SQR32
MiniTLS 0:35aa5be3b78d 5 void fp_sqr_comba32(fp_int *A, fp_int *B)
MiniTLS 0:35aa5be3b78d 6 {
MiniTLS 0:35aa5be3b78d 7 fp_digit *a, b[64], c0, c1, c2, sc0, sc1, sc2;
MiniTLS 0:35aa5be3b78d 8 #ifdef TFM_ISO
MiniTLS 0:35aa5be3b78d 9 fp_word tt;
MiniTLS 0:35aa5be3b78d 10 #endif
MiniTLS 0:35aa5be3b78d 11
MiniTLS 0:35aa5be3b78d 12 a = A->dp;
MiniTLS 0:35aa5be3b78d 13 COMBA_START;
MiniTLS 0:35aa5be3b78d 14
MiniTLS 0:35aa5be3b78d 15 /* clear carries */
MiniTLS 0:35aa5be3b78d 16 CLEAR_CARRY;
MiniTLS 0:35aa5be3b78d 17
MiniTLS 0:35aa5be3b78d 18 /* output 0 */
MiniTLS 0:35aa5be3b78d 19 SQRADD(a[0],a[0]);
MiniTLS 0:35aa5be3b78d 20 COMBA_STORE(b[0]);
MiniTLS 0:35aa5be3b78d 21
MiniTLS 0:35aa5be3b78d 22 /* output 1 */
MiniTLS 0:35aa5be3b78d 23 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 24 SQRADD2(a[0], a[1]);
MiniTLS 0:35aa5be3b78d 25 COMBA_STORE(b[1]);
MiniTLS 0:35aa5be3b78d 26
MiniTLS 0:35aa5be3b78d 27 /* output 2 */
MiniTLS 0:35aa5be3b78d 28 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 29 SQRADD2(a[0], a[2]); SQRADD(a[1], a[1]);
MiniTLS 0:35aa5be3b78d 30 COMBA_STORE(b[2]);
MiniTLS 0:35aa5be3b78d 31
MiniTLS 0:35aa5be3b78d 32 /* output 3 */
MiniTLS 0:35aa5be3b78d 33 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 34 SQRADD2(a[0], a[3]); SQRADD2(a[1], a[2]);
MiniTLS 0:35aa5be3b78d 35 COMBA_STORE(b[3]);
MiniTLS 0:35aa5be3b78d 36
MiniTLS 0:35aa5be3b78d 37 /* output 4 */
MiniTLS 0:35aa5be3b78d 38 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 39 SQRADD2(a[0], a[4]); SQRADD2(a[1], a[3]); SQRADD(a[2], a[2]);
MiniTLS 0:35aa5be3b78d 40 COMBA_STORE(b[4]);
MiniTLS 0:35aa5be3b78d 41
MiniTLS 0:35aa5be3b78d 42 /* output 5 */
MiniTLS 0:35aa5be3b78d 43 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 44 SQRADDSC(a[0], a[5]); SQRADDAC(a[1], a[4]); SQRADDAC(a[2], a[3]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 45 COMBA_STORE(b[5]);
MiniTLS 0:35aa5be3b78d 46
MiniTLS 0:35aa5be3b78d 47 /* output 6 */
MiniTLS 0:35aa5be3b78d 48 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 49 SQRADDSC(a[0], a[6]); SQRADDAC(a[1], a[5]); SQRADDAC(a[2], a[4]); SQRADDDB; SQRADD(a[3], a[3]);
MiniTLS 0:35aa5be3b78d 50 COMBA_STORE(b[6]);
MiniTLS 0:35aa5be3b78d 51
MiniTLS 0:35aa5be3b78d 52 /* output 7 */
MiniTLS 0:35aa5be3b78d 53 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 54 SQRADDSC(a[0], a[7]); SQRADDAC(a[1], a[6]); SQRADDAC(a[2], a[5]); SQRADDAC(a[3], a[4]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 55 COMBA_STORE(b[7]);
MiniTLS 0:35aa5be3b78d 56
MiniTLS 0:35aa5be3b78d 57 /* output 8 */
MiniTLS 0:35aa5be3b78d 58 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 59 SQRADDSC(a[0], a[8]); SQRADDAC(a[1], a[7]); SQRADDAC(a[2], a[6]); SQRADDAC(a[3], a[5]); SQRADDDB; SQRADD(a[4], a[4]);
MiniTLS 0:35aa5be3b78d 60 COMBA_STORE(b[8]);
MiniTLS 0:35aa5be3b78d 61
MiniTLS 0:35aa5be3b78d 62 /* output 9 */
MiniTLS 0:35aa5be3b78d 63 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 64 SQRADDSC(a[0], a[9]); SQRADDAC(a[1], a[8]); SQRADDAC(a[2], a[7]); SQRADDAC(a[3], a[6]); SQRADDAC(a[4], a[5]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 65 COMBA_STORE(b[9]);
MiniTLS 0:35aa5be3b78d 66
MiniTLS 0:35aa5be3b78d 67 /* output 10 */
MiniTLS 0:35aa5be3b78d 68 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 69 SQRADDSC(a[0], a[10]); SQRADDAC(a[1], a[9]); SQRADDAC(a[2], a[8]); SQRADDAC(a[3], a[7]); SQRADDAC(a[4], a[6]); SQRADDDB; SQRADD(a[5], a[5]);
MiniTLS 0:35aa5be3b78d 70 COMBA_STORE(b[10]);
MiniTLS 0:35aa5be3b78d 71
MiniTLS 0:35aa5be3b78d 72 /* output 11 */
MiniTLS 0:35aa5be3b78d 73 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 74 SQRADDSC(a[0], a[11]); SQRADDAC(a[1], a[10]); SQRADDAC(a[2], a[9]); SQRADDAC(a[3], a[8]); SQRADDAC(a[4], a[7]); SQRADDAC(a[5], a[6]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 75 COMBA_STORE(b[11]);
MiniTLS 0:35aa5be3b78d 76
MiniTLS 0:35aa5be3b78d 77 /* output 12 */
MiniTLS 0:35aa5be3b78d 78 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 79 SQRADDSC(a[0], a[12]); SQRADDAC(a[1], a[11]); SQRADDAC(a[2], a[10]); SQRADDAC(a[3], a[9]); SQRADDAC(a[4], a[8]); SQRADDAC(a[5], a[7]); SQRADDDB; SQRADD(a[6], a[6]);
MiniTLS 0:35aa5be3b78d 80 COMBA_STORE(b[12]);
MiniTLS 0:35aa5be3b78d 81
MiniTLS 0:35aa5be3b78d 82 /* output 13 */
MiniTLS 0:35aa5be3b78d 83 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 84 SQRADDSC(a[0], a[13]); SQRADDAC(a[1], a[12]); SQRADDAC(a[2], a[11]); SQRADDAC(a[3], a[10]); SQRADDAC(a[4], a[9]); SQRADDAC(a[5], a[8]); SQRADDAC(a[6], a[7]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 85 COMBA_STORE(b[13]);
MiniTLS 0:35aa5be3b78d 86
MiniTLS 0:35aa5be3b78d 87 /* output 14 */
MiniTLS 0:35aa5be3b78d 88 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 89 SQRADDSC(a[0], a[14]); SQRADDAC(a[1], a[13]); SQRADDAC(a[2], a[12]); SQRADDAC(a[3], a[11]); SQRADDAC(a[4], a[10]); SQRADDAC(a[5], a[9]); SQRADDAC(a[6], a[8]); SQRADDDB; SQRADD(a[7], a[7]);
MiniTLS 0:35aa5be3b78d 90 COMBA_STORE(b[14]);
MiniTLS 0:35aa5be3b78d 91
MiniTLS 0:35aa5be3b78d 92 /* output 15 */
MiniTLS 0:35aa5be3b78d 93 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 94 SQRADDSC(a[0], a[15]); SQRADDAC(a[1], a[14]); SQRADDAC(a[2], a[13]); SQRADDAC(a[3], a[12]); SQRADDAC(a[4], a[11]); SQRADDAC(a[5], a[10]); SQRADDAC(a[6], a[9]); SQRADDAC(a[7], a[8]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 95 COMBA_STORE(b[15]);
MiniTLS 0:35aa5be3b78d 96
MiniTLS 0:35aa5be3b78d 97 /* output 16 */
MiniTLS 0:35aa5be3b78d 98 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 99 SQRADDSC(a[0], a[16]); SQRADDAC(a[1], a[15]); SQRADDAC(a[2], a[14]); SQRADDAC(a[3], a[13]); SQRADDAC(a[4], a[12]); SQRADDAC(a[5], a[11]); SQRADDAC(a[6], a[10]); SQRADDAC(a[7], a[9]); SQRADDDB; SQRADD(a[8], a[8]);
MiniTLS 0:35aa5be3b78d 100 COMBA_STORE(b[16]);
MiniTLS 0:35aa5be3b78d 101
MiniTLS 0:35aa5be3b78d 102 /* output 17 */
MiniTLS 0:35aa5be3b78d 103 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 104 SQRADDSC(a[0], a[17]); SQRADDAC(a[1], a[16]); SQRADDAC(a[2], a[15]); SQRADDAC(a[3], a[14]); SQRADDAC(a[4], a[13]); SQRADDAC(a[5], a[12]); SQRADDAC(a[6], a[11]); SQRADDAC(a[7], a[10]); SQRADDAC(a[8], a[9]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 105 COMBA_STORE(b[17]);
MiniTLS 0:35aa5be3b78d 106
MiniTLS 0:35aa5be3b78d 107 /* output 18 */
MiniTLS 0:35aa5be3b78d 108 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 109 SQRADDSC(a[0], a[18]); SQRADDAC(a[1], a[17]); SQRADDAC(a[2], a[16]); SQRADDAC(a[3], a[15]); SQRADDAC(a[4], a[14]); SQRADDAC(a[5], a[13]); SQRADDAC(a[6], a[12]); SQRADDAC(a[7], a[11]); SQRADDAC(a[8], a[10]); SQRADDDB; SQRADD(a[9], a[9]);
MiniTLS 0:35aa5be3b78d 110 COMBA_STORE(b[18]);
MiniTLS 0:35aa5be3b78d 111
MiniTLS 0:35aa5be3b78d 112 /* output 19 */
MiniTLS 0:35aa5be3b78d 113 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 114 SQRADDSC(a[0], a[19]); SQRADDAC(a[1], a[18]); SQRADDAC(a[2], a[17]); SQRADDAC(a[3], a[16]); SQRADDAC(a[4], a[15]); SQRADDAC(a[5], a[14]); SQRADDAC(a[6], a[13]); SQRADDAC(a[7], a[12]); SQRADDAC(a[8], a[11]); SQRADDAC(a[9], a[10]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 115 COMBA_STORE(b[19]);
MiniTLS 0:35aa5be3b78d 116
MiniTLS 0:35aa5be3b78d 117 /* output 20 */
MiniTLS 0:35aa5be3b78d 118 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 119 SQRADDSC(a[0], a[20]); SQRADDAC(a[1], a[19]); SQRADDAC(a[2], a[18]); SQRADDAC(a[3], a[17]); SQRADDAC(a[4], a[16]); SQRADDAC(a[5], a[15]); SQRADDAC(a[6], a[14]); SQRADDAC(a[7], a[13]); SQRADDAC(a[8], a[12]); SQRADDAC(a[9], a[11]); SQRADDDB; SQRADD(a[10], a[10]);
MiniTLS 0:35aa5be3b78d 120 COMBA_STORE(b[20]);
MiniTLS 0:35aa5be3b78d 121
MiniTLS 0:35aa5be3b78d 122 /* output 21 */
MiniTLS 0:35aa5be3b78d 123 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 124 SQRADDSC(a[0], a[21]); SQRADDAC(a[1], a[20]); SQRADDAC(a[2], a[19]); SQRADDAC(a[3], a[18]); SQRADDAC(a[4], a[17]); SQRADDAC(a[5], a[16]); SQRADDAC(a[6], a[15]); SQRADDAC(a[7], a[14]); SQRADDAC(a[8], a[13]); SQRADDAC(a[9], a[12]); SQRADDAC(a[10], a[11]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 125 COMBA_STORE(b[21]);
MiniTLS 0:35aa5be3b78d 126
MiniTLS 0:35aa5be3b78d 127 /* output 22 */
MiniTLS 0:35aa5be3b78d 128 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 129 SQRADDSC(a[0], a[22]); SQRADDAC(a[1], a[21]); SQRADDAC(a[2], a[20]); SQRADDAC(a[3], a[19]); SQRADDAC(a[4], a[18]); SQRADDAC(a[5], a[17]); SQRADDAC(a[6], a[16]); SQRADDAC(a[7], a[15]); SQRADDAC(a[8], a[14]); SQRADDAC(a[9], a[13]); SQRADDAC(a[10], a[12]); SQRADDDB; SQRADD(a[11], a[11]);
MiniTLS 0:35aa5be3b78d 130 COMBA_STORE(b[22]);
MiniTLS 0:35aa5be3b78d 131
MiniTLS 0:35aa5be3b78d 132 /* output 23 */
MiniTLS 0:35aa5be3b78d 133 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 134 SQRADDSC(a[0], a[23]); SQRADDAC(a[1], a[22]); SQRADDAC(a[2], a[21]); SQRADDAC(a[3], a[20]); SQRADDAC(a[4], a[19]); SQRADDAC(a[5], a[18]); SQRADDAC(a[6], a[17]); SQRADDAC(a[7], a[16]); SQRADDAC(a[8], a[15]); SQRADDAC(a[9], a[14]); SQRADDAC(a[10], a[13]); SQRADDAC(a[11], a[12]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 135 COMBA_STORE(b[23]);
MiniTLS 0:35aa5be3b78d 136
MiniTLS 0:35aa5be3b78d 137 /* output 24 */
MiniTLS 0:35aa5be3b78d 138 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 139 SQRADDSC(a[0], a[24]); SQRADDAC(a[1], a[23]); SQRADDAC(a[2], a[22]); SQRADDAC(a[3], a[21]); SQRADDAC(a[4], a[20]); SQRADDAC(a[5], a[19]); SQRADDAC(a[6], a[18]); SQRADDAC(a[7], a[17]); SQRADDAC(a[8], a[16]); SQRADDAC(a[9], a[15]); SQRADDAC(a[10], a[14]); SQRADDAC(a[11], a[13]); SQRADDDB; SQRADD(a[12], a[12]);
MiniTLS 0:35aa5be3b78d 140 COMBA_STORE(b[24]);
MiniTLS 0:35aa5be3b78d 141
MiniTLS 0:35aa5be3b78d 142 /* output 25 */
MiniTLS 0:35aa5be3b78d 143 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 144 SQRADDSC(a[0], a[25]); SQRADDAC(a[1], a[24]); SQRADDAC(a[2], a[23]); SQRADDAC(a[3], a[22]); SQRADDAC(a[4], a[21]); SQRADDAC(a[5], a[20]); SQRADDAC(a[6], a[19]); SQRADDAC(a[7], a[18]); SQRADDAC(a[8], a[17]); SQRADDAC(a[9], a[16]); SQRADDAC(a[10], a[15]); SQRADDAC(a[11], a[14]); SQRADDAC(a[12], a[13]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 145 COMBA_STORE(b[25]);
MiniTLS 0:35aa5be3b78d 146
MiniTLS 0:35aa5be3b78d 147 /* output 26 */
MiniTLS 0:35aa5be3b78d 148 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 149 SQRADDSC(a[0], a[26]); SQRADDAC(a[1], a[25]); SQRADDAC(a[2], a[24]); SQRADDAC(a[3], a[23]); SQRADDAC(a[4], a[22]); SQRADDAC(a[5], a[21]); SQRADDAC(a[6], a[20]); SQRADDAC(a[7], a[19]); SQRADDAC(a[8], a[18]); SQRADDAC(a[9], a[17]); SQRADDAC(a[10], a[16]); SQRADDAC(a[11], a[15]); SQRADDAC(a[12], a[14]); SQRADDDB; SQRADD(a[13], a[13]);
MiniTLS 0:35aa5be3b78d 150 COMBA_STORE(b[26]);
MiniTLS 0:35aa5be3b78d 151
MiniTLS 0:35aa5be3b78d 152 /* output 27 */
MiniTLS 0:35aa5be3b78d 153 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 154 SQRADDSC(a[0], a[27]); SQRADDAC(a[1], a[26]); SQRADDAC(a[2], a[25]); SQRADDAC(a[3], a[24]); SQRADDAC(a[4], a[23]); SQRADDAC(a[5], a[22]); SQRADDAC(a[6], a[21]); SQRADDAC(a[7], a[20]); SQRADDAC(a[8], a[19]); SQRADDAC(a[9], a[18]); SQRADDAC(a[10], a[17]); SQRADDAC(a[11], a[16]); SQRADDAC(a[12], a[15]); SQRADDAC(a[13], a[14]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 155 COMBA_STORE(b[27]);
MiniTLS 0:35aa5be3b78d 156
MiniTLS 0:35aa5be3b78d 157 /* output 28 */
MiniTLS 0:35aa5be3b78d 158 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 159 SQRADDSC(a[0], a[28]); SQRADDAC(a[1], a[27]); SQRADDAC(a[2], a[26]); SQRADDAC(a[3], a[25]); SQRADDAC(a[4], a[24]); SQRADDAC(a[5], a[23]); SQRADDAC(a[6], a[22]); SQRADDAC(a[7], a[21]); SQRADDAC(a[8], a[20]); SQRADDAC(a[9], a[19]); SQRADDAC(a[10], a[18]); SQRADDAC(a[11], a[17]); SQRADDAC(a[12], a[16]); SQRADDAC(a[13], a[15]); SQRADDDB; SQRADD(a[14], a[14]);
MiniTLS 0:35aa5be3b78d 160 COMBA_STORE(b[28]);
MiniTLS 0:35aa5be3b78d 161
MiniTLS 0:35aa5be3b78d 162 /* output 29 */
MiniTLS 0:35aa5be3b78d 163 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 164 SQRADDSC(a[0], a[29]); SQRADDAC(a[1], a[28]); SQRADDAC(a[2], a[27]); SQRADDAC(a[3], a[26]); SQRADDAC(a[4], a[25]); SQRADDAC(a[5], a[24]); SQRADDAC(a[6], a[23]); SQRADDAC(a[7], a[22]); SQRADDAC(a[8], a[21]); SQRADDAC(a[9], a[20]); SQRADDAC(a[10], a[19]); SQRADDAC(a[11], a[18]); SQRADDAC(a[12], a[17]); SQRADDAC(a[13], a[16]); SQRADDAC(a[14], a[15]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 165 COMBA_STORE(b[29]);
MiniTLS 0:35aa5be3b78d 166
MiniTLS 0:35aa5be3b78d 167 /* output 30 */
MiniTLS 0:35aa5be3b78d 168 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 169 SQRADDSC(a[0], a[30]); SQRADDAC(a[1], a[29]); SQRADDAC(a[2], a[28]); SQRADDAC(a[3], a[27]); SQRADDAC(a[4], a[26]); SQRADDAC(a[5], a[25]); SQRADDAC(a[6], a[24]); SQRADDAC(a[7], a[23]); SQRADDAC(a[8], a[22]); SQRADDAC(a[9], a[21]); SQRADDAC(a[10], a[20]); SQRADDAC(a[11], a[19]); SQRADDAC(a[12], a[18]); SQRADDAC(a[13], a[17]); SQRADDAC(a[14], a[16]); SQRADDDB; SQRADD(a[15], a[15]);
MiniTLS 0:35aa5be3b78d 170 COMBA_STORE(b[30]);
MiniTLS 0:35aa5be3b78d 171
MiniTLS 0:35aa5be3b78d 172 /* output 31 */
MiniTLS 0:35aa5be3b78d 173 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 174 SQRADDSC(a[0], a[31]); SQRADDAC(a[1], a[30]); SQRADDAC(a[2], a[29]); SQRADDAC(a[3], a[28]); SQRADDAC(a[4], a[27]); SQRADDAC(a[5], a[26]); SQRADDAC(a[6], a[25]); SQRADDAC(a[7], a[24]); SQRADDAC(a[8], a[23]); SQRADDAC(a[9], a[22]); SQRADDAC(a[10], a[21]); SQRADDAC(a[11], a[20]); SQRADDAC(a[12], a[19]); SQRADDAC(a[13], a[18]); SQRADDAC(a[14], a[17]); SQRADDAC(a[15], a[16]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 175 COMBA_STORE(b[31]);
MiniTLS 0:35aa5be3b78d 176
MiniTLS 0:35aa5be3b78d 177 /* output 32 */
MiniTLS 0:35aa5be3b78d 178 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 179 SQRADDSC(a[1], a[31]); SQRADDAC(a[2], a[30]); SQRADDAC(a[3], a[29]); SQRADDAC(a[4], a[28]); SQRADDAC(a[5], a[27]); SQRADDAC(a[6], a[26]); SQRADDAC(a[7], a[25]); SQRADDAC(a[8], a[24]); SQRADDAC(a[9], a[23]); SQRADDAC(a[10], a[22]); SQRADDAC(a[11], a[21]); SQRADDAC(a[12], a[20]); SQRADDAC(a[13], a[19]); SQRADDAC(a[14], a[18]); SQRADDAC(a[15], a[17]); SQRADDDB; SQRADD(a[16], a[16]);
MiniTLS 0:35aa5be3b78d 180 COMBA_STORE(b[32]);
MiniTLS 0:35aa5be3b78d 181
MiniTLS 0:35aa5be3b78d 182 /* output 33 */
MiniTLS 0:35aa5be3b78d 183 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 184 SQRADDSC(a[2], a[31]); SQRADDAC(a[3], a[30]); SQRADDAC(a[4], a[29]); SQRADDAC(a[5], a[28]); SQRADDAC(a[6], a[27]); SQRADDAC(a[7], a[26]); SQRADDAC(a[8], a[25]); SQRADDAC(a[9], a[24]); SQRADDAC(a[10], a[23]); SQRADDAC(a[11], a[22]); SQRADDAC(a[12], a[21]); SQRADDAC(a[13], a[20]); SQRADDAC(a[14], a[19]); SQRADDAC(a[15], a[18]); SQRADDAC(a[16], a[17]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 185 COMBA_STORE(b[33]);
MiniTLS 0:35aa5be3b78d 186
MiniTLS 0:35aa5be3b78d 187 /* output 34 */
MiniTLS 0:35aa5be3b78d 188 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 189 SQRADDSC(a[3], a[31]); SQRADDAC(a[4], a[30]); SQRADDAC(a[5], a[29]); SQRADDAC(a[6], a[28]); SQRADDAC(a[7], a[27]); SQRADDAC(a[8], a[26]); SQRADDAC(a[9], a[25]); SQRADDAC(a[10], a[24]); SQRADDAC(a[11], a[23]); SQRADDAC(a[12], a[22]); SQRADDAC(a[13], a[21]); SQRADDAC(a[14], a[20]); SQRADDAC(a[15], a[19]); SQRADDAC(a[16], a[18]); SQRADDDB; SQRADD(a[17], a[17]);
MiniTLS 0:35aa5be3b78d 190 COMBA_STORE(b[34]);
MiniTLS 0:35aa5be3b78d 191
MiniTLS 0:35aa5be3b78d 192 /* output 35 */
MiniTLS 0:35aa5be3b78d 193 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 194 SQRADDSC(a[4], a[31]); SQRADDAC(a[5], a[30]); SQRADDAC(a[6], a[29]); SQRADDAC(a[7], a[28]); SQRADDAC(a[8], a[27]); SQRADDAC(a[9], a[26]); SQRADDAC(a[10], a[25]); SQRADDAC(a[11], a[24]); SQRADDAC(a[12], a[23]); SQRADDAC(a[13], a[22]); SQRADDAC(a[14], a[21]); SQRADDAC(a[15], a[20]); SQRADDAC(a[16], a[19]); SQRADDAC(a[17], a[18]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 195 COMBA_STORE(b[35]);
MiniTLS 0:35aa5be3b78d 196
MiniTLS 0:35aa5be3b78d 197 /* output 36 */
MiniTLS 0:35aa5be3b78d 198 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 199 SQRADDSC(a[5], a[31]); SQRADDAC(a[6], a[30]); SQRADDAC(a[7], a[29]); SQRADDAC(a[8], a[28]); SQRADDAC(a[9], a[27]); SQRADDAC(a[10], a[26]); SQRADDAC(a[11], a[25]); SQRADDAC(a[12], a[24]); SQRADDAC(a[13], a[23]); SQRADDAC(a[14], a[22]); SQRADDAC(a[15], a[21]); SQRADDAC(a[16], a[20]); SQRADDAC(a[17], a[19]); SQRADDDB; SQRADD(a[18], a[18]);
MiniTLS 0:35aa5be3b78d 200 COMBA_STORE(b[36]);
MiniTLS 0:35aa5be3b78d 201
MiniTLS 0:35aa5be3b78d 202 /* output 37 */
MiniTLS 0:35aa5be3b78d 203 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 204 SQRADDSC(a[6], a[31]); SQRADDAC(a[7], a[30]); SQRADDAC(a[8], a[29]); SQRADDAC(a[9], a[28]); SQRADDAC(a[10], a[27]); SQRADDAC(a[11], a[26]); SQRADDAC(a[12], a[25]); SQRADDAC(a[13], a[24]); SQRADDAC(a[14], a[23]); SQRADDAC(a[15], a[22]); SQRADDAC(a[16], a[21]); SQRADDAC(a[17], a[20]); SQRADDAC(a[18], a[19]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 205 COMBA_STORE(b[37]);
MiniTLS 0:35aa5be3b78d 206
MiniTLS 0:35aa5be3b78d 207 /* output 38 */
MiniTLS 0:35aa5be3b78d 208 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 209 SQRADDSC(a[7], a[31]); SQRADDAC(a[8], a[30]); SQRADDAC(a[9], a[29]); SQRADDAC(a[10], a[28]); SQRADDAC(a[11], a[27]); SQRADDAC(a[12], a[26]); SQRADDAC(a[13], a[25]); SQRADDAC(a[14], a[24]); SQRADDAC(a[15], a[23]); SQRADDAC(a[16], a[22]); SQRADDAC(a[17], a[21]); SQRADDAC(a[18], a[20]); SQRADDDB; SQRADD(a[19], a[19]);
MiniTLS 0:35aa5be3b78d 210 COMBA_STORE(b[38]);
MiniTLS 0:35aa5be3b78d 211
MiniTLS 0:35aa5be3b78d 212 /* output 39 */
MiniTLS 0:35aa5be3b78d 213 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 214 SQRADDSC(a[8], a[31]); SQRADDAC(a[9], a[30]); SQRADDAC(a[10], a[29]); SQRADDAC(a[11], a[28]); SQRADDAC(a[12], a[27]); SQRADDAC(a[13], a[26]); SQRADDAC(a[14], a[25]); SQRADDAC(a[15], a[24]); SQRADDAC(a[16], a[23]); SQRADDAC(a[17], a[22]); SQRADDAC(a[18], a[21]); SQRADDAC(a[19], a[20]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 215 COMBA_STORE(b[39]);
MiniTLS 0:35aa5be3b78d 216
MiniTLS 0:35aa5be3b78d 217 /* output 40 */
MiniTLS 0:35aa5be3b78d 218 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 219 SQRADDSC(a[9], a[31]); SQRADDAC(a[10], a[30]); SQRADDAC(a[11], a[29]); SQRADDAC(a[12], a[28]); SQRADDAC(a[13], a[27]); SQRADDAC(a[14], a[26]); SQRADDAC(a[15], a[25]); SQRADDAC(a[16], a[24]); SQRADDAC(a[17], a[23]); SQRADDAC(a[18], a[22]); SQRADDAC(a[19], a[21]); SQRADDDB; SQRADD(a[20], a[20]);
MiniTLS 0:35aa5be3b78d 220 COMBA_STORE(b[40]);
MiniTLS 0:35aa5be3b78d 221
MiniTLS 0:35aa5be3b78d 222 /* output 41 */
MiniTLS 0:35aa5be3b78d 223 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 224 SQRADDSC(a[10], a[31]); SQRADDAC(a[11], a[30]); SQRADDAC(a[12], a[29]); SQRADDAC(a[13], a[28]); SQRADDAC(a[14], a[27]); SQRADDAC(a[15], a[26]); SQRADDAC(a[16], a[25]); SQRADDAC(a[17], a[24]); SQRADDAC(a[18], a[23]); SQRADDAC(a[19], a[22]); SQRADDAC(a[20], a[21]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 225 COMBA_STORE(b[41]);
MiniTLS 0:35aa5be3b78d 226
MiniTLS 0:35aa5be3b78d 227 /* output 42 */
MiniTLS 0:35aa5be3b78d 228 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 229 SQRADDSC(a[11], a[31]); SQRADDAC(a[12], a[30]); SQRADDAC(a[13], a[29]); SQRADDAC(a[14], a[28]); SQRADDAC(a[15], a[27]); SQRADDAC(a[16], a[26]); SQRADDAC(a[17], a[25]); SQRADDAC(a[18], a[24]); SQRADDAC(a[19], a[23]); SQRADDAC(a[20], a[22]); SQRADDDB; SQRADD(a[21], a[21]);
MiniTLS 0:35aa5be3b78d 230 COMBA_STORE(b[42]);
MiniTLS 0:35aa5be3b78d 231
MiniTLS 0:35aa5be3b78d 232 /* output 43 */
MiniTLS 0:35aa5be3b78d 233 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 234 SQRADDSC(a[12], a[31]); SQRADDAC(a[13], a[30]); SQRADDAC(a[14], a[29]); SQRADDAC(a[15], a[28]); SQRADDAC(a[16], a[27]); SQRADDAC(a[17], a[26]); SQRADDAC(a[18], a[25]); SQRADDAC(a[19], a[24]); SQRADDAC(a[20], a[23]); SQRADDAC(a[21], a[22]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 235 COMBA_STORE(b[43]);
MiniTLS 0:35aa5be3b78d 236
MiniTLS 0:35aa5be3b78d 237 /* output 44 */
MiniTLS 0:35aa5be3b78d 238 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 239 SQRADDSC(a[13], a[31]); SQRADDAC(a[14], a[30]); SQRADDAC(a[15], a[29]); SQRADDAC(a[16], a[28]); SQRADDAC(a[17], a[27]); SQRADDAC(a[18], a[26]); SQRADDAC(a[19], a[25]); SQRADDAC(a[20], a[24]); SQRADDAC(a[21], a[23]); SQRADDDB; SQRADD(a[22], a[22]);
MiniTLS 0:35aa5be3b78d 240 COMBA_STORE(b[44]);
MiniTLS 0:35aa5be3b78d 241
MiniTLS 0:35aa5be3b78d 242 /* output 45 */
MiniTLS 0:35aa5be3b78d 243 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 244 SQRADDSC(a[14], a[31]); SQRADDAC(a[15], a[30]); SQRADDAC(a[16], a[29]); SQRADDAC(a[17], a[28]); SQRADDAC(a[18], a[27]); SQRADDAC(a[19], a[26]); SQRADDAC(a[20], a[25]); SQRADDAC(a[21], a[24]); SQRADDAC(a[22], a[23]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 245 COMBA_STORE(b[45]);
MiniTLS 0:35aa5be3b78d 246
MiniTLS 0:35aa5be3b78d 247 /* output 46 */
MiniTLS 0:35aa5be3b78d 248 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 249 SQRADDSC(a[15], a[31]); SQRADDAC(a[16], a[30]); SQRADDAC(a[17], a[29]); SQRADDAC(a[18], a[28]); SQRADDAC(a[19], a[27]); SQRADDAC(a[20], a[26]); SQRADDAC(a[21], a[25]); SQRADDAC(a[22], a[24]); SQRADDDB; SQRADD(a[23], a[23]);
MiniTLS 0:35aa5be3b78d 250 COMBA_STORE(b[46]);
MiniTLS 0:35aa5be3b78d 251
MiniTLS 0:35aa5be3b78d 252 /* output 47 */
MiniTLS 0:35aa5be3b78d 253 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 254 SQRADDSC(a[16], a[31]); SQRADDAC(a[17], a[30]); SQRADDAC(a[18], a[29]); SQRADDAC(a[19], a[28]); SQRADDAC(a[20], a[27]); SQRADDAC(a[21], a[26]); SQRADDAC(a[22], a[25]); SQRADDAC(a[23], a[24]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 255 COMBA_STORE(b[47]);
MiniTLS 0:35aa5be3b78d 256
MiniTLS 0:35aa5be3b78d 257 /* output 48 */
MiniTLS 0:35aa5be3b78d 258 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 259 SQRADDSC(a[17], a[31]); SQRADDAC(a[18], a[30]); SQRADDAC(a[19], a[29]); SQRADDAC(a[20], a[28]); SQRADDAC(a[21], a[27]); SQRADDAC(a[22], a[26]); SQRADDAC(a[23], a[25]); SQRADDDB; SQRADD(a[24], a[24]);
MiniTLS 0:35aa5be3b78d 260 COMBA_STORE(b[48]);
MiniTLS 0:35aa5be3b78d 261
MiniTLS 0:35aa5be3b78d 262 /* output 49 */
MiniTLS 0:35aa5be3b78d 263 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 264 SQRADDSC(a[18], a[31]); SQRADDAC(a[19], a[30]); SQRADDAC(a[20], a[29]); SQRADDAC(a[21], a[28]); SQRADDAC(a[22], a[27]); SQRADDAC(a[23], a[26]); SQRADDAC(a[24], a[25]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 265 COMBA_STORE(b[49]);
MiniTLS 0:35aa5be3b78d 266
MiniTLS 0:35aa5be3b78d 267 /* output 50 */
MiniTLS 0:35aa5be3b78d 268 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 269 SQRADDSC(a[19], a[31]); SQRADDAC(a[20], a[30]); SQRADDAC(a[21], a[29]); SQRADDAC(a[22], a[28]); SQRADDAC(a[23], a[27]); SQRADDAC(a[24], a[26]); SQRADDDB; SQRADD(a[25], a[25]);
MiniTLS 0:35aa5be3b78d 270 COMBA_STORE(b[50]);
MiniTLS 0:35aa5be3b78d 271
MiniTLS 0:35aa5be3b78d 272 /* output 51 */
MiniTLS 0:35aa5be3b78d 273 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 274 SQRADDSC(a[20], a[31]); SQRADDAC(a[21], a[30]); SQRADDAC(a[22], a[29]); SQRADDAC(a[23], a[28]); SQRADDAC(a[24], a[27]); SQRADDAC(a[25], a[26]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 275 COMBA_STORE(b[51]);
MiniTLS 0:35aa5be3b78d 276
MiniTLS 0:35aa5be3b78d 277 /* output 52 */
MiniTLS 0:35aa5be3b78d 278 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 279 SQRADDSC(a[21], a[31]); SQRADDAC(a[22], a[30]); SQRADDAC(a[23], a[29]); SQRADDAC(a[24], a[28]); SQRADDAC(a[25], a[27]); SQRADDDB; SQRADD(a[26], a[26]);
MiniTLS 0:35aa5be3b78d 280 COMBA_STORE(b[52]);
MiniTLS 0:35aa5be3b78d 281
MiniTLS 0:35aa5be3b78d 282 /* output 53 */
MiniTLS 0:35aa5be3b78d 283 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 284 SQRADDSC(a[22], a[31]); SQRADDAC(a[23], a[30]); SQRADDAC(a[24], a[29]); SQRADDAC(a[25], a[28]); SQRADDAC(a[26], a[27]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 285 COMBA_STORE(b[53]);
MiniTLS 0:35aa5be3b78d 286
MiniTLS 0:35aa5be3b78d 287 /* output 54 */
MiniTLS 0:35aa5be3b78d 288 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 289 SQRADDSC(a[23], a[31]); SQRADDAC(a[24], a[30]); SQRADDAC(a[25], a[29]); SQRADDAC(a[26], a[28]); SQRADDDB; SQRADD(a[27], a[27]);
MiniTLS 0:35aa5be3b78d 290 COMBA_STORE(b[54]);
MiniTLS 0:35aa5be3b78d 291
MiniTLS 0:35aa5be3b78d 292 /* output 55 */
MiniTLS 0:35aa5be3b78d 293 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 294 SQRADDSC(a[24], a[31]); SQRADDAC(a[25], a[30]); SQRADDAC(a[26], a[29]); SQRADDAC(a[27], a[28]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 295 COMBA_STORE(b[55]);
MiniTLS 0:35aa5be3b78d 296
MiniTLS 0:35aa5be3b78d 297 /* output 56 */
MiniTLS 0:35aa5be3b78d 298 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 299 SQRADDSC(a[25], a[31]); SQRADDAC(a[26], a[30]); SQRADDAC(a[27], a[29]); SQRADDDB; SQRADD(a[28], a[28]);
MiniTLS 0:35aa5be3b78d 300 COMBA_STORE(b[56]);
MiniTLS 0:35aa5be3b78d 301
MiniTLS 0:35aa5be3b78d 302 /* output 57 */
MiniTLS 0:35aa5be3b78d 303 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 304 SQRADDSC(a[26], a[31]); SQRADDAC(a[27], a[30]); SQRADDAC(a[28], a[29]); SQRADDDB;
MiniTLS 0:35aa5be3b78d 305 COMBA_STORE(b[57]);
MiniTLS 0:35aa5be3b78d 306
MiniTLS 0:35aa5be3b78d 307 /* output 58 */
MiniTLS 0:35aa5be3b78d 308 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 309 SQRADD2(a[27], a[31]); SQRADD2(a[28], a[30]); SQRADD(a[29], a[29]);
MiniTLS 0:35aa5be3b78d 310 COMBA_STORE(b[58]);
MiniTLS 0:35aa5be3b78d 311
MiniTLS 0:35aa5be3b78d 312 /* output 59 */
MiniTLS 0:35aa5be3b78d 313 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 314 SQRADD2(a[28], a[31]); SQRADD2(a[29], a[30]);
MiniTLS 0:35aa5be3b78d 315 COMBA_STORE(b[59]);
MiniTLS 0:35aa5be3b78d 316
MiniTLS 0:35aa5be3b78d 317 /* output 60 */
MiniTLS 0:35aa5be3b78d 318 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 319 SQRADD2(a[29], a[31]); SQRADD(a[30], a[30]);
MiniTLS 0:35aa5be3b78d 320 COMBA_STORE(b[60]);
MiniTLS 0:35aa5be3b78d 321
MiniTLS 0:35aa5be3b78d 322 /* output 61 */
MiniTLS 0:35aa5be3b78d 323 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 324 SQRADD2(a[30], a[31]);
MiniTLS 0:35aa5be3b78d 325 COMBA_STORE(b[61]);
MiniTLS 0:35aa5be3b78d 326
MiniTLS 0:35aa5be3b78d 327 /* output 62 */
MiniTLS 0:35aa5be3b78d 328 CARRY_FORWARD;
MiniTLS 0:35aa5be3b78d 329 SQRADD(a[31], a[31]);
MiniTLS 0:35aa5be3b78d 330 COMBA_STORE(b[62]);
MiniTLS 0:35aa5be3b78d 331 COMBA_STORE2(b[63]);
MiniTLS 0:35aa5be3b78d 332 COMBA_FINI;
MiniTLS 0:35aa5be3b78d 333
MiniTLS 0:35aa5be3b78d 334 B->used = 64;
MiniTLS 0:35aa5be3b78d 335 B->sign = FP_ZPOS;
MiniTLS 0:35aa5be3b78d 336 memcpy(B->dp, b, 64 * sizeof(fp_digit));
MiniTLS 0:35aa5be3b78d 337 fp_clamp(B);
MiniTLS 0:35aa5be3b78d 338 }
MiniTLS 0:35aa5be3b78d 339 #endif
MiniTLS 0:35aa5be3b78d 340
MiniTLS 0:35aa5be3b78d 341
MiniTLS 0:35aa5be3b78d 342 /* $Source: /cvs/libtom/tomsfastmath/src/sqr/fp_sqr_comba_32.c,v $ */
MiniTLS 0:35aa5be3b78d 343 /* $Revision: 1.2 $ */
MiniTLS 0:35aa5be3b78d 344 /* $Date: 2007/02/17 03:39:01 $ */