tomsfastmath version of rsa, keygen missing
This commit is contained in:
Love Hornquist Astrand
@@ -2,6 +2,8 @@
|
|||||||
|
|
||||||
include $(top_srcdir)/Makefile.am.common
|
include $(top_srcdir)/Makefile.am.common
|
||||||
|
|
||||||
|
AM_CPPFLAGS += -I$(srcdir)/tomsfastmath/src/headers
|
||||||
|
|
||||||
lib_LTLIBRARIES = libhcrypto.la
|
lib_LTLIBRARIES = libhcrypto.la
|
||||||
check_LTLIBRARIES = libhctest.la
|
check_LTLIBRARIES = libhctest.la
|
||||||
|
|
||||||
@@ -90,6 +92,7 @@ LDADD = $(lib_LTLIBRARIES) $(LIB_roken)
|
|||||||
|
|
||||||
libhcrypto_la_SOURCES = \
|
libhcrypto_la_SOURCES = \
|
||||||
$(imathsource) \
|
$(imathsource) \
|
||||||
|
$(tfmsource) \
|
||||||
aes.c \
|
aes.c \
|
||||||
aes.h \
|
aes.h \
|
||||||
bn.c \
|
bn.c \
|
||||||
@@ -141,6 +144,7 @@ libhcrypto_la_SOURCES = \
|
|||||||
rsa.c \
|
rsa.c \
|
||||||
rsa-gmp.c \
|
rsa-gmp.c \
|
||||||
rsa-imath.c \
|
rsa-imath.c \
|
||||||
|
rsa-tfm.c \
|
||||||
rsa.h \
|
rsa.h \
|
||||||
sha.c \
|
sha.c \
|
||||||
sha.h \
|
sha.h \
|
||||||
@@ -154,9 +158,98 @@ imathsource = \
|
|||||||
imath/iprime.c \
|
imath/iprime.c \
|
||||||
imath/iprime.h
|
imath/iprime.h
|
||||||
|
|
||||||
|
tfmsource = \
|
||||||
|
tomsfastmath/src/headers/tfm.h \
|
||||||
|
tomsfastmath/src/addsub/fp_add.c \
|
||||||
|
tomsfastmath/src/addsub/fp_add_d.c \
|
||||||
|
tomsfastmath/src/addsub/fp_addmod.c \
|
||||||
|
tomsfastmath/src/addsub/fp_cmp.c \
|
||||||
|
tomsfastmath/src/addsub/fp_cmp_d.c \
|
||||||
|
tomsfastmath/src/addsub/fp_cmp_mag.c \
|
||||||
|
tomsfastmath/src/addsub/fp_sub.c \
|
||||||
|
tomsfastmath/src/addsub/fp_sub_d.c \
|
||||||
|
tomsfastmath/src/addsub/fp_submod.c \
|
||||||
|
tomsfastmath/src/addsub/s_fp_add.c \
|
||||||
|
tomsfastmath/src/addsub/s_fp_sub.c \
|
||||||
|
tomsfastmath/src/bin/fp_radix_size.c \
|
||||||
|
tomsfastmath/src/bin/fp_read_radix.c \
|
||||||
|
tomsfastmath/src/bin/fp_read_signed_bin.c \
|
||||||
|
tomsfastmath/src/bin/fp_read_unsigned_bin.c \
|
||||||
|
tomsfastmath/src/bin/fp_reverse.c \
|
||||||
|
tomsfastmath/src/bin/fp_s_rmap.c \
|
||||||
|
tomsfastmath/src/bin/fp_signed_bin_size.c \
|
||||||
|
tomsfastmath/src/bin/fp_to_signed_bin.c \
|
||||||
|
tomsfastmath/src/bin/fp_to_unsigned_bin.c \
|
||||||
|
tomsfastmath/src/bin/fp_toradix.c \
|
||||||
|
tomsfastmath/src/bin/fp_unsigned_bin_size.c \
|
||||||
|
tomsfastmath/src/bit/fp_cnt_lsb.c \
|
||||||
|
tomsfastmath/src/bit/fp_count_bits.c \
|
||||||
|
tomsfastmath/src/bit/fp_div_2.c \
|
||||||
|
tomsfastmath/src/bit/fp_div_2d.c \
|
||||||
|
tomsfastmath/src/bit/fp_lshd.c \
|
||||||
|
tomsfastmath/src/bit/fp_mod_2d.c \
|
||||||
|
tomsfastmath/src/bit/fp_rshd.c \
|
||||||
|
tomsfastmath/src/divide/fp_div.c \
|
||||||
|
tomsfastmath/src/divide/fp_div_d.c \
|
||||||
|
tomsfastmath/src/divide/fp_mod.c \
|
||||||
|
tomsfastmath/src/divide/fp_mod_d.c \
|
||||||
|
tomsfastmath/src/exptmod/fp_2expt.c \
|
||||||
|
tomsfastmath/src/exptmod/fp_exptmod.c \
|
||||||
|
tomsfastmath/src/misc/fp_ident.c \
|
||||||
|
tomsfastmath/src/misc/fp_set.c \
|
||||||
|
tomsfastmath/src/mont/fp_montgomery_calc_normalization.c \
|
||||||
|
tomsfastmath/src/mont/fp_montgomery_reduce.c \
|
||||||
|
tomsfastmath/src/mont/fp_montgomery_setup.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_2.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_2d.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_12.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_17.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_20.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_24.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_28.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_3.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_32.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_4.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_48.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_6.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_64.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_7.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_8.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_9.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_comba_small_set.c \
|
||||||
|
tomsfastmath/src/mul/fp_mul_d.c \
|
||||||
|
tomsfastmath/src/mul/fp_mulmod.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_gcd.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_invmod.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_isprime.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_lcm.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_prime_miller_rabin.c \
|
||||||
|
tomsfastmath/src/numtheory/fp_prime_random_ex.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_12.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_17.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_20.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_24.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_28.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_3.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_32.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_4.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_48.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_6.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_64.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_7.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_8.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_9.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_generic.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqr_comba_small_set.c \
|
||||||
|
tomsfastmath/src/sqr/fp_sqrmod.c
|
||||||
|
|
||||||
$(libhcrypto_la_OBJECTS): hcrypto-link
|
$(libhcrypto_la_OBJECTS): hcrypto-link
|
||||||
|
|
||||||
libhcrypto_la_CPPFLAGS = -DIMATH_LARGE_PRIME_TABLE -DBUILD_HCRYPTO_LIB $(AM_CPPFLAGS)
|
libhcrypto_la_CPPFLAGS = -DIMATH_LARGE_PRIME_TABLE -DTFM_CHECK -DTFM_TIMING_RESISTANT -DBUILD_HCRYPTO_LIB $(AM_CPPFLAGS)
|
||||||
|
|
||||||
if versionscript
|
if versionscript
|
||||||
libhcrypto_la_LDFLAGS += $(LDFLAGS_VERSION_SCRIPT)$(srcdir)/version-script.map
|
libhcrypto_la_LDFLAGS += $(LDFLAGS_VERSION_SCRIPT)$(srcdir)/version-script.map
|
||||||
|
|||||||
@@ -237,6 +237,7 @@ EXPORTS
|
|||||||
hc_RSA_get_default_method
|
hc_RSA_get_default_method
|
||||||
hc_RSA_get_method
|
hc_RSA_get_method
|
||||||
hc_RSA_imath_method
|
hc_RSA_imath_method
|
||||||
|
hc_RSA_tfm_method
|
||||||
hc_RSA_new
|
hc_RSA_new
|
||||||
hc_RSA_new_method
|
hc_RSA_new_method
|
||||||
hc_RSA_null_method
|
hc_RSA_null_method
|
||||||
|
|||||||
@@ -41,6 +41,7 @@
|
|||||||
/* symbol renaming */
|
/* symbol renaming */
|
||||||
#define RSA_null_method hc_RSA_null_method
|
#define RSA_null_method hc_RSA_null_method
|
||||||
#define RSA_imath_method hc_RSA_imath_method
|
#define RSA_imath_method hc_RSA_imath_method
|
||||||
|
#define RSA_tfm_method hc_RSA_tfm_method
|
||||||
#define RSA_gmp_method hc_RSA_gmp_method
|
#define RSA_gmp_method hc_RSA_gmp_method
|
||||||
#define RSA_new hc_RSA_new
|
#define RSA_new hc_RSA_new
|
||||||
#define RSA_new_method hc_RSA_new_method
|
#define RSA_new_method hc_RSA_new_method
|
||||||
@@ -136,6 +137,7 @@ struct RSA {
|
|||||||
const RSA_METHOD *RSA_null_method(void);
|
const RSA_METHOD *RSA_null_method(void);
|
||||||
const RSA_METHOD *RSA_imath_method(void);
|
const RSA_METHOD *RSA_imath_method(void);
|
||||||
const RSA_METHOD *RSA_gmp_method(void);
|
const RSA_METHOD *RSA_gmp_method(void);
|
||||||
|
const RSA_METHOD *RSA_tfm_method(void);
|
||||||
|
|
||||||
/*
|
/*
|
||||||
*
|
*
|
||||||
|
|||||||
7
lib/hcrypto/tomsfastmath/LICENSE
Normal file
7
lib/hcrypto/tomsfastmath/LICENSE
Normal file
@@ -0,0 +1,7 @@
|
|||||||
|
TomsFastMath is public domain.
|
||||||
|
|
||||||
|
Note some ideas were borrowed from LibTomMath and OpenSSL. All of the code is original or ported
|
||||||
|
from LibTomMath [no code was ported from OpenSSL]. As such the origins and status of this code
|
||||||
|
are both public domain.
|
||||||
|
|
||||||
|
-- Tom St Denis
|
||||||
1
lib/hcrypto/tomsfastmath/RELEASE
Normal file
1
lib/hcrypto/tomsfastmath/RELEASE
Normal file
@@ -0,0 +1 @@
|
|||||||
|
libtomcrypt-1.17-plus-unrel
|
||||||
5
lib/hcrypto/tomsfastmath/SPONSORS
Normal file
5
lib/hcrypto/tomsfastmath/SPONSORS
Normal file
@@ -0,0 +1,5 @@
|
|||||||
|
Development of TomsFastMath was sponsored by three groups. Two companies that use LTC and LTM commercially
|
||||||
|
and one individual who decided he wanted to help out by being generous.
|
||||||
|
|
||||||
|
Thanks goes to them [though they wished to remain anonymous] and people like them.
|
||||||
|
|
||||||
0
lib/hcrypto/tomsfastmath/TODO
Normal file
0
lib/hcrypto/tomsfastmath/TODO
Normal file
95
lib/hcrypto/tomsfastmath/changes.txt
Normal file
95
lib/hcrypto/tomsfastmath/changes.txt
Normal file
@@ -0,0 +1,95 @@
|
|||||||
|
March 14th, 2007
|
||||||
|
0.12 -- Christophe Devine contributed MIPS asm w00t
|
||||||
|
++ quick release to get the MIPS code out there
|
||||||
|
|
||||||
|
March 10th, 2007
|
||||||
|
0.11 -- re-org'ed the source tree, it's cooler now
|
||||||
|
-- cleaned up mul/sqr so there is only one file per unit, should help building with older compilers and/or on slower boxes
|
||||||
|
-- [CRI] optimized fp_read_unsigned_bin
|
||||||
|
-- fixed -0 ... again ... I now have less hair on my head.
|
||||||
|
-- [CRI] renamed bn_reverse() -> fp_reverse()
|
||||||
|
|
||||||
|
November 1st, 2006
|
||||||
|
0.10 -- Unrolled Montgomery for 1..16 digits with TFM_SMALL_MONT_SET between 10% and 25% speedup depending on size.
|
||||||
|
-- fixed fp_sqr_comba.c so it builds in ISO C mode [Andreas Lange]
|
||||||
|
-- cisc@broadpark.no pointed out fp_radix_size() had a few typos that affected correctness. Fixed.
|
||||||
|
-- Added support for ECC performance, e.g. define "-DTFM_ALREADY_SET -DTFM_ECC192" and it will disable
|
||||||
|
all of the unrolled code EXCEPT what is required for ECC P-192. It autodetects 32/64-bit platforms too. It's super neato.
|
||||||
|
Support for 192, 224, 256, 384 and 521 bit curves through the defines [see tfm.h]
|
||||||
|
-- AVR32 support added, define TFM_AVR32 to enable
|
||||||
|
|
||||||
|
April 4th, 2006
|
||||||
|
0.09 -- Bruce Guenter suggested I use --tag=CC for libtool builds where the compiler may think it's C++.
|
||||||
|
-- Added support for k=1 in exptmod for RSA exponents. Makes it more competitive with other libraries
|
||||||
|
-- added cutoffs to the comba32 sqr/mul code to better handle 640, 786 and 896 bit operands (e.g. for RSA-1280, RSA-1536 and RSA-1792), really no effect
|
||||||
|
for 64-bit boxes as these represent 1280, 1536 and 1792 bit operands (not likely to be invoked).
|
||||||
|
-- Removed karatsuba from the mul/sqr since they're not useful and slow.
|
||||||
|
-- added 20, 24 and 28 digit multipliers for oddsized RSA support. You can easily disable them by uncommenting the TFM_SQRXX and TFM_MULXX lines in
|
||||||
|
tfm.h to save space. Now GMP and TFM are roughly the same speed on the Pentium-M for RSA with LTC.
|
||||||
|
-- unrolled SSE2 code and optimize for platforms with load/store pipes (e.g. can store and load in a cycle). Got 4% or so boost on my Dothan laptop (marginal improvement on a P4 Prescott)
|
||||||
|
|
||||||
|
Jan 26th, 2006
|
||||||
|
0.08 -- Fixed a bug in the generic mult/sqr where we overflowed by one digit
|
||||||
|
|
||||||
|
November 18th, 2005
|
||||||
|
0.07 -- Fixes to fp_mul and fp_sqr to clean up the handling of the defines, fix to tfm.h to also clear up the prototypes.
|
||||||
|
-- Updates to build and run on a IBM PPC 405 [using GCC 3.4.4]
|
||||||
|
-- Made the "make" command renamable in the build system
|
||||||
|
|
||||||
|
October 31st, 2005
|
||||||
|
0.06 -- fixed fp_mul() and fp_sqr() to trim digits when overflows would occur. Produces numerically inprecise results
|
||||||
|
(e.g. the lower FP_SIZE digits) but shouldn't segfault at least ;-)
|
||||||
|
-- Updated the combas so you can turn on and off specific unrolled loops at build time
|
||||||
|
-- Michael Heyman reported a bug in s_fp_sub() that was pretty substantial and a bug in fp_montgomery_calc_normalization(). Fixed.
|
||||||
|
|
||||||
|
August 1st, 2005
|
||||||
|
0.05 -- Quick fix to the fp_invmod.c code to let it handle even moduli [required for LTC]
|
||||||
|
-- Added makefile.shared to make shared objects [required for LTC]
|
||||||
|
-- Improved makefiles to make them way more configurable
|
||||||
|
-- Added timing resistant fp_exptmod() enabled with TFM_TIMING_RESISTANT
|
||||||
|
|
||||||
|
July 23rd, 2005
|
||||||
|
0.04 -- Fixed bugs in the SSE2 squaring code
|
||||||
|
-- Rewrote the multipliers to be optimized for small inputs
|
||||||
|
-- Nelson Bolyard of the NSS crew submitted [among other things] new faster Montgomery reduction
|
||||||
|
code. It brings the performance for small numbers on the AMD64 and all numbers on the P4
|
||||||
|
to a new level. Thanks!
|
||||||
|
-- Added missing ARM support for fp_montgomery_reduce.c that the NSS folk left off, Officially
|
||||||
|
the ARM code is for v4 and above WITH the "M" multiplier support (e.g. umlal instruction)
|
||||||
|
-- Added PPC32 support, define TFM_PPC32 to enable it, I used the "PowerPC 6xx" instruction
|
||||||
|
databook for reference. Does not require altivec. Should be fairly portable to the other
|
||||||
|
32-bit PPCs provided they have mullw and mulhwu instructions.
|
||||||
|
[Note: porting the macros to PPC64 should be trivial, anyone with a shell to lend... email me!]
|
||||||
|
-- Rewrote the config a bit in tfm.h so you can better choose which set of "oh my god that's huge" code to
|
||||||
|
enable for your task. "generic" functions are ALWAYS included which are smaller but will cover the
|
||||||
|
gaps in the coverage for ya.
|
||||||
|
-- The PPC32 code has been verified to function on a Darwin box running GCC 2.95.2
|
||||||
|
[Thanks to the folk at PeerSec for lending me a shell to use]
|
||||||
|
-- Fixed a bug in fp_exptmod() where if the exponent was negative AND the destination the output
|
||||||
|
would have the sign set to FP_NEG.
|
||||||
|
|
||||||
|
March 1st, 2005
|
||||||
|
0.03 -- Optimized squaring
|
||||||
|
-- Applied new license header to all files (still PD)
|
||||||
|
|
||||||
|
September 18th, 2004
|
||||||
|
0.02 -- Added TFM_LARGE to turn on/off 16x combas to save even more space.
|
||||||
|
This also helps prevent killing the cache on smaller cpus.
|
||||||
|
-- Cast memset to void in fp_init() to catch people who misuse the function (e.g. expect return)
|
||||||
|
Thanks to Johan Lindh
|
||||||
|
-- Cleaned up x86-64 support [faster montgomery reductions]
|
||||||
|
-- Autodetects x86-32 and x86-64 and enables it's asm now
|
||||||
|
-- Made test demo build cleaner in multilib platforms [e.g. mixed 32/64 bits]
|
||||||
|
-- Fix to fp_mod to ensure that remainder is of the same sign as the modulus.
|
||||||
|
-- Fixed bug in fp_montgomery_calc_normalization for single digit moduli
|
||||||
|
-- cleaned up ISO C macros in comba/mont to avoid branches [works best with GCC 3.4.x branch]
|
||||||
|
-- Added more testing to tfm.h to help detect misconfigured builds
|
||||||
|
-- Added TFM_NO_ASM which forces ASM off [even if it was autodetected].
|
||||||
|
-- Added fp_radix_size() to API
|
||||||
|
-- Cleaned up demo/test.c to build with far fewer warnings (mostly %d => %lu fixes)
|
||||||
|
-- fp_exptmod() now supports negative exponent and base>modulus cases
|
||||||
|
-- Added fp_ident() which gives a string showing how TFM was configured. Useful for debuging...
|
||||||
|
-- fix gen.pl script so it includes the whole source tree now
|
||||||
|
|
||||||
|
August 25th, 2004
|
||||||
|
0.01 -- Initial Release
|
||||||
83
lib/hcrypto/tomsfastmath/demo/rsa.c
Normal file
83
lib/hcrypto/tomsfastmath/demo/rsa.c
Normal file
@@ -0,0 +1,83 @@
|
|||||||
|
#include "tfm.h"
|
||||||
|
#include <time.h>
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
fp_int d, e, n, c, m, e_m;
|
||||||
|
clock_t t1;
|
||||||
|
int x;
|
||||||
|
|
||||||
|
/* read in the parameters */
|
||||||
|
fp_read_radix(&n, "ce032e860a9809a5ec31e4b0fd4b546f8c40043e3d2ec3d8f49d8f2f3dd19e887094ee1af75caa1c2e6cd9ec78bf1dfd6280002ac8c30ecd72da2e4c59a28a9248048aaae2a8fa627f71bece979cebf9f8eee2bd594d4a4f2e791647573c7ec1fcbd320d3825be3fa8a17c97086fdae56f7086ce512b81cc2fe44161270ec5e9", 16);
|
||||||
|
fp_read_radix(&e, "10001", 16);
|
||||||
|
fp_read_radix(&m, "39f5a911250f45b99390e2df322b33c729099ab52b5879d06b00818cce57c649a66ed7eb6d8ae214d11caf9c81e83a7368cf0edb2b71dad791f13fecf546123b40377851e67835ade1d6be57f4de18a62db4cdb1880f4ab2e6a29acfd85ca22a13dc1f6fee2621ef0fc8689cd738e6f065c033ec7c148d8d348688af83d6f6bd", 16);
|
||||||
|
fp_read_radix(&c, "9ff70ea6968a04530e6b06bf01aa937209cc8450e76ac19477743de996ba3fb445923c947f8d0add8c57efa51d15485309918459da6c1e5a97f215193b797dce98db51bdb4639c2ecfa90ebb051e3a2daeffd27a7d6e62043703a7b15e0ada5170427b63099cd01ef52cd92d8723e5774bea32716aaa7f5adbae817fb12a5b50", 16);
|
||||||
|
|
||||||
|
/* test it */
|
||||||
|
fp_exptmod(&m, &e, &n, &e_m);
|
||||||
|
if (fp_cmp(&e_m, &c)) {
|
||||||
|
char buf[1024];
|
||||||
|
printf("Encrypted text not equal\n");
|
||||||
|
fp_toradix(&e_m, buf, 16);
|
||||||
|
printf("e_m == %s\n", buf);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
printf("CLOCKS_PER_SEC = %llu\n", (unsigned long long)CLOCKS_PER_SEC);
|
||||||
|
t1 = clock();
|
||||||
|
for (x = 0; x < 1000; x++) {
|
||||||
|
fp_exptmod(&m, &e, &n, &e_m);
|
||||||
|
}
|
||||||
|
t1 = clock() - t1;
|
||||||
|
printf("1000 RSA operations took %10.5g seconds\n", (double)t1 / (double)CLOCKS_PER_SEC);
|
||||||
|
printf("RSA encrypt/sec %10.5g\n", (double)CLOCKS_PER_SEC / ((double)t1 / 1000.0) );
|
||||||
|
|
||||||
|
/* read in the parameters */
|
||||||
|
fp_read_radix(&n, "a7f30e2e04d31acc6936916af1e404a4007adfb9e97864de28d1c7ba3034633bee2cd9d5da3ea3cdcdc9a6f3daf5702ef750f4c3aadb0e27410ac04532176795995148cdb4691bd09a8a846e3e24e073ce2f89b34dfeb2ee89b646923ca60ee3f73c4d5397478380425e7260f75dfdc54826e160395b0889b1162cf115a9773f", 16);
|
||||||
|
fp_read_radix(&d, "16d166f3c9a404d810d3611e6e8ed43293fe1db75c8906eb4810785a4b82529929dade1db7f11ac0335d5a59773e3167b022479eedefa514a0399db5c900750a56323cf9f5b0f21e7d60a46d75f3fcaabf30a63cbe34048b741a57ac36a13914afda798709dea5771f8d456cf72ec5f3afc1d88d023de40311143a36e7028739", 16);
|
||||||
|
fp_read_radix(&c, "7d216641c32543f5b8428bdd0b11d819cfbdb16f1df285247f677aa4d44de62ab064f4a0d060ec99cb94aa398113a4317f2c550d0371140b0fd2c88886cac771812e72faad4b7adf495b9b850b142ccd7f45c0a27f164c8c7731731c0015f69d0241812e769d961054618aeb9e8e8989dba95714a2cf56c9e525c5e34b5812dd", 16);
|
||||||
|
fp_read_radix(&m, "5f323bf0b394b98ffd78727dc9883bb4f42287def6b60fa2a964b2510bc55d61357bf5a6883d2982b268810f8fef116d3ae68ebb41fd10d65a0af4bec0530eb369f37c14b55c3be60223b582372fb6589b648d5a0c7252d1ae2dae5809785d993e9e5d0c4d9b0bcba0cde0d6671734747fba5483c735e1dab7df7b10ec6f62d8", 16);
|
||||||
|
|
||||||
|
/* test it */
|
||||||
|
fp_exptmod(&c, &d, &n, &e_m);
|
||||||
|
if (fp_cmp(&e_m, &m)) {
|
||||||
|
char buf[1024];
|
||||||
|
printf("Decrypted text not equal\n");
|
||||||
|
fp_toradix(&e_m, buf, 16);
|
||||||
|
printf("e_m == %s\n", buf);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
t1 = clock();
|
||||||
|
for (x = 0; x < 100; x++) {
|
||||||
|
fp_exptmod(&c, &d, &n, &e_m);
|
||||||
|
}
|
||||||
|
t1 = clock() - t1;
|
||||||
|
printf("100 RSA operations took %10.5g seconds\n", (double)t1 / (double)CLOCKS_PER_SEC);
|
||||||
|
printf("RSA decrypt/sec %10.5g\n", (double)CLOCKS_PER_SEC / ((double)t1 / 100.0) );
|
||||||
|
|
||||||
|
|
||||||
|
/* test half size */
|
||||||
|
fp_rshd(&n, n.used >> 1);
|
||||||
|
fp_rshd(&d, d.used >> 1);
|
||||||
|
fp_rshd(&c, c.used >> 1);
|
||||||
|
printf("n.used == %4d bits\n", n.used * DIGIT_BIT);
|
||||||
|
|
||||||
|
/* ensure n is odd */
|
||||||
|
n.dp[0] |= 1;
|
||||||
|
t1 = clock();
|
||||||
|
for (x = 0; x < 100; x++) {
|
||||||
|
fp_exptmod(&c, &d, &n, &e_m);
|
||||||
|
}
|
||||||
|
t1 = clock() - t1;
|
||||||
|
printf("100 RSA-half operations took %10.5g seconds\n", (double)t1 / (double)CLOCKS_PER_SEC);
|
||||||
|
printf("RSA decrypt/sec %10.5g (estimate of RSA-1024-CRT) \n", (double)CLOCKS_PER_SEC / ((double)t1 / 50.0) );
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/demo/rsa.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2005/05/05 14:39:33 $ */
|
||||||
148
lib/hcrypto/tomsfastmath/demo/stest.c
Normal file
148
lib/hcrypto/tomsfastmath/demo/stest.c
Normal file
@@ -0,0 +1,148 @@
|
|||||||
|
/* A simple static test program. */
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
#ifdef GBA_MODE
|
||||||
|
#include <gba.h>
|
||||||
|
#define DISPLAY(x) modetxt_puts(vfb, x, 1)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef DISPLAY
|
||||||
|
#define DISPLAY(x) printf(x)
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
#ifdef GBA_MODE
|
||||||
|
int c_main(void)
|
||||||
|
#else
|
||||||
|
int main(void)
|
||||||
|
#endif
|
||||||
|
{
|
||||||
|
fp_int a,b,c,d,e,f;
|
||||||
|
fp_digit dp;
|
||||||
|
|
||||||
|
fp_init(&a);
|
||||||
|
fp_init(&b);
|
||||||
|
fp_init(&c);
|
||||||
|
fp_init(&d);
|
||||||
|
fp_init(&e);
|
||||||
|
fp_init(&f);
|
||||||
|
|
||||||
|
#ifdef GBA_MODE
|
||||||
|
install_common();
|
||||||
|
modetxt_init();
|
||||||
|
modetxt_gotoxy(0,0);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* test multiplication */
|
||||||
|
fp_read_radix(&a, "3453534534535345345341230891273", 10);
|
||||||
|
fp_read_radix(&b, "2394873294871238934718923" , 10);
|
||||||
|
fp_read_radix(&c, "8270777629674273015508507050766235312931312159028658979", 10);
|
||||||
|
fp_mul(&a, &b, &d);
|
||||||
|
if (fp_cmp(&c, &d)) {
|
||||||
|
DISPLAY("mul failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mul passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* test multiplication */
|
||||||
|
fp_read_radix(&a, "30481290320498235987349712308523652378643912563478232907782361237864278207235782364578264891274789264278634289739", 10);
|
||||||
|
fp_read_radix(&b, "48761478126387263782638276327836287632836278362837627838736278362923698724823749238732" , 10);
|
||||||
|
fp_read_radix(&c, "1486312771227034563307950634490737985563993459700941115664257275795366623795590136120579100118233580357115074068815507257715906295105536107921754177810976863679300283932188006885811950341132768970948", 10);
|
||||||
|
fp_mul(&a, &b, &d);
|
||||||
|
if (fp_cmp(&c, &d)) {
|
||||||
|
DISPLAY("mul failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mul passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* test multiplication */
|
||||||
|
fp_read_radix(&a, "115792089237316195423570985008687907853269984665640564039457584007913129639935", 10);
|
||||||
|
fp_read_radix(&b, "174224571863520493293247799005065324265471" , 10);
|
||||||
|
fp_read_radix(&c, "20173827172553973356686868531273530268200710714389071377794102651988800859098544338487575161443744102709980552583184385", 10);
|
||||||
|
fp_mul(&a, &b, &d);
|
||||||
|
if (fp_cmp(&c, &d)) {
|
||||||
|
DISPLAY("mul failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mul passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
/* test squaring */
|
||||||
|
fp_read_radix(&a, "298723982748923478923473927489237289347238947238947238947238972893", 10);
|
||||||
|
fp_read_radix(&b, "89236017869379132235512787068367546521309689412262624434964313994127411682542855190667724226920696163962644836740110835385588789449" , 10);
|
||||||
|
fp_sqr(&a, &c);
|
||||||
|
if (fp_cmp(&c, &b)) {
|
||||||
|
DISPLAY("sqr failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("sqr passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_read_radix(&a, "397823894238973128942895123894327123941724927848927349274897238978927593487012378490184789429812734982738972389", 10);
|
||||||
|
fp_read_radix(&b, "158263850827461677491961439999264901067636282938352531932899298293270945997930087353471903166601507321298827087008336951419604640736464667188494668962822678461626245753696845719301945679092882499787869509090904187704367321" , 10);
|
||||||
|
fp_sqr(&a, &c);
|
||||||
|
if (fp_cmp(&c, &b)) {
|
||||||
|
DISPLAY("sqr failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("sqr passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_read_radix(&a, "13407807929942597099574024998205846127479365820592393377723561443721764030073546976801874298166903427690031858186486050853753882811946569946433649006084095", 10);
|
||||||
|
fp_read_radix(&b, "179769313486231590772930519078902473361797697894230657273430081157732675805500963132708477322407536021120113879871393357658789768814416622492847430639474097562152033539671286128252223189553839160721441767298250321715263238814402734379959506792230903356495130620869925267845538430714092411695463462326211969025" , 10);
|
||||||
|
fp_sqr(&a, &c);
|
||||||
|
if (fp_cmp(&c, &b)) {
|
||||||
|
DISPLAY("sqr failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("sqr passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* montgomery reductions */
|
||||||
|
fp_read_radix(&a, "234892374892374893489123428937892781237863278637826327367637836278362783627836783678363", 10);
|
||||||
|
fp_read_radix(&b, "4447823492749823749234123489273987393983289319382762756425425425642727352327452374521", 10);
|
||||||
|
fp_read_radix(&c, "2396271882990732698083317035605836523697277786556053771759862552557086442129695099100", 10);
|
||||||
|
fp_montgomery_setup(&b, &dp);
|
||||||
|
fp_montgomery_reduce(&a, &b, dp);
|
||||||
|
if (fp_cmp(&a, &c)) {
|
||||||
|
DISPLAY("mont failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mont passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_read_radix(&a, "2348923748923748934891234456645654645645684576353428937892781237863278637826327367637836278362783627836783678363", 10);
|
||||||
|
fp_read_radix(&b, "444782349274982374923412348927398739398328931938276275642542542564272735232745237452123424324324444121111119", 10);
|
||||||
|
fp_read_radix(&c, "45642613844554582908652603086180267403823312390990082328515008314514368668691233331246183943400359349283420", 10);
|
||||||
|
fp_montgomery_setup(&b, &dp);
|
||||||
|
fp_montgomery_reduce(&a, &b, dp);
|
||||||
|
if (fp_cmp(&a, &c)) {
|
||||||
|
DISPLAY("mont failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mont passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_read_radix(&a, "234823424242342923748923748934891234456645654645645684576353424972378234762378623891236834132352375235378462378489378927812378632786378263273676378362783627555555555539568389052478124618461834763837685723645827529034853490580134568947341278498542893481762349723907847892983627836783678363", 10);
|
||||||
|
fp_read_radix(&b, "44478234927456563455982374923412348927398739398328931938276275642485623481638279025465891276312903262837562349056234783648712314678120389173890128905425242424239784256427", 10);
|
||||||
|
fp_read_radix(&c, "33160865265453361650564031464519042126185632333462754084489985719613480783282357410514898819797738034600484519472656152351777186694609218202276509271061460265488348645081", 10);
|
||||||
|
fp_montgomery_setup(&b, &dp);
|
||||||
|
fp_montgomery_reduce(&a, &b, dp);
|
||||||
|
if (fp_cmp(&a, &c)) {
|
||||||
|
DISPLAY("mont failed\n");
|
||||||
|
return 0;
|
||||||
|
} else {
|
||||||
|
DISPLAY("mont passed\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/demo/stest.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2005/05/05 14:39:33 $ */
|
||||||
874
lib/hcrypto/tomsfastmath/demo/test.c
Normal file
874
lib/hcrypto/tomsfastmath/demo/test.c
Normal file
@@ -0,0 +1,874 @@
|
|||||||
|
/* TFM demo program */
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void draw(fp_int *a)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
printf("%d, %d, ", a->used, a->sign);
|
||||||
|
for (x = a->used - 1; x >= 0; x--) {
|
||||||
|
printf("%08lx ", a->dp[x]);
|
||||||
|
}
|
||||||
|
printf("\n");
|
||||||
|
}
|
||||||
|
|
||||||
|
int myrng(unsigned char *dst, int len, void *dat)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
for (x = 0; x < len; x++) dst[x] = rand() & 0xFF;
|
||||||
|
return len;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* RDTSC from Scott Duplichan */
|
||||||
|
static ulong64 TIMFUNC (void)
|
||||||
|
{
|
||||||
|
#if defined __GNUC__
|
||||||
|
#if defined(INTEL_CC)
|
||||||
|
ulong64 a;
|
||||||
|
asm ("rdtsc":"=A"(a));
|
||||||
|
return a;
|
||||||
|
#elif defined(__i386__) || defined(__x86_64__)
|
||||||
|
ulong64 a;
|
||||||
|
__asm__ __volatile__ ("rdtsc\nmovl %%eax,%0\nmovl %%edx,4+%0\n"::"m"(a):"%eax","%edx");
|
||||||
|
return a;
|
||||||
|
#elif defined(TFM_PPC32)
|
||||||
|
unsigned long a, b;
|
||||||
|
__asm__ __volatile__ ("mftbu %1 \nmftb %0\n":"=r"(a), "=r"(b));
|
||||||
|
return (((ulong64)b) << 32ULL) | ((ulong64)a);
|
||||||
|
#elif defined(TFM_AVR32)
|
||||||
|
FILE *in;
|
||||||
|
char buf[20];
|
||||||
|
in = fopen("/sys/devices/system/cpu/cpu0/pccycles", "r");
|
||||||
|
fgets(buf, 20, in);
|
||||||
|
fclose(in);
|
||||||
|
return strtoul(buf, NULL, 10);
|
||||||
|
#else /* gcc-IA64 version */
|
||||||
|
unsigned long result;
|
||||||
|
__asm__ __volatile__("mov %0=ar.itc" : "=r"(result) :: "memory");
|
||||||
|
while (__builtin_expect ((int) result == -1, 0))
|
||||||
|
__asm__ __volatile__("mov %0=ar.itc" : "=r"(result) :: "memory");
|
||||||
|
return result;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
// Microsoft and Intel Windows compilers
|
||||||
|
#elif defined _M_IX86
|
||||||
|
__asm rdtsc
|
||||||
|
#elif defined _M_AMD64
|
||||||
|
return __rdtsc ();
|
||||||
|
#elif defined _M_IA64
|
||||||
|
#if defined __INTEL_COMPILER
|
||||||
|
#include <ia64intrin.h>
|
||||||
|
#endif
|
||||||
|
return __getReg (3116);
|
||||||
|
#else
|
||||||
|
#error need rdtsc function for this build
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
|
||||||
|
char cmd[4096], buf[4096];
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
fp_int a,b,c,d,e,f;
|
||||||
|
fp_digit fp;
|
||||||
|
int n, err;
|
||||||
|
unsigned long expt_n, add_n, sub_n, mul_n, div_n, sqr_n, mul2d_n, div2d_n, gcd_n, lcm_n, inv_n,
|
||||||
|
div2_n, mul2_n, add_d_n, sub_d_n, mul_d_n, t, cnt, rr, ix;
|
||||||
|
ulong64 t1, t2;
|
||||||
|
|
||||||
|
srand(time(NULL));
|
||||||
|
printf("TFM Ident string:\n%s\n\n", fp_ident());
|
||||||
|
fp_zero(&b); fp_zero(&c); fp_zero(&d); fp_zero(&e); fp_zero(&f);
|
||||||
|
fp_zero(&a); draw(&a);
|
||||||
|
|
||||||
|
/* test set and simple shifts */
|
||||||
|
printf("Testing mul/div 2\n");
|
||||||
|
fp_set(&a, 1); draw(&a);
|
||||||
|
for (n = 0; n <= DIGIT_BIT; n++) {
|
||||||
|
fp_mul_2(&a, &a); printf("(%d) ", fp_count_bits(&a));
|
||||||
|
draw(&a);
|
||||||
|
|
||||||
|
}
|
||||||
|
for (n = 0; n <= (DIGIT_BIT + 1); n++) {
|
||||||
|
fp_div_2(&a, &a);
|
||||||
|
draw(&a);
|
||||||
|
}
|
||||||
|
fp_set(&a, 1);
|
||||||
|
|
||||||
|
/* test lshd/rshd */
|
||||||
|
printf("testing lshd/rshd\n");
|
||||||
|
fp_lshd(&a, 3); draw(&a);
|
||||||
|
fp_rshd(&a, 3); draw(&a);
|
||||||
|
|
||||||
|
/* test more complicated shifts */
|
||||||
|
printf("Testing mul/div 2d\n");
|
||||||
|
fp_mul_2d(&a, DIGIT_BIT/2, &a); draw(&a);
|
||||||
|
fp_div_2d(&a, DIGIT_BIT/2, &a, NULL); draw(&a);
|
||||||
|
|
||||||
|
fp_mul_2d(&a, DIGIT_BIT + DIGIT_BIT/2, &a); draw(&a);
|
||||||
|
fp_div_2d(&a, DIGIT_BIT + DIGIT_BIT/2, &a, NULL); draw(&a);
|
||||||
|
|
||||||
|
/* test neg/abs */
|
||||||
|
printf("testing neg/abs\n");
|
||||||
|
fp_neg(&a, &a); draw(&a);
|
||||||
|
fp_neg(&a, &a); draw(&a);
|
||||||
|
fp_neg(&a, &a); draw(&a);
|
||||||
|
fp_abs(&a, &a); draw(&a);
|
||||||
|
|
||||||
|
/* test comparisons */
|
||||||
|
fp_set(&b, 3);
|
||||||
|
fp_set(&c, 4); fp_neg(&c, &c);
|
||||||
|
fp_set(&d, 1);
|
||||||
|
printf("Testing compares\n%d, %d, %d, %d\n", fp_cmp(&a, &b), fp_cmp(&a, &c), fp_cmp(&a, &d), fp_cmp(&b, &c));
|
||||||
|
|
||||||
|
/* test add/sub */
|
||||||
|
printf("Testing add/sub \n");
|
||||||
|
fp_set(&a, ((fp_digit)1)<<(DIGIT_BIT-1)); draw(&a);
|
||||||
|
fp_set(&b, ((fp_digit)1)<<(DIGIT_BIT-2));
|
||||||
|
fp_add(&a, &b, &a); draw(&a);
|
||||||
|
fp_add(&a, &b, &a); draw(&a);
|
||||||
|
fp_add(&a, &b, &a); draw(&a);
|
||||||
|
printf("sub...\n");
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
printf("cmp returns: %d, ", fp_cmp(&a, &b)); fp_sub(&a, &b, &a); draw(&a);
|
||||||
|
|
||||||
|
/* test mul_d */
|
||||||
|
printf("Testing mul_d and div_d\n");
|
||||||
|
fp_set(&a, 1);
|
||||||
|
fp_mul_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a); draw(&a);
|
||||||
|
fp_mul_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a); draw(&a);
|
||||||
|
fp_mul_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a); draw(&a);
|
||||||
|
printf("div_d\n");
|
||||||
|
fp_div_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a, NULL); draw(&a);
|
||||||
|
fp_div_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a, NULL); draw(&a);
|
||||||
|
fp_div_d(&a, ((fp_digit)1)<<(DIGIT_BIT/2), &a, NULL); draw(&a);
|
||||||
|
|
||||||
|
/* testing read radix */
|
||||||
|
printf("Testing read_radix\n");
|
||||||
|
fp_read_radix(&a, "123456789012345678901234567890", 16); draw(&a);
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
/* test mont */
|
||||||
|
printf("Montgomery test #1\n");
|
||||||
|
fp_set(&a, 0x1234567ULL);
|
||||||
|
fp_montgomery_setup(&a, &fp);
|
||||||
|
fp_montgomery_calc_normalization(&b, &a);
|
||||||
|
|
||||||
|
fp_read_radix(&d, "123456789123", 16);
|
||||||
|
for (n = 0; n < 1000000; n++) {
|
||||||
|
fp_add_d(&d, 1, &d); fp_sqrmod(&d, &a, &d);
|
||||||
|
fp_mul(&d, &b, &c);
|
||||||
|
fp_montgomery_reduce(&c, &a, fp);
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("Failed mont %d\n", n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&d);
|
||||||
|
draw(&c);
|
||||||
|
return EXIT_FAILURE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("Passed.\n");
|
||||||
|
|
||||||
|
printf("Montgomery test #2\n");
|
||||||
|
fp_set(&a, 0x1234567ULL);
|
||||||
|
fp_lshd(&a, 4);
|
||||||
|
fp_add_d(&a, 1, &a);
|
||||||
|
fp_montgomery_setup(&a, &fp);
|
||||||
|
fp_montgomery_calc_normalization(&b, &a);
|
||||||
|
|
||||||
|
fp_read_radix(&d, "123456789123", 16);
|
||||||
|
for (n = 0; n < 1000000; n++) {
|
||||||
|
fp_add_d(&d, 1, &d); fp_sqrmod(&d, &a, &d);
|
||||||
|
fp_mul(&d, &b, &c);
|
||||||
|
fp_montgomery_reduce(&c, &a, fp);
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("Failed mont %d\n", n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&d);
|
||||||
|
draw(&c);
|
||||||
|
return EXIT_FAILURE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("Passed.\n");
|
||||||
|
|
||||||
|
/* test for size */
|
||||||
|
for (ix = 8*DIGIT_BIT; ix < 10*DIGIT_BIT; ix++) {
|
||||||
|
printf("Testing (not safe-prime): %9lu bits \r", ix); fflush(stdout);
|
||||||
|
err = fp_prime_random_ex(&a, 8, ix, (rand()&1)?TFM_PRIME_2MSB_OFF:TFM_PRIME_2MSB_ON, myrng, NULL);
|
||||||
|
if (err != FP_OKAY) {
|
||||||
|
printf("failed with err code %d\n", err);
|
||||||
|
return EXIT_FAILURE;
|
||||||
|
}
|
||||||
|
if ((unsigned long)fp_count_bits(&a) != ix) {
|
||||||
|
printf("Prime is %d not %lu bits!!!\n", fp_count_bits(&a), ix);
|
||||||
|
return EXIT_FAILURE;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("\n\n");
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TESTING
|
||||||
|
goto testing;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if 1
|
||||||
|
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
sleep(1);
|
||||||
|
printf("Ticks per second: %llu\n", TIMFUNC() - t1);
|
||||||
|
|
||||||
|
goto multtime;
|
||||||
|
/* do some timings... */
|
||||||
|
printf("Addition:\n");
|
||||||
|
for (t = 2; t <= FP_SIZE/2; t += 2) {
|
||||||
|
fp_zero(&a);
|
||||||
|
fp_zero(&b);
|
||||||
|
fp_zero(&c);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix;
|
||||||
|
b.dp[ix] = ix;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
b.used = t;
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 25000; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_add(&a, &b, &c); fp_add(&a, &b, &c);
|
||||||
|
fp_add(&a, &b, &c); fp_add(&a, &b, &c);
|
||||||
|
fp_add(&a, &b, &c); fp_add(&a, &b, &c);
|
||||||
|
fp_add(&a, &b, &c); fp_add(&a, &b, &c);
|
||||||
|
t2 = (TIMFUNC() - t1)>>3;
|
||||||
|
if (t1<t2) { --ix; t2 = t1; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
multtime:
|
||||||
|
printf("Multiplication:\n");
|
||||||
|
for (t = 2; t < FP_SIZE/2; t += 2) {
|
||||||
|
fp_zero(&a);
|
||||||
|
fp_zero(&b);
|
||||||
|
fp_zero(&c);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix;
|
||||||
|
b.dp[ix] = ix;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
b.used = t;
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 100; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
fp_mul(&a, &b, &c); fp_mul(&a, &b, &c);
|
||||||
|
t2 = (TIMFUNC() - t1)>>7;
|
||||||
|
if (t1<t2) { --ix; t2 = t1; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
//#else
|
||||||
|
sqrtime:
|
||||||
|
printf("Squaring:\n");
|
||||||
|
for (t = 2; t < FP_SIZE/2; t += 2) {
|
||||||
|
fp_zero(&a);
|
||||||
|
fp_zero(&b);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 100; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
fp_sqr(&a, &b); fp_sqr(&a, &b);
|
||||||
|
t2 = (TIMFUNC() - t1)>>7;
|
||||||
|
if (t1<t2) { --ix; t2 = t1; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
invmodtime:
|
||||||
|
printf("Invmod:\n");
|
||||||
|
for (t = 2; t < FP_SIZE/2; t += 2) {
|
||||||
|
fp_zero(&a);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix | 1;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
fp_zero(&b);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
b.dp[ix] = rand();
|
||||||
|
}
|
||||||
|
b.used = t;
|
||||||
|
fp_clamp(&b);
|
||||||
|
fp_zero(&c);
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 100; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
fp_invmod(&b, &a, &c);
|
||||||
|
t2 = (TIMFUNC() - t1)>>6;
|
||||||
|
if (t1<t2) { --ix; t2 = t1; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
//#else
|
||||||
|
monttime:
|
||||||
|
printf("Montgomery:\n");
|
||||||
|
for (t = 2; t <= (FP_SIZE/2)-4; t += 2) {
|
||||||
|
// printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
fp_zero(&a);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix | 1;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
|
||||||
|
fp_montgomery_setup(&a, &fp);
|
||||||
|
fp_sub_d(&a, 3, &b);
|
||||||
|
fp_sqr(&b, &b);
|
||||||
|
fp_copy(&b, &c);
|
||||||
|
fp_copy(&b, &d);
|
||||||
|
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 100; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&c, &a, &fp);
|
||||||
|
fp_montgomery_reduce(&d, &a, &fp);
|
||||||
|
t2 = (TIMFUNC() - t1)>>6;
|
||||||
|
fp_copy(&b, &c);
|
||||||
|
fp_copy(&b, &d);
|
||||||
|
if (t1<t2) { --ix; t2 = t1; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
//#else
|
||||||
|
expttime:
|
||||||
|
printf("Exptmod:\n");
|
||||||
|
|
||||||
|
for (t = 512/DIGIT_BIT; t <= (FP_SIZE/2)-2; t += 256/DIGIT_BIT) {
|
||||||
|
fp_zero(&a);
|
||||||
|
fp_zero(&b);
|
||||||
|
fp_zero(&c);
|
||||||
|
for (ix = 0; ix < t; ix++) {
|
||||||
|
a.dp[ix] = ix+1;
|
||||||
|
b.dp[ix] = (fp_digit)rand() * (fp_digit)rand();
|
||||||
|
c.dp[ix] = ix;
|
||||||
|
}
|
||||||
|
a.used = t;
|
||||||
|
b.used = t;
|
||||||
|
c.used = t;
|
||||||
|
|
||||||
|
t2 = -1;
|
||||||
|
for (ix = 0; ix < 500; ++ix) {
|
||||||
|
t1 = TIMFUNC();
|
||||||
|
fp_exptmod(&c, &b, &a, &d);
|
||||||
|
fp_exptmod(&c, &b, &a, &d);
|
||||||
|
t2 = (TIMFUNC() - t1)>>1;
|
||||||
|
fp_copy(&b, &c);
|
||||||
|
fp_copy(&b, &d);
|
||||||
|
if (t1<t2) { t2 = t1; --ix; }
|
||||||
|
}
|
||||||
|
printf("%5lu-bit: %9llu\n", t * DIGIT_BIT, t2);
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
testing:
|
||||||
|
|
||||||
|
fp_zero(&b); fp_zero(&c); fp_zero(&d); fp_zero(&e); fp_zero(&f); fp_zero(&a);
|
||||||
|
|
||||||
|
|
||||||
|
div2_n = mul2_n = inv_n = expt_n = lcm_n = gcd_n = add_n =
|
||||||
|
sub_n = mul_n = div_n = sqr_n = mul2d_n = div2d_n = cnt = add_d_n = sub_d_n= mul_d_n = 0;
|
||||||
|
|
||||||
|
for (;;) {
|
||||||
|
printf("%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu/%4lu ", add_n, sub_n, mul_n, div_n, sqr_n, mul2d_n, div2d_n, gcd_n, lcm_n, expt_n, inv_n, div2_n, mul2_n, add_d_n, sub_d_n, mul_d_n);
|
||||||
|
fgets(cmd, 4095, stdin);
|
||||||
|
cmd[strlen(cmd)-1] = 0;
|
||||||
|
printf("%s ]\r",cmd); fflush(stdout);
|
||||||
|
if (!strcmp(cmd, "mul2d")) { ++mul2d_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); sscanf(buf, "%lu", &rr);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
|
||||||
|
fp_mul_2d(&a, rr, &a);
|
||||||
|
a.sign = b.sign;
|
||||||
|
if (fp_cmp(&a, &b) != FP_EQ) {
|
||||||
|
printf("mul2d failed, rr == %lu\n",rr);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "div2d")) { ++div2d_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); sscanf(buf, "%lu", &rr);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
|
||||||
|
fp_div_2d(&a, rr, &a, &e);
|
||||||
|
a.sign = b.sign;
|
||||||
|
if (a.used == b.used && a.used == 0) { a.sign = b.sign = FP_ZPOS; }
|
||||||
|
if (fp_cmp(&a, &b) != FP_EQ) {
|
||||||
|
printf("div2d failed, rr == %lu\n",rr);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "add")) { ++add_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
fp_copy(&a, &d);
|
||||||
|
fp_add(&d, &b, &d);
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("add %lu failure!\n", add_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* test the sign/unsigned storage functions */
|
||||||
|
|
||||||
|
rr = fp_signed_bin_size(&c);
|
||||||
|
fp_to_signed_bin(&c, (unsigned char *)cmd);
|
||||||
|
memset(cmd+rr, rand()&255, sizeof(cmd)-rr);
|
||||||
|
fp_read_signed_bin(&d, (unsigned char *)cmd, rr);
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("fp_signed_bin failure!\n");
|
||||||
|
draw(&c);
|
||||||
|
draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
rr = fp_unsigned_bin_size(&c);
|
||||||
|
fp_to_unsigned_bin(&c, (unsigned char *)cmd);
|
||||||
|
memset(cmd+rr, rand()&255, sizeof(cmd)-rr);
|
||||||
|
fp_read_unsigned_bin(&d, (unsigned char *)cmd, rr);
|
||||||
|
if (fp_cmp_mag(&c, &d) != FP_EQ) {
|
||||||
|
printf("fp_unsigned_bin failure!\n");
|
||||||
|
draw(&c);
|
||||||
|
draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
} else if (!strcmp(cmd, "sub")) { ++sub_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
fp_copy(&a, &d);
|
||||||
|
fp_sub(&d, &b, &d);
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("sub %lu failure!\n", sub_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "mul")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
//continue;
|
||||||
|
fp_copy(&a, &d);
|
||||||
|
fp_mul(&d, &b, &d); ++mul_n;
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("mul %lu failure!\n", mul_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "div")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&d, buf, 64);
|
||||||
|
// continue;
|
||||||
|
fp_div(&a, &b, &e, &f); ++div_n;
|
||||||
|
if (fp_cmp(&c, &e) != FP_EQ || fp_cmp(&d, &f) != FP_EQ) {
|
||||||
|
printf("div %lu failure!\n", div_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d); draw(&e); draw(&f);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
} else if (!strcmp(cmd, "sqr")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
// continue;
|
||||||
|
fp_copy(&a, &c);
|
||||||
|
fp_sqr(&c, &c); ++sqr_n;
|
||||||
|
if (fp_cmp(&b, &c) != FP_EQ) {
|
||||||
|
printf("sqr %lu failure!\n", sqr_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "gcd")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
// continue;
|
||||||
|
fp_copy(&a, &d);
|
||||||
|
fp_gcd(&d, &b, &d); ++gcd_n;
|
||||||
|
d.sign = c.sign;
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("gcd %lu failure!\n", gcd_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "lcm")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
//continue;
|
||||||
|
fp_copy(&a, &d);
|
||||||
|
fp_lcm(&d, &b, &d); ++lcm_n;
|
||||||
|
d.sign = c.sign;
|
||||||
|
if (fp_cmp(&c, &d) != FP_EQ) {
|
||||||
|
printf("lcm %lu failure!\n", lcm_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "expt")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&d, buf, 64);
|
||||||
|
// continue;
|
||||||
|
fp_copy(&a, &e);
|
||||||
|
fp_exptmod(&e, &b, &c, &e); ++expt_n;
|
||||||
|
if (fp_cmp(&d, &e) != FP_EQ) {
|
||||||
|
printf("expt %lu failure!\n", expt_n);
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d); draw(&e);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "invmod")) {
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&c, buf, 64);
|
||||||
|
//continue;
|
||||||
|
fp_invmod(&a, &b, &d);
|
||||||
|
#if 1
|
||||||
|
fp_mulmod(&d,&a,&b,&e); ++inv_n;
|
||||||
|
if (fp_cmp_d(&e, 1) != FP_EQ) {
|
||||||
|
#else
|
||||||
|
if (fp_cmp(&d, &c) != FP_EQ) {
|
||||||
|
#endif
|
||||||
|
printf("inv [wrong value from MPI?!] failure\n");
|
||||||
|
draw(&a);draw(&b);draw(&c);draw(&d);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
} else if (!strcmp(cmd, "div2")) { ++div2_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fp_div_2(&a, &c);
|
||||||
|
if (fp_cmp(&c, &b) != FP_EQ) {
|
||||||
|
printf("div_2 %lu failure\n", div2_n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
draw(&c);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "mul2")) { ++mul2_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fp_mul_2(&a, &c);
|
||||||
|
if (fp_cmp(&c, &b) != FP_EQ) {
|
||||||
|
printf("mul_2 %lu failure\n", mul2_n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
draw(&c);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "add_d")) { ++add_d_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); sscanf(buf, "%lu", &ix);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fp_add_d(&a, ix, &c);
|
||||||
|
if (fp_cmp(&b, &c) != FP_EQ) {
|
||||||
|
printf("add_d %lu failure\n", add_d_n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
draw(&c);
|
||||||
|
printf("d == %lu\n", ix);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "sub_d")) { ++sub_d_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); sscanf(buf, "%lu", &ix);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fp_sub_d(&a, ix, &c);
|
||||||
|
if (fp_cmp(&b, &c) != FP_EQ) {
|
||||||
|
printf("sub_d %lu failure\n", sub_d_n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
draw(&c);
|
||||||
|
printf("d == %lu\n", ix);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
} else if (!strcmp(cmd, "mul_d")) { ++mul_d_n;
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&a, buf, 64);
|
||||||
|
fgets(buf, 4095, stdin); sscanf(buf, "%lu", &ix);
|
||||||
|
fgets(buf, 4095, stdin); fp_read_radix(&b, buf, 64);
|
||||||
|
fp_mul_d(&a, ix, &c);
|
||||||
|
if (fp_cmp(&b, &c) != FP_EQ) {
|
||||||
|
printf("mul_d %lu failure\n", sub_d_n);
|
||||||
|
draw(&a);
|
||||||
|
draw(&b);
|
||||||
|
draw(&c);
|
||||||
|
printf("d == %lu\n", ix);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/demo/test.c,v $ */
|
||||||
|
/* $Revision: 1.46 $ */
|
||||||
|
/* $Date: 2007/02/15 01:20:40 $ */
|
||||||
BIN
lib/hcrypto/tomsfastmath/doc/tfm.pdf
Normal file
BIN
lib/hcrypto/tomsfastmath/doc/tfm.pdf
Normal file
Binary file not shown.
30
lib/hcrypto/tomsfastmath/filter.pl
Normal file
30
lib/hcrypto/tomsfastmath/filter.pl
Normal file
@@ -0,0 +1,30 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
|
||||||
|
# we want to filter every between START_INS and END_INS out and then insert crap from another file (this is fun)
|
||||||
|
|
||||||
|
$dst = shift;
|
||||||
|
$ins = shift;
|
||||||
|
|
||||||
|
open(SRC,"<$dst");
|
||||||
|
open(INS,"<$ins");
|
||||||
|
open(TMP,">tmp.delme");
|
||||||
|
|
||||||
|
$l = 0;
|
||||||
|
while (<SRC>) {
|
||||||
|
if ($_ =~ /START_INS/) {
|
||||||
|
print TMP $_;
|
||||||
|
$l = 1;
|
||||||
|
while (<INS>) {
|
||||||
|
print TMP $_;
|
||||||
|
}
|
||||||
|
close INS;
|
||||||
|
} elsif ($_ =~ /END_INS/) {
|
||||||
|
print TMP $_;
|
||||||
|
$l = 0;
|
||||||
|
} elsif ($l == 0) {
|
||||||
|
print TMP $_;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
close TMP;
|
||||||
|
close SRC;
|
||||||
18
lib/hcrypto/tomsfastmath/gen.pl
Normal file
18
lib/hcrypto/tomsfastmath/gen.pl
Normal file
@@ -0,0 +1,18 @@
|
|||||||
|
#!/usr/bin/perl -w
|
||||||
|
#
|
||||||
|
# Generates a "single file" you can use to quickly
|
||||||
|
# add the whole source without any makefile troubles
|
||||||
|
#
|
||||||
|
use strict;
|
||||||
|
|
||||||
|
open( OUT, ">mpi.c" ) or die "Couldn't open mpi.c for writing: $!";
|
||||||
|
foreach my $filename (glob "*fp_*.c") {
|
||||||
|
next if ($filename eq "fp_sqr_comba_generic.c");
|
||||||
|
open( SRC, "<$filename" ) or die "Couldn't open $filename for reading: $!";
|
||||||
|
print OUT "/* Start: $filename */\n";
|
||||||
|
print OUT while <SRC>;
|
||||||
|
print OUT "\n/* End: $filename */\n\n";
|
||||||
|
close SRC or die "Error closing $filename after reading: $!";
|
||||||
|
}
|
||||||
|
print OUT "\n/* EOF */\n";
|
||||||
|
close OUT or die "Error closing mpi.c after writing: $!";
|
||||||
9
lib/hcrypto/tomsfastmath/genlist.sh
Normal file
9
lib/hcrypto/tomsfastmath/genlist.sh
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
export a=`find . -type f | sort | grep "[.]/src" | grep "[.]c" | grep -v generators | sed -e 'sE\./EE' | sed -e 's/\.c/\.o/' | xargs`
|
||||||
|
perl ./parsenames.pl OBJECTS "$a"
|
||||||
|
export a=`find . -type f | grep [.]/src | grep [.]h | sed -e 'se\./ee' | xargs`
|
||||||
|
perl ./parsenames.pl HEADERS "$a"
|
||||||
|
|
||||||
|
# $Source: /cvs/libtom/tomsfastmath/genlist.sh,v $
|
||||||
|
# $Revision: 1.1 $
|
||||||
|
# $Date: 2006/12/31 21:31:40 $
|
||||||
159
lib/hcrypto/tomsfastmath/makefile
Normal file
159
lib/hcrypto/tomsfastmath/makefile
Normal file
@@ -0,0 +1,159 @@
|
|||||||
|
#makefile for TomsFastMath
|
||||||
|
#
|
||||||
|
#
|
||||||
|
VERSION=0.12
|
||||||
|
|
||||||
|
CFLAGS += -Wall -W -Wshadow -Isrc/headers
|
||||||
|
|
||||||
|
ifndef MAKE
|
||||||
|
MAKE=make
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef IGNORE_SPEED
|
||||||
|
|
||||||
|
CFLAGS += -O3 -funroll-loops
|
||||||
|
|
||||||
|
#profiling
|
||||||
|
#PROF=-pg -g
|
||||||
|
#CFLAGS += $(PROF)
|
||||||
|
|
||||||
|
#speed
|
||||||
|
CFLAGS += -fomit-frame-pointer
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
#START_INS
|
||||||
|
OBJECTS=src/addsub/fp_add.o src/addsub/fp_add_d.o src/addsub/fp_addmod.o src/addsub/fp_cmp.o \
|
||||||
|
src/addsub/fp_cmp_d.o src/addsub/fp_cmp_mag.o src/addsub/fp_sub.o src/addsub/fp_sub_d.o \
|
||||||
|
src/addsub/fp_submod.o src/addsub/s_fp_add.o src/addsub/s_fp_sub.o src/bin/fp_radix_size.o \
|
||||||
|
src/bin/fp_read_radix.o src/bin/fp_read_signed_bin.o src/bin/fp_read_unsigned_bin.o \
|
||||||
|
src/bin/fp_reverse.o src/bin/fp_s_rmap.o src/bin/fp_signed_bin_size.o src/bin/fp_to_signed_bin.o \
|
||||||
|
src/bin/fp_to_unsigned_bin.o src/bin/fp_toradix.o src/bin/fp_unsigned_bin_size.o src/bit/fp_cnt_lsb.o \
|
||||||
|
src/bit/fp_count_bits.o src/bit/fp_div_2.o src/bit/fp_div_2d.o src/bit/fp_lshd.o src/bit/fp_mod_2d.o \
|
||||||
|
src/bit/fp_rshd.o src/divide/fp_div.o src/divide/fp_div_d.o src/divide/fp_mod.o src/divide/fp_mod_d.o \
|
||||||
|
src/exptmod/fp_2expt.o src/exptmod/fp_exptmod.o src/misc/fp_ident.o src/misc/fp_set.o \
|
||||||
|
src/mont/fp_montgomery_calc_normalization.o src/mont/fp_montgomery_reduce.o \
|
||||||
|
src/mont/fp_montgomery_setup.o src/mul/fp_mul.o src/mul/fp_mul_2.o src/mul/fp_mul_2d.o \
|
||||||
|
src/mul/fp_mul_comba.o src/mul/fp_mul_comba_12.o src/mul/fp_mul_comba_17.o src/mul/fp_mul_comba_20.o \
|
||||||
|
src/mul/fp_mul_comba_24.o src/mul/fp_mul_comba_28.o src/mul/fp_mul_comba_3.o src/mul/fp_mul_comba_32.o \
|
||||||
|
src/mul/fp_mul_comba_4.o src/mul/fp_mul_comba_48.o src/mul/fp_mul_comba_6.o src/mul/fp_mul_comba_64.o \
|
||||||
|
src/mul/fp_mul_comba_7.o src/mul/fp_mul_comba_8.o src/mul/fp_mul_comba_9.o \
|
||||||
|
src/mul/fp_mul_comba_small_set.o src/mul/fp_mul_d.o src/mul/fp_mulmod.o src/numtheory/fp_gcd.o \
|
||||||
|
src/numtheory/fp_invmod.o src/numtheory/fp_isprime.o src/numtheory/fp_lcm.o \
|
||||||
|
src/numtheory/fp_prime_miller_rabin.o src/numtheory/fp_prime_random_ex.o src/sqr/fp_sqr.o \
|
||||||
|
src/sqr/fp_sqr_comba.o src/sqr/fp_sqr_comba_12.o src/sqr/fp_sqr_comba_17.o src/sqr/fp_sqr_comba_20.o \
|
||||||
|
src/sqr/fp_sqr_comba_24.o src/sqr/fp_sqr_comba_28.o src/sqr/fp_sqr_comba_3.o src/sqr/fp_sqr_comba_32.o \
|
||||||
|
src/sqr/fp_sqr_comba_4.o src/sqr/fp_sqr_comba_48.o src/sqr/fp_sqr_comba_6.o src/sqr/fp_sqr_comba_64.o \
|
||||||
|
src/sqr/fp_sqr_comba_7.o src/sqr/fp_sqr_comba_8.o src/sqr/fp_sqr_comba_9.o \
|
||||||
|
src/sqr/fp_sqr_comba_generic.o src/sqr/fp_sqr_comba_small_set.o src/sqr/fp_sqrmod.o
|
||||||
|
|
||||||
|
HEADERS=src/headers/tfm.h
|
||||||
|
|
||||||
|
#END_INS
|
||||||
|
|
||||||
|
ifndef LIBPATH
|
||||||
|
LIBPATH=~/local/lib
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INCPATH
|
||||||
|
INCPATH=~/local/include
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INSTALL_GROUP
|
||||||
|
GROUP=jherzog
|
||||||
|
else
|
||||||
|
GROUP=$(INSTALL_GROUP)
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INSTALL_USER
|
||||||
|
USER=jherzog
|
||||||
|
else
|
||||||
|
USER=$(INSTALL_USER)
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef LIBNAME
|
||||||
|
LIBNAME=libtfm.a
|
||||||
|
endif
|
||||||
|
|
||||||
|
default: $(LIBNAME)
|
||||||
|
|
||||||
|
$(LIBNAME): $(OBJECTS)
|
||||||
|
$(AR) $(ARFLAGS) $@ $(OBJECTS)
|
||||||
|
ranlib $@
|
||||||
|
|
||||||
|
install: $(LIBNAME)
|
||||||
|
install -d -g $(GROUP) -o $(USER) $(DESTDIR)$(LIBPATH)
|
||||||
|
install -d -g $(GROUP) -o $(USER) $(DESTDIR)$(INCPATH)
|
||||||
|
install -g $(GROUP) -o $(USER) $(LIBNAME) $(DESTDIR)$(LIBPATH)
|
||||||
|
install -g $(GROUP) -o $(USER) $(HEADERS) $(DESTDIR)$(INCPATH)
|
||||||
|
|
||||||
|
mtest/mtest: mtest/mtest.o
|
||||||
|
cd mtest ; CFLAGS="$(CFLAGS) -I../" MAKE=${MAKE} ${MAKE} mtest
|
||||||
|
|
||||||
|
test: $(LIBNAME) demo/test.o mtest/mtest
|
||||||
|
$(CC) $(CFLAGS) demo/test.o $(LIBNAME) $(PROF) -o test
|
||||||
|
|
||||||
|
timing: $(LIBNAME) demo/test.o
|
||||||
|
$(CC) $(CFLAGS) demo/test.o $(LIBNAME) $(PROF) -o test
|
||||||
|
|
||||||
|
profiled:
|
||||||
|
CFLAGS="${CFLAGS} -fprofile-generate" MAKE=${MAKE} ${MAKE} timing
|
||||||
|
./test
|
||||||
|
rm -f `find . -type f | grep "[.]o" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]a" | xargs`
|
||||||
|
rm -f test
|
||||||
|
CFLAGS="${CFLAGS} -fprofile-use" MAKE=${MAKE} ${MAKE} timing
|
||||||
|
|
||||||
|
stest: $(LIBNAME) demo/stest.o
|
||||||
|
$(CC) $(CFLAGS) demo/stest.o $(LIBNAME) -o stest
|
||||||
|
|
||||||
|
rsatest: $(LIBNAME) demo/rsa.o
|
||||||
|
$(CC) $(CFLAGS) demo/rsa.o $(LIBNAME) -o rsatest
|
||||||
|
|
||||||
|
docdvi: tfm.tex
|
||||||
|
touch tfm.ind
|
||||||
|
latex tfm >/dev/null
|
||||||
|
latex tfm >/dev/null
|
||||||
|
makeindex tfm
|
||||||
|
latex tfm >/dev/null
|
||||||
|
|
||||||
|
docs: docdvi
|
||||||
|
latex tfm >/dev/null
|
||||||
|
dvipdf tfm
|
||||||
|
mv -f tfm.pdf doc
|
||||||
|
|
||||||
|
#This rule cleans the source tree of all compiled code, not including the pdf
|
||||||
|
#documentation.
|
||||||
|
clean:
|
||||||
|
rm -f `find . -type f | grep "[.]o" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]lo" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]a" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]la" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]obj" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]lib" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]exe" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]gcda" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]gcno" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]il" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]dyn" | xargs`
|
||||||
|
rm -f `find . -type f | grep "[.]dpi" | xargs`
|
||||||
|
rm -rf `find . -type d | grep "[.]libs" | xargs`
|
||||||
|
rm -f tfm.aux tfm.dvi tfm.idx tfm.ilg tfm.ind tfm.lof tfm.log tfm.toc test mtest/mtest
|
||||||
|
cd mtest ; MAKE=${MAKE} ${MAKE} clean
|
||||||
|
|
||||||
|
no_oops: clean
|
||||||
|
cd .. ; cvs commit
|
||||||
|
echo Scanning for scratch/dirty files
|
||||||
|
find . -type f | grep -v CVS | xargs -n 1 bash mess.sh
|
||||||
|
|
||||||
|
zipup: no_oops docs clean
|
||||||
|
perl gen.pl ; mv mpi.c pre_gen/ ; \
|
||||||
|
cd .. ; rm -rf tfm* tomsfastmath-$(VERSION) ; mkdir tomsfastmath-$(VERSION) ; \
|
||||||
|
cp -R ./tomsfastmath/* ./tomsfastmath-$(VERSION)/ ; \
|
||||||
|
tar -c tomsfastmath-$(VERSION)/* | bzip2 -9vvc > tfm-$(VERSION).tar.bz2 ; \
|
||||||
|
zip -9r tfm-$(VERSION).zip tomsfastmath-$(VERSION)/* ; \
|
||||||
|
mv -f tfm* ~ ; rm -rf tomsfastmath-$(VERSION)
|
||||||
|
|
||||||
|
# $Source: /cvs/libtom/tomsfastmath/makefile,v $
|
||||||
|
# $Revision: 1.38 $
|
||||||
|
# $Date: 2007/03/13 01:23:03 $
|
||||||
109
lib/hcrypto/tomsfastmath/makefile.shared
Normal file
109
lib/hcrypto/tomsfastmath/makefile.shared
Normal file
@@ -0,0 +1,109 @@
|
|||||||
|
#makefile for TomsFastMath
|
||||||
|
#
|
||||||
|
#
|
||||||
|
VERSION=0:12
|
||||||
|
|
||||||
|
CC=libtool --mode=compile --tag=CC gcc
|
||||||
|
|
||||||
|
CFLAGS += -Wall -W -Wshadow -Isrc/headers
|
||||||
|
|
||||||
|
ifndef IGNORE_SPEED
|
||||||
|
|
||||||
|
CFLAGS += -O3 -funroll-all-loops
|
||||||
|
|
||||||
|
#profiling
|
||||||
|
#PROF=-pg -g
|
||||||
|
#CFLAGS += $(PROF)
|
||||||
|
|
||||||
|
#speed
|
||||||
|
CFLAGS += -fomit-frame-pointer
|
||||||
|
|
||||||
|
endif
|
||||||
|
|
||||||
|
#START_INS
|
||||||
|
OBJECTS=src/addsub/fp_add.o src/addsub/fp_add_d.o src/addsub/fp_addmod.o src/addsub/fp_cmp.o \
|
||||||
|
src/addsub/fp_cmp_d.o src/addsub/fp_cmp_mag.o src/addsub/fp_sub.o src/addsub/fp_sub_d.o \
|
||||||
|
src/addsub/fp_submod.o src/addsub/s_fp_add.o src/addsub/s_fp_sub.o src/bin/fp_radix_size.o \
|
||||||
|
src/bin/fp_read_radix.o src/bin/fp_read_signed_bin.o src/bin/fp_read_unsigned_bin.o \
|
||||||
|
src/bin/fp_reverse.o src/bin/fp_s_rmap.o src/bin/fp_signed_bin_size.o src/bin/fp_to_signed_bin.o \
|
||||||
|
src/bin/fp_to_unsigned_bin.o src/bin/fp_toradix.o src/bin/fp_unsigned_bin_size.o src/bit/fp_cnt_lsb.o \
|
||||||
|
src/bit/fp_count_bits.o src/bit/fp_div_2.o src/bit/fp_div_2d.o src/bit/fp_lshd.o src/bit/fp_mod_2d.o \
|
||||||
|
src/bit/fp_rshd.o src/divide/fp_div.o src/divide/fp_div_d.o src/divide/fp_mod.o src/divide/fp_mod_d.o \
|
||||||
|
src/exptmod/fp_2expt.o src/exptmod/fp_exptmod.o src/misc/fp_ident.o src/misc/fp_set.o \
|
||||||
|
src/mont/fp_montgomery_calc_normalization.o src/mont/fp_montgomery_reduce.o \
|
||||||
|
src/mont/fp_montgomery_setup.o src/mul/fp_mul.o src/mul/fp_mul_2.o src/mul/fp_mul_2d.o \
|
||||||
|
src/mul/fp_mul_comba.o src/mul/fp_mul_comba_12.o src/mul/fp_mul_comba_17.o src/mul/fp_mul_comba_20.o \
|
||||||
|
src/mul/fp_mul_comba_24.o src/mul/fp_mul_comba_28.o src/mul/fp_mul_comba_3.o src/mul/fp_mul_comba_32.o \
|
||||||
|
src/mul/fp_mul_comba_4.o src/mul/fp_mul_comba_48.o src/mul/fp_mul_comba_6.o src/mul/fp_mul_comba_64.o \
|
||||||
|
src/mul/fp_mul_comba_7.o src/mul/fp_mul_comba_8.o src/mul/fp_mul_comba_9.o \
|
||||||
|
src/mul/fp_mul_comba_small_set.o src/mul/fp_mul_d.o src/mul/fp_mulmod.o src/numtheory/fp_gcd.o \
|
||||||
|
src/numtheory/fp_invmod.o src/numtheory/fp_isprime.o src/numtheory/fp_lcm.o \
|
||||||
|
src/numtheory/fp_prime_miller_rabin.o src/numtheory/fp_prime_random_ex.o src/sqr/fp_sqr.o \
|
||||||
|
src/sqr/fp_sqr_comba.o src/sqr/fp_sqr_comba_12.o src/sqr/fp_sqr_comba_17.o src/sqr/fp_sqr_comba_20.o \
|
||||||
|
src/sqr/fp_sqr_comba_24.o src/sqr/fp_sqr_comba_28.o src/sqr/fp_sqr_comba_3.o src/sqr/fp_sqr_comba_32.o \
|
||||||
|
src/sqr/fp_sqr_comba_4.o src/sqr/fp_sqr_comba_48.o src/sqr/fp_sqr_comba_6.o src/sqr/fp_sqr_comba_64.o \
|
||||||
|
src/sqr/fp_sqr_comba_7.o src/sqr/fp_sqr_comba_8.o src/sqr/fp_sqr_comba_9.o \
|
||||||
|
src/sqr/fp_sqr_comba_generic.o src/sqr/fp_sqr_comba_small_set.o src/sqr/fp_sqrmod.o
|
||||||
|
|
||||||
|
HEADERS=src/headers/tfm.h
|
||||||
|
|
||||||
|
#END_INS
|
||||||
|
|
||||||
|
|
||||||
|
ifndef LIBPATH
|
||||||
|
LIBPATH=/usr/lib
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INCPATH
|
||||||
|
INCPATH=/usr/include
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INSTALL_GROUP
|
||||||
|
GROUP=wheel
|
||||||
|
else
|
||||||
|
GROUP=$(INSTALL_GROUP)
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef INSTALL_USER
|
||||||
|
USER=root
|
||||||
|
else
|
||||||
|
USER=$(INSTALL_USER)
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef LIBNAME
|
||||||
|
LIBNAME=libtfm.la
|
||||||
|
endif
|
||||||
|
|
||||||
|
ifndef LIBNAME_S
|
||||||
|
LIBNAME_S=libtfm.a
|
||||||
|
endif
|
||||||
|
|
||||||
|
default: $(LIBNAME)
|
||||||
|
|
||||||
|
objs: $(OBJECTS)
|
||||||
|
|
||||||
|
$(LIBNAME): $(OBJECTS)
|
||||||
|
libtool --silent --mode=link gcc $(CFLAGS) `find . -type f | grep "[.]lo" | xargs` -o $(LIBNAME) -rpath $(LIBPATH) -version-info $(VERSION)
|
||||||
|
|
||||||
|
install: $(LIBNAME)
|
||||||
|
install -d -g $(GROUP) -o $(USER) $(DESTDIR)$(LIBPATH)
|
||||||
|
libtool --silent --mode=install install -c $(LIBNAME) $(DESTDIR)$(LIBPATH)/$(LIBNAME)
|
||||||
|
install -d -g $(GROUP) -o $(USER) $(DESTDIR)$(INCPATH)
|
||||||
|
install -g $(GROUP) -o $(USER) $(HEADERS) $(DESTDIR)$(INCPATH)
|
||||||
|
|
||||||
|
mtest/mtest: mtest/mtest.c
|
||||||
|
cd mtest ; make mtest
|
||||||
|
|
||||||
|
test: $(LIBNAME) demo/test.o mtest/mtest
|
||||||
|
$(CC) $(CFLAGS) demo/test.o $(LIBNAME_S) $(PROF) -o test
|
||||||
|
|
||||||
|
timing: $(LIBNAME) demo/test.o
|
||||||
|
$(CC) $(CFLAGS) demo/test.o $(LIBNAME_S) $(PROF) -o test
|
||||||
|
|
||||||
|
stest: $(LIBNAME) demo/stest.o
|
||||||
|
$(CC) $(CFLAGS) demo/stest.o $(LIBNAME_S) -o stest
|
||||||
|
|
||||||
|
# $Source: /cvs/libtom/tomsfastmath/makefile.shared,v $
|
||||||
|
# $Revision: 1.19 $
|
||||||
|
# $Date: 2007/03/13 01:23:03 $
|
||||||
|
|
||||||
4
lib/hcrypto/tomsfastmath/mess.sh
Normal file
4
lib/hcrypto/tomsfastmath/mess.sh
Normal file
@@ -0,0 +1,4 @@
|
|||||||
|
#!/bin/bash
|
||||||
|
if cvs log $1 >/dev/null 2>/dev/null; then exit 0; else echo "$1 shouldn't be here" ; exit 1; fi
|
||||||
|
|
||||||
|
|
||||||
2
lib/hcrypto/tomsfastmath/mpi.c
Normal file
2
lib/hcrypto/tomsfastmath/mpi.c
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
|
||||||
|
/* EOF */
|
||||||
9
lib/hcrypto/tomsfastmath/mtest/makefile
Normal file
9
lib/hcrypto/tomsfastmath/mtest/makefile
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
CFLAGS += -Wall -W -O3
|
||||||
|
|
||||||
|
default: mtest
|
||||||
|
|
||||||
|
mtest: mtest.o
|
||||||
|
$(CC) $(CFLAGS) mtest.o -ltommath -o mtest
|
||||||
|
|
||||||
|
clean:
|
||||||
|
rm -f *.o mtest *~
|
||||||
324
lib/hcrypto/tomsfastmath/mtest/mtest.c
Normal file
324
lib/hcrypto/tomsfastmath/mtest/mtest.c
Normal file
@@ -0,0 +1,324 @@
|
|||||||
|
/* makes a bignum test harness with NUM tests per operation
|
||||||
|
*
|
||||||
|
* the output is made in the following format [one parameter per line]
|
||||||
|
|
||||||
|
operation
|
||||||
|
operand1
|
||||||
|
operand2
|
||||||
|
[... operandN]
|
||||||
|
result1
|
||||||
|
result2
|
||||||
|
[... resultN]
|
||||||
|
|
||||||
|
So for example "a * b mod n" would be
|
||||||
|
|
||||||
|
mulmod
|
||||||
|
a
|
||||||
|
b
|
||||||
|
n
|
||||||
|
a*b mod n
|
||||||
|
|
||||||
|
e.g. if a=3, b=4 n=11 then
|
||||||
|
|
||||||
|
mulmod
|
||||||
|
3
|
||||||
|
4
|
||||||
|
11
|
||||||
|
1
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef MP_8BIT
|
||||||
|
#define THE_MASK 127
|
||||||
|
#else
|
||||||
|
#define THE_MASK 32767
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <time.h>
|
||||||
|
#include <tommath.h>
|
||||||
|
#define CRYPT
|
||||||
|
#include "../src/headers/tfm.h"
|
||||||
|
|
||||||
|
FILE *rng;
|
||||||
|
|
||||||
|
/* 1-2048 bit numbers */
|
||||||
|
void rand_num(mp_int *a)
|
||||||
|
{
|
||||||
|
int n, size;
|
||||||
|
unsigned char buf[2048];
|
||||||
|
|
||||||
|
size = 1 + ((fgetc(rng)<<8) + fgetc(rng)) % (FP_MAX_SIZE/16 - DIGIT_BIT/2);
|
||||||
|
buf[0] = (fgetc(rng)&1)?1:0;
|
||||||
|
fread(buf+1, 1, size, rng);
|
||||||
|
while (buf[1] == 0) buf[1] = fgetc(rng);
|
||||||
|
mp_read_raw(a, buf, 1+size);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 1-256 bit numbers (to test things like exptmod) */
|
||||||
|
void rand_num2(mp_int *a)
|
||||||
|
{
|
||||||
|
int n, size;
|
||||||
|
unsigned char buf[2048];
|
||||||
|
|
||||||
|
size = 1 + ((fgetc(rng)<<8) + fgetc(rng)) % (FP_MAX_SIZE/16 - DIGIT_BIT/2);
|
||||||
|
buf[0] = (fgetc(rng)&1)?1:0;
|
||||||
|
fread(buf+1, 1, size, rng);
|
||||||
|
while (buf[1] == 0) buf[1] = fgetc(rng);
|
||||||
|
mp_read_raw(a, buf, 1+size);
|
||||||
|
}
|
||||||
|
|
||||||
|
#define mp_to64(a, b) mp_toradix(a, b, 64)
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
int n, tmp;
|
||||||
|
mp_int a, b, c, d, e;
|
||||||
|
clock_t t1;
|
||||||
|
char buf[4096];
|
||||||
|
|
||||||
|
mp_init(&a);
|
||||||
|
mp_init(&b);
|
||||||
|
mp_init(&c);
|
||||||
|
mp_init(&d);
|
||||||
|
mp_init(&e);
|
||||||
|
|
||||||
|
|
||||||
|
/* initial (2^n - 1)^2 testing, makes sure the comba multiplier works [it has the new carry code] */
|
||||||
|
/*
|
||||||
|
mp_set(&a, 1);
|
||||||
|
for (n = 1; n < 8192; n++) {
|
||||||
|
mp_mul(&a, &a, &c);
|
||||||
|
printf("mul\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n%s\n", buf, buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
|
||||||
|
mp_add_d(&a, 1, &a);
|
||||||
|
mp_mul_2(&a, &a);
|
||||||
|
mp_sub_d(&a, 1, &a);
|
||||||
|
}
|
||||||
|
*/
|
||||||
|
|
||||||
|
rng = fopen("/dev/urandom", "rb");
|
||||||
|
if (rng == NULL) {
|
||||||
|
rng = fopen("/dev/random", "rb");
|
||||||
|
if (rng == NULL) {
|
||||||
|
fprintf(stderr, "\nWarning: stdin used as random source\n\n");
|
||||||
|
rng = stdin;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
t1 = clock();
|
||||||
|
for (;;) {
|
||||||
|
#if 0
|
||||||
|
if (clock() - t1 > CLOCKS_PER_SEC) {
|
||||||
|
sleep(2);
|
||||||
|
t1 = clock();
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
n = fgetc(rng) % 16;
|
||||||
|
if (n == 0) {
|
||||||
|
/* add tests */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
mp_add(&a, &b, &c);
|
||||||
|
printf("add\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 1) {
|
||||||
|
/* sub tests */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
mp_sub(&a, &b, &c);
|
||||||
|
printf("sub\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 2) {
|
||||||
|
/* mul tests */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
mp_mul(&a, &b, &c);
|
||||||
|
printf("mul\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 3) {
|
||||||
|
/* div tests */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
mp_div(&a, &b, &c, &d);
|
||||||
|
printf("div\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&d, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 4) {
|
||||||
|
/* sqr tests */
|
||||||
|
rand_num(&a);
|
||||||
|
mp_sqr(&a, &b);
|
||||||
|
printf("sqr\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 5) {
|
||||||
|
/* mul_2d test */
|
||||||
|
rand_num(&a);
|
||||||
|
mp_copy(&a, &b);
|
||||||
|
n = fgetc(rng) & 63;
|
||||||
|
mp_mul_2d(&b, n, &b);
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("mul2d\n");
|
||||||
|
printf("%s\n", buf);
|
||||||
|
printf("%d\n", n);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 6) {
|
||||||
|
/* div_2d test */
|
||||||
|
rand_num(&a);
|
||||||
|
mp_copy(&a, &b);
|
||||||
|
n = fgetc(rng) & 63;
|
||||||
|
mp_div_2d(&b, n, &b, NULL);
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("div2d\n");
|
||||||
|
printf("%s\n", buf);
|
||||||
|
printf("%d\n", n);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 7) {
|
||||||
|
/* gcd test */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
a.sign = MP_ZPOS;
|
||||||
|
b.sign = MP_ZPOS;
|
||||||
|
mp_gcd(&a, &b, &c);
|
||||||
|
printf("gcd\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 8) {
|
||||||
|
/* lcm test */
|
||||||
|
rand_num(&a);
|
||||||
|
rand_num(&b);
|
||||||
|
a.sign = MP_ZPOS;
|
||||||
|
b.sign = MP_ZPOS;
|
||||||
|
mp_lcm(&a, &b, &c);
|
||||||
|
printf("lcm\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 9) {
|
||||||
|
/* exptmod test */
|
||||||
|
rand_num2(&a);
|
||||||
|
rand_num2(&b);
|
||||||
|
rand_num2(&c);
|
||||||
|
a.sign = b.sign = c.sign = 0;
|
||||||
|
c.dp[0] |= 1;
|
||||||
|
// if (c.used <= 4) continue;
|
||||||
|
// if (mp_cmp(&a, &c) != MP_LT) continue;
|
||||||
|
// if (mp_cmp(&b, &c) != MP_LT) continue;
|
||||||
|
mp_exptmod(&a, &b, &c, &d);
|
||||||
|
printf("expt\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&d, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 10) {
|
||||||
|
/* invmod test */
|
||||||
|
rand_num2(&a);
|
||||||
|
rand_num2(&b);
|
||||||
|
b.dp[0] |= 1;
|
||||||
|
b.sign = MP_ZPOS;
|
||||||
|
a.sign = MP_ZPOS;
|
||||||
|
mp_gcd(&a, &b, &c);
|
||||||
|
if (mp_cmp_d(&c, 1) != 0) continue;
|
||||||
|
if (mp_cmp_d(&b, 1) == 0) continue;
|
||||||
|
mp_invmod(&a, &b, &c);
|
||||||
|
printf("invmod\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&c, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 11) {
|
||||||
|
rand_num(&a);
|
||||||
|
mp_mul_2(&a, &a);
|
||||||
|
mp_div_2(&a, &b);
|
||||||
|
printf("div2\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 12) {
|
||||||
|
rand_num(&a);
|
||||||
|
mp_mul_2(&a, &b);
|
||||||
|
printf("mul2\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 13) {
|
||||||
|
rand_num(&a);
|
||||||
|
tmp = abs(rand()) & THE_MASK;
|
||||||
|
mp_add_d(&a, tmp, &b);
|
||||||
|
printf("add_d\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n%d\n", buf, tmp);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 14) {
|
||||||
|
rand_num(&a);
|
||||||
|
tmp = abs(rand()) & THE_MASK;
|
||||||
|
mp_sub_d(&a, tmp, &b);
|
||||||
|
printf("sub_d\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n%d\n", buf, tmp);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
} else if (n == 15) {
|
||||||
|
rand_num(&a);
|
||||||
|
tmp = abs(rand()) & THE_MASK;
|
||||||
|
mp_mul_d(&a, tmp, &b);
|
||||||
|
printf("mul_d\n");
|
||||||
|
mp_to64(&a, buf);
|
||||||
|
printf("%s\n%d\n", buf, tmp);
|
||||||
|
mp_to64(&b, buf);
|
||||||
|
printf("%s\n", buf);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fclose(rng);
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/mtest/mtest.c,v $ */
|
||||||
|
/* $Revision: 1.7 $ */
|
||||||
|
/* $Date: 2007/01/12 19:39:06 $ */
|
||||||
26
lib/hcrypto/tomsfastmath/parsenames.pl
Normal file
26
lib/hcrypto/tomsfastmath/parsenames.pl
Normal file
@@ -0,0 +1,26 @@
|
|||||||
|
#!/usr/bin/perl
|
||||||
|
#
|
||||||
|
# Splits the list of files and outputs for makefile type files
|
||||||
|
# wrapped at 80 chars
|
||||||
|
#
|
||||||
|
# Tom St Denis
|
||||||
|
@a = split(" ", $ARGV[1]);
|
||||||
|
$b = "$ARGV[0]=";
|
||||||
|
$len = length($b);
|
||||||
|
print $b;
|
||||||
|
foreach my $obj (@a) {
|
||||||
|
$len = $len + length($obj);
|
||||||
|
$obj =~ s/\*/\$/;
|
||||||
|
if ($len > 100) {
|
||||||
|
printf "\\\n";
|
||||||
|
$len = length($obj);
|
||||||
|
}
|
||||||
|
print "$obj ";
|
||||||
|
}
|
||||||
|
#if ($ARGV[0] eq "HEADERS") { print "testprof/tomcrypt_test.h"; }
|
||||||
|
|
||||||
|
print "\n\n";
|
||||||
|
|
||||||
|
# $Source: /cvs/libtom/tomsfastmath/parsenames.pl,v $
|
||||||
|
# $Revision: 1.1 $
|
||||||
|
# $Date: 2006/12/31 21:31:40 $
|
||||||
2
lib/hcrypto/tomsfastmath/pre_gen/mpi.c
Normal file
2
lib/hcrypto/tomsfastmath/pre_gen/mpi.c
Normal file
@@ -0,0 +1,2 @@
|
|||||||
|
|
||||||
|
/* EOF */
|
||||||
43
lib/hcrypto/tomsfastmath/random_txt_files/amd64.txt
Normal file
43
lib/hcrypto/tomsfastmath/random_txt_files/amd64.txt
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
AMD64 timings
|
||||||
|
|
||||||
|
using ISO C
|
||||||
|
mult
|
||||||
|
512-bit: 496
|
||||||
|
1024-bit: 1717
|
||||||
|
2048-bit: 7200
|
||||||
|
sqr
|
||||||
|
512-bit: 448
|
||||||
|
1024-bit: 1760
|
||||||
|
2048-bit: 7099
|
||||||
|
mont
|
||||||
|
512-bit: 1416
|
||||||
|
1024-bit: 5156
|
||||||
|
2048-bit: 20820
|
||||||
|
expt
|
||||||
|
512-bit: 1520207
|
||||||
|
1024-bit: 10603520
|
||||||
|
2048-bit: 84893649
|
||||||
|
|
||||||
|
using amd64
|
||||||
|
mult
|
||||||
|
512-bit: 292
|
||||||
|
1024-bit: 945
|
||||||
|
2048-bit: 3620
|
||||||
|
sqr
|
||||||
|
512-bit: 238
|
||||||
|
1024-bit: 801
|
||||||
|
2048-bit: 2853
|
||||||
|
mont
|
||||||
|
512-bit: 731
|
||||||
|
1024-bit: 1730
|
||||||
|
2048-bit: 5462
|
||||||
|
Exptmod:
|
||||||
|
512-bit: 641743
|
||||||
|
1024-bit: 3167406
|
||||||
|
2048-bit: 20158609
|
||||||
|
|
||||||
|
LTM exptmods
|
||||||
|
|
||||||
|
Exponentiating 513-bit => 825/sec, 2183028 cycles
|
||||||
|
Exponentiating 1025-bit => 151/sec, 11900720 cycles
|
||||||
|
Exponentiating 2049-bit => 24/sec, 72376416 cycles
|
||||||
@@ -0,0 +1,45 @@
|
|||||||
|
LTM timings:
|
||||||
|
|
||||||
|
Athlon Barton
|
||||||
|
Exponentiating 513-bit => 561/sec, 3909824 cycles
|
||||||
|
Exponentiating 1025-bit => 103/sec, 21175496 cycles
|
||||||
|
Exponentiating 2049-bit => 16/sec, 129845554 cycles
|
||||||
|
|
||||||
|
P4 Northwood
|
||||||
|
Exponentiating 513-bit => 284/sec, 9884722 cycles
|
||||||
|
Exponentiating 1025-bit => 47/sec, 59090432 cycles
|
||||||
|
Exponentiating 2049-bit => 6/sec, 427456070 cycles
|
||||||
|
|
||||||
|
TFM timings:
|
||||||
|
|
||||||
|
Athlon Barton
|
||||||
|
512-bit: 2289257
|
||||||
|
1024-bit: 12871373
|
||||||
|
2048-bit: 97211357
|
||||||
|
|
||||||
|
P4 Northwood [x86-32]
|
||||||
|
512-bit: 8015598
|
||||||
|
1024-bit: 55559304
|
||||||
|
2048-bit: 409861746
|
||||||
|
|
||||||
|
P4 Northwood [SSE2]
|
||||||
|
512-bit: 5895000
|
||||||
|
1024-bit: 39648730
|
||||||
|
2048-bit: 304110670
|
||||||
|
|
||||||
|
<center>
|
||||||
|
<table border=1 width=100%>
|
||||||
|
<tr><td>Processor</td><td>Size in bits</td><td>x86-32</td> <td>x86-64</td><td>SSE2</td><td>LTM</td></tr>
|
||||||
|
<tr><td>P4 </td><td>512 </td><td>8015598</td><td></td> <td>5895000</td><td>9884722</td></tr>
|
||||||
|
<tr><td> </td><td>1024 </td><td>55559304</td><td></td> <td>39648730</td><td>59090432</td></tr>
|
||||||
|
<tr><td> </td><td>2048 </td><td>409861746</td><td></td> <td>304110670</td><td>427456070</td></tr>
|
||||||
|
<tr><td>Athlon Barton</td><td>512 </td><td>2289257</td><td></td><td></td><td>3909824</td></tr>
|
||||||
|
<tr><td> </td><td>1024 </td><td>12871373</td><td></td><td></td><td>21175496</td></tr>
|
||||||
|
<tr><td> </td><td>2048 </td><td>97211357</td><td></td><td></td><td>129845554</td></tr>
|
||||||
|
<tr><td>Athlon64 </td><td>512 </td><td></td><td>641743</td><td></td><td>2183028</td></tr>
|
||||||
|
<tr><td> </td><td>1042 </td><td></td><td>3167406</td><td></td><td>11900720</td></tr>
|
||||||
|
<tr><td> </td><td>2048 </td><td></td><td>20158609</td><td></td><td>72376416</td></tr>
|
||||||
|
</table>
|
||||||
|
<b>Cycles per operation</b>
|
||||||
|
</center>
|
||||||
|
|
||||||
37
lib/hcrypto/tomsfastmath/random_txt_files/ltm_times.txt
Normal file
37
lib/hcrypto/tomsfastmath/random_txt_files/ltm_times.txt
Normal file
@@ -0,0 +1,37 @@
|
|||||||
|
LTM Timings...
|
||||||
|
|
||||||
|
Multiplying 140-bit => 2950763/sec, 952 cycles
|
||||||
|
Multiplying 196-bit => 2150939/sec, 1306 cycles
|
||||||
|
Multiplying 252-bit => 1357066/sec, 2070 cycles
|
||||||
|
Multiplying 308-bit => 1055269/sec, 2662 cycles
|
||||||
|
Multiplying 364-bit => 817557/sec, 3436 cycles
|
||||||
|
Multiplying 420-bit => 636413/sec, 4414 cycles
|
||||||
|
Multiplying 475-bit => 536912/sec, 5232 cycles
|
||||||
|
Multiplying 531-bit => 433641/sec, 6478 cycles
|
||||||
|
Multiplying 588-bit => 372069/sec, 7550 cycles
|
||||||
|
Multiplying 644-bit => 322813/sec, 8702 cycles
|
||||||
|
Multiplying 698-bit => 275566/sec, 10194 cycles
|
||||||
|
Multiplying 753-bit => 242082/sec, 11604 cycles
|
||||||
|
Multiplying 809-bit => 214797/sec, 13078 cycles
|
||||||
|
Multiplying 867-bit => 189626/sec, 14814 cycles
|
||||||
|
Multiplying 921-bit => 168858/sec, 16636 cycles
|
||||||
|
Multiplying 978-bit => 151598/sec, 18530 cycles
|
||||||
|
Multiplying 1036-bit => 137580/sec, 20418 cycles
|
||||||
|
Multiplying 1091-bit => 124661/sec, 22534 cycles
|
||||||
|
Multiplying 1148-bit => 111677/sec, 25154 cycles
|
||||||
|
Multiplying 1199-bit => 102762/sec, 27336 cycles
|
||||||
|
Multiplying 1258-bit => 94519/sec, 29720 cycles
|
||||||
|
Multiplying 1316-bit => 86975/sec, 32298 cycles
|
||||||
|
Multiplying 1371-bit => 79754/sec, 35222 cycles
|
||||||
|
Multiplying 1427-bit => 74473/sec, 37720 cycles
|
||||||
|
Multiplying 1483-bit => 68827/sec, 40814 cycles
|
||||||
|
Multiplying 1537-bit => 63644/sec, 44138 cycles
|
||||||
|
Multiplying 1595-bit => 59646/sec, 47096 cycles
|
||||||
|
Multiplying 1651-bit => 56469/sec, 49746 cycles
|
||||||
|
Multiplying 1708-bit => 52640/sec, 53364 cycles
|
||||||
|
Multiplying 1764-bit => 49823/sec, 56382 cycles
|
||||||
|
Multiplying 1819-bit => 46856/sec, 59952 cycles
|
||||||
|
Multiplying 1875-bit => 44264/sec, 63462 cycles
|
||||||
|
Multiplying 1929-bit => 41641/sec, 67460 cycles
|
||||||
|
Multiplying 1985-bit => 39539/sec, 71046 cycles
|
||||||
|
Multiplying 2044-bit => 37591/sec, 74728 cycles
|
||||||
36
lib/hcrypto/tomsfastmath/random_txt_files/newsqr.txt
Normal file
36
lib/hcrypto/tomsfastmath/random_txt_files/newsqr.txt
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
New code added in TFM v0.03
|
||||||
|
|
||||||
|
OLD 64-bit...[athlon64]
|
||||||
|
|
||||||
|
Squaring:
|
||||||
|
256-bit: 89
|
||||||
|
512-bit: 234
|
||||||
|
1024-bit: 815
|
||||||
|
2048-bit: 2851
|
||||||
|
|
||||||
|
NEW 64-bit ...
|
||||||
|
|
||||||
|
Squaring:
|
||||||
|
256-bit: 89
|
||||||
|
512-bit: 228
|
||||||
|
1024-bit: 691
|
||||||
|
2048-bit: 2228
|
||||||
|
|
||||||
|
|
||||||
|
OLD 32-bit [athlonxp]
|
||||||
|
|
||||||
|
Squaring:
|
||||||
|
|
||||||
|
256-bit: 327
|
||||||
|
512-bit: 1044
|
||||||
|
1024-bit: 3646
|
||||||
|
2048-bit: 17055
|
||||||
|
|
||||||
|
NEW 32-bit
|
||||||
|
|
||||||
|
Squaring:
|
||||||
|
|
||||||
|
256-bit: 332
|
||||||
|
512-bit: 894
|
||||||
|
1024-bit: 2983
|
||||||
|
2048-bit: 10385
|
||||||
14
lib/hcrypto/tomsfastmath/random_txt_files/old_sqr_times.txt
Normal file
14
lib/hcrypto/tomsfastmath/random_txt_files/old_sqr_times.txt
Normal file
@@ -0,0 +1,14 @@
|
|||||||
|
I started with:
|
||||||
|
512-bit: 16338
|
||||||
|
1024-bit: 51020
|
||||||
|
2048-bit: 142718
|
||||||
|
|
||||||
|
My x86-32
|
||||||
|
512-bit: 2864
|
||||||
|
1024-bit: 10615
|
||||||
|
2048-bit: 41807
|
||||||
|
|
||||||
|
My SSE2
|
||||||
|
512-bit: 2168
|
||||||
|
1024-bit: 7727
|
||||||
|
2048-bit: 33163
|
||||||
43
lib/hcrypto/tomsfastmath/src/addsub/fp_add.c
Normal file
43
lib/hcrypto/tomsfastmath/src/addsub/fp_add.c
Normal file
@@ -0,0 +1,43 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_add(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
int sa, sb;
|
||||||
|
|
||||||
|
/* get sign of both inputs */
|
||||||
|
sa = a->sign;
|
||||||
|
sb = b->sign;
|
||||||
|
|
||||||
|
/* handle two cases, not four */
|
||||||
|
if (sa == sb) {
|
||||||
|
/* both positive or both negative */
|
||||||
|
/* add their magnitudes, copy the sign */
|
||||||
|
c->sign = sa;
|
||||||
|
s_fp_add (a, b, c);
|
||||||
|
} else {
|
||||||
|
/* one positive, the other negative */
|
||||||
|
/* subtract the one with the greater magnitude from */
|
||||||
|
/* the one of the lesser magnitude. The result gets */
|
||||||
|
/* the sign of the one with the greater magnitude. */
|
||||||
|
if (fp_cmp_mag (a, b) == FP_LT) {
|
||||||
|
c->sign = sb;
|
||||||
|
s_fp_sub (b, a, c);
|
||||||
|
} else {
|
||||||
|
c->sign = sa;
|
||||||
|
s_fp_sub (a, b, c);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_add.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
22
lib/hcrypto/tomsfastmath/src/addsub/fp_add_d.c
Normal file
22
lib/hcrypto/tomsfastmath/src/addsub/fp_add_d.c
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a + b */
|
||||||
|
void fp_add_d(fp_int *a, fp_digit b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
fp_set(&tmp, b);
|
||||||
|
fp_add(a,&tmp,c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_add_d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
23
lib/hcrypto/tomsfastmath/src/addsub/fp_addmod.c
Normal file
23
lib/hcrypto/tomsfastmath/src/addsub/fp_addmod.c
Normal file
@@ -0,0 +1,23 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* d = a + b (mod c) */
|
||||||
|
int fp_addmod(fp_int *a, fp_int *b, fp_int *c, fp_int *d)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
fp_zero(&tmp);
|
||||||
|
fp_add(a, b, &tmp);
|
||||||
|
return fp_mod(&tmp, c, d);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_addmod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
31
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp.c
Normal file
31
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp.c
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_cmp(fp_int *a, fp_int *b)
|
||||||
|
{
|
||||||
|
if (a->sign == FP_NEG && b->sign == FP_ZPOS) {
|
||||||
|
return FP_LT;
|
||||||
|
} else if (a->sign == FP_ZPOS && b->sign == FP_NEG) {
|
||||||
|
return FP_GT;
|
||||||
|
} else {
|
||||||
|
/* compare digits */
|
||||||
|
if (a->sign == FP_NEG) {
|
||||||
|
/* if negative compare opposite direction */
|
||||||
|
return fp_cmp_mag(b, a);
|
||||||
|
} else {
|
||||||
|
return fp_cmp_mag(a, b);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_cmp.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
38
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp_d.c
Normal file
38
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp_d.c
Normal file
@@ -0,0 +1,38 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* compare against a single digit */
|
||||||
|
int fp_cmp_d(fp_int *a, fp_digit b)
|
||||||
|
{
|
||||||
|
/* compare based on sign */
|
||||||
|
if ((b && a->used == 0) || a->sign == FP_NEG) {
|
||||||
|
return FP_LT;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* compare based on magnitude */
|
||||||
|
if (a->used > 1) {
|
||||||
|
return FP_GT;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* compare the only digit of a to b */
|
||||||
|
if (a->dp[0] > b) {
|
||||||
|
return FP_GT;
|
||||||
|
} else if (a->dp[0] < b) {
|
||||||
|
return FP_LT;
|
||||||
|
} else {
|
||||||
|
return FP_EQ;
|
||||||
|
}
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_cmp_d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
35
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp_mag.c
Normal file
35
lib/hcrypto/tomsfastmath/src/addsub/fp_cmp_mag.c
Normal file
@@ -0,0 +1,35 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_cmp_mag(fp_int *a, fp_int *b)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
|
||||||
|
if (a->used > b->used) {
|
||||||
|
return FP_GT;
|
||||||
|
} else if (a->used < b->used) {
|
||||||
|
return FP_LT;
|
||||||
|
} else {
|
||||||
|
for (x = a->used - 1; x >= 0; x--) {
|
||||||
|
if (a->dp[x] > b->dp[x]) {
|
||||||
|
return FP_GT;
|
||||||
|
} else if (a->dp[x] < b->dp[x]) {
|
||||||
|
return FP_LT;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return FP_EQ;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_cmp_mag.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
50
lib/hcrypto/tomsfastmath/src/addsub/fp_sub.c
Normal file
50
lib/hcrypto/tomsfastmath/src/addsub/fp_sub.c
Normal file
@@ -0,0 +1,50 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a - b */
|
||||||
|
void fp_sub(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
int sa, sb;
|
||||||
|
|
||||||
|
sa = a->sign;
|
||||||
|
sb = b->sign;
|
||||||
|
|
||||||
|
if (sa != sb) {
|
||||||
|
/* subtract a negative from a positive, OR */
|
||||||
|
/* subtract a positive from a negative. */
|
||||||
|
/* In either case, ADD their magnitudes, */
|
||||||
|
/* and use the sign of the first number. */
|
||||||
|
c->sign = sa;
|
||||||
|
s_fp_add (a, b, c);
|
||||||
|
} else {
|
||||||
|
/* subtract a positive from a positive, OR */
|
||||||
|
/* subtract a negative from a negative. */
|
||||||
|
/* First, take the difference between their */
|
||||||
|
/* magnitudes, then... */
|
||||||
|
if (fp_cmp_mag (a, b) != FP_LT) {
|
||||||
|
/* Copy the sign from the first */
|
||||||
|
c->sign = sa;
|
||||||
|
/* The first has a larger or equal magnitude */
|
||||||
|
s_fp_sub (a, b, c);
|
||||||
|
} else {
|
||||||
|
/* The result has the *opposite* sign from */
|
||||||
|
/* the first number. */
|
||||||
|
c->sign = (sa == FP_ZPOS) ? FP_NEG : FP_ZPOS;
|
||||||
|
/* The second has a larger magnitude */
|
||||||
|
s_fp_sub (b, a, c);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_sub.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
22
lib/hcrypto/tomsfastmath/src/addsub/fp_sub_d.c
Normal file
22
lib/hcrypto/tomsfastmath/src/addsub/fp_sub_d.c
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a - b */
|
||||||
|
void fp_sub_d(fp_int *a, fp_digit b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
fp_set(&tmp, b);
|
||||||
|
fp_sub(a, &tmp, c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_sub_d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
24
lib/hcrypto/tomsfastmath/src/addsub/fp_submod.c
Normal file
24
lib/hcrypto/tomsfastmath/src/addsub/fp_submod.c
Normal file
@@ -0,0 +1,24 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* d = a - b (mod c) */
|
||||||
|
int fp_submod(fp_int *a, fp_int *b, fp_int *c, fp_int *d)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
fp_zero(&tmp);
|
||||||
|
fp_sub(a, b, &tmp);
|
||||||
|
return fp_mod(&tmp, c, d);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/fp_submod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
42
lib/hcrypto/tomsfastmath/src/addsub/s_fp_add.c
Normal file
42
lib/hcrypto/tomsfastmath/src/addsub/s_fp_add.c
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* unsigned addition */
|
||||||
|
void s_fp_add(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
int x, y, oldused;
|
||||||
|
register fp_word t;
|
||||||
|
|
||||||
|
y = MAX(a->used, b->used);
|
||||||
|
oldused = c->used;
|
||||||
|
c->used = y;
|
||||||
|
|
||||||
|
t = 0;
|
||||||
|
for (x = 0; x < y; x++) {
|
||||||
|
t += ((fp_word)a->dp[x]) + ((fp_word)b->dp[x]);
|
||||||
|
c->dp[x] = (fp_digit)t;
|
||||||
|
t >>= DIGIT_BIT;
|
||||||
|
}
|
||||||
|
if (t != 0 && x < FP_SIZE) {
|
||||||
|
c->dp[c->used++] = (fp_digit)t;
|
||||||
|
++x;
|
||||||
|
}
|
||||||
|
|
||||||
|
c->used = x;
|
||||||
|
for (; x < oldused; x++) {
|
||||||
|
c->dp[x] = 0;
|
||||||
|
}
|
||||||
|
fp_clamp(c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/s_fp_add.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
40
lib/hcrypto/tomsfastmath/src/addsub/s_fp_sub.c
Normal file
40
lib/hcrypto/tomsfastmath/src/addsub/s_fp_sub.c
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* unsigned subtraction ||a|| >= ||b|| ALWAYS! */
|
||||||
|
void s_fp_sub(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
int x, oldbused, oldused;
|
||||||
|
fp_word t;
|
||||||
|
|
||||||
|
oldused = c->used;
|
||||||
|
oldbused = b->used;
|
||||||
|
c->used = a->used;
|
||||||
|
t = 0;
|
||||||
|
for (x = 0; x < oldbused; x++) {
|
||||||
|
t = ((fp_word)a->dp[x]) - (((fp_word)b->dp[x]) + t);
|
||||||
|
c->dp[x] = (fp_digit)t;
|
||||||
|
t = (t >> DIGIT_BIT)&1;
|
||||||
|
}
|
||||||
|
for (; x < a->used; x++) {
|
||||||
|
t = ((fp_word)a->dp[x]) - t;
|
||||||
|
c->dp[x] = (fp_digit)t;
|
||||||
|
t = (t >> DIGIT_BIT);
|
||||||
|
}
|
||||||
|
for (; x < oldused; x++) {
|
||||||
|
c->dp[x] = 0;
|
||||||
|
}
|
||||||
|
fp_clamp(c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/addsub/s_fp_sub.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
53
lib/hcrypto/tomsfastmath/src/bin/fp_radix_size.c
Normal file
53
lib/hcrypto/tomsfastmath/src/bin/fp_radix_size.c
Normal file
@@ -0,0 +1,53 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_radix_size(fp_int *a, int radix, int *size)
|
||||||
|
{
|
||||||
|
int digs;
|
||||||
|
fp_int t;
|
||||||
|
fp_digit d;
|
||||||
|
|
||||||
|
*size = 0;
|
||||||
|
|
||||||
|
/* check range of the radix */
|
||||||
|
if (radix < 2 || radix > 64) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* quick out if its zero */
|
||||||
|
if (fp_iszero(a) == 1) {
|
||||||
|
*size = 2;
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_init_copy(&t, a);
|
||||||
|
|
||||||
|
/* if it is negative output a - */
|
||||||
|
if (t.sign == FP_NEG) {
|
||||||
|
(*size)++;
|
||||||
|
t.sign = FP_ZPOS;
|
||||||
|
}
|
||||||
|
|
||||||
|
digs = 0;
|
||||||
|
while (fp_iszero (&t) == FP_NO) {
|
||||||
|
fp_div_d (&t, (fp_digit) radix, &t, &d);
|
||||||
|
(*size)++;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* append a NULL so the string is properly terminated */
|
||||||
|
(*size)++;
|
||||||
|
return FP_OKAY;
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_radix_size.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
75
lib/hcrypto/tomsfastmath/src/bin/fp_read_radix.c
Normal file
75
lib/hcrypto/tomsfastmath/src/bin/fp_read_radix.c
Normal file
@@ -0,0 +1,75 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_read_radix(fp_int *a, char *str, int radix)
|
||||||
|
{
|
||||||
|
int y, neg;
|
||||||
|
char ch;
|
||||||
|
|
||||||
|
/* make sure the radix is ok */
|
||||||
|
if (radix < 2 || radix > 64) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if the leading digit is a
|
||||||
|
* minus set the sign to negative.
|
||||||
|
*/
|
||||||
|
if (*str == '-') {
|
||||||
|
++str;
|
||||||
|
neg = FP_NEG;
|
||||||
|
} else {
|
||||||
|
neg = FP_ZPOS;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* set the integer to the default of zero */
|
||||||
|
fp_zero (a);
|
||||||
|
|
||||||
|
/* process each digit of the string */
|
||||||
|
while (*str) {
|
||||||
|
/* if the radix < 36 the conversion is case insensitive
|
||||||
|
* this allows numbers like 1AB and 1ab to represent the same value
|
||||||
|
* [e.g. in hex]
|
||||||
|
*/
|
||||||
|
ch = *str;
|
||||||
|
/*
|
||||||
|
* Don't use toupper() because it tends to pull in tons of locale stuff
|
||||||
|
*/
|
||||||
|
if (radix < 36 && ch >= 'a' && ch <= 'z')
|
||||||
|
ch = ch - 'a' + 'A';
|
||||||
|
for (y = 0; y < 64; y++) {
|
||||||
|
if (ch == fp_s_rmap[y]) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if the char was found in the map
|
||||||
|
* and is less than the given radix add it
|
||||||
|
* to the number, otherwise exit the loop.
|
||||||
|
*/
|
||||||
|
if (y < radix) {
|
||||||
|
fp_mul_d (a, (fp_digit) radix, a);
|
||||||
|
fp_add_d (a, (fp_digit) y, a);
|
||||||
|
} else {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
++str;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* set the sign only if a != 0 */
|
||||||
|
if (fp_iszero(a) != FP_YES) {
|
||||||
|
a->sign = neg;
|
||||||
|
}
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_read_radix.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
27
lib/hcrypto/tomsfastmath/src/bin/fp_read_signed_bin.c
Normal file
27
lib/hcrypto/tomsfastmath/src/bin/fp_read_signed_bin.c
Normal file
@@ -0,0 +1,27 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_read_signed_bin(fp_int *a, unsigned char *b, int c)
|
||||||
|
{
|
||||||
|
/* read magnitude */
|
||||||
|
fp_read_unsigned_bin (a, b + 1, c - 1);
|
||||||
|
|
||||||
|
/* first byte is 0 for positive, non-zero for negative */
|
||||||
|
if (b[0] == 0) {
|
||||||
|
a->sign = FP_ZPOS;
|
||||||
|
} else {
|
||||||
|
a->sign = FP_NEG;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_read_signed_bin.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
66
lib/hcrypto/tomsfastmath/src/bin/fp_read_unsigned_bin.c
Normal file
66
lib/hcrypto/tomsfastmath/src/bin/fp_read_unsigned_bin.c
Normal file
@@ -0,0 +1,66 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_read_unsigned_bin(fp_int *a, unsigned char *b, int c)
|
||||||
|
{
|
||||||
|
/* zero the int */
|
||||||
|
fp_zero (a);
|
||||||
|
|
||||||
|
/* If we know the endianness of this architecture, and we're using
|
||||||
|
32-bit fp_digits, we can optimize this */
|
||||||
|
#if (defined(ENDIAN_LITTLE) || defined(ENDIAN_BIG)) && !defined(FP_64BIT)
|
||||||
|
/* But not for both simultaneously */
|
||||||
|
#if defined(ENDIAN_LITTLE) && defined(ENDIAN_BIG)
|
||||||
|
#error Both ENDIAN_LITTLE and ENDIAN_BIG defined.
|
||||||
|
#endif
|
||||||
|
{
|
||||||
|
unsigned char *pd = (unsigned char *)a->dp;
|
||||||
|
|
||||||
|
if ((unsigned)c > (FP_SIZE * sizeof(fp_digit))) {
|
||||||
|
int excess = c - (FP_SIZE * sizeof(fp_digit));
|
||||||
|
c -= excess;
|
||||||
|
b += excess;
|
||||||
|
}
|
||||||
|
a->used = (c + sizeof(fp_digit) - 1)/sizeof(fp_digit);
|
||||||
|
/* read the bytes in */
|
||||||
|
#ifdef ENDIAN_BIG
|
||||||
|
{
|
||||||
|
/* Use Duff's device to unroll the loop. */
|
||||||
|
int idx = (c - 1) & ~3;
|
||||||
|
switch (c % 4) {
|
||||||
|
case 0: do { pd[idx+0] = *b++;
|
||||||
|
case 3: pd[idx+1] = *b++;
|
||||||
|
case 2: pd[idx+2] = *b++;
|
||||||
|
case 1: pd[idx+3] = *b++;
|
||||||
|
idx -= 4;
|
||||||
|
} while ((c -= 4) > 0);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
for (c -= 1; c >= 0; c -= 1) {
|
||||||
|
pd[c] = *b++;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
}
|
||||||
|
#else
|
||||||
|
/* read the bytes in */
|
||||||
|
for (; c > 0; c--) {
|
||||||
|
fp_mul_2d (a, 8, a);
|
||||||
|
a->dp[0] |= *b++;
|
||||||
|
a->used += 1;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
fp_clamp (a);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_read_unsigned_bin.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/02/17 02:58:19 $ */
|
||||||
31
lib/hcrypto/tomsfastmath/src/bin/fp_reverse.c
Normal file
31
lib/hcrypto/tomsfastmath/src/bin/fp_reverse.c
Normal file
@@ -0,0 +1,31 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* reverse an array, used for radix code */
|
||||||
|
void fp_reverse (unsigned char *s, int len)
|
||||||
|
{
|
||||||
|
int ix, iy;
|
||||||
|
unsigned char t;
|
||||||
|
|
||||||
|
ix = 0;
|
||||||
|
iy = len - 1;
|
||||||
|
while (ix < iy) {
|
||||||
|
t = s[ix];
|
||||||
|
s[ix] = s[iy];
|
||||||
|
s[iy] = t;
|
||||||
|
++ix;
|
||||||
|
--iy;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_reverse.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/02/27 02:38:44 $ */
|
||||||
17
lib/hcrypto/tomsfastmath/src/bin/fp_s_rmap.c
Normal file
17
lib/hcrypto/tomsfastmath/src/bin/fp_s_rmap.c
Normal file
@@ -0,0 +1,17 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* chars used in radix conversions */
|
||||||
|
const char *fp_s_rmap = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz+/";
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_s_rmap.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
19
lib/hcrypto/tomsfastmath/src/bin/fp_signed_bin_size.c
Normal file
19
lib/hcrypto/tomsfastmath/src/bin/fp_signed_bin_size.c
Normal file
@@ -0,0 +1,19 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_signed_bin_size(fp_int *a)
|
||||||
|
{
|
||||||
|
return 1 + fp_unsigned_bin_size (a);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_signed_bin_size.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
20
lib/hcrypto/tomsfastmath/src/bin/fp_to_signed_bin.c
Normal file
20
lib/hcrypto/tomsfastmath/src/bin/fp_to_signed_bin.c
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_to_signed_bin(fp_int *a, unsigned char *b)
|
||||||
|
{
|
||||||
|
fp_to_unsigned_bin (a, b + 1);
|
||||||
|
b[0] = (unsigned char) ((a->sign == FP_ZPOS) ? 0 : 1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_to_signed_bin.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
29
lib/hcrypto/tomsfastmath/src/bin/fp_to_unsigned_bin.c
Normal file
29
lib/hcrypto/tomsfastmath/src/bin/fp_to_unsigned_bin.c
Normal file
@@ -0,0 +1,29 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_to_unsigned_bin(fp_int *a, unsigned char *b)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
fp_int t;
|
||||||
|
|
||||||
|
fp_init_copy(&t, a);
|
||||||
|
|
||||||
|
x = 0;
|
||||||
|
while (fp_iszero (&t) == FP_NO) {
|
||||||
|
b[x++] = (unsigned char) (t.dp[0] & 255);
|
||||||
|
fp_div_2d (&t, 8, &t, NULL);
|
||||||
|
}
|
||||||
|
fp_reverse (b, x);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_to_unsigned_bin.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/02/27 02:38:44 $ */
|
||||||
59
lib/hcrypto/tomsfastmath/src/bin/fp_toradix.c
Normal file
59
lib/hcrypto/tomsfastmath/src/bin/fp_toradix.c
Normal file
@@ -0,0 +1,59 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_toradix(fp_int *a, char *str, int radix)
|
||||||
|
{
|
||||||
|
int digs;
|
||||||
|
fp_int t;
|
||||||
|
fp_digit d;
|
||||||
|
char *_s = str;
|
||||||
|
|
||||||
|
/* check range of the radix */
|
||||||
|
if (radix < 2 || radix > 64) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* quick out if its zero */
|
||||||
|
if (fp_iszero(a) == 1) {
|
||||||
|
*str++ = '0';
|
||||||
|
*str = '\0';
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_init_copy(&t, a);
|
||||||
|
|
||||||
|
/* if it is negative output a - */
|
||||||
|
if (t.sign == FP_NEG) {
|
||||||
|
++_s;
|
||||||
|
*str++ = '-';
|
||||||
|
t.sign = FP_ZPOS;
|
||||||
|
}
|
||||||
|
|
||||||
|
digs = 0;
|
||||||
|
while (fp_iszero (&t) == FP_NO) {
|
||||||
|
fp_div_d (&t, (fp_digit) radix, &t, &d);
|
||||||
|
*str++ = fp_s_rmap[d];
|
||||||
|
++digs;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* reverse the digits of the string. In this case _s points
|
||||||
|
* to the first digit [exluding the sign] of the number]
|
||||||
|
*/
|
||||||
|
fp_reverse ((unsigned char *)_s, digs);
|
||||||
|
|
||||||
|
/* append a NULL so the string is properly terminated */
|
||||||
|
*str = '\0';
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_toradix.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/02/27 02:38:44 $ */
|
||||||
20
lib/hcrypto/tomsfastmath/src/bin/fp_unsigned_bin_size.c
Normal file
20
lib/hcrypto/tomsfastmath/src/bin/fp_unsigned_bin_size.c
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_unsigned_bin_size(fp_int *a)
|
||||||
|
{
|
||||||
|
int size = fp_count_bits (a);
|
||||||
|
return (size / 8 + ((size & 7) != 0 ? 1 : 0));
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bin/fp_unsigned_bin_size.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
46
lib/hcrypto/tomsfastmath/src/bit/fp_cnt_lsb.c
Normal file
46
lib/hcrypto/tomsfastmath/src/bit/fp_cnt_lsb.c
Normal file
@@ -0,0 +1,46 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
static const int lnz[16] = {
|
||||||
|
4, 0, 1, 0, 2, 0, 1, 0, 3, 0, 1, 0, 2, 0, 1, 0
|
||||||
|
};
|
||||||
|
|
||||||
|
/* Counts the number of lsbs which are zero before the first zero bit */
|
||||||
|
int fp_cnt_lsb(fp_int *a)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
fp_digit q, qq;
|
||||||
|
|
||||||
|
/* easy out */
|
||||||
|
if (fp_iszero(a) == 1) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* scan lower digits until non-zero */
|
||||||
|
for (x = 0; x < a->used && a->dp[x] == 0; x++);
|
||||||
|
q = a->dp[x];
|
||||||
|
x *= DIGIT_BIT;
|
||||||
|
|
||||||
|
/* now scan this digit until a 1 is found */
|
||||||
|
if ((q & 1) == 0) {
|
||||||
|
do {
|
||||||
|
qq = q & 15;
|
||||||
|
x += lnz[qq];
|
||||||
|
q >>= 4;
|
||||||
|
} while (qq == 0);
|
||||||
|
}
|
||||||
|
return x;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_cnt_lsb.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
36
lib/hcrypto/tomsfastmath/src/bit/fp_count_bits.c
Normal file
36
lib/hcrypto/tomsfastmath/src/bit/fp_count_bits.c
Normal file
@@ -0,0 +1,36 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
int fp_count_bits (fp_int * a)
|
||||||
|
{
|
||||||
|
int r;
|
||||||
|
fp_digit q;
|
||||||
|
|
||||||
|
/* shortcut */
|
||||||
|
if (a->used == 0) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* get number of digits and add that */
|
||||||
|
r = (a->used - 1) * DIGIT_BIT;
|
||||||
|
|
||||||
|
/* take the last digit and count the bits in it */
|
||||||
|
q = a->dp[a->used - 1];
|
||||||
|
while (q > ((fp_digit) 0)) {
|
||||||
|
++r;
|
||||||
|
q >>= ((fp_digit) 1);
|
||||||
|
}
|
||||||
|
return r;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_count_bits.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
53
lib/hcrypto/tomsfastmath/src/bit/fp_div_2.c
Normal file
53
lib/hcrypto/tomsfastmath/src/bit/fp_div_2.c
Normal file
@@ -0,0 +1,53 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* b = a/2 */
|
||||||
|
void fp_div_2(fp_int * a, fp_int * b)
|
||||||
|
{
|
||||||
|
int x, oldused;
|
||||||
|
|
||||||
|
oldused = b->used;
|
||||||
|
b->used = a->used;
|
||||||
|
{
|
||||||
|
register fp_digit r, rr, *tmpa, *tmpb;
|
||||||
|
|
||||||
|
/* source alias */
|
||||||
|
tmpa = a->dp + b->used - 1;
|
||||||
|
|
||||||
|
/* dest alias */
|
||||||
|
tmpb = b->dp + b->used - 1;
|
||||||
|
|
||||||
|
/* carry */
|
||||||
|
r = 0;
|
||||||
|
for (x = b->used - 1; x >= 0; x--) {
|
||||||
|
/* get the carry for the next iteration */
|
||||||
|
rr = *tmpa & 1;
|
||||||
|
|
||||||
|
/* shift the current digit, add in carry and store */
|
||||||
|
*tmpb-- = (*tmpa-- >> 1) | (r << (DIGIT_BIT - 1));
|
||||||
|
|
||||||
|
/* forward carry to next iteration */
|
||||||
|
r = rr;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* zero excess digits */
|
||||||
|
tmpb = b->dp + b->used;
|
||||||
|
for (x = b->used; x < oldused; x++) {
|
||||||
|
*tmpb++ = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
b->sign = a->sign;
|
||||||
|
fp_clamp (b);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_div_2.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
79
lib/hcrypto/tomsfastmath/src/bit/fp_div_2d.c
Normal file
79
lib/hcrypto/tomsfastmath/src/bit/fp_div_2d.c
Normal file
@@ -0,0 +1,79 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a / 2**b */
|
||||||
|
void fp_div_2d(fp_int *a, int b, fp_int *c, fp_int *d)
|
||||||
|
{
|
||||||
|
fp_digit D, r, rr;
|
||||||
|
int x;
|
||||||
|
fp_int t;
|
||||||
|
|
||||||
|
/* if the shift count is <= 0 then we do no work */
|
||||||
|
if (b <= 0) {
|
||||||
|
fp_copy (a, c);
|
||||||
|
if (d != NULL) {
|
||||||
|
fp_zero (d);
|
||||||
|
}
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_init(&t);
|
||||||
|
|
||||||
|
/* get the remainder */
|
||||||
|
if (d != NULL) {
|
||||||
|
fp_mod_2d (a, b, &t);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* copy */
|
||||||
|
fp_copy(a, c);
|
||||||
|
|
||||||
|
/* shift by as many digits in the bit count */
|
||||||
|
if (b >= (int)DIGIT_BIT) {
|
||||||
|
fp_rshd (c, b / DIGIT_BIT);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* shift any bit count < DIGIT_BIT */
|
||||||
|
D = (fp_digit) (b % DIGIT_BIT);
|
||||||
|
if (D != 0) {
|
||||||
|
register fp_digit *tmpc, mask, shift;
|
||||||
|
|
||||||
|
/* mask */
|
||||||
|
mask = (((fp_digit)1) << D) - 1;
|
||||||
|
|
||||||
|
/* shift for lsb */
|
||||||
|
shift = DIGIT_BIT - D;
|
||||||
|
|
||||||
|
/* alias */
|
||||||
|
tmpc = c->dp + (c->used - 1);
|
||||||
|
|
||||||
|
/* carry */
|
||||||
|
r = 0;
|
||||||
|
for (x = c->used - 1; x >= 0; x--) {
|
||||||
|
/* get the lower bits of this word in a temp */
|
||||||
|
rr = *tmpc & mask;
|
||||||
|
|
||||||
|
/* shift the current word and mix in the carry bits from the previous word */
|
||||||
|
*tmpc = (*tmpc >> D) | (r << shift);
|
||||||
|
--tmpc;
|
||||||
|
|
||||||
|
/* set the carry to the carry bits of the current word found above */
|
||||||
|
r = rr;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fp_clamp (c);
|
||||||
|
if (d != NULL) {
|
||||||
|
fp_copy (&t, d);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_div_2d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
38
lib/hcrypto/tomsfastmath/src/bit/fp_lshd.c
Normal file
38
lib/hcrypto/tomsfastmath/src/bit/fp_lshd.c
Normal file
@@ -0,0 +1,38 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_lshd(fp_int *a, int x)
|
||||||
|
{
|
||||||
|
int y;
|
||||||
|
|
||||||
|
/* move up and truncate as required */
|
||||||
|
y = MIN(a->used + x - 1, (int)(FP_SIZE-1));
|
||||||
|
|
||||||
|
/* store new size */
|
||||||
|
a->used = y + 1;
|
||||||
|
|
||||||
|
/* move digits */
|
||||||
|
for (; y >= x; y--) {
|
||||||
|
a->dp[y] = a->dp[y-x];
|
||||||
|
}
|
||||||
|
|
||||||
|
/* zero lower digits */
|
||||||
|
for (; y >= 0; y--) {
|
||||||
|
a->dp[y] = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* clamp digits */
|
||||||
|
fp_clamp(a);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_lshd.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
42
lib/hcrypto/tomsfastmath/src/bit/fp_mod_2d.c
Normal file
42
lib/hcrypto/tomsfastmath/src/bit/fp_mod_2d.c
Normal file
@@ -0,0 +1,42 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a mod 2**d */
|
||||||
|
void fp_mod_2d(fp_int *a, int b, fp_int *c)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
|
||||||
|
/* zero if count less than or equal to zero */
|
||||||
|
if (b <= 0) {
|
||||||
|
fp_zero(c);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* get copy of input */
|
||||||
|
fp_copy(a, c);
|
||||||
|
|
||||||
|
/* if 2**d is larger than we just return */
|
||||||
|
if (b >= (DIGIT_BIT * a->used)) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* zero digits above the last digit of the modulus */
|
||||||
|
for (x = (b / DIGIT_BIT) + ((b % DIGIT_BIT) == 0 ? 0 : 1); x < c->used; x++) {
|
||||||
|
c->dp[x] = 0;
|
||||||
|
}
|
||||||
|
/* clear the digit that is not completely outside/inside the modulus */
|
||||||
|
c->dp[b / DIGIT_BIT] &= ~((fp_digit)0) >> (DIGIT_BIT - b);
|
||||||
|
fp_clamp (c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_mod_2d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
40
lib/hcrypto/tomsfastmath/src/bit/fp_rshd.c
Normal file
40
lib/hcrypto/tomsfastmath/src/bit/fp_rshd.c
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_rshd(fp_int *a, int x)
|
||||||
|
{
|
||||||
|
int y;
|
||||||
|
|
||||||
|
/* too many digits just zero and return */
|
||||||
|
if (x >= a->used) {
|
||||||
|
fp_zero(a);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* shift */
|
||||||
|
for (y = 0; y < a->used - x; y++) {
|
||||||
|
a->dp[y] = a->dp[y+x];
|
||||||
|
}
|
||||||
|
|
||||||
|
/* zero rest */
|
||||||
|
for (; y < a->used; y++) {
|
||||||
|
a->dp[y] = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* decrement count */
|
||||||
|
a->used -= x;
|
||||||
|
fp_clamp(a);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/bit/fp_rshd.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
157
lib/hcrypto/tomsfastmath/src/divide/fp_div.c
Normal file
157
lib/hcrypto/tomsfastmath/src/divide/fp_div.c
Normal file
@@ -0,0 +1,157 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* a/b => cb + d == a */
|
||||||
|
int fp_div(fp_int *a, fp_int *b, fp_int *c, fp_int *d)
|
||||||
|
{
|
||||||
|
fp_int q, x, y, t1, t2;
|
||||||
|
int n, t, i, norm, neg;
|
||||||
|
|
||||||
|
/* is divisor zero ? */
|
||||||
|
if (fp_iszero (b) == 1) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if a < b then q=0, r = a */
|
||||||
|
if (fp_cmp_mag (a, b) == FP_LT) {
|
||||||
|
if (d != NULL) {
|
||||||
|
fp_copy (a, d);
|
||||||
|
}
|
||||||
|
if (c != NULL) {
|
||||||
|
fp_zero (c);
|
||||||
|
}
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_init(&q);
|
||||||
|
q.used = a->used + 2;
|
||||||
|
|
||||||
|
fp_init(&t1);
|
||||||
|
fp_init(&t2);
|
||||||
|
fp_init_copy(&x, a);
|
||||||
|
fp_init_copy(&y, b);
|
||||||
|
|
||||||
|
/* fix the sign */
|
||||||
|
neg = (a->sign == b->sign) ? FP_ZPOS : FP_NEG;
|
||||||
|
x.sign = y.sign = FP_ZPOS;
|
||||||
|
|
||||||
|
/* normalize both x and y, ensure that y >= b/2, [b == 2**DIGIT_BIT] */
|
||||||
|
norm = fp_count_bits(&y) % DIGIT_BIT;
|
||||||
|
if (norm < (int)(DIGIT_BIT-1)) {
|
||||||
|
norm = (DIGIT_BIT-1) - norm;
|
||||||
|
fp_mul_2d (&x, norm, &x);
|
||||||
|
fp_mul_2d (&y, norm, &y);
|
||||||
|
} else {
|
||||||
|
norm = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* note hac does 0 based, so if used==5 then its 0,1,2,3,4, e.g. use 4 */
|
||||||
|
n = x.used - 1;
|
||||||
|
t = y.used - 1;
|
||||||
|
|
||||||
|
/* while (x >= y*b**n-t) do { q[n-t] += 1; x -= y*b**{n-t} } */
|
||||||
|
fp_lshd (&y, n - t); /* y = y*b**{n-t} */
|
||||||
|
|
||||||
|
while (fp_cmp (&x, &y) != FP_LT) {
|
||||||
|
++(q.dp[n - t]);
|
||||||
|
fp_sub (&x, &y, &x);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* reset y by shifting it back down */
|
||||||
|
fp_rshd (&y, n - t);
|
||||||
|
|
||||||
|
/* step 3. for i from n down to (t + 1) */
|
||||||
|
for (i = n; i >= (t + 1); i--) {
|
||||||
|
if (i > x.used) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* step 3.1 if xi == yt then set q{i-t-1} to b-1,
|
||||||
|
* otherwise set q{i-t-1} to (xi*b + x{i-1})/yt */
|
||||||
|
if (x.dp[i] == y.dp[t]) {
|
||||||
|
q.dp[i - t - 1] = ((((fp_word)1) << DIGIT_BIT) - 1);
|
||||||
|
} else {
|
||||||
|
fp_word tmp;
|
||||||
|
tmp = ((fp_word) x.dp[i]) << ((fp_word) DIGIT_BIT);
|
||||||
|
tmp |= ((fp_word) x.dp[i - 1]);
|
||||||
|
tmp /= ((fp_word) y.dp[t]);
|
||||||
|
q.dp[i - t - 1] = (fp_digit) (tmp);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* while (q{i-t-1} * (yt * b + y{t-1})) >
|
||||||
|
xi * b**2 + xi-1 * b + xi-2
|
||||||
|
|
||||||
|
do q{i-t-1} -= 1;
|
||||||
|
*/
|
||||||
|
q.dp[i - t - 1] = (q.dp[i - t - 1] + 1);
|
||||||
|
do {
|
||||||
|
q.dp[i - t - 1] = (q.dp[i - t - 1] - 1);
|
||||||
|
|
||||||
|
/* find left hand */
|
||||||
|
fp_zero (&t1);
|
||||||
|
t1.dp[0] = (t - 1 < 0) ? 0 : y.dp[t - 1];
|
||||||
|
t1.dp[1] = y.dp[t];
|
||||||
|
t1.used = 2;
|
||||||
|
fp_mul_d (&t1, q.dp[i - t - 1], &t1);
|
||||||
|
|
||||||
|
/* find right hand */
|
||||||
|
t2.dp[0] = (i - 2 < 0) ? 0 : x.dp[i - 2];
|
||||||
|
t2.dp[1] = (i - 1 < 0) ? 0 : x.dp[i - 1];
|
||||||
|
t2.dp[2] = x.dp[i];
|
||||||
|
t2.used = 3;
|
||||||
|
} while (fp_cmp_mag(&t1, &t2) == FP_GT);
|
||||||
|
|
||||||
|
/* step 3.3 x = x - q{i-t-1} * y * b**{i-t-1} */
|
||||||
|
fp_mul_d (&y, q.dp[i - t - 1], &t1);
|
||||||
|
fp_lshd (&t1, i - t - 1);
|
||||||
|
fp_sub (&x, &t1, &x);
|
||||||
|
|
||||||
|
/* if x < 0 then { x = x + y*b**{i-t-1}; q{i-t-1} -= 1; } */
|
||||||
|
if (x.sign == FP_NEG) {
|
||||||
|
fp_copy (&y, &t1);
|
||||||
|
fp_lshd (&t1, i - t - 1);
|
||||||
|
fp_add (&x, &t1, &x);
|
||||||
|
q.dp[i - t - 1] = q.dp[i - t - 1] - 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now q is the quotient and x is the remainder
|
||||||
|
* [which we have to normalize]
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* get sign before writing to c */
|
||||||
|
x.sign = x.used == 0 ? FP_ZPOS : a->sign;
|
||||||
|
|
||||||
|
if (c != NULL) {
|
||||||
|
fp_clamp (&q);
|
||||||
|
fp_copy (&q, c);
|
||||||
|
c->sign = neg;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (d != NULL) {
|
||||||
|
fp_div_2d (&x, norm, &x, NULL);
|
||||||
|
|
||||||
|
/* the following is a kludge, essentially we were seeing the right remainder but
|
||||||
|
with excess digits that should have been zero
|
||||||
|
*/
|
||||||
|
for (i = b->used; i < x.used; i++) {
|
||||||
|
x.dp[i] = 0;
|
||||||
|
}
|
||||||
|
fp_clamp(&x);
|
||||||
|
fp_copy (&x, d);
|
||||||
|
}
|
||||||
|
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/divide/fp_div.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
98
lib/hcrypto/tomsfastmath/src/divide/fp_div_d.c
Normal file
98
lib/hcrypto/tomsfastmath/src/divide/fp_div_d.c
Normal file
@@ -0,0 +1,98 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
static int s_is_power_of_two(fp_digit b, int *p)
|
||||||
|
{
|
||||||
|
int x;
|
||||||
|
|
||||||
|
/* fast return if no power of two */
|
||||||
|
if ((b==0) || (b & (b-1))) {
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (x = 0; x < DIGIT_BIT; x++) {
|
||||||
|
if (b == (((fp_digit)1)<<x)) {
|
||||||
|
*p = x;
|
||||||
|
return 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* a/b => cb + d == a */
|
||||||
|
int fp_div_d(fp_int *a, fp_digit b, fp_int *c, fp_digit *d)
|
||||||
|
{
|
||||||
|
fp_int q;
|
||||||
|
fp_word w;
|
||||||
|
fp_digit t;
|
||||||
|
int ix;
|
||||||
|
|
||||||
|
/* cannot divide by zero */
|
||||||
|
if (b == 0) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* quick outs */
|
||||||
|
if (b == 1 || fp_iszero(a) == 1) {
|
||||||
|
if (d != NULL) {
|
||||||
|
*d = 0;
|
||||||
|
}
|
||||||
|
if (c != NULL) {
|
||||||
|
fp_copy(a, c);
|
||||||
|
}
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* power of two ? */
|
||||||
|
if (s_is_power_of_two(b, &ix) == 1) {
|
||||||
|
if (d != NULL) {
|
||||||
|
*d = a->dp[0] & ((((fp_digit)1)<<ix) - 1);
|
||||||
|
}
|
||||||
|
if (c != NULL) {
|
||||||
|
fp_div_2d(a, ix, c, NULL);
|
||||||
|
}
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* no easy answer [c'est la vie]. Just division */
|
||||||
|
fp_init(&q);
|
||||||
|
|
||||||
|
q.used = a->used;
|
||||||
|
q.sign = a->sign;
|
||||||
|
w = 0;
|
||||||
|
for (ix = a->used - 1; ix >= 0; ix--) {
|
||||||
|
w = (w << ((fp_word)DIGIT_BIT)) | ((fp_word)a->dp[ix]);
|
||||||
|
|
||||||
|
if (w >= b) {
|
||||||
|
t = (fp_digit)(w / b);
|
||||||
|
w -= ((fp_word)t) * ((fp_word)b);
|
||||||
|
} else {
|
||||||
|
t = 0;
|
||||||
|
}
|
||||||
|
q.dp[ix] = (fp_digit)t;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (d != NULL) {
|
||||||
|
*d = (fp_digit)w;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (c != NULL) {
|
||||||
|
fp_clamp(&q);
|
||||||
|
fp_copy(&q, c);
|
||||||
|
}
|
||||||
|
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/divide/fp_div_d.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/01/12 15:13:54 $ */
|
||||||
34
lib/hcrypto/tomsfastmath/src/divide/fp_mod.c
Normal file
34
lib/hcrypto/tomsfastmath/src/divide/fp_mod.c
Normal file
@@ -0,0 +1,34 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a mod b, 0 <= c < b */
|
||||||
|
int fp_mod(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int t;
|
||||||
|
int err;
|
||||||
|
|
||||||
|
fp_zero(&t);
|
||||||
|
if ((err = fp_div(a, b, NULL, &t)) != FP_OKAY) {
|
||||||
|
return err;
|
||||||
|
}
|
||||||
|
if (t.sign != b->sign) {
|
||||||
|
fp_add(&t, b, c);
|
||||||
|
} else {
|
||||||
|
fp_copy(&t, c);
|
||||||
|
}
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/divide/fp_mod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
20
lib/hcrypto/tomsfastmath/src/divide/fp_mod_d.c
Normal file
20
lib/hcrypto/tomsfastmath/src/divide/fp_mod_d.c
Normal file
@@ -0,0 +1,20 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a mod b, 0 <= c < b */
|
||||||
|
int fp_mod_d(fp_int *a, fp_digit b, fp_digit *c)
|
||||||
|
{
|
||||||
|
return fp_div_d(a, b, NULL, c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/divide/fp_mod_d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
39
lib/hcrypto/tomsfastmath/src/exptmod/fp_2expt.c
Normal file
39
lib/hcrypto/tomsfastmath/src/exptmod/fp_2expt.c
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* computes a = 2**b */
|
||||||
|
void fp_2expt(fp_int *a, int b)
|
||||||
|
{
|
||||||
|
int z;
|
||||||
|
|
||||||
|
/* zero a as per default */
|
||||||
|
fp_zero (a);
|
||||||
|
|
||||||
|
if (b < 0) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
z = b / DIGIT_BIT;
|
||||||
|
if (z >= FP_SIZE) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* set the used count of where the bit will go */
|
||||||
|
a->used = z + 1;
|
||||||
|
|
||||||
|
/* put the single bit in its place */
|
||||||
|
a->dp[z] = ((fp_digit)1) << (b % DIGIT_BIT);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/exptmod/fp_2expt.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
276
lib/hcrypto/tomsfastmath/src/exptmod/fp_exptmod.c
Normal file
276
lib/hcrypto/tomsfastmath/src/exptmod/fp_exptmod.c
Normal file
@@ -0,0 +1,276 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
#ifdef TFM_TIMING_RESISTANT
|
||||||
|
|
||||||
|
/* timing resistant montgomery ladder based exptmod
|
||||||
|
|
||||||
|
Based on work by Marc Joye, Sung-Ming Yen, "The Montgomery Powering Ladder", Cryptographic Hardware and Embedded Systems, CHES 2002
|
||||||
|
*/
|
||||||
|
static int _fp_exptmod(fp_int * G, fp_int * X, fp_int * P, fp_int * Y)
|
||||||
|
{
|
||||||
|
fp_int R[2];
|
||||||
|
fp_digit buf, mp;
|
||||||
|
int err, bitcnt, digidx, y;
|
||||||
|
|
||||||
|
/* now setup montgomery */
|
||||||
|
if ((err = fp_montgomery_setup (P, &mp)) != FP_OKAY) {
|
||||||
|
return err;
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_init(&R[0]);
|
||||||
|
fp_init(&R[1]);
|
||||||
|
|
||||||
|
/* now we need R mod m */
|
||||||
|
fp_montgomery_calc_normalization (&R[0], P);
|
||||||
|
|
||||||
|
/* now set R[0][1] to G * R mod m */
|
||||||
|
if (fp_cmp_mag(P, G) != FP_GT) {
|
||||||
|
/* G > P so we reduce it first */
|
||||||
|
fp_mod(G, P, &R[1]);
|
||||||
|
} else {
|
||||||
|
fp_copy(G, &R[1]);
|
||||||
|
}
|
||||||
|
fp_mulmod (&R[1], &R[0], P, &R[1]);
|
||||||
|
|
||||||
|
/* for j = t-1 downto 0 do
|
||||||
|
r_!k = R0*R1; r_k = r_k^2
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* set initial mode and bit cnt */
|
||||||
|
bitcnt = 1;
|
||||||
|
buf = 0;
|
||||||
|
digidx = X->used - 1;
|
||||||
|
|
||||||
|
for (;;) {
|
||||||
|
/* grab next digit as required */
|
||||||
|
if (--bitcnt == 0) {
|
||||||
|
/* if digidx == -1 we are out of digits so break */
|
||||||
|
if (digidx == -1) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
/* read next digit and reset bitcnt */
|
||||||
|
buf = X->dp[digidx--];
|
||||||
|
bitcnt = (int)DIGIT_BIT;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* grab the next msb from the exponent */
|
||||||
|
y = (fp_digit)(buf >> (DIGIT_BIT - 1)) & 1;
|
||||||
|
buf <<= (fp_digit)1;
|
||||||
|
|
||||||
|
/* do ops */
|
||||||
|
fp_mul(&R[0], &R[1], &R[y^1]); fp_montgomery_reduce(&R[y^1], P, mp);
|
||||||
|
fp_sqr(&R[y], &R[y]); fp_montgomery_reduce(&R[y], P, mp);
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_montgomery_reduce(&R[0], P, mp);
|
||||||
|
fp_copy(&R[0], Y);
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
#else
|
||||||
|
|
||||||
|
/* y = g**x (mod b)
|
||||||
|
* Some restrictions... x must be positive and < b
|
||||||
|
*/
|
||||||
|
static int _fp_exptmod(fp_int * G, fp_int * X, fp_int * P, fp_int * Y)
|
||||||
|
{
|
||||||
|
fp_int M[64], res;
|
||||||
|
fp_digit buf, mp;
|
||||||
|
int err, bitbuf, bitcpy, bitcnt, mode, digidx, x, y, winsize;
|
||||||
|
|
||||||
|
/* find window size */
|
||||||
|
x = fp_count_bits (X);
|
||||||
|
if (x <= 21) {
|
||||||
|
winsize = 1;
|
||||||
|
} else if (x <= 36) {
|
||||||
|
winsize = 3;
|
||||||
|
} else if (x <= 140) {
|
||||||
|
winsize = 4;
|
||||||
|
} else if (x <= 450) {
|
||||||
|
winsize = 5;
|
||||||
|
} else {
|
||||||
|
winsize = 6;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* init M array */
|
||||||
|
memset(M, 0, sizeof(M));
|
||||||
|
|
||||||
|
/* now setup montgomery */
|
||||||
|
if ((err = fp_montgomery_setup (P, &mp)) != FP_OKAY) {
|
||||||
|
return err;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* setup result */
|
||||||
|
fp_init(&res);
|
||||||
|
|
||||||
|
/* create M table
|
||||||
|
*
|
||||||
|
* The M table contains powers of the input base, e.g. M[x] = G^x mod P
|
||||||
|
*
|
||||||
|
* The first half of the table is not computed though accept for M[0] and M[1]
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* now we need R mod m */
|
||||||
|
fp_montgomery_calc_normalization (&res, P);
|
||||||
|
|
||||||
|
/* now set M[1] to G * R mod m */
|
||||||
|
if (fp_cmp_mag(P, G) != FP_GT) {
|
||||||
|
/* G > P so we reduce it first */
|
||||||
|
fp_mod(G, P, &M[1]);
|
||||||
|
} else {
|
||||||
|
fp_copy(G, &M[1]);
|
||||||
|
}
|
||||||
|
fp_mulmod (&M[1], &res, P, &M[1]);
|
||||||
|
|
||||||
|
/* compute the value at M[1<<(winsize-1)] by squaring M[1] (winsize-1) times */
|
||||||
|
fp_copy (&M[1], &M[1 << (winsize - 1)]);
|
||||||
|
for (x = 0; x < (winsize - 1); x++) {
|
||||||
|
fp_sqr (&M[1 << (winsize - 1)], &M[1 << (winsize - 1)]);
|
||||||
|
fp_montgomery_reduce (&M[1 << (winsize - 1)], P, mp);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* create upper table */
|
||||||
|
for (x = (1 << (winsize - 1)) + 1; x < (1 << winsize); x++) {
|
||||||
|
fp_mul(&M[x - 1], &M[1], &M[x]);
|
||||||
|
fp_montgomery_reduce(&M[x], P, mp);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* set initial mode and bit cnt */
|
||||||
|
mode = 0;
|
||||||
|
bitcnt = 1;
|
||||||
|
buf = 0;
|
||||||
|
digidx = X->used - 1;
|
||||||
|
bitcpy = 0;
|
||||||
|
bitbuf = 0;
|
||||||
|
|
||||||
|
for (;;) {
|
||||||
|
/* grab next digit as required */
|
||||||
|
if (--bitcnt == 0) {
|
||||||
|
/* if digidx == -1 we are out of digits so break */
|
||||||
|
if (digidx == -1) {
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
/* read next digit and reset bitcnt */
|
||||||
|
buf = X->dp[digidx--];
|
||||||
|
bitcnt = (int)DIGIT_BIT;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* grab the next msb from the exponent */
|
||||||
|
y = (fp_digit)(buf >> (DIGIT_BIT - 1)) & 1;
|
||||||
|
buf <<= (fp_digit)1;
|
||||||
|
|
||||||
|
/* if the bit is zero and mode == 0 then we ignore it
|
||||||
|
* These represent the leading zero bits before the first 1 bit
|
||||||
|
* in the exponent. Technically this opt is not required but it
|
||||||
|
* does lower the # of trivial squaring/reductions used
|
||||||
|
*/
|
||||||
|
if (mode == 0 && y == 0) {
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if the bit is zero and mode == 1 then we square */
|
||||||
|
if (mode == 1 && y == 0) {
|
||||||
|
fp_sqr(&res, &res);
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
continue;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* else we add it to the window */
|
||||||
|
bitbuf |= (y << (winsize - ++bitcpy));
|
||||||
|
mode = 2;
|
||||||
|
|
||||||
|
if (bitcpy == winsize) {
|
||||||
|
/* ok window is filled so square as required and multiply */
|
||||||
|
/* square first */
|
||||||
|
for (x = 0; x < winsize; x++) {
|
||||||
|
fp_sqr(&res, &res);
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* then multiply */
|
||||||
|
fp_mul(&res, &M[bitbuf], &res);
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
|
||||||
|
/* empty window and reset */
|
||||||
|
bitcpy = 0;
|
||||||
|
bitbuf = 0;
|
||||||
|
mode = 1;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if bits remain then square/multiply */
|
||||||
|
if (mode == 2 && bitcpy > 0) {
|
||||||
|
/* square then multiply if the bit is set */
|
||||||
|
for (x = 0; x < bitcpy; x++) {
|
||||||
|
fp_sqr(&res, &res);
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
|
||||||
|
/* get next bit of the window */
|
||||||
|
bitbuf <<= 1;
|
||||||
|
if ((bitbuf & (1 << winsize)) != 0) {
|
||||||
|
/* then multiply */
|
||||||
|
fp_mul(&res, &M[1], &res);
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* fixup result if Montgomery reduction is used
|
||||||
|
* recall that any value in a Montgomery system is
|
||||||
|
* actually multiplied by R mod n. So we have
|
||||||
|
* to reduce one more time to cancel out the factor
|
||||||
|
* of R.
|
||||||
|
*/
|
||||||
|
fp_montgomery_reduce(&res, P, mp);
|
||||||
|
|
||||||
|
/* swap res with Y */
|
||||||
|
fp_copy (&res, Y);
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
int fp_exptmod(fp_int * G, fp_int * X, fp_int * P, fp_int * Y)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
int err;
|
||||||
|
|
||||||
|
#ifdef TFM_CHECK
|
||||||
|
/* prevent overflows */
|
||||||
|
if (P->used > (FP_SIZE/2)) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* is X negative? */
|
||||||
|
if (X->sign == FP_NEG) {
|
||||||
|
/* yes, copy G and invmod it */
|
||||||
|
fp_copy(G, &tmp);
|
||||||
|
if ((err = fp_invmod(&tmp, P, &tmp)) != FP_OKAY) {
|
||||||
|
return err;
|
||||||
|
}
|
||||||
|
X->sign = FP_ZPOS;
|
||||||
|
err = _fp_exptmod(&tmp, X, P, Y);
|
||||||
|
if (X != Y) {
|
||||||
|
X->sign = FP_NEG;
|
||||||
|
}
|
||||||
|
return err;
|
||||||
|
} else {
|
||||||
|
/* Positive exponent so just exptmod */
|
||||||
|
return _fp_exptmod(G, X, P, Y);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/exptmod/fp_exptmod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
132
lib/hcrypto/tomsfastmath/src/generators/comba_mont_gen.c
Normal file
132
lib/hcrypto/tomsfastmath/src/generators/comba_mont_gen.c
Normal file
@@ -0,0 +1,132 @@
|
|||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
int x, y, z;
|
||||||
|
|
||||||
|
printf(
|
||||||
|
#if 1
|
||||||
|
"#ifdef TFM_SMALL_SET\n"
|
||||||
|
"/* computes x/R == x (mod N) via Montgomery Reduction */\n"
|
||||||
|
"void fp_montgomery_reduce_small(fp_int *a, fp_int *m, fp_digit mp)\n"
|
||||||
|
"{\n"
|
||||||
|
" fp_digit c[FP_SIZE], *_c, *tmpm, mu, cy;\n"
|
||||||
|
" int oldused, x, y, pa;\n"
|
||||||
|
"\n"
|
||||||
|
"#if defined(USE_MEMSET)\n"
|
||||||
|
" /* now zero the buff */\n"
|
||||||
|
" memset(c, 0, sizeof c);\n"
|
||||||
|
"#endif\n"
|
||||||
|
" pa = m->used;\n"
|
||||||
|
"\n"
|
||||||
|
" /* copy the input */\n"
|
||||||
|
" oldused = a->used;\n"
|
||||||
|
" for (x = 0; x < oldused; x++) {\n"
|
||||||
|
" c[x] = a->dp[x];\n"
|
||||||
|
" }\n"
|
||||||
|
"#if !defined(USE_MEMSET)\n"
|
||||||
|
" for (; x < 2*pa+3; x++) {\n"
|
||||||
|
" c[x] = 0;\n"
|
||||||
|
" }\n"
|
||||||
|
"#endif\n"
|
||||||
|
" MONT_START;\n"
|
||||||
|
#endif
|
||||||
|
"\n"
|
||||||
|
" switch (pa) {\n");
|
||||||
|
|
||||||
|
for (x = 1; x <= 16; x++) {
|
||||||
|
if (x > 16 && (x != 32 && x != 48 && x != 64)) continue;
|
||||||
|
if (x > 16) printf("#ifdef TFM_HUGE\n");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
printf(" case %d:\n", x);
|
||||||
|
|
||||||
|
for (y = 0; y < x; y++) {
|
||||||
|
|
||||||
|
printf(" x = %d; cy = 0;\n"
|
||||||
|
" LOOP_START;\n"
|
||||||
|
" _c = c + %d;\n"
|
||||||
|
" tmpm = m->dp;\n", y, y);
|
||||||
|
|
||||||
|
printf("#ifdef INNERMUL8\n");
|
||||||
|
for (z = 0; z+8 <= x; z += 8) {
|
||||||
|
printf(" INNERMUL8; _c += 8; tmpm += 8;\n");
|
||||||
|
}
|
||||||
|
for (; z < x; z++) {
|
||||||
|
printf(" INNERMUL; ++_c;\n");
|
||||||
|
}
|
||||||
|
printf("#else\n");
|
||||||
|
for (z = 0; z < x; z++) {
|
||||||
|
printf(" INNERMUL; ++_c;\n");
|
||||||
|
}
|
||||||
|
printf("#endif\n");
|
||||||
|
printf(" LOOP_END;\n"
|
||||||
|
" while (cy) {\n"
|
||||||
|
" PROPCARRY;\n"
|
||||||
|
" ++_c;\n"
|
||||||
|
" }\n");
|
||||||
|
}
|
||||||
|
//printf(" }\n");
|
||||||
|
printf(" break;\n");
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
#define LOOP_MACRO(stride) \
|
||||||
|
for (x = 0; x < stride; x++) { \
|
||||||
|
fp_digit cy = 0; \
|
||||||
|
/* get Mu for this round */ \
|
||||||
|
LOOP_START; \
|
||||||
|
_c = c + x; \
|
||||||
|
tmpm = m->dp; \
|
||||||
|
for (y = 0; y < stride; y++) { \
|
||||||
|
INNERMUL; \
|
||||||
|
++_c; \
|
||||||
|
} \
|
||||||
|
LOOP_END; \
|
||||||
|
while (cy) { \
|
||||||
|
PROPCARRY; \
|
||||||
|
++_c; \
|
||||||
|
} \
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
if (x > 16) printf("#endif /* TFM_HUGE */\n");
|
||||||
|
|
||||||
|
|
||||||
|
}
|
||||||
|
|
||||||
|
#if 1
|
||||||
|
|
||||||
|
printf(
|
||||||
|
" }\n"
|
||||||
|
" /* now copy out */\n"
|
||||||
|
" _c = c + pa;\n"
|
||||||
|
" tmpm = a->dp;\n"
|
||||||
|
" for (x = 0; x < pa+1; x++) {\n"
|
||||||
|
" *tmpm++ = *_c++;\n"
|
||||||
|
" }\n"
|
||||||
|
"\n"
|
||||||
|
" for (; x < oldused; x++) {\n"
|
||||||
|
" *tmpm++ = 0;\n"
|
||||||
|
" }\n"
|
||||||
|
"\n"
|
||||||
|
" MONT_FINI;\n"
|
||||||
|
"\n"
|
||||||
|
" a->used = pa+1;\n"
|
||||||
|
" fp_clamp(a);\n"
|
||||||
|
"\n"
|
||||||
|
" /* if A >= m then A = A - m */\n"
|
||||||
|
" if (fp_cmp_mag (a, m) != FP_LT) {\n"
|
||||||
|
" s_fp_sub (a, m, a);\n"
|
||||||
|
" }\n"
|
||||||
|
"}\n\n#endif\n");
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
63
lib/hcrypto/tomsfastmath/src/generators/comba_mult_gen.c
Normal file
63
lib/hcrypto/tomsfastmath/src/generators/comba_mult_gen.c
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* program emits a NxN comba multiplier */
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main(int argc, char **argv)
|
||||||
|
{
|
||||||
|
int N, x, y, z;
|
||||||
|
N = atoi(argv[1]);
|
||||||
|
|
||||||
|
/* print out preamble */
|
||||||
|
printf(
|
||||||
|
"void fp_mul_comba%d(fp_int *A, fp_int *B, fp_int *C)\n"
|
||||||
|
"{\n"
|
||||||
|
" fp_digit c0, c1, c2, at[%d];\n"
|
||||||
|
"\n"
|
||||||
|
" memcpy(at, A->dp, %d * sizeof(fp_digit));\n"
|
||||||
|
" memcpy(at+%d, B->dp, %d * sizeof(fp_digit));\n"
|
||||||
|
" COMBA_START;\n"
|
||||||
|
"\n"
|
||||||
|
" COMBA_CLEAR;\n", N, N+N, N, N, N);
|
||||||
|
|
||||||
|
/* now do the rows */
|
||||||
|
for (x = 0; x < (N+N-1); x++) {
|
||||||
|
printf(
|
||||||
|
" /* %d */\n", x);
|
||||||
|
if (x > 0) {
|
||||||
|
printf(
|
||||||
|
" COMBA_FORWARD;\n");
|
||||||
|
}
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if ((y+z)==x) {
|
||||||
|
printf(" MULADD(at[%d], at[%d]); ", y, z+N);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf(
|
||||||
|
"\n"
|
||||||
|
" COMBA_STORE(C->dp[%d]);\n", x);
|
||||||
|
}
|
||||||
|
printf(
|
||||||
|
" COMBA_STORE2(C->dp[%d]);\n"
|
||||||
|
" C->used = %d;\n"
|
||||||
|
" C->sign = A->sign ^ B->sign;\n"
|
||||||
|
" fp_clamp(C);\n"
|
||||||
|
" COMBA_FINI;\n"
|
||||||
|
"}\n\n\n", N+N-1, N+N);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/generators/comba_mult_gen.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
@@ -0,0 +1,61 @@
|
|||||||
|
/* program emits a NxN comba multiplier for 1x1 to 16x16 */
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main(int argc, char **argv)
|
||||||
|
{
|
||||||
|
int N, x, y, z;
|
||||||
|
|
||||||
|
/* print out preamble */
|
||||||
|
printf(
|
||||||
|
"void fp_mul_comba_small(fp_int *A, fp_int *B, fp_int *C)\n"
|
||||||
|
"{\n"
|
||||||
|
" fp_digit c0, c1, c2, at[32];\n"
|
||||||
|
" switch (MAX(A->used, B->used)) { \n"
|
||||||
|
);
|
||||||
|
|
||||||
|
for (N = 1; N <= 16; N++) {
|
||||||
|
|
||||||
|
printf(
|
||||||
|
"\n"
|
||||||
|
" case %d:\n"
|
||||||
|
" memcpy(at, A->dp, %d * sizeof(fp_digit));\n"
|
||||||
|
" memcpy(at+%d, B->dp, %d * sizeof(fp_digit));\n"
|
||||||
|
" COMBA_START;\n"
|
||||||
|
"\n"
|
||||||
|
" COMBA_CLEAR;\n", N, N, N, N);
|
||||||
|
|
||||||
|
/* now do the rows */
|
||||||
|
for (x = 0; x < (N+N-1); x++) {
|
||||||
|
printf(
|
||||||
|
" /* %d */\n", x);
|
||||||
|
if (x > 0) {
|
||||||
|
printf(
|
||||||
|
" COMBA_FORWARD;\n");
|
||||||
|
}
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if ((y+z)==x) {
|
||||||
|
printf(" MULADD(at[%d], at[%d]); ", y, z+N);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf(
|
||||||
|
"\n"
|
||||||
|
" COMBA_STORE(C->dp[%d]);\n", x);
|
||||||
|
}
|
||||||
|
printf(
|
||||||
|
" COMBA_STORE2(C->dp[%d]);\n"
|
||||||
|
" C->used = %d;\n"
|
||||||
|
" C->sign = A->sign ^ B->sign;\n"
|
||||||
|
" fp_clamp(C);\n"
|
||||||
|
" COMBA_FINI;\n"
|
||||||
|
" break;\n", N+N-1, N+N);
|
||||||
|
}
|
||||||
|
printf(" }\n}\n\n");
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/generators/comba_mult_smallgen.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
101
lib/hcrypto/tomsfastmath/src/generators/comba_sqr_gen.c
Normal file
101
lib/hcrypto/tomsfastmath/src/generators/comba_sqr_gen.c
Normal file
@@ -0,0 +1,101 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main(int argc, char **argv)
|
||||||
|
{
|
||||||
|
int x, y, z, N, f;
|
||||||
|
N = atoi(argv[1]);
|
||||||
|
|
||||||
|
printf(
|
||||||
|
"#ifdef TFM_SQR%d\n"
|
||||||
|
"void fp_sqr_comba%d(fp_int *A, fp_int *B)\n"
|
||||||
|
"{\n"
|
||||||
|
" fp_digit *a, b[%d], c0, c1, c2, sc0, sc1, sc2;\n"
|
||||||
|
"\n"
|
||||||
|
" a = A->dp;\n"
|
||||||
|
" COMBA_START; \n"
|
||||||
|
"\n"
|
||||||
|
" /* clear carries */\n"
|
||||||
|
" CLEAR_CARRY;\n"
|
||||||
|
"\n"
|
||||||
|
" /* output 0 */\n"
|
||||||
|
" SQRADD(a[0],a[0]);\n"
|
||||||
|
" COMBA_STORE(b[0]);\n", N, N, N+N);
|
||||||
|
|
||||||
|
for (x = 1; x < N+N-1; x++) {
|
||||||
|
printf(
|
||||||
|
"\n /* output %d */\n"
|
||||||
|
" CARRY_FORWARD;\n ", x);
|
||||||
|
|
||||||
|
for (f = y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (z != y && z + y == x && y <= z) {
|
||||||
|
++f;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (f <= 2) {
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (y<=z && (y+z)==x) {
|
||||||
|
if (y == z) {
|
||||||
|
printf("SQRADD(a[%d], a[%d]); ", y, y);
|
||||||
|
} else {
|
||||||
|
printf("SQRADD2(a[%d], a[%d]); ", y, z);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// new method
|
||||||
|
/* do evens first */
|
||||||
|
f = 0;
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (z != y && z + y == x && y <= z) {
|
||||||
|
if (f == 0) {
|
||||||
|
// first double
|
||||||
|
printf("SQRADDSC(a[%d], a[%d]); ", y, z);
|
||||||
|
f = 1;
|
||||||
|
} else {
|
||||||
|
printf("SQRADDAC(a[%d], a[%d]); ", y, z);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// forward the carry
|
||||||
|
printf("SQRADDDB; ");
|
||||||
|
if ((x&1) == 0) {
|
||||||
|
// add the square
|
||||||
|
printf("SQRADD(a[%d], a[%d]); ", x/2, x/2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("\n COMBA_STORE(b[%d]);\n", x);
|
||||||
|
}
|
||||||
|
printf(" COMBA_STORE2(b[%d]);\n", N+N-1);
|
||||||
|
|
||||||
|
printf(
|
||||||
|
" COMBA_FINI;\n"
|
||||||
|
"\n"
|
||||||
|
" B->used = %d;\n"
|
||||||
|
" B->sign = FP_ZPOS;\n"
|
||||||
|
" memcpy(B->dp, b, %d * sizeof(fp_digit));\n"
|
||||||
|
" fp_clamp(B);\n"
|
||||||
|
"}\n#endif\n\n\n", N+N, N+N);
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/generators/comba_sqr_gen.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
109
lib/hcrypto/tomsfastmath/src/generators/comba_sqr_smallgen.c
Normal file
109
lib/hcrypto/tomsfastmath/src/generators/comba_sqr_smallgen.c
Normal file
@@ -0,0 +1,109 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* Generates squaring comba code... it learns it knows our secrets! */
|
||||||
|
#include <stdio.h>
|
||||||
|
|
||||||
|
int main(int argc, char **argv)
|
||||||
|
{
|
||||||
|
int x, y, z, N, f;
|
||||||
|
|
||||||
|
printf(
|
||||||
|
"void fp_sqr_comba_small(fp_int *A, fp_int *B)\n"
|
||||||
|
"{\n"
|
||||||
|
" fp_digit *a, b[32], c0, c1, c2, sc0, sc1, sc2;\n"
|
||||||
|
);
|
||||||
|
|
||||||
|
printf(" switch (A->used) { \n");
|
||||||
|
|
||||||
|
for (N = 1; N <= 16; N++) {
|
||||||
|
printf(
|
||||||
|
" case %d:\n"
|
||||||
|
" a = A->dp;\n"
|
||||||
|
" COMBA_START; \n"
|
||||||
|
"\n"
|
||||||
|
" /* clear carries */\n"
|
||||||
|
" CLEAR_CARRY;\n"
|
||||||
|
"\n"
|
||||||
|
" /* output 0 */\n"
|
||||||
|
" SQRADD(a[0],a[0]);\n"
|
||||||
|
" COMBA_STORE(b[0]);\n", N);
|
||||||
|
|
||||||
|
for (x = 1; x < N+N-1; x++) {
|
||||||
|
printf(
|
||||||
|
"\n /* output %d */\n"
|
||||||
|
" CARRY_FORWARD;\n ", x);
|
||||||
|
|
||||||
|
for (f = y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (z != y && z + y == x && y <= z) {
|
||||||
|
++f;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
if (f <= 2) {
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (y<=z && (y+z)==x) {
|
||||||
|
if (y == z) {
|
||||||
|
printf(" SQRADD(a[%d], a[%d]); ", y, y);
|
||||||
|
} else {
|
||||||
|
printf(" SQRADD2(a[%d], a[%d]); ", y, z);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
} else {
|
||||||
|
// new method
|
||||||
|
/* do evens first */
|
||||||
|
f = 0;
|
||||||
|
for (y = 0; y < N; y++) {
|
||||||
|
for (z = 0; z < N; z++) {
|
||||||
|
if (z != y && z + y == x && y <= z) {
|
||||||
|
if (f == 0) {
|
||||||
|
// first double
|
||||||
|
printf("SQRADDSC(a[%d], a[%d]); ", y, z);
|
||||||
|
f = 1;
|
||||||
|
} else {
|
||||||
|
printf("SQRADDAC(a[%d], a[%d]); ", y, z);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
// forward the carry
|
||||||
|
printf("SQRADDDB; ");
|
||||||
|
if ((x&1) == 0) {
|
||||||
|
// add the square
|
||||||
|
printf("SQRADD(a[%d], a[%d]); ", x/2, x/2);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
printf("\n COMBA_STORE(b[%d]);\n", x);
|
||||||
|
}
|
||||||
|
printf(" COMBA_STORE2(b[%d]);\n", N+N-1);
|
||||||
|
|
||||||
|
printf(
|
||||||
|
" COMBA_FINI;\n"
|
||||||
|
"\n"
|
||||||
|
" B->used = %d;\n"
|
||||||
|
" B->sign = FP_ZPOS;\n"
|
||||||
|
" memcpy(B->dp, b, %d * sizeof(fp_digit));\n"
|
||||||
|
" fp_clamp(B);\n"
|
||||||
|
" break;\n\n", N+N, N+N);
|
||||||
|
}
|
||||||
|
|
||||||
|
printf("}\n\n}\n");
|
||||||
|
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/generators/comba_sqr_smallgen.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
568
lib/hcrypto/tomsfastmath/src/headers/tfm.h
Normal file
568
lib/hcrypto/tomsfastmath/src/headers/tfm.h
Normal file
@@ -0,0 +1,568 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#ifndef TFM_H_
|
||||||
|
#define TFM_H_
|
||||||
|
|
||||||
|
#include <stdio.h>
|
||||||
|
#include <string.h>
|
||||||
|
#include <stdlib.h>
|
||||||
|
#include <ctype.h>
|
||||||
|
#include <limits.h>
|
||||||
|
|
||||||
|
#ifndef MIN
|
||||||
|
#define MIN(x,y) ((x)<(y)?(x):(y))
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef MAX
|
||||||
|
#define MAX(x,y) ((x)>(y)?(x):(y))
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* externally define this symbol to ignore the default settings, useful for changing the build from the make process */
|
||||||
|
#ifndef TFM_ALREADY_SET
|
||||||
|
|
||||||
|
/* do we want the large set of small multiplications ?
|
||||||
|
Enable these if you are going to be doing a lot of small (<= 16 digit) multiplications say in ECC
|
||||||
|
Or if you're on a 64-bit machine doing RSA as a 1024-bit integer == 16 digits ;-)
|
||||||
|
*/
|
||||||
|
#define TFM_SMALL_SET
|
||||||
|
|
||||||
|
/* do we want huge code
|
||||||
|
Enable these if you are doing 20, 24, 28, 32, 48, 64 digit multiplications (useful for RSA)
|
||||||
|
Less important on 64-bit machines as 32 digits == 2048 bits
|
||||||
|
*/
|
||||||
|
#if 0
|
||||||
|
#define TFM_MUL3
|
||||||
|
#define TFM_MUL4
|
||||||
|
#define TFM_MUL6
|
||||||
|
#define TFM_MUL7
|
||||||
|
#define TFM_MUL8
|
||||||
|
#define TFM_MUL9
|
||||||
|
#define TFM_MUL12
|
||||||
|
#define TFM_MUL17
|
||||||
|
#endif
|
||||||
|
#define TFM_MUL20
|
||||||
|
#define TFM_MUL24
|
||||||
|
#define TFM_MUL28
|
||||||
|
#define TFM_MUL32
|
||||||
|
#define TFM_MUL48
|
||||||
|
#define TFM_MUL64
|
||||||
|
|
||||||
|
#if 0
|
||||||
|
#define TFM_SQR3
|
||||||
|
#define TFM_SQR4
|
||||||
|
#define TFM_SQR6
|
||||||
|
#define TFM_SQR7
|
||||||
|
#define TFM_SQR8
|
||||||
|
#define TFM_SQR9
|
||||||
|
#define TFM_SQR12
|
||||||
|
#define TFM_SQR17
|
||||||
|
#endif
|
||||||
|
#define TFM_SQR20
|
||||||
|
#define TFM_SQR24
|
||||||
|
#define TFM_SQR28
|
||||||
|
#define TFM_SQR32
|
||||||
|
#define TFM_SQR48
|
||||||
|
#define TFM_SQR64
|
||||||
|
|
||||||
|
/* do we want some overflow checks
|
||||||
|
Not required if you make sure your numbers are within range (e.g. by default a modulus for fp_exptmod() can only be upto 2048 bits long)
|
||||||
|
*/
|
||||||
|
/* #define TFM_CHECK */
|
||||||
|
|
||||||
|
/* Is the target a P4 Prescott
|
||||||
|
*/
|
||||||
|
/* #define TFM_PRESCOTT */
|
||||||
|
|
||||||
|
/* Do we want timing resistant fp_exptmod() ?
|
||||||
|
* This makes it slower but also timing invariant with respect to the exponent
|
||||||
|
*/
|
||||||
|
/* #define TFM_TIMING_RESISTANT */
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* Max size of any number in bits. Basically the largest size you will be multiplying
|
||||||
|
* should be half [or smaller] of FP_MAX_SIZE-four_digit
|
||||||
|
*
|
||||||
|
* You can externally define this or it defaults to 4096-bits [allowing multiplications upto 2048x2048 bits ]
|
||||||
|
*/
|
||||||
|
#ifndef FP_MAX_SIZE
|
||||||
|
#define FP_MAX_SIZE (4096+(8*DIGIT_BIT))
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* will this lib work? */
|
||||||
|
#if (CHAR_BIT & 7)
|
||||||
|
#error CHAR_BIT must be a multiple of eight.
|
||||||
|
#endif
|
||||||
|
#if FP_MAX_SIZE % CHAR_BIT
|
||||||
|
#error FP_MAX_SIZE must be a multiple of CHAR_BIT
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* autodetect x86-64 and make sure we are using 64-bit digits with x86-64 asm */
|
||||||
|
#if defined(__x86_64__)
|
||||||
|
#if defined(TFM_X86) || defined(TFM_SSE2) || defined(TFM_ARM)
|
||||||
|
#error x86-64 detected, x86-32/SSE2/ARM optimizations are not valid!
|
||||||
|
#endif
|
||||||
|
#if !defined(TFM_X86_64) && !defined(TFM_NO_ASM)
|
||||||
|
#define TFM_X86_64
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_X86_64)
|
||||||
|
#if !defined(FP_64BIT)
|
||||||
|
#define FP_64BIT
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* try to detect x86-32 */
|
||||||
|
#if defined(__i386__) && !defined(TFM_SSE2)
|
||||||
|
#if defined(TFM_X86_64) || defined(TFM_ARM)
|
||||||
|
#error x86-32 detected, x86-64/ARM optimizations are not valid!
|
||||||
|
#endif
|
||||||
|
#if !defined(TFM_X86) && !defined(TFM_NO_ASM)
|
||||||
|
#define TFM_X86
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* make sure we're 32-bit for x86-32/sse/arm/ppc32 */
|
||||||
|
#if (defined(TFM_X86) || defined(TFM_SSE2) || defined(TFM_ARM) || defined(TFM_PPC32)) && defined(FP_64BIT)
|
||||||
|
#warning x86-32, SSE2 and ARM, PPC32 optimizations require 32-bit digits (undefining)
|
||||||
|
#undef FP_64BIT
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* multi asms? */
|
||||||
|
#ifdef TFM_X86
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_X86_64
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SSE2
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ARM
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_PPC32
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_PPC64
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_AVR32
|
||||||
|
#ifdef TFM_ASM
|
||||||
|
#error TFM_ASM already defined!
|
||||||
|
#endif
|
||||||
|
#define TFM_ASM
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* we want no asm? */
|
||||||
|
#ifdef TFM_NO_ASM
|
||||||
|
#undef TFM_X86
|
||||||
|
#undef TFM_X86_64
|
||||||
|
#undef TFM_SSE2
|
||||||
|
#undef TFM_ARM
|
||||||
|
#undef TFM_PPC32
|
||||||
|
#undef TFM_PPC64
|
||||||
|
#undef TFM_AVR32
|
||||||
|
#undef TFM_ASM
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* ECC helpers */
|
||||||
|
#ifdef TFM_ECC192
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
#define TFM_MUL3
|
||||||
|
#define TFM_SQR3
|
||||||
|
#else
|
||||||
|
#define TFM_MUL6
|
||||||
|
#define TFM_SQR6
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_ECC224
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
#define TFM_MUL4
|
||||||
|
#define TFM_SQR4
|
||||||
|
#else
|
||||||
|
#define TFM_MUL7
|
||||||
|
#define TFM_SQR7
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_ECC256
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
#define TFM_MUL4
|
||||||
|
#define TFM_SQR4
|
||||||
|
#else
|
||||||
|
#define TFM_MUL8
|
||||||
|
#define TFM_SQR8
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_ECC384
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
#define TFM_MUL6
|
||||||
|
#define TFM_SQR6
|
||||||
|
#else
|
||||||
|
#define TFM_MUL12
|
||||||
|
#define TFM_SQR12
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_ECC521
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
#define TFM_MUL9
|
||||||
|
#define TFM_SQR9
|
||||||
|
#else
|
||||||
|
#define TFM_MUL17
|
||||||
|
#define TFM_SQR17
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
/* some default configurations.
|
||||||
|
*/
|
||||||
|
#if defined(FP_64BIT)
|
||||||
|
/* for GCC only on supported platforms */
|
||||||
|
#ifndef CRYPT
|
||||||
|
typedef unsigned long ulong64;
|
||||||
|
#endif
|
||||||
|
typedef ulong64 fp_digit;
|
||||||
|
typedef unsigned long fp_word __attribute__ ((mode(TI)));
|
||||||
|
#else
|
||||||
|
/* this is to make porting into LibTomCrypt easier :-) */
|
||||||
|
#ifndef CRYPT
|
||||||
|
#if defined(_MSC_VER) || defined(__BORLANDC__)
|
||||||
|
typedef unsigned __int64 ulong64;
|
||||||
|
typedef signed __int64 long64;
|
||||||
|
#else
|
||||||
|
typedef unsigned long long ulong64;
|
||||||
|
typedef signed long long long64;
|
||||||
|
#endif
|
||||||
|
#endif
|
||||||
|
typedef unsigned long fp_digit;
|
||||||
|
typedef ulong64 fp_word;
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* # of digits this is */
|
||||||
|
#define DIGIT_BIT (int)((CHAR_BIT) * sizeof(fp_digit))
|
||||||
|
#define FP_MASK (fp_digit)(-1)
|
||||||
|
#define FP_SIZE (FP_MAX_SIZE/DIGIT_BIT)
|
||||||
|
|
||||||
|
/* signs */
|
||||||
|
#define FP_ZPOS 0
|
||||||
|
#define FP_NEG 1
|
||||||
|
|
||||||
|
/* return codes */
|
||||||
|
#define FP_OKAY 0
|
||||||
|
#define FP_VAL 1
|
||||||
|
#define FP_MEM 2
|
||||||
|
|
||||||
|
/* equalities */
|
||||||
|
#define FP_LT -1 /* less than */
|
||||||
|
#define FP_EQ 0 /* equal to */
|
||||||
|
#define FP_GT 1 /* greater than */
|
||||||
|
|
||||||
|
/* replies */
|
||||||
|
#define FP_YES 1 /* yes response */
|
||||||
|
#define FP_NO 0 /* no response */
|
||||||
|
|
||||||
|
/* a FP type */
|
||||||
|
typedef struct {
|
||||||
|
fp_digit dp[FP_SIZE];
|
||||||
|
int used,
|
||||||
|
sign;
|
||||||
|
} fp_int;
|
||||||
|
|
||||||
|
/* functions */
|
||||||
|
|
||||||
|
/* returns a TFM ident string useful for debugging... */
|
||||||
|
const char *fp_ident(void);
|
||||||
|
|
||||||
|
/* initialize [or zero] an fp int */
|
||||||
|
#define fp_init(a) (void)memset((a), 0, sizeof(fp_int))
|
||||||
|
#define fp_zero(a) fp_init(a)
|
||||||
|
|
||||||
|
/* zero/even/odd ? */
|
||||||
|
#define fp_iszero(a) (((a)->used == 0) ? FP_YES : FP_NO)
|
||||||
|
#define fp_iseven(a) (((a)->used >= 0 && (((a)->dp[0] & 1) == 0)) ? FP_YES : FP_NO)
|
||||||
|
#define fp_isodd(a) (((a)->used > 0 && (((a)->dp[0] & 1) == 1)) ? FP_YES : FP_NO)
|
||||||
|
|
||||||
|
/* set to a small digit */
|
||||||
|
void fp_set(fp_int *a, fp_digit b);
|
||||||
|
|
||||||
|
/* copy from a to b */
|
||||||
|
#define fp_copy(a, b) (void)(((a) != (b)) && memcpy((b), (a), sizeof(fp_int)))
|
||||||
|
#define fp_init_copy(a, b) fp_copy(b, a)
|
||||||
|
|
||||||
|
/* clamp digits */
|
||||||
|
#define fp_clamp(a) { while ((a)->used && (a)->dp[(a)->used-1] == 0) --((a)->used); (a)->sign = (a)->used ? (a)->sign : FP_ZPOS; }
|
||||||
|
|
||||||
|
/* negate and absolute */
|
||||||
|
#define fp_neg(a, b) { fp_copy(a, b); (b)->sign ^= 1; fp_clamp(b); }
|
||||||
|
#define fp_abs(a, b) { fp_copy(a, b); (b)->sign = 0; }
|
||||||
|
|
||||||
|
/* right shift x digits */
|
||||||
|
void fp_rshd(fp_int *a, int x);
|
||||||
|
|
||||||
|
/* left shift x digits */
|
||||||
|
void fp_lshd(fp_int *a, int x);
|
||||||
|
|
||||||
|
/* signed comparison */
|
||||||
|
int fp_cmp(fp_int *a, fp_int *b);
|
||||||
|
|
||||||
|
/* unsigned comparison */
|
||||||
|
int fp_cmp_mag(fp_int *a, fp_int *b);
|
||||||
|
|
||||||
|
/* power of 2 operations */
|
||||||
|
void fp_div_2d(fp_int *a, int b, fp_int *c, fp_int *d);
|
||||||
|
void fp_mod_2d(fp_int *a, int b, fp_int *c);
|
||||||
|
void fp_mul_2d(fp_int *a, int b, fp_int *c);
|
||||||
|
void fp_2expt (fp_int *a, int b);
|
||||||
|
void fp_mul_2(fp_int *a, fp_int *c);
|
||||||
|
void fp_div_2(fp_int *a, fp_int *c);
|
||||||
|
|
||||||
|
/* Counts the number of lsbs which are zero before the first zero bit */
|
||||||
|
int fp_cnt_lsb(fp_int *a);
|
||||||
|
|
||||||
|
/* c = a + b */
|
||||||
|
void fp_add(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = a - b */
|
||||||
|
void fp_sub(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = a * b */
|
||||||
|
void fp_mul(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* b = a*a */
|
||||||
|
void fp_sqr(fp_int *a, fp_int *b);
|
||||||
|
|
||||||
|
/* a/b => cb + d == a */
|
||||||
|
int fp_div(fp_int *a, fp_int *b, fp_int *c, fp_int *d);
|
||||||
|
|
||||||
|
/* c = a mod b, 0 <= c < b */
|
||||||
|
int fp_mod(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* compare against a single digit */
|
||||||
|
int fp_cmp_d(fp_int *a, fp_digit b);
|
||||||
|
|
||||||
|
/* c = a + b */
|
||||||
|
void fp_add_d(fp_int *a, fp_digit b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = a - b */
|
||||||
|
void fp_sub_d(fp_int *a, fp_digit b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = a * b */
|
||||||
|
void fp_mul_d(fp_int *a, fp_digit b, fp_int *c);
|
||||||
|
|
||||||
|
/* a/b => cb + d == a */
|
||||||
|
int fp_div_d(fp_int *a, fp_digit b, fp_int *c, fp_digit *d);
|
||||||
|
|
||||||
|
/* c = a mod b, 0 <= c < b */
|
||||||
|
int fp_mod_d(fp_int *a, fp_digit b, fp_digit *c);
|
||||||
|
|
||||||
|
/* ---> number theory <--- */
|
||||||
|
/* d = a + b (mod c) */
|
||||||
|
int fp_addmod(fp_int *a, fp_int *b, fp_int *c, fp_int *d);
|
||||||
|
|
||||||
|
/* d = a - b (mod c) */
|
||||||
|
int fp_submod(fp_int *a, fp_int *b, fp_int *c, fp_int *d);
|
||||||
|
|
||||||
|
/* d = a * b (mod c) */
|
||||||
|
int fp_mulmod(fp_int *a, fp_int *b, fp_int *c, fp_int *d);
|
||||||
|
|
||||||
|
/* c = a * a (mod b) */
|
||||||
|
int fp_sqrmod(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = 1/a (mod b) */
|
||||||
|
int fp_invmod(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = (a, b) */
|
||||||
|
void fp_gcd(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* c = [a, b] */
|
||||||
|
void fp_lcm(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
|
||||||
|
/* setups the montgomery reduction */
|
||||||
|
int fp_montgomery_setup(fp_int *a, fp_digit *mp);
|
||||||
|
|
||||||
|
/* computes a = B**n mod b without division or multiplication useful for
|
||||||
|
* normalizing numbers in a Montgomery system.
|
||||||
|
*/
|
||||||
|
void fp_montgomery_calc_normalization(fp_int *a, fp_int *b);
|
||||||
|
|
||||||
|
/* computes x/R == x (mod N) via Montgomery Reduction */
|
||||||
|
void fp_montgomery_reduce(fp_int *a, fp_int *m, fp_digit mp);
|
||||||
|
|
||||||
|
/* d = a**b (mod c) */
|
||||||
|
int fp_exptmod(fp_int *a, fp_int *b, fp_int *c, fp_int *d);
|
||||||
|
|
||||||
|
/* primality stuff */
|
||||||
|
|
||||||
|
/* perform a Miller-Rabin test of a to the base b and store result in "result" */
|
||||||
|
void fp_prime_miller_rabin (fp_int * a, fp_int * b, int *result);
|
||||||
|
|
||||||
|
/* 256 trial divisions + 8 Miller-Rabins, returns FP_YES if probable prime */
|
||||||
|
int fp_isprime(fp_int *a);
|
||||||
|
|
||||||
|
/* Primality generation flags */
|
||||||
|
#define TFM_PRIME_BBS 0x0001 /* BBS style prime */
|
||||||
|
#define TFM_PRIME_SAFE 0x0002 /* Safe prime (p-1)/2 == prime */
|
||||||
|
#define TFM_PRIME_2MSB_OFF 0x0004 /* force 2nd MSB to 0 */
|
||||||
|
#define TFM_PRIME_2MSB_ON 0x0008 /* force 2nd MSB to 1 */
|
||||||
|
|
||||||
|
/* callback for fp_prime_random, should fill dst with random bytes and return how many read [upto len] */
|
||||||
|
typedef int tfm_prime_callback(unsigned char *dst, int len, void *dat);
|
||||||
|
|
||||||
|
#define fp_prime_random(a, t, size, bbs, cb, dat) fp_prime_random_ex(a, t, ((size) * 8) + 1, (bbs==1)?TFM_PRIME_BBS:0, cb, dat)
|
||||||
|
|
||||||
|
int fp_prime_random_ex(fp_int *a, int t, int size, int flags, tfm_prime_callback cb, void *dat);
|
||||||
|
|
||||||
|
/* radix conersions */
|
||||||
|
int fp_count_bits(fp_int *a);
|
||||||
|
|
||||||
|
int fp_unsigned_bin_size(fp_int *a);
|
||||||
|
void fp_read_unsigned_bin(fp_int *a, unsigned char *b, int c);
|
||||||
|
void fp_to_unsigned_bin(fp_int *a, unsigned char *b);
|
||||||
|
|
||||||
|
int fp_signed_bin_size(fp_int *a);
|
||||||
|
void fp_read_signed_bin(fp_int *a, unsigned char *b, int c);
|
||||||
|
void fp_to_signed_bin(fp_int *a, unsigned char *b);
|
||||||
|
|
||||||
|
int fp_read_radix(fp_int *a, char *str, int radix);
|
||||||
|
int fp_toradix(fp_int *a, char *str, int radix);
|
||||||
|
int fp_toradix_n(fp_int * a, char *str, int radix, int maxlen);
|
||||||
|
|
||||||
|
|
||||||
|
/* VARIOUS LOW LEVEL STUFFS */
|
||||||
|
void s_fp_add(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
void s_fp_sub(fp_int *a, fp_int *b, fp_int *c);
|
||||||
|
void fp_reverse(unsigned char *s, int len);
|
||||||
|
|
||||||
|
void fp_mul_comba(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
|
||||||
|
#ifdef TFM_SMALL_SET
|
||||||
|
void fp_mul_comba_small(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_MUL3
|
||||||
|
void fp_mul_comba3(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL4
|
||||||
|
void fp_mul_comba4(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL6
|
||||||
|
void fp_mul_comba6(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL7
|
||||||
|
void fp_mul_comba7(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL8
|
||||||
|
void fp_mul_comba8(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL9
|
||||||
|
void fp_mul_comba9(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL12
|
||||||
|
void fp_mul_comba12(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL17
|
||||||
|
void fp_mul_comba17(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_MUL20
|
||||||
|
void fp_mul_comba20(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL24
|
||||||
|
void fp_mul_comba24(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL28
|
||||||
|
void fp_mul_comba28(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL32
|
||||||
|
void fp_mul_comba32(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL48
|
||||||
|
void fp_mul_comba48(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL64
|
||||||
|
void fp_mul_comba64(fp_int *A, fp_int *B, fp_int *C);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
void fp_sqr_comba(fp_int *A, fp_int *B);
|
||||||
|
|
||||||
|
#ifdef TFM_SMALL_SET
|
||||||
|
void fp_sqr_comba_small(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_SQR3
|
||||||
|
void fp_sqr_comba3(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR4
|
||||||
|
void fp_sqr_comba4(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR6
|
||||||
|
void fp_sqr_comba6(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR7
|
||||||
|
void fp_sqr_comba7(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR8
|
||||||
|
void fp_sqr_comba8(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR9
|
||||||
|
void fp_sqr_comba9(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR12
|
||||||
|
void fp_sqr_comba12(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR17
|
||||||
|
void fp_sqr_comba17(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_SQR20
|
||||||
|
void fp_sqr_comba20(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR24
|
||||||
|
void fp_sqr_comba24(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR28
|
||||||
|
void fp_sqr_comba28(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR32
|
||||||
|
void fp_sqr_comba32(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR48
|
||||||
|
void fp_sqr_comba48(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SQR64
|
||||||
|
void fp_sqr_comba64(fp_int *A, fp_int *B);
|
||||||
|
#endif
|
||||||
|
extern const char *fp_s_rmap;
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/headers/tfm.h,v $ */
|
||||||
|
/* $Revision: 1.3 $ */
|
||||||
|
/* $Date: 2007/02/27 02:38:44 $ */
|
||||||
95
lib/hcrypto/tomsfastmath/src/misc/fp_ident.c
Normal file
95
lib/hcrypto/tomsfastmath/src/misc/fp_ident.c
Normal file
@@ -0,0 +1,95 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include "tfm.h"
|
||||||
|
|
||||||
|
const char *fp_ident(void)
|
||||||
|
{
|
||||||
|
static char buf[1024];
|
||||||
|
|
||||||
|
memset(buf, 0, sizeof(buf));
|
||||||
|
snprintf(buf, sizeof(buf)-1,
|
||||||
|
"TomsFastMath (%s)\n"
|
||||||
|
"\n"
|
||||||
|
"Sizeofs\n"
|
||||||
|
"\tfp_digit = %u\n"
|
||||||
|
"\tfp_word = %u\n"
|
||||||
|
"\n"
|
||||||
|
"FP_MAX_SIZE = %u\n"
|
||||||
|
"\n"
|
||||||
|
"Defines: \n"
|
||||||
|
#ifdef __i386__
|
||||||
|
" __i386__ "
|
||||||
|
#endif
|
||||||
|
#ifdef __x86_64__
|
||||||
|
" __x86_64__ "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_X86
|
||||||
|
" TFM_X86 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_X86_64
|
||||||
|
" TFM_X86_64 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_SSE2
|
||||||
|
" TFM_SSE2 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ARM
|
||||||
|
" TFM_ARM "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_PPC32
|
||||||
|
" TFM_PPC32 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_AVR32
|
||||||
|
" TFM_AVR32 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ECC192
|
||||||
|
" TFM_ECC192 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ECC224
|
||||||
|
" TFM_ECC224 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ECC384
|
||||||
|
" TFM_ECC384 "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_ECC521
|
||||||
|
" TFM_ECC521 "
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_NO_ASM
|
||||||
|
" TFM_NO_ASM "
|
||||||
|
#endif
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
" FP_64BIT "
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_HUGE
|
||||||
|
" TFM_HUGE "
|
||||||
|
#endif
|
||||||
|
"\n", __DATE__, sizeof(fp_digit), sizeof(fp_word), FP_MAX_SIZE);
|
||||||
|
|
||||||
|
if (sizeof(fp_digit) == sizeof(fp_word)) {
|
||||||
|
strncat(buf, "WARNING: sizeof(fp_digit) == sizeof(fp_word), this build is likely to not work properly.\n",
|
||||||
|
sizeof(buf)-1);
|
||||||
|
}
|
||||||
|
return buf;
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef STANDALONE
|
||||||
|
|
||||||
|
int main(void)
|
||||||
|
{
|
||||||
|
printf("%s\n", fp_ident());
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/misc/fp_ident.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
21
lib/hcrypto/tomsfastmath/src/misc/fp_set.c
Normal file
21
lib/hcrypto/tomsfastmath/src/misc/fp_set.c
Normal file
@@ -0,0 +1,21 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_set(fp_int *a, fp_digit b)
|
||||||
|
{
|
||||||
|
fp_zero(a);
|
||||||
|
a->dp[0] = b;
|
||||||
|
a->used = a->dp[0] ? 1 : 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/misc/fp_set.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
3838
lib/hcrypto/tomsfastmath/src/mont/fp_mont_small.i
Normal file
3838
lib/hcrypto/tomsfastmath/src/mont/fp_mont_small.i
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,43 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* computes a = B**n mod b without division or multiplication useful for
|
||||||
|
* normalizing numbers in a Montgomery system.
|
||||||
|
*/
|
||||||
|
void fp_montgomery_calc_normalization(fp_int *a, fp_int *b)
|
||||||
|
{
|
||||||
|
int x, bits;
|
||||||
|
|
||||||
|
/* how many bits of last digit does b use */
|
||||||
|
bits = fp_count_bits (b) % DIGIT_BIT;
|
||||||
|
if (!bits) bits = DIGIT_BIT;
|
||||||
|
|
||||||
|
/* compute A = B^(n-1) * 2^(bits-1) */
|
||||||
|
if (b->used > 1) {
|
||||||
|
fp_2expt (a, (b->used - 1) * DIGIT_BIT + bits - 1);
|
||||||
|
} else {
|
||||||
|
fp_set(a, 1);
|
||||||
|
bits = 1;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now compute C = A * B mod b */
|
||||||
|
for (x = bits - 1; x < (int)DIGIT_BIT; x++) {
|
||||||
|
fp_mul_2 (a, a);
|
||||||
|
if (fp_cmp_mag (a, b) != FP_LT) {
|
||||||
|
s_fp_sub (a, b, a);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mont/fp_montgomery_calc_normalization.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
556
lib/hcrypto/tomsfastmath/src/mont/fp_montgomery_reduce.c
Normal file
556
lib/hcrypto/tomsfastmath/src/mont/fp_montgomery_reduce.c
Normal file
@@ -0,0 +1,556 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#if defined(TFM_X86) && !defined(TFM_SSE2)
|
||||||
|
/* x86-32 code */
|
||||||
|
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
"movl %5,%%eax \n\t" \
|
||||||
|
"mull %4 \n\t" \
|
||||||
|
"addl %1,%%eax \n\t" \
|
||||||
|
"adcl $0,%%edx \n\t" \
|
||||||
|
"addl %%eax,%0 \n\t" \
|
||||||
|
"adcl $0,%%edx \n\t" \
|
||||||
|
"movl %%edx,%1 \n\t" \
|
||||||
|
:"=g"(_c[LO]), "=r"(cy) \
|
||||||
|
:"0"(_c[LO]), "1"(cy), "g"(mu), "g"(*tmpm++) \
|
||||||
|
: "%eax", "%edx", "%cc")
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
"addl %1,%0 \n\t" \
|
||||||
|
"setb %%al \n\t" \
|
||||||
|
"movzbl %%al,%1 \n\t" \
|
||||||
|
:"=g"(_c[LO]), "=r"(cy) \
|
||||||
|
:"0"(_c[LO]), "1"(cy) \
|
||||||
|
: "%eax", "%cc")
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_X86_64)
|
||||||
|
/* x86-64 code */
|
||||||
|
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
"movq %5,%%rax \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %1,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"addq %%rax,%0 \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
:"=g"(_c[LO]), "=r"(cy) \
|
||||||
|
:"0"(_c[LO]), "1"(cy), "r"(mu), "r"(*tmpm++) \
|
||||||
|
: "%rax", "%rdx", "%cc")
|
||||||
|
|
||||||
|
#define INNERMUL8 \
|
||||||
|
asm( \
|
||||||
|
"movq 0(%5),%%rax \n\t" \
|
||||||
|
"movq 0(%2),%%r10 \n\t" \
|
||||||
|
"movq 0x8(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x8(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x10(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x10(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x8(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x18(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x18(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x10(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x20(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x20(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x18(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x28(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x28(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x20(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x30(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x30(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x28(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"movq 0x38(%5),%%r11 \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq 0x38(%2),%%r10 \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x30(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
"movq %%r11,%%rax \n\t" \
|
||||||
|
"mulq %4 \n\t" \
|
||||||
|
"addq %%r10,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"addq %3,%%rax \n\t" \
|
||||||
|
"adcq $0,%%rdx \n\t" \
|
||||||
|
"movq %%rax,0x38(%0) \n\t" \
|
||||||
|
"movq %%rdx,%1 \n\t" \
|
||||||
|
\
|
||||||
|
:"=r"(_c), "=r"(cy) \
|
||||||
|
: "0"(_c), "1"(cy), "g"(mu), "r"(tmpm)\
|
||||||
|
: "%rax", "%rdx", "%r10", "%r11", "%cc")
|
||||||
|
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
"addq %1,%0 \n\t" \
|
||||||
|
"setb %%al \n\t" \
|
||||||
|
"movzbq %%al,%1 \n\t" \
|
||||||
|
:"=g"(_c[LO]), "=r"(cy) \
|
||||||
|
:"0"(_c[LO]), "1"(cy) \
|
||||||
|
: "%rax", "%cc")
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_SSE2)
|
||||||
|
/* SSE2 code (assumes 32-bit fp_digits) */
|
||||||
|
/* XMM register assignments:
|
||||||
|
* xmm0 *tmpm++, then Mu * (*tmpm++)
|
||||||
|
* xmm1 c[x], then Mu
|
||||||
|
* xmm2 mp
|
||||||
|
* xmm3 cy
|
||||||
|
* xmm4 _c[LO]
|
||||||
|
*/
|
||||||
|
|
||||||
|
#define MONT_START \
|
||||||
|
asm("movd %0,%%mm2"::"g"(mp))
|
||||||
|
|
||||||
|
#define MONT_FINI \
|
||||||
|
asm("emms")
|
||||||
|
|
||||||
|
#define LOOP_START \
|
||||||
|
asm( \
|
||||||
|
"movd %0,%%mm1 \n\t" \
|
||||||
|
"pxor %%mm3,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm2,%%mm1 \n\t" \
|
||||||
|
:: "g"(c[x]))
|
||||||
|
|
||||||
|
/* pmuludq on mmx registers does a 32x32->64 multiply. */
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
"movd %1,%%mm4 \n\t" \
|
||||||
|
"movd %2,%%mm0 \n\t" \
|
||||||
|
"paddq %%mm4,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm0 \n\t" \
|
||||||
|
"paddq %%mm0,%%mm3 \n\t" \
|
||||||
|
"movd %%mm3,%0 \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
:"=g"(_c[LO]) : "0"(_c[LO]), "g"(*tmpm++) );
|
||||||
|
|
||||||
|
#define INNERMUL8 \
|
||||||
|
asm( \
|
||||||
|
"movd 0(%1),%%mm4 \n\t" \
|
||||||
|
"movd 0(%2),%%mm0 \n\t" \
|
||||||
|
"paddq %%mm4,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm0 \n\t" \
|
||||||
|
"movd 4(%2),%%mm5 \n\t" \
|
||||||
|
"paddq %%mm0,%%mm3 \n\t" \
|
||||||
|
"movd 4(%1),%%mm6 \n\t" \
|
||||||
|
"movd %%mm3,0(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm6,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm5 \n\t" \
|
||||||
|
"movd 8(%2),%%mm6 \n\t" \
|
||||||
|
"paddq %%mm5,%%mm3 \n\t" \
|
||||||
|
"movd 8(%1),%%mm7 \n\t" \
|
||||||
|
"movd %%mm3,4(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm7,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm6 \n\t" \
|
||||||
|
"movd 12(%2),%%mm7 \n\t" \
|
||||||
|
"paddq %%mm6,%%mm3 \n\t" \
|
||||||
|
"movd 12(%1),%%mm5 \n\t" \
|
||||||
|
"movd %%mm3,8(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm5,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm7 \n\t" \
|
||||||
|
"movd 16(%2),%%mm5 \n\t" \
|
||||||
|
"paddq %%mm7,%%mm3 \n\t" \
|
||||||
|
"movd 16(%1),%%mm6 \n\t" \
|
||||||
|
"movd %%mm3,12(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm6,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm5 \n\t" \
|
||||||
|
"movd 20(%2),%%mm6 \n\t" \
|
||||||
|
"paddq %%mm5,%%mm3 \n\t" \
|
||||||
|
"movd 20(%1),%%mm7 \n\t" \
|
||||||
|
"movd %%mm3,16(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm7,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm6 \n\t" \
|
||||||
|
"movd 24(%2),%%mm7 \n\t" \
|
||||||
|
"paddq %%mm6,%%mm3 \n\t" \
|
||||||
|
"movd 24(%1),%%mm5 \n\t" \
|
||||||
|
"movd %%mm3,20(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm5,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm7 \n\t" \
|
||||||
|
"movd 28(%2),%%mm5 \n\t" \
|
||||||
|
"paddq %%mm7,%%mm3 \n\t" \
|
||||||
|
"movd 28(%1),%%mm6 \n\t" \
|
||||||
|
"movd %%mm3,24(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
\
|
||||||
|
"paddq %%mm6,%%mm3 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm5 \n\t" \
|
||||||
|
"paddq %%mm5,%%mm3 \n\t" \
|
||||||
|
"movd %%mm3,28(%0) \n\t" \
|
||||||
|
"psrlq $32, %%mm3 \n\t" \
|
||||||
|
:"=r"(_c) : "0"(_c), "g"(tmpm) );
|
||||||
|
|
||||||
|
#define LOOP_END \
|
||||||
|
asm( "movd %%mm3,%0 \n" :"=r"(cy))
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
"addl %1,%0 \n\t" \
|
||||||
|
"setb %%al \n\t" \
|
||||||
|
"movzbl %%al,%1 \n\t" \
|
||||||
|
:"=g"(_c[LO]), "=r"(cy) \
|
||||||
|
:"0"(_c[LO]), "1"(cy) \
|
||||||
|
: "%eax", "%cc")
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_ARM)
|
||||||
|
/* ARMv4 code */
|
||||||
|
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
" LDR r0,%1 \n\t" \
|
||||||
|
" ADDS r0,r0,%0 \n\t" \
|
||||||
|
" MOVCS %0,#1 \n\t" \
|
||||||
|
" MOVCC %0,#0 \n\t" \
|
||||||
|
" UMLAL r0,%0,%3,%4 \n\t" \
|
||||||
|
" STR r0,%1 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"r"(mu),"r"(*tmpm++),"1"(_c[0]):"r0","%cc");
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
" LDR r0,%1 \n\t" \
|
||||||
|
" ADDS r0,r0,%0 \n\t" \
|
||||||
|
" STR r0,%1 \n\t" \
|
||||||
|
" MOVCS %0,#1 \n\t" \
|
||||||
|
" MOVCC %0,#0 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"1"(_c[0]):"r0","%cc");
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_PPC32)
|
||||||
|
|
||||||
|
/* PPC32 */
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
" mullw 16,%3,%4 \n\t" \
|
||||||
|
" mulhwu 17,%3,%4 \n\t" \
|
||||||
|
" addc 16,16,%0 \n\t" \
|
||||||
|
" addze 17,17 \n\t" \
|
||||||
|
" lwz 18,%1 \n\t" \
|
||||||
|
" addc 16,16,18 \n\t" \
|
||||||
|
" addze %0,17 \n\t" \
|
||||||
|
" stw 16,%1 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"r"(mu),"r"(tmpm[0]),"1"(_c[0]):"16", "17", "18","%cc"); ++tmpm;
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
" lwz 16,%1 \n\t" \
|
||||||
|
" addc 16,16,%0 \n\t" \
|
||||||
|
" stw 16,%1 \n\t" \
|
||||||
|
" xor %0,%0,%0 \n\t" \
|
||||||
|
" addze %0,%0 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"1"(_c[0]):"16","%cc");
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_PPC64)
|
||||||
|
|
||||||
|
/* PPC64 */
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
" mulld r16,%3,%4 \n\t" \
|
||||||
|
" mulhdu r17,%3,%4 \n\t" \
|
||||||
|
" addc r16,16,%0 \n\t" \
|
||||||
|
" addze r17,r17 \n\t" \
|
||||||
|
" ldx r18,0,%1 \n\t" \
|
||||||
|
" addc r16,r16,r18 \n\t" \
|
||||||
|
" addze %0,r17 \n\t" \
|
||||||
|
" sdx r16,0,%1 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"r"(mu),"r"(tmpm[0]),"1"(_c[0]):"r16", "r17", "r18","%cc"); ++tmpm;
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
" ldx r16,0,%1 \n\t" \
|
||||||
|
" addc r16,r16,%0 \n\t" \
|
||||||
|
" sdx r16,0,%1 \n\t" \
|
||||||
|
" xor %0,%0,%0 \n\t" \
|
||||||
|
" addze %0,%0 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"1"(_c[0]):"r16","%cc");
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_AVR32)
|
||||||
|
|
||||||
|
/* AVR32 */
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
" ld.w r2,%1 \n\t" \
|
||||||
|
" add r2,%0 \n\t" \
|
||||||
|
" eor r3,r3 \n\t" \
|
||||||
|
" acr r3 \n\t" \
|
||||||
|
" macu.d r2,%3,%4 \n\t" \
|
||||||
|
" st.w %1,r2 \n\t" \
|
||||||
|
" mov %0,r3 \n\t" \
|
||||||
|
:"=r"(cy),"=r"(_c):"0"(cy),"r"(mu),"r"(*tmpm++),"1"(_c):"r2","r3");
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
" ld.w r2,%1 \n\t" \
|
||||||
|
" add r2,%0 \n\t" \
|
||||||
|
" st.w %1,r2 \n\t" \
|
||||||
|
" eor %0,%0 \n\t" \
|
||||||
|
" acr %0 \n\t" \
|
||||||
|
:"=r"(cy),"=r"(&_c[0]):"0"(cy),"1"(&_c[0]):"r2","%cc");
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#elif defined(TFM_MIPS)
|
||||||
|
|
||||||
|
/* MIPS */
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
asm( \
|
||||||
|
" multu %3,%4 \n\t" \
|
||||||
|
" mflo $12 \n\t" \
|
||||||
|
" mfhi $13 \n\t" \
|
||||||
|
" addu $12,$12,%0 \n\t" \
|
||||||
|
" sltu $10,$12,%0 \n\t" \
|
||||||
|
" addu $13,$13,$10 \n\t" \
|
||||||
|
" lw $10,%1 \n\t" \
|
||||||
|
" addu $12,$12,$10 \n\t" \
|
||||||
|
" sltu $10,$12,$10 \n\t" \
|
||||||
|
" addu %0,$13,$10 \n\t" \
|
||||||
|
" sw $12,%1 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"r"(mu),"r"(tmpm[0]),"1"(_c[0]):"$10","$12","$13"); ++tmpm;
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
asm( \
|
||||||
|
" lw $10,%1 \n\t" \
|
||||||
|
" addu $10,$10,%0 \n\t" \
|
||||||
|
" sw $10,%1 \n\t" \
|
||||||
|
" sltu %0,$10,%0 \n\t" \
|
||||||
|
:"=r"(cy),"=m"(_c[0]):"0"(cy),"1"(_c[0]):"$10");
|
||||||
|
|
||||||
|
/******************************************************************/
|
||||||
|
#else
|
||||||
|
|
||||||
|
/* ISO C code */
|
||||||
|
#define MONT_START
|
||||||
|
#define MONT_FINI
|
||||||
|
#define LOOP_END
|
||||||
|
#define LOOP_START \
|
||||||
|
mu = c[x] * mp
|
||||||
|
|
||||||
|
#define INNERMUL \
|
||||||
|
do { fp_word t; \
|
||||||
|
_c[0] = t = ((fp_word)_c[0] + (fp_word)cy) + \
|
||||||
|
(((fp_word)mu) * ((fp_word)*tmpm++)); \
|
||||||
|
cy = (t >> DIGIT_BIT); \
|
||||||
|
} while (0)
|
||||||
|
|
||||||
|
#define PROPCARRY \
|
||||||
|
do { fp_digit t = _c[0] += cy; cy = (t < cy); } while (0)
|
||||||
|
|
||||||
|
#endif
|
||||||
|
/******************************************************************/
|
||||||
|
|
||||||
|
|
||||||
|
#define LO 0
|
||||||
|
|
||||||
|
#ifdef TFM_SMALL_MONT_SET
|
||||||
|
#include "fp_mont_small.i"
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* computes x/R == x (mod N) via Montgomery Reduction */
|
||||||
|
void fp_montgomery_reduce(fp_int *a, fp_int *m, fp_digit mp)
|
||||||
|
{
|
||||||
|
fp_digit c[FP_SIZE], *_c, *tmpm, mu;
|
||||||
|
int oldused, x, y, pa;
|
||||||
|
|
||||||
|
/* bail if too large */
|
||||||
|
if (m->used > (FP_SIZE/2)) {
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
#ifdef TFM_SMALL_MONT_SET
|
||||||
|
if (m->used <= 16) {
|
||||||
|
fp_montgomery_reduce_small(a, m, mp);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#if defined(USE_MEMSET)
|
||||||
|
/* now zero the buff */
|
||||||
|
memset(c, 0, sizeof c);
|
||||||
|
#endif
|
||||||
|
pa = m->used;
|
||||||
|
|
||||||
|
/* copy the input */
|
||||||
|
oldused = a->used;
|
||||||
|
for (x = 0; x < oldused; x++) {
|
||||||
|
c[x] = a->dp[x];
|
||||||
|
}
|
||||||
|
#if !defined(USE_MEMSET)
|
||||||
|
for (; x < 2*pa+1; x++) {
|
||||||
|
c[x] = 0;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
MONT_START;
|
||||||
|
|
||||||
|
for (x = 0; x < pa; x++) {
|
||||||
|
fp_digit cy = 0;
|
||||||
|
/* get Mu for this round */
|
||||||
|
LOOP_START;
|
||||||
|
_c = c + x;
|
||||||
|
tmpm = m->dp;
|
||||||
|
y = 0;
|
||||||
|
#if (defined(TFM_SSE2) || defined(TFM_X86_64))
|
||||||
|
for (; y < (pa & ~7); y += 8) {
|
||||||
|
INNERMUL8;
|
||||||
|
_c += 8;
|
||||||
|
tmpm += 8;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
for (; y < pa; y++) {
|
||||||
|
INNERMUL;
|
||||||
|
++_c;
|
||||||
|
}
|
||||||
|
LOOP_END;
|
||||||
|
while (cy) {
|
||||||
|
PROPCARRY;
|
||||||
|
++_c;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now copy out */
|
||||||
|
_c = c + pa;
|
||||||
|
tmpm = a->dp;
|
||||||
|
for (x = 0; x < pa+1; x++) {
|
||||||
|
*tmpm++ = *_c++;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (; x < oldused; x++) {
|
||||||
|
*tmpm++ = 0;
|
||||||
|
}
|
||||||
|
|
||||||
|
MONT_FINI;
|
||||||
|
|
||||||
|
a->used = pa+1;
|
||||||
|
fp_clamp(a);
|
||||||
|
|
||||||
|
/* if A >= m then A = A - m */
|
||||||
|
if (fp_cmp_mag (a, m) != FP_LT) {
|
||||||
|
s_fp_sub (a, m, a);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mont/fp_montgomery_reduce.c,v $ */
|
||||||
|
/* $Revision: 1.2 $ */
|
||||||
|
/* $Date: 2007/03/14 23:47:42 $ */
|
||||||
48
lib/hcrypto/tomsfastmath/src/mont/fp_montgomery_setup.c
Normal file
48
lib/hcrypto/tomsfastmath/src/mont/fp_montgomery_setup.c
Normal file
@@ -0,0 +1,48 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* setups the montgomery reduction */
|
||||||
|
int fp_montgomery_setup(fp_int *a, fp_digit *rho)
|
||||||
|
{
|
||||||
|
fp_digit x, b;
|
||||||
|
|
||||||
|
/* fast inversion mod 2**k
|
||||||
|
*
|
||||||
|
* Based on the fact that
|
||||||
|
*
|
||||||
|
* XA = 1 (mod 2**n) => (X(2-XA)) A = 1 (mod 2**2n)
|
||||||
|
* => 2*X*A - X*X*A*A = 1
|
||||||
|
* => 2*(1) - (1) = 1
|
||||||
|
*/
|
||||||
|
b = a->dp[0];
|
||||||
|
|
||||||
|
if ((b & 1) == 0) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
x = (((b + 2) & 4) << 1) + b; /* here x*a==1 mod 2**4 */
|
||||||
|
x *= 2 - b * x; /* here x*a==1 mod 2**8 */
|
||||||
|
x *= 2 - b * x; /* here x*a==1 mod 2**16 */
|
||||||
|
x *= 2 - b * x; /* here x*a==1 mod 2**32 */
|
||||||
|
#ifdef FP_64BIT
|
||||||
|
x *= 2 - b * x; /* here x*a==1 mod 2**64 */
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* rho = -1/m mod b */
|
||||||
|
*rho = (((fp_word) 1 << ((fp_word) DIGIT_BIT)) - ((fp_word)x));
|
||||||
|
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mont/fp_montgomery_setup.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
128
lib/hcrypto/tomsfastmath/src/mul/fp_mul.c
Normal file
128
lib/hcrypto/tomsfastmath/src/mul/fp_mul.c
Normal file
@@ -0,0 +1,128 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a * b */
|
||||||
|
void fp_mul(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
int y, yy;
|
||||||
|
|
||||||
|
/* call generic if we're out of range */
|
||||||
|
if (A->used + B->used > FP_SIZE) {
|
||||||
|
fp_mul_comba(A, B, C);
|
||||||
|
return ;
|
||||||
|
}
|
||||||
|
|
||||||
|
y = MAX(A->used, B->used);
|
||||||
|
yy = MIN(A->used, B->used);
|
||||||
|
/* pick a comba (unrolled 4/8/16/32 x or rolled) based on the size
|
||||||
|
of the largest input. We also want to avoid doing excess mults if the
|
||||||
|
inputs are not close to the next power of two. That is, for example,
|
||||||
|
if say y=17 then we would do (32-17)^2 = 225 unneeded multiplications
|
||||||
|
*/
|
||||||
|
|
||||||
|
#ifdef TFM_MUL3
|
||||||
|
if (y <= 3) {
|
||||||
|
fp_mul_comba3(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL4
|
||||||
|
if (y == 4) {
|
||||||
|
fp_mul_comba4(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL6
|
||||||
|
if (y <= 6) {
|
||||||
|
fp_mul_comba6(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL7
|
||||||
|
if (y == 7) {
|
||||||
|
fp_mul_comba7(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL8
|
||||||
|
if (y == 8) {
|
||||||
|
fp_mul_comba8(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL9
|
||||||
|
if (y == 9) {
|
||||||
|
fp_mul_comba9(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL12
|
||||||
|
if (y <= 12) {
|
||||||
|
fp_mul_comba12(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#ifdef TFM_MUL17
|
||||||
|
if (y <= 17) {
|
||||||
|
fp_mul_comba17(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifdef TFM_SMALL_SET
|
||||||
|
if (y <= 16) {
|
||||||
|
fp_mul_comba_small(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL20)
|
||||||
|
if (y <= 20) {
|
||||||
|
fp_mul_comba20(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL24)
|
||||||
|
if (yy >= 16 && y <= 24) {
|
||||||
|
fp_mul_comba24(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL28)
|
||||||
|
if (yy >= 20 && y <= 28) {
|
||||||
|
fp_mul_comba28(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL32)
|
||||||
|
if (yy >= 24 && y <= 32) {
|
||||||
|
fp_mul_comba32(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL48)
|
||||||
|
if (yy >= 40 && y <= 48) {
|
||||||
|
fp_mul_comba48(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
#if defined(TFM_MUL64)
|
||||||
|
if (yy >= 56 && y <= 64) {
|
||||||
|
fp_mul_comba64(A,B,C);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
fp_mul_comba(A,B,C);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mul.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
67
lib/hcrypto/tomsfastmath/src/mul/fp_mul_2.c
Normal file
67
lib/hcrypto/tomsfastmath/src/mul/fp_mul_2.c
Normal file
@@ -0,0 +1,67 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
void fp_mul_2(fp_int * a, fp_int * b)
|
||||||
|
{
|
||||||
|
int x, oldused;
|
||||||
|
|
||||||
|
oldused = b->used;
|
||||||
|
b->used = a->used;
|
||||||
|
|
||||||
|
{
|
||||||
|
register fp_digit r, rr, *tmpa, *tmpb;
|
||||||
|
|
||||||
|
/* alias for source */
|
||||||
|
tmpa = a->dp;
|
||||||
|
|
||||||
|
/* alias for dest */
|
||||||
|
tmpb = b->dp;
|
||||||
|
|
||||||
|
/* carry */
|
||||||
|
r = 0;
|
||||||
|
for (x = 0; x < a->used; x++) {
|
||||||
|
|
||||||
|
/* get what will be the *next* carry bit from the
|
||||||
|
* MSB of the current digit
|
||||||
|
*/
|
||||||
|
rr = *tmpa >> ((fp_digit)(DIGIT_BIT - 1));
|
||||||
|
|
||||||
|
/* now shift up this digit, add in the carry [from the previous] */
|
||||||
|
*tmpb++ = ((*tmpa++ << ((fp_digit)1)) | r);
|
||||||
|
|
||||||
|
/* copy the carry that would be from the source
|
||||||
|
* digit into the next iteration
|
||||||
|
*/
|
||||||
|
r = rr;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* new leading digit? */
|
||||||
|
if (r != 0 && b->used != (FP_SIZE-1)) {
|
||||||
|
/* add a MSB which is always 1 at this point */
|
||||||
|
*tmpb = 1;
|
||||||
|
++(b->used);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now zero any excess digits on the destination
|
||||||
|
* that we didn't write to
|
||||||
|
*/
|
||||||
|
tmpb = b->dp + b->used;
|
||||||
|
for (x = b->used; x < oldused; x++) {
|
||||||
|
*tmpb++ = 0;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
b->sign = a->sign;
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mul_2.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
47
lib/hcrypto/tomsfastmath/src/mul/fp_mul_2d.c
Normal file
47
lib/hcrypto/tomsfastmath/src/mul/fp_mul_2d.c
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a * 2**d */
|
||||||
|
void fp_mul_2d(fp_int *a, int b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_digit carry, carrytmp, shift;
|
||||||
|
int x;
|
||||||
|
|
||||||
|
/* copy it */
|
||||||
|
fp_copy(a, c);
|
||||||
|
|
||||||
|
/* handle whole digits */
|
||||||
|
if (b >= DIGIT_BIT) {
|
||||||
|
fp_lshd(c, b/DIGIT_BIT);
|
||||||
|
}
|
||||||
|
b %= DIGIT_BIT;
|
||||||
|
|
||||||
|
/* shift the digits */
|
||||||
|
if (b != 0) {
|
||||||
|
carry = 0;
|
||||||
|
shift = DIGIT_BIT - b;
|
||||||
|
for (x = 0; x < c->used; x++) {
|
||||||
|
carrytmp = c->dp[x] >> shift;
|
||||||
|
c->dp[x] = (c->dp[x] << b) + carry;
|
||||||
|
carry = carrytmp;
|
||||||
|
}
|
||||||
|
/* store last carry if room */
|
||||||
|
if (carry && x < FP_SIZE) {
|
||||||
|
c->dp[c->used++] = carry;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
fp_clamp(c);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mul_2d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
368
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba.c
Normal file
368
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba.c
Normal file
@@ -0,0 +1,368 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
|
||||||
|
/* About this file...
|
||||||
|
|
||||||
|
*/
|
||||||
|
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
#if defined(TFM_PRESCOTT) && defined(TFM_SSE2)
|
||||||
|
#undef TFM_SSE2
|
||||||
|
#define TFM_X86
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* these are the combas. Worship them. */
|
||||||
|
#if defined(TFM_X86)
|
||||||
|
/* Generic x86 optimized code */
|
||||||
|
|
||||||
|
/* anything you need at the start */
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
/* clear the chaining variables */
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
/* forward the carry to the next digit */
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
/* store the first sum */
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
/* store the second sum [carry] */
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
/* anything you need at the end */
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
/* this should multiply i and j */
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
"movl %6,%%eax \n\t" \
|
||||||
|
"mull %7 \n\t" \
|
||||||
|
"addl %%eax,%0 \n\t" \
|
||||||
|
"adcl %%edx,%1 \n\t" \
|
||||||
|
"adcl $0,%2 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2): "0"(c0), "1"(c1), "2"(c2), "m"(i), "m"(j) :"%eax","%edx","%cc");
|
||||||
|
|
||||||
|
#elif defined(TFM_X86_64)
|
||||||
|
/* x86-64 optimized */
|
||||||
|
|
||||||
|
/* anything you need at the start */
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
/* clear the chaining variables */
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
/* forward the carry to the next digit */
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
/* store the first sum */
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
/* store the second sum [carry] */
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
/* anything you need at the end */
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
/* this should multiply i and j */
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm ( \
|
||||||
|
"movq %6,%%rax \n\t" \
|
||||||
|
"mulq %7 \n\t" \
|
||||||
|
"addq %%rax,%0 \n\t" \
|
||||||
|
"adcq %%rdx,%1 \n\t" \
|
||||||
|
"adcq $0,%2 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2): "0"(c0), "1"(c1), "2"(c2), "g"(i), "g"(j) :"%rax","%rdx","%cc");
|
||||||
|
|
||||||
|
#elif defined(TFM_SSE2)
|
||||||
|
/* use SSE2 optimizations */
|
||||||
|
|
||||||
|
/* anything you need at the start */
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
/* clear the chaining variables */
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
/* forward the carry to the next digit */
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
/* store the first sum */
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
/* store the second sum [carry] */
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
/* anything you need at the end */
|
||||||
|
#define COMBA_FINI \
|
||||||
|
asm("emms");
|
||||||
|
|
||||||
|
/* this should multiply i and j */
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
"movd %6,%%mm0 \n\t" \
|
||||||
|
"movd %7,%%mm1 \n\t" \
|
||||||
|
"pmuludq %%mm1,%%mm0\n\t" \
|
||||||
|
"movd %%mm0,%%eax \n\t" \
|
||||||
|
"psrlq $32,%%mm0 \n\t" \
|
||||||
|
"addl %%eax,%0 \n\t" \
|
||||||
|
"movd %%mm0,%%eax \n\t" \
|
||||||
|
"adcl %%eax,%1 \n\t" \
|
||||||
|
"adcl $0,%2 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2): "0"(c0), "1"(c1), "2"(c2), "m"(i), "m"(j) :"%eax","%cc");
|
||||||
|
|
||||||
|
#elif defined(TFM_ARM)
|
||||||
|
/* ARM code */
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
" UMULL r0,r1,%6,%7 \n\t" \
|
||||||
|
" ADDS %0,%0,r0 \n\t" \
|
||||||
|
" ADCS %1,%1,r1 \n\t" \
|
||||||
|
" ADC %2,%2,#0 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2) : "0"(c0), "1"(c1), "2"(c2), "r"(i), "r"(j) : "r0", "r1", "%cc");
|
||||||
|
|
||||||
|
#elif defined(TFM_PPC32)
|
||||||
|
/* For 32-bit PPC */
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
/* untested: will mulhwu change the flags? Docs say no */
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
" mullw 16,%6,%7 \n\t" \
|
||||||
|
" addc %0,%0,16 \n\t" \
|
||||||
|
" mulhwu 16,%6,%7 \n\t" \
|
||||||
|
" adde %1,%1,16 \n\t" \
|
||||||
|
" addze %2,%2 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2):"0"(c0), "1"(c1), "2"(c2), "r"(i), "r"(j):"16");
|
||||||
|
|
||||||
|
#elif defined(TFM_PPC64)
|
||||||
|
/* For 64-bit PPC */
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
/* untested: will mulhdu change the flags? Docs say no */
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
" mulld r16,%6,%7 \n\t" \
|
||||||
|
" addc %0,%0,16 \n\t" \
|
||||||
|
" mulhdu r16,%6,%7 \n\t" \
|
||||||
|
" adde %1,%1,16 \n\t" \
|
||||||
|
" addze %2,%2 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2):"0"(c0), "1"(c1), "2"(c2), "r"(i), "r"(j):"r16");
|
||||||
|
|
||||||
|
#elif defined(TFM_AVR32)
|
||||||
|
|
||||||
|
/* ISO C code */
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
" mulu.d r2,%6,%7 \n\t"\
|
||||||
|
" add %0,r2 \n\t"\
|
||||||
|
" adc %1,%1,r3 \n\t"\
|
||||||
|
" acr %2 \n\t"\
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2):"0"(c0), "1"(c1), "2"(c2), "r"(i), "r"(j):"r2","r3");
|
||||||
|
|
||||||
|
#elif defined(TFM_MIPS)
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
asm( \
|
||||||
|
" multu %6,%7 \n\t" \
|
||||||
|
" mflo $12 \n\t" \
|
||||||
|
" mfhi $13 \n\t" \
|
||||||
|
" addu %0,%0,$12 \n\t" \
|
||||||
|
" sltu $12,%0,$12 \n\t" \
|
||||||
|
" addu %1,%1,$13 \n\t" \
|
||||||
|
" sltu $13,%1,$13 \n\t" \
|
||||||
|
" addu %1,%1,$12 \n\t" \
|
||||||
|
" sltu $12,%1,$12 \n\t" \
|
||||||
|
" addu %2,%2,$13 \n\t" \
|
||||||
|
" addu %2,%2,$12 \n\t" \
|
||||||
|
:"=r"(c0), "=r"(c1), "=r"(c2):"0"(c0), "1"(c1), "2"(c2), "r"(i), "r"(j):"$12","$13");
|
||||||
|
|
||||||
|
#else
|
||||||
|
/* ISO C code */
|
||||||
|
|
||||||
|
#define COMBA_START
|
||||||
|
|
||||||
|
#define COMBA_CLEAR \
|
||||||
|
c0 = c1 = c2 = 0;
|
||||||
|
|
||||||
|
#define COMBA_FORWARD \
|
||||||
|
do { c0 = c1; c1 = c2; c2 = 0; } while (0);
|
||||||
|
|
||||||
|
#define COMBA_STORE(x) \
|
||||||
|
x = c0;
|
||||||
|
|
||||||
|
#define COMBA_STORE2(x) \
|
||||||
|
x = c1;
|
||||||
|
|
||||||
|
#define COMBA_FINI
|
||||||
|
|
||||||
|
#define MULADD(i, j) \
|
||||||
|
do { fp_word t; \
|
||||||
|
t = (fp_word)c0 + ((fp_word)i) * ((fp_word)j); c0 = t; \
|
||||||
|
t = (fp_word)c1 + (t >> DIGIT_BIT); c1 = t; c2 += t >> DIGIT_BIT; \
|
||||||
|
} while (0);
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
#ifndef TFM_DEFINES
|
||||||
|
|
||||||
|
/* generic PxQ multiplier */
|
||||||
|
void fp_mul_comba(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
int ix, iy, iz, tx, ty, pa;
|
||||||
|
fp_digit c0, c1, c2, *tmpx, *tmpy;
|
||||||
|
fp_int tmp, *dst;
|
||||||
|
|
||||||
|
COMBA_START;
|
||||||
|
COMBA_CLEAR;
|
||||||
|
|
||||||
|
/* get size of output and trim */
|
||||||
|
pa = A->used + B->used;
|
||||||
|
if (pa >= FP_SIZE) {
|
||||||
|
pa = FP_SIZE-1;
|
||||||
|
}
|
||||||
|
|
||||||
|
if (A == C || B == C) {
|
||||||
|
fp_zero(&tmp);
|
||||||
|
dst = &tmp;
|
||||||
|
} else {
|
||||||
|
fp_zero(C);
|
||||||
|
dst = C;
|
||||||
|
}
|
||||||
|
|
||||||
|
for (ix = 0; ix < pa; ix++) {
|
||||||
|
/* get offsets into the two bignums */
|
||||||
|
ty = MIN(ix, B->used-1);
|
||||||
|
tx = ix - ty;
|
||||||
|
|
||||||
|
/* setup temp aliases */
|
||||||
|
tmpx = A->dp + tx;
|
||||||
|
tmpy = B->dp + ty;
|
||||||
|
|
||||||
|
/* this is the number of times the loop will iterrate, essentially its
|
||||||
|
while (tx++ < a->used && ty-- >= 0) { ... }
|
||||||
|
*/
|
||||||
|
iy = MIN(A->used-tx, ty+1);
|
||||||
|
|
||||||
|
/* execute loop */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
for (iz = 0; iz < iy; ++iz) {
|
||||||
|
MULADD(*tmpx++, *tmpy--);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* store term */
|
||||||
|
COMBA_STORE(dst->dp[ix]);
|
||||||
|
}
|
||||||
|
COMBA_FINI;
|
||||||
|
|
||||||
|
dst->used = pa;
|
||||||
|
dst->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(dst);
|
||||||
|
fp_copy(dst, C);
|
||||||
|
}
|
||||||
|
|
||||||
|
#endif
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mul_comba.c,v $ */
|
||||||
|
/* $Revision: 1.4 $ */
|
||||||
|
/* $Date: 2007/03/14 23:47:42 $ */
|
||||||
|
|
||||||
111
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_12.c
Normal file
111
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_12.c
Normal file
@@ -0,0 +1,111 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL12
|
||||||
|
void fp_mul_comba12(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[24];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 12 * sizeof(fp_digit));
|
||||||
|
memcpy(at+12, B->dp, 12 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[12]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[13]); MULADD(at[1], at[12]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[14]); MULADD(at[1], at[13]); MULADD(at[2], at[12]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[15]); MULADD(at[1], at[14]); MULADD(at[2], at[13]); MULADD(at[3], at[12]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[16]); MULADD(at[1], at[15]); MULADD(at[2], at[14]); MULADD(at[3], at[13]); MULADD(at[4], at[12]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[17]); MULADD(at[1], at[16]); MULADD(at[2], at[15]); MULADD(at[3], at[14]); MULADD(at[4], at[13]); MULADD(at[5], at[12]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[18]); MULADD(at[1], at[17]); MULADD(at[2], at[16]); MULADD(at[3], at[15]); MULADD(at[4], at[14]); MULADD(at[5], at[13]); MULADD(at[6], at[12]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[19]); MULADD(at[1], at[18]); MULADD(at[2], at[17]); MULADD(at[3], at[16]); MULADD(at[4], at[15]); MULADD(at[5], at[14]); MULADD(at[6], at[13]); MULADD(at[7], at[12]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[20]); MULADD(at[1], at[19]); MULADD(at[2], at[18]); MULADD(at[3], at[17]); MULADD(at[4], at[16]); MULADD(at[5], at[15]); MULADD(at[6], at[14]); MULADD(at[7], at[13]); MULADD(at[8], at[12]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[21]); MULADD(at[1], at[20]); MULADD(at[2], at[19]); MULADD(at[3], at[18]); MULADD(at[4], at[17]); MULADD(at[5], at[16]); MULADD(at[6], at[15]); MULADD(at[7], at[14]); MULADD(at[8], at[13]); MULADD(at[9], at[12]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[22]); MULADD(at[1], at[21]); MULADD(at[2], at[20]); MULADD(at[3], at[19]); MULADD(at[4], at[18]); MULADD(at[5], at[17]); MULADD(at[6], at[16]); MULADD(at[7], at[15]); MULADD(at[8], at[14]); MULADD(at[9], at[13]); MULADD(at[10], at[12]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[23]); MULADD(at[1], at[22]); MULADD(at[2], at[21]); MULADD(at[3], at[20]); MULADD(at[4], at[19]); MULADD(at[5], at[18]); MULADD(at[6], at[17]); MULADD(at[7], at[16]); MULADD(at[8], at[15]); MULADD(at[9], at[14]); MULADD(at[10], at[13]); MULADD(at[11], at[12]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[23]); MULADD(at[2], at[22]); MULADD(at[3], at[21]); MULADD(at[4], at[20]); MULADD(at[5], at[19]); MULADD(at[6], at[18]); MULADD(at[7], at[17]); MULADD(at[8], at[16]); MULADD(at[9], at[15]); MULADD(at[10], at[14]); MULADD(at[11], at[13]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[23]); MULADD(at[3], at[22]); MULADD(at[4], at[21]); MULADD(at[5], at[20]); MULADD(at[6], at[19]); MULADD(at[7], at[18]); MULADD(at[8], at[17]); MULADD(at[9], at[16]); MULADD(at[10], at[15]); MULADD(at[11], at[14]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[23]); MULADD(at[4], at[22]); MULADD(at[5], at[21]); MULADD(at[6], at[20]); MULADD(at[7], at[19]); MULADD(at[8], at[18]); MULADD(at[9], at[17]); MULADD(at[10], at[16]); MULADD(at[11], at[15]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[23]); MULADD(at[5], at[22]); MULADD(at[6], at[21]); MULADD(at[7], at[20]); MULADD(at[8], at[19]); MULADD(at[9], at[18]); MULADD(at[10], at[17]); MULADD(at[11], at[16]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[23]); MULADD(at[6], at[22]); MULADD(at[7], at[21]); MULADD(at[8], at[20]); MULADD(at[9], at[19]); MULADD(at[10], at[18]); MULADD(at[11], at[17]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[23]); MULADD(at[7], at[22]); MULADD(at[8], at[21]); MULADD(at[9], at[20]); MULADD(at[10], at[19]); MULADD(at[11], at[18]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[23]); MULADD(at[8], at[22]); MULADD(at[9], at[21]); MULADD(at[10], at[20]); MULADD(at[11], at[19]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[23]); MULADD(at[9], at[22]); MULADD(at[10], at[21]); MULADD(at[11], at[20]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[23]); MULADD(at[10], at[22]); MULADD(at[11], at[21]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[23]); MULADD(at[11], at[22]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[23]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
COMBA_STORE2(C->dp[23]);
|
||||||
|
C->used = 24;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
151
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_17.c
Normal file
151
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_17.c
Normal file
@@ -0,0 +1,151 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL17
|
||||||
|
void fp_mul_comba17(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[34];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 17 * sizeof(fp_digit));
|
||||||
|
memcpy(at+17, B->dp, 17 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[17]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[18]); MULADD(at[1], at[17]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[19]); MULADD(at[1], at[18]); MULADD(at[2], at[17]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[20]); MULADD(at[1], at[19]); MULADD(at[2], at[18]); MULADD(at[3], at[17]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[21]); MULADD(at[1], at[20]); MULADD(at[2], at[19]); MULADD(at[3], at[18]); MULADD(at[4], at[17]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[22]); MULADD(at[1], at[21]); MULADD(at[2], at[20]); MULADD(at[3], at[19]); MULADD(at[4], at[18]); MULADD(at[5], at[17]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[23]); MULADD(at[1], at[22]); MULADD(at[2], at[21]); MULADD(at[3], at[20]); MULADD(at[4], at[19]); MULADD(at[5], at[18]); MULADD(at[6], at[17]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[24]); MULADD(at[1], at[23]); MULADD(at[2], at[22]); MULADD(at[3], at[21]); MULADD(at[4], at[20]); MULADD(at[5], at[19]); MULADD(at[6], at[18]); MULADD(at[7], at[17]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[25]); MULADD(at[1], at[24]); MULADD(at[2], at[23]); MULADD(at[3], at[22]); MULADD(at[4], at[21]); MULADD(at[5], at[20]); MULADD(at[6], at[19]); MULADD(at[7], at[18]); MULADD(at[8], at[17]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[26]); MULADD(at[1], at[25]); MULADD(at[2], at[24]); MULADD(at[3], at[23]); MULADD(at[4], at[22]); MULADD(at[5], at[21]); MULADD(at[6], at[20]); MULADD(at[7], at[19]); MULADD(at[8], at[18]); MULADD(at[9], at[17]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[27]); MULADD(at[1], at[26]); MULADD(at[2], at[25]); MULADD(at[3], at[24]); MULADD(at[4], at[23]); MULADD(at[5], at[22]); MULADD(at[6], at[21]); MULADD(at[7], at[20]); MULADD(at[8], at[19]); MULADD(at[9], at[18]); MULADD(at[10], at[17]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[28]); MULADD(at[1], at[27]); MULADD(at[2], at[26]); MULADD(at[3], at[25]); MULADD(at[4], at[24]); MULADD(at[5], at[23]); MULADD(at[6], at[22]); MULADD(at[7], at[21]); MULADD(at[8], at[20]); MULADD(at[9], at[19]); MULADD(at[10], at[18]); MULADD(at[11], at[17]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[29]); MULADD(at[1], at[28]); MULADD(at[2], at[27]); MULADD(at[3], at[26]); MULADD(at[4], at[25]); MULADD(at[5], at[24]); MULADD(at[6], at[23]); MULADD(at[7], at[22]); MULADD(at[8], at[21]); MULADD(at[9], at[20]); MULADD(at[10], at[19]); MULADD(at[11], at[18]); MULADD(at[12], at[17]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[30]); MULADD(at[1], at[29]); MULADD(at[2], at[28]); MULADD(at[3], at[27]); MULADD(at[4], at[26]); MULADD(at[5], at[25]); MULADD(at[6], at[24]); MULADD(at[7], at[23]); MULADD(at[8], at[22]); MULADD(at[9], at[21]); MULADD(at[10], at[20]); MULADD(at[11], at[19]); MULADD(at[12], at[18]); MULADD(at[13], at[17]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[31]); MULADD(at[1], at[30]); MULADD(at[2], at[29]); MULADD(at[3], at[28]); MULADD(at[4], at[27]); MULADD(at[5], at[26]); MULADD(at[6], at[25]); MULADD(at[7], at[24]); MULADD(at[8], at[23]); MULADD(at[9], at[22]); MULADD(at[10], at[21]); MULADD(at[11], at[20]); MULADD(at[12], at[19]); MULADD(at[13], at[18]); MULADD(at[14], at[17]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[32]); MULADD(at[1], at[31]); MULADD(at[2], at[30]); MULADD(at[3], at[29]); MULADD(at[4], at[28]); MULADD(at[5], at[27]); MULADD(at[6], at[26]); MULADD(at[7], at[25]); MULADD(at[8], at[24]); MULADD(at[9], at[23]); MULADD(at[10], at[22]); MULADD(at[11], at[21]); MULADD(at[12], at[20]); MULADD(at[13], at[19]); MULADD(at[14], at[18]); MULADD(at[15], at[17]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[33]); MULADD(at[1], at[32]); MULADD(at[2], at[31]); MULADD(at[3], at[30]); MULADD(at[4], at[29]); MULADD(at[5], at[28]); MULADD(at[6], at[27]); MULADD(at[7], at[26]); MULADD(at[8], at[25]); MULADD(at[9], at[24]); MULADD(at[10], at[23]); MULADD(at[11], at[22]); MULADD(at[12], at[21]); MULADD(at[13], at[20]); MULADD(at[14], at[19]); MULADD(at[15], at[18]); MULADD(at[16], at[17]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[33]); MULADD(at[2], at[32]); MULADD(at[3], at[31]); MULADD(at[4], at[30]); MULADD(at[5], at[29]); MULADD(at[6], at[28]); MULADD(at[7], at[27]); MULADD(at[8], at[26]); MULADD(at[9], at[25]); MULADD(at[10], at[24]); MULADD(at[11], at[23]); MULADD(at[12], at[22]); MULADD(at[13], at[21]); MULADD(at[14], at[20]); MULADD(at[15], at[19]); MULADD(at[16], at[18]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[33]); MULADD(at[3], at[32]); MULADD(at[4], at[31]); MULADD(at[5], at[30]); MULADD(at[6], at[29]); MULADD(at[7], at[28]); MULADD(at[8], at[27]); MULADD(at[9], at[26]); MULADD(at[10], at[25]); MULADD(at[11], at[24]); MULADD(at[12], at[23]); MULADD(at[13], at[22]); MULADD(at[14], at[21]); MULADD(at[15], at[20]); MULADD(at[16], at[19]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[33]); MULADD(at[4], at[32]); MULADD(at[5], at[31]); MULADD(at[6], at[30]); MULADD(at[7], at[29]); MULADD(at[8], at[28]); MULADD(at[9], at[27]); MULADD(at[10], at[26]); MULADD(at[11], at[25]); MULADD(at[12], at[24]); MULADD(at[13], at[23]); MULADD(at[14], at[22]); MULADD(at[15], at[21]); MULADD(at[16], at[20]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[33]); MULADD(at[5], at[32]); MULADD(at[6], at[31]); MULADD(at[7], at[30]); MULADD(at[8], at[29]); MULADD(at[9], at[28]); MULADD(at[10], at[27]); MULADD(at[11], at[26]); MULADD(at[12], at[25]); MULADD(at[13], at[24]); MULADD(at[14], at[23]); MULADD(at[15], at[22]); MULADD(at[16], at[21]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[33]); MULADD(at[6], at[32]); MULADD(at[7], at[31]); MULADD(at[8], at[30]); MULADD(at[9], at[29]); MULADD(at[10], at[28]); MULADD(at[11], at[27]); MULADD(at[12], at[26]); MULADD(at[13], at[25]); MULADD(at[14], at[24]); MULADD(at[15], at[23]); MULADD(at[16], at[22]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[33]); MULADD(at[7], at[32]); MULADD(at[8], at[31]); MULADD(at[9], at[30]); MULADD(at[10], at[29]); MULADD(at[11], at[28]); MULADD(at[12], at[27]); MULADD(at[13], at[26]); MULADD(at[14], at[25]); MULADD(at[15], at[24]); MULADD(at[16], at[23]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[33]); MULADD(at[8], at[32]); MULADD(at[9], at[31]); MULADD(at[10], at[30]); MULADD(at[11], at[29]); MULADD(at[12], at[28]); MULADD(at[13], at[27]); MULADD(at[14], at[26]); MULADD(at[15], at[25]); MULADD(at[16], at[24]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[33]); MULADD(at[9], at[32]); MULADD(at[10], at[31]); MULADD(at[11], at[30]); MULADD(at[12], at[29]); MULADD(at[13], at[28]); MULADD(at[14], at[27]); MULADD(at[15], at[26]); MULADD(at[16], at[25]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[33]); MULADD(at[10], at[32]); MULADD(at[11], at[31]); MULADD(at[12], at[30]); MULADD(at[13], at[29]); MULADD(at[14], at[28]); MULADD(at[15], at[27]); MULADD(at[16], at[26]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[33]); MULADD(at[11], at[32]); MULADD(at[12], at[31]); MULADD(at[13], at[30]); MULADD(at[14], at[29]); MULADD(at[15], at[28]); MULADD(at[16], at[27]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[33]); MULADD(at[12], at[32]); MULADD(at[13], at[31]); MULADD(at[14], at[30]); MULADD(at[15], at[29]); MULADD(at[16], at[28]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[33]); MULADD(at[13], at[32]); MULADD(at[14], at[31]); MULADD(at[15], at[30]); MULADD(at[16], at[29]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[33]); MULADD(at[14], at[32]); MULADD(at[15], at[31]); MULADD(at[16], at[30]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[33]); MULADD(at[15], at[32]); MULADD(at[16], at[31]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[33]); MULADD(at[16], at[32]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[33]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
COMBA_STORE2(C->dp[33]);
|
||||||
|
C->used = 34;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
175
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_20.c
Normal file
175
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_20.c
Normal file
@@ -0,0 +1,175 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL20
|
||||||
|
void fp_mul_comba20(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[40];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 20 * sizeof(fp_digit));
|
||||||
|
memcpy(at+20, B->dp, 20 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[20]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[21]); MULADD(at[1], at[20]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[22]); MULADD(at[1], at[21]); MULADD(at[2], at[20]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[23]); MULADD(at[1], at[22]); MULADD(at[2], at[21]); MULADD(at[3], at[20]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[24]); MULADD(at[1], at[23]); MULADD(at[2], at[22]); MULADD(at[3], at[21]); MULADD(at[4], at[20]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[25]); MULADD(at[1], at[24]); MULADD(at[2], at[23]); MULADD(at[3], at[22]); MULADD(at[4], at[21]); MULADD(at[5], at[20]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[26]); MULADD(at[1], at[25]); MULADD(at[2], at[24]); MULADD(at[3], at[23]); MULADD(at[4], at[22]); MULADD(at[5], at[21]); MULADD(at[6], at[20]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[27]); MULADD(at[1], at[26]); MULADD(at[2], at[25]); MULADD(at[3], at[24]); MULADD(at[4], at[23]); MULADD(at[5], at[22]); MULADD(at[6], at[21]); MULADD(at[7], at[20]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[28]); MULADD(at[1], at[27]); MULADD(at[2], at[26]); MULADD(at[3], at[25]); MULADD(at[4], at[24]); MULADD(at[5], at[23]); MULADD(at[6], at[22]); MULADD(at[7], at[21]); MULADD(at[8], at[20]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[29]); MULADD(at[1], at[28]); MULADD(at[2], at[27]); MULADD(at[3], at[26]); MULADD(at[4], at[25]); MULADD(at[5], at[24]); MULADD(at[6], at[23]); MULADD(at[7], at[22]); MULADD(at[8], at[21]); MULADD(at[9], at[20]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[30]); MULADD(at[1], at[29]); MULADD(at[2], at[28]); MULADD(at[3], at[27]); MULADD(at[4], at[26]); MULADD(at[5], at[25]); MULADD(at[6], at[24]); MULADD(at[7], at[23]); MULADD(at[8], at[22]); MULADD(at[9], at[21]); MULADD(at[10], at[20]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[31]); MULADD(at[1], at[30]); MULADD(at[2], at[29]); MULADD(at[3], at[28]); MULADD(at[4], at[27]); MULADD(at[5], at[26]); MULADD(at[6], at[25]); MULADD(at[7], at[24]); MULADD(at[8], at[23]); MULADD(at[9], at[22]); MULADD(at[10], at[21]); MULADD(at[11], at[20]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[32]); MULADD(at[1], at[31]); MULADD(at[2], at[30]); MULADD(at[3], at[29]); MULADD(at[4], at[28]); MULADD(at[5], at[27]); MULADD(at[6], at[26]); MULADD(at[7], at[25]); MULADD(at[8], at[24]); MULADD(at[9], at[23]); MULADD(at[10], at[22]); MULADD(at[11], at[21]); MULADD(at[12], at[20]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[33]); MULADD(at[1], at[32]); MULADD(at[2], at[31]); MULADD(at[3], at[30]); MULADD(at[4], at[29]); MULADD(at[5], at[28]); MULADD(at[6], at[27]); MULADD(at[7], at[26]); MULADD(at[8], at[25]); MULADD(at[9], at[24]); MULADD(at[10], at[23]); MULADD(at[11], at[22]); MULADD(at[12], at[21]); MULADD(at[13], at[20]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[34]); MULADD(at[1], at[33]); MULADD(at[2], at[32]); MULADD(at[3], at[31]); MULADD(at[4], at[30]); MULADD(at[5], at[29]); MULADD(at[6], at[28]); MULADD(at[7], at[27]); MULADD(at[8], at[26]); MULADD(at[9], at[25]); MULADD(at[10], at[24]); MULADD(at[11], at[23]); MULADD(at[12], at[22]); MULADD(at[13], at[21]); MULADD(at[14], at[20]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[35]); MULADD(at[1], at[34]); MULADD(at[2], at[33]); MULADD(at[3], at[32]); MULADD(at[4], at[31]); MULADD(at[5], at[30]); MULADD(at[6], at[29]); MULADD(at[7], at[28]); MULADD(at[8], at[27]); MULADD(at[9], at[26]); MULADD(at[10], at[25]); MULADD(at[11], at[24]); MULADD(at[12], at[23]); MULADD(at[13], at[22]); MULADD(at[14], at[21]); MULADD(at[15], at[20]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[36]); MULADD(at[1], at[35]); MULADD(at[2], at[34]); MULADD(at[3], at[33]); MULADD(at[4], at[32]); MULADD(at[5], at[31]); MULADD(at[6], at[30]); MULADD(at[7], at[29]); MULADD(at[8], at[28]); MULADD(at[9], at[27]); MULADD(at[10], at[26]); MULADD(at[11], at[25]); MULADD(at[12], at[24]); MULADD(at[13], at[23]); MULADD(at[14], at[22]); MULADD(at[15], at[21]); MULADD(at[16], at[20]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[37]); MULADD(at[1], at[36]); MULADD(at[2], at[35]); MULADD(at[3], at[34]); MULADD(at[4], at[33]); MULADD(at[5], at[32]); MULADD(at[6], at[31]); MULADD(at[7], at[30]); MULADD(at[8], at[29]); MULADD(at[9], at[28]); MULADD(at[10], at[27]); MULADD(at[11], at[26]); MULADD(at[12], at[25]); MULADD(at[13], at[24]); MULADD(at[14], at[23]); MULADD(at[15], at[22]); MULADD(at[16], at[21]); MULADD(at[17], at[20]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[38]); MULADD(at[1], at[37]); MULADD(at[2], at[36]); MULADD(at[3], at[35]); MULADD(at[4], at[34]); MULADD(at[5], at[33]); MULADD(at[6], at[32]); MULADD(at[7], at[31]); MULADD(at[8], at[30]); MULADD(at[9], at[29]); MULADD(at[10], at[28]); MULADD(at[11], at[27]); MULADD(at[12], at[26]); MULADD(at[13], at[25]); MULADD(at[14], at[24]); MULADD(at[15], at[23]); MULADD(at[16], at[22]); MULADD(at[17], at[21]); MULADD(at[18], at[20]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[39]); MULADD(at[1], at[38]); MULADD(at[2], at[37]); MULADD(at[3], at[36]); MULADD(at[4], at[35]); MULADD(at[5], at[34]); MULADD(at[6], at[33]); MULADD(at[7], at[32]); MULADD(at[8], at[31]); MULADD(at[9], at[30]); MULADD(at[10], at[29]); MULADD(at[11], at[28]); MULADD(at[12], at[27]); MULADD(at[13], at[26]); MULADD(at[14], at[25]); MULADD(at[15], at[24]); MULADD(at[16], at[23]); MULADD(at[17], at[22]); MULADD(at[18], at[21]); MULADD(at[19], at[20]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[39]); MULADD(at[2], at[38]); MULADD(at[3], at[37]); MULADD(at[4], at[36]); MULADD(at[5], at[35]); MULADD(at[6], at[34]); MULADD(at[7], at[33]); MULADD(at[8], at[32]); MULADD(at[9], at[31]); MULADD(at[10], at[30]); MULADD(at[11], at[29]); MULADD(at[12], at[28]); MULADD(at[13], at[27]); MULADD(at[14], at[26]); MULADD(at[15], at[25]); MULADD(at[16], at[24]); MULADD(at[17], at[23]); MULADD(at[18], at[22]); MULADD(at[19], at[21]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[39]); MULADD(at[3], at[38]); MULADD(at[4], at[37]); MULADD(at[5], at[36]); MULADD(at[6], at[35]); MULADD(at[7], at[34]); MULADD(at[8], at[33]); MULADD(at[9], at[32]); MULADD(at[10], at[31]); MULADD(at[11], at[30]); MULADD(at[12], at[29]); MULADD(at[13], at[28]); MULADD(at[14], at[27]); MULADD(at[15], at[26]); MULADD(at[16], at[25]); MULADD(at[17], at[24]); MULADD(at[18], at[23]); MULADD(at[19], at[22]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[39]); MULADD(at[4], at[38]); MULADD(at[5], at[37]); MULADD(at[6], at[36]); MULADD(at[7], at[35]); MULADD(at[8], at[34]); MULADD(at[9], at[33]); MULADD(at[10], at[32]); MULADD(at[11], at[31]); MULADD(at[12], at[30]); MULADD(at[13], at[29]); MULADD(at[14], at[28]); MULADD(at[15], at[27]); MULADD(at[16], at[26]); MULADD(at[17], at[25]); MULADD(at[18], at[24]); MULADD(at[19], at[23]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[39]); MULADD(at[5], at[38]); MULADD(at[6], at[37]); MULADD(at[7], at[36]); MULADD(at[8], at[35]); MULADD(at[9], at[34]); MULADD(at[10], at[33]); MULADD(at[11], at[32]); MULADD(at[12], at[31]); MULADD(at[13], at[30]); MULADD(at[14], at[29]); MULADD(at[15], at[28]); MULADD(at[16], at[27]); MULADD(at[17], at[26]); MULADD(at[18], at[25]); MULADD(at[19], at[24]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[39]); MULADD(at[6], at[38]); MULADD(at[7], at[37]); MULADD(at[8], at[36]); MULADD(at[9], at[35]); MULADD(at[10], at[34]); MULADD(at[11], at[33]); MULADD(at[12], at[32]); MULADD(at[13], at[31]); MULADD(at[14], at[30]); MULADD(at[15], at[29]); MULADD(at[16], at[28]); MULADD(at[17], at[27]); MULADD(at[18], at[26]); MULADD(at[19], at[25]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[39]); MULADD(at[7], at[38]); MULADD(at[8], at[37]); MULADD(at[9], at[36]); MULADD(at[10], at[35]); MULADD(at[11], at[34]); MULADD(at[12], at[33]); MULADD(at[13], at[32]); MULADD(at[14], at[31]); MULADD(at[15], at[30]); MULADD(at[16], at[29]); MULADD(at[17], at[28]); MULADD(at[18], at[27]); MULADD(at[19], at[26]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[39]); MULADD(at[8], at[38]); MULADD(at[9], at[37]); MULADD(at[10], at[36]); MULADD(at[11], at[35]); MULADD(at[12], at[34]); MULADD(at[13], at[33]); MULADD(at[14], at[32]); MULADD(at[15], at[31]); MULADD(at[16], at[30]); MULADD(at[17], at[29]); MULADD(at[18], at[28]); MULADD(at[19], at[27]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[39]); MULADD(at[9], at[38]); MULADD(at[10], at[37]); MULADD(at[11], at[36]); MULADD(at[12], at[35]); MULADD(at[13], at[34]); MULADD(at[14], at[33]); MULADD(at[15], at[32]); MULADD(at[16], at[31]); MULADD(at[17], at[30]); MULADD(at[18], at[29]); MULADD(at[19], at[28]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[39]); MULADD(at[10], at[38]); MULADD(at[11], at[37]); MULADD(at[12], at[36]); MULADD(at[13], at[35]); MULADD(at[14], at[34]); MULADD(at[15], at[33]); MULADD(at[16], at[32]); MULADD(at[17], at[31]); MULADD(at[18], at[30]); MULADD(at[19], at[29]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[39]); MULADD(at[11], at[38]); MULADD(at[12], at[37]); MULADD(at[13], at[36]); MULADD(at[14], at[35]); MULADD(at[15], at[34]); MULADD(at[16], at[33]); MULADD(at[17], at[32]); MULADD(at[18], at[31]); MULADD(at[19], at[30]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[39]); MULADD(at[12], at[38]); MULADD(at[13], at[37]); MULADD(at[14], at[36]); MULADD(at[15], at[35]); MULADD(at[16], at[34]); MULADD(at[17], at[33]); MULADD(at[18], at[32]); MULADD(at[19], at[31]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[39]); MULADD(at[13], at[38]); MULADD(at[14], at[37]); MULADD(at[15], at[36]); MULADD(at[16], at[35]); MULADD(at[17], at[34]); MULADD(at[18], at[33]); MULADD(at[19], at[32]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[39]); MULADD(at[14], at[38]); MULADD(at[15], at[37]); MULADD(at[16], at[36]); MULADD(at[17], at[35]); MULADD(at[18], at[34]); MULADD(at[19], at[33]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[39]); MULADD(at[15], at[38]); MULADD(at[16], at[37]); MULADD(at[17], at[36]); MULADD(at[18], at[35]); MULADD(at[19], at[34]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[39]); MULADD(at[16], at[38]); MULADD(at[17], at[37]); MULADD(at[18], at[36]); MULADD(at[19], at[35]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[39]); MULADD(at[17], at[38]); MULADD(at[18], at[37]); MULADD(at[19], at[36]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[39]); MULADD(at[18], at[38]); MULADD(at[19], at[37]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[39]); MULADD(at[19], at[38]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[39]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
COMBA_STORE2(C->dp[39]);
|
||||||
|
C->used = 40;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
207
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_24.c
Normal file
207
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_24.c
Normal file
@@ -0,0 +1,207 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL24
|
||||||
|
void fp_mul_comba24(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[48];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 24 * sizeof(fp_digit));
|
||||||
|
memcpy(at+24, B->dp, 24 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[24]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[25]); MULADD(at[1], at[24]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[26]); MULADD(at[1], at[25]); MULADD(at[2], at[24]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[27]); MULADD(at[1], at[26]); MULADD(at[2], at[25]); MULADD(at[3], at[24]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[28]); MULADD(at[1], at[27]); MULADD(at[2], at[26]); MULADD(at[3], at[25]); MULADD(at[4], at[24]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[29]); MULADD(at[1], at[28]); MULADD(at[2], at[27]); MULADD(at[3], at[26]); MULADD(at[4], at[25]); MULADD(at[5], at[24]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[30]); MULADD(at[1], at[29]); MULADD(at[2], at[28]); MULADD(at[3], at[27]); MULADD(at[4], at[26]); MULADD(at[5], at[25]); MULADD(at[6], at[24]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[31]); MULADD(at[1], at[30]); MULADD(at[2], at[29]); MULADD(at[3], at[28]); MULADD(at[4], at[27]); MULADD(at[5], at[26]); MULADD(at[6], at[25]); MULADD(at[7], at[24]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[32]); MULADD(at[1], at[31]); MULADD(at[2], at[30]); MULADD(at[3], at[29]); MULADD(at[4], at[28]); MULADD(at[5], at[27]); MULADD(at[6], at[26]); MULADD(at[7], at[25]); MULADD(at[8], at[24]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[33]); MULADD(at[1], at[32]); MULADD(at[2], at[31]); MULADD(at[3], at[30]); MULADD(at[4], at[29]); MULADD(at[5], at[28]); MULADD(at[6], at[27]); MULADD(at[7], at[26]); MULADD(at[8], at[25]); MULADD(at[9], at[24]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[34]); MULADD(at[1], at[33]); MULADD(at[2], at[32]); MULADD(at[3], at[31]); MULADD(at[4], at[30]); MULADD(at[5], at[29]); MULADD(at[6], at[28]); MULADD(at[7], at[27]); MULADD(at[8], at[26]); MULADD(at[9], at[25]); MULADD(at[10], at[24]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[35]); MULADD(at[1], at[34]); MULADD(at[2], at[33]); MULADD(at[3], at[32]); MULADD(at[4], at[31]); MULADD(at[5], at[30]); MULADD(at[6], at[29]); MULADD(at[7], at[28]); MULADD(at[8], at[27]); MULADD(at[9], at[26]); MULADD(at[10], at[25]); MULADD(at[11], at[24]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[36]); MULADD(at[1], at[35]); MULADD(at[2], at[34]); MULADD(at[3], at[33]); MULADD(at[4], at[32]); MULADD(at[5], at[31]); MULADD(at[6], at[30]); MULADD(at[7], at[29]); MULADD(at[8], at[28]); MULADD(at[9], at[27]); MULADD(at[10], at[26]); MULADD(at[11], at[25]); MULADD(at[12], at[24]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[37]); MULADD(at[1], at[36]); MULADD(at[2], at[35]); MULADD(at[3], at[34]); MULADD(at[4], at[33]); MULADD(at[5], at[32]); MULADD(at[6], at[31]); MULADD(at[7], at[30]); MULADD(at[8], at[29]); MULADD(at[9], at[28]); MULADD(at[10], at[27]); MULADD(at[11], at[26]); MULADD(at[12], at[25]); MULADD(at[13], at[24]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[38]); MULADD(at[1], at[37]); MULADD(at[2], at[36]); MULADD(at[3], at[35]); MULADD(at[4], at[34]); MULADD(at[5], at[33]); MULADD(at[6], at[32]); MULADD(at[7], at[31]); MULADD(at[8], at[30]); MULADD(at[9], at[29]); MULADD(at[10], at[28]); MULADD(at[11], at[27]); MULADD(at[12], at[26]); MULADD(at[13], at[25]); MULADD(at[14], at[24]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[39]); MULADD(at[1], at[38]); MULADD(at[2], at[37]); MULADD(at[3], at[36]); MULADD(at[4], at[35]); MULADD(at[5], at[34]); MULADD(at[6], at[33]); MULADD(at[7], at[32]); MULADD(at[8], at[31]); MULADD(at[9], at[30]); MULADD(at[10], at[29]); MULADD(at[11], at[28]); MULADD(at[12], at[27]); MULADD(at[13], at[26]); MULADD(at[14], at[25]); MULADD(at[15], at[24]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[40]); MULADD(at[1], at[39]); MULADD(at[2], at[38]); MULADD(at[3], at[37]); MULADD(at[4], at[36]); MULADD(at[5], at[35]); MULADD(at[6], at[34]); MULADD(at[7], at[33]); MULADD(at[8], at[32]); MULADD(at[9], at[31]); MULADD(at[10], at[30]); MULADD(at[11], at[29]); MULADD(at[12], at[28]); MULADD(at[13], at[27]); MULADD(at[14], at[26]); MULADD(at[15], at[25]); MULADD(at[16], at[24]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[41]); MULADD(at[1], at[40]); MULADD(at[2], at[39]); MULADD(at[3], at[38]); MULADD(at[4], at[37]); MULADD(at[5], at[36]); MULADD(at[6], at[35]); MULADD(at[7], at[34]); MULADD(at[8], at[33]); MULADD(at[9], at[32]); MULADD(at[10], at[31]); MULADD(at[11], at[30]); MULADD(at[12], at[29]); MULADD(at[13], at[28]); MULADD(at[14], at[27]); MULADD(at[15], at[26]); MULADD(at[16], at[25]); MULADD(at[17], at[24]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[42]); MULADD(at[1], at[41]); MULADD(at[2], at[40]); MULADD(at[3], at[39]); MULADD(at[4], at[38]); MULADD(at[5], at[37]); MULADD(at[6], at[36]); MULADD(at[7], at[35]); MULADD(at[8], at[34]); MULADD(at[9], at[33]); MULADD(at[10], at[32]); MULADD(at[11], at[31]); MULADD(at[12], at[30]); MULADD(at[13], at[29]); MULADD(at[14], at[28]); MULADD(at[15], at[27]); MULADD(at[16], at[26]); MULADD(at[17], at[25]); MULADD(at[18], at[24]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[43]); MULADD(at[1], at[42]); MULADD(at[2], at[41]); MULADD(at[3], at[40]); MULADD(at[4], at[39]); MULADD(at[5], at[38]); MULADD(at[6], at[37]); MULADD(at[7], at[36]); MULADD(at[8], at[35]); MULADD(at[9], at[34]); MULADD(at[10], at[33]); MULADD(at[11], at[32]); MULADD(at[12], at[31]); MULADD(at[13], at[30]); MULADD(at[14], at[29]); MULADD(at[15], at[28]); MULADD(at[16], at[27]); MULADD(at[17], at[26]); MULADD(at[18], at[25]); MULADD(at[19], at[24]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[44]); MULADD(at[1], at[43]); MULADD(at[2], at[42]); MULADD(at[3], at[41]); MULADD(at[4], at[40]); MULADD(at[5], at[39]); MULADD(at[6], at[38]); MULADD(at[7], at[37]); MULADD(at[8], at[36]); MULADD(at[9], at[35]); MULADD(at[10], at[34]); MULADD(at[11], at[33]); MULADD(at[12], at[32]); MULADD(at[13], at[31]); MULADD(at[14], at[30]); MULADD(at[15], at[29]); MULADD(at[16], at[28]); MULADD(at[17], at[27]); MULADD(at[18], at[26]); MULADD(at[19], at[25]); MULADD(at[20], at[24]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[45]); MULADD(at[1], at[44]); MULADD(at[2], at[43]); MULADD(at[3], at[42]); MULADD(at[4], at[41]); MULADD(at[5], at[40]); MULADD(at[6], at[39]); MULADD(at[7], at[38]); MULADD(at[8], at[37]); MULADD(at[9], at[36]); MULADD(at[10], at[35]); MULADD(at[11], at[34]); MULADD(at[12], at[33]); MULADD(at[13], at[32]); MULADD(at[14], at[31]); MULADD(at[15], at[30]); MULADD(at[16], at[29]); MULADD(at[17], at[28]); MULADD(at[18], at[27]); MULADD(at[19], at[26]); MULADD(at[20], at[25]); MULADD(at[21], at[24]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[46]); MULADD(at[1], at[45]); MULADD(at[2], at[44]); MULADD(at[3], at[43]); MULADD(at[4], at[42]); MULADD(at[5], at[41]); MULADD(at[6], at[40]); MULADD(at[7], at[39]); MULADD(at[8], at[38]); MULADD(at[9], at[37]); MULADD(at[10], at[36]); MULADD(at[11], at[35]); MULADD(at[12], at[34]); MULADD(at[13], at[33]); MULADD(at[14], at[32]); MULADD(at[15], at[31]); MULADD(at[16], at[30]); MULADD(at[17], at[29]); MULADD(at[18], at[28]); MULADD(at[19], at[27]); MULADD(at[20], at[26]); MULADD(at[21], at[25]); MULADD(at[22], at[24]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[47]); MULADD(at[1], at[46]); MULADD(at[2], at[45]); MULADD(at[3], at[44]); MULADD(at[4], at[43]); MULADD(at[5], at[42]); MULADD(at[6], at[41]); MULADD(at[7], at[40]); MULADD(at[8], at[39]); MULADD(at[9], at[38]); MULADD(at[10], at[37]); MULADD(at[11], at[36]); MULADD(at[12], at[35]); MULADD(at[13], at[34]); MULADD(at[14], at[33]); MULADD(at[15], at[32]); MULADD(at[16], at[31]); MULADD(at[17], at[30]); MULADD(at[18], at[29]); MULADD(at[19], at[28]); MULADD(at[20], at[27]); MULADD(at[21], at[26]); MULADD(at[22], at[25]); MULADD(at[23], at[24]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[47]); MULADD(at[2], at[46]); MULADD(at[3], at[45]); MULADD(at[4], at[44]); MULADD(at[5], at[43]); MULADD(at[6], at[42]); MULADD(at[7], at[41]); MULADD(at[8], at[40]); MULADD(at[9], at[39]); MULADD(at[10], at[38]); MULADD(at[11], at[37]); MULADD(at[12], at[36]); MULADD(at[13], at[35]); MULADD(at[14], at[34]); MULADD(at[15], at[33]); MULADD(at[16], at[32]); MULADD(at[17], at[31]); MULADD(at[18], at[30]); MULADD(at[19], at[29]); MULADD(at[20], at[28]); MULADD(at[21], at[27]); MULADD(at[22], at[26]); MULADD(at[23], at[25]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[47]); MULADD(at[3], at[46]); MULADD(at[4], at[45]); MULADD(at[5], at[44]); MULADD(at[6], at[43]); MULADD(at[7], at[42]); MULADD(at[8], at[41]); MULADD(at[9], at[40]); MULADD(at[10], at[39]); MULADD(at[11], at[38]); MULADD(at[12], at[37]); MULADD(at[13], at[36]); MULADD(at[14], at[35]); MULADD(at[15], at[34]); MULADD(at[16], at[33]); MULADD(at[17], at[32]); MULADD(at[18], at[31]); MULADD(at[19], at[30]); MULADD(at[20], at[29]); MULADD(at[21], at[28]); MULADD(at[22], at[27]); MULADD(at[23], at[26]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[47]); MULADD(at[4], at[46]); MULADD(at[5], at[45]); MULADD(at[6], at[44]); MULADD(at[7], at[43]); MULADD(at[8], at[42]); MULADD(at[9], at[41]); MULADD(at[10], at[40]); MULADD(at[11], at[39]); MULADD(at[12], at[38]); MULADD(at[13], at[37]); MULADD(at[14], at[36]); MULADD(at[15], at[35]); MULADD(at[16], at[34]); MULADD(at[17], at[33]); MULADD(at[18], at[32]); MULADD(at[19], at[31]); MULADD(at[20], at[30]); MULADD(at[21], at[29]); MULADD(at[22], at[28]); MULADD(at[23], at[27]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[47]); MULADD(at[5], at[46]); MULADD(at[6], at[45]); MULADD(at[7], at[44]); MULADD(at[8], at[43]); MULADD(at[9], at[42]); MULADD(at[10], at[41]); MULADD(at[11], at[40]); MULADD(at[12], at[39]); MULADD(at[13], at[38]); MULADD(at[14], at[37]); MULADD(at[15], at[36]); MULADD(at[16], at[35]); MULADD(at[17], at[34]); MULADD(at[18], at[33]); MULADD(at[19], at[32]); MULADD(at[20], at[31]); MULADD(at[21], at[30]); MULADD(at[22], at[29]); MULADD(at[23], at[28]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[47]); MULADD(at[6], at[46]); MULADD(at[7], at[45]); MULADD(at[8], at[44]); MULADD(at[9], at[43]); MULADD(at[10], at[42]); MULADD(at[11], at[41]); MULADD(at[12], at[40]); MULADD(at[13], at[39]); MULADD(at[14], at[38]); MULADD(at[15], at[37]); MULADD(at[16], at[36]); MULADD(at[17], at[35]); MULADD(at[18], at[34]); MULADD(at[19], at[33]); MULADD(at[20], at[32]); MULADD(at[21], at[31]); MULADD(at[22], at[30]); MULADD(at[23], at[29]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[47]); MULADD(at[7], at[46]); MULADD(at[8], at[45]); MULADD(at[9], at[44]); MULADD(at[10], at[43]); MULADD(at[11], at[42]); MULADD(at[12], at[41]); MULADD(at[13], at[40]); MULADD(at[14], at[39]); MULADD(at[15], at[38]); MULADD(at[16], at[37]); MULADD(at[17], at[36]); MULADD(at[18], at[35]); MULADD(at[19], at[34]); MULADD(at[20], at[33]); MULADD(at[21], at[32]); MULADD(at[22], at[31]); MULADD(at[23], at[30]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[47]); MULADD(at[8], at[46]); MULADD(at[9], at[45]); MULADD(at[10], at[44]); MULADD(at[11], at[43]); MULADD(at[12], at[42]); MULADD(at[13], at[41]); MULADD(at[14], at[40]); MULADD(at[15], at[39]); MULADD(at[16], at[38]); MULADD(at[17], at[37]); MULADD(at[18], at[36]); MULADD(at[19], at[35]); MULADD(at[20], at[34]); MULADD(at[21], at[33]); MULADD(at[22], at[32]); MULADD(at[23], at[31]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[47]); MULADD(at[9], at[46]); MULADD(at[10], at[45]); MULADD(at[11], at[44]); MULADD(at[12], at[43]); MULADD(at[13], at[42]); MULADD(at[14], at[41]); MULADD(at[15], at[40]); MULADD(at[16], at[39]); MULADD(at[17], at[38]); MULADD(at[18], at[37]); MULADD(at[19], at[36]); MULADD(at[20], at[35]); MULADD(at[21], at[34]); MULADD(at[22], at[33]); MULADD(at[23], at[32]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[47]); MULADD(at[10], at[46]); MULADD(at[11], at[45]); MULADD(at[12], at[44]); MULADD(at[13], at[43]); MULADD(at[14], at[42]); MULADD(at[15], at[41]); MULADD(at[16], at[40]); MULADD(at[17], at[39]); MULADD(at[18], at[38]); MULADD(at[19], at[37]); MULADD(at[20], at[36]); MULADD(at[21], at[35]); MULADD(at[22], at[34]); MULADD(at[23], at[33]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[47]); MULADD(at[11], at[46]); MULADD(at[12], at[45]); MULADD(at[13], at[44]); MULADD(at[14], at[43]); MULADD(at[15], at[42]); MULADD(at[16], at[41]); MULADD(at[17], at[40]); MULADD(at[18], at[39]); MULADD(at[19], at[38]); MULADD(at[20], at[37]); MULADD(at[21], at[36]); MULADD(at[22], at[35]); MULADD(at[23], at[34]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[47]); MULADD(at[12], at[46]); MULADD(at[13], at[45]); MULADD(at[14], at[44]); MULADD(at[15], at[43]); MULADD(at[16], at[42]); MULADD(at[17], at[41]); MULADD(at[18], at[40]); MULADD(at[19], at[39]); MULADD(at[20], at[38]); MULADD(at[21], at[37]); MULADD(at[22], at[36]); MULADD(at[23], at[35]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[47]); MULADD(at[13], at[46]); MULADD(at[14], at[45]); MULADD(at[15], at[44]); MULADD(at[16], at[43]); MULADD(at[17], at[42]); MULADD(at[18], at[41]); MULADD(at[19], at[40]); MULADD(at[20], at[39]); MULADD(at[21], at[38]); MULADD(at[22], at[37]); MULADD(at[23], at[36]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[47]); MULADD(at[14], at[46]); MULADD(at[15], at[45]); MULADD(at[16], at[44]); MULADD(at[17], at[43]); MULADD(at[18], at[42]); MULADD(at[19], at[41]); MULADD(at[20], at[40]); MULADD(at[21], at[39]); MULADD(at[22], at[38]); MULADD(at[23], at[37]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[47]); MULADD(at[15], at[46]); MULADD(at[16], at[45]); MULADD(at[17], at[44]); MULADD(at[18], at[43]); MULADD(at[19], at[42]); MULADD(at[20], at[41]); MULADD(at[21], at[40]); MULADD(at[22], at[39]); MULADD(at[23], at[38]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[47]); MULADD(at[16], at[46]); MULADD(at[17], at[45]); MULADD(at[18], at[44]); MULADD(at[19], at[43]); MULADD(at[20], at[42]); MULADD(at[21], at[41]); MULADD(at[22], at[40]); MULADD(at[23], at[39]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
/* 39 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[47]); MULADD(at[17], at[46]); MULADD(at[18], at[45]); MULADD(at[19], at[44]); MULADD(at[20], at[43]); MULADD(at[21], at[42]); MULADD(at[22], at[41]); MULADD(at[23], at[40]);
|
||||||
|
COMBA_STORE(C->dp[39]);
|
||||||
|
/* 40 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[47]); MULADD(at[18], at[46]); MULADD(at[19], at[45]); MULADD(at[20], at[44]); MULADD(at[21], at[43]); MULADD(at[22], at[42]); MULADD(at[23], at[41]);
|
||||||
|
COMBA_STORE(C->dp[40]);
|
||||||
|
/* 41 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[47]); MULADD(at[19], at[46]); MULADD(at[20], at[45]); MULADD(at[21], at[44]); MULADD(at[22], at[43]); MULADD(at[23], at[42]);
|
||||||
|
COMBA_STORE(C->dp[41]);
|
||||||
|
/* 42 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[47]); MULADD(at[20], at[46]); MULADD(at[21], at[45]); MULADD(at[22], at[44]); MULADD(at[23], at[43]);
|
||||||
|
COMBA_STORE(C->dp[42]);
|
||||||
|
/* 43 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[20], at[47]); MULADD(at[21], at[46]); MULADD(at[22], at[45]); MULADD(at[23], at[44]);
|
||||||
|
COMBA_STORE(C->dp[43]);
|
||||||
|
/* 44 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[21], at[47]); MULADD(at[22], at[46]); MULADD(at[23], at[45]);
|
||||||
|
COMBA_STORE(C->dp[44]);
|
||||||
|
/* 45 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[22], at[47]); MULADD(at[23], at[46]);
|
||||||
|
COMBA_STORE(C->dp[45]);
|
||||||
|
/* 46 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[23], at[47]);
|
||||||
|
COMBA_STORE(C->dp[46]);
|
||||||
|
COMBA_STORE2(C->dp[47]);
|
||||||
|
C->used = 48;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
239
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_28.c
Normal file
239
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_28.c
Normal file
@@ -0,0 +1,239 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL28
|
||||||
|
void fp_mul_comba28(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[56];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 28 * sizeof(fp_digit));
|
||||||
|
memcpy(at+28, B->dp, 28 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[28]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[29]); MULADD(at[1], at[28]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[30]); MULADD(at[1], at[29]); MULADD(at[2], at[28]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[31]); MULADD(at[1], at[30]); MULADD(at[2], at[29]); MULADD(at[3], at[28]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[32]); MULADD(at[1], at[31]); MULADD(at[2], at[30]); MULADD(at[3], at[29]); MULADD(at[4], at[28]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[33]); MULADD(at[1], at[32]); MULADD(at[2], at[31]); MULADD(at[3], at[30]); MULADD(at[4], at[29]); MULADD(at[5], at[28]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[34]); MULADD(at[1], at[33]); MULADD(at[2], at[32]); MULADD(at[3], at[31]); MULADD(at[4], at[30]); MULADD(at[5], at[29]); MULADD(at[6], at[28]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[35]); MULADD(at[1], at[34]); MULADD(at[2], at[33]); MULADD(at[3], at[32]); MULADD(at[4], at[31]); MULADD(at[5], at[30]); MULADD(at[6], at[29]); MULADD(at[7], at[28]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[36]); MULADD(at[1], at[35]); MULADD(at[2], at[34]); MULADD(at[3], at[33]); MULADD(at[4], at[32]); MULADD(at[5], at[31]); MULADD(at[6], at[30]); MULADD(at[7], at[29]); MULADD(at[8], at[28]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[37]); MULADD(at[1], at[36]); MULADD(at[2], at[35]); MULADD(at[3], at[34]); MULADD(at[4], at[33]); MULADD(at[5], at[32]); MULADD(at[6], at[31]); MULADD(at[7], at[30]); MULADD(at[8], at[29]); MULADD(at[9], at[28]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[38]); MULADD(at[1], at[37]); MULADD(at[2], at[36]); MULADD(at[3], at[35]); MULADD(at[4], at[34]); MULADD(at[5], at[33]); MULADD(at[6], at[32]); MULADD(at[7], at[31]); MULADD(at[8], at[30]); MULADD(at[9], at[29]); MULADD(at[10], at[28]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[39]); MULADD(at[1], at[38]); MULADD(at[2], at[37]); MULADD(at[3], at[36]); MULADD(at[4], at[35]); MULADD(at[5], at[34]); MULADD(at[6], at[33]); MULADD(at[7], at[32]); MULADD(at[8], at[31]); MULADD(at[9], at[30]); MULADD(at[10], at[29]); MULADD(at[11], at[28]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[40]); MULADD(at[1], at[39]); MULADD(at[2], at[38]); MULADD(at[3], at[37]); MULADD(at[4], at[36]); MULADD(at[5], at[35]); MULADD(at[6], at[34]); MULADD(at[7], at[33]); MULADD(at[8], at[32]); MULADD(at[9], at[31]); MULADD(at[10], at[30]); MULADD(at[11], at[29]); MULADD(at[12], at[28]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[41]); MULADD(at[1], at[40]); MULADD(at[2], at[39]); MULADD(at[3], at[38]); MULADD(at[4], at[37]); MULADD(at[5], at[36]); MULADD(at[6], at[35]); MULADD(at[7], at[34]); MULADD(at[8], at[33]); MULADD(at[9], at[32]); MULADD(at[10], at[31]); MULADD(at[11], at[30]); MULADD(at[12], at[29]); MULADD(at[13], at[28]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[42]); MULADD(at[1], at[41]); MULADD(at[2], at[40]); MULADD(at[3], at[39]); MULADD(at[4], at[38]); MULADD(at[5], at[37]); MULADD(at[6], at[36]); MULADD(at[7], at[35]); MULADD(at[8], at[34]); MULADD(at[9], at[33]); MULADD(at[10], at[32]); MULADD(at[11], at[31]); MULADD(at[12], at[30]); MULADD(at[13], at[29]); MULADD(at[14], at[28]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[43]); MULADD(at[1], at[42]); MULADD(at[2], at[41]); MULADD(at[3], at[40]); MULADD(at[4], at[39]); MULADD(at[5], at[38]); MULADD(at[6], at[37]); MULADD(at[7], at[36]); MULADD(at[8], at[35]); MULADD(at[9], at[34]); MULADD(at[10], at[33]); MULADD(at[11], at[32]); MULADD(at[12], at[31]); MULADD(at[13], at[30]); MULADD(at[14], at[29]); MULADD(at[15], at[28]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[44]); MULADD(at[1], at[43]); MULADD(at[2], at[42]); MULADD(at[3], at[41]); MULADD(at[4], at[40]); MULADD(at[5], at[39]); MULADD(at[6], at[38]); MULADD(at[7], at[37]); MULADD(at[8], at[36]); MULADD(at[9], at[35]); MULADD(at[10], at[34]); MULADD(at[11], at[33]); MULADD(at[12], at[32]); MULADD(at[13], at[31]); MULADD(at[14], at[30]); MULADD(at[15], at[29]); MULADD(at[16], at[28]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[45]); MULADD(at[1], at[44]); MULADD(at[2], at[43]); MULADD(at[3], at[42]); MULADD(at[4], at[41]); MULADD(at[5], at[40]); MULADD(at[6], at[39]); MULADD(at[7], at[38]); MULADD(at[8], at[37]); MULADD(at[9], at[36]); MULADD(at[10], at[35]); MULADD(at[11], at[34]); MULADD(at[12], at[33]); MULADD(at[13], at[32]); MULADD(at[14], at[31]); MULADD(at[15], at[30]); MULADD(at[16], at[29]); MULADD(at[17], at[28]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[46]); MULADD(at[1], at[45]); MULADD(at[2], at[44]); MULADD(at[3], at[43]); MULADD(at[4], at[42]); MULADD(at[5], at[41]); MULADD(at[6], at[40]); MULADD(at[7], at[39]); MULADD(at[8], at[38]); MULADD(at[9], at[37]); MULADD(at[10], at[36]); MULADD(at[11], at[35]); MULADD(at[12], at[34]); MULADD(at[13], at[33]); MULADD(at[14], at[32]); MULADD(at[15], at[31]); MULADD(at[16], at[30]); MULADD(at[17], at[29]); MULADD(at[18], at[28]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[47]); MULADD(at[1], at[46]); MULADD(at[2], at[45]); MULADD(at[3], at[44]); MULADD(at[4], at[43]); MULADD(at[5], at[42]); MULADD(at[6], at[41]); MULADD(at[7], at[40]); MULADD(at[8], at[39]); MULADD(at[9], at[38]); MULADD(at[10], at[37]); MULADD(at[11], at[36]); MULADD(at[12], at[35]); MULADD(at[13], at[34]); MULADD(at[14], at[33]); MULADD(at[15], at[32]); MULADD(at[16], at[31]); MULADD(at[17], at[30]); MULADD(at[18], at[29]); MULADD(at[19], at[28]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[48]); MULADD(at[1], at[47]); MULADD(at[2], at[46]); MULADD(at[3], at[45]); MULADD(at[4], at[44]); MULADD(at[5], at[43]); MULADD(at[6], at[42]); MULADD(at[7], at[41]); MULADD(at[8], at[40]); MULADD(at[9], at[39]); MULADD(at[10], at[38]); MULADD(at[11], at[37]); MULADD(at[12], at[36]); MULADD(at[13], at[35]); MULADD(at[14], at[34]); MULADD(at[15], at[33]); MULADD(at[16], at[32]); MULADD(at[17], at[31]); MULADD(at[18], at[30]); MULADD(at[19], at[29]); MULADD(at[20], at[28]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[49]); MULADD(at[1], at[48]); MULADD(at[2], at[47]); MULADD(at[3], at[46]); MULADD(at[4], at[45]); MULADD(at[5], at[44]); MULADD(at[6], at[43]); MULADD(at[7], at[42]); MULADD(at[8], at[41]); MULADD(at[9], at[40]); MULADD(at[10], at[39]); MULADD(at[11], at[38]); MULADD(at[12], at[37]); MULADD(at[13], at[36]); MULADD(at[14], at[35]); MULADD(at[15], at[34]); MULADD(at[16], at[33]); MULADD(at[17], at[32]); MULADD(at[18], at[31]); MULADD(at[19], at[30]); MULADD(at[20], at[29]); MULADD(at[21], at[28]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[50]); MULADD(at[1], at[49]); MULADD(at[2], at[48]); MULADD(at[3], at[47]); MULADD(at[4], at[46]); MULADD(at[5], at[45]); MULADD(at[6], at[44]); MULADD(at[7], at[43]); MULADD(at[8], at[42]); MULADD(at[9], at[41]); MULADD(at[10], at[40]); MULADD(at[11], at[39]); MULADD(at[12], at[38]); MULADD(at[13], at[37]); MULADD(at[14], at[36]); MULADD(at[15], at[35]); MULADD(at[16], at[34]); MULADD(at[17], at[33]); MULADD(at[18], at[32]); MULADD(at[19], at[31]); MULADD(at[20], at[30]); MULADD(at[21], at[29]); MULADD(at[22], at[28]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[51]); MULADD(at[1], at[50]); MULADD(at[2], at[49]); MULADD(at[3], at[48]); MULADD(at[4], at[47]); MULADD(at[5], at[46]); MULADD(at[6], at[45]); MULADD(at[7], at[44]); MULADD(at[8], at[43]); MULADD(at[9], at[42]); MULADD(at[10], at[41]); MULADD(at[11], at[40]); MULADD(at[12], at[39]); MULADD(at[13], at[38]); MULADD(at[14], at[37]); MULADD(at[15], at[36]); MULADD(at[16], at[35]); MULADD(at[17], at[34]); MULADD(at[18], at[33]); MULADD(at[19], at[32]); MULADD(at[20], at[31]); MULADD(at[21], at[30]); MULADD(at[22], at[29]); MULADD(at[23], at[28]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[52]); MULADD(at[1], at[51]); MULADD(at[2], at[50]); MULADD(at[3], at[49]); MULADD(at[4], at[48]); MULADD(at[5], at[47]); MULADD(at[6], at[46]); MULADD(at[7], at[45]); MULADD(at[8], at[44]); MULADD(at[9], at[43]); MULADD(at[10], at[42]); MULADD(at[11], at[41]); MULADD(at[12], at[40]); MULADD(at[13], at[39]); MULADD(at[14], at[38]); MULADD(at[15], at[37]); MULADD(at[16], at[36]); MULADD(at[17], at[35]); MULADD(at[18], at[34]); MULADD(at[19], at[33]); MULADD(at[20], at[32]); MULADD(at[21], at[31]); MULADD(at[22], at[30]); MULADD(at[23], at[29]); MULADD(at[24], at[28]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[53]); MULADD(at[1], at[52]); MULADD(at[2], at[51]); MULADD(at[3], at[50]); MULADD(at[4], at[49]); MULADD(at[5], at[48]); MULADD(at[6], at[47]); MULADD(at[7], at[46]); MULADD(at[8], at[45]); MULADD(at[9], at[44]); MULADD(at[10], at[43]); MULADD(at[11], at[42]); MULADD(at[12], at[41]); MULADD(at[13], at[40]); MULADD(at[14], at[39]); MULADD(at[15], at[38]); MULADD(at[16], at[37]); MULADD(at[17], at[36]); MULADD(at[18], at[35]); MULADD(at[19], at[34]); MULADD(at[20], at[33]); MULADD(at[21], at[32]); MULADD(at[22], at[31]); MULADD(at[23], at[30]); MULADD(at[24], at[29]); MULADD(at[25], at[28]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[54]); MULADD(at[1], at[53]); MULADD(at[2], at[52]); MULADD(at[3], at[51]); MULADD(at[4], at[50]); MULADD(at[5], at[49]); MULADD(at[6], at[48]); MULADD(at[7], at[47]); MULADD(at[8], at[46]); MULADD(at[9], at[45]); MULADD(at[10], at[44]); MULADD(at[11], at[43]); MULADD(at[12], at[42]); MULADD(at[13], at[41]); MULADD(at[14], at[40]); MULADD(at[15], at[39]); MULADD(at[16], at[38]); MULADD(at[17], at[37]); MULADD(at[18], at[36]); MULADD(at[19], at[35]); MULADD(at[20], at[34]); MULADD(at[21], at[33]); MULADD(at[22], at[32]); MULADD(at[23], at[31]); MULADD(at[24], at[30]); MULADD(at[25], at[29]); MULADD(at[26], at[28]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[55]); MULADD(at[1], at[54]); MULADD(at[2], at[53]); MULADD(at[3], at[52]); MULADD(at[4], at[51]); MULADD(at[5], at[50]); MULADD(at[6], at[49]); MULADD(at[7], at[48]); MULADD(at[8], at[47]); MULADD(at[9], at[46]); MULADD(at[10], at[45]); MULADD(at[11], at[44]); MULADD(at[12], at[43]); MULADD(at[13], at[42]); MULADD(at[14], at[41]); MULADD(at[15], at[40]); MULADD(at[16], at[39]); MULADD(at[17], at[38]); MULADD(at[18], at[37]); MULADD(at[19], at[36]); MULADD(at[20], at[35]); MULADD(at[21], at[34]); MULADD(at[22], at[33]); MULADD(at[23], at[32]); MULADD(at[24], at[31]); MULADD(at[25], at[30]); MULADD(at[26], at[29]); MULADD(at[27], at[28]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[55]); MULADD(at[2], at[54]); MULADD(at[3], at[53]); MULADD(at[4], at[52]); MULADD(at[5], at[51]); MULADD(at[6], at[50]); MULADD(at[7], at[49]); MULADD(at[8], at[48]); MULADD(at[9], at[47]); MULADD(at[10], at[46]); MULADD(at[11], at[45]); MULADD(at[12], at[44]); MULADD(at[13], at[43]); MULADD(at[14], at[42]); MULADD(at[15], at[41]); MULADD(at[16], at[40]); MULADD(at[17], at[39]); MULADD(at[18], at[38]); MULADD(at[19], at[37]); MULADD(at[20], at[36]); MULADD(at[21], at[35]); MULADD(at[22], at[34]); MULADD(at[23], at[33]); MULADD(at[24], at[32]); MULADD(at[25], at[31]); MULADD(at[26], at[30]); MULADD(at[27], at[29]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[55]); MULADD(at[3], at[54]); MULADD(at[4], at[53]); MULADD(at[5], at[52]); MULADD(at[6], at[51]); MULADD(at[7], at[50]); MULADD(at[8], at[49]); MULADD(at[9], at[48]); MULADD(at[10], at[47]); MULADD(at[11], at[46]); MULADD(at[12], at[45]); MULADD(at[13], at[44]); MULADD(at[14], at[43]); MULADD(at[15], at[42]); MULADD(at[16], at[41]); MULADD(at[17], at[40]); MULADD(at[18], at[39]); MULADD(at[19], at[38]); MULADD(at[20], at[37]); MULADD(at[21], at[36]); MULADD(at[22], at[35]); MULADD(at[23], at[34]); MULADD(at[24], at[33]); MULADD(at[25], at[32]); MULADD(at[26], at[31]); MULADD(at[27], at[30]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[55]); MULADD(at[4], at[54]); MULADD(at[5], at[53]); MULADD(at[6], at[52]); MULADD(at[7], at[51]); MULADD(at[8], at[50]); MULADD(at[9], at[49]); MULADD(at[10], at[48]); MULADD(at[11], at[47]); MULADD(at[12], at[46]); MULADD(at[13], at[45]); MULADD(at[14], at[44]); MULADD(at[15], at[43]); MULADD(at[16], at[42]); MULADD(at[17], at[41]); MULADD(at[18], at[40]); MULADD(at[19], at[39]); MULADD(at[20], at[38]); MULADD(at[21], at[37]); MULADD(at[22], at[36]); MULADD(at[23], at[35]); MULADD(at[24], at[34]); MULADD(at[25], at[33]); MULADD(at[26], at[32]); MULADD(at[27], at[31]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[55]); MULADD(at[5], at[54]); MULADD(at[6], at[53]); MULADD(at[7], at[52]); MULADD(at[8], at[51]); MULADD(at[9], at[50]); MULADD(at[10], at[49]); MULADD(at[11], at[48]); MULADD(at[12], at[47]); MULADD(at[13], at[46]); MULADD(at[14], at[45]); MULADD(at[15], at[44]); MULADD(at[16], at[43]); MULADD(at[17], at[42]); MULADD(at[18], at[41]); MULADD(at[19], at[40]); MULADD(at[20], at[39]); MULADD(at[21], at[38]); MULADD(at[22], at[37]); MULADD(at[23], at[36]); MULADD(at[24], at[35]); MULADD(at[25], at[34]); MULADD(at[26], at[33]); MULADD(at[27], at[32]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[55]); MULADD(at[6], at[54]); MULADD(at[7], at[53]); MULADD(at[8], at[52]); MULADD(at[9], at[51]); MULADD(at[10], at[50]); MULADD(at[11], at[49]); MULADD(at[12], at[48]); MULADD(at[13], at[47]); MULADD(at[14], at[46]); MULADD(at[15], at[45]); MULADD(at[16], at[44]); MULADD(at[17], at[43]); MULADD(at[18], at[42]); MULADD(at[19], at[41]); MULADD(at[20], at[40]); MULADD(at[21], at[39]); MULADD(at[22], at[38]); MULADD(at[23], at[37]); MULADD(at[24], at[36]); MULADD(at[25], at[35]); MULADD(at[26], at[34]); MULADD(at[27], at[33]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[55]); MULADD(at[7], at[54]); MULADD(at[8], at[53]); MULADD(at[9], at[52]); MULADD(at[10], at[51]); MULADD(at[11], at[50]); MULADD(at[12], at[49]); MULADD(at[13], at[48]); MULADD(at[14], at[47]); MULADD(at[15], at[46]); MULADD(at[16], at[45]); MULADD(at[17], at[44]); MULADD(at[18], at[43]); MULADD(at[19], at[42]); MULADD(at[20], at[41]); MULADD(at[21], at[40]); MULADD(at[22], at[39]); MULADD(at[23], at[38]); MULADD(at[24], at[37]); MULADD(at[25], at[36]); MULADD(at[26], at[35]); MULADD(at[27], at[34]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[55]); MULADD(at[8], at[54]); MULADD(at[9], at[53]); MULADD(at[10], at[52]); MULADD(at[11], at[51]); MULADD(at[12], at[50]); MULADD(at[13], at[49]); MULADD(at[14], at[48]); MULADD(at[15], at[47]); MULADD(at[16], at[46]); MULADD(at[17], at[45]); MULADD(at[18], at[44]); MULADD(at[19], at[43]); MULADD(at[20], at[42]); MULADD(at[21], at[41]); MULADD(at[22], at[40]); MULADD(at[23], at[39]); MULADD(at[24], at[38]); MULADD(at[25], at[37]); MULADD(at[26], at[36]); MULADD(at[27], at[35]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[55]); MULADD(at[9], at[54]); MULADD(at[10], at[53]); MULADD(at[11], at[52]); MULADD(at[12], at[51]); MULADD(at[13], at[50]); MULADD(at[14], at[49]); MULADD(at[15], at[48]); MULADD(at[16], at[47]); MULADD(at[17], at[46]); MULADD(at[18], at[45]); MULADD(at[19], at[44]); MULADD(at[20], at[43]); MULADD(at[21], at[42]); MULADD(at[22], at[41]); MULADD(at[23], at[40]); MULADD(at[24], at[39]); MULADD(at[25], at[38]); MULADD(at[26], at[37]); MULADD(at[27], at[36]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[55]); MULADD(at[10], at[54]); MULADD(at[11], at[53]); MULADD(at[12], at[52]); MULADD(at[13], at[51]); MULADD(at[14], at[50]); MULADD(at[15], at[49]); MULADD(at[16], at[48]); MULADD(at[17], at[47]); MULADD(at[18], at[46]); MULADD(at[19], at[45]); MULADD(at[20], at[44]); MULADD(at[21], at[43]); MULADD(at[22], at[42]); MULADD(at[23], at[41]); MULADD(at[24], at[40]); MULADD(at[25], at[39]); MULADD(at[26], at[38]); MULADD(at[27], at[37]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[55]); MULADD(at[11], at[54]); MULADD(at[12], at[53]); MULADD(at[13], at[52]); MULADD(at[14], at[51]); MULADD(at[15], at[50]); MULADD(at[16], at[49]); MULADD(at[17], at[48]); MULADD(at[18], at[47]); MULADD(at[19], at[46]); MULADD(at[20], at[45]); MULADD(at[21], at[44]); MULADD(at[22], at[43]); MULADD(at[23], at[42]); MULADD(at[24], at[41]); MULADD(at[25], at[40]); MULADD(at[26], at[39]); MULADD(at[27], at[38]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[55]); MULADD(at[12], at[54]); MULADD(at[13], at[53]); MULADD(at[14], at[52]); MULADD(at[15], at[51]); MULADD(at[16], at[50]); MULADD(at[17], at[49]); MULADD(at[18], at[48]); MULADD(at[19], at[47]); MULADD(at[20], at[46]); MULADD(at[21], at[45]); MULADD(at[22], at[44]); MULADD(at[23], at[43]); MULADD(at[24], at[42]); MULADD(at[25], at[41]); MULADD(at[26], at[40]); MULADD(at[27], at[39]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
/* 39 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[55]); MULADD(at[13], at[54]); MULADD(at[14], at[53]); MULADD(at[15], at[52]); MULADD(at[16], at[51]); MULADD(at[17], at[50]); MULADD(at[18], at[49]); MULADD(at[19], at[48]); MULADD(at[20], at[47]); MULADD(at[21], at[46]); MULADD(at[22], at[45]); MULADD(at[23], at[44]); MULADD(at[24], at[43]); MULADD(at[25], at[42]); MULADD(at[26], at[41]); MULADD(at[27], at[40]);
|
||||||
|
COMBA_STORE(C->dp[39]);
|
||||||
|
/* 40 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[55]); MULADD(at[14], at[54]); MULADD(at[15], at[53]); MULADD(at[16], at[52]); MULADD(at[17], at[51]); MULADD(at[18], at[50]); MULADD(at[19], at[49]); MULADD(at[20], at[48]); MULADD(at[21], at[47]); MULADD(at[22], at[46]); MULADD(at[23], at[45]); MULADD(at[24], at[44]); MULADD(at[25], at[43]); MULADD(at[26], at[42]); MULADD(at[27], at[41]);
|
||||||
|
COMBA_STORE(C->dp[40]);
|
||||||
|
/* 41 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[55]); MULADD(at[15], at[54]); MULADD(at[16], at[53]); MULADD(at[17], at[52]); MULADD(at[18], at[51]); MULADD(at[19], at[50]); MULADD(at[20], at[49]); MULADD(at[21], at[48]); MULADD(at[22], at[47]); MULADD(at[23], at[46]); MULADD(at[24], at[45]); MULADD(at[25], at[44]); MULADD(at[26], at[43]); MULADD(at[27], at[42]);
|
||||||
|
COMBA_STORE(C->dp[41]);
|
||||||
|
/* 42 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[55]); MULADD(at[16], at[54]); MULADD(at[17], at[53]); MULADD(at[18], at[52]); MULADD(at[19], at[51]); MULADD(at[20], at[50]); MULADD(at[21], at[49]); MULADD(at[22], at[48]); MULADD(at[23], at[47]); MULADD(at[24], at[46]); MULADD(at[25], at[45]); MULADD(at[26], at[44]); MULADD(at[27], at[43]);
|
||||||
|
COMBA_STORE(C->dp[42]);
|
||||||
|
/* 43 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[55]); MULADD(at[17], at[54]); MULADD(at[18], at[53]); MULADD(at[19], at[52]); MULADD(at[20], at[51]); MULADD(at[21], at[50]); MULADD(at[22], at[49]); MULADD(at[23], at[48]); MULADD(at[24], at[47]); MULADD(at[25], at[46]); MULADD(at[26], at[45]); MULADD(at[27], at[44]);
|
||||||
|
COMBA_STORE(C->dp[43]);
|
||||||
|
/* 44 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[55]); MULADD(at[18], at[54]); MULADD(at[19], at[53]); MULADD(at[20], at[52]); MULADD(at[21], at[51]); MULADD(at[22], at[50]); MULADD(at[23], at[49]); MULADD(at[24], at[48]); MULADD(at[25], at[47]); MULADD(at[26], at[46]); MULADD(at[27], at[45]);
|
||||||
|
COMBA_STORE(C->dp[44]);
|
||||||
|
/* 45 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[55]); MULADD(at[19], at[54]); MULADD(at[20], at[53]); MULADD(at[21], at[52]); MULADD(at[22], at[51]); MULADD(at[23], at[50]); MULADD(at[24], at[49]); MULADD(at[25], at[48]); MULADD(at[26], at[47]); MULADD(at[27], at[46]);
|
||||||
|
COMBA_STORE(C->dp[45]);
|
||||||
|
/* 46 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[55]); MULADD(at[20], at[54]); MULADD(at[21], at[53]); MULADD(at[22], at[52]); MULADD(at[23], at[51]); MULADD(at[24], at[50]); MULADD(at[25], at[49]); MULADD(at[26], at[48]); MULADD(at[27], at[47]);
|
||||||
|
COMBA_STORE(C->dp[46]);
|
||||||
|
/* 47 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[20], at[55]); MULADD(at[21], at[54]); MULADD(at[22], at[53]); MULADD(at[23], at[52]); MULADD(at[24], at[51]); MULADD(at[25], at[50]); MULADD(at[26], at[49]); MULADD(at[27], at[48]);
|
||||||
|
COMBA_STORE(C->dp[47]);
|
||||||
|
/* 48 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[21], at[55]); MULADD(at[22], at[54]); MULADD(at[23], at[53]); MULADD(at[24], at[52]); MULADD(at[25], at[51]); MULADD(at[26], at[50]); MULADD(at[27], at[49]);
|
||||||
|
COMBA_STORE(C->dp[48]);
|
||||||
|
/* 49 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[22], at[55]); MULADD(at[23], at[54]); MULADD(at[24], at[53]); MULADD(at[25], at[52]); MULADD(at[26], at[51]); MULADD(at[27], at[50]);
|
||||||
|
COMBA_STORE(C->dp[49]);
|
||||||
|
/* 50 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[23], at[55]); MULADD(at[24], at[54]); MULADD(at[25], at[53]); MULADD(at[26], at[52]); MULADD(at[27], at[51]);
|
||||||
|
COMBA_STORE(C->dp[50]);
|
||||||
|
/* 51 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[24], at[55]); MULADD(at[25], at[54]); MULADD(at[26], at[53]); MULADD(at[27], at[52]);
|
||||||
|
COMBA_STORE(C->dp[51]);
|
||||||
|
/* 52 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[25], at[55]); MULADD(at[26], at[54]); MULADD(at[27], at[53]);
|
||||||
|
COMBA_STORE(C->dp[52]);
|
||||||
|
/* 53 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[26], at[55]); MULADD(at[27], at[54]);
|
||||||
|
COMBA_STORE(C->dp[53]);
|
||||||
|
/* 54 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[27], at[55]);
|
||||||
|
COMBA_STORE(C->dp[54]);
|
||||||
|
COMBA_STORE2(C->dp[55]);
|
||||||
|
C->used = 56;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
39
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_3.c
Normal file
39
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_3.c
Normal file
@@ -0,0 +1,39 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL3
|
||||||
|
void fp_mul_comba3(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[6];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 3 * sizeof(fp_digit));
|
||||||
|
memcpy(at+3, B->dp, 3 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[3]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[4]); MULADD(at[1], at[3]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[5]); MULADD(at[1], at[4]); MULADD(at[2], at[3]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[5]); MULADD(at[2], at[4]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[5]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
COMBA_STORE2(C->dp[5]);
|
||||||
|
C->used = 6;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
285
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_32.c
Normal file
285
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_32.c
Normal file
@@ -0,0 +1,285 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL32
|
||||||
|
void fp_mul_comba32(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[64];
|
||||||
|
int out_size;
|
||||||
|
|
||||||
|
out_size = A->used + B->used;
|
||||||
|
memcpy(at, A->dp, 32 * sizeof(fp_digit));
|
||||||
|
memcpy(at+32, B->dp, 32 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[32]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[33]); MULADD(at[1], at[32]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[34]); MULADD(at[1], at[33]); MULADD(at[2], at[32]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[35]); MULADD(at[1], at[34]); MULADD(at[2], at[33]); MULADD(at[3], at[32]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[36]); MULADD(at[1], at[35]); MULADD(at[2], at[34]); MULADD(at[3], at[33]); MULADD(at[4], at[32]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[37]); MULADD(at[1], at[36]); MULADD(at[2], at[35]); MULADD(at[3], at[34]); MULADD(at[4], at[33]); MULADD(at[5], at[32]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[38]); MULADD(at[1], at[37]); MULADD(at[2], at[36]); MULADD(at[3], at[35]); MULADD(at[4], at[34]); MULADD(at[5], at[33]); MULADD(at[6], at[32]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[39]); MULADD(at[1], at[38]); MULADD(at[2], at[37]); MULADD(at[3], at[36]); MULADD(at[4], at[35]); MULADD(at[5], at[34]); MULADD(at[6], at[33]); MULADD(at[7], at[32]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[40]); MULADD(at[1], at[39]); MULADD(at[2], at[38]); MULADD(at[3], at[37]); MULADD(at[4], at[36]); MULADD(at[5], at[35]); MULADD(at[6], at[34]); MULADD(at[7], at[33]); MULADD(at[8], at[32]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[41]); MULADD(at[1], at[40]); MULADD(at[2], at[39]); MULADD(at[3], at[38]); MULADD(at[4], at[37]); MULADD(at[5], at[36]); MULADD(at[6], at[35]); MULADD(at[7], at[34]); MULADD(at[8], at[33]); MULADD(at[9], at[32]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[42]); MULADD(at[1], at[41]); MULADD(at[2], at[40]); MULADD(at[3], at[39]); MULADD(at[4], at[38]); MULADD(at[5], at[37]); MULADD(at[6], at[36]); MULADD(at[7], at[35]); MULADD(at[8], at[34]); MULADD(at[9], at[33]); MULADD(at[10], at[32]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[43]); MULADD(at[1], at[42]); MULADD(at[2], at[41]); MULADD(at[3], at[40]); MULADD(at[4], at[39]); MULADD(at[5], at[38]); MULADD(at[6], at[37]); MULADD(at[7], at[36]); MULADD(at[8], at[35]); MULADD(at[9], at[34]); MULADD(at[10], at[33]); MULADD(at[11], at[32]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[44]); MULADD(at[1], at[43]); MULADD(at[2], at[42]); MULADD(at[3], at[41]); MULADD(at[4], at[40]); MULADD(at[5], at[39]); MULADD(at[6], at[38]); MULADD(at[7], at[37]); MULADD(at[8], at[36]); MULADD(at[9], at[35]); MULADD(at[10], at[34]); MULADD(at[11], at[33]); MULADD(at[12], at[32]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[45]); MULADD(at[1], at[44]); MULADD(at[2], at[43]); MULADD(at[3], at[42]); MULADD(at[4], at[41]); MULADD(at[5], at[40]); MULADD(at[6], at[39]); MULADD(at[7], at[38]); MULADD(at[8], at[37]); MULADD(at[9], at[36]); MULADD(at[10], at[35]); MULADD(at[11], at[34]); MULADD(at[12], at[33]); MULADD(at[13], at[32]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[46]); MULADD(at[1], at[45]); MULADD(at[2], at[44]); MULADD(at[3], at[43]); MULADD(at[4], at[42]); MULADD(at[5], at[41]); MULADD(at[6], at[40]); MULADD(at[7], at[39]); MULADD(at[8], at[38]); MULADD(at[9], at[37]); MULADD(at[10], at[36]); MULADD(at[11], at[35]); MULADD(at[12], at[34]); MULADD(at[13], at[33]); MULADD(at[14], at[32]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[47]); MULADD(at[1], at[46]); MULADD(at[2], at[45]); MULADD(at[3], at[44]); MULADD(at[4], at[43]); MULADD(at[5], at[42]); MULADD(at[6], at[41]); MULADD(at[7], at[40]); MULADD(at[8], at[39]); MULADD(at[9], at[38]); MULADD(at[10], at[37]); MULADD(at[11], at[36]); MULADD(at[12], at[35]); MULADD(at[13], at[34]); MULADD(at[14], at[33]); MULADD(at[15], at[32]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[48]); MULADD(at[1], at[47]); MULADD(at[2], at[46]); MULADD(at[3], at[45]); MULADD(at[4], at[44]); MULADD(at[5], at[43]); MULADD(at[6], at[42]); MULADD(at[7], at[41]); MULADD(at[8], at[40]); MULADD(at[9], at[39]); MULADD(at[10], at[38]); MULADD(at[11], at[37]); MULADD(at[12], at[36]); MULADD(at[13], at[35]); MULADD(at[14], at[34]); MULADD(at[15], at[33]); MULADD(at[16], at[32]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[49]); MULADD(at[1], at[48]); MULADD(at[2], at[47]); MULADD(at[3], at[46]); MULADD(at[4], at[45]); MULADD(at[5], at[44]); MULADD(at[6], at[43]); MULADD(at[7], at[42]); MULADD(at[8], at[41]); MULADD(at[9], at[40]); MULADD(at[10], at[39]); MULADD(at[11], at[38]); MULADD(at[12], at[37]); MULADD(at[13], at[36]); MULADD(at[14], at[35]); MULADD(at[15], at[34]); MULADD(at[16], at[33]); MULADD(at[17], at[32]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[50]); MULADD(at[1], at[49]); MULADD(at[2], at[48]); MULADD(at[3], at[47]); MULADD(at[4], at[46]); MULADD(at[5], at[45]); MULADD(at[6], at[44]); MULADD(at[7], at[43]); MULADD(at[8], at[42]); MULADD(at[9], at[41]); MULADD(at[10], at[40]); MULADD(at[11], at[39]); MULADD(at[12], at[38]); MULADD(at[13], at[37]); MULADD(at[14], at[36]); MULADD(at[15], at[35]); MULADD(at[16], at[34]); MULADD(at[17], at[33]); MULADD(at[18], at[32]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[51]); MULADD(at[1], at[50]); MULADD(at[2], at[49]); MULADD(at[3], at[48]); MULADD(at[4], at[47]); MULADD(at[5], at[46]); MULADD(at[6], at[45]); MULADD(at[7], at[44]); MULADD(at[8], at[43]); MULADD(at[9], at[42]); MULADD(at[10], at[41]); MULADD(at[11], at[40]); MULADD(at[12], at[39]); MULADD(at[13], at[38]); MULADD(at[14], at[37]); MULADD(at[15], at[36]); MULADD(at[16], at[35]); MULADD(at[17], at[34]); MULADD(at[18], at[33]); MULADD(at[19], at[32]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[52]); MULADD(at[1], at[51]); MULADD(at[2], at[50]); MULADD(at[3], at[49]); MULADD(at[4], at[48]); MULADD(at[5], at[47]); MULADD(at[6], at[46]); MULADD(at[7], at[45]); MULADD(at[8], at[44]); MULADD(at[9], at[43]); MULADD(at[10], at[42]); MULADD(at[11], at[41]); MULADD(at[12], at[40]); MULADD(at[13], at[39]); MULADD(at[14], at[38]); MULADD(at[15], at[37]); MULADD(at[16], at[36]); MULADD(at[17], at[35]); MULADD(at[18], at[34]); MULADD(at[19], at[33]); MULADD(at[20], at[32]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[53]); MULADD(at[1], at[52]); MULADD(at[2], at[51]); MULADD(at[3], at[50]); MULADD(at[4], at[49]); MULADD(at[5], at[48]); MULADD(at[6], at[47]); MULADD(at[7], at[46]); MULADD(at[8], at[45]); MULADD(at[9], at[44]); MULADD(at[10], at[43]); MULADD(at[11], at[42]); MULADD(at[12], at[41]); MULADD(at[13], at[40]); MULADD(at[14], at[39]); MULADD(at[15], at[38]); MULADD(at[16], at[37]); MULADD(at[17], at[36]); MULADD(at[18], at[35]); MULADD(at[19], at[34]); MULADD(at[20], at[33]); MULADD(at[21], at[32]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[54]); MULADD(at[1], at[53]); MULADD(at[2], at[52]); MULADD(at[3], at[51]); MULADD(at[4], at[50]); MULADD(at[5], at[49]); MULADD(at[6], at[48]); MULADD(at[7], at[47]); MULADD(at[8], at[46]); MULADD(at[9], at[45]); MULADD(at[10], at[44]); MULADD(at[11], at[43]); MULADD(at[12], at[42]); MULADD(at[13], at[41]); MULADD(at[14], at[40]); MULADD(at[15], at[39]); MULADD(at[16], at[38]); MULADD(at[17], at[37]); MULADD(at[18], at[36]); MULADD(at[19], at[35]); MULADD(at[20], at[34]); MULADD(at[21], at[33]); MULADD(at[22], at[32]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[55]); MULADD(at[1], at[54]); MULADD(at[2], at[53]); MULADD(at[3], at[52]); MULADD(at[4], at[51]); MULADD(at[5], at[50]); MULADD(at[6], at[49]); MULADD(at[7], at[48]); MULADD(at[8], at[47]); MULADD(at[9], at[46]); MULADD(at[10], at[45]); MULADD(at[11], at[44]); MULADD(at[12], at[43]); MULADD(at[13], at[42]); MULADD(at[14], at[41]); MULADD(at[15], at[40]); MULADD(at[16], at[39]); MULADD(at[17], at[38]); MULADD(at[18], at[37]); MULADD(at[19], at[36]); MULADD(at[20], at[35]); MULADD(at[21], at[34]); MULADD(at[22], at[33]); MULADD(at[23], at[32]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[56]); MULADD(at[1], at[55]); MULADD(at[2], at[54]); MULADD(at[3], at[53]); MULADD(at[4], at[52]); MULADD(at[5], at[51]); MULADD(at[6], at[50]); MULADD(at[7], at[49]); MULADD(at[8], at[48]); MULADD(at[9], at[47]); MULADD(at[10], at[46]); MULADD(at[11], at[45]); MULADD(at[12], at[44]); MULADD(at[13], at[43]); MULADD(at[14], at[42]); MULADD(at[15], at[41]); MULADD(at[16], at[40]); MULADD(at[17], at[39]); MULADD(at[18], at[38]); MULADD(at[19], at[37]); MULADD(at[20], at[36]); MULADD(at[21], at[35]); MULADD(at[22], at[34]); MULADD(at[23], at[33]); MULADD(at[24], at[32]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[57]); MULADD(at[1], at[56]); MULADD(at[2], at[55]); MULADD(at[3], at[54]); MULADD(at[4], at[53]); MULADD(at[5], at[52]); MULADD(at[6], at[51]); MULADD(at[7], at[50]); MULADD(at[8], at[49]); MULADD(at[9], at[48]); MULADD(at[10], at[47]); MULADD(at[11], at[46]); MULADD(at[12], at[45]); MULADD(at[13], at[44]); MULADD(at[14], at[43]); MULADD(at[15], at[42]); MULADD(at[16], at[41]); MULADD(at[17], at[40]); MULADD(at[18], at[39]); MULADD(at[19], at[38]); MULADD(at[20], at[37]); MULADD(at[21], at[36]); MULADD(at[22], at[35]); MULADD(at[23], at[34]); MULADD(at[24], at[33]); MULADD(at[25], at[32]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[58]); MULADD(at[1], at[57]); MULADD(at[2], at[56]); MULADD(at[3], at[55]); MULADD(at[4], at[54]); MULADD(at[5], at[53]); MULADD(at[6], at[52]); MULADD(at[7], at[51]); MULADD(at[8], at[50]); MULADD(at[9], at[49]); MULADD(at[10], at[48]); MULADD(at[11], at[47]); MULADD(at[12], at[46]); MULADD(at[13], at[45]); MULADD(at[14], at[44]); MULADD(at[15], at[43]); MULADD(at[16], at[42]); MULADD(at[17], at[41]); MULADD(at[18], at[40]); MULADD(at[19], at[39]); MULADD(at[20], at[38]); MULADD(at[21], at[37]); MULADD(at[22], at[36]); MULADD(at[23], at[35]); MULADD(at[24], at[34]); MULADD(at[25], at[33]); MULADD(at[26], at[32]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[59]); MULADD(at[1], at[58]); MULADD(at[2], at[57]); MULADD(at[3], at[56]); MULADD(at[4], at[55]); MULADD(at[5], at[54]); MULADD(at[6], at[53]); MULADD(at[7], at[52]); MULADD(at[8], at[51]); MULADD(at[9], at[50]); MULADD(at[10], at[49]); MULADD(at[11], at[48]); MULADD(at[12], at[47]); MULADD(at[13], at[46]); MULADD(at[14], at[45]); MULADD(at[15], at[44]); MULADD(at[16], at[43]); MULADD(at[17], at[42]); MULADD(at[18], at[41]); MULADD(at[19], at[40]); MULADD(at[20], at[39]); MULADD(at[21], at[38]); MULADD(at[22], at[37]); MULADD(at[23], at[36]); MULADD(at[24], at[35]); MULADD(at[25], at[34]); MULADD(at[26], at[33]); MULADD(at[27], at[32]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[60]); MULADD(at[1], at[59]); MULADD(at[2], at[58]); MULADD(at[3], at[57]); MULADD(at[4], at[56]); MULADD(at[5], at[55]); MULADD(at[6], at[54]); MULADD(at[7], at[53]); MULADD(at[8], at[52]); MULADD(at[9], at[51]); MULADD(at[10], at[50]); MULADD(at[11], at[49]); MULADD(at[12], at[48]); MULADD(at[13], at[47]); MULADD(at[14], at[46]); MULADD(at[15], at[45]); MULADD(at[16], at[44]); MULADD(at[17], at[43]); MULADD(at[18], at[42]); MULADD(at[19], at[41]); MULADD(at[20], at[40]); MULADD(at[21], at[39]); MULADD(at[22], at[38]); MULADD(at[23], at[37]); MULADD(at[24], at[36]); MULADD(at[25], at[35]); MULADD(at[26], at[34]); MULADD(at[27], at[33]); MULADD(at[28], at[32]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[61]); MULADD(at[1], at[60]); MULADD(at[2], at[59]); MULADD(at[3], at[58]); MULADD(at[4], at[57]); MULADD(at[5], at[56]); MULADD(at[6], at[55]); MULADD(at[7], at[54]); MULADD(at[8], at[53]); MULADD(at[9], at[52]); MULADD(at[10], at[51]); MULADD(at[11], at[50]); MULADD(at[12], at[49]); MULADD(at[13], at[48]); MULADD(at[14], at[47]); MULADD(at[15], at[46]); MULADD(at[16], at[45]); MULADD(at[17], at[44]); MULADD(at[18], at[43]); MULADD(at[19], at[42]); MULADD(at[20], at[41]); MULADD(at[21], at[40]); MULADD(at[22], at[39]); MULADD(at[23], at[38]); MULADD(at[24], at[37]); MULADD(at[25], at[36]); MULADD(at[26], at[35]); MULADD(at[27], at[34]); MULADD(at[28], at[33]); MULADD(at[29], at[32]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[62]); MULADD(at[1], at[61]); MULADD(at[2], at[60]); MULADD(at[3], at[59]); MULADD(at[4], at[58]); MULADD(at[5], at[57]); MULADD(at[6], at[56]); MULADD(at[7], at[55]); MULADD(at[8], at[54]); MULADD(at[9], at[53]); MULADD(at[10], at[52]); MULADD(at[11], at[51]); MULADD(at[12], at[50]); MULADD(at[13], at[49]); MULADD(at[14], at[48]); MULADD(at[15], at[47]); MULADD(at[16], at[46]); MULADD(at[17], at[45]); MULADD(at[18], at[44]); MULADD(at[19], at[43]); MULADD(at[20], at[42]); MULADD(at[21], at[41]); MULADD(at[22], at[40]); MULADD(at[23], at[39]); MULADD(at[24], at[38]); MULADD(at[25], at[37]); MULADD(at[26], at[36]); MULADD(at[27], at[35]); MULADD(at[28], at[34]); MULADD(at[29], at[33]); MULADD(at[30], at[32]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[63]); MULADD(at[1], at[62]); MULADD(at[2], at[61]); MULADD(at[3], at[60]); MULADD(at[4], at[59]); MULADD(at[5], at[58]); MULADD(at[6], at[57]); MULADD(at[7], at[56]); MULADD(at[8], at[55]); MULADD(at[9], at[54]); MULADD(at[10], at[53]); MULADD(at[11], at[52]); MULADD(at[12], at[51]); MULADD(at[13], at[50]); MULADD(at[14], at[49]); MULADD(at[15], at[48]); MULADD(at[16], at[47]); MULADD(at[17], at[46]); MULADD(at[18], at[45]); MULADD(at[19], at[44]); MULADD(at[20], at[43]); MULADD(at[21], at[42]); MULADD(at[22], at[41]); MULADD(at[23], at[40]); MULADD(at[24], at[39]); MULADD(at[25], at[38]); MULADD(at[26], at[37]); MULADD(at[27], at[36]); MULADD(at[28], at[35]); MULADD(at[29], at[34]); MULADD(at[30], at[33]); MULADD(at[31], at[32]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[63]); MULADD(at[2], at[62]); MULADD(at[3], at[61]); MULADD(at[4], at[60]); MULADD(at[5], at[59]); MULADD(at[6], at[58]); MULADD(at[7], at[57]); MULADD(at[8], at[56]); MULADD(at[9], at[55]); MULADD(at[10], at[54]); MULADD(at[11], at[53]); MULADD(at[12], at[52]); MULADD(at[13], at[51]); MULADD(at[14], at[50]); MULADD(at[15], at[49]); MULADD(at[16], at[48]); MULADD(at[17], at[47]); MULADD(at[18], at[46]); MULADD(at[19], at[45]); MULADD(at[20], at[44]); MULADD(at[21], at[43]); MULADD(at[22], at[42]); MULADD(at[23], at[41]); MULADD(at[24], at[40]); MULADD(at[25], at[39]); MULADD(at[26], at[38]); MULADD(at[27], at[37]); MULADD(at[28], at[36]); MULADD(at[29], at[35]); MULADD(at[30], at[34]); MULADD(at[31], at[33]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[63]); MULADD(at[3], at[62]); MULADD(at[4], at[61]); MULADD(at[5], at[60]); MULADD(at[6], at[59]); MULADD(at[7], at[58]); MULADD(at[8], at[57]); MULADD(at[9], at[56]); MULADD(at[10], at[55]); MULADD(at[11], at[54]); MULADD(at[12], at[53]); MULADD(at[13], at[52]); MULADD(at[14], at[51]); MULADD(at[15], at[50]); MULADD(at[16], at[49]); MULADD(at[17], at[48]); MULADD(at[18], at[47]); MULADD(at[19], at[46]); MULADD(at[20], at[45]); MULADD(at[21], at[44]); MULADD(at[22], at[43]); MULADD(at[23], at[42]); MULADD(at[24], at[41]); MULADD(at[25], at[40]); MULADD(at[26], at[39]); MULADD(at[27], at[38]); MULADD(at[28], at[37]); MULADD(at[29], at[36]); MULADD(at[30], at[35]); MULADD(at[31], at[34]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[63]); MULADD(at[4], at[62]); MULADD(at[5], at[61]); MULADD(at[6], at[60]); MULADD(at[7], at[59]); MULADD(at[8], at[58]); MULADD(at[9], at[57]); MULADD(at[10], at[56]); MULADD(at[11], at[55]); MULADD(at[12], at[54]); MULADD(at[13], at[53]); MULADD(at[14], at[52]); MULADD(at[15], at[51]); MULADD(at[16], at[50]); MULADD(at[17], at[49]); MULADD(at[18], at[48]); MULADD(at[19], at[47]); MULADD(at[20], at[46]); MULADD(at[21], at[45]); MULADD(at[22], at[44]); MULADD(at[23], at[43]); MULADD(at[24], at[42]); MULADD(at[25], at[41]); MULADD(at[26], at[40]); MULADD(at[27], at[39]); MULADD(at[28], at[38]); MULADD(at[29], at[37]); MULADD(at[30], at[36]); MULADD(at[31], at[35]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[63]); MULADD(at[5], at[62]); MULADD(at[6], at[61]); MULADD(at[7], at[60]); MULADD(at[8], at[59]); MULADD(at[9], at[58]); MULADD(at[10], at[57]); MULADD(at[11], at[56]); MULADD(at[12], at[55]); MULADD(at[13], at[54]); MULADD(at[14], at[53]); MULADD(at[15], at[52]); MULADD(at[16], at[51]); MULADD(at[17], at[50]); MULADD(at[18], at[49]); MULADD(at[19], at[48]); MULADD(at[20], at[47]); MULADD(at[21], at[46]); MULADD(at[22], at[45]); MULADD(at[23], at[44]); MULADD(at[24], at[43]); MULADD(at[25], at[42]); MULADD(at[26], at[41]); MULADD(at[27], at[40]); MULADD(at[28], at[39]); MULADD(at[29], at[38]); MULADD(at[30], at[37]); MULADD(at[31], at[36]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[63]); MULADD(at[6], at[62]); MULADD(at[7], at[61]); MULADD(at[8], at[60]); MULADD(at[9], at[59]); MULADD(at[10], at[58]); MULADD(at[11], at[57]); MULADD(at[12], at[56]); MULADD(at[13], at[55]); MULADD(at[14], at[54]); MULADD(at[15], at[53]); MULADD(at[16], at[52]); MULADD(at[17], at[51]); MULADD(at[18], at[50]); MULADD(at[19], at[49]); MULADD(at[20], at[48]); MULADD(at[21], at[47]); MULADD(at[22], at[46]); MULADD(at[23], at[45]); MULADD(at[24], at[44]); MULADD(at[25], at[43]); MULADD(at[26], at[42]); MULADD(at[27], at[41]); MULADD(at[28], at[40]); MULADD(at[29], at[39]); MULADD(at[30], at[38]); MULADD(at[31], at[37]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[63]); MULADD(at[7], at[62]); MULADD(at[8], at[61]); MULADD(at[9], at[60]); MULADD(at[10], at[59]); MULADD(at[11], at[58]); MULADD(at[12], at[57]); MULADD(at[13], at[56]); MULADD(at[14], at[55]); MULADD(at[15], at[54]); MULADD(at[16], at[53]); MULADD(at[17], at[52]); MULADD(at[18], at[51]); MULADD(at[19], at[50]); MULADD(at[20], at[49]); MULADD(at[21], at[48]); MULADD(at[22], at[47]); MULADD(at[23], at[46]); MULADD(at[24], at[45]); MULADD(at[25], at[44]); MULADD(at[26], at[43]); MULADD(at[27], at[42]); MULADD(at[28], at[41]); MULADD(at[29], at[40]); MULADD(at[30], at[39]); MULADD(at[31], at[38]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[63]); MULADD(at[8], at[62]); MULADD(at[9], at[61]); MULADD(at[10], at[60]); MULADD(at[11], at[59]); MULADD(at[12], at[58]); MULADD(at[13], at[57]); MULADD(at[14], at[56]); MULADD(at[15], at[55]); MULADD(at[16], at[54]); MULADD(at[17], at[53]); MULADD(at[18], at[52]); MULADD(at[19], at[51]); MULADD(at[20], at[50]); MULADD(at[21], at[49]); MULADD(at[22], at[48]); MULADD(at[23], at[47]); MULADD(at[24], at[46]); MULADD(at[25], at[45]); MULADD(at[26], at[44]); MULADD(at[27], at[43]); MULADD(at[28], at[42]); MULADD(at[29], at[41]); MULADD(at[30], at[40]); MULADD(at[31], at[39]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
|
||||||
|
/* early out at 40 digits, 40*32==1280, or two 640 bit operands */
|
||||||
|
if (out_size <= 40) { COMBA_STORE2(C->dp[39]); C->used = 40; C->sign = A->sign ^ B->sign; fp_clamp(C); COMBA_FINI; return; }
|
||||||
|
|
||||||
|
/* 39 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[63]); MULADD(at[9], at[62]); MULADD(at[10], at[61]); MULADD(at[11], at[60]); MULADD(at[12], at[59]); MULADD(at[13], at[58]); MULADD(at[14], at[57]); MULADD(at[15], at[56]); MULADD(at[16], at[55]); MULADD(at[17], at[54]); MULADD(at[18], at[53]); MULADD(at[19], at[52]); MULADD(at[20], at[51]); MULADD(at[21], at[50]); MULADD(at[22], at[49]); MULADD(at[23], at[48]); MULADD(at[24], at[47]); MULADD(at[25], at[46]); MULADD(at[26], at[45]); MULADD(at[27], at[44]); MULADD(at[28], at[43]); MULADD(at[29], at[42]); MULADD(at[30], at[41]); MULADD(at[31], at[40]);
|
||||||
|
COMBA_STORE(C->dp[39]);
|
||||||
|
/* 40 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[63]); MULADD(at[10], at[62]); MULADD(at[11], at[61]); MULADD(at[12], at[60]); MULADD(at[13], at[59]); MULADD(at[14], at[58]); MULADD(at[15], at[57]); MULADD(at[16], at[56]); MULADD(at[17], at[55]); MULADD(at[18], at[54]); MULADD(at[19], at[53]); MULADD(at[20], at[52]); MULADD(at[21], at[51]); MULADD(at[22], at[50]); MULADD(at[23], at[49]); MULADD(at[24], at[48]); MULADD(at[25], at[47]); MULADD(at[26], at[46]); MULADD(at[27], at[45]); MULADD(at[28], at[44]); MULADD(at[29], at[43]); MULADD(at[30], at[42]); MULADD(at[31], at[41]);
|
||||||
|
COMBA_STORE(C->dp[40]);
|
||||||
|
/* 41 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[63]); MULADD(at[11], at[62]); MULADD(at[12], at[61]); MULADD(at[13], at[60]); MULADD(at[14], at[59]); MULADD(at[15], at[58]); MULADD(at[16], at[57]); MULADD(at[17], at[56]); MULADD(at[18], at[55]); MULADD(at[19], at[54]); MULADD(at[20], at[53]); MULADD(at[21], at[52]); MULADD(at[22], at[51]); MULADD(at[23], at[50]); MULADD(at[24], at[49]); MULADD(at[25], at[48]); MULADD(at[26], at[47]); MULADD(at[27], at[46]); MULADD(at[28], at[45]); MULADD(at[29], at[44]); MULADD(at[30], at[43]); MULADD(at[31], at[42]);
|
||||||
|
COMBA_STORE(C->dp[41]);
|
||||||
|
/* 42 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[63]); MULADD(at[12], at[62]); MULADD(at[13], at[61]); MULADD(at[14], at[60]); MULADD(at[15], at[59]); MULADD(at[16], at[58]); MULADD(at[17], at[57]); MULADD(at[18], at[56]); MULADD(at[19], at[55]); MULADD(at[20], at[54]); MULADD(at[21], at[53]); MULADD(at[22], at[52]); MULADD(at[23], at[51]); MULADD(at[24], at[50]); MULADD(at[25], at[49]); MULADD(at[26], at[48]); MULADD(at[27], at[47]); MULADD(at[28], at[46]); MULADD(at[29], at[45]); MULADD(at[30], at[44]); MULADD(at[31], at[43]);
|
||||||
|
COMBA_STORE(C->dp[42]);
|
||||||
|
/* 43 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[63]); MULADD(at[13], at[62]); MULADD(at[14], at[61]); MULADD(at[15], at[60]); MULADD(at[16], at[59]); MULADD(at[17], at[58]); MULADD(at[18], at[57]); MULADD(at[19], at[56]); MULADD(at[20], at[55]); MULADD(at[21], at[54]); MULADD(at[22], at[53]); MULADD(at[23], at[52]); MULADD(at[24], at[51]); MULADD(at[25], at[50]); MULADD(at[26], at[49]); MULADD(at[27], at[48]); MULADD(at[28], at[47]); MULADD(at[29], at[46]); MULADD(at[30], at[45]); MULADD(at[31], at[44]);
|
||||||
|
COMBA_STORE(C->dp[43]);
|
||||||
|
/* 44 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[63]); MULADD(at[14], at[62]); MULADD(at[15], at[61]); MULADD(at[16], at[60]); MULADD(at[17], at[59]); MULADD(at[18], at[58]); MULADD(at[19], at[57]); MULADD(at[20], at[56]); MULADD(at[21], at[55]); MULADD(at[22], at[54]); MULADD(at[23], at[53]); MULADD(at[24], at[52]); MULADD(at[25], at[51]); MULADD(at[26], at[50]); MULADD(at[27], at[49]); MULADD(at[28], at[48]); MULADD(at[29], at[47]); MULADD(at[30], at[46]); MULADD(at[31], at[45]);
|
||||||
|
COMBA_STORE(C->dp[44]);
|
||||||
|
/* 45 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[63]); MULADD(at[15], at[62]); MULADD(at[16], at[61]); MULADD(at[17], at[60]); MULADD(at[18], at[59]); MULADD(at[19], at[58]); MULADD(at[20], at[57]); MULADD(at[21], at[56]); MULADD(at[22], at[55]); MULADD(at[23], at[54]); MULADD(at[24], at[53]); MULADD(at[25], at[52]); MULADD(at[26], at[51]); MULADD(at[27], at[50]); MULADD(at[28], at[49]); MULADD(at[29], at[48]); MULADD(at[30], at[47]); MULADD(at[31], at[46]);
|
||||||
|
COMBA_STORE(C->dp[45]);
|
||||||
|
/* 46 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[63]); MULADD(at[16], at[62]); MULADD(at[17], at[61]); MULADD(at[18], at[60]); MULADD(at[19], at[59]); MULADD(at[20], at[58]); MULADD(at[21], at[57]); MULADD(at[22], at[56]); MULADD(at[23], at[55]); MULADD(at[24], at[54]); MULADD(at[25], at[53]); MULADD(at[26], at[52]); MULADD(at[27], at[51]); MULADD(at[28], at[50]); MULADD(at[29], at[49]); MULADD(at[30], at[48]); MULADD(at[31], at[47]);
|
||||||
|
COMBA_STORE(C->dp[46]);
|
||||||
|
|
||||||
|
/* early out at 48 digits, 48*32==1536, or two 768 bit operands */
|
||||||
|
if (out_size <= 48) { COMBA_STORE2(C->dp[47]); C->used = 48; C->sign = A->sign ^ B->sign; fp_clamp(C); COMBA_FINI; return; }
|
||||||
|
|
||||||
|
/* 47 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[63]); MULADD(at[17], at[62]); MULADD(at[18], at[61]); MULADD(at[19], at[60]); MULADD(at[20], at[59]); MULADD(at[21], at[58]); MULADD(at[22], at[57]); MULADD(at[23], at[56]); MULADD(at[24], at[55]); MULADD(at[25], at[54]); MULADD(at[26], at[53]); MULADD(at[27], at[52]); MULADD(at[28], at[51]); MULADD(at[29], at[50]); MULADD(at[30], at[49]); MULADD(at[31], at[48]);
|
||||||
|
COMBA_STORE(C->dp[47]);
|
||||||
|
/* 48 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[63]); MULADD(at[18], at[62]); MULADD(at[19], at[61]); MULADD(at[20], at[60]); MULADD(at[21], at[59]); MULADD(at[22], at[58]); MULADD(at[23], at[57]); MULADD(at[24], at[56]); MULADD(at[25], at[55]); MULADD(at[26], at[54]); MULADD(at[27], at[53]); MULADD(at[28], at[52]); MULADD(at[29], at[51]); MULADD(at[30], at[50]); MULADD(at[31], at[49]);
|
||||||
|
COMBA_STORE(C->dp[48]);
|
||||||
|
/* 49 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[63]); MULADD(at[19], at[62]); MULADD(at[20], at[61]); MULADD(at[21], at[60]); MULADD(at[22], at[59]); MULADD(at[23], at[58]); MULADD(at[24], at[57]); MULADD(at[25], at[56]); MULADD(at[26], at[55]); MULADD(at[27], at[54]); MULADD(at[28], at[53]); MULADD(at[29], at[52]); MULADD(at[30], at[51]); MULADD(at[31], at[50]);
|
||||||
|
COMBA_STORE(C->dp[49]);
|
||||||
|
/* 50 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[63]); MULADD(at[20], at[62]); MULADD(at[21], at[61]); MULADD(at[22], at[60]); MULADD(at[23], at[59]); MULADD(at[24], at[58]); MULADD(at[25], at[57]); MULADD(at[26], at[56]); MULADD(at[27], at[55]); MULADD(at[28], at[54]); MULADD(at[29], at[53]); MULADD(at[30], at[52]); MULADD(at[31], at[51]);
|
||||||
|
COMBA_STORE(C->dp[50]);
|
||||||
|
/* 51 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[20], at[63]); MULADD(at[21], at[62]); MULADD(at[22], at[61]); MULADD(at[23], at[60]); MULADD(at[24], at[59]); MULADD(at[25], at[58]); MULADD(at[26], at[57]); MULADD(at[27], at[56]); MULADD(at[28], at[55]); MULADD(at[29], at[54]); MULADD(at[30], at[53]); MULADD(at[31], at[52]);
|
||||||
|
COMBA_STORE(C->dp[51]);
|
||||||
|
/* 52 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[21], at[63]); MULADD(at[22], at[62]); MULADD(at[23], at[61]); MULADD(at[24], at[60]); MULADD(at[25], at[59]); MULADD(at[26], at[58]); MULADD(at[27], at[57]); MULADD(at[28], at[56]); MULADD(at[29], at[55]); MULADD(at[30], at[54]); MULADD(at[31], at[53]);
|
||||||
|
COMBA_STORE(C->dp[52]);
|
||||||
|
/* 53 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[22], at[63]); MULADD(at[23], at[62]); MULADD(at[24], at[61]); MULADD(at[25], at[60]); MULADD(at[26], at[59]); MULADD(at[27], at[58]); MULADD(at[28], at[57]); MULADD(at[29], at[56]); MULADD(at[30], at[55]); MULADD(at[31], at[54]);
|
||||||
|
COMBA_STORE(C->dp[53]);
|
||||||
|
/* 54 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[23], at[63]); MULADD(at[24], at[62]); MULADD(at[25], at[61]); MULADD(at[26], at[60]); MULADD(at[27], at[59]); MULADD(at[28], at[58]); MULADD(at[29], at[57]); MULADD(at[30], at[56]); MULADD(at[31], at[55]);
|
||||||
|
COMBA_STORE(C->dp[54]);
|
||||||
|
|
||||||
|
/* early out at 56 digits, 56*32==1792, or two 896 bit operands */
|
||||||
|
if (out_size <= 56) { COMBA_STORE2(C->dp[55]); C->used = 56; C->sign = A->sign ^ B->sign; fp_clamp(C); COMBA_FINI; return; }
|
||||||
|
|
||||||
|
/* 55 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[24], at[63]); MULADD(at[25], at[62]); MULADD(at[26], at[61]); MULADD(at[27], at[60]); MULADD(at[28], at[59]); MULADD(at[29], at[58]); MULADD(at[30], at[57]); MULADD(at[31], at[56]);
|
||||||
|
COMBA_STORE(C->dp[55]);
|
||||||
|
/* 56 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[25], at[63]); MULADD(at[26], at[62]); MULADD(at[27], at[61]); MULADD(at[28], at[60]); MULADD(at[29], at[59]); MULADD(at[30], at[58]); MULADD(at[31], at[57]);
|
||||||
|
COMBA_STORE(C->dp[56]);
|
||||||
|
/* 57 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[26], at[63]); MULADD(at[27], at[62]); MULADD(at[28], at[61]); MULADD(at[29], at[60]); MULADD(at[30], at[59]); MULADD(at[31], at[58]);
|
||||||
|
COMBA_STORE(C->dp[57]);
|
||||||
|
/* 58 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[27], at[63]); MULADD(at[28], at[62]); MULADD(at[29], at[61]); MULADD(at[30], at[60]); MULADD(at[31], at[59]);
|
||||||
|
COMBA_STORE(C->dp[58]);
|
||||||
|
/* 59 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[28], at[63]); MULADD(at[29], at[62]); MULADD(at[30], at[61]); MULADD(at[31], at[60]);
|
||||||
|
COMBA_STORE(C->dp[59]);
|
||||||
|
/* 60 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[29], at[63]); MULADD(at[30], at[62]); MULADD(at[31], at[61]);
|
||||||
|
COMBA_STORE(C->dp[60]);
|
||||||
|
/* 61 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[30], at[63]); MULADD(at[31], at[62]);
|
||||||
|
COMBA_STORE(C->dp[61]);
|
||||||
|
/* 62 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[31], at[63]);
|
||||||
|
COMBA_STORE(C->dp[62]);
|
||||||
|
COMBA_STORE2(C->dp[63]);
|
||||||
|
C->used = 64;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
47
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_4.c
Normal file
47
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_4.c
Normal file
@@ -0,0 +1,47 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL4
|
||||||
|
void fp_mul_comba4(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[8];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 4 * sizeof(fp_digit));
|
||||||
|
memcpy(at+4, B->dp, 4 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[4]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[5]); MULADD(at[1], at[4]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[6]); MULADD(at[1], at[5]); MULADD(at[2], at[4]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[7]); MULADD(at[1], at[6]); MULADD(at[2], at[5]); MULADD(at[3], at[4]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[7]); MULADD(at[2], at[6]); MULADD(at[3], at[5]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[7]); MULADD(at[3], at[6]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[7]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
COMBA_STORE2(C->dp[7]);
|
||||||
|
C->used = 8;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
399
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_48.c
Normal file
399
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_48.c
Normal file
@@ -0,0 +1,399 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL48
|
||||||
|
void fp_mul_comba48(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[96];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 48 * sizeof(fp_digit));
|
||||||
|
memcpy(at+48, B->dp, 48 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[48]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[49]); MULADD(at[1], at[48]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[50]); MULADD(at[1], at[49]); MULADD(at[2], at[48]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[51]); MULADD(at[1], at[50]); MULADD(at[2], at[49]); MULADD(at[3], at[48]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[52]); MULADD(at[1], at[51]); MULADD(at[2], at[50]); MULADD(at[3], at[49]); MULADD(at[4], at[48]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[53]); MULADD(at[1], at[52]); MULADD(at[2], at[51]); MULADD(at[3], at[50]); MULADD(at[4], at[49]); MULADD(at[5], at[48]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[54]); MULADD(at[1], at[53]); MULADD(at[2], at[52]); MULADD(at[3], at[51]); MULADD(at[4], at[50]); MULADD(at[5], at[49]); MULADD(at[6], at[48]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[55]); MULADD(at[1], at[54]); MULADD(at[2], at[53]); MULADD(at[3], at[52]); MULADD(at[4], at[51]); MULADD(at[5], at[50]); MULADD(at[6], at[49]); MULADD(at[7], at[48]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[56]); MULADD(at[1], at[55]); MULADD(at[2], at[54]); MULADD(at[3], at[53]); MULADD(at[4], at[52]); MULADD(at[5], at[51]); MULADD(at[6], at[50]); MULADD(at[7], at[49]); MULADD(at[8], at[48]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[57]); MULADD(at[1], at[56]); MULADD(at[2], at[55]); MULADD(at[3], at[54]); MULADD(at[4], at[53]); MULADD(at[5], at[52]); MULADD(at[6], at[51]); MULADD(at[7], at[50]); MULADD(at[8], at[49]); MULADD(at[9], at[48]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[58]); MULADD(at[1], at[57]); MULADD(at[2], at[56]); MULADD(at[3], at[55]); MULADD(at[4], at[54]); MULADD(at[5], at[53]); MULADD(at[6], at[52]); MULADD(at[7], at[51]); MULADD(at[8], at[50]); MULADD(at[9], at[49]); MULADD(at[10], at[48]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[59]); MULADD(at[1], at[58]); MULADD(at[2], at[57]); MULADD(at[3], at[56]); MULADD(at[4], at[55]); MULADD(at[5], at[54]); MULADD(at[6], at[53]); MULADD(at[7], at[52]); MULADD(at[8], at[51]); MULADD(at[9], at[50]); MULADD(at[10], at[49]); MULADD(at[11], at[48]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[60]); MULADD(at[1], at[59]); MULADD(at[2], at[58]); MULADD(at[3], at[57]); MULADD(at[4], at[56]); MULADD(at[5], at[55]); MULADD(at[6], at[54]); MULADD(at[7], at[53]); MULADD(at[8], at[52]); MULADD(at[9], at[51]); MULADD(at[10], at[50]); MULADD(at[11], at[49]); MULADD(at[12], at[48]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[61]); MULADD(at[1], at[60]); MULADD(at[2], at[59]); MULADD(at[3], at[58]); MULADD(at[4], at[57]); MULADD(at[5], at[56]); MULADD(at[6], at[55]); MULADD(at[7], at[54]); MULADD(at[8], at[53]); MULADD(at[9], at[52]); MULADD(at[10], at[51]); MULADD(at[11], at[50]); MULADD(at[12], at[49]); MULADD(at[13], at[48]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[62]); MULADD(at[1], at[61]); MULADD(at[2], at[60]); MULADD(at[3], at[59]); MULADD(at[4], at[58]); MULADD(at[5], at[57]); MULADD(at[6], at[56]); MULADD(at[7], at[55]); MULADD(at[8], at[54]); MULADD(at[9], at[53]); MULADD(at[10], at[52]); MULADD(at[11], at[51]); MULADD(at[12], at[50]); MULADD(at[13], at[49]); MULADD(at[14], at[48]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[63]); MULADD(at[1], at[62]); MULADD(at[2], at[61]); MULADD(at[3], at[60]); MULADD(at[4], at[59]); MULADD(at[5], at[58]); MULADD(at[6], at[57]); MULADD(at[7], at[56]); MULADD(at[8], at[55]); MULADD(at[9], at[54]); MULADD(at[10], at[53]); MULADD(at[11], at[52]); MULADD(at[12], at[51]); MULADD(at[13], at[50]); MULADD(at[14], at[49]); MULADD(at[15], at[48]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[64]); MULADD(at[1], at[63]); MULADD(at[2], at[62]); MULADD(at[3], at[61]); MULADD(at[4], at[60]); MULADD(at[5], at[59]); MULADD(at[6], at[58]); MULADD(at[7], at[57]); MULADD(at[8], at[56]); MULADD(at[9], at[55]); MULADD(at[10], at[54]); MULADD(at[11], at[53]); MULADD(at[12], at[52]); MULADD(at[13], at[51]); MULADD(at[14], at[50]); MULADD(at[15], at[49]); MULADD(at[16], at[48]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[65]); MULADD(at[1], at[64]); MULADD(at[2], at[63]); MULADD(at[3], at[62]); MULADD(at[4], at[61]); MULADD(at[5], at[60]); MULADD(at[6], at[59]); MULADD(at[7], at[58]); MULADD(at[8], at[57]); MULADD(at[9], at[56]); MULADD(at[10], at[55]); MULADD(at[11], at[54]); MULADD(at[12], at[53]); MULADD(at[13], at[52]); MULADD(at[14], at[51]); MULADD(at[15], at[50]); MULADD(at[16], at[49]); MULADD(at[17], at[48]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[66]); MULADD(at[1], at[65]); MULADD(at[2], at[64]); MULADD(at[3], at[63]); MULADD(at[4], at[62]); MULADD(at[5], at[61]); MULADD(at[6], at[60]); MULADD(at[7], at[59]); MULADD(at[8], at[58]); MULADD(at[9], at[57]); MULADD(at[10], at[56]); MULADD(at[11], at[55]); MULADD(at[12], at[54]); MULADD(at[13], at[53]); MULADD(at[14], at[52]); MULADD(at[15], at[51]); MULADD(at[16], at[50]); MULADD(at[17], at[49]); MULADD(at[18], at[48]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[67]); MULADD(at[1], at[66]); MULADD(at[2], at[65]); MULADD(at[3], at[64]); MULADD(at[4], at[63]); MULADD(at[5], at[62]); MULADD(at[6], at[61]); MULADD(at[7], at[60]); MULADD(at[8], at[59]); MULADD(at[9], at[58]); MULADD(at[10], at[57]); MULADD(at[11], at[56]); MULADD(at[12], at[55]); MULADD(at[13], at[54]); MULADD(at[14], at[53]); MULADD(at[15], at[52]); MULADD(at[16], at[51]); MULADD(at[17], at[50]); MULADD(at[18], at[49]); MULADD(at[19], at[48]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[68]); MULADD(at[1], at[67]); MULADD(at[2], at[66]); MULADD(at[3], at[65]); MULADD(at[4], at[64]); MULADD(at[5], at[63]); MULADD(at[6], at[62]); MULADD(at[7], at[61]); MULADD(at[8], at[60]); MULADD(at[9], at[59]); MULADD(at[10], at[58]); MULADD(at[11], at[57]); MULADD(at[12], at[56]); MULADD(at[13], at[55]); MULADD(at[14], at[54]); MULADD(at[15], at[53]); MULADD(at[16], at[52]); MULADD(at[17], at[51]); MULADD(at[18], at[50]); MULADD(at[19], at[49]); MULADD(at[20], at[48]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[69]); MULADD(at[1], at[68]); MULADD(at[2], at[67]); MULADD(at[3], at[66]); MULADD(at[4], at[65]); MULADD(at[5], at[64]); MULADD(at[6], at[63]); MULADD(at[7], at[62]); MULADD(at[8], at[61]); MULADD(at[9], at[60]); MULADD(at[10], at[59]); MULADD(at[11], at[58]); MULADD(at[12], at[57]); MULADD(at[13], at[56]); MULADD(at[14], at[55]); MULADD(at[15], at[54]); MULADD(at[16], at[53]); MULADD(at[17], at[52]); MULADD(at[18], at[51]); MULADD(at[19], at[50]); MULADD(at[20], at[49]); MULADD(at[21], at[48]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[70]); MULADD(at[1], at[69]); MULADD(at[2], at[68]); MULADD(at[3], at[67]); MULADD(at[4], at[66]); MULADD(at[5], at[65]); MULADD(at[6], at[64]); MULADD(at[7], at[63]); MULADD(at[8], at[62]); MULADD(at[9], at[61]); MULADD(at[10], at[60]); MULADD(at[11], at[59]); MULADD(at[12], at[58]); MULADD(at[13], at[57]); MULADD(at[14], at[56]); MULADD(at[15], at[55]); MULADD(at[16], at[54]); MULADD(at[17], at[53]); MULADD(at[18], at[52]); MULADD(at[19], at[51]); MULADD(at[20], at[50]); MULADD(at[21], at[49]); MULADD(at[22], at[48]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[71]); MULADD(at[1], at[70]); MULADD(at[2], at[69]); MULADD(at[3], at[68]); MULADD(at[4], at[67]); MULADD(at[5], at[66]); MULADD(at[6], at[65]); MULADD(at[7], at[64]); MULADD(at[8], at[63]); MULADD(at[9], at[62]); MULADD(at[10], at[61]); MULADD(at[11], at[60]); MULADD(at[12], at[59]); MULADD(at[13], at[58]); MULADD(at[14], at[57]); MULADD(at[15], at[56]); MULADD(at[16], at[55]); MULADD(at[17], at[54]); MULADD(at[18], at[53]); MULADD(at[19], at[52]); MULADD(at[20], at[51]); MULADD(at[21], at[50]); MULADD(at[22], at[49]); MULADD(at[23], at[48]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[72]); MULADD(at[1], at[71]); MULADD(at[2], at[70]); MULADD(at[3], at[69]); MULADD(at[4], at[68]); MULADD(at[5], at[67]); MULADD(at[6], at[66]); MULADD(at[7], at[65]); MULADD(at[8], at[64]); MULADD(at[9], at[63]); MULADD(at[10], at[62]); MULADD(at[11], at[61]); MULADD(at[12], at[60]); MULADD(at[13], at[59]); MULADD(at[14], at[58]); MULADD(at[15], at[57]); MULADD(at[16], at[56]); MULADD(at[17], at[55]); MULADD(at[18], at[54]); MULADD(at[19], at[53]); MULADD(at[20], at[52]); MULADD(at[21], at[51]); MULADD(at[22], at[50]); MULADD(at[23], at[49]); MULADD(at[24], at[48]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[73]); MULADD(at[1], at[72]); MULADD(at[2], at[71]); MULADD(at[3], at[70]); MULADD(at[4], at[69]); MULADD(at[5], at[68]); MULADD(at[6], at[67]); MULADD(at[7], at[66]); MULADD(at[8], at[65]); MULADD(at[9], at[64]); MULADD(at[10], at[63]); MULADD(at[11], at[62]); MULADD(at[12], at[61]); MULADD(at[13], at[60]); MULADD(at[14], at[59]); MULADD(at[15], at[58]); MULADD(at[16], at[57]); MULADD(at[17], at[56]); MULADD(at[18], at[55]); MULADD(at[19], at[54]); MULADD(at[20], at[53]); MULADD(at[21], at[52]); MULADD(at[22], at[51]); MULADD(at[23], at[50]); MULADD(at[24], at[49]); MULADD(at[25], at[48]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[74]); MULADD(at[1], at[73]); MULADD(at[2], at[72]); MULADD(at[3], at[71]); MULADD(at[4], at[70]); MULADD(at[5], at[69]); MULADD(at[6], at[68]); MULADD(at[7], at[67]); MULADD(at[8], at[66]); MULADD(at[9], at[65]); MULADD(at[10], at[64]); MULADD(at[11], at[63]); MULADD(at[12], at[62]); MULADD(at[13], at[61]); MULADD(at[14], at[60]); MULADD(at[15], at[59]); MULADD(at[16], at[58]); MULADD(at[17], at[57]); MULADD(at[18], at[56]); MULADD(at[19], at[55]); MULADD(at[20], at[54]); MULADD(at[21], at[53]); MULADD(at[22], at[52]); MULADD(at[23], at[51]); MULADD(at[24], at[50]); MULADD(at[25], at[49]); MULADD(at[26], at[48]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[75]); MULADD(at[1], at[74]); MULADD(at[2], at[73]); MULADD(at[3], at[72]); MULADD(at[4], at[71]); MULADD(at[5], at[70]); MULADD(at[6], at[69]); MULADD(at[7], at[68]); MULADD(at[8], at[67]); MULADD(at[9], at[66]); MULADD(at[10], at[65]); MULADD(at[11], at[64]); MULADD(at[12], at[63]); MULADD(at[13], at[62]); MULADD(at[14], at[61]); MULADD(at[15], at[60]); MULADD(at[16], at[59]); MULADD(at[17], at[58]); MULADD(at[18], at[57]); MULADD(at[19], at[56]); MULADD(at[20], at[55]); MULADD(at[21], at[54]); MULADD(at[22], at[53]); MULADD(at[23], at[52]); MULADD(at[24], at[51]); MULADD(at[25], at[50]); MULADD(at[26], at[49]); MULADD(at[27], at[48]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[76]); MULADD(at[1], at[75]); MULADD(at[2], at[74]); MULADD(at[3], at[73]); MULADD(at[4], at[72]); MULADD(at[5], at[71]); MULADD(at[6], at[70]); MULADD(at[7], at[69]); MULADD(at[8], at[68]); MULADD(at[9], at[67]); MULADD(at[10], at[66]); MULADD(at[11], at[65]); MULADD(at[12], at[64]); MULADD(at[13], at[63]); MULADD(at[14], at[62]); MULADD(at[15], at[61]); MULADD(at[16], at[60]); MULADD(at[17], at[59]); MULADD(at[18], at[58]); MULADD(at[19], at[57]); MULADD(at[20], at[56]); MULADD(at[21], at[55]); MULADD(at[22], at[54]); MULADD(at[23], at[53]); MULADD(at[24], at[52]); MULADD(at[25], at[51]); MULADD(at[26], at[50]); MULADD(at[27], at[49]); MULADD(at[28], at[48]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[77]); MULADD(at[1], at[76]); MULADD(at[2], at[75]); MULADD(at[3], at[74]); MULADD(at[4], at[73]); MULADD(at[5], at[72]); MULADD(at[6], at[71]); MULADD(at[7], at[70]); MULADD(at[8], at[69]); MULADD(at[9], at[68]); MULADD(at[10], at[67]); MULADD(at[11], at[66]); MULADD(at[12], at[65]); MULADD(at[13], at[64]); MULADD(at[14], at[63]); MULADD(at[15], at[62]); MULADD(at[16], at[61]); MULADD(at[17], at[60]); MULADD(at[18], at[59]); MULADD(at[19], at[58]); MULADD(at[20], at[57]); MULADD(at[21], at[56]); MULADD(at[22], at[55]); MULADD(at[23], at[54]); MULADD(at[24], at[53]); MULADD(at[25], at[52]); MULADD(at[26], at[51]); MULADD(at[27], at[50]); MULADD(at[28], at[49]); MULADD(at[29], at[48]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[78]); MULADD(at[1], at[77]); MULADD(at[2], at[76]); MULADD(at[3], at[75]); MULADD(at[4], at[74]); MULADD(at[5], at[73]); MULADD(at[6], at[72]); MULADD(at[7], at[71]); MULADD(at[8], at[70]); MULADD(at[9], at[69]); MULADD(at[10], at[68]); MULADD(at[11], at[67]); MULADD(at[12], at[66]); MULADD(at[13], at[65]); MULADD(at[14], at[64]); MULADD(at[15], at[63]); MULADD(at[16], at[62]); MULADD(at[17], at[61]); MULADD(at[18], at[60]); MULADD(at[19], at[59]); MULADD(at[20], at[58]); MULADD(at[21], at[57]); MULADD(at[22], at[56]); MULADD(at[23], at[55]); MULADD(at[24], at[54]); MULADD(at[25], at[53]); MULADD(at[26], at[52]); MULADD(at[27], at[51]); MULADD(at[28], at[50]); MULADD(at[29], at[49]); MULADD(at[30], at[48]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[79]); MULADD(at[1], at[78]); MULADD(at[2], at[77]); MULADD(at[3], at[76]); MULADD(at[4], at[75]); MULADD(at[5], at[74]); MULADD(at[6], at[73]); MULADD(at[7], at[72]); MULADD(at[8], at[71]); MULADD(at[9], at[70]); MULADD(at[10], at[69]); MULADD(at[11], at[68]); MULADD(at[12], at[67]); MULADD(at[13], at[66]); MULADD(at[14], at[65]); MULADD(at[15], at[64]); MULADD(at[16], at[63]); MULADD(at[17], at[62]); MULADD(at[18], at[61]); MULADD(at[19], at[60]); MULADD(at[20], at[59]); MULADD(at[21], at[58]); MULADD(at[22], at[57]); MULADD(at[23], at[56]); MULADD(at[24], at[55]); MULADD(at[25], at[54]); MULADD(at[26], at[53]); MULADD(at[27], at[52]); MULADD(at[28], at[51]); MULADD(at[29], at[50]); MULADD(at[30], at[49]); MULADD(at[31], at[48]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[80]); MULADD(at[1], at[79]); MULADD(at[2], at[78]); MULADD(at[3], at[77]); MULADD(at[4], at[76]); MULADD(at[5], at[75]); MULADD(at[6], at[74]); MULADD(at[7], at[73]); MULADD(at[8], at[72]); MULADD(at[9], at[71]); MULADD(at[10], at[70]); MULADD(at[11], at[69]); MULADD(at[12], at[68]); MULADD(at[13], at[67]); MULADD(at[14], at[66]); MULADD(at[15], at[65]); MULADD(at[16], at[64]); MULADD(at[17], at[63]); MULADD(at[18], at[62]); MULADD(at[19], at[61]); MULADD(at[20], at[60]); MULADD(at[21], at[59]); MULADD(at[22], at[58]); MULADD(at[23], at[57]); MULADD(at[24], at[56]); MULADD(at[25], at[55]); MULADD(at[26], at[54]); MULADD(at[27], at[53]); MULADD(at[28], at[52]); MULADD(at[29], at[51]); MULADD(at[30], at[50]); MULADD(at[31], at[49]); MULADD(at[32], at[48]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[81]); MULADD(at[1], at[80]); MULADD(at[2], at[79]); MULADD(at[3], at[78]); MULADD(at[4], at[77]); MULADD(at[5], at[76]); MULADD(at[6], at[75]); MULADD(at[7], at[74]); MULADD(at[8], at[73]); MULADD(at[9], at[72]); MULADD(at[10], at[71]); MULADD(at[11], at[70]); MULADD(at[12], at[69]); MULADD(at[13], at[68]); MULADD(at[14], at[67]); MULADD(at[15], at[66]); MULADD(at[16], at[65]); MULADD(at[17], at[64]); MULADD(at[18], at[63]); MULADD(at[19], at[62]); MULADD(at[20], at[61]); MULADD(at[21], at[60]); MULADD(at[22], at[59]); MULADD(at[23], at[58]); MULADD(at[24], at[57]); MULADD(at[25], at[56]); MULADD(at[26], at[55]); MULADD(at[27], at[54]); MULADD(at[28], at[53]); MULADD(at[29], at[52]); MULADD(at[30], at[51]); MULADD(at[31], at[50]); MULADD(at[32], at[49]); MULADD(at[33], at[48]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[82]); MULADD(at[1], at[81]); MULADD(at[2], at[80]); MULADD(at[3], at[79]); MULADD(at[4], at[78]); MULADD(at[5], at[77]); MULADD(at[6], at[76]); MULADD(at[7], at[75]); MULADD(at[8], at[74]); MULADD(at[9], at[73]); MULADD(at[10], at[72]); MULADD(at[11], at[71]); MULADD(at[12], at[70]); MULADD(at[13], at[69]); MULADD(at[14], at[68]); MULADD(at[15], at[67]); MULADD(at[16], at[66]); MULADD(at[17], at[65]); MULADD(at[18], at[64]); MULADD(at[19], at[63]); MULADD(at[20], at[62]); MULADD(at[21], at[61]); MULADD(at[22], at[60]); MULADD(at[23], at[59]); MULADD(at[24], at[58]); MULADD(at[25], at[57]); MULADD(at[26], at[56]); MULADD(at[27], at[55]); MULADD(at[28], at[54]); MULADD(at[29], at[53]); MULADD(at[30], at[52]); MULADD(at[31], at[51]); MULADD(at[32], at[50]); MULADD(at[33], at[49]); MULADD(at[34], at[48]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[83]); MULADD(at[1], at[82]); MULADD(at[2], at[81]); MULADD(at[3], at[80]); MULADD(at[4], at[79]); MULADD(at[5], at[78]); MULADD(at[6], at[77]); MULADD(at[7], at[76]); MULADD(at[8], at[75]); MULADD(at[9], at[74]); MULADD(at[10], at[73]); MULADD(at[11], at[72]); MULADD(at[12], at[71]); MULADD(at[13], at[70]); MULADD(at[14], at[69]); MULADD(at[15], at[68]); MULADD(at[16], at[67]); MULADD(at[17], at[66]); MULADD(at[18], at[65]); MULADD(at[19], at[64]); MULADD(at[20], at[63]); MULADD(at[21], at[62]); MULADD(at[22], at[61]); MULADD(at[23], at[60]); MULADD(at[24], at[59]); MULADD(at[25], at[58]); MULADD(at[26], at[57]); MULADD(at[27], at[56]); MULADD(at[28], at[55]); MULADD(at[29], at[54]); MULADD(at[30], at[53]); MULADD(at[31], at[52]); MULADD(at[32], at[51]); MULADD(at[33], at[50]); MULADD(at[34], at[49]); MULADD(at[35], at[48]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[84]); MULADD(at[1], at[83]); MULADD(at[2], at[82]); MULADD(at[3], at[81]); MULADD(at[4], at[80]); MULADD(at[5], at[79]); MULADD(at[6], at[78]); MULADD(at[7], at[77]); MULADD(at[8], at[76]); MULADD(at[9], at[75]); MULADD(at[10], at[74]); MULADD(at[11], at[73]); MULADD(at[12], at[72]); MULADD(at[13], at[71]); MULADD(at[14], at[70]); MULADD(at[15], at[69]); MULADD(at[16], at[68]); MULADD(at[17], at[67]); MULADD(at[18], at[66]); MULADD(at[19], at[65]); MULADD(at[20], at[64]); MULADD(at[21], at[63]); MULADD(at[22], at[62]); MULADD(at[23], at[61]); MULADD(at[24], at[60]); MULADD(at[25], at[59]); MULADD(at[26], at[58]); MULADD(at[27], at[57]); MULADD(at[28], at[56]); MULADD(at[29], at[55]); MULADD(at[30], at[54]); MULADD(at[31], at[53]); MULADD(at[32], at[52]); MULADD(at[33], at[51]); MULADD(at[34], at[50]); MULADD(at[35], at[49]); MULADD(at[36], at[48]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[85]); MULADD(at[1], at[84]); MULADD(at[2], at[83]); MULADD(at[3], at[82]); MULADD(at[4], at[81]); MULADD(at[5], at[80]); MULADD(at[6], at[79]); MULADD(at[7], at[78]); MULADD(at[8], at[77]); MULADD(at[9], at[76]); MULADD(at[10], at[75]); MULADD(at[11], at[74]); MULADD(at[12], at[73]); MULADD(at[13], at[72]); MULADD(at[14], at[71]); MULADD(at[15], at[70]); MULADD(at[16], at[69]); MULADD(at[17], at[68]); MULADD(at[18], at[67]); MULADD(at[19], at[66]); MULADD(at[20], at[65]); MULADD(at[21], at[64]); MULADD(at[22], at[63]); MULADD(at[23], at[62]); MULADD(at[24], at[61]); MULADD(at[25], at[60]); MULADD(at[26], at[59]); MULADD(at[27], at[58]); MULADD(at[28], at[57]); MULADD(at[29], at[56]); MULADD(at[30], at[55]); MULADD(at[31], at[54]); MULADD(at[32], at[53]); MULADD(at[33], at[52]); MULADD(at[34], at[51]); MULADD(at[35], at[50]); MULADD(at[36], at[49]); MULADD(at[37], at[48]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[86]); MULADD(at[1], at[85]); MULADD(at[2], at[84]); MULADD(at[3], at[83]); MULADD(at[4], at[82]); MULADD(at[5], at[81]); MULADD(at[6], at[80]); MULADD(at[7], at[79]); MULADD(at[8], at[78]); MULADD(at[9], at[77]); MULADD(at[10], at[76]); MULADD(at[11], at[75]); MULADD(at[12], at[74]); MULADD(at[13], at[73]); MULADD(at[14], at[72]); MULADD(at[15], at[71]); MULADD(at[16], at[70]); MULADD(at[17], at[69]); MULADD(at[18], at[68]); MULADD(at[19], at[67]); MULADD(at[20], at[66]); MULADD(at[21], at[65]); MULADD(at[22], at[64]); MULADD(at[23], at[63]); MULADD(at[24], at[62]); MULADD(at[25], at[61]); MULADD(at[26], at[60]); MULADD(at[27], at[59]); MULADD(at[28], at[58]); MULADD(at[29], at[57]); MULADD(at[30], at[56]); MULADD(at[31], at[55]); MULADD(at[32], at[54]); MULADD(at[33], at[53]); MULADD(at[34], at[52]); MULADD(at[35], at[51]); MULADD(at[36], at[50]); MULADD(at[37], at[49]); MULADD(at[38], at[48]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
/* 39 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[87]); MULADD(at[1], at[86]); MULADD(at[2], at[85]); MULADD(at[3], at[84]); MULADD(at[4], at[83]); MULADD(at[5], at[82]); MULADD(at[6], at[81]); MULADD(at[7], at[80]); MULADD(at[8], at[79]); MULADD(at[9], at[78]); MULADD(at[10], at[77]); MULADD(at[11], at[76]); MULADD(at[12], at[75]); MULADD(at[13], at[74]); MULADD(at[14], at[73]); MULADD(at[15], at[72]); MULADD(at[16], at[71]); MULADD(at[17], at[70]); MULADD(at[18], at[69]); MULADD(at[19], at[68]); MULADD(at[20], at[67]); MULADD(at[21], at[66]); MULADD(at[22], at[65]); MULADD(at[23], at[64]); MULADD(at[24], at[63]); MULADD(at[25], at[62]); MULADD(at[26], at[61]); MULADD(at[27], at[60]); MULADD(at[28], at[59]); MULADD(at[29], at[58]); MULADD(at[30], at[57]); MULADD(at[31], at[56]); MULADD(at[32], at[55]); MULADD(at[33], at[54]); MULADD(at[34], at[53]); MULADD(at[35], at[52]); MULADD(at[36], at[51]); MULADD(at[37], at[50]); MULADD(at[38], at[49]); MULADD(at[39], at[48]);
|
||||||
|
COMBA_STORE(C->dp[39]);
|
||||||
|
/* 40 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[88]); MULADD(at[1], at[87]); MULADD(at[2], at[86]); MULADD(at[3], at[85]); MULADD(at[4], at[84]); MULADD(at[5], at[83]); MULADD(at[6], at[82]); MULADD(at[7], at[81]); MULADD(at[8], at[80]); MULADD(at[9], at[79]); MULADD(at[10], at[78]); MULADD(at[11], at[77]); MULADD(at[12], at[76]); MULADD(at[13], at[75]); MULADD(at[14], at[74]); MULADD(at[15], at[73]); MULADD(at[16], at[72]); MULADD(at[17], at[71]); MULADD(at[18], at[70]); MULADD(at[19], at[69]); MULADD(at[20], at[68]); MULADD(at[21], at[67]); MULADD(at[22], at[66]); MULADD(at[23], at[65]); MULADD(at[24], at[64]); MULADD(at[25], at[63]); MULADD(at[26], at[62]); MULADD(at[27], at[61]); MULADD(at[28], at[60]); MULADD(at[29], at[59]); MULADD(at[30], at[58]); MULADD(at[31], at[57]); MULADD(at[32], at[56]); MULADD(at[33], at[55]); MULADD(at[34], at[54]); MULADD(at[35], at[53]); MULADD(at[36], at[52]); MULADD(at[37], at[51]); MULADD(at[38], at[50]); MULADD(at[39], at[49]); MULADD(at[40], at[48]);
|
||||||
|
COMBA_STORE(C->dp[40]);
|
||||||
|
/* 41 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[89]); MULADD(at[1], at[88]); MULADD(at[2], at[87]); MULADD(at[3], at[86]); MULADD(at[4], at[85]); MULADD(at[5], at[84]); MULADD(at[6], at[83]); MULADD(at[7], at[82]); MULADD(at[8], at[81]); MULADD(at[9], at[80]); MULADD(at[10], at[79]); MULADD(at[11], at[78]); MULADD(at[12], at[77]); MULADD(at[13], at[76]); MULADD(at[14], at[75]); MULADD(at[15], at[74]); MULADD(at[16], at[73]); MULADD(at[17], at[72]); MULADD(at[18], at[71]); MULADD(at[19], at[70]); MULADD(at[20], at[69]); MULADD(at[21], at[68]); MULADD(at[22], at[67]); MULADD(at[23], at[66]); MULADD(at[24], at[65]); MULADD(at[25], at[64]); MULADD(at[26], at[63]); MULADD(at[27], at[62]); MULADD(at[28], at[61]); MULADD(at[29], at[60]); MULADD(at[30], at[59]); MULADD(at[31], at[58]); MULADD(at[32], at[57]); MULADD(at[33], at[56]); MULADD(at[34], at[55]); MULADD(at[35], at[54]); MULADD(at[36], at[53]); MULADD(at[37], at[52]); MULADD(at[38], at[51]); MULADD(at[39], at[50]); MULADD(at[40], at[49]); MULADD(at[41], at[48]);
|
||||||
|
COMBA_STORE(C->dp[41]);
|
||||||
|
/* 42 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[90]); MULADD(at[1], at[89]); MULADD(at[2], at[88]); MULADD(at[3], at[87]); MULADD(at[4], at[86]); MULADD(at[5], at[85]); MULADD(at[6], at[84]); MULADD(at[7], at[83]); MULADD(at[8], at[82]); MULADD(at[9], at[81]); MULADD(at[10], at[80]); MULADD(at[11], at[79]); MULADD(at[12], at[78]); MULADD(at[13], at[77]); MULADD(at[14], at[76]); MULADD(at[15], at[75]); MULADD(at[16], at[74]); MULADD(at[17], at[73]); MULADD(at[18], at[72]); MULADD(at[19], at[71]); MULADD(at[20], at[70]); MULADD(at[21], at[69]); MULADD(at[22], at[68]); MULADD(at[23], at[67]); MULADD(at[24], at[66]); MULADD(at[25], at[65]); MULADD(at[26], at[64]); MULADD(at[27], at[63]); MULADD(at[28], at[62]); MULADD(at[29], at[61]); MULADD(at[30], at[60]); MULADD(at[31], at[59]); MULADD(at[32], at[58]); MULADD(at[33], at[57]); MULADD(at[34], at[56]); MULADD(at[35], at[55]); MULADD(at[36], at[54]); MULADD(at[37], at[53]); MULADD(at[38], at[52]); MULADD(at[39], at[51]); MULADD(at[40], at[50]); MULADD(at[41], at[49]); MULADD(at[42], at[48]);
|
||||||
|
COMBA_STORE(C->dp[42]);
|
||||||
|
/* 43 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[91]); MULADD(at[1], at[90]); MULADD(at[2], at[89]); MULADD(at[3], at[88]); MULADD(at[4], at[87]); MULADD(at[5], at[86]); MULADD(at[6], at[85]); MULADD(at[7], at[84]); MULADD(at[8], at[83]); MULADD(at[9], at[82]); MULADD(at[10], at[81]); MULADD(at[11], at[80]); MULADD(at[12], at[79]); MULADD(at[13], at[78]); MULADD(at[14], at[77]); MULADD(at[15], at[76]); MULADD(at[16], at[75]); MULADD(at[17], at[74]); MULADD(at[18], at[73]); MULADD(at[19], at[72]); MULADD(at[20], at[71]); MULADD(at[21], at[70]); MULADD(at[22], at[69]); MULADD(at[23], at[68]); MULADD(at[24], at[67]); MULADD(at[25], at[66]); MULADD(at[26], at[65]); MULADD(at[27], at[64]); MULADD(at[28], at[63]); MULADD(at[29], at[62]); MULADD(at[30], at[61]); MULADD(at[31], at[60]); MULADD(at[32], at[59]); MULADD(at[33], at[58]); MULADD(at[34], at[57]); MULADD(at[35], at[56]); MULADD(at[36], at[55]); MULADD(at[37], at[54]); MULADD(at[38], at[53]); MULADD(at[39], at[52]); MULADD(at[40], at[51]); MULADD(at[41], at[50]); MULADD(at[42], at[49]); MULADD(at[43], at[48]);
|
||||||
|
COMBA_STORE(C->dp[43]);
|
||||||
|
/* 44 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[92]); MULADD(at[1], at[91]); MULADD(at[2], at[90]); MULADD(at[3], at[89]); MULADD(at[4], at[88]); MULADD(at[5], at[87]); MULADD(at[6], at[86]); MULADD(at[7], at[85]); MULADD(at[8], at[84]); MULADD(at[9], at[83]); MULADD(at[10], at[82]); MULADD(at[11], at[81]); MULADD(at[12], at[80]); MULADD(at[13], at[79]); MULADD(at[14], at[78]); MULADD(at[15], at[77]); MULADD(at[16], at[76]); MULADD(at[17], at[75]); MULADD(at[18], at[74]); MULADD(at[19], at[73]); MULADD(at[20], at[72]); MULADD(at[21], at[71]); MULADD(at[22], at[70]); MULADD(at[23], at[69]); MULADD(at[24], at[68]); MULADD(at[25], at[67]); MULADD(at[26], at[66]); MULADD(at[27], at[65]); MULADD(at[28], at[64]); MULADD(at[29], at[63]); MULADD(at[30], at[62]); MULADD(at[31], at[61]); MULADD(at[32], at[60]); MULADD(at[33], at[59]); MULADD(at[34], at[58]); MULADD(at[35], at[57]); MULADD(at[36], at[56]); MULADD(at[37], at[55]); MULADD(at[38], at[54]); MULADD(at[39], at[53]); MULADD(at[40], at[52]); MULADD(at[41], at[51]); MULADD(at[42], at[50]); MULADD(at[43], at[49]); MULADD(at[44], at[48]);
|
||||||
|
COMBA_STORE(C->dp[44]);
|
||||||
|
/* 45 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[93]); MULADD(at[1], at[92]); MULADD(at[2], at[91]); MULADD(at[3], at[90]); MULADD(at[4], at[89]); MULADD(at[5], at[88]); MULADD(at[6], at[87]); MULADD(at[7], at[86]); MULADD(at[8], at[85]); MULADD(at[9], at[84]); MULADD(at[10], at[83]); MULADD(at[11], at[82]); MULADD(at[12], at[81]); MULADD(at[13], at[80]); MULADD(at[14], at[79]); MULADD(at[15], at[78]); MULADD(at[16], at[77]); MULADD(at[17], at[76]); MULADD(at[18], at[75]); MULADD(at[19], at[74]); MULADD(at[20], at[73]); MULADD(at[21], at[72]); MULADD(at[22], at[71]); MULADD(at[23], at[70]); MULADD(at[24], at[69]); MULADD(at[25], at[68]); MULADD(at[26], at[67]); MULADD(at[27], at[66]); MULADD(at[28], at[65]); MULADD(at[29], at[64]); MULADD(at[30], at[63]); MULADD(at[31], at[62]); MULADD(at[32], at[61]); MULADD(at[33], at[60]); MULADD(at[34], at[59]); MULADD(at[35], at[58]); MULADD(at[36], at[57]); MULADD(at[37], at[56]); MULADD(at[38], at[55]); MULADD(at[39], at[54]); MULADD(at[40], at[53]); MULADD(at[41], at[52]); MULADD(at[42], at[51]); MULADD(at[43], at[50]); MULADD(at[44], at[49]); MULADD(at[45], at[48]);
|
||||||
|
COMBA_STORE(C->dp[45]);
|
||||||
|
/* 46 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[94]); MULADD(at[1], at[93]); MULADD(at[2], at[92]); MULADD(at[3], at[91]); MULADD(at[4], at[90]); MULADD(at[5], at[89]); MULADD(at[6], at[88]); MULADD(at[7], at[87]); MULADD(at[8], at[86]); MULADD(at[9], at[85]); MULADD(at[10], at[84]); MULADD(at[11], at[83]); MULADD(at[12], at[82]); MULADD(at[13], at[81]); MULADD(at[14], at[80]); MULADD(at[15], at[79]); MULADD(at[16], at[78]); MULADD(at[17], at[77]); MULADD(at[18], at[76]); MULADD(at[19], at[75]); MULADD(at[20], at[74]); MULADD(at[21], at[73]); MULADD(at[22], at[72]); MULADD(at[23], at[71]); MULADD(at[24], at[70]); MULADD(at[25], at[69]); MULADD(at[26], at[68]); MULADD(at[27], at[67]); MULADD(at[28], at[66]); MULADD(at[29], at[65]); MULADD(at[30], at[64]); MULADD(at[31], at[63]); MULADD(at[32], at[62]); MULADD(at[33], at[61]); MULADD(at[34], at[60]); MULADD(at[35], at[59]); MULADD(at[36], at[58]); MULADD(at[37], at[57]); MULADD(at[38], at[56]); MULADD(at[39], at[55]); MULADD(at[40], at[54]); MULADD(at[41], at[53]); MULADD(at[42], at[52]); MULADD(at[43], at[51]); MULADD(at[44], at[50]); MULADD(at[45], at[49]); MULADD(at[46], at[48]);
|
||||||
|
COMBA_STORE(C->dp[46]);
|
||||||
|
/* 47 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[95]); MULADD(at[1], at[94]); MULADD(at[2], at[93]); MULADD(at[3], at[92]); MULADD(at[4], at[91]); MULADD(at[5], at[90]); MULADD(at[6], at[89]); MULADD(at[7], at[88]); MULADD(at[8], at[87]); MULADD(at[9], at[86]); MULADD(at[10], at[85]); MULADD(at[11], at[84]); MULADD(at[12], at[83]); MULADD(at[13], at[82]); MULADD(at[14], at[81]); MULADD(at[15], at[80]); MULADD(at[16], at[79]); MULADD(at[17], at[78]); MULADD(at[18], at[77]); MULADD(at[19], at[76]); MULADD(at[20], at[75]); MULADD(at[21], at[74]); MULADD(at[22], at[73]); MULADD(at[23], at[72]); MULADD(at[24], at[71]); MULADD(at[25], at[70]); MULADD(at[26], at[69]); MULADD(at[27], at[68]); MULADD(at[28], at[67]); MULADD(at[29], at[66]); MULADD(at[30], at[65]); MULADD(at[31], at[64]); MULADD(at[32], at[63]); MULADD(at[33], at[62]); MULADD(at[34], at[61]); MULADD(at[35], at[60]); MULADD(at[36], at[59]); MULADD(at[37], at[58]); MULADD(at[38], at[57]); MULADD(at[39], at[56]); MULADD(at[40], at[55]); MULADD(at[41], at[54]); MULADD(at[42], at[53]); MULADD(at[43], at[52]); MULADD(at[44], at[51]); MULADD(at[45], at[50]); MULADD(at[46], at[49]); MULADD(at[47], at[48]);
|
||||||
|
COMBA_STORE(C->dp[47]);
|
||||||
|
/* 48 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[95]); MULADD(at[2], at[94]); MULADD(at[3], at[93]); MULADD(at[4], at[92]); MULADD(at[5], at[91]); MULADD(at[6], at[90]); MULADD(at[7], at[89]); MULADD(at[8], at[88]); MULADD(at[9], at[87]); MULADD(at[10], at[86]); MULADD(at[11], at[85]); MULADD(at[12], at[84]); MULADD(at[13], at[83]); MULADD(at[14], at[82]); MULADD(at[15], at[81]); MULADD(at[16], at[80]); MULADD(at[17], at[79]); MULADD(at[18], at[78]); MULADD(at[19], at[77]); MULADD(at[20], at[76]); MULADD(at[21], at[75]); MULADD(at[22], at[74]); MULADD(at[23], at[73]); MULADD(at[24], at[72]); MULADD(at[25], at[71]); MULADD(at[26], at[70]); MULADD(at[27], at[69]); MULADD(at[28], at[68]); MULADD(at[29], at[67]); MULADD(at[30], at[66]); MULADD(at[31], at[65]); MULADD(at[32], at[64]); MULADD(at[33], at[63]); MULADD(at[34], at[62]); MULADD(at[35], at[61]); MULADD(at[36], at[60]); MULADD(at[37], at[59]); MULADD(at[38], at[58]); MULADD(at[39], at[57]); MULADD(at[40], at[56]); MULADD(at[41], at[55]); MULADD(at[42], at[54]); MULADD(at[43], at[53]); MULADD(at[44], at[52]); MULADD(at[45], at[51]); MULADD(at[46], at[50]); MULADD(at[47], at[49]);
|
||||||
|
COMBA_STORE(C->dp[48]);
|
||||||
|
/* 49 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[95]); MULADD(at[3], at[94]); MULADD(at[4], at[93]); MULADD(at[5], at[92]); MULADD(at[6], at[91]); MULADD(at[7], at[90]); MULADD(at[8], at[89]); MULADD(at[9], at[88]); MULADD(at[10], at[87]); MULADD(at[11], at[86]); MULADD(at[12], at[85]); MULADD(at[13], at[84]); MULADD(at[14], at[83]); MULADD(at[15], at[82]); MULADD(at[16], at[81]); MULADD(at[17], at[80]); MULADD(at[18], at[79]); MULADD(at[19], at[78]); MULADD(at[20], at[77]); MULADD(at[21], at[76]); MULADD(at[22], at[75]); MULADD(at[23], at[74]); MULADD(at[24], at[73]); MULADD(at[25], at[72]); MULADD(at[26], at[71]); MULADD(at[27], at[70]); MULADD(at[28], at[69]); MULADD(at[29], at[68]); MULADD(at[30], at[67]); MULADD(at[31], at[66]); MULADD(at[32], at[65]); MULADD(at[33], at[64]); MULADD(at[34], at[63]); MULADD(at[35], at[62]); MULADD(at[36], at[61]); MULADD(at[37], at[60]); MULADD(at[38], at[59]); MULADD(at[39], at[58]); MULADD(at[40], at[57]); MULADD(at[41], at[56]); MULADD(at[42], at[55]); MULADD(at[43], at[54]); MULADD(at[44], at[53]); MULADD(at[45], at[52]); MULADD(at[46], at[51]); MULADD(at[47], at[50]);
|
||||||
|
COMBA_STORE(C->dp[49]);
|
||||||
|
/* 50 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[95]); MULADD(at[4], at[94]); MULADD(at[5], at[93]); MULADD(at[6], at[92]); MULADD(at[7], at[91]); MULADD(at[8], at[90]); MULADD(at[9], at[89]); MULADD(at[10], at[88]); MULADD(at[11], at[87]); MULADD(at[12], at[86]); MULADD(at[13], at[85]); MULADD(at[14], at[84]); MULADD(at[15], at[83]); MULADD(at[16], at[82]); MULADD(at[17], at[81]); MULADD(at[18], at[80]); MULADD(at[19], at[79]); MULADD(at[20], at[78]); MULADD(at[21], at[77]); MULADD(at[22], at[76]); MULADD(at[23], at[75]); MULADD(at[24], at[74]); MULADD(at[25], at[73]); MULADD(at[26], at[72]); MULADD(at[27], at[71]); MULADD(at[28], at[70]); MULADD(at[29], at[69]); MULADD(at[30], at[68]); MULADD(at[31], at[67]); MULADD(at[32], at[66]); MULADD(at[33], at[65]); MULADD(at[34], at[64]); MULADD(at[35], at[63]); MULADD(at[36], at[62]); MULADD(at[37], at[61]); MULADD(at[38], at[60]); MULADD(at[39], at[59]); MULADD(at[40], at[58]); MULADD(at[41], at[57]); MULADD(at[42], at[56]); MULADD(at[43], at[55]); MULADD(at[44], at[54]); MULADD(at[45], at[53]); MULADD(at[46], at[52]); MULADD(at[47], at[51]);
|
||||||
|
COMBA_STORE(C->dp[50]);
|
||||||
|
/* 51 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[95]); MULADD(at[5], at[94]); MULADD(at[6], at[93]); MULADD(at[7], at[92]); MULADD(at[8], at[91]); MULADD(at[9], at[90]); MULADD(at[10], at[89]); MULADD(at[11], at[88]); MULADD(at[12], at[87]); MULADD(at[13], at[86]); MULADD(at[14], at[85]); MULADD(at[15], at[84]); MULADD(at[16], at[83]); MULADD(at[17], at[82]); MULADD(at[18], at[81]); MULADD(at[19], at[80]); MULADD(at[20], at[79]); MULADD(at[21], at[78]); MULADD(at[22], at[77]); MULADD(at[23], at[76]); MULADD(at[24], at[75]); MULADD(at[25], at[74]); MULADD(at[26], at[73]); MULADD(at[27], at[72]); MULADD(at[28], at[71]); MULADD(at[29], at[70]); MULADD(at[30], at[69]); MULADD(at[31], at[68]); MULADD(at[32], at[67]); MULADD(at[33], at[66]); MULADD(at[34], at[65]); MULADD(at[35], at[64]); MULADD(at[36], at[63]); MULADD(at[37], at[62]); MULADD(at[38], at[61]); MULADD(at[39], at[60]); MULADD(at[40], at[59]); MULADD(at[41], at[58]); MULADD(at[42], at[57]); MULADD(at[43], at[56]); MULADD(at[44], at[55]); MULADD(at[45], at[54]); MULADD(at[46], at[53]); MULADD(at[47], at[52]);
|
||||||
|
COMBA_STORE(C->dp[51]);
|
||||||
|
/* 52 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[95]); MULADD(at[6], at[94]); MULADD(at[7], at[93]); MULADD(at[8], at[92]); MULADD(at[9], at[91]); MULADD(at[10], at[90]); MULADD(at[11], at[89]); MULADD(at[12], at[88]); MULADD(at[13], at[87]); MULADD(at[14], at[86]); MULADD(at[15], at[85]); MULADD(at[16], at[84]); MULADD(at[17], at[83]); MULADD(at[18], at[82]); MULADD(at[19], at[81]); MULADD(at[20], at[80]); MULADD(at[21], at[79]); MULADD(at[22], at[78]); MULADD(at[23], at[77]); MULADD(at[24], at[76]); MULADD(at[25], at[75]); MULADD(at[26], at[74]); MULADD(at[27], at[73]); MULADD(at[28], at[72]); MULADD(at[29], at[71]); MULADD(at[30], at[70]); MULADD(at[31], at[69]); MULADD(at[32], at[68]); MULADD(at[33], at[67]); MULADD(at[34], at[66]); MULADD(at[35], at[65]); MULADD(at[36], at[64]); MULADD(at[37], at[63]); MULADD(at[38], at[62]); MULADD(at[39], at[61]); MULADD(at[40], at[60]); MULADD(at[41], at[59]); MULADD(at[42], at[58]); MULADD(at[43], at[57]); MULADD(at[44], at[56]); MULADD(at[45], at[55]); MULADD(at[46], at[54]); MULADD(at[47], at[53]);
|
||||||
|
COMBA_STORE(C->dp[52]);
|
||||||
|
/* 53 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[95]); MULADD(at[7], at[94]); MULADD(at[8], at[93]); MULADD(at[9], at[92]); MULADD(at[10], at[91]); MULADD(at[11], at[90]); MULADD(at[12], at[89]); MULADD(at[13], at[88]); MULADD(at[14], at[87]); MULADD(at[15], at[86]); MULADD(at[16], at[85]); MULADD(at[17], at[84]); MULADD(at[18], at[83]); MULADD(at[19], at[82]); MULADD(at[20], at[81]); MULADD(at[21], at[80]); MULADD(at[22], at[79]); MULADD(at[23], at[78]); MULADD(at[24], at[77]); MULADD(at[25], at[76]); MULADD(at[26], at[75]); MULADD(at[27], at[74]); MULADD(at[28], at[73]); MULADD(at[29], at[72]); MULADD(at[30], at[71]); MULADD(at[31], at[70]); MULADD(at[32], at[69]); MULADD(at[33], at[68]); MULADD(at[34], at[67]); MULADD(at[35], at[66]); MULADD(at[36], at[65]); MULADD(at[37], at[64]); MULADD(at[38], at[63]); MULADD(at[39], at[62]); MULADD(at[40], at[61]); MULADD(at[41], at[60]); MULADD(at[42], at[59]); MULADD(at[43], at[58]); MULADD(at[44], at[57]); MULADD(at[45], at[56]); MULADD(at[46], at[55]); MULADD(at[47], at[54]);
|
||||||
|
COMBA_STORE(C->dp[53]);
|
||||||
|
/* 54 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[95]); MULADD(at[8], at[94]); MULADD(at[9], at[93]); MULADD(at[10], at[92]); MULADD(at[11], at[91]); MULADD(at[12], at[90]); MULADD(at[13], at[89]); MULADD(at[14], at[88]); MULADD(at[15], at[87]); MULADD(at[16], at[86]); MULADD(at[17], at[85]); MULADD(at[18], at[84]); MULADD(at[19], at[83]); MULADD(at[20], at[82]); MULADD(at[21], at[81]); MULADD(at[22], at[80]); MULADD(at[23], at[79]); MULADD(at[24], at[78]); MULADD(at[25], at[77]); MULADD(at[26], at[76]); MULADD(at[27], at[75]); MULADD(at[28], at[74]); MULADD(at[29], at[73]); MULADD(at[30], at[72]); MULADD(at[31], at[71]); MULADD(at[32], at[70]); MULADD(at[33], at[69]); MULADD(at[34], at[68]); MULADD(at[35], at[67]); MULADD(at[36], at[66]); MULADD(at[37], at[65]); MULADD(at[38], at[64]); MULADD(at[39], at[63]); MULADD(at[40], at[62]); MULADD(at[41], at[61]); MULADD(at[42], at[60]); MULADD(at[43], at[59]); MULADD(at[44], at[58]); MULADD(at[45], at[57]); MULADD(at[46], at[56]); MULADD(at[47], at[55]);
|
||||||
|
COMBA_STORE(C->dp[54]);
|
||||||
|
/* 55 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[95]); MULADD(at[9], at[94]); MULADD(at[10], at[93]); MULADD(at[11], at[92]); MULADD(at[12], at[91]); MULADD(at[13], at[90]); MULADD(at[14], at[89]); MULADD(at[15], at[88]); MULADD(at[16], at[87]); MULADD(at[17], at[86]); MULADD(at[18], at[85]); MULADD(at[19], at[84]); MULADD(at[20], at[83]); MULADD(at[21], at[82]); MULADD(at[22], at[81]); MULADD(at[23], at[80]); MULADD(at[24], at[79]); MULADD(at[25], at[78]); MULADD(at[26], at[77]); MULADD(at[27], at[76]); MULADD(at[28], at[75]); MULADD(at[29], at[74]); MULADD(at[30], at[73]); MULADD(at[31], at[72]); MULADD(at[32], at[71]); MULADD(at[33], at[70]); MULADD(at[34], at[69]); MULADD(at[35], at[68]); MULADD(at[36], at[67]); MULADD(at[37], at[66]); MULADD(at[38], at[65]); MULADD(at[39], at[64]); MULADD(at[40], at[63]); MULADD(at[41], at[62]); MULADD(at[42], at[61]); MULADD(at[43], at[60]); MULADD(at[44], at[59]); MULADD(at[45], at[58]); MULADD(at[46], at[57]); MULADD(at[47], at[56]);
|
||||||
|
COMBA_STORE(C->dp[55]);
|
||||||
|
/* 56 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[95]); MULADD(at[10], at[94]); MULADD(at[11], at[93]); MULADD(at[12], at[92]); MULADD(at[13], at[91]); MULADD(at[14], at[90]); MULADD(at[15], at[89]); MULADD(at[16], at[88]); MULADD(at[17], at[87]); MULADD(at[18], at[86]); MULADD(at[19], at[85]); MULADD(at[20], at[84]); MULADD(at[21], at[83]); MULADD(at[22], at[82]); MULADD(at[23], at[81]); MULADD(at[24], at[80]); MULADD(at[25], at[79]); MULADD(at[26], at[78]); MULADD(at[27], at[77]); MULADD(at[28], at[76]); MULADD(at[29], at[75]); MULADD(at[30], at[74]); MULADD(at[31], at[73]); MULADD(at[32], at[72]); MULADD(at[33], at[71]); MULADD(at[34], at[70]); MULADD(at[35], at[69]); MULADD(at[36], at[68]); MULADD(at[37], at[67]); MULADD(at[38], at[66]); MULADD(at[39], at[65]); MULADD(at[40], at[64]); MULADD(at[41], at[63]); MULADD(at[42], at[62]); MULADD(at[43], at[61]); MULADD(at[44], at[60]); MULADD(at[45], at[59]); MULADD(at[46], at[58]); MULADD(at[47], at[57]);
|
||||||
|
COMBA_STORE(C->dp[56]);
|
||||||
|
/* 57 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[95]); MULADD(at[11], at[94]); MULADD(at[12], at[93]); MULADD(at[13], at[92]); MULADD(at[14], at[91]); MULADD(at[15], at[90]); MULADD(at[16], at[89]); MULADD(at[17], at[88]); MULADD(at[18], at[87]); MULADD(at[19], at[86]); MULADD(at[20], at[85]); MULADD(at[21], at[84]); MULADD(at[22], at[83]); MULADD(at[23], at[82]); MULADD(at[24], at[81]); MULADD(at[25], at[80]); MULADD(at[26], at[79]); MULADD(at[27], at[78]); MULADD(at[28], at[77]); MULADD(at[29], at[76]); MULADD(at[30], at[75]); MULADD(at[31], at[74]); MULADD(at[32], at[73]); MULADD(at[33], at[72]); MULADD(at[34], at[71]); MULADD(at[35], at[70]); MULADD(at[36], at[69]); MULADD(at[37], at[68]); MULADD(at[38], at[67]); MULADD(at[39], at[66]); MULADD(at[40], at[65]); MULADD(at[41], at[64]); MULADD(at[42], at[63]); MULADD(at[43], at[62]); MULADD(at[44], at[61]); MULADD(at[45], at[60]); MULADD(at[46], at[59]); MULADD(at[47], at[58]);
|
||||||
|
COMBA_STORE(C->dp[57]);
|
||||||
|
/* 58 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[95]); MULADD(at[12], at[94]); MULADD(at[13], at[93]); MULADD(at[14], at[92]); MULADD(at[15], at[91]); MULADD(at[16], at[90]); MULADD(at[17], at[89]); MULADD(at[18], at[88]); MULADD(at[19], at[87]); MULADD(at[20], at[86]); MULADD(at[21], at[85]); MULADD(at[22], at[84]); MULADD(at[23], at[83]); MULADD(at[24], at[82]); MULADD(at[25], at[81]); MULADD(at[26], at[80]); MULADD(at[27], at[79]); MULADD(at[28], at[78]); MULADD(at[29], at[77]); MULADD(at[30], at[76]); MULADD(at[31], at[75]); MULADD(at[32], at[74]); MULADD(at[33], at[73]); MULADD(at[34], at[72]); MULADD(at[35], at[71]); MULADD(at[36], at[70]); MULADD(at[37], at[69]); MULADD(at[38], at[68]); MULADD(at[39], at[67]); MULADD(at[40], at[66]); MULADD(at[41], at[65]); MULADD(at[42], at[64]); MULADD(at[43], at[63]); MULADD(at[44], at[62]); MULADD(at[45], at[61]); MULADD(at[46], at[60]); MULADD(at[47], at[59]);
|
||||||
|
COMBA_STORE(C->dp[58]);
|
||||||
|
/* 59 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[95]); MULADD(at[13], at[94]); MULADD(at[14], at[93]); MULADD(at[15], at[92]); MULADD(at[16], at[91]); MULADD(at[17], at[90]); MULADD(at[18], at[89]); MULADD(at[19], at[88]); MULADD(at[20], at[87]); MULADD(at[21], at[86]); MULADD(at[22], at[85]); MULADD(at[23], at[84]); MULADD(at[24], at[83]); MULADD(at[25], at[82]); MULADD(at[26], at[81]); MULADD(at[27], at[80]); MULADD(at[28], at[79]); MULADD(at[29], at[78]); MULADD(at[30], at[77]); MULADD(at[31], at[76]); MULADD(at[32], at[75]); MULADD(at[33], at[74]); MULADD(at[34], at[73]); MULADD(at[35], at[72]); MULADD(at[36], at[71]); MULADD(at[37], at[70]); MULADD(at[38], at[69]); MULADD(at[39], at[68]); MULADD(at[40], at[67]); MULADD(at[41], at[66]); MULADD(at[42], at[65]); MULADD(at[43], at[64]); MULADD(at[44], at[63]); MULADD(at[45], at[62]); MULADD(at[46], at[61]); MULADD(at[47], at[60]);
|
||||||
|
COMBA_STORE(C->dp[59]);
|
||||||
|
/* 60 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[95]); MULADD(at[14], at[94]); MULADD(at[15], at[93]); MULADD(at[16], at[92]); MULADD(at[17], at[91]); MULADD(at[18], at[90]); MULADD(at[19], at[89]); MULADD(at[20], at[88]); MULADD(at[21], at[87]); MULADD(at[22], at[86]); MULADD(at[23], at[85]); MULADD(at[24], at[84]); MULADD(at[25], at[83]); MULADD(at[26], at[82]); MULADD(at[27], at[81]); MULADD(at[28], at[80]); MULADD(at[29], at[79]); MULADD(at[30], at[78]); MULADD(at[31], at[77]); MULADD(at[32], at[76]); MULADD(at[33], at[75]); MULADD(at[34], at[74]); MULADD(at[35], at[73]); MULADD(at[36], at[72]); MULADD(at[37], at[71]); MULADD(at[38], at[70]); MULADD(at[39], at[69]); MULADD(at[40], at[68]); MULADD(at[41], at[67]); MULADD(at[42], at[66]); MULADD(at[43], at[65]); MULADD(at[44], at[64]); MULADD(at[45], at[63]); MULADD(at[46], at[62]); MULADD(at[47], at[61]);
|
||||||
|
COMBA_STORE(C->dp[60]);
|
||||||
|
/* 61 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[95]); MULADD(at[15], at[94]); MULADD(at[16], at[93]); MULADD(at[17], at[92]); MULADD(at[18], at[91]); MULADD(at[19], at[90]); MULADD(at[20], at[89]); MULADD(at[21], at[88]); MULADD(at[22], at[87]); MULADD(at[23], at[86]); MULADD(at[24], at[85]); MULADD(at[25], at[84]); MULADD(at[26], at[83]); MULADD(at[27], at[82]); MULADD(at[28], at[81]); MULADD(at[29], at[80]); MULADD(at[30], at[79]); MULADD(at[31], at[78]); MULADD(at[32], at[77]); MULADD(at[33], at[76]); MULADD(at[34], at[75]); MULADD(at[35], at[74]); MULADD(at[36], at[73]); MULADD(at[37], at[72]); MULADD(at[38], at[71]); MULADD(at[39], at[70]); MULADD(at[40], at[69]); MULADD(at[41], at[68]); MULADD(at[42], at[67]); MULADD(at[43], at[66]); MULADD(at[44], at[65]); MULADD(at[45], at[64]); MULADD(at[46], at[63]); MULADD(at[47], at[62]);
|
||||||
|
COMBA_STORE(C->dp[61]);
|
||||||
|
/* 62 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[95]); MULADD(at[16], at[94]); MULADD(at[17], at[93]); MULADD(at[18], at[92]); MULADD(at[19], at[91]); MULADD(at[20], at[90]); MULADD(at[21], at[89]); MULADD(at[22], at[88]); MULADD(at[23], at[87]); MULADD(at[24], at[86]); MULADD(at[25], at[85]); MULADD(at[26], at[84]); MULADD(at[27], at[83]); MULADD(at[28], at[82]); MULADD(at[29], at[81]); MULADD(at[30], at[80]); MULADD(at[31], at[79]); MULADD(at[32], at[78]); MULADD(at[33], at[77]); MULADD(at[34], at[76]); MULADD(at[35], at[75]); MULADD(at[36], at[74]); MULADD(at[37], at[73]); MULADD(at[38], at[72]); MULADD(at[39], at[71]); MULADD(at[40], at[70]); MULADD(at[41], at[69]); MULADD(at[42], at[68]); MULADD(at[43], at[67]); MULADD(at[44], at[66]); MULADD(at[45], at[65]); MULADD(at[46], at[64]); MULADD(at[47], at[63]);
|
||||||
|
COMBA_STORE(C->dp[62]);
|
||||||
|
/* 63 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[95]); MULADD(at[17], at[94]); MULADD(at[18], at[93]); MULADD(at[19], at[92]); MULADD(at[20], at[91]); MULADD(at[21], at[90]); MULADD(at[22], at[89]); MULADD(at[23], at[88]); MULADD(at[24], at[87]); MULADD(at[25], at[86]); MULADD(at[26], at[85]); MULADD(at[27], at[84]); MULADD(at[28], at[83]); MULADD(at[29], at[82]); MULADD(at[30], at[81]); MULADD(at[31], at[80]); MULADD(at[32], at[79]); MULADD(at[33], at[78]); MULADD(at[34], at[77]); MULADD(at[35], at[76]); MULADD(at[36], at[75]); MULADD(at[37], at[74]); MULADD(at[38], at[73]); MULADD(at[39], at[72]); MULADD(at[40], at[71]); MULADD(at[41], at[70]); MULADD(at[42], at[69]); MULADD(at[43], at[68]); MULADD(at[44], at[67]); MULADD(at[45], at[66]); MULADD(at[46], at[65]); MULADD(at[47], at[64]);
|
||||||
|
COMBA_STORE(C->dp[63]);
|
||||||
|
/* 64 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[95]); MULADD(at[18], at[94]); MULADD(at[19], at[93]); MULADD(at[20], at[92]); MULADD(at[21], at[91]); MULADD(at[22], at[90]); MULADD(at[23], at[89]); MULADD(at[24], at[88]); MULADD(at[25], at[87]); MULADD(at[26], at[86]); MULADD(at[27], at[85]); MULADD(at[28], at[84]); MULADD(at[29], at[83]); MULADD(at[30], at[82]); MULADD(at[31], at[81]); MULADD(at[32], at[80]); MULADD(at[33], at[79]); MULADD(at[34], at[78]); MULADD(at[35], at[77]); MULADD(at[36], at[76]); MULADD(at[37], at[75]); MULADD(at[38], at[74]); MULADD(at[39], at[73]); MULADD(at[40], at[72]); MULADD(at[41], at[71]); MULADD(at[42], at[70]); MULADD(at[43], at[69]); MULADD(at[44], at[68]); MULADD(at[45], at[67]); MULADD(at[46], at[66]); MULADD(at[47], at[65]);
|
||||||
|
COMBA_STORE(C->dp[64]);
|
||||||
|
/* 65 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[95]); MULADD(at[19], at[94]); MULADD(at[20], at[93]); MULADD(at[21], at[92]); MULADD(at[22], at[91]); MULADD(at[23], at[90]); MULADD(at[24], at[89]); MULADD(at[25], at[88]); MULADD(at[26], at[87]); MULADD(at[27], at[86]); MULADD(at[28], at[85]); MULADD(at[29], at[84]); MULADD(at[30], at[83]); MULADD(at[31], at[82]); MULADD(at[32], at[81]); MULADD(at[33], at[80]); MULADD(at[34], at[79]); MULADD(at[35], at[78]); MULADD(at[36], at[77]); MULADD(at[37], at[76]); MULADD(at[38], at[75]); MULADD(at[39], at[74]); MULADD(at[40], at[73]); MULADD(at[41], at[72]); MULADD(at[42], at[71]); MULADD(at[43], at[70]); MULADD(at[44], at[69]); MULADD(at[45], at[68]); MULADD(at[46], at[67]); MULADD(at[47], at[66]);
|
||||||
|
COMBA_STORE(C->dp[65]);
|
||||||
|
/* 66 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[95]); MULADD(at[20], at[94]); MULADD(at[21], at[93]); MULADD(at[22], at[92]); MULADD(at[23], at[91]); MULADD(at[24], at[90]); MULADD(at[25], at[89]); MULADD(at[26], at[88]); MULADD(at[27], at[87]); MULADD(at[28], at[86]); MULADD(at[29], at[85]); MULADD(at[30], at[84]); MULADD(at[31], at[83]); MULADD(at[32], at[82]); MULADD(at[33], at[81]); MULADD(at[34], at[80]); MULADD(at[35], at[79]); MULADD(at[36], at[78]); MULADD(at[37], at[77]); MULADD(at[38], at[76]); MULADD(at[39], at[75]); MULADD(at[40], at[74]); MULADD(at[41], at[73]); MULADD(at[42], at[72]); MULADD(at[43], at[71]); MULADD(at[44], at[70]); MULADD(at[45], at[69]); MULADD(at[46], at[68]); MULADD(at[47], at[67]);
|
||||||
|
COMBA_STORE(C->dp[66]);
|
||||||
|
/* 67 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[20], at[95]); MULADD(at[21], at[94]); MULADD(at[22], at[93]); MULADD(at[23], at[92]); MULADD(at[24], at[91]); MULADD(at[25], at[90]); MULADD(at[26], at[89]); MULADD(at[27], at[88]); MULADD(at[28], at[87]); MULADD(at[29], at[86]); MULADD(at[30], at[85]); MULADD(at[31], at[84]); MULADD(at[32], at[83]); MULADD(at[33], at[82]); MULADD(at[34], at[81]); MULADD(at[35], at[80]); MULADD(at[36], at[79]); MULADD(at[37], at[78]); MULADD(at[38], at[77]); MULADD(at[39], at[76]); MULADD(at[40], at[75]); MULADD(at[41], at[74]); MULADD(at[42], at[73]); MULADD(at[43], at[72]); MULADD(at[44], at[71]); MULADD(at[45], at[70]); MULADD(at[46], at[69]); MULADD(at[47], at[68]);
|
||||||
|
COMBA_STORE(C->dp[67]);
|
||||||
|
/* 68 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[21], at[95]); MULADD(at[22], at[94]); MULADD(at[23], at[93]); MULADD(at[24], at[92]); MULADD(at[25], at[91]); MULADD(at[26], at[90]); MULADD(at[27], at[89]); MULADD(at[28], at[88]); MULADD(at[29], at[87]); MULADD(at[30], at[86]); MULADD(at[31], at[85]); MULADD(at[32], at[84]); MULADD(at[33], at[83]); MULADD(at[34], at[82]); MULADD(at[35], at[81]); MULADD(at[36], at[80]); MULADD(at[37], at[79]); MULADD(at[38], at[78]); MULADD(at[39], at[77]); MULADD(at[40], at[76]); MULADD(at[41], at[75]); MULADD(at[42], at[74]); MULADD(at[43], at[73]); MULADD(at[44], at[72]); MULADD(at[45], at[71]); MULADD(at[46], at[70]); MULADD(at[47], at[69]);
|
||||||
|
COMBA_STORE(C->dp[68]);
|
||||||
|
/* 69 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[22], at[95]); MULADD(at[23], at[94]); MULADD(at[24], at[93]); MULADD(at[25], at[92]); MULADD(at[26], at[91]); MULADD(at[27], at[90]); MULADD(at[28], at[89]); MULADD(at[29], at[88]); MULADD(at[30], at[87]); MULADD(at[31], at[86]); MULADD(at[32], at[85]); MULADD(at[33], at[84]); MULADD(at[34], at[83]); MULADD(at[35], at[82]); MULADD(at[36], at[81]); MULADD(at[37], at[80]); MULADD(at[38], at[79]); MULADD(at[39], at[78]); MULADD(at[40], at[77]); MULADD(at[41], at[76]); MULADD(at[42], at[75]); MULADD(at[43], at[74]); MULADD(at[44], at[73]); MULADD(at[45], at[72]); MULADD(at[46], at[71]); MULADD(at[47], at[70]);
|
||||||
|
COMBA_STORE(C->dp[69]);
|
||||||
|
/* 70 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[23], at[95]); MULADD(at[24], at[94]); MULADD(at[25], at[93]); MULADD(at[26], at[92]); MULADD(at[27], at[91]); MULADD(at[28], at[90]); MULADD(at[29], at[89]); MULADD(at[30], at[88]); MULADD(at[31], at[87]); MULADD(at[32], at[86]); MULADD(at[33], at[85]); MULADD(at[34], at[84]); MULADD(at[35], at[83]); MULADD(at[36], at[82]); MULADD(at[37], at[81]); MULADD(at[38], at[80]); MULADD(at[39], at[79]); MULADD(at[40], at[78]); MULADD(at[41], at[77]); MULADD(at[42], at[76]); MULADD(at[43], at[75]); MULADD(at[44], at[74]); MULADD(at[45], at[73]); MULADD(at[46], at[72]); MULADD(at[47], at[71]);
|
||||||
|
COMBA_STORE(C->dp[70]);
|
||||||
|
/* 71 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[24], at[95]); MULADD(at[25], at[94]); MULADD(at[26], at[93]); MULADD(at[27], at[92]); MULADD(at[28], at[91]); MULADD(at[29], at[90]); MULADD(at[30], at[89]); MULADD(at[31], at[88]); MULADD(at[32], at[87]); MULADD(at[33], at[86]); MULADD(at[34], at[85]); MULADD(at[35], at[84]); MULADD(at[36], at[83]); MULADD(at[37], at[82]); MULADD(at[38], at[81]); MULADD(at[39], at[80]); MULADD(at[40], at[79]); MULADD(at[41], at[78]); MULADD(at[42], at[77]); MULADD(at[43], at[76]); MULADD(at[44], at[75]); MULADD(at[45], at[74]); MULADD(at[46], at[73]); MULADD(at[47], at[72]);
|
||||||
|
COMBA_STORE(C->dp[71]);
|
||||||
|
/* 72 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[25], at[95]); MULADD(at[26], at[94]); MULADD(at[27], at[93]); MULADD(at[28], at[92]); MULADD(at[29], at[91]); MULADD(at[30], at[90]); MULADD(at[31], at[89]); MULADD(at[32], at[88]); MULADD(at[33], at[87]); MULADD(at[34], at[86]); MULADD(at[35], at[85]); MULADD(at[36], at[84]); MULADD(at[37], at[83]); MULADD(at[38], at[82]); MULADD(at[39], at[81]); MULADD(at[40], at[80]); MULADD(at[41], at[79]); MULADD(at[42], at[78]); MULADD(at[43], at[77]); MULADD(at[44], at[76]); MULADD(at[45], at[75]); MULADD(at[46], at[74]); MULADD(at[47], at[73]);
|
||||||
|
COMBA_STORE(C->dp[72]);
|
||||||
|
/* 73 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[26], at[95]); MULADD(at[27], at[94]); MULADD(at[28], at[93]); MULADD(at[29], at[92]); MULADD(at[30], at[91]); MULADD(at[31], at[90]); MULADD(at[32], at[89]); MULADD(at[33], at[88]); MULADD(at[34], at[87]); MULADD(at[35], at[86]); MULADD(at[36], at[85]); MULADD(at[37], at[84]); MULADD(at[38], at[83]); MULADD(at[39], at[82]); MULADD(at[40], at[81]); MULADD(at[41], at[80]); MULADD(at[42], at[79]); MULADD(at[43], at[78]); MULADD(at[44], at[77]); MULADD(at[45], at[76]); MULADD(at[46], at[75]); MULADD(at[47], at[74]);
|
||||||
|
COMBA_STORE(C->dp[73]);
|
||||||
|
/* 74 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[27], at[95]); MULADD(at[28], at[94]); MULADD(at[29], at[93]); MULADD(at[30], at[92]); MULADD(at[31], at[91]); MULADD(at[32], at[90]); MULADD(at[33], at[89]); MULADD(at[34], at[88]); MULADD(at[35], at[87]); MULADD(at[36], at[86]); MULADD(at[37], at[85]); MULADD(at[38], at[84]); MULADD(at[39], at[83]); MULADD(at[40], at[82]); MULADD(at[41], at[81]); MULADD(at[42], at[80]); MULADD(at[43], at[79]); MULADD(at[44], at[78]); MULADD(at[45], at[77]); MULADD(at[46], at[76]); MULADD(at[47], at[75]);
|
||||||
|
COMBA_STORE(C->dp[74]);
|
||||||
|
/* 75 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[28], at[95]); MULADD(at[29], at[94]); MULADD(at[30], at[93]); MULADD(at[31], at[92]); MULADD(at[32], at[91]); MULADD(at[33], at[90]); MULADD(at[34], at[89]); MULADD(at[35], at[88]); MULADD(at[36], at[87]); MULADD(at[37], at[86]); MULADD(at[38], at[85]); MULADD(at[39], at[84]); MULADD(at[40], at[83]); MULADD(at[41], at[82]); MULADD(at[42], at[81]); MULADD(at[43], at[80]); MULADD(at[44], at[79]); MULADD(at[45], at[78]); MULADD(at[46], at[77]); MULADD(at[47], at[76]);
|
||||||
|
COMBA_STORE(C->dp[75]);
|
||||||
|
/* 76 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[29], at[95]); MULADD(at[30], at[94]); MULADD(at[31], at[93]); MULADD(at[32], at[92]); MULADD(at[33], at[91]); MULADD(at[34], at[90]); MULADD(at[35], at[89]); MULADD(at[36], at[88]); MULADD(at[37], at[87]); MULADD(at[38], at[86]); MULADD(at[39], at[85]); MULADD(at[40], at[84]); MULADD(at[41], at[83]); MULADD(at[42], at[82]); MULADD(at[43], at[81]); MULADD(at[44], at[80]); MULADD(at[45], at[79]); MULADD(at[46], at[78]); MULADD(at[47], at[77]);
|
||||||
|
COMBA_STORE(C->dp[76]);
|
||||||
|
/* 77 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[30], at[95]); MULADD(at[31], at[94]); MULADD(at[32], at[93]); MULADD(at[33], at[92]); MULADD(at[34], at[91]); MULADD(at[35], at[90]); MULADD(at[36], at[89]); MULADD(at[37], at[88]); MULADD(at[38], at[87]); MULADD(at[39], at[86]); MULADD(at[40], at[85]); MULADD(at[41], at[84]); MULADD(at[42], at[83]); MULADD(at[43], at[82]); MULADD(at[44], at[81]); MULADD(at[45], at[80]); MULADD(at[46], at[79]); MULADD(at[47], at[78]);
|
||||||
|
COMBA_STORE(C->dp[77]);
|
||||||
|
/* 78 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[31], at[95]); MULADD(at[32], at[94]); MULADD(at[33], at[93]); MULADD(at[34], at[92]); MULADD(at[35], at[91]); MULADD(at[36], at[90]); MULADD(at[37], at[89]); MULADD(at[38], at[88]); MULADD(at[39], at[87]); MULADD(at[40], at[86]); MULADD(at[41], at[85]); MULADD(at[42], at[84]); MULADD(at[43], at[83]); MULADD(at[44], at[82]); MULADD(at[45], at[81]); MULADD(at[46], at[80]); MULADD(at[47], at[79]);
|
||||||
|
COMBA_STORE(C->dp[78]);
|
||||||
|
/* 79 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[32], at[95]); MULADD(at[33], at[94]); MULADD(at[34], at[93]); MULADD(at[35], at[92]); MULADD(at[36], at[91]); MULADD(at[37], at[90]); MULADD(at[38], at[89]); MULADD(at[39], at[88]); MULADD(at[40], at[87]); MULADD(at[41], at[86]); MULADD(at[42], at[85]); MULADD(at[43], at[84]); MULADD(at[44], at[83]); MULADD(at[45], at[82]); MULADD(at[46], at[81]); MULADD(at[47], at[80]);
|
||||||
|
COMBA_STORE(C->dp[79]);
|
||||||
|
/* 80 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[33], at[95]); MULADD(at[34], at[94]); MULADD(at[35], at[93]); MULADD(at[36], at[92]); MULADD(at[37], at[91]); MULADD(at[38], at[90]); MULADD(at[39], at[89]); MULADD(at[40], at[88]); MULADD(at[41], at[87]); MULADD(at[42], at[86]); MULADD(at[43], at[85]); MULADD(at[44], at[84]); MULADD(at[45], at[83]); MULADD(at[46], at[82]); MULADD(at[47], at[81]);
|
||||||
|
COMBA_STORE(C->dp[80]);
|
||||||
|
/* 81 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[34], at[95]); MULADD(at[35], at[94]); MULADD(at[36], at[93]); MULADD(at[37], at[92]); MULADD(at[38], at[91]); MULADD(at[39], at[90]); MULADD(at[40], at[89]); MULADD(at[41], at[88]); MULADD(at[42], at[87]); MULADD(at[43], at[86]); MULADD(at[44], at[85]); MULADD(at[45], at[84]); MULADD(at[46], at[83]); MULADD(at[47], at[82]);
|
||||||
|
COMBA_STORE(C->dp[81]);
|
||||||
|
/* 82 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[35], at[95]); MULADD(at[36], at[94]); MULADD(at[37], at[93]); MULADD(at[38], at[92]); MULADD(at[39], at[91]); MULADD(at[40], at[90]); MULADD(at[41], at[89]); MULADD(at[42], at[88]); MULADD(at[43], at[87]); MULADD(at[44], at[86]); MULADD(at[45], at[85]); MULADD(at[46], at[84]); MULADD(at[47], at[83]);
|
||||||
|
COMBA_STORE(C->dp[82]);
|
||||||
|
/* 83 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[36], at[95]); MULADD(at[37], at[94]); MULADD(at[38], at[93]); MULADD(at[39], at[92]); MULADD(at[40], at[91]); MULADD(at[41], at[90]); MULADD(at[42], at[89]); MULADD(at[43], at[88]); MULADD(at[44], at[87]); MULADD(at[45], at[86]); MULADD(at[46], at[85]); MULADD(at[47], at[84]);
|
||||||
|
COMBA_STORE(C->dp[83]);
|
||||||
|
/* 84 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[37], at[95]); MULADD(at[38], at[94]); MULADD(at[39], at[93]); MULADD(at[40], at[92]); MULADD(at[41], at[91]); MULADD(at[42], at[90]); MULADD(at[43], at[89]); MULADD(at[44], at[88]); MULADD(at[45], at[87]); MULADD(at[46], at[86]); MULADD(at[47], at[85]);
|
||||||
|
COMBA_STORE(C->dp[84]);
|
||||||
|
/* 85 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[38], at[95]); MULADD(at[39], at[94]); MULADD(at[40], at[93]); MULADD(at[41], at[92]); MULADD(at[42], at[91]); MULADD(at[43], at[90]); MULADD(at[44], at[89]); MULADD(at[45], at[88]); MULADD(at[46], at[87]); MULADD(at[47], at[86]);
|
||||||
|
COMBA_STORE(C->dp[85]);
|
||||||
|
/* 86 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[39], at[95]); MULADD(at[40], at[94]); MULADD(at[41], at[93]); MULADD(at[42], at[92]); MULADD(at[43], at[91]); MULADD(at[44], at[90]); MULADD(at[45], at[89]); MULADD(at[46], at[88]); MULADD(at[47], at[87]);
|
||||||
|
COMBA_STORE(C->dp[86]);
|
||||||
|
/* 87 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[40], at[95]); MULADD(at[41], at[94]); MULADD(at[42], at[93]); MULADD(at[43], at[92]); MULADD(at[44], at[91]); MULADD(at[45], at[90]); MULADD(at[46], at[89]); MULADD(at[47], at[88]);
|
||||||
|
COMBA_STORE(C->dp[87]);
|
||||||
|
/* 88 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[41], at[95]); MULADD(at[42], at[94]); MULADD(at[43], at[93]); MULADD(at[44], at[92]); MULADD(at[45], at[91]); MULADD(at[46], at[90]); MULADD(at[47], at[89]);
|
||||||
|
COMBA_STORE(C->dp[88]);
|
||||||
|
/* 89 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[42], at[95]); MULADD(at[43], at[94]); MULADD(at[44], at[93]); MULADD(at[45], at[92]); MULADD(at[46], at[91]); MULADD(at[47], at[90]);
|
||||||
|
COMBA_STORE(C->dp[89]);
|
||||||
|
/* 90 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[43], at[95]); MULADD(at[44], at[94]); MULADD(at[45], at[93]); MULADD(at[46], at[92]); MULADD(at[47], at[91]);
|
||||||
|
COMBA_STORE(C->dp[90]);
|
||||||
|
/* 91 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[44], at[95]); MULADD(at[45], at[94]); MULADD(at[46], at[93]); MULADD(at[47], at[92]);
|
||||||
|
COMBA_STORE(C->dp[91]);
|
||||||
|
/* 92 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[45], at[95]); MULADD(at[46], at[94]); MULADD(at[47], at[93]);
|
||||||
|
COMBA_STORE(C->dp[92]);
|
||||||
|
/* 93 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[46], at[95]); MULADD(at[47], at[94]);
|
||||||
|
COMBA_STORE(C->dp[93]);
|
||||||
|
/* 94 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[47], at[95]);
|
||||||
|
COMBA_STORE(C->dp[94]);
|
||||||
|
COMBA_STORE2(C->dp[95]);
|
||||||
|
C->used = 96;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
63
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_6.c
Normal file
63
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_6.c
Normal file
@@ -0,0 +1,63 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL6
|
||||||
|
void fp_mul_comba6(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[12];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 6 * sizeof(fp_digit));
|
||||||
|
memcpy(at+6, B->dp, 6 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[6]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[7]); MULADD(at[1], at[6]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[8]); MULADD(at[1], at[7]); MULADD(at[2], at[6]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[9]); MULADD(at[1], at[8]); MULADD(at[2], at[7]); MULADD(at[3], at[6]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[10]); MULADD(at[1], at[9]); MULADD(at[2], at[8]); MULADD(at[3], at[7]); MULADD(at[4], at[6]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[11]); MULADD(at[1], at[10]); MULADD(at[2], at[9]); MULADD(at[3], at[8]); MULADD(at[4], at[7]); MULADD(at[5], at[6]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[11]); MULADD(at[2], at[10]); MULADD(at[3], at[9]); MULADD(at[4], at[8]); MULADD(at[5], at[7]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[11]); MULADD(at[3], at[10]); MULADD(at[4], at[9]); MULADD(at[5], at[8]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[11]); MULADD(at[4], at[10]); MULADD(at[5], at[9]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[11]); MULADD(at[5], at[10]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[11]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
COMBA_STORE2(C->dp[11]);
|
||||||
|
C->used = 12;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
527
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_64.c
Normal file
527
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_64.c
Normal file
@@ -0,0 +1,527 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL64
|
||||||
|
void fp_mul_comba64(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[128];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 64 * sizeof(fp_digit));
|
||||||
|
memcpy(at+64, B->dp, 64 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[64]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[65]); MULADD(at[1], at[64]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[66]); MULADD(at[1], at[65]); MULADD(at[2], at[64]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[67]); MULADD(at[1], at[66]); MULADD(at[2], at[65]); MULADD(at[3], at[64]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[68]); MULADD(at[1], at[67]); MULADD(at[2], at[66]); MULADD(at[3], at[65]); MULADD(at[4], at[64]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[69]); MULADD(at[1], at[68]); MULADD(at[2], at[67]); MULADD(at[3], at[66]); MULADD(at[4], at[65]); MULADD(at[5], at[64]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[70]); MULADD(at[1], at[69]); MULADD(at[2], at[68]); MULADD(at[3], at[67]); MULADD(at[4], at[66]); MULADD(at[5], at[65]); MULADD(at[6], at[64]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[71]); MULADD(at[1], at[70]); MULADD(at[2], at[69]); MULADD(at[3], at[68]); MULADD(at[4], at[67]); MULADD(at[5], at[66]); MULADD(at[6], at[65]); MULADD(at[7], at[64]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[72]); MULADD(at[1], at[71]); MULADD(at[2], at[70]); MULADD(at[3], at[69]); MULADD(at[4], at[68]); MULADD(at[5], at[67]); MULADD(at[6], at[66]); MULADD(at[7], at[65]); MULADD(at[8], at[64]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[73]); MULADD(at[1], at[72]); MULADD(at[2], at[71]); MULADD(at[3], at[70]); MULADD(at[4], at[69]); MULADD(at[5], at[68]); MULADD(at[6], at[67]); MULADD(at[7], at[66]); MULADD(at[8], at[65]); MULADD(at[9], at[64]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[74]); MULADD(at[1], at[73]); MULADD(at[2], at[72]); MULADD(at[3], at[71]); MULADD(at[4], at[70]); MULADD(at[5], at[69]); MULADD(at[6], at[68]); MULADD(at[7], at[67]); MULADD(at[8], at[66]); MULADD(at[9], at[65]); MULADD(at[10], at[64]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[75]); MULADD(at[1], at[74]); MULADD(at[2], at[73]); MULADD(at[3], at[72]); MULADD(at[4], at[71]); MULADD(at[5], at[70]); MULADD(at[6], at[69]); MULADD(at[7], at[68]); MULADD(at[8], at[67]); MULADD(at[9], at[66]); MULADD(at[10], at[65]); MULADD(at[11], at[64]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[76]); MULADD(at[1], at[75]); MULADD(at[2], at[74]); MULADD(at[3], at[73]); MULADD(at[4], at[72]); MULADD(at[5], at[71]); MULADD(at[6], at[70]); MULADD(at[7], at[69]); MULADD(at[8], at[68]); MULADD(at[9], at[67]); MULADD(at[10], at[66]); MULADD(at[11], at[65]); MULADD(at[12], at[64]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[77]); MULADD(at[1], at[76]); MULADD(at[2], at[75]); MULADD(at[3], at[74]); MULADD(at[4], at[73]); MULADD(at[5], at[72]); MULADD(at[6], at[71]); MULADD(at[7], at[70]); MULADD(at[8], at[69]); MULADD(at[9], at[68]); MULADD(at[10], at[67]); MULADD(at[11], at[66]); MULADD(at[12], at[65]); MULADD(at[13], at[64]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[78]); MULADD(at[1], at[77]); MULADD(at[2], at[76]); MULADD(at[3], at[75]); MULADD(at[4], at[74]); MULADD(at[5], at[73]); MULADD(at[6], at[72]); MULADD(at[7], at[71]); MULADD(at[8], at[70]); MULADD(at[9], at[69]); MULADD(at[10], at[68]); MULADD(at[11], at[67]); MULADD(at[12], at[66]); MULADD(at[13], at[65]); MULADD(at[14], at[64]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[79]); MULADD(at[1], at[78]); MULADD(at[2], at[77]); MULADD(at[3], at[76]); MULADD(at[4], at[75]); MULADD(at[5], at[74]); MULADD(at[6], at[73]); MULADD(at[7], at[72]); MULADD(at[8], at[71]); MULADD(at[9], at[70]); MULADD(at[10], at[69]); MULADD(at[11], at[68]); MULADD(at[12], at[67]); MULADD(at[13], at[66]); MULADD(at[14], at[65]); MULADD(at[15], at[64]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[80]); MULADD(at[1], at[79]); MULADD(at[2], at[78]); MULADD(at[3], at[77]); MULADD(at[4], at[76]); MULADD(at[5], at[75]); MULADD(at[6], at[74]); MULADD(at[7], at[73]); MULADD(at[8], at[72]); MULADD(at[9], at[71]); MULADD(at[10], at[70]); MULADD(at[11], at[69]); MULADD(at[12], at[68]); MULADD(at[13], at[67]); MULADD(at[14], at[66]); MULADD(at[15], at[65]); MULADD(at[16], at[64]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
/* 17 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[81]); MULADD(at[1], at[80]); MULADD(at[2], at[79]); MULADD(at[3], at[78]); MULADD(at[4], at[77]); MULADD(at[5], at[76]); MULADD(at[6], at[75]); MULADD(at[7], at[74]); MULADD(at[8], at[73]); MULADD(at[9], at[72]); MULADD(at[10], at[71]); MULADD(at[11], at[70]); MULADD(at[12], at[69]); MULADD(at[13], at[68]); MULADD(at[14], at[67]); MULADD(at[15], at[66]); MULADD(at[16], at[65]); MULADD(at[17], at[64]);
|
||||||
|
COMBA_STORE(C->dp[17]);
|
||||||
|
/* 18 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[82]); MULADD(at[1], at[81]); MULADD(at[2], at[80]); MULADD(at[3], at[79]); MULADD(at[4], at[78]); MULADD(at[5], at[77]); MULADD(at[6], at[76]); MULADD(at[7], at[75]); MULADD(at[8], at[74]); MULADD(at[9], at[73]); MULADD(at[10], at[72]); MULADD(at[11], at[71]); MULADD(at[12], at[70]); MULADD(at[13], at[69]); MULADD(at[14], at[68]); MULADD(at[15], at[67]); MULADD(at[16], at[66]); MULADD(at[17], at[65]); MULADD(at[18], at[64]);
|
||||||
|
COMBA_STORE(C->dp[18]);
|
||||||
|
/* 19 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[83]); MULADD(at[1], at[82]); MULADD(at[2], at[81]); MULADD(at[3], at[80]); MULADD(at[4], at[79]); MULADD(at[5], at[78]); MULADD(at[6], at[77]); MULADD(at[7], at[76]); MULADD(at[8], at[75]); MULADD(at[9], at[74]); MULADD(at[10], at[73]); MULADD(at[11], at[72]); MULADD(at[12], at[71]); MULADD(at[13], at[70]); MULADD(at[14], at[69]); MULADD(at[15], at[68]); MULADD(at[16], at[67]); MULADD(at[17], at[66]); MULADD(at[18], at[65]); MULADD(at[19], at[64]);
|
||||||
|
COMBA_STORE(C->dp[19]);
|
||||||
|
/* 20 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[84]); MULADD(at[1], at[83]); MULADD(at[2], at[82]); MULADD(at[3], at[81]); MULADD(at[4], at[80]); MULADD(at[5], at[79]); MULADD(at[6], at[78]); MULADD(at[7], at[77]); MULADD(at[8], at[76]); MULADD(at[9], at[75]); MULADD(at[10], at[74]); MULADD(at[11], at[73]); MULADD(at[12], at[72]); MULADD(at[13], at[71]); MULADD(at[14], at[70]); MULADD(at[15], at[69]); MULADD(at[16], at[68]); MULADD(at[17], at[67]); MULADD(at[18], at[66]); MULADD(at[19], at[65]); MULADD(at[20], at[64]);
|
||||||
|
COMBA_STORE(C->dp[20]);
|
||||||
|
/* 21 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[85]); MULADD(at[1], at[84]); MULADD(at[2], at[83]); MULADD(at[3], at[82]); MULADD(at[4], at[81]); MULADD(at[5], at[80]); MULADD(at[6], at[79]); MULADD(at[7], at[78]); MULADD(at[8], at[77]); MULADD(at[9], at[76]); MULADD(at[10], at[75]); MULADD(at[11], at[74]); MULADD(at[12], at[73]); MULADD(at[13], at[72]); MULADD(at[14], at[71]); MULADD(at[15], at[70]); MULADD(at[16], at[69]); MULADD(at[17], at[68]); MULADD(at[18], at[67]); MULADD(at[19], at[66]); MULADD(at[20], at[65]); MULADD(at[21], at[64]);
|
||||||
|
COMBA_STORE(C->dp[21]);
|
||||||
|
/* 22 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[86]); MULADD(at[1], at[85]); MULADD(at[2], at[84]); MULADD(at[3], at[83]); MULADD(at[4], at[82]); MULADD(at[5], at[81]); MULADD(at[6], at[80]); MULADD(at[7], at[79]); MULADD(at[8], at[78]); MULADD(at[9], at[77]); MULADD(at[10], at[76]); MULADD(at[11], at[75]); MULADD(at[12], at[74]); MULADD(at[13], at[73]); MULADD(at[14], at[72]); MULADD(at[15], at[71]); MULADD(at[16], at[70]); MULADD(at[17], at[69]); MULADD(at[18], at[68]); MULADD(at[19], at[67]); MULADD(at[20], at[66]); MULADD(at[21], at[65]); MULADD(at[22], at[64]);
|
||||||
|
COMBA_STORE(C->dp[22]);
|
||||||
|
/* 23 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[87]); MULADD(at[1], at[86]); MULADD(at[2], at[85]); MULADD(at[3], at[84]); MULADD(at[4], at[83]); MULADD(at[5], at[82]); MULADD(at[6], at[81]); MULADD(at[7], at[80]); MULADD(at[8], at[79]); MULADD(at[9], at[78]); MULADD(at[10], at[77]); MULADD(at[11], at[76]); MULADD(at[12], at[75]); MULADD(at[13], at[74]); MULADD(at[14], at[73]); MULADD(at[15], at[72]); MULADD(at[16], at[71]); MULADD(at[17], at[70]); MULADD(at[18], at[69]); MULADD(at[19], at[68]); MULADD(at[20], at[67]); MULADD(at[21], at[66]); MULADD(at[22], at[65]); MULADD(at[23], at[64]);
|
||||||
|
COMBA_STORE(C->dp[23]);
|
||||||
|
/* 24 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[88]); MULADD(at[1], at[87]); MULADD(at[2], at[86]); MULADD(at[3], at[85]); MULADD(at[4], at[84]); MULADD(at[5], at[83]); MULADD(at[6], at[82]); MULADD(at[7], at[81]); MULADD(at[8], at[80]); MULADD(at[9], at[79]); MULADD(at[10], at[78]); MULADD(at[11], at[77]); MULADD(at[12], at[76]); MULADD(at[13], at[75]); MULADD(at[14], at[74]); MULADD(at[15], at[73]); MULADD(at[16], at[72]); MULADD(at[17], at[71]); MULADD(at[18], at[70]); MULADD(at[19], at[69]); MULADD(at[20], at[68]); MULADD(at[21], at[67]); MULADD(at[22], at[66]); MULADD(at[23], at[65]); MULADD(at[24], at[64]);
|
||||||
|
COMBA_STORE(C->dp[24]);
|
||||||
|
/* 25 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[89]); MULADD(at[1], at[88]); MULADD(at[2], at[87]); MULADD(at[3], at[86]); MULADD(at[4], at[85]); MULADD(at[5], at[84]); MULADD(at[6], at[83]); MULADD(at[7], at[82]); MULADD(at[8], at[81]); MULADD(at[9], at[80]); MULADD(at[10], at[79]); MULADD(at[11], at[78]); MULADD(at[12], at[77]); MULADD(at[13], at[76]); MULADD(at[14], at[75]); MULADD(at[15], at[74]); MULADD(at[16], at[73]); MULADD(at[17], at[72]); MULADD(at[18], at[71]); MULADD(at[19], at[70]); MULADD(at[20], at[69]); MULADD(at[21], at[68]); MULADD(at[22], at[67]); MULADD(at[23], at[66]); MULADD(at[24], at[65]); MULADD(at[25], at[64]);
|
||||||
|
COMBA_STORE(C->dp[25]);
|
||||||
|
/* 26 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[90]); MULADD(at[1], at[89]); MULADD(at[2], at[88]); MULADD(at[3], at[87]); MULADD(at[4], at[86]); MULADD(at[5], at[85]); MULADD(at[6], at[84]); MULADD(at[7], at[83]); MULADD(at[8], at[82]); MULADD(at[9], at[81]); MULADD(at[10], at[80]); MULADD(at[11], at[79]); MULADD(at[12], at[78]); MULADD(at[13], at[77]); MULADD(at[14], at[76]); MULADD(at[15], at[75]); MULADD(at[16], at[74]); MULADD(at[17], at[73]); MULADD(at[18], at[72]); MULADD(at[19], at[71]); MULADD(at[20], at[70]); MULADD(at[21], at[69]); MULADD(at[22], at[68]); MULADD(at[23], at[67]); MULADD(at[24], at[66]); MULADD(at[25], at[65]); MULADD(at[26], at[64]);
|
||||||
|
COMBA_STORE(C->dp[26]);
|
||||||
|
/* 27 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[91]); MULADD(at[1], at[90]); MULADD(at[2], at[89]); MULADD(at[3], at[88]); MULADD(at[4], at[87]); MULADD(at[5], at[86]); MULADD(at[6], at[85]); MULADD(at[7], at[84]); MULADD(at[8], at[83]); MULADD(at[9], at[82]); MULADD(at[10], at[81]); MULADD(at[11], at[80]); MULADD(at[12], at[79]); MULADD(at[13], at[78]); MULADD(at[14], at[77]); MULADD(at[15], at[76]); MULADD(at[16], at[75]); MULADD(at[17], at[74]); MULADD(at[18], at[73]); MULADD(at[19], at[72]); MULADD(at[20], at[71]); MULADD(at[21], at[70]); MULADD(at[22], at[69]); MULADD(at[23], at[68]); MULADD(at[24], at[67]); MULADD(at[25], at[66]); MULADD(at[26], at[65]); MULADD(at[27], at[64]);
|
||||||
|
COMBA_STORE(C->dp[27]);
|
||||||
|
/* 28 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[92]); MULADD(at[1], at[91]); MULADD(at[2], at[90]); MULADD(at[3], at[89]); MULADD(at[4], at[88]); MULADD(at[5], at[87]); MULADD(at[6], at[86]); MULADD(at[7], at[85]); MULADD(at[8], at[84]); MULADD(at[9], at[83]); MULADD(at[10], at[82]); MULADD(at[11], at[81]); MULADD(at[12], at[80]); MULADD(at[13], at[79]); MULADD(at[14], at[78]); MULADD(at[15], at[77]); MULADD(at[16], at[76]); MULADD(at[17], at[75]); MULADD(at[18], at[74]); MULADD(at[19], at[73]); MULADD(at[20], at[72]); MULADD(at[21], at[71]); MULADD(at[22], at[70]); MULADD(at[23], at[69]); MULADD(at[24], at[68]); MULADD(at[25], at[67]); MULADD(at[26], at[66]); MULADD(at[27], at[65]); MULADD(at[28], at[64]);
|
||||||
|
COMBA_STORE(C->dp[28]);
|
||||||
|
/* 29 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[93]); MULADD(at[1], at[92]); MULADD(at[2], at[91]); MULADD(at[3], at[90]); MULADD(at[4], at[89]); MULADD(at[5], at[88]); MULADD(at[6], at[87]); MULADD(at[7], at[86]); MULADD(at[8], at[85]); MULADD(at[9], at[84]); MULADD(at[10], at[83]); MULADD(at[11], at[82]); MULADD(at[12], at[81]); MULADD(at[13], at[80]); MULADD(at[14], at[79]); MULADD(at[15], at[78]); MULADD(at[16], at[77]); MULADD(at[17], at[76]); MULADD(at[18], at[75]); MULADD(at[19], at[74]); MULADD(at[20], at[73]); MULADD(at[21], at[72]); MULADD(at[22], at[71]); MULADD(at[23], at[70]); MULADD(at[24], at[69]); MULADD(at[25], at[68]); MULADD(at[26], at[67]); MULADD(at[27], at[66]); MULADD(at[28], at[65]); MULADD(at[29], at[64]);
|
||||||
|
COMBA_STORE(C->dp[29]);
|
||||||
|
/* 30 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[94]); MULADD(at[1], at[93]); MULADD(at[2], at[92]); MULADD(at[3], at[91]); MULADD(at[4], at[90]); MULADD(at[5], at[89]); MULADD(at[6], at[88]); MULADD(at[7], at[87]); MULADD(at[8], at[86]); MULADD(at[9], at[85]); MULADD(at[10], at[84]); MULADD(at[11], at[83]); MULADD(at[12], at[82]); MULADD(at[13], at[81]); MULADD(at[14], at[80]); MULADD(at[15], at[79]); MULADD(at[16], at[78]); MULADD(at[17], at[77]); MULADD(at[18], at[76]); MULADD(at[19], at[75]); MULADD(at[20], at[74]); MULADD(at[21], at[73]); MULADD(at[22], at[72]); MULADD(at[23], at[71]); MULADD(at[24], at[70]); MULADD(at[25], at[69]); MULADD(at[26], at[68]); MULADD(at[27], at[67]); MULADD(at[28], at[66]); MULADD(at[29], at[65]); MULADD(at[30], at[64]);
|
||||||
|
COMBA_STORE(C->dp[30]);
|
||||||
|
/* 31 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[95]); MULADD(at[1], at[94]); MULADD(at[2], at[93]); MULADD(at[3], at[92]); MULADD(at[4], at[91]); MULADD(at[5], at[90]); MULADD(at[6], at[89]); MULADD(at[7], at[88]); MULADD(at[8], at[87]); MULADD(at[9], at[86]); MULADD(at[10], at[85]); MULADD(at[11], at[84]); MULADD(at[12], at[83]); MULADD(at[13], at[82]); MULADD(at[14], at[81]); MULADD(at[15], at[80]); MULADD(at[16], at[79]); MULADD(at[17], at[78]); MULADD(at[18], at[77]); MULADD(at[19], at[76]); MULADD(at[20], at[75]); MULADD(at[21], at[74]); MULADD(at[22], at[73]); MULADD(at[23], at[72]); MULADD(at[24], at[71]); MULADD(at[25], at[70]); MULADD(at[26], at[69]); MULADD(at[27], at[68]); MULADD(at[28], at[67]); MULADD(at[29], at[66]); MULADD(at[30], at[65]); MULADD(at[31], at[64]);
|
||||||
|
COMBA_STORE(C->dp[31]);
|
||||||
|
/* 32 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[96]); MULADD(at[1], at[95]); MULADD(at[2], at[94]); MULADD(at[3], at[93]); MULADD(at[4], at[92]); MULADD(at[5], at[91]); MULADD(at[6], at[90]); MULADD(at[7], at[89]); MULADD(at[8], at[88]); MULADD(at[9], at[87]); MULADD(at[10], at[86]); MULADD(at[11], at[85]); MULADD(at[12], at[84]); MULADD(at[13], at[83]); MULADD(at[14], at[82]); MULADD(at[15], at[81]); MULADD(at[16], at[80]); MULADD(at[17], at[79]); MULADD(at[18], at[78]); MULADD(at[19], at[77]); MULADD(at[20], at[76]); MULADD(at[21], at[75]); MULADD(at[22], at[74]); MULADD(at[23], at[73]); MULADD(at[24], at[72]); MULADD(at[25], at[71]); MULADD(at[26], at[70]); MULADD(at[27], at[69]); MULADD(at[28], at[68]); MULADD(at[29], at[67]); MULADD(at[30], at[66]); MULADD(at[31], at[65]); MULADD(at[32], at[64]);
|
||||||
|
COMBA_STORE(C->dp[32]);
|
||||||
|
/* 33 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[97]); MULADD(at[1], at[96]); MULADD(at[2], at[95]); MULADD(at[3], at[94]); MULADD(at[4], at[93]); MULADD(at[5], at[92]); MULADD(at[6], at[91]); MULADD(at[7], at[90]); MULADD(at[8], at[89]); MULADD(at[9], at[88]); MULADD(at[10], at[87]); MULADD(at[11], at[86]); MULADD(at[12], at[85]); MULADD(at[13], at[84]); MULADD(at[14], at[83]); MULADD(at[15], at[82]); MULADD(at[16], at[81]); MULADD(at[17], at[80]); MULADD(at[18], at[79]); MULADD(at[19], at[78]); MULADD(at[20], at[77]); MULADD(at[21], at[76]); MULADD(at[22], at[75]); MULADD(at[23], at[74]); MULADD(at[24], at[73]); MULADD(at[25], at[72]); MULADD(at[26], at[71]); MULADD(at[27], at[70]); MULADD(at[28], at[69]); MULADD(at[29], at[68]); MULADD(at[30], at[67]); MULADD(at[31], at[66]); MULADD(at[32], at[65]); MULADD(at[33], at[64]);
|
||||||
|
COMBA_STORE(C->dp[33]);
|
||||||
|
/* 34 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[98]); MULADD(at[1], at[97]); MULADD(at[2], at[96]); MULADD(at[3], at[95]); MULADD(at[4], at[94]); MULADD(at[5], at[93]); MULADD(at[6], at[92]); MULADD(at[7], at[91]); MULADD(at[8], at[90]); MULADD(at[9], at[89]); MULADD(at[10], at[88]); MULADD(at[11], at[87]); MULADD(at[12], at[86]); MULADD(at[13], at[85]); MULADD(at[14], at[84]); MULADD(at[15], at[83]); MULADD(at[16], at[82]); MULADD(at[17], at[81]); MULADD(at[18], at[80]); MULADD(at[19], at[79]); MULADD(at[20], at[78]); MULADD(at[21], at[77]); MULADD(at[22], at[76]); MULADD(at[23], at[75]); MULADD(at[24], at[74]); MULADD(at[25], at[73]); MULADD(at[26], at[72]); MULADD(at[27], at[71]); MULADD(at[28], at[70]); MULADD(at[29], at[69]); MULADD(at[30], at[68]); MULADD(at[31], at[67]); MULADD(at[32], at[66]); MULADD(at[33], at[65]); MULADD(at[34], at[64]);
|
||||||
|
COMBA_STORE(C->dp[34]);
|
||||||
|
/* 35 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[99]); MULADD(at[1], at[98]); MULADD(at[2], at[97]); MULADD(at[3], at[96]); MULADD(at[4], at[95]); MULADD(at[5], at[94]); MULADD(at[6], at[93]); MULADD(at[7], at[92]); MULADD(at[8], at[91]); MULADD(at[9], at[90]); MULADD(at[10], at[89]); MULADD(at[11], at[88]); MULADD(at[12], at[87]); MULADD(at[13], at[86]); MULADD(at[14], at[85]); MULADD(at[15], at[84]); MULADD(at[16], at[83]); MULADD(at[17], at[82]); MULADD(at[18], at[81]); MULADD(at[19], at[80]); MULADD(at[20], at[79]); MULADD(at[21], at[78]); MULADD(at[22], at[77]); MULADD(at[23], at[76]); MULADD(at[24], at[75]); MULADD(at[25], at[74]); MULADD(at[26], at[73]); MULADD(at[27], at[72]); MULADD(at[28], at[71]); MULADD(at[29], at[70]); MULADD(at[30], at[69]); MULADD(at[31], at[68]); MULADD(at[32], at[67]); MULADD(at[33], at[66]); MULADD(at[34], at[65]); MULADD(at[35], at[64]);
|
||||||
|
COMBA_STORE(C->dp[35]);
|
||||||
|
/* 36 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[100]); MULADD(at[1], at[99]); MULADD(at[2], at[98]); MULADD(at[3], at[97]); MULADD(at[4], at[96]); MULADD(at[5], at[95]); MULADD(at[6], at[94]); MULADD(at[7], at[93]); MULADD(at[8], at[92]); MULADD(at[9], at[91]); MULADD(at[10], at[90]); MULADD(at[11], at[89]); MULADD(at[12], at[88]); MULADD(at[13], at[87]); MULADD(at[14], at[86]); MULADD(at[15], at[85]); MULADD(at[16], at[84]); MULADD(at[17], at[83]); MULADD(at[18], at[82]); MULADD(at[19], at[81]); MULADD(at[20], at[80]); MULADD(at[21], at[79]); MULADD(at[22], at[78]); MULADD(at[23], at[77]); MULADD(at[24], at[76]); MULADD(at[25], at[75]); MULADD(at[26], at[74]); MULADD(at[27], at[73]); MULADD(at[28], at[72]); MULADD(at[29], at[71]); MULADD(at[30], at[70]); MULADD(at[31], at[69]); MULADD(at[32], at[68]); MULADD(at[33], at[67]); MULADD(at[34], at[66]); MULADD(at[35], at[65]); MULADD(at[36], at[64]);
|
||||||
|
COMBA_STORE(C->dp[36]);
|
||||||
|
/* 37 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[101]); MULADD(at[1], at[100]); MULADD(at[2], at[99]); MULADD(at[3], at[98]); MULADD(at[4], at[97]); MULADD(at[5], at[96]); MULADD(at[6], at[95]); MULADD(at[7], at[94]); MULADD(at[8], at[93]); MULADD(at[9], at[92]); MULADD(at[10], at[91]); MULADD(at[11], at[90]); MULADD(at[12], at[89]); MULADD(at[13], at[88]); MULADD(at[14], at[87]); MULADD(at[15], at[86]); MULADD(at[16], at[85]); MULADD(at[17], at[84]); MULADD(at[18], at[83]); MULADD(at[19], at[82]); MULADD(at[20], at[81]); MULADD(at[21], at[80]); MULADD(at[22], at[79]); MULADD(at[23], at[78]); MULADD(at[24], at[77]); MULADD(at[25], at[76]); MULADD(at[26], at[75]); MULADD(at[27], at[74]); MULADD(at[28], at[73]); MULADD(at[29], at[72]); MULADD(at[30], at[71]); MULADD(at[31], at[70]); MULADD(at[32], at[69]); MULADD(at[33], at[68]); MULADD(at[34], at[67]); MULADD(at[35], at[66]); MULADD(at[36], at[65]); MULADD(at[37], at[64]);
|
||||||
|
COMBA_STORE(C->dp[37]);
|
||||||
|
/* 38 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[102]); MULADD(at[1], at[101]); MULADD(at[2], at[100]); MULADD(at[3], at[99]); MULADD(at[4], at[98]); MULADD(at[5], at[97]); MULADD(at[6], at[96]); MULADD(at[7], at[95]); MULADD(at[8], at[94]); MULADD(at[9], at[93]); MULADD(at[10], at[92]); MULADD(at[11], at[91]); MULADD(at[12], at[90]); MULADD(at[13], at[89]); MULADD(at[14], at[88]); MULADD(at[15], at[87]); MULADD(at[16], at[86]); MULADD(at[17], at[85]); MULADD(at[18], at[84]); MULADD(at[19], at[83]); MULADD(at[20], at[82]); MULADD(at[21], at[81]); MULADD(at[22], at[80]); MULADD(at[23], at[79]); MULADD(at[24], at[78]); MULADD(at[25], at[77]); MULADD(at[26], at[76]); MULADD(at[27], at[75]); MULADD(at[28], at[74]); MULADD(at[29], at[73]); MULADD(at[30], at[72]); MULADD(at[31], at[71]); MULADD(at[32], at[70]); MULADD(at[33], at[69]); MULADD(at[34], at[68]); MULADD(at[35], at[67]); MULADD(at[36], at[66]); MULADD(at[37], at[65]); MULADD(at[38], at[64]);
|
||||||
|
COMBA_STORE(C->dp[38]);
|
||||||
|
/* 39 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[103]); MULADD(at[1], at[102]); MULADD(at[2], at[101]); MULADD(at[3], at[100]); MULADD(at[4], at[99]); MULADD(at[5], at[98]); MULADD(at[6], at[97]); MULADD(at[7], at[96]); MULADD(at[8], at[95]); MULADD(at[9], at[94]); MULADD(at[10], at[93]); MULADD(at[11], at[92]); MULADD(at[12], at[91]); MULADD(at[13], at[90]); MULADD(at[14], at[89]); MULADD(at[15], at[88]); MULADD(at[16], at[87]); MULADD(at[17], at[86]); MULADD(at[18], at[85]); MULADD(at[19], at[84]); MULADD(at[20], at[83]); MULADD(at[21], at[82]); MULADD(at[22], at[81]); MULADD(at[23], at[80]); MULADD(at[24], at[79]); MULADD(at[25], at[78]); MULADD(at[26], at[77]); MULADD(at[27], at[76]); MULADD(at[28], at[75]); MULADD(at[29], at[74]); MULADD(at[30], at[73]); MULADD(at[31], at[72]); MULADD(at[32], at[71]); MULADD(at[33], at[70]); MULADD(at[34], at[69]); MULADD(at[35], at[68]); MULADD(at[36], at[67]); MULADD(at[37], at[66]); MULADD(at[38], at[65]); MULADD(at[39], at[64]);
|
||||||
|
COMBA_STORE(C->dp[39]);
|
||||||
|
/* 40 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[104]); MULADD(at[1], at[103]); MULADD(at[2], at[102]); MULADD(at[3], at[101]); MULADD(at[4], at[100]); MULADD(at[5], at[99]); MULADD(at[6], at[98]); MULADD(at[7], at[97]); MULADD(at[8], at[96]); MULADD(at[9], at[95]); MULADD(at[10], at[94]); MULADD(at[11], at[93]); MULADD(at[12], at[92]); MULADD(at[13], at[91]); MULADD(at[14], at[90]); MULADD(at[15], at[89]); MULADD(at[16], at[88]); MULADD(at[17], at[87]); MULADD(at[18], at[86]); MULADD(at[19], at[85]); MULADD(at[20], at[84]); MULADD(at[21], at[83]); MULADD(at[22], at[82]); MULADD(at[23], at[81]); MULADD(at[24], at[80]); MULADD(at[25], at[79]); MULADD(at[26], at[78]); MULADD(at[27], at[77]); MULADD(at[28], at[76]); MULADD(at[29], at[75]); MULADD(at[30], at[74]); MULADD(at[31], at[73]); MULADD(at[32], at[72]); MULADD(at[33], at[71]); MULADD(at[34], at[70]); MULADD(at[35], at[69]); MULADD(at[36], at[68]); MULADD(at[37], at[67]); MULADD(at[38], at[66]); MULADD(at[39], at[65]); MULADD(at[40], at[64]);
|
||||||
|
COMBA_STORE(C->dp[40]);
|
||||||
|
/* 41 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[105]); MULADD(at[1], at[104]); MULADD(at[2], at[103]); MULADD(at[3], at[102]); MULADD(at[4], at[101]); MULADD(at[5], at[100]); MULADD(at[6], at[99]); MULADD(at[7], at[98]); MULADD(at[8], at[97]); MULADD(at[9], at[96]); MULADD(at[10], at[95]); MULADD(at[11], at[94]); MULADD(at[12], at[93]); MULADD(at[13], at[92]); MULADD(at[14], at[91]); MULADD(at[15], at[90]); MULADD(at[16], at[89]); MULADD(at[17], at[88]); MULADD(at[18], at[87]); MULADD(at[19], at[86]); MULADD(at[20], at[85]); MULADD(at[21], at[84]); MULADD(at[22], at[83]); MULADD(at[23], at[82]); MULADD(at[24], at[81]); MULADD(at[25], at[80]); MULADD(at[26], at[79]); MULADD(at[27], at[78]); MULADD(at[28], at[77]); MULADD(at[29], at[76]); MULADD(at[30], at[75]); MULADD(at[31], at[74]); MULADD(at[32], at[73]); MULADD(at[33], at[72]); MULADD(at[34], at[71]); MULADD(at[35], at[70]); MULADD(at[36], at[69]); MULADD(at[37], at[68]); MULADD(at[38], at[67]); MULADD(at[39], at[66]); MULADD(at[40], at[65]); MULADD(at[41], at[64]);
|
||||||
|
COMBA_STORE(C->dp[41]);
|
||||||
|
/* 42 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[106]); MULADD(at[1], at[105]); MULADD(at[2], at[104]); MULADD(at[3], at[103]); MULADD(at[4], at[102]); MULADD(at[5], at[101]); MULADD(at[6], at[100]); MULADD(at[7], at[99]); MULADD(at[8], at[98]); MULADD(at[9], at[97]); MULADD(at[10], at[96]); MULADD(at[11], at[95]); MULADD(at[12], at[94]); MULADD(at[13], at[93]); MULADD(at[14], at[92]); MULADD(at[15], at[91]); MULADD(at[16], at[90]); MULADD(at[17], at[89]); MULADD(at[18], at[88]); MULADD(at[19], at[87]); MULADD(at[20], at[86]); MULADD(at[21], at[85]); MULADD(at[22], at[84]); MULADD(at[23], at[83]); MULADD(at[24], at[82]); MULADD(at[25], at[81]); MULADD(at[26], at[80]); MULADD(at[27], at[79]); MULADD(at[28], at[78]); MULADD(at[29], at[77]); MULADD(at[30], at[76]); MULADD(at[31], at[75]); MULADD(at[32], at[74]); MULADD(at[33], at[73]); MULADD(at[34], at[72]); MULADD(at[35], at[71]); MULADD(at[36], at[70]); MULADD(at[37], at[69]); MULADD(at[38], at[68]); MULADD(at[39], at[67]); MULADD(at[40], at[66]); MULADD(at[41], at[65]); MULADD(at[42], at[64]);
|
||||||
|
COMBA_STORE(C->dp[42]);
|
||||||
|
/* 43 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[107]); MULADD(at[1], at[106]); MULADD(at[2], at[105]); MULADD(at[3], at[104]); MULADD(at[4], at[103]); MULADD(at[5], at[102]); MULADD(at[6], at[101]); MULADD(at[7], at[100]); MULADD(at[8], at[99]); MULADD(at[9], at[98]); MULADD(at[10], at[97]); MULADD(at[11], at[96]); MULADD(at[12], at[95]); MULADD(at[13], at[94]); MULADD(at[14], at[93]); MULADD(at[15], at[92]); MULADD(at[16], at[91]); MULADD(at[17], at[90]); MULADD(at[18], at[89]); MULADD(at[19], at[88]); MULADD(at[20], at[87]); MULADD(at[21], at[86]); MULADD(at[22], at[85]); MULADD(at[23], at[84]); MULADD(at[24], at[83]); MULADD(at[25], at[82]); MULADD(at[26], at[81]); MULADD(at[27], at[80]); MULADD(at[28], at[79]); MULADD(at[29], at[78]); MULADD(at[30], at[77]); MULADD(at[31], at[76]); MULADD(at[32], at[75]); MULADD(at[33], at[74]); MULADD(at[34], at[73]); MULADD(at[35], at[72]); MULADD(at[36], at[71]); MULADD(at[37], at[70]); MULADD(at[38], at[69]); MULADD(at[39], at[68]); MULADD(at[40], at[67]); MULADD(at[41], at[66]); MULADD(at[42], at[65]); MULADD(at[43], at[64]);
|
||||||
|
COMBA_STORE(C->dp[43]);
|
||||||
|
/* 44 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[108]); MULADD(at[1], at[107]); MULADD(at[2], at[106]); MULADD(at[3], at[105]); MULADD(at[4], at[104]); MULADD(at[5], at[103]); MULADD(at[6], at[102]); MULADD(at[7], at[101]); MULADD(at[8], at[100]); MULADD(at[9], at[99]); MULADD(at[10], at[98]); MULADD(at[11], at[97]); MULADD(at[12], at[96]); MULADD(at[13], at[95]); MULADD(at[14], at[94]); MULADD(at[15], at[93]); MULADD(at[16], at[92]); MULADD(at[17], at[91]); MULADD(at[18], at[90]); MULADD(at[19], at[89]); MULADD(at[20], at[88]); MULADD(at[21], at[87]); MULADD(at[22], at[86]); MULADD(at[23], at[85]); MULADD(at[24], at[84]); MULADD(at[25], at[83]); MULADD(at[26], at[82]); MULADD(at[27], at[81]); MULADD(at[28], at[80]); MULADD(at[29], at[79]); MULADD(at[30], at[78]); MULADD(at[31], at[77]); MULADD(at[32], at[76]); MULADD(at[33], at[75]); MULADD(at[34], at[74]); MULADD(at[35], at[73]); MULADD(at[36], at[72]); MULADD(at[37], at[71]); MULADD(at[38], at[70]); MULADD(at[39], at[69]); MULADD(at[40], at[68]); MULADD(at[41], at[67]); MULADD(at[42], at[66]); MULADD(at[43], at[65]); MULADD(at[44], at[64]);
|
||||||
|
COMBA_STORE(C->dp[44]);
|
||||||
|
/* 45 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[109]); MULADD(at[1], at[108]); MULADD(at[2], at[107]); MULADD(at[3], at[106]); MULADD(at[4], at[105]); MULADD(at[5], at[104]); MULADD(at[6], at[103]); MULADD(at[7], at[102]); MULADD(at[8], at[101]); MULADD(at[9], at[100]); MULADD(at[10], at[99]); MULADD(at[11], at[98]); MULADD(at[12], at[97]); MULADD(at[13], at[96]); MULADD(at[14], at[95]); MULADD(at[15], at[94]); MULADD(at[16], at[93]); MULADD(at[17], at[92]); MULADD(at[18], at[91]); MULADD(at[19], at[90]); MULADD(at[20], at[89]); MULADD(at[21], at[88]); MULADD(at[22], at[87]); MULADD(at[23], at[86]); MULADD(at[24], at[85]); MULADD(at[25], at[84]); MULADD(at[26], at[83]); MULADD(at[27], at[82]); MULADD(at[28], at[81]); MULADD(at[29], at[80]); MULADD(at[30], at[79]); MULADD(at[31], at[78]); MULADD(at[32], at[77]); MULADD(at[33], at[76]); MULADD(at[34], at[75]); MULADD(at[35], at[74]); MULADD(at[36], at[73]); MULADD(at[37], at[72]); MULADD(at[38], at[71]); MULADD(at[39], at[70]); MULADD(at[40], at[69]); MULADD(at[41], at[68]); MULADD(at[42], at[67]); MULADD(at[43], at[66]); MULADD(at[44], at[65]); MULADD(at[45], at[64]);
|
||||||
|
COMBA_STORE(C->dp[45]);
|
||||||
|
/* 46 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[110]); MULADD(at[1], at[109]); MULADD(at[2], at[108]); MULADD(at[3], at[107]); MULADD(at[4], at[106]); MULADD(at[5], at[105]); MULADD(at[6], at[104]); MULADD(at[7], at[103]); MULADD(at[8], at[102]); MULADD(at[9], at[101]); MULADD(at[10], at[100]); MULADD(at[11], at[99]); MULADD(at[12], at[98]); MULADD(at[13], at[97]); MULADD(at[14], at[96]); MULADD(at[15], at[95]); MULADD(at[16], at[94]); MULADD(at[17], at[93]); MULADD(at[18], at[92]); MULADD(at[19], at[91]); MULADD(at[20], at[90]); MULADD(at[21], at[89]); MULADD(at[22], at[88]); MULADD(at[23], at[87]); MULADD(at[24], at[86]); MULADD(at[25], at[85]); MULADD(at[26], at[84]); MULADD(at[27], at[83]); MULADD(at[28], at[82]); MULADD(at[29], at[81]); MULADD(at[30], at[80]); MULADD(at[31], at[79]); MULADD(at[32], at[78]); MULADD(at[33], at[77]); MULADD(at[34], at[76]); MULADD(at[35], at[75]); MULADD(at[36], at[74]); MULADD(at[37], at[73]); MULADD(at[38], at[72]); MULADD(at[39], at[71]); MULADD(at[40], at[70]); MULADD(at[41], at[69]); MULADD(at[42], at[68]); MULADD(at[43], at[67]); MULADD(at[44], at[66]); MULADD(at[45], at[65]); MULADD(at[46], at[64]);
|
||||||
|
COMBA_STORE(C->dp[46]);
|
||||||
|
/* 47 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[111]); MULADD(at[1], at[110]); MULADD(at[2], at[109]); MULADD(at[3], at[108]); MULADD(at[4], at[107]); MULADD(at[5], at[106]); MULADD(at[6], at[105]); MULADD(at[7], at[104]); MULADD(at[8], at[103]); MULADD(at[9], at[102]); MULADD(at[10], at[101]); MULADD(at[11], at[100]); MULADD(at[12], at[99]); MULADD(at[13], at[98]); MULADD(at[14], at[97]); MULADD(at[15], at[96]); MULADD(at[16], at[95]); MULADD(at[17], at[94]); MULADD(at[18], at[93]); MULADD(at[19], at[92]); MULADD(at[20], at[91]); MULADD(at[21], at[90]); MULADD(at[22], at[89]); MULADD(at[23], at[88]); MULADD(at[24], at[87]); MULADD(at[25], at[86]); MULADD(at[26], at[85]); MULADD(at[27], at[84]); MULADD(at[28], at[83]); MULADD(at[29], at[82]); MULADD(at[30], at[81]); MULADD(at[31], at[80]); MULADD(at[32], at[79]); MULADD(at[33], at[78]); MULADD(at[34], at[77]); MULADD(at[35], at[76]); MULADD(at[36], at[75]); MULADD(at[37], at[74]); MULADD(at[38], at[73]); MULADD(at[39], at[72]); MULADD(at[40], at[71]); MULADD(at[41], at[70]); MULADD(at[42], at[69]); MULADD(at[43], at[68]); MULADD(at[44], at[67]); MULADD(at[45], at[66]); MULADD(at[46], at[65]); MULADD(at[47], at[64]);
|
||||||
|
COMBA_STORE(C->dp[47]);
|
||||||
|
/* 48 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[112]); MULADD(at[1], at[111]); MULADD(at[2], at[110]); MULADD(at[3], at[109]); MULADD(at[4], at[108]); MULADD(at[5], at[107]); MULADD(at[6], at[106]); MULADD(at[7], at[105]); MULADD(at[8], at[104]); MULADD(at[9], at[103]); MULADD(at[10], at[102]); MULADD(at[11], at[101]); MULADD(at[12], at[100]); MULADD(at[13], at[99]); MULADD(at[14], at[98]); MULADD(at[15], at[97]); MULADD(at[16], at[96]); MULADD(at[17], at[95]); MULADD(at[18], at[94]); MULADD(at[19], at[93]); MULADD(at[20], at[92]); MULADD(at[21], at[91]); MULADD(at[22], at[90]); MULADD(at[23], at[89]); MULADD(at[24], at[88]); MULADD(at[25], at[87]); MULADD(at[26], at[86]); MULADD(at[27], at[85]); MULADD(at[28], at[84]); MULADD(at[29], at[83]); MULADD(at[30], at[82]); MULADD(at[31], at[81]); MULADD(at[32], at[80]); MULADD(at[33], at[79]); MULADD(at[34], at[78]); MULADD(at[35], at[77]); MULADD(at[36], at[76]); MULADD(at[37], at[75]); MULADD(at[38], at[74]); MULADD(at[39], at[73]); MULADD(at[40], at[72]); MULADD(at[41], at[71]); MULADD(at[42], at[70]); MULADD(at[43], at[69]); MULADD(at[44], at[68]); MULADD(at[45], at[67]); MULADD(at[46], at[66]); MULADD(at[47], at[65]); MULADD(at[48], at[64]);
|
||||||
|
COMBA_STORE(C->dp[48]);
|
||||||
|
/* 49 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[113]); MULADD(at[1], at[112]); MULADD(at[2], at[111]); MULADD(at[3], at[110]); MULADD(at[4], at[109]); MULADD(at[5], at[108]); MULADD(at[6], at[107]); MULADD(at[7], at[106]); MULADD(at[8], at[105]); MULADD(at[9], at[104]); MULADD(at[10], at[103]); MULADD(at[11], at[102]); MULADD(at[12], at[101]); MULADD(at[13], at[100]); MULADD(at[14], at[99]); MULADD(at[15], at[98]); MULADD(at[16], at[97]); MULADD(at[17], at[96]); MULADD(at[18], at[95]); MULADD(at[19], at[94]); MULADD(at[20], at[93]); MULADD(at[21], at[92]); MULADD(at[22], at[91]); MULADD(at[23], at[90]); MULADD(at[24], at[89]); MULADD(at[25], at[88]); MULADD(at[26], at[87]); MULADD(at[27], at[86]); MULADD(at[28], at[85]); MULADD(at[29], at[84]); MULADD(at[30], at[83]); MULADD(at[31], at[82]); MULADD(at[32], at[81]); MULADD(at[33], at[80]); MULADD(at[34], at[79]); MULADD(at[35], at[78]); MULADD(at[36], at[77]); MULADD(at[37], at[76]); MULADD(at[38], at[75]); MULADD(at[39], at[74]); MULADD(at[40], at[73]); MULADD(at[41], at[72]); MULADD(at[42], at[71]); MULADD(at[43], at[70]); MULADD(at[44], at[69]); MULADD(at[45], at[68]); MULADD(at[46], at[67]); MULADD(at[47], at[66]); MULADD(at[48], at[65]); MULADD(at[49], at[64]);
|
||||||
|
COMBA_STORE(C->dp[49]);
|
||||||
|
/* 50 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[114]); MULADD(at[1], at[113]); MULADD(at[2], at[112]); MULADD(at[3], at[111]); MULADD(at[4], at[110]); MULADD(at[5], at[109]); MULADD(at[6], at[108]); MULADD(at[7], at[107]); MULADD(at[8], at[106]); MULADD(at[9], at[105]); MULADD(at[10], at[104]); MULADD(at[11], at[103]); MULADD(at[12], at[102]); MULADD(at[13], at[101]); MULADD(at[14], at[100]); MULADD(at[15], at[99]); MULADD(at[16], at[98]); MULADD(at[17], at[97]); MULADD(at[18], at[96]); MULADD(at[19], at[95]); MULADD(at[20], at[94]); MULADD(at[21], at[93]); MULADD(at[22], at[92]); MULADD(at[23], at[91]); MULADD(at[24], at[90]); MULADD(at[25], at[89]); MULADD(at[26], at[88]); MULADD(at[27], at[87]); MULADD(at[28], at[86]); MULADD(at[29], at[85]); MULADD(at[30], at[84]); MULADD(at[31], at[83]); MULADD(at[32], at[82]); MULADD(at[33], at[81]); MULADD(at[34], at[80]); MULADD(at[35], at[79]); MULADD(at[36], at[78]); MULADD(at[37], at[77]); MULADD(at[38], at[76]); MULADD(at[39], at[75]); MULADD(at[40], at[74]); MULADD(at[41], at[73]); MULADD(at[42], at[72]); MULADD(at[43], at[71]); MULADD(at[44], at[70]); MULADD(at[45], at[69]); MULADD(at[46], at[68]); MULADD(at[47], at[67]); MULADD(at[48], at[66]); MULADD(at[49], at[65]); MULADD(at[50], at[64]);
|
||||||
|
COMBA_STORE(C->dp[50]);
|
||||||
|
/* 51 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[115]); MULADD(at[1], at[114]); MULADD(at[2], at[113]); MULADD(at[3], at[112]); MULADD(at[4], at[111]); MULADD(at[5], at[110]); MULADD(at[6], at[109]); MULADD(at[7], at[108]); MULADD(at[8], at[107]); MULADD(at[9], at[106]); MULADD(at[10], at[105]); MULADD(at[11], at[104]); MULADD(at[12], at[103]); MULADD(at[13], at[102]); MULADD(at[14], at[101]); MULADD(at[15], at[100]); MULADD(at[16], at[99]); MULADD(at[17], at[98]); MULADD(at[18], at[97]); MULADD(at[19], at[96]); MULADD(at[20], at[95]); MULADD(at[21], at[94]); MULADD(at[22], at[93]); MULADD(at[23], at[92]); MULADD(at[24], at[91]); MULADD(at[25], at[90]); MULADD(at[26], at[89]); MULADD(at[27], at[88]); MULADD(at[28], at[87]); MULADD(at[29], at[86]); MULADD(at[30], at[85]); MULADD(at[31], at[84]); MULADD(at[32], at[83]); MULADD(at[33], at[82]); MULADD(at[34], at[81]); MULADD(at[35], at[80]); MULADD(at[36], at[79]); MULADD(at[37], at[78]); MULADD(at[38], at[77]); MULADD(at[39], at[76]); MULADD(at[40], at[75]); MULADD(at[41], at[74]); MULADD(at[42], at[73]); MULADD(at[43], at[72]); MULADD(at[44], at[71]); MULADD(at[45], at[70]); MULADD(at[46], at[69]); MULADD(at[47], at[68]); MULADD(at[48], at[67]); MULADD(at[49], at[66]); MULADD(at[50], at[65]); MULADD(at[51], at[64]);
|
||||||
|
COMBA_STORE(C->dp[51]);
|
||||||
|
/* 52 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[116]); MULADD(at[1], at[115]); MULADD(at[2], at[114]); MULADD(at[3], at[113]); MULADD(at[4], at[112]); MULADD(at[5], at[111]); MULADD(at[6], at[110]); MULADD(at[7], at[109]); MULADD(at[8], at[108]); MULADD(at[9], at[107]); MULADD(at[10], at[106]); MULADD(at[11], at[105]); MULADD(at[12], at[104]); MULADD(at[13], at[103]); MULADD(at[14], at[102]); MULADD(at[15], at[101]); MULADD(at[16], at[100]); MULADD(at[17], at[99]); MULADD(at[18], at[98]); MULADD(at[19], at[97]); MULADD(at[20], at[96]); MULADD(at[21], at[95]); MULADD(at[22], at[94]); MULADD(at[23], at[93]); MULADD(at[24], at[92]); MULADD(at[25], at[91]); MULADD(at[26], at[90]); MULADD(at[27], at[89]); MULADD(at[28], at[88]); MULADD(at[29], at[87]); MULADD(at[30], at[86]); MULADD(at[31], at[85]); MULADD(at[32], at[84]); MULADD(at[33], at[83]); MULADD(at[34], at[82]); MULADD(at[35], at[81]); MULADD(at[36], at[80]); MULADD(at[37], at[79]); MULADD(at[38], at[78]); MULADD(at[39], at[77]); MULADD(at[40], at[76]); MULADD(at[41], at[75]); MULADD(at[42], at[74]); MULADD(at[43], at[73]); MULADD(at[44], at[72]); MULADD(at[45], at[71]); MULADD(at[46], at[70]); MULADD(at[47], at[69]); MULADD(at[48], at[68]); MULADD(at[49], at[67]); MULADD(at[50], at[66]); MULADD(at[51], at[65]); MULADD(at[52], at[64]);
|
||||||
|
COMBA_STORE(C->dp[52]);
|
||||||
|
/* 53 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[117]); MULADD(at[1], at[116]); MULADD(at[2], at[115]); MULADD(at[3], at[114]); MULADD(at[4], at[113]); MULADD(at[5], at[112]); MULADD(at[6], at[111]); MULADD(at[7], at[110]); MULADD(at[8], at[109]); MULADD(at[9], at[108]); MULADD(at[10], at[107]); MULADD(at[11], at[106]); MULADD(at[12], at[105]); MULADD(at[13], at[104]); MULADD(at[14], at[103]); MULADD(at[15], at[102]); MULADD(at[16], at[101]); MULADD(at[17], at[100]); MULADD(at[18], at[99]); MULADD(at[19], at[98]); MULADD(at[20], at[97]); MULADD(at[21], at[96]); MULADD(at[22], at[95]); MULADD(at[23], at[94]); MULADD(at[24], at[93]); MULADD(at[25], at[92]); MULADD(at[26], at[91]); MULADD(at[27], at[90]); MULADD(at[28], at[89]); MULADD(at[29], at[88]); MULADD(at[30], at[87]); MULADD(at[31], at[86]); MULADD(at[32], at[85]); MULADD(at[33], at[84]); MULADD(at[34], at[83]); MULADD(at[35], at[82]); MULADD(at[36], at[81]); MULADD(at[37], at[80]); MULADD(at[38], at[79]); MULADD(at[39], at[78]); MULADD(at[40], at[77]); MULADD(at[41], at[76]); MULADD(at[42], at[75]); MULADD(at[43], at[74]); MULADD(at[44], at[73]); MULADD(at[45], at[72]); MULADD(at[46], at[71]); MULADD(at[47], at[70]); MULADD(at[48], at[69]); MULADD(at[49], at[68]); MULADD(at[50], at[67]); MULADD(at[51], at[66]); MULADD(at[52], at[65]); MULADD(at[53], at[64]);
|
||||||
|
COMBA_STORE(C->dp[53]);
|
||||||
|
/* 54 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[118]); MULADD(at[1], at[117]); MULADD(at[2], at[116]); MULADD(at[3], at[115]); MULADD(at[4], at[114]); MULADD(at[5], at[113]); MULADD(at[6], at[112]); MULADD(at[7], at[111]); MULADD(at[8], at[110]); MULADD(at[9], at[109]); MULADD(at[10], at[108]); MULADD(at[11], at[107]); MULADD(at[12], at[106]); MULADD(at[13], at[105]); MULADD(at[14], at[104]); MULADD(at[15], at[103]); MULADD(at[16], at[102]); MULADD(at[17], at[101]); MULADD(at[18], at[100]); MULADD(at[19], at[99]); MULADD(at[20], at[98]); MULADD(at[21], at[97]); MULADD(at[22], at[96]); MULADD(at[23], at[95]); MULADD(at[24], at[94]); MULADD(at[25], at[93]); MULADD(at[26], at[92]); MULADD(at[27], at[91]); MULADD(at[28], at[90]); MULADD(at[29], at[89]); MULADD(at[30], at[88]); MULADD(at[31], at[87]); MULADD(at[32], at[86]); MULADD(at[33], at[85]); MULADD(at[34], at[84]); MULADD(at[35], at[83]); MULADD(at[36], at[82]); MULADD(at[37], at[81]); MULADD(at[38], at[80]); MULADD(at[39], at[79]); MULADD(at[40], at[78]); MULADD(at[41], at[77]); MULADD(at[42], at[76]); MULADD(at[43], at[75]); MULADD(at[44], at[74]); MULADD(at[45], at[73]); MULADD(at[46], at[72]); MULADD(at[47], at[71]); MULADD(at[48], at[70]); MULADD(at[49], at[69]); MULADD(at[50], at[68]); MULADD(at[51], at[67]); MULADD(at[52], at[66]); MULADD(at[53], at[65]); MULADD(at[54], at[64]);
|
||||||
|
COMBA_STORE(C->dp[54]);
|
||||||
|
/* 55 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[119]); MULADD(at[1], at[118]); MULADD(at[2], at[117]); MULADD(at[3], at[116]); MULADD(at[4], at[115]); MULADD(at[5], at[114]); MULADD(at[6], at[113]); MULADD(at[7], at[112]); MULADD(at[8], at[111]); MULADD(at[9], at[110]); MULADD(at[10], at[109]); MULADD(at[11], at[108]); MULADD(at[12], at[107]); MULADD(at[13], at[106]); MULADD(at[14], at[105]); MULADD(at[15], at[104]); MULADD(at[16], at[103]); MULADD(at[17], at[102]); MULADD(at[18], at[101]); MULADD(at[19], at[100]); MULADD(at[20], at[99]); MULADD(at[21], at[98]); MULADD(at[22], at[97]); MULADD(at[23], at[96]); MULADD(at[24], at[95]); MULADD(at[25], at[94]); MULADD(at[26], at[93]); MULADD(at[27], at[92]); MULADD(at[28], at[91]); MULADD(at[29], at[90]); MULADD(at[30], at[89]); MULADD(at[31], at[88]); MULADD(at[32], at[87]); MULADD(at[33], at[86]); MULADD(at[34], at[85]); MULADD(at[35], at[84]); MULADD(at[36], at[83]); MULADD(at[37], at[82]); MULADD(at[38], at[81]); MULADD(at[39], at[80]); MULADD(at[40], at[79]); MULADD(at[41], at[78]); MULADD(at[42], at[77]); MULADD(at[43], at[76]); MULADD(at[44], at[75]); MULADD(at[45], at[74]); MULADD(at[46], at[73]); MULADD(at[47], at[72]); MULADD(at[48], at[71]); MULADD(at[49], at[70]); MULADD(at[50], at[69]); MULADD(at[51], at[68]); MULADD(at[52], at[67]); MULADD(at[53], at[66]); MULADD(at[54], at[65]); MULADD(at[55], at[64]);
|
||||||
|
COMBA_STORE(C->dp[55]);
|
||||||
|
/* 56 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[120]); MULADD(at[1], at[119]); MULADD(at[2], at[118]); MULADD(at[3], at[117]); MULADD(at[4], at[116]); MULADD(at[5], at[115]); MULADD(at[6], at[114]); MULADD(at[7], at[113]); MULADD(at[8], at[112]); MULADD(at[9], at[111]); MULADD(at[10], at[110]); MULADD(at[11], at[109]); MULADD(at[12], at[108]); MULADD(at[13], at[107]); MULADD(at[14], at[106]); MULADD(at[15], at[105]); MULADD(at[16], at[104]); MULADD(at[17], at[103]); MULADD(at[18], at[102]); MULADD(at[19], at[101]); MULADD(at[20], at[100]); MULADD(at[21], at[99]); MULADD(at[22], at[98]); MULADD(at[23], at[97]); MULADD(at[24], at[96]); MULADD(at[25], at[95]); MULADD(at[26], at[94]); MULADD(at[27], at[93]); MULADD(at[28], at[92]); MULADD(at[29], at[91]); MULADD(at[30], at[90]); MULADD(at[31], at[89]); MULADD(at[32], at[88]); MULADD(at[33], at[87]); MULADD(at[34], at[86]); MULADD(at[35], at[85]); MULADD(at[36], at[84]); MULADD(at[37], at[83]); MULADD(at[38], at[82]); MULADD(at[39], at[81]); MULADD(at[40], at[80]); MULADD(at[41], at[79]); MULADD(at[42], at[78]); MULADD(at[43], at[77]); MULADD(at[44], at[76]); MULADD(at[45], at[75]); MULADD(at[46], at[74]); MULADD(at[47], at[73]); MULADD(at[48], at[72]); MULADD(at[49], at[71]); MULADD(at[50], at[70]); MULADD(at[51], at[69]); MULADD(at[52], at[68]); MULADD(at[53], at[67]); MULADD(at[54], at[66]); MULADD(at[55], at[65]); MULADD(at[56], at[64]);
|
||||||
|
COMBA_STORE(C->dp[56]);
|
||||||
|
/* 57 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[121]); MULADD(at[1], at[120]); MULADD(at[2], at[119]); MULADD(at[3], at[118]); MULADD(at[4], at[117]); MULADD(at[5], at[116]); MULADD(at[6], at[115]); MULADD(at[7], at[114]); MULADD(at[8], at[113]); MULADD(at[9], at[112]); MULADD(at[10], at[111]); MULADD(at[11], at[110]); MULADD(at[12], at[109]); MULADD(at[13], at[108]); MULADD(at[14], at[107]); MULADD(at[15], at[106]); MULADD(at[16], at[105]); MULADD(at[17], at[104]); MULADD(at[18], at[103]); MULADD(at[19], at[102]); MULADD(at[20], at[101]); MULADD(at[21], at[100]); MULADD(at[22], at[99]); MULADD(at[23], at[98]); MULADD(at[24], at[97]); MULADD(at[25], at[96]); MULADD(at[26], at[95]); MULADD(at[27], at[94]); MULADD(at[28], at[93]); MULADD(at[29], at[92]); MULADD(at[30], at[91]); MULADD(at[31], at[90]); MULADD(at[32], at[89]); MULADD(at[33], at[88]); MULADD(at[34], at[87]); MULADD(at[35], at[86]); MULADD(at[36], at[85]); MULADD(at[37], at[84]); MULADD(at[38], at[83]); MULADD(at[39], at[82]); MULADD(at[40], at[81]); MULADD(at[41], at[80]); MULADD(at[42], at[79]); MULADD(at[43], at[78]); MULADD(at[44], at[77]); MULADD(at[45], at[76]); MULADD(at[46], at[75]); MULADD(at[47], at[74]); MULADD(at[48], at[73]); MULADD(at[49], at[72]); MULADD(at[50], at[71]); MULADD(at[51], at[70]); MULADD(at[52], at[69]); MULADD(at[53], at[68]); MULADD(at[54], at[67]); MULADD(at[55], at[66]); MULADD(at[56], at[65]); MULADD(at[57], at[64]);
|
||||||
|
COMBA_STORE(C->dp[57]);
|
||||||
|
/* 58 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[122]); MULADD(at[1], at[121]); MULADD(at[2], at[120]); MULADD(at[3], at[119]); MULADD(at[4], at[118]); MULADD(at[5], at[117]); MULADD(at[6], at[116]); MULADD(at[7], at[115]); MULADD(at[8], at[114]); MULADD(at[9], at[113]); MULADD(at[10], at[112]); MULADD(at[11], at[111]); MULADD(at[12], at[110]); MULADD(at[13], at[109]); MULADD(at[14], at[108]); MULADD(at[15], at[107]); MULADD(at[16], at[106]); MULADD(at[17], at[105]); MULADD(at[18], at[104]); MULADD(at[19], at[103]); MULADD(at[20], at[102]); MULADD(at[21], at[101]); MULADD(at[22], at[100]); MULADD(at[23], at[99]); MULADD(at[24], at[98]); MULADD(at[25], at[97]); MULADD(at[26], at[96]); MULADD(at[27], at[95]); MULADD(at[28], at[94]); MULADD(at[29], at[93]); MULADD(at[30], at[92]); MULADD(at[31], at[91]); MULADD(at[32], at[90]); MULADD(at[33], at[89]); MULADD(at[34], at[88]); MULADD(at[35], at[87]); MULADD(at[36], at[86]); MULADD(at[37], at[85]); MULADD(at[38], at[84]); MULADD(at[39], at[83]); MULADD(at[40], at[82]); MULADD(at[41], at[81]); MULADD(at[42], at[80]); MULADD(at[43], at[79]); MULADD(at[44], at[78]); MULADD(at[45], at[77]); MULADD(at[46], at[76]); MULADD(at[47], at[75]); MULADD(at[48], at[74]); MULADD(at[49], at[73]); MULADD(at[50], at[72]); MULADD(at[51], at[71]); MULADD(at[52], at[70]); MULADD(at[53], at[69]); MULADD(at[54], at[68]); MULADD(at[55], at[67]); MULADD(at[56], at[66]); MULADD(at[57], at[65]); MULADD(at[58], at[64]);
|
||||||
|
COMBA_STORE(C->dp[58]);
|
||||||
|
/* 59 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[123]); MULADD(at[1], at[122]); MULADD(at[2], at[121]); MULADD(at[3], at[120]); MULADD(at[4], at[119]); MULADD(at[5], at[118]); MULADD(at[6], at[117]); MULADD(at[7], at[116]); MULADD(at[8], at[115]); MULADD(at[9], at[114]); MULADD(at[10], at[113]); MULADD(at[11], at[112]); MULADD(at[12], at[111]); MULADD(at[13], at[110]); MULADD(at[14], at[109]); MULADD(at[15], at[108]); MULADD(at[16], at[107]); MULADD(at[17], at[106]); MULADD(at[18], at[105]); MULADD(at[19], at[104]); MULADD(at[20], at[103]); MULADD(at[21], at[102]); MULADD(at[22], at[101]); MULADD(at[23], at[100]); MULADD(at[24], at[99]); MULADD(at[25], at[98]); MULADD(at[26], at[97]); MULADD(at[27], at[96]); MULADD(at[28], at[95]); MULADD(at[29], at[94]); MULADD(at[30], at[93]); MULADD(at[31], at[92]); MULADD(at[32], at[91]); MULADD(at[33], at[90]); MULADD(at[34], at[89]); MULADD(at[35], at[88]); MULADD(at[36], at[87]); MULADD(at[37], at[86]); MULADD(at[38], at[85]); MULADD(at[39], at[84]); MULADD(at[40], at[83]); MULADD(at[41], at[82]); MULADD(at[42], at[81]); MULADD(at[43], at[80]); MULADD(at[44], at[79]); MULADD(at[45], at[78]); MULADD(at[46], at[77]); MULADD(at[47], at[76]); MULADD(at[48], at[75]); MULADD(at[49], at[74]); MULADD(at[50], at[73]); MULADD(at[51], at[72]); MULADD(at[52], at[71]); MULADD(at[53], at[70]); MULADD(at[54], at[69]); MULADD(at[55], at[68]); MULADD(at[56], at[67]); MULADD(at[57], at[66]); MULADD(at[58], at[65]); MULADD(at[59], at[64]);
|
||||||
|
COMBA_STORE(C->dp[59]);
|
||||||
|
/* 60 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[124]); MULADD(at[1], at[123]); MULADD(at[2], at[122]); MULADD(at[3], at[121]); MULADD(at[4], at[120]); MULADD(at[5], at[119]); MULADD(at[6], at[118]); MULADD(at[7], at[117]); MULADD(at[8], at[116]); MULADD(at[9], at[115]); MULADD(at[10], at[114]); MULADD(at[11], at[113]); MULADD(at[12], at[112]); MULADD(at[13], at[111]); MULADD(at[14], at[110]); MULADD(at[15], at[109]); MULADD(at[16], at[108]); MULADD(at[17], at[107]); MULADD(at[18], at[106]); MULADD(at[19], at[105]); MULADD(at[20], at[104]); MULADD(at[21], at[103]); MULADD(at[22], at[102]); MULADD(at[23], at[101]); MULADD(at[24], at[100]); MULADD(at[25], at[99]); MULADD(at[26], at[98]); MULADD(at[27], at[97]); MULADD(at[28], at[96]); MULADD(at[29], at[95]); MULADD(at[30], at[94]); MULADD(at[31], at[93]); MULADD(at[32], at[92]); MULADD(at[33], at[91]); MULADD(at[34], at[90]); MULADD(at[35], at[89]); MULADD(at[36], at[88]); MULADD(at[37], at[87]); MULADD(at[38], at[86]); MULADD(at[39], at[85]); MULADD(at[40], at[84]); MULADD(at[41], at[83]); MULADD(at[42], at[82]); MULADD(at[43], at[81]); MULADD(at[44], at[80]); MULADD(at[45], at[79]); MULADD(at[46], at[78]); MULADD(at[47], at[77]); MULADD(at[48], at[76]); MULADD(at[49], at[75]); MULADD(at[50], at[74]); MULADD(at[51], at[73]); MULADD(at[52], at[72]); MULADD(at[53], at[71]); MULADD(at[54], at[70]); MULADD(at[55], at[69]); MULADD(at[56], at[68]); MULADD(at[57], at[67]); MULADD(at[58], at[66]); MULADD(at[59], at[65]); MULADD(at[60], at[64]);
|
||||||
|
COMBA_STORE(C->dp[60]);
|
||||||
|
/* 61 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[125]); MULADD(at[1], at[124]); MULADD(at[2], at[123]); MULADD(at[3], at[122]); MULADD(at[4], at[121]); MULADD(at[5], at[120]); MULADD(at[6], at[119]); MULADD(at[7], at[118]); MULADD(at[8], at[117]); MULADD(at[9], at[116]); MULADD(at[10], at[115]); MULADD(at[11], at[114]); MULADD(at[12], at[113]); MULADD(at[13], at[112]); MULADD(at[14], at[111]); MULADD(at[15], at[110]); MULADD(at[16], at[109]); MULADD(at[17], at[108]); MULADD(at[18], at[107]); MULADD(at[19], at[106]); MULADD(at[20], at[105]); MULADD(at[21], at[104]); MULADD(at[22], at[103]); MULADD(at[23], at[102]); MULADD(at[24], at[101]); MULADD(at[25], at[100]); MULADD(at[26], at[99]); MULADD(at[27], at[98]); MULADD(at[28], at[97]); MULADD(at[29], at[96]); MULADD(at[30], at[95]); MULADD(at[31], at[94]); MULADD(at[32], at[93]); MULADD(at[33], at[92]); MULADD(at[34], at[91]); MULADD(at[35], at[90]); MULADD(at[36], at[89]); MULADD(at[37], at[88]); MULADD(at[38], at[87]); MULADD(at[39], at[86]); MULADD(at[40], at[85]); MULADD(at[41], at[84]); MULADD(at[42], at[83]); MULADD(at[43], at[82]); MULADD(at[44], at[81]); MULADD(at[45], at[80]); MULADD(at[46], at[79]); MULADD(at[47], at[78]); MULADD(at[48], at[77]); MULADD(at[49], at[76]); MULADD(at[50], at[75]); MULADD(at[51], at[74]); MULADD(at[52], at[73]); MULADD(at[53], at[72]); MULADD(at[54], at[71]); MULADD(at[55], at[70]); MULADD(at[56], at[69]); MULADD(at[57], at[68]); MULADD(at[58], at[67]); MULADD(at[59], at[66]); MULADD(at[60], at[65]); MULADD(at[61], at[64]);
|
||||||
|
COMBA_STORE(C->dp[61]);
|
||||||
|
/* 62 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[126]); MULADD(at[1], at[125]); MULADD(at[2], at[124]); MULADD(at[3], at[123]); MULADD(at[4], at[122]); MULADD(at[5], at[121]); MULADD(at[6], at[120]); MULADD(at[7], at[119]); MULADD(at[8], at[118]); MULADD(at[9], at[117]); MULADD(at[10], at[116]); MULADD(at[11], at[115]); MULADD(at[12], at[114]); MULADD(at[13], at[113]); MULADD(at[14], at[112]); MULADD(at[15], at[111]); MULADD(at[16], at[110]); MULADD(at[17], at[109]); MULADD(at[18], at[108]); MULADD(at[19], at[107]); MULADD(at[20], at[106]); MULADD(at[21], at[105]); MULADD(at[22], at[104]); MULADD(at[23], at[103]); MULADD(at[24], at[102]); MULADD(at[25], at[101]); MULADD(at[26], at[100]); MULADD(at[27], at[99]); MULADD(at[28], at[98]); MULADD(at[29], at[97]); MULADD(at[30], at[96]); MULADD(at[31], at[95]); MULADD(at[32], at[94]); MULADD(at[33], at[93]); MULADD(at[34], at[92]); MULADD(at[35], at[91]); MULADD(at[36], at[90]); MULADD(at[37], at[89]); MULADD(at[38], at[88]); MULADD(at[39], at[87]); MULADD(at[40], at[86]); MULADD(at[41], at[85]); MULADD(at[42], at[84]); MULADD(at[43], at[83]); MULADD(at[44], at[82]); MULADD(at[45], at[81]); MULADD(at[46], at[80]); MULADD(at[47], at[79]); MULADD(at[48], at[78]); MULADD(at[49], at[77]); MULADD(at[50], at[76]); MULADD(at[51], at[75]); MULADD(at[52], at[74]); MULADD(at[53], at[73]); MULADD(at[54], at[72]); MULADD(at[55], at[71]); MULADD(at[56], at[70]); MULADD(at[57], at[69]); MULADD(at[58], at[68]); MULADD(at[59], at[67]); MULADD(at[60], at[66]); MULADD(at[61], at[65]); MULADD(at[62], at[64]);
|
||||||
|
COMBA_STORE(C->dp[62]);
|
||||||
|
/* 63 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[127]); MULADD(at[1], at[126]); MULADD(at[2], at[125]); MULADD(at[3], at[124]); MULADD(at[4], at[123]); MULADD(at[5], at[122]); MULADD(at[6], at[121]); MULADD(at[7], at[120]); MULADD(at[8], at[119]); MULADD(at[9], at[118]); MULADD(at[10], at[117]); MULADD(at[11], at[116]); MULADD(at[12], at[115]); MULADD(at[13], at[114]); MULADD(at[14], at[113]); MULADD(at[15], at[112]); MULADD(at[16], at[111]); MULADD(at[17], at[110]); MULADD(at[18], at[109]); MULADD(at[19], at[108]); MULADD(at[20], at[107]); MULADD(at[21], at[106]); MULADD(at[22], at[105]); MULADD(at[23], at[104]); MULADD(at[24], at[103]); MULADD(at[25], at[102]); MULADD(at[26], at[101]); MULADD(at[27], at[100]); MULADD(at[28], at[99]); MULADD(at[29], at[98]); MULADD(at[30], at[97]); MULADD(at[31], at[96]); MULADD(at[32], at[95]); MULADD(at[33], at[94]); MULADD(at[34], at[93]); MULADD(at[35], at[92]); MULADD(at[36], at[91]); MULADD(at[37], at[90]); MULADD(at[38], at[89]); MULADD(at[39], at[88]); MULADD(at[40], at[87]); MULADD(at[41], at[86]); MULADD(at[42], at[85]); MULADD(at[43], at[84]); MULADD(at[44], at[83]); MULADD(at[45], at[82]); MULADD(at[46], at[81]); MULADD(at[47], at[80]); MULADD(at[48], at[79]); MULADD(at[49], at[78]); MULADD(at[50], at[77]); MULADD(at[51], at[76]); MULADD(at[52], at[75]); MULADD(at[53], at[74]); MULADD(at[54], at[73]); MULADD(at[55], at[72]); MULADD(at[56], at[71]); MULADD(at[57], at[70]); MULADD(at[58], at[69]); MULADD(at[59], at[68]); MULADD(at[60], at[67]); MULADD(at[61], at[66]); MULADD(at[62], at[65]); MULADD(at[63], at[64]);
|
||||||
|
COMBA_STORE(C->dp[63]);
|
||||||
|
/* 64 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[127]); MULADD(at[2], at[126]); MULADD(at[3], at[125]); MULADD(at[4], at[124]); MULADD(at[5], at[123]); MULADD(at[6], at[122]); MULADD(at[7], at[121]); MULADD(at[8], at[120]); MULADD(at[9], at[119]); MULADD(at[10], at[118]); MULADD(at[11], at[117]); MULADD(at[12], at[116]); MULADD(at[13], at[115]); MULADD(at[14], at[114]); MULADD(at[15], at[113]); MULADD(at[16], at[112]); MULADD(at[17], at[111]); MULADD(at[18], at[110]); MULADD(at[19], at[109]); MULADD(at[20], at[108]); MULADD(at[21], at[107]); MULADD(at[22], at[106]); MULADD(at[23], at[105]); MULADD(at[24], at[104]); MULADD(at[25], at[103]); MULADD(at[26], at[102]); MULADD(at[27], at[101]); MULADD(at[28], at[100]); MULADD(at[29], at[99]); MULADD(at[30], at[98]); MULADD(at[31], at[97]); MULADD(at[32], at[96]); MULADD(at[33], at[95]); MULADD(at[34], at[94]); MULADD(at[35], at[93]); MULADD(at[36], at[92]); MULADD(at[37], at[91]); MULADD(at[38], at[90]); MULADD(at[39], at[89]); MULADD(at[40], at[88]); MULADD(at[41], at[87]); MULADD(at[42], at[86]); MULADD(at[43], at[85]); MULADD(at[44], at[84]); MULADD(at[45], at[83]); MULADD(at[46], at[82]); MULADD(at[47], at[81]); MULADD(at[48], at[80]); MULADD(at[49], at[79]); MULADD(at[50], at[78]); MULADD(at[51], at[77]); MULADD(at[52], at[76]); MULADD(at[53], at[75]); MULADD(at[54], at[74]); MULADD(at[55], at[73]); MULADD(at[56], at[72]); MULADD(at[57], at[71]); MULADD(at[58], at[70]); MULADD(at[59], at[69]); MULADD(at[60], at[68]); MULADD(at[61], at[67]); MULADD(at[62], at[66]); MULADD(at[63], at[65]);
|
||||||
|
COMBA_STORE(C->dp[64]);
|
||||||
|
/* 65 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[127]); MULADD(at[3], at[126]); MULADD(at[4], at[125]); MULADD(at[5], at[124]); MULADD(at[6], at[123]); MULADD(at[7], at[122]); MULADD(at[8], at[121]); MULADD(at[9], at[120]); MULADD(at[10], at[119]); MULADD(at[11], at[118]); MULADD(at[12], at[117]); MULADD(at[13], at[116]); MULADD(at[14], at[115]); MULADD(at[15], at[114]); MULADD(at[16], at[113]); MULADD(at[17], at[112]); MULADD(at[18], at[111]); MULADD(at[19], at[110]); MULADD(at[20], at[109]); MULADD(at[21], at[108]); MULADD(at[22], at[107]); MULADD(at[23], at[106]); MULADD(at[24], at[105]); MULADD(at[25], at[104]); MULADD(at[26], at[103]); MULADD(at[27], at[102]); MULADD(at[28], at[101]); MULADD(at[29], at[100]); MULADD(at[30], at[99]); MULADD(at[31], at[98]); MULADD(at[32], at[97]); MULADD(at[33], at[96]); MULADD(at[34], at[95]); MULADD(at[35], at[94]); MULADD(at[36], at[93]); MULADD(at[37], at[92]); MULADD(at[38], at[91]); MULADD(at[39], at[90]); MULADD(at[40], at[89]); MULADD(at[41], at[88]); MULADD(at[42], at[87]); MULADD(at[43], at[86]); MULADD(at[44], at[85]); MULADD(at[45], at[84]); MULADD(at[46], at[83]); MULADD(at[47], at[82]); MULADD(at[48], at[81]); MULADD(at[49], at[80]); MULADD(at[50], at[79]); MULADD(at[51], at[78]); MULADD(at[52], at[77]); MULADD(at[53], at[76]); MULADD(at[54], at[75]); MULADD(at[55], at[74]); MULADD(at[56], at[73]); MULADD(at[57], at[72]); MULADD(at[58], at[71]); MULADD(at[59], at[70]); MULADD(at[60], at[69]); MULADD(at[61], at[68]); MULADD(at[62], at[67]); MULADD(at[63], at[66]);
|
||||||
|
COMBA_STORE(C->dp[65]);
|
||||||
|
/* 66 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[127]); MULADD(at[4], at[126]); MULADD(at[5], at[125]); MULADD(at[6], at[124]); MULADD(at[7], at[123]); MULADD(at[8], at[122]); MULADD(at[9], at[121]); MULADD(at[10], at[120]); MULADD(at[11], at[119]); MULADD(at[12], at[118]); MULADD(at[13], at[117]); MULADD(at[14], at[116]); MULADD(at[15], at[115]); MULADD(at[16], at[114]); MULADD(at[17], at[113]); MULADD(at[18], at[112]); MULADD(at[19], at[111]); MULADD(at[20], at[110]); MULADD(at[21], at[109]); MULADD(at[22], at[108]); MULADD(at[23], at[107]); MULADD(at[24], at[106]); MULADD(at[25], at[105]); MULADD(at[26], at[104]); MULADD(at[27], at[103]); MULADD(at[28], at[102]); MULADD(at[29], at[101]); MULADD(at[30], at[100]); MULADD(at[31], at[99]); MULADD(at[32], at[98]); MULADD(at[33], at[97]); MULADD(at[34], at[96]); MULADD(at[35], at[95]); MULADD(at[36], at[94]); MULADD(at[37], at[93]); MULADD(at[38], at[92]); MULADD(at[39], at[91]); MULADD(at[40], at[90]); MULADD(at[41], at[89]); MULADD(at[42], at[88]); MULADD(at[43], at[87]); MULADD(at[44], at[86]); MULADD(at[45], at[85]); MULADD(at[46], at[84]); MULADD(at[47], at[83]); MULADD(at[48], at[82]); MULADD(at[49], at[81]); MULADD(at[50], at[80]); MULADD(at[51], at[79]); MULADD(at[52], at[78]); MULADD(at[53], at[77]); MULADD(at[54], at[76]); MULADD(at[55], at[75]); MULADD(at[56], at[74]); MULADD(at[57], at[73]); MULADD(at[58], at[72]); MULADD(at[59], at[71]); MULADD(at[60], at[70]); MULADD(at[61], at[69]); MULADD(at[62], at[68]); MULADD(at[63], at[67]);
|
||||||
|
COMBA_STORE(C->dp[66]);
|
||||||
|
/* 67 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[127]); MULADD(at[5], at[126]); MULADD(at[6], at[125]); MULADD(at[7], at[124]); MULADD(at[8], at[123]); MULADD(at[9], at[122]); MULADD(at[10], at[121]); MULADD(at[11], at[120]); MULADD(at[12], at[119]); MULADD(at[13], at[118]); MULADD(at[14], at[117]); MULADD(at[15], at[116]); MULADD(at[16], at[115]); MULADD(at[17], at[114]); MULADD(at[18], at[113]); MULADD(at[19], at[112]); MULADD(at[20], at[111]); MULADD(at[21], at[110]); MULADD(at[22], at[109]); MULADD(at[23], at[108]); MULADD(at[24], at[107]); MULADD(at[25], at[106]); MULADD(at[26], at[105]); MULADD(at[27], at[104]); MULADD(at[28], at[103]); MULADD(at[29], at[102]); MULADD(at[30], at[101]); MULADD(at[31], at[100]); MULADD(at[32], at[99]); MULADD(at[33], at[98]); MULADD(at[34], at[97]); MULADD(at[35], at[96]); MULADD(at[36], at[95]); MULADD(at[37], at[94]); MULADD(at[38], at[93]); MULADD(at[39], at[92]); MULADD(at[40], at[91]); MULADD(at[41], at[90]); MULADD(at[42], at[89]); MULADD(at[43], at[88]); MULADD(at[44], at[87]); MULADD(at[45], at[86]); MULADD(at[46], at[85]); MULADD(at[47], at[84]); MULADD(at[48], at[83]); MULADD(at[49], at[82]); MULADD(at[50], at[81]); MULADD(at[51], at[80]); MULADD(at[52], at[79]); MULADD(at[53], at[78]); MULADD(at[54], at[77]); MULADD(at[55], at[76]); MULADD(at[56], at[75]); MULADD(at[57], at[74]); MULADD(at[58], at[73]); MULADD(at[59], at[72]); MULADD(at[60], at[71]); MULADD(at[61], at[70]); MULADD(at[62], at[69]); MULADD(at[63], at[68]);
|
||||||
|
COMBA_STORE(C->dp[67]);
|
||||||
|
/* 68 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[127]); MULADD(at[6], at[126]); MULADD(at[7], at[125]); MULADD(at[8], at[124]); MULADD(at[9], at[123]); MULADD(at[10], at[122]); MULADD(at[11], at[121]); MULADD(at[12], at[120]); MULADD(at[13], at[119]); MULADD(at[14], at[118]); MULADD(at[15], at[117]); MULADD(at[16], at[116]); MULADD(at[17], at[115]); MULADD(at[18], at[114]); MULADD(at[19], at[113]); MULADD(at[20], at[112]); MULADD(at[21], at[111]); MULADD(at[22], at[110]); MULADD(at[23], at[109]); MULADD(at[24], at[108]); MULADD(at[25], at[107]); MULADD(at[26], at[106]); MULADD(at[27], at[105]); MULADD(at[28], at[104]); MULADD(at[29], at[103]); MULADD(at[30], at[102]); MULADD(at[31], at[101]); MULADD(at[32], at[100]); MULADD(at[33], at[99]); MULADD(at[34], at[98]); MULADD(at[35], at[97]); MULADD(at[36], at[96]); MULADD(at[37], at[95]); MULADD(at[38], at[94]); MULADD(at[39], at[93]); MULADD(at[40], at[92]); MULADD(at[41], at[91]); MULADD(at[42], at[90]); MULADD(at[43], at[89]); MULADD(at[44], at[88]); MULADD(at[45], at[87]); MULADD(at[46], at[86]); MULADD(at[47], at[85]); MULADD(at[48], at[84]); MULADD(at[49], at[83]); MULADD(at[50], at[82]); MULADD(at[51], at[81]); MULADD(at[52], at[80]); MULADD(at[53], at[79]); MULADD(at[54], at[78]); MULADD(at[55], at[77]); MULADD(at[56], at[76]); MULADD(at[57], at[75]); MULADD(at[58], at[74]); MULADD(at[59], at[73]); MULADD(at[60], at[72]); MULADD(at[61], at[71]); MULADD(at[62], at[70]); MULADD(at[63], at[69]);
|
||||||
|
COMBA_STORE(C->dp[68]);
|
||||||
|
/* 69 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[127]); MULADD(at[7], at[126]); MULADD(at[8], at[125]); MULADD(at[9], at[124]); MULADD(at[10], at[123]); MULADD(at[11], at[122]); MULADD(at[12], at[121]); MULADD(at[13], at[120]); MULADD(at[14], at[119]); MULADD(at[15], at[118]); MULADD(at[16], at[117]); MULADD(at[17], at[116]); MULADD(at[18], at[115]); MULADD(at[19], at[114]); MULADD(at[20], at[113]); MULADD(at[21], at[112]); MULADD(at[22], at[111]); MULADD(at[23], at[110]); MULADD(at[24], at[109]); MULADD(at[25], at[108]); MULADD(at[26], at[107]); MULADD(at[27], at[106]); MULADD(at[28], at[105]); MULADD(at[29], at[104]); MULADD(at[30], at[103]); MULADD(at[31], at[102]); MULADD(at[32], at[101]); MULADD(at[33], at[100]); MULADD(at[34], at[99]); MULADD(at[35], at[98]); MULADD(at[36], at[97]); MULADD(at[37], at[96]); MULADD(at[38], at[95]); MULADD(at[39], at[94]); MULADD(at[40], at[93]); MULADD(at[41], at[92]); MULADD(at[42], at[91]); MULADD(at[43], at[90]); MULADD(at[44], at[89]); MULADD(at[45], at[88]); MULADD(at[46], at[87]); MULADD(at[47], at[86]); MULADD(at[48], at[85]); MULADD(at[49], at[84]); MULADD(at[50], at[83]); MULADD(at[51], at[82]); MULADD(at[52], at[81]); MULADD(at[53], at[80]); MULADD(at[54], at[79]); MULADD(at[55], at[78]); MULADD(at[56], at[77]); MULADD(at[57], at[76]); MULADD(at[58], at[75]); MULADD(at[59], at[74]); MULADD(at[60], at[73]); MULADD(at[61], at[72]); MULADD(at[62], at[71]); MULADD(at[63], at[70]);
|
||||||
|
COMBA_STORE(C->dp[69]);
|
||||||
|
/* 70 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[127]); MULADD(at[8], at[126]); MULADD(at[9], at[125]); MULADD(at[10], at[124]); MULADD(at[11], at[123]); MULADD(at[12], at[122]); MULADD(at[13], at[121]); MULADD(at[14], at[120]); MULADD(at[15], at[119]); MULADD(at[16], at[118]); MULADD(at[17], at[117]); MULADD(at[18], at[116]); MULADD(at[19], at[115]); MULADD(at[20], at[114]); MULADD(at[21], at[113]); MULADD(at[22], at[112]); MULADD(at[23], at[111]); MULADD(at[24], at[110]); MULADD(at[25], at[109]); MULADD(at[26], at[108]); MULADD(at[27], at[107]); MULADD(at[28], at[106]); MULADD(at[29], at[105]); MULADD(at[30], at[104]); MULADD(at[31], at[103]); MULADD(at[32], at[102]); MULADD(at[33], at[101]); MULADD(at[34], at[100]); MULADD(at[35], at[99]); MULADD(at[36], at[98]); MULADD(at[37], at[97]); MULADD(at[38], at[96]); MULADD(at[39], at[95]); MULADD(at[40], at[94]); MULADD(at[41], at[93]); MULADD(at[42], at[92]); MULADD(at[43], at[91]); MULADD(at[44], at[90]); MULADD(at[45], at[89]); MULADD(at[46], at[88]); MULADD(at[47], at[87]); MULADD(at[48], at[86]); MULADD(at[49], at[85]); MULADD(at[50], at[84]); MULADD(at[51], at[83]); MULADD(at[52], at[82]); MULADD(at[53], at[81]); MULADD(at[54], at[80]); MULADD(at[55], at[79]); MULADD(at[56], at[78]); MULADD(at[57], at[77]); MULADD(at[58], at[76]); MULADD(at[59], at[75]); MULADD(at[60], at[74]); MULADD(at[61], at[73]); MULADD(at[62], at[72]); MULADD(at[63], at[71]);
|
||||||
|
COMBA_STORE(C->dp[70]);
|
||||||
|
/* 71 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[127]); MULADD(at[9], at[126]); MULADD(at[10], at[125]); MULADD(at[11], at[124]); MULADD(at[12], at[123]); MULADD(at[13], at[122]); MULADD(at[14], at[121]); MULADD(at[15], at[120]); MULADD(at[16], at[119]); MULADD(at[17], at[118]); MULADD(at[18], at[117]); MULADD(at[19], at[116]); MULADD(at[20], at[115]); MULADD(at[21], at[114]); MULADD(at[22], at[113]); MULADD(at[23], at[112]); MULADD(at[24], at[111]); MULADD(at[25], at[110]); MULADD(at[26], at[109]); MULADD(at[27], at[108]); MULADD(at[28], at[107]); MULADD(at[29], at[106]); MULADD(at[30], at[105]); MULADD(at[31], at[104]); MULADD(at[32], at[103]); MULADD(at[33], at[102]); MULADD(at[34], at[101]); MULADD(at[35], at[100]); MULADD(at[36], at[99]); MULADD(at[37], at[98]); MULADD(at[38], at[97]); MULADD(at[39], at[96]); MULADD(at[40], at[95]); MULADD(at[41], at[94]); MULADD(at[42], at[93]); MULADD(at[43], at[92]); MULADD(at[44], at[91]); MULADD(at[45], at[90]); MULADD(at[46], at[89]); MULADD(at[47], at[88]); MULADD(at[48], at[87]); MULADD(at[49], at[86]); MULADD(at[50], at[85]); MULADD(at[51], at[84]); MULADD(at[52], at[83]); MULADD(at[53], at[82]); MULADD(at[54], at[81]); MULADD(at[55], at[80]); MULADD(at[56], at[79]); MULADD(at[57], at[78]); MULADD(at[58], at[77]); MULADD(at[59], at[76]); MULADD(at[60], at[75]); MULADD(at[61], at[74]); MULADD(at[62], at[73]); MULADD(at[63], at[72]);
|
||||||
|
COMBA_STORE(C->dp[71]);
|
||||||
|
/* 72 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[9], at[127]); MULADD(at[10], at[126]); MULADD(at[11], at[125]); MULADD(at[12], at[124]); MULADD(at[13], at[123]); MULADD(at[14], at[122]); MULADD(at[15], at[121]); MULADD(at[16], at[120]); MULADD(at[17], at[119]); MULADD(at[18], at[118]); MULADD(at[19], at[117]); MULADD(at[20], at[116]); MULADD(at[21], at[115]); MULADD(at[22], at[114]); MULADD(at[23], at[113]); MULADD(at[24], at[112]); MULADD(at[25], at[111]); MULADD(at[26], at[110]); MULADD(at[27], at[109]); MULADD(at[28], at[108]); MULADD(at[29], at[107]); MULADD(at[30], at[106]); MULADD(at[31], at[105]); MULADD(at[32], at[104]); MULADD(at[33], at[103]); MULADD(at[34], at[102]); MULADD(at[35], at[101]); MULADD(at[36], at[100]); MULADD(at[37], at[99]); MULADD(at[38], at[98]); MULADD(at[39], at[97]); MULADD(at[40], at[96]); MULADD(at[41], at[95]); MULADD(at[42], at[94]); MULADD(at[43], at[93]); MULADD(at[44], at[92]); MULADD(at[45], at[91]); MULADD(at[46], at[90]); MULADD(at[47], at[89]); MULADD(at[48], at[88]); MULADD(at[49], at[87]); MULADD(at[50], at[86]); MULADD(at[51], at[85]); MULADD(at[52], at[84]); MULADD(at[53], at[83]); MULADD(at[54], at[82]); MULADD(at[55], at[81]); MULADD(at[56], at[80]); MULADD(at[57], at[79]); MULADD(at[58], at[78]); MULADD(at[59], at[77]); MULADD(at[60], at[76]); MULADD(at[61], at[75]); MULADD(at[62], at[74]); MULADD(at[63], at[73]);
|
||||||
|
COMBA_STORE(C->dp[72]);
|
||||||
|
/* 73 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[10], at[127]); MULADD(at[11], at[126]); MULADD(at[12], at[125]); MULADD(at[13], at[124]); MULADD(at[14], at[123]); MULADD(at[15], at[122]); MULADD(at[16], at[121]); MULADD(at[17], at[120]); MULADD(at[18], at[119]); MULADD(at[19], at[118]); MULADD(at[20], at[117]); MULADD(at[21], at[116]); MULADD(at[22], at[115]); MULADD(at[23], at[114]); MULADD(at[24], at[113]); MULADD(at[25], at[112]); MULADD(at[26], at[111]); MULADD(at[27], at[110]); MULADD(at[28], at[109]); MULADD(at[29], at[108]); MULADD(at[30], at[107]); MULADD(at[31], at[106]); MULADD(at[32], at[105]); MULADD(at[33], at[104]); MULADD(at[34], at[103]); MULADD(at[35], at[102]); MULADD(at[36], at[101]); MULADD(at[37], at[100]); MULADD(at[38], at[99]); MULADD(at[39], at[98]); MULADD(at[40], at[97]); MULADD(at[41], at[96]); MULADD(at[42], at[95]); MULADD(at[43], at[94]); MULADD(at[44], at[93]); MULADD(at[45], at[92]); MULADD(at[46], at[91]); MULADD(at[47], at[90]); MULADD(at[48], at[89]); MULADD(at[49], at[88]); MULADD(at[50], at[87]); MULADD(at[51], at[86]); MULADD(at[52], at[85]); MULADD(at[53], at[84]); MULADD(at[54], at[83]); MULADD(at[55], at[82]); MULADD(at[56], at[81]); MULADD(at[57], at[80]); MULADD(at[58], at[79]); MULADD(at[59], at[78]); MULADD(at[60], at[77]); MULADD(at[61], at[76]); MULADD(at[62], at[75]); MULADD(at[63], at[74]);
|
||||||
|
COMBA_STORE(C->dp[73]);
|
||||||
|
/* 74 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[11], at[127]); MULADD(at[12], at[126]); MULADD(at[13], at[125]); MULADD(at[14], at[124]); MULADD(at[15], at[123]); MULADD(at[16], at[122]); MULADD(at[17], at[121]); MULADD(at[18], at[120]); MULADD(at[19], at[119]); MULADD(at[20], at[118]); MULADD(at[21], at[117]); MULADD(at[22], at[116]); MULADD(at[23], at[115]); MULADD(at[24], at[114]); MULADD(at[25], at[113]); MULADD(at[26], at[112]); MULADD(at[27], at[111]); MULADD(at[28], at[110]); MULADD(at[29], at[109]); MULADD(at[30], at[108]); MULADD(at[31], at[107]); MULADD(at[32], at[106]); MULADD(at[33], at[105]); MULADD(at[34], at[104]); MULADD(at[35], at[103]); MULADD(at[36], at[102]); MULADD(at[37], at[101]); MULADD(at[38], at[100]); MULADD(at[39], at[99]); MULADD(at[40], at[98]); MULADD(at[41], at[97]); MULADD(at[42], at[96]); MULADD(at[43], at[95]); MULADD(at[44], at[94]); MULADD(at[45], at[93]); MULADD(at[46], at[92]); MULADD(at[47], at[91]); MULADD(at[48], at[90]); MULADD(at[49], at[89]); MULADD(at[50], at[88]); MULADD(at[51], at[87]); MULADD(at[52], at[86]); MULADD(at[53], at[85]); MULADD(at[54], at[84]); MULADD(at[55], at[83]); MULADD(at[56], at[82]); MULADD(at[57], at[81]); MULADD(at[58], at[80]); MULADD(at[59], at[79]); MULADD(at[60], at[78]); MULADD(at[61], at[77]); MULADD(at[62], at[76]); MULADD(at[63], at[75]);
|
||||||
|
COMBA_STORE(C->dp[74]);
|
||||||
|
/* 75 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[12], at[127]); MULADD(at[13], at[126]); MULADD(at[14], at[125]); MULADD(at[15], at[124]); MULADD(at[16], at[123]); MULADD(at[17], at[122]); MULADD(at[18], at[121]); MULADD(at[19], at[120]); MULADD(at[20], at[119]); MULADD(at[21], at[118]); MULADD(at[22], at[117]); MULADD(at[23], at[116]); MULADD(at[24], at[115]); MULADD(at[25], at[114]); MULADD(at[26], at[113]); MULADD(at[27], at[112]); MULADD(at[28], at[111]); MULADD(at[29], at[110]); MULADD(at[30], at[109]); MULADD(at[31], at[108]); MULADD(at[32], at[107]); MULADD(at[33], at[106]); MULADD(at[34], at[105]); MULADD(at[35], at[104]); MULADD(at[36], at[103]); MULADD(at[37], at[102]); MULADD(at[38], at[101]); MULADD(at[39], at[100]); MULADD(at[40], at[99]); MULADD(at[41], at[98]); MULADD(at[42], at[97]); MULADD(at[43], at[96]); MULADD(at[44], at[95]); MULADD(at[45], at[94]); MULADD(at[46], at[93]); MULADD(at[47], at[92]); MULADD(at[48], at[91]); MULADD(at[49], at[90]); MULADD(at[50], at[89]); MULADD(at[51], at[88]); MULADD(at[52], at[87]); MULADD(at[53], at[86]); MULADD(at[54], at[85]); MULADD(at[55], at[84]); MULADD(at[56], at[83]); MULADD(at[57], at[82]); MULADD(at[58], at[81]); MULADD(at[59], at[80]); MULADD(at[60], at[79]); MULADD(at[61], at[78]); MULADD(at[62], at[77]); MULADD(at[63], at[76]);
|
||||||
|
COMBA_STORE(C->dp[75]);
|
||||||
|
/* 76 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[13], at[127]); MULADD(at[14], at[126]); MULADD(at[15], at[125]); MULADD(at[16], at[124]); MULADD(at[17], at[123]); MULADD(at[18], at[122]); MULADD(at[19], at[121]); MULADD(at[20], at[120]); MULADD(at[21], at[119]); MULADD(at[22], at[118]); MULADD(at[23], at[117]); MULADD(at[24], at[116]); MULADD(at[25], at[115]); MULADD(at[26], at[114]); MULADD(at[27], at[113]); MULADD(at[28], at[112]); MULADD(at[29], at[111]); MULADD(at[30], at[110]); MULADD(at[31], at[109]); MULADD(at[32], at[108]); MULADD(at[33], at[107]); MULADD(at[34], at[106]); MULADD(at[35], at[105]); MULADD(at[36], at[104]); MULADD(at[37], at[103]); MULADD(at[38], at[102]); MULADD(at[39], at[101]); MULADD(at[40], at[100]); MULADD(at[41], at[99]); MULADD(at[42], at[98]); MULADD(at[43], at[97]); MULADD(at[44], at[96]); MULADD(at[45], at[95]); MULADD(at[46], at[94]); MULADD(at[47], at[93]); MULADD(at[48], at[92]); MULADD(at[49], at[91]); MULADD(at[50], at[90]); MULADD(at[51], at[89]); MULADD(at[52], at[88]); MULADD(at[53], at[87]); MULADD(at[54], at[86]); MULADD(at[55], at[85]); MULADD(at[56], at[84]); MULADD(at[57], at[83]); MULADD(at[58], at[82]); MULADD(at[59], at[81]); MULADD(at[60], at[80]); MULADD(at[61], at[79]); MULADD(at[62], at[78]); MULADD(at[63], at[77]);
|
||||||
|
COMBA_STORE(C->dp[76]);
|
||||||
|
/* 77 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[14], at[127]); MULADD(at[15], at[126]); MULADD(at[16], at[125]); MULADD(at[17], at[124]); MULADD(at[18], at[123]); MULADD(at[19], at[122]); MULADD(at[20], at[121]); MULADD(at[21], at[120]); MULADD(at[22], at[119]); MULADD(at[23], at[118]); MULADD(at[24], at[117]); MULADD(at[25], at[116]); MULADD(at[26], at[115]); MULADD(at[27], at[114]); MULADD(at[28], at[113]); MULADD(at[29], at[112]); MULADD(at[30], at[111]); MULADD(at[31], at[110]); MULADD(at[32], at[109]); MULADD(at[33], at[108]); MULADD(at[34], at[107]); MULADD(at[35], at[106]); MULADD(at[36], at[105]); MULADD(at[37], at[104]); MULADD(at[38], at[103]); MULADD(at[39], at[102]); MULADD(at[40], at[101]); MULADD(at[41], at[100]); MULADD(at[42], at[99]); MULADD(at[43], at[98]); MULADD(at[44], at[97]); MULADD(at[45], at[96]); MULADD(at[46], at[95]); MULADD(at[47], at[94]); MULADD(at[48], at[93]); MULADD(at[49], at[92]); MULADD(at[50], at[91]); MULADD(at[51], at[90]); MULADD(at[52], at[89]); MULADD(at[53], at[88]); MULADD(at[54], at[87]); MULADD(at[55], at[86]); MULADD(at[56], at[85]); MULADD(at[57], at[84]); MULADD(at[58], at[83]); MULADD(at[59], at[82]); MULADD(at[60], at[81]); MULADD(at[61], at[80]); MULADD(at[62], at[79]); MULADD(at[63], at[78]);
|
||||||
|
COMBA_STORE(C->dp[77]);
|
||||||
|
/* 78 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[15], at[127]); MULADD(at[16], at[126]); MULADD(at[17], at[125]); MULADD(at[18], at[124]); MULADD(at[19], at[123]); MULADD(at[20], at[122]); MULADD(at[21], at[121]); MULADD(at[22], at[120]); MULADD(at[23], at[119]); MULADD(at[24], at[118]); MULADD(at[25], at[117]); MULADD(at[26], at[116]); MULADD(at[27], at[115]); MULADD(at[28], at[114]); MULADD(at[29], at[113]); MULADD(at[30], at[112]); MULADD(at[31], at[111]); MULADD(at[32], at[110]); MULADD(at[33], at[109]); MULADD(at[34], at[108]); MULADD(at[35], at[107]); MULADD(at[36], at[106]); MULADD(at[37], at[105]); MULADD(at[38], at[104]); MULADD(at[39], at[103]); MULADD(at[40], at[102]); MULADD(at[41], at[101]); MULADD(at[42], at[100]); MULADD(at[43], at[99]); MULADD(at[44], at[98]); MULADD(at[45], at[97]); MULADD(at[46], at[96]); MULADD(at[47], at[95]); MULADD(at[48], at[94]); MULADD(at[49], at[93]); MULADD(at[50], at[92]); MULADD(at[51], at[91]); MULADD(at[52], at[90]); MULADD(at[53], at[89]); MULADD(at[54], at[88]); MULADD(at[55], at[87]); MULADD(at[56], at[86]); MULADD(at[57], at[85]); MULADD(at[58], at[84]); MULADD(at[59], at[83]); MULADD(at[60], at[82]); MULADD(at[61], at[81]); MULADD(at[62], at[80]); MULADD(at[63], at[79]);
|
||||||
|
COMBA_STORE(C->dp[78]);
|
||||||
|
/* 79 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[16], at[127]); MULADD(at[17], at[126]); MULADD(at[18], at[125]); MULADD(at[19], at[124]); MULADD(at[20], at[123]); MULADD(at[21], at[122]); MULADD(at[22], at[121]); MULADD(at[23], at[120]); MULADD(at[24], at[119]); MULADD(at[25], at[118]); MULADD(at[26], at[117]); MULADD(at[27], at[116]); MULADD(at[28], at[115]); MULADD(at[29], at[114]); MULADD(at[30], at[113]); MULADD(at[31], at[112]); MULADD(at[32], at[111]); MULADD(at[33], at[110]); MULADD(at[34], at[109]); MULADD(at[35], at[108]); MULADD(at[36], at[107]); MULADD(at[37], at[106]); MULADD(at[38], at[105]); MULADD(at[39], at[104]); MULADD(at[40], at[103]); MULADD(at[41], at[102]); MULADD(at[42], at[101]); MULADD(at[43], at[100]); MULADD(at[44], at[99]); MULADD(at[45], at[98]); MULADD(at[46], at[97]); MULADD(at[47], at[96]); MULADD(at[48], at[95]); MULADD(at[49], at[94]); MULADD(at[50], at[93]); MULADD(at[51], at[92]); MULADD(at[52], at[91]); MULADD(at[53], at[90]); MULADD(at[54], at[89]); MULADD(at[55], at[88]); MULADD(at[56], at[87]); MULADD(at[57], at[86]); MULADD(at[58], at[85]); MULADD(at[59], at[84]); MULADD(at[60], at[83]); MULADD(at[61], at[82]); MULADD(at[62], at[81]); MULADD(at[63], at[80]);
|
||||||
|
COMBA_STORE(C->dp[79]);
|
||||||
|
/* 80 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[17], at[127]); MULADD(at[18], at[126]); MULADD(at[19], at[125]); MULADD(at[20], at[124]); MULADD(at[21], at[123]); MULADD(at[22], at[122]); MULADD(at[23], at[121]); MULADD(at[24], at[120]); MULADD(at[25], at[119]); MULADD(at[26], at[118]); MULADD(at[27], at[117]); MULADD(at[28], at[116]); MULADD(at[29], at[115]); MULADD(at[30], at[114]); MULADD(at[31], at[113]); MULADD(at[32], at[112]); MULADD(at[33], at[111]); MULADD(at[34], at[110]); MULADD(at[35], at[109]); MULADD(at[36], at[108]); MULADD(at[37], at[107]); MULADD(at[38], at[106]); MULADD(at[39], at[105]); MULADD(at[40], at[104]); MULADD(at[41], at[103]); MULADD(at[42], at[102]); MULADD(at[43], at[101]); MULADD(at[44], at[100]); MULADD(at[45], at[99]); MULADD(at[46], at[98]); MULADD(at[47], at[97]); MULADD(at[48], at[96]); MULADD(at[49], at[95]); MULADD(at[50], at[94]); MULADD(at[51], at[93]); MULADD(at[52], at[92]); MULADD(at[53], at[91]); MULADD(at[54], at[90]); MULADD(at[55], at[89]); MULADD(at[56], at[88]); MULADD(at[57], at[87]); MULADD(at[58], at[86]); MULADD(at[59], at[85]); MULADD(at[60], at[84]); MULADD(at[61], at[83]); MULADD(at[62], at[82]); MULADD(at[63], at[81]);
|
||||||
|
COMBA_STORE(C->dp[80]);
|
||||||
|
/* 81 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[18], at[127]); MULADD(at[19], at[126]); MULADD(at[20], at[125]); MULADD(at[21], at[124]); MULADD(at[22], at[123]); MULADD(at[23], at[122]); MULADD(at[24], at[121]); MULADD(at[25], at[120]); MULADD(at[26], at[119]); MULADD(at[27], at[118]); MULADD(at[28], at[117]); MULADD(at[29], at[116]); MULADD(at[30], at[115]); MULADD(at[31], at[114]); MULADD(at[32], at[113]); MULADD(at[33], at[112]); MULADD(at[34], at[111]); MULADD(at[35], at[110]); MULADD(at[36], at[109]); MULADD(at[37], at[108]); MULADD(at[38], at[107]); MULADD(at[39], at[106]); MULADD(at[40], at[105]); MULADD(at[41], at[104]); MULADD(at[42], at[103]); MULADD(at[43], at[102]); MULADD(at[44], at[101]); MULADD(at[45], at[100]); MULADD(at[46], at[99]); MULADD(at[47], at[98]); MULADD(at[48], at[97]); MULADD(at[49], at[96]); MULADD(at[50], at[95]); MULADD(at[51], at[94]); MULADD(at[52], at[93]); MULADD(at[53], at[92]); MULADD(at[54], at[91]); MULADD(at[55], at[90]); MULADD(at[56], at[89]); MULADD(at[57], at[88]); MULADD(at[58], at[87]); MULADD(at[59], at[86]); MULADD(at[60], at[85]); MULADD(at[61], at[84]); MULADD(at[62], at[83]); MULADD(at[63], at[82]);
|
||||||
|
COMBA_STORE(C->dp[81]);
|
||||||
|
/* 82 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[19], at[127]); MULADD(at[20], at[126]); MULADD(at[21], at[125]); MULADD(at[22], at[124]); MULADD(at[23], at[123]); MULADD(at[24], at[122]); MULADD(at[25], at[121]); MULADD(at[26], at[120]); MULADD(at[27], at[119]); MULADD(at[28], at[118]); MULADD(at[29], at[117]); MULADD(at[30], at[116]); MULADD(at[31], at[115]); MULADD(at[32], at[114]); MULADD(at[33], at[113]); MULADD(at[34], at[112]); MULADD(at[35], at[111]); MULADD(at[36], at[110]); MULADD(at[37], at[109]); MULADD(at[38], at[108]); MULADD(at[39], at[107]); MULADD(at[40], at[106]); MULADD(at[41], at[105]); MULADD(at[42], at[104]); MULADD(at[43], at[103]); MULADD(at[44], at[102]); MULADD(at[45], at[101]); MULADD(at[46], at[100]); MULADD(at[47], at[99]); MULADD(at[48], at[98]); MULADD(at[49], at[97]); MULADD(at[50], at[96]); MULADD(at[51], at[95]); MULADD(at[52], at[94]); MULADD(at[53], at[93]); MULADD(at[54], at[92]); MULADD(at[55], at[91]); MULADD(at[56], at[90]); MULADD(at[57], at[89]); MULADD(at[58], at[88]); MULADD(at[59], at[87]); MULADD(at[60], at[86]); MULADD(at[61], at[85]); MULADD(at[62], at[84]); MULADD(at[63], at[83]);
|
||||||
|
COMBA_STORE(C->dp[82]);
|
||||||
|
/* 83 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[20], at[127]); MULADD(at[21], at[126]); MULADD(at[22], at[125]); MULADD(at[23], at[124]); MULADD(at[24], at[123]); MULADD(at[25], at[122]); MULADD(at[26], at[121]); MULADD(at[27], at[120]); MULADD(at[28], at[119]); MULADD(at[29], at[118]); MULADD(at[30], at[117]); MULADD(at[31], at[116]); MULADD(at[32], at[115]); MULADD(at[33], at[114]); MULADD(at[34], at[113]); MULADD(at[35], at[112]); MULADD(at[36], at[111]); MULADD(at[37], at[110]); MULADD(at[38], at[109]); MULADD(at[39], at[108]); MULADD(at[40], at[107]); MULADD(at[41], at[106]); MULADD(at[42], at[105]); MULADD(at[43], at[104]); MULADD(at[44], at[103]); MULADD(at[45], at[102]); MULADD(at[46], at[101]); MULADD(at[47], at[100]); MULADD(at[48], at[99]); MULADD(at[49], at[98]); MULADD(at[50], at[97]); MULADD(at[51], at[96]); MULADD(at[52], at[95]); MULADD(at[53], at[94]); MULADD(at[54], at[93]); MULADD(at[55], at[92]); MULADD(at[56], at[91]); MULADD(at[57], at[90]); MULADD(at[58], at[89]); MULADD(at[59], at[88]); MULADD(at[60], at[87]); MULADD(at[61], at[86]); MULADD(at[62], at[85]); MULADD(at[63], at[84]);
|
||||||
|
COMBA_STORE(C->dp[83]);
|
||||||
|
/* 84 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[21], at[127]); MULADD(at[22], at[126]); MULADD(at[23], at[125]); MULADD(at[24], at[124]); MULADD(at[25], at[123]); MULADD(at[26], at[122]); MULADD(at[27], at[121]); MULADD(at[28], at[120]); MULADD(at[29], at[119]); MULADD(at[30], at[118]); MULADD(at[31], at[117]); MULADD(at[32], at[116]); MULADD(at[33], at[115]); MULADD(at[34], at[114]); MULADD(at[35], at[113]); MULADD(at[36], at[112]); MULADD(at[37], at[111]); MULADD(at[38], at[110]); MULADD(at[39], at[109]); MULADD(at[40], at[108]); MULADD(at[41], at[107]); MULADD(at[42], at[106]); MULADD(at[43], at[105]); MULADD(at[44], at[104]); MULADD(at[45], at[103]); MULADD(at[46], at[102]); MULADD(at[47], at[101]); MULADD(at[48], at[100]); MULADD(at[49], at[99]); MULADD(at[50], at[98]); MULADD(at[51], at[97]); MULADD(at[52], at[96]); MULADD(at[53], at[95]); MULADD(at[54], at[94]); MULADD(at[55], at[93]); MULADD(at[56], at[92]); MULADD(at[57], at[91]); MULADD(at[58], at[90]); MULADD(at[59], at[89]); MULADD(at[60], at[88]); MULADD(at[61], at[87]); MULADD(at[62], at[86]); MULADD(at[63], at[85]);
|
||||||
|
COMBA_STORE(C->dp[84]);
|
||||||
|
/* 85 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[22], at[127]); MULADD(at[23], at[126]); MULADD(at[24], at[125]); MULADD(at[25], at[124]); MULADD(at[26], at[123]); MULADD(at[27], at[122]); MULADD(at[28], at[121]); MULADD(at[29], at[120]); MULADD(at[30], at[119]); MULADD(at[31], at[118]); MULADD(at[32], at[117]); MULADD(at[33], at[116]); MULADD(at[34], at[115]); MULADD(at[35], at[114]); MULADD(at[36], at[113]); MULADD(at[37], at[112]); MULADD(at[38], at[111]); MULADD(at[39], at[110]); MULADD(at[40], at[109]); MULADD(at[41], at[108]); MULADD(at[42], at[107]); MULADD(at[43], at[106]); MULADD(at[44], at[105]); MULADD(at[45], at[104]); MULADD(at[46], at[103]); MULADD(at[47], at[102]); MULADD(at[48], at[101]); MULADD(at[49], at[100]); MULADD(at[50], at[99]); MULADD(at[51], at[98]); MULADD(at[52], at[97]); MULADD(at[53], at[96]); MULADD(at[54], at[95]); MULADD(at[55], at[94]); MULADD(at[56], at[93]); MULADD(at[57], at[92]); MULADD(at[58], at[91]); MULADD(at[59], at[90]); MULADD(at[60], at[89]); MULADD(at[61], at[88]); MULADD(at[62], at[87]); MULADD(at[63], at[86]);
|
||||||
|
COMBA_STORE(C->dp[85]);
|
||||||
|
/* 86 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[23], at[127]); MULADD(at[24], at[126]); MULADD(at[25], at[125]); MULADD(at[26], at[124]); MULADD(at[27], at[123]); MULADD(at[28], at[122]); MULADD(at[29], at[121]); MULADD(at[30], at[120]); MULADD(at[31], at[119]); MULADD(at[32], at[118]); MULADD(at[33], at[117]); MULADD(at[34], at[116]); MULADD(at[35], at[115]); MULADD(at[36], at[114]); MULADD(at[37], at[113]); MULADD(at[38], at[112]); MULADD(at[39], at[111]); MULADD(at[40], at[110]); MULADD(at[41], at[109]); MULADD(at[42], at[108]); MULADD(at[43], at[107]); MULADD(at[44], at[106]); MULADD(at[45], at[105]); MULADD(at[46], at[104]); MULADD(at[47], at[103]); MULADD(at[48], at[102]); MULADD(at[49], at[101]); MULADD(at[50], at[100]); MULADD(at[51], at[99]); MULADD(at[52], at[98]); MULADD(at[53], at[97]); MULADD(at[54], at[96]); MULADD(at[55], at[95]); MULADD(at[56], at[94]); MULADD(at[57], at[93]); MULADD(at[58], at[92]); MULADD(at[59], at[91]); MULADD(at[60], at[90]); MULADD(at[61], at[89]); MULADD(at[62], at[88]); MULADD(at[63], at[87]);
|
||||||
|
COMBA_STORE(C->dp[86]);
|
||||||
|
/* 87 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[24], at[127]); MULADD(at[25], at[126]); MULADD(at[26], at[125]); MULADD(at[27], at[124]); MULADD(at[28], at[123]); MULADD(at[29], at[122]); MULADD(at[30], at[121]); MULADD(at[31], at[120]); MULADD(at[32], at[119]); MULADD(at[33], at[118]); MULADD(at[34], at[117]); MULADD(at[35], at[116]); MULADD(at[36], at[115]); MULADD(at[37], at[114]); MULADD(at[38], at[113]); MULADD(at[39], at[112]); MULADD(at[40], at[111]); MULADD(at[41], at[110]); MULADD(at[42], at[109]); MULADD(at[43], at[108]); MULADD(at[44], at[107]); MULADD(at[45], at[106]); MULADD(at[46], at[105]); MULADD(at[47], at[104]); MULADD(at[48], at[103]); MULADD(at[49], at[102]); MULADD(at[50], at[101]); MULADD(at[51], at[100]); MULADD(at[52], at[99]); MULADD(at[53], at[98]); MULADD(at[54], at[97]); MULADD(at[55], at[96]); MULADD(at[56], at[95]); MULADD(at[57], at[94]); MULADD(at[58], at[93]); MULADD(at[59], at[92]); MULADD(at[60], at[91]); MULADD(at[61], at[90]); MULADD(at[62], at[89]); MULADD(at[63], at[88]);
|
||||||
|
COMBA_STORE(C->dp[87]);
|
||||||
|
/* 88 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[25], at[127]); MULADD(at[26], at[126]); MULADD(at[27], at[125]); MULADD(at[28], at[124]); MULADD(at[29], at[123]); MULADD(at[30], at[122]); MULADD(at[31], at[121]); MULADD(at[32], at[120]); MULADD(at[33], at[119]); MULADD(at[34], at[118]); MULADD(at[35], at[117]); MULADD(at[36], at[116]); MULADD(at[37], at[115]); MULADD(at[38], at[114]); MULADD(at[39], at[113]); MULADD(at[40], at[112]); MULADD(at[41], at[111]); MULADD(at[42], at[110]); MULADD(at[43], at[109]); MULADD(at[44], at[108]); MULADD(at[45], at[107]); MULADD(at[46], at[106]); MULADD(at[47], at[105]); MULADD(at[48], at[104]); MULADD(at[49], at[103]); MULADD(at[50], at[102]); MULADD(at[51], at[101]); MULADD(at[52], at[100]); MULADD(at[53], at[99]); MULADD(at[54], at[98]); MULADD(at[55], at[97]); MULADD(at[56], at[96]); MULADD(at[57], at[95]); MULADD(at[58], at[94]); MULADD(at[59], at[93]); MULADD(at[60], at[92]); MULADD(at[61], at[91]); MULADD(at[62], at[90]); MULADD(at[63], at[89]);
|
||||||
|
COMBA_STORE(C->dp[88]);
|
||||||
|
/* 89 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[26], at[127]); MULADD(at[27], at[126]); MULADD(at[28], at[125]); MULADD(at[29], at[124]); MULADD(at[30], at[123]); MULADD(at[31], at[122]); MULADD(at[32], at[121]); MULADD(at[33], at[120]); MULADD(at[34], at[119]); MULADD(at[35], at[118]); MULADD(at[36], at[117]); MULADD(at[37], at[116]); MULADD(at[38], at[115]); MULADD(at[39], at[114]); MULADD(at[40], at[113]); MULADD(at[41], at[112]); MULADD(at[42], at[111]); MULADD(at[43], at[110]); MULADD(at[44], at[109]); MULADD(at[45], at[108]); MULADD(at[46], at[107]); MULADD(at[47], at[106]); MULADD(at[48], at[105]); MULADD(at[49], at[104]); MULADD(at[50], at[103]); MULADD(at[51], at[102]); MULADD(at[52], at[101]); MULADD(at[53], at[100]); MULADD(at[54], at[99]); MULADD(at[55], at[98]); MULADD(at[56], at[97]); MULADD(at[57], at[96]); MULADD(at[58], at[95]); MULADD(at[59], at[94]); MULADD(at[60], at[93]); MULADD(at[61], at[92]); MULADD(at[62], at[91]); MULADD(at[63], at[90]);
|
||||||
|
COMBA_STORE(C->dp[89]);
|
||||||
|
/* 90 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[27], at[127]); MULADD(at[28], at[126]); MULADD(at[29], at[125]); MULADD(at[30], at[124]); MULADD(at[31], at[123]); MULADD(at[32], at[122]); MULADD(at[33], at[121]); MULADD(at[34], at[120]); MULADD(at[35], at[119]); MULADD(at[36], at[118]); MULADD(at[37], at[117]); MULADD(at[38], at[116]); MULADD(at[39], at[115]); MULADD(at[40], at[114]); MULADD(at[41], at[113]); MULADD(at[42], at[112]); MULADD(at[43], at[111]); MULADD(at[44], at[110]); MULADD(at[45], at[109]); MULADD(at[46], at[108]); MULADD(at[47], at[107]); MULADD(at[48], at[106]); MULADD(at[49], at[105]); MULADD(at[50], at[104]); MULADD(at[51], at[103]); MULADD(at[52], at[102]); MULADD(at[53], at[101]); MULADD(at[54], at[100]); MULADD(at[55], at[99]); MULADD(at[56], at[98]); MULADD(at[57], at[97]); MULADD(at[58], at[96]); MULADD(at[59], at[95]); MULADD(at[60], at[94]); MULADD(at[61], at[93]); MULADD(at[62], at[92]); MULADD(at[63], at[91]);
|
||||||
|
COMBA_STORE(C->dp[90]);
|
||||||
|
/* 91 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[28], at[127]); MULADD(at[29], at[126]); MULADD(at[30], at[125]); MULADD(at[31], at[124]); MULADD(at[32], at[123]); MULADD(at[33], at[122]); MULADD(at[34], at[121]); MULADD(at[35], at[120]); MULADD(at[36], at[119]); MULADD(at[37], at[118]); MULADD(at[38], at[117]); MULADD(at[39], at[116]); MULADD(at[40], at[115]); MULADD(at[41], at[114]); MULADD(at[42], at[113]); MULADD(at[43], at[112]); MULADD(at[44], at[111]); MULADD(at[45], at[110]); MULADD(at[46], at[109]); MULADD(at[47], at[108]); MULADD(at[48], at[107]); MULADD(at[49], at[106]); MULADD(at[50], at[105]); MULADD(at[51], at[104]); MULADD(at[52], at[103]); MULADD(at[53], at[102]); MULADD(at[54], at[101]); MULADD(at[55], at[100]); MULADD(at[56], at[99]); MULADD(at[57], at[98]); MULADD(at[58], at[97]); MULADD(at[59], at[96]); MULADD(at[60], at[95]); MULADD(at[61], at[94]); MULADD(at[62], at[93]); MULADD(at[63], at[92]);
|
||||||
|
COMBA_STORE(C->dp[91]);
|
||||||
|
/* 92 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[29], at[127]); MULADD(at[30], at[126]); MULADD(at[31], at[125]); MULADD(at[32], at[124]); MULADD(at[33], at[123]); MULADD(at[34], at[122]); MULADD(at[35], at[121]); MULADD(at[36], at[120]); MULADD(at[37], at[119]); MULADD(at[38], at[118]); MULADD(at[39], at[117]); MULADD(at[40], at[116]); MULADD(at[41], at[115]); MULADD(at[42], at[114]); MULADD(at[43], at[113]); MULADD(at[44], at[112]); MULADD(at[45], at[111]); MULADD(at[46], at[110]); MULADD(at[47], at[109]); MULADD(at[48], at[108]); MULADD(at[49], at[107]); MULADD(at[50], at[106]); MULADD(at[51], at[105]); MULADD(at[52], at[104]); MULADD(at[53], at[103]); MULADD(at[54], at[102]); MULADD(at[55], at[101]); MULADD(at[56], at[100]); MULADD(at[57], at[99]); MULADD(at[58], at[98]); MULADD(at[59], at[97]); MULADD(at[60], at[96]); MULADD(at[61], at[95]); MULADD(at[62], at[94]); MULADD(at[63], at[93]);
|
||||||
|
COMBA_STORE(C->dp[92]);
|
||||||
|
/* 93 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[30], at[127]); MULADD(at[31], at[126]); MULADD(at[32], at[125]); MULADD(at[33], at[124]); MULADD(at[34], at[123]); MULADD(at[35], at[122]); MULADD(at[36], at[121]); MULADD(at[37], at[120]); MULADD(at[38], at[119]); MULADD(at[39], at[118]); MULADD(at[40], at[117]); MULADD(at[41], at[116]); MULADD(at[42], at[115]); MULADD(at[43], at[114]); MULADD(at[44], at[113]); MULADD(at[45], at[112]); MULADD(at[46], at[111]); MULADD(at[47], at[110]); MULADD(at[48], at[109]); MULADD(at[49], at[108]); MULADD(at[50], at[107]); MULADD(at[51], at[106]); MULADD(at[52], at[105]); MULADD(at[53], at[104]); MULADD(at[54], at[103]); MULADD(at[55], at[102]); MULADD(at[56], at[101]); MULADD(at[57], at[100]); MULADD(at[58], at[99]); MULADD(at[59], at[98]); MULADD(at[60], at[97]); MULADD(at[61], at[96]); MULADD(at[62], at[95]); MULADD(at[63], at[94]);
|
||||||
|
COMBA_STORE(C->dp[93]);
|
||||||
|
/* 94 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[31], at[127]); MULADD(at[32], at[126]); MULADD(at[33], at[125]); MULADD(at[34], at[124]); MULADD(at[35], at[123]); MULADD(at[36], at[122]); MULADD(at[37], at[121]); MULADD(at[38], at[120]); MULADD(at[39], at[119]); MULADD(at[40], at[118]); MULADD(at[41], at[117]); MULADD(at[42], at[116]); MULADD(at[43], at[115]); MULADD(at[44], at[114]); MULADD(at[45], at[113]); MULADD(at[46], at[112]); MULADD(at[47], at[111]); MULADD(at[48], at[110]); MULADD(at[49], at[109]); MULADD(at[50], at[108]); MULADD(at[51], at[107]); MULADD(at[52], at[106]); MULADD(at[53], at[105]); MULADD(at[54], at[104]); MULADD(at[55], at[103]); MULADD(at[56], at[102]); MULADD(at[57], at[101]); MULADD(at[58], at[100]); MULADD(at[59], at[99]); MULADD(at[60], at[98]); MULADD(at[61], at[97]); MULADD(at[62], at[96]); MULADD(at[63], at[95]);
|
||||||
|
COMBA_STORE(C->dp[94]);
|
||||||
|
/* 95 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[32], at[127]); MULADD(at[33], at[126]); MULADD(at[34], at[125]); MULADD(at[35], at[124]); MULADD(at[36], at[123]); MULADD(at[37], at[122]); MULADD(at[38], at[121]); MULADD(at[39], at[120]); MULADD(at[40], at[119]); MULADD(at[41], at[118]); MULADD(at[42], at[117]); MULADD(at[43], at[116]); MULADD(at[44], at[115]); MULADD(at[45], at[114]); MULADD(at[46], at[113]); MULADD(at[47], at[112]); MULADD(at[48], at[111]); MULADD(at[49], at[110]); MULADD(at[50], at[109]); MULADD(at[51], at[108]); MULADD(at[52], at[107]); MULADD(at[53], at[106]); MULADD(at[54], at[105]); MULADD(at[55], at[104]); MULADD(at[56], at[103]); MULADD(at[57], at[102]); MULADD(at[58], at[101]); MULADD(at[59], at[100]); MULADD(at[60], at[99]); MULADD(at[61], at[98]); MULADD(at[62], at[97]); MULADD(at[63], at[96]);
|
||||||
|
COMBA_STORE(C->dp[95]);
|
||||||
|
/* 96 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[33], at[127]); MULADD(at[34], at[126]); MULADD(at[35], at[125]); MULADD(at[36], at[124]); MULADD(at[37], at[123]); MULADD(at[38], at[122]); MULADD(at[39], at[121]); MULADD(at[40], at[120]); MULADD(at[41], at[119]); MULADD(at[42], at[118]); MULADD(at[43], at[117]); MULADD(at[44], at[116]); MULADD(at[45], at[115]); MULADD(at[46], at[114]); MULADD(at[47], at[113]); MULADD(at[48], at[112]); MULADD(at[49], at[111]); MULADD(at[50], at[110]); MULADD(at[51], at[109]); MULADD(at[52], at[108]); MULADD(at[53], at[107]); MULADD(at[54], at[106]); MULADD(at[55], at[105]); MULADD(at[56], at[104]); MULADD(at[57], at[103]); MULADD(at[58], at[102]); MULADD(at[59], at[101]); MULADD(at[60], at[100]); MULADD(at[61], at[99]); MULADD(at[62], at[98]); MULADD(at[63], at[97]);
|
||||||
|
COMBA_STORE(C->dp[96]);
|
||||||
|
/* 97 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[34], at[127]); MULADD(at[35], at[126]); MULADD(at[36], at[125]); MULADD(at[37], at[124]); MULADD(at[38], at[123]); MULADD(at[39], at[122]); MULADD(at[40], at[121]); MULADD(at[41], at[120]); MULADD(at[42], at[119]); MULADD(at[43], at[118]); MULADD(at[44], at[117]); MULADD(at[45], at[116]); MULADD(at[46], at[115]); MULADD(at[47], at[114]); MULADD(at[48], at[113]); MULADD(at[49], at[112]); MULADD(at[50], at[111]); MULADD(at[51], at[110]); MULADD(at[52], at[109]); MULADD(at[53], at[108]); MULADD(at[54], at[107]); MULADD(at[55], at[106]); MULADD(at[56], at[105]); MULADD(at[57], at[104]); MULADD(at[58], at[103]); MULADD(at[59], at[102]); MULADD(at[60], at[101]); MULADD(at[61], at[100]); MULADD(at[62], at[99]); MULADD(at[63], at[98]);
|
||||||
|
COMBA_STORE(C->dp[97]);
|
||||||
|
/* 98 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[35], at[127]); MULADD(at[36], at[126]); MULADD(at[37], at[125]); MULADD(at[38], at[124]); MULADD(at[39], at[123]); MULADD(at[40], at[122]); MULADD(at[41], at[121]); MULADD(at[42], at[120]); MULADD(at[43], at[119]); MULADD(at[44], at[118]); MULADD(at[45], at[117]); MULADD(at[46], at[116]); MULADD(at[47], at[115]); MULADD(at[48], at[114]); MULADD(at[49], at[113]); MULADD(at[50], at[112]); MULADD(at[51], at[111]); MULADD(at[52], at[110]); MULADD(at[53], at[109]); MULADD(at[54], at[108]); MULADD(at[55], at[107]); MULADD(at[56], at[106]); MULADD(at[57], at[105]); MULADD(at[58], at[104]); MULADD(at[59], at[103]); MULADD(at[60], at[102]); MULADD(at[61], at[101]); MULADD(at[62], at[100]); MULADD(at[63], at[99]);
|
||||||
|
COMBA_STORE(C->dp[98]);
|
||||||
|
/* 99 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[36], at[127]); MULADD(at[37], at[126]); MULADD(at[38], at[125]); MULADD(at[39], at[124]); MULADD(at[40], at[123]); MULADD(at[41], at[122]); MULADD(at[42], at[121]); MULADD(at[43], at[120]); MULADD(at[44], at[119]); MULADD(at[45], at[118]); MULADD(at[46], at[117]); MULADD(at[47], at[116]); MULADD(at[48], at[115]); MULADD(at[49], at[114]); MULADD(at[50], at[113]); MULADD(at[51], at[112]); MULADD(at[52], at[111]); MULADD(at[53], at[110]); MULADD(at[54], at[109]); MULADD(at[55], at[108]); MULADD(at[56], at[107]); MULADD(at[57], at[106]); MULADD(at[58], at[105]); MULADD(at[59], at[104]); MULADD(at[60], at[103]); MULADD(at[61], at[102]); MULADD(at[62], at[101]); MULADD(at[63], at[100]);
|
||||||
|
COMBA_STORE(C->dp[99]);
|
||||||
|
/* 100 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[37], at[127]); MULADD(at[38], at[126]); MULADD(at[39], at[125]); MULADD(at[40], at[124]); MULADD(at[41], at[123]); MULADD(at[42], at[122]); MULADD(at[43], at[121]); MULADD(at[44], at[120]); MULADD(at[45], at[119]); MULADD(at[46], at[118]); MULADD(at[47], at[117]); MULADD(at[48], at[116]); MULADD(at[49], at[115]); MULADD(at[50], at[114]); MULADD(at[51], at[113]); MULADD(at[52], at[112]); MULADD(at[53], at[111]); MULADD(at[54], at[110]); MULADD(at[55], at[109]); MULADD(at[56], at[108]); MULADD(at[57], at[107]); MULADD(at[58], at[106]); MULADD(at[59], at[105]); MULADD(at[60], at[104]); MULADD(at[61], at[103]); MULADD(at[62], at[102]); MULADD(at[63], at[101]);
|
||||||
|
COMBA_STORE(C->dp[100]);
|
||||||
|
/* 101 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[38], at[127]); MULADD(at[39], at[126]); MULADD(at[40], at[125]); MULADD(at[41], at[124]); MULADD(at[42], at[123]); MULADD(at[43], at[122]); MULADD(at[44], at[121]); MULADD(at[45], at[120]); MULADD(at[46], at[119]); MULADD(at[47], at[118]); MULADD(at[48], at[117]); MULADD(at[49], at[116]); MULADD(at[50], at[115]); MULADD(at[51], at[114]); MULADD(at[52], at[113]); MULADD(at[53], at[112]); MULADD(at[54], at[111]); MULADD(at[55], at[110]); MULADD(at[56], at[109]); MULADD(at[57], at[108]); MULADD(at[58], at[107]); MULADD(at[59], at[106]); MULADD(at[60], at[105]); MULADD(at[61], at[104]); MULADD(at[62], at[103]); MULADD(at[63], at[102]);
|
||||||
|
COMBA_STORE(C->dp[101]);
|
||||||
|
/* 102 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[39], at[127]); MULADD(at[40], at[126]); MULADD(at[41], at[125]); MULADD(at[42], at[124]); MULADD(at[43], at[123]); MULADD(at[44], at[122]); MULADD(at[45], at[121]); MULADD(at[46], at[120]); MULADD(at[47], at[119]); MULADD(at[48], at[118]); MULADD(at[49], at[117]); MULADD(at[50], at[116]); MULADD(at[51], at[115]); MULADD(at[52], at[114]); MULADD(at[53], at[113]); MULADD(at[54], at[112]); MULADD(at[55], at[111]); MULADD(at[56], at[110]); MULADD(at[57], at[109]); MULADD(at[58], at[108]); MULADD(at[59], at[107]); MULADD(at[60], at[106]); MULADD(at[61], at[105]); MULADD(at[62], at[104]); MULADD(at[63], at[103]);
|
||||||
|
COMBA_STORE(C->dp[102]);
|
||||||
|
/* 103 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[40], at[127]); MULADD(at[41], at[126]); MULADD(at[42], at[125]); MULADD(at[43], at[124]); MULADD(at[44], at[123]); MULADD(at[45], at[122]); MULADD(at[46], at[121]); MULADD(at[47], at[120]); MULADD(at[48], at[119]); MULADD(at[49], at[118]); MULADD(at[50], at[117]); MULADD(at[51], at[116]); MULADD(at[52], at[115]); MULADD(at[53], at[114]); MULADD(at[54], at[113]); MULADD(at[55], at[112]); MULADD(at[56], at[111]); MULADD(at[57], at[110]); MULADD(at[58], at[109]); MULADD(at[59], at[108]); MULADD(at[60], at[107]); MULADD(at[61], at[106]); MULADD(at[62], at[105]); MULADD(at[63], at[104]);
|
||||||
|
COMBA_STORE(C->dp[103]);
|
||||||
|
/* 104 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[41], at[127]); MULADD(at[42], at[126]); MULADD(at[43], at[125]); MULADD(at[44], at[124]); MULADD(at[45], at[123]); MULADD(at[46], at[122]); MULADD(at[47], at[121]); MULADD(at[48], at[120]); MULADD(at[49], at[119]); MULADD(at[50], at[118]); MULADD(at[51], at[117]); MULADD(at[52], at[116]); MULADD(at[53], at[115]); MULADD(at[54], at[114]); MULADD(at[55], at[113]); MULADD(at[56], at[112]); MULADD(at[57], at[111]); MULADD(at[58], at[110]); MULADD(at[59], at[109]); MULADD(at[60], at[108]); MULADD(at[61], at[107]); MULADD(at[62], at[106]); MULADD(at[63], at[105]);
|
||||||
|
COMBA_STORE(C->dp[104]);
|
||||||
|
/* 105 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[42], at[127]); MULADD(at[43], at[126]); MULADD(at[44], at[125]); MULADD(at[45], at[124]); MULADD(at[46], at[123]); MULADD(at[47], at[122]); MULADD(at[48], at[121]); MULADD(at[49], at[120]); MULADD(at[50], at[119]); MULADD(at[51], at[118]); MULADD(at[52], at[117]); MULADD(at[53], at[116]); MULADD(at[54], at[115]); MULADD(at[55], at[114]); MULADD(at[56], at[113]); MULADD(at[57], at[112]); MULADD(at[58], at[111]); MULADD(at[59], at[110]); MULADD(at[60], at[109]); MULADD(at[61], at[108]); MULADD(at[62], at[107]); MULADD(at[63], at[106]);
|
||||||
|
COMBA_STORE(C->dp[105]);
|
||||||
|
/* 106 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[43], at[127]); MULADD(at[44], at[126]); MULADD(at[45], at[125]); MULADD(at[46], at[124]); MULADD(at[47], at[123]); MULADD(at[48], at[122]); MULADD(at[49], at[121]); MULADD(at[50], at[120]); MULADD(at[51], at[119]); MULADD(at[52], at[118]); MULADD(at[53], at[117]); MULADD(at[54], at[116]); MULADD(at[55], at[115]); MULADD(at[56], at[114]); MULADD(at[57], at[113]); MULADD(at[58], at[112]); MULADD(at[59], at[111]); MULADD(at[60], at[110]); MULADD(at[61], at[109]); MULADD(at[62], at[108]); MULADD(at[63], at[107]);
|
||||||
|
COMBA_STORE(C->dp[106]);
|
||||||
|
/* 107 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[44], at[127]); MULADD(at[45], at[126]); MULADD(at[46], at[125]); MULADD(at[47], at[124]); MULADD(at[48], at[123]); MULADD(at[49], at[122]); MULADD(at[50], at[121]); MULADD(at[51], at[120]); MULADD(at[52], at[119]); MULADD(at[53], at[118]); MULADD(at[54], at[117]); MULADD(at[55], at[116]); MULADD(at[56], at[115]); MULADD(at[57], at[114]); MULADD(at[58], at[113]); MULADD(at[59], at[112]); MULADD(at[60], at[111]); MULADD(at[61], at[110]); MULADD(at[62], at[109]); MULADD(at[63], at[108]);
|
||||||
|
COMBA_STORE(C->dp[107]);
|
||||||
|
/* 108 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[45], at[127]); MULADD(at[46], at[126]); MULADD(at[47], at[125]); MULADD(at[48], at[124]); MULADD(at[49], at[123]); MULADD(at[50], at[122]); MULADD(at[51], at[121]); MULADD(at[52], at[120]); MULADD(at[53], at[119]); MULADD(at[54], at[118]); MULADD(at[55], at[117]); MULADD(at[56], at[116]); MULADD(at[57], at[115]); MULADD(at[58], at[114]); MULADD(at[59], at[113]); MULADD(at[60], at[112]); MULADD(at[61], at[111]); MULADD(at[62], at[110]); MULADD(at[63], at[109]);
|
||||||
|
COMBA_STORE(C->dp[108]);
|
||||||
|
/* 109 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[46], at[127]); MULADD(at[47], at[126]); MULADD(at[48], at[125]); MULADD(at[49], at[124]); MULADD(at[50], at[123]); MULADD(at[51], at[122]); MULADD(at[52], at[121]); MULADD(at[53], at[120]); MULADD(at[54], at[119]); MULADD(at[55], at[118]); MULADD(at[56], at[117]); MULADD(at[57], at[116]); MULADD(at[58], at[115]); MULADD(at[59], at[114]); MULADD(at[60], at[113]); MULADD(at[61], at[112]); MULADD(at[62], at[111]); MULADD(at[63], at[110]);
|
||||||
|
COMBA_STORE(C->dp[109]);
|
||||||
|
/* 110 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[47], at[127]); MULADD(at[48], at[126]); MULADD(at[49], at[125]); MULADD(at[50], at[124]); MULADD(at[51], at[123]); MULADD(at[52], at[122]); MULADD(at[53], at[121]); MULADD(at[54], at[120]); MULADD(at[55], at[119]); MULADD(at[56], at[118]); MULADD(at[57], at[117]); MULADD(at[58], at[116]); MULADD(at[59], at[115]); MULADD(at[60], at[114]); MULADD(at[61], at[113]); MULADD(at[62], at[112]); MULADD(at[63], at[111]);
|
||||||
|
COMBA_STORE(C->dp[110]);
|
||||||
|
/* 111 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[48], at[127]); MULADD(at[49], at[126]); MULADD(at[50], at[125]); MULADD(at[51], at[124]); MULADD(at[52], at[123]); MULADD(at[53], at[122]); MULADD(at[54], at[121]); MULADD(at[55], at[120]); MULADD(at[56], at[119]); MULADD(at[57], at[118]); MULADD(at[58], at[117]); MULADD(at[59], at[116]); MULADD(at[60], at[115]); MULADD(at[61], at[114]); MULADD(at[62], at[113]); MULADD(at[63], at[112]);
|
||||||
|
COMBA_STORE(C->dp[111]);
|
||||||
|
/* 112 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[49], at[127]); MULADD(at[50], at[126]); MULADD(at[51], at[125]); MULADD(at[52], at[124]); MULADD(at[53], at[123]); MULADD(at[54], at[122]); MULADD(at[55], at[121]); MULADD(at[56], at[120]); MULADD(at[57], at[119]); MULADD(at[58], at[118]); MULADD(at[59], at[117]); MULADD(at[60], at[116]); MULADD(at[61], at[115]); MULADD(at[62], at[114]); MULADD(at[63], at[113]);
|
||||||
|
COMBA_STORE(C->dp[112]);
|
||||||
|
/* 113 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[50], at[127]); MULADD(at[51], at[126]); MULADD(at[52], at[125]); MULADD(at[53], at[124]); MULADD(at[54], at[123]); MULADD(at[55], at[122]); MULADD(at[56], at[121]); MULADD(at[57], at[120]); MULADD(at[58], at[119]); MULADD(at[59], at[118]); MULADD(at[60], at[117]); MULADD(at[61], at[116]); MULADD(at[62], at[115]); MULADD(at[63], at[114]);
|
||||||
|
COMBA_STORE(C->dp[113]);
|
||||||
|
/* 114 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[51], at[127]); MULADD(at[52], at[126]); MULADD(at[53], at[125]); MULADD(at[54], at[124]); MULADD(at[55], at[123]); MULADD(at[56], at[122]); MULADD(at[57], at[121]); MULADD(at[58], at[120]); MULADD(at[59], at[119]); MULADD(at[60], at[118]); MULADD(at[61], at[117]); MULADD(at[62], at[116]); MULADD(at[63], at[115]);
|
||||||
|
COMBA_STORE(C->dp[114]);
|
||||||
|
/* 115 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[52], at[127]); MULADD(at[53], at[126]); MULADD(at[54], at[125]); MULADD(at[55], at[124]); MULADD(at[56], at[123]); MULADD(at[57], at[122]); MULADD(at[58], at[121]); MULADD(at[59], at[120]); MULADD(at[60], at[119]); MULADD(at[61], at[118]); MULADD(at[62], at[117]); MULADD(at[63], at[116]);
|
||||||
|
COMBA_STORE(C->dp[115]);
|
||||||
|
/* 116 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[53], at[127]); MULADD(at[54], at[126]); MULADD(at[55], at[125]); MULADD(at[56], at[124]); MULADD(at[57], at[123]); MULADD(at[58], at[122]); MULADD(at[59], at[121]); MULADD(at[60], at[120]); MULADD(at[61], at[119]); MULADD(at[62], at[118]); MULADD(at[63], at[117]);
|
||||||
|
COMBA_STORE(C->dp[116]);
|
||||||
|
/* 117 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[54], at[127]); MULADD(at[55], at[126]); MULADD(at[56], at[125]); MULADD(at[57], at[124]); MULADD(at[58], at[123]); MULADD(at[59], at[122]); MULADD(at[60], at[121]); MULADD(at[61], at[120]); MULADD(at[62], at[119]); MULADD(at[63], at[118]);
|
||||||
|
COMBA_STORE(C->dp[117]);
|
||||||
|
/* 118 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[55], at[127]); MULADD(at[56], at[126]); MULADD(at[57], at[125]); MULADD(at[58], at[124]); MULADD(at[59], at[123]); MULADD(at[60], at[122]); MULADD(at[61], at[121]); MULADD(at[62], at[120]); MULADD(at[63], at[119]);
|
||||||
|
COMBA_STORE(C->dp[118]);
|
||||||
|
/* 119 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[56], at[127]); MULADD(at[57], at[126]); MULADD(at[58], at[125]); MULADD(at[59], at[124]); MULADD(at[60], at[123]); MULADD(at[61], at[122]); MULADD(at[62], at[121]); MULADD(at[63], at[120]);
|
||||||
|
COMBA_STORE(C->dp[119]);
|
||||||
|
/* 120 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[57], at[127]); MULADD(at[58], at[126]); MULADD(at[59], at[125]); MULADD(at[60], at[124]); MULADD(at[61], at[123]); MULADD(at[62], at[122]); MULADD(at[63], at[121]);
|
||||||
|
COMBA_STORE(C->dp[120]);
|
||||||
|
/* 121 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[58], at[127]); MULADD(at[59], at[126]); MULADD(at[60], at[125]); MULADD(at[61], at[124]); MULADD(at[62], at[123]); MULADD(at[63], at[122]);
|
||||||
|
COMBA_STORE(C->dp[121]);
|
||||||
|
/* 122 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[59], at[127]); MULADD(at[60], at[126]); MULADD(at[61], at[125]); MULADD(at[62], at[124]); MULADD(at[63], at[123]);
|
||||||
|
COMBA_STORE(C->dp[122]);
|
||||||
|
/* 123 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[60], at[127]); MULADD(at[61], at[126]); MULADD(at[62], at[125]); MULADD(at[63], at[124]);
|
||||||
|
COMBA_STORE(C->dp[123]);
|
||||||
|
/* 124 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[61], at[127]); MULADD(at[62], at[126]); MULADD(at[63], at[125]);
|
||||||
|
COMBA_STORE(C->dp[124]);
|
||||||
|
/* 125 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[62], at[127]); MULADD(at[63], at[126]);
|
||||||
|
COMBA_STORE(C->dp[125]);
|
||||||
|
/* 126 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[63], at[127]);
|
||||||
|
COMBA_STORE(C->dp[126]);
|
||||||
|
COMBA_STORE2(C->dp[127]);
|
||||||
|
C->used = 128;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
71
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_7.c
Normal file
71
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_7.c
Normal file
@@ -0,0 +1,71 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL7
|
||||||
|
void fp_mul_comba7(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[14];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 7 * sizeof(fp_digit));
|
||||||
|
memcpy(at+7, B->dp, 7 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[7]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[8]); MULADD(at[1], at[7]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[9]); MULADD(at[1], at[8]); MULADD(at[2], at[7]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[10]); MULADD(at[1], at[9]); MULADD(at[2], at[8]); MULADD(at[3], at[7]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[11]); MULADD(at[1], at[10]); MULADD(at[2], at[9]); MULADD(at[3], at[8]); MULADD(at[4], at[7]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[12]); MULADD(at[1], at[11]); MULADD(at[2], at[10]); MULADD(at[3], at[9]); MULADD(at[4], at[8]); MULADD(at[5], at[7]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[13]); MULADD(at[1], at[12]); MULADD(at[2], at[11]); MULADD(at[3], at[10]); MULADD(at[4], at[9]); MULADD(at[5], at[8]); MULADD(at[6], at[7]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[13]); MULADD(at[2], at[12]); MULADD(at[3], at[11]); MULADD(at[4], at[10]); MULADD(at[5], at[9]); MULADD(at[6], at[8]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[13]); MULADD(at[3], at[12]); MULADD(at[4], at[11]); MULADD(at[5], at[10]); MULADD(at[6], at[9]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[13]); MULADD(at[4], at[12]); MULADD(at[5], at[11]); MULADD(at[6], at[10]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[13]); MULADD(at[5], at[12]); MULADD(at[6], at[11]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[13]); MULADD(at[6], at[12]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[13]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
COMBA_STORE2(C->dp[13]);
|
||||||
|
C->used = 14;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
79
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_8.c
Normal file
79
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_8.c
Normal file
@@ -0,0 +1,79 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL8
|
||||||
|
void fp_mul_comba8(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[16];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 8 * sizeof(fp_digit));
|
||||||
|
memcpy(at+8, B->dp, 8 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[8]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[9]); MULADD(at[1], at[8]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[10]); MULADD(at[1], at[9]); MULADD(at[2], at[8]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[11]); MULADD(at[1], at[10]); MULADD(at[2], at[9]); MULADD(at[3], at[8]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[12]); MULADD(at[1], at[11]); MULADD(at[2], at[10]); MULADD(at[3], at[9]); MULADD(at[4], at[8]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[13]); MULADD(at[1], at[12]); MULADD(at[2], at[11]); MULADD(at[3], at[10]); MULADD(at[4], at[9]); MULADD(at[5], at[8]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[14]); MULADD(at[1], at[13]); MULADD(at[2], at[12]); MULADD(at[3], at[11]); MULADD(at[4], at[10]); MULADD(at[5], at[9]); MULADD(at[6], at[8]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[15]); MULADD(at[1], at[14]); MULADD(at[2], at[13]); MULADD(at[3], at[12]); MULADD(at[4], at[11]); MULADD(at[5], at[10]); MULADD(at[6], at[9]); MULADD(at[7], at[8]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[15]); MULADD(at[2], at[14]); MULADD(at[3], at[13]); MULADD(at[4], at[12]); MULADD(at[5], at[11]); MULADD(at[6], at[10]); MULADD(at[7], at[9]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[15]); MULADD(at[3], at[14]); MULADD(at[4], at[13]); MULADD(at[5], at[12]); MULADD(at[6], at[11]); MULADD(at[7], at[10]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[15]); MULADD(at[4], at[14]); MULADD(at[5], at[13]); MULADD(at[6], at[12]); MULADD(at[7], at[11]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[15]); MULADD(at[5], at[14]); MULADD(at[6], at[13]); MULADD(at[7], at[12]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[15]); MULADD(at[6], at[14]); MULADD(at[7], at[13]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[15]); MULADD(at[7], at[14]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[15]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
COMBA_STORE2(C->dp[15]);
|
||||||
|
C->used = 16;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
87
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_9.c
Normal file
87
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_9.c
Normal file
@@ -0,0 +1,87 @@
|
|||||||
|
#define TFM_DEFINES
|
||||||
|
#include "fp_mul_comba.c"
|
||||||
|
|
||||||
|
#ifdef TFM_MUL9
|
||||||
|
void fp_mul_comba9(fp_int *A, fp_int *B, fp_int *C)
|
||||||
|
{
|
||||||
|
fp_digit c0, c1, c2, at[18];
|
||||||
|
|
||||||
|
memcpy(at, A->dp, 9 * sizeof(fp_digit));
|
||||||
|
memcpy(at+9, B->dp, 9 * sizeof(fp_digit));
|
||||||
|
COMBA_START;
|
||||||
|
|
||||||
|
COMBA_CLEAR;
|
||||||
|
/* 0 */
|
||||||
|
MULADD(at[0], at[9]);
|
||||||
|
COMBA_STORE(C->dp[0]);
|
||||||
|
/* 1 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[10]); MULADD(at[1], at[9]);
|
||||||
|
COMBA_STORE(C->dp[1]);
|
||||||
|
/* 2 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[11]); MULADD(at[1], at[10]); MULADD(at[2], at[9]);
|
||||||
|
COMBA_STORE(C->dp[2]);
|
||||||
|
/* 3 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[12]); MULADD(at[1], at[11]); MULADD(at[2], at[10]); MULADD(at[3], at[9]);
|
||||||
|
COMBA_STORE(C->dp[3]);
|
||||||
|
/* 4 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[13]); MULADD(at[1], at[12]); MULADD(at[2], at[11]); MULADD(at[3], at[10]); MULADD(at[4], at[9]);
|
||||||
|
COMBA_STORE(C->dp[4]);
|
||||||
|
/* 5 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[14]); MULADD(at[1], at[13]); MULADD(at[2], at[12]); MULADD(at[3], at[11]); MULADD(at[4], at[10]); MULADD(at[5], at[9]);
|
||||||
|
COMBA_STORE(C->dp[5]);
|
||||||
|
/* 6 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[15]); MULADD(at[1], at[14]); MULADD(at[2], at[13]); MULADD(at[3], at[12]); MULADD(at[4], at[11]); MULADD(at[5], at[10]); MULADD(at[6], at[9]);
|
||||||
|
COMBA_STORE(C->dp[6]);
|
||||||
|
/* 7 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[16]); MULADD(at[1], at[15]); MULADD(at[2], at[14]); MULADD(at[3], at[13]); MULADD(at[4], at[12]); MULADD(at[5], at[11]); MULADD(at[6], at[10]); MULADD(at[7], at[9]);
|
||||||
|
COMBA_STORE(C->dp[7]);
|
||||||
|
/* 8 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[0], at[17]); MULADD(at[1], at[16]); MULADD(at[2], at[15]); MULADD(at[3], at[14]); MULADD(at[4], at[13]); MULADD(at[5], at[12]); MULADD(at[6], at[11]); MULADD(at[7], at[10]); MULADD(at[8], at[9]);
|
||||||
|
COMBA_STORE(C->dp[8]);
|
||||||
|
/* 9 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[1], at[17]); MULADD(at[2], at[16]); MULADD(at[3], at[15]); MULADD(at[4], at[14]); MULADD(at[5], at[13]); MULADD(at[6], at[12]); MULADD(at[7], at[11]); MULADD(at[8], at[10]);
|
||||||
|
COMBA_STORE(C->dp[9]);
|
||||||
|
/* 10 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[2], at[17]); MULADD(at[3], at[16]); MULADD(at[4], at[15]); MULADD(at[5], at[14]); MULADD(at[6], at[13]); MULADD(at[7], at[12]); MULADD(at[8], at[11]);
|
||||||
|
COMBA_STORE(C->dp[10]);
|
||||||
|
/* 11 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[3], at[17]); MULADD(at[4], at[16]); MULADD(at[5], at[15]); MULADD(at[6], at[14]); MULADD(at[7], at[13]); MULADD(at[8], at[12]);
|
||||||
|
COMBA_STORE(C->dp[11]);
|
||||||
|
/* 12 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[4], at[17]); MULADD(at[5], at[16]); MULADD(at[6], at[15]); MULADD(at[7], at[14]); MULADD(at[8], at[13]);
|
||||||
|
COMBA_STORE(C->dp[12]);
|
||||||
|
/* 13 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[5], at[17]); MULADD(at[6], at[16]); MULADD(at[7], at[15]); MULADD(at[8], at[14]);
|
||||||
|
COMBA_STORE(C->dp[13]);
|
||||||
|
/* 14 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[6], at[17]); MULADD(at[7], at[16]); MULADD(at[8], at[15]);
|
||||||
|
COMBA_STORE(C->dp[14]);
|
||||||
|
/* 15 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[7], at[17]); MULADD(at[8], at[16]);
|
||||||
|
COMBA_STORE(C->dp[15]);
|
||||||
|
/* 16 */
|
||||||
|
COMBA_FORWARD;
|
||||||
|
MULADD(at[8], at[17]);
|
||||||
|
COMBA_STORE(C->dp[16]);
|
||||||
|
COMBA_STORE2(C->dp[17]);
|
||||||
|
C->used = 18;
|
||||||
|
C->sign = A->sign ^ B->sign;
|
||||||
|
fp_clamp(C);
|
||||||
|
COMBA_FINI;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
1228
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_small_set.c
Normal file
1228
lib/hcrypto/tomsfastmath/src/mul/fp_mul_comba_small_set.c
Normal file
File diff suppressed because it is too large
Load Diff
40
lib/hcrypto/tomsfastmath/src/mul/fp_mul_d.c
Normal file
40
lib/hcrypto/tomsfastmath/src/mul/fp_mul_d.c
Normal file
@@ -0,0 +1,40 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = a * b */
|
||||||
|
void fp_mul_d(fp_int *a, fp_digit b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_word w;
|
||||||
|
int x, oldused;
|
||||||
|
|
||||||
|
oldused = c->used;
|
||||||
|
c->used = a->used;
|
||||||
|
c->sign = a->sign;
|
||||||
|
w = 0;
|
||||||
|
for (x = 0; x < a->used; x++) {
|
||||||
|
w = ((fp_word)a->dp[x]) * ((fp_word)b) + w;
|
||||||
|
c->dp[x] = (fp_digit)w;
|
||||||
|
w = w >> DIGIT_BIT;
|
||||||
|
}
|
||||||
|
if (w != 0 && (a->used != FP_SIZE)) {
|
||||||
|
c->dp[c->used++] = w;
|
||||||
|
++x;
|
||||||
|
}
|
||||||
|
for (; x < oldused; x++) {
|
||||||
|
c->dp[x] = 0;
|
||||||
|
}
|
||||||
|
fp_clamp(c);
|
||||||
|
}
|
||||||
|
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mul_d.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
22
lib/hcrypto/tomsfastmath/src/mul/fp_mulmod.c
Normal file
22
lib/hcrypto/tomsfastmath/src/mul/fp_mulmod.c
Normal file
@@ -0,0 +1,22 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
/* d = a * b (mod c) */
|
||||||
|
int fp_mulmod(fp_int *a, fp_int *b, fp_int *c, fp_int *d)
|
||||||
|
{
|
||||||
|
fp_int tmp;
|
||||||
|
fp_zero(&tmp);
|
||||||
|
fp_mul(a, b, &tmp);
|
||||||
|
return fp_mod(&tmp, c, d);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/mul/fp_mulmod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2006/12/31 21:25:53 $ */
|
||||||
58
lib/hcrypto/tomsfastmath/src/numtheory/fp_gcd.c
Normal file
58
lib/hcrypto/tomsfastmath/src/numtheory/fp_gcd.c
Normal file
@@ -0,0 +1,58 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
/* c = (a, b) */
|
||||||
|
void fp_gcd(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int u, v, r;
|
||||||
|
|
||||||
|
|
||||||
|
/* either zero than gcd is the largest */
|
||||||
|
if (fp_iszero (a) == 1 && fp_iszero (b) == 0) {
|
||||||
|
fp_abs (b, c);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
if (fp_iszero (a) == 0 && fp_iszero (b) == 1) {
|
||||||
|
fp_abs (a, c);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* optimized. At this point if a == 0 then
|
||||||
|
* b must equal zero too
|
||||||
|
*/
|
||||||
|
if (fp_iszero (a) == 1) {
|
||||||
|
fp_zero(c);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* sort inputs */
|
||||||
|
if (fp_cmp_mag(a, b) != FP_LT) {
|
||||||
|
fp_init_copy(&u, a);
|
||||||
|
fp_init_copy(&v, b);
|
||||||
|
} else {
|
||||||
|
fp_init_copy(&u, b);
|
||||||
|
fp_init_copy(&v, a);
|
||||||
|
}
|
||||||
|
|
||||||
|
fp_zero(&r);
|
||||||
|
while (fp_iszero(&v) == FP_NO) {
|
||||||
|
fp_mod(&u, &v, &r);
|
||||||
|
fp_copy(&v, &u);
|
||||||
|
fp_copy(&r, &v);
|
||||||
|
}
|
||||||
|
fp_copy(&u, c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/numtheory/fp_gcd.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2007/01/24 21:25:19 $ */
|
||||||
207
lib/hcrypto/tomsfastmath/src/numtheory/fp_invmod.c
Normal file
207
lib/hcrypto/tomsfastmath/src/numtheory/fp_invmod.c
Normal file
@@ -0,0 +1,207 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
static int fp_invmod_slow (fp_int * a, fp_int * b, fp_int * c)
|
||||||
|
{
|
||||||
|
fp_int x, y, u, v, A, B, C, D;
|
||||||
|
int res;
|
||||||
|
|
||||||
|
/* b cannot be negative */
|
||||||
|
if (b->sign == FP_NEG || fp_iszero(b) == 1) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* init temps */
|
||||||
|
fp_init(&x); fp_init(&y);
|
||||||
|
fp_init(&u); fp_init(&v);
|
||||||
|
fp_init(&A); fp_init(&B);
|
||||||
|
fp_init(&C); fp_init(&D);
|
||||||
|
|
||||||
|
/* x = a, y = b */
|
||||||
|
if ((res = fp_mod(a, b, &x)) != FP_OKAY) {
|
||||||
|
return res;
|
||||||
|
}
|
||||||
|
fp_copy(b, &y);
|
||||||
|
|
||||||
|
/* 2. [modified] if x,y are both even then return an error! */
|
||||||
|
if (fp_iseven (&x) == 1 && fp_iseven (&y) == 1) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 3. u=x, v=y, A=1, B=0, C=0,D=1 */
|
||||||
|
fp_copy (&x, &u);
|
||||||
|
fp_copy (&y, &v);
|
||||||
|
fp_set (&A, 1);
|
||||||
|
fp_set (&D, 1);
|
||||||
|
|
||||||
|
top:
|
||||||
|
/* 4. while u is even do */
|
||||||
|
while (fp_iseven (&u) == 1) {
|
||||||
|
/* 4.1 u = u/2 */
|
||||||
|
fp_div_2 (&u, &u);
|
||||||
|
|
||||||
|
/* 4.2 if A or B is odd then */
|
||||||
|
if (fp_isodd (&A) == 1 || fp_isodd (&B) == 1) {
|
||||||
|
/* A = (A+y)/2, B = (B-x)/2 */
|
||||||
|
fp_add (&A, &y, &A);
|
||||||
|
fp_sub (&B, &x, &B);
|
||||||
|
}
|
||||||
|
/* A = A/2, B = B/2 */
|
||||||
|
fp_div_2 (&A, &A);
|
||||||
|
fp_div_2 (&B, &B);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 5. while v is even do */
|
||||||
|
while (fp_iseven (&v) == 1) {
|
||||||
|
/* 5.1 v = v/2 */
|
||||||
|
fp_div_2 (&v, &v);
|
||||||
|
|
||||||
|
/* 5.2 if C or D is odd then */
|
||||||
|
if (fp_isodd (&C) == 1 || fp_isodd (&D) == 1) {
|
||||||
|
/* C = (C+y)/2, D = (D-x)/2 */
|
||||||
|
fp_add (&C, &y, &C);
|
||||||
|
fp_sub (&D, &x, &D);
|
||||||
|
}
|
||||||
|
/* C = C/2, D = D/2 */
|
||||||
|
fp_div_2 (&C, &C);
|
||||||
|
fp_div_2 (&D, &D);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 6. if u >= v then */
|
||||||
|
if (fp_cmp (&u, &v) != FP_LT) {
|
||||||
|
/* u = u - v, A = A - C, B = B - D */
|
||||||
|
fp_sub (&u, &v, &u);
|
||||||
|
fp_sub (&A, &C, &A);
|
||||||
|
fp_sub (&B, &D, &B);
|
||||||
|
} else {
|
||||||
|
/* v - v - u, C = C - A, D = D - B */
|
||||||
|
fp_sub (&v, &u, &v);
|
||||||
|
fp_sub (&C, &A, &C);
|
||||||
|
fp_sub (&D, &B, &D);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if not zero goto step 4 */
|
||||||
|
if (fp_iszero (&u) == 0)
|
||||||
|
goto top;
|
||||||
|
|
||||||
|
/* now a = C, b = D, gcd == g*v */
|
||||||
|
|
||||||
|
/* if v != 1 then there is no inverse */
|
||||||
|
if (fp_cmp_d (&v, 1) != FP_EQ) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if its too low */
|
||||||
|
while (fp_cmp_d(&C, 0) == FP_LT) {
|
||||||
|
fp_add(&C, b, &C);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* too big */
|
||||||
|
while (fp_cmp_mag(&C, b) != FP_LT) {
|
||||||
|
fp_sub(&C, b, &C);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* C is now the inverse */
|
||||||
|
fp_copy(&C, c);
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* c = 1/a (mod b) for odd b only */
|
||||||
|
int fp_invmod(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int x, y, u, v, B, D;
|
||||||
|
int neg;
|
||||||
|
|
||||||
|
/* 2. [modified] b must be odd */
|
||||||
|
if (fp_iseven (b) == FP_YES) {
|
||||||
|
return fp_invmod_slow(a,b,c);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* init all our temps */
|
||||||
|
fp_init(&x); fp_init(&y);
|
||||||
|
fp_init(&u); fp_init(&v);
|
||||||
|
fp_init(&B); fp_init(&D);
|
||||||
|
|
||||||
|
/* x == modulus, y == value to invert */
|
||||||
|
fp_copy(b, &x);
|
||||||
|
|
||||||
|
/* we need y = |a| */
|
||||||
|
fp_abs(a, &y);
|
||||||
|
|
||||||
|
/* 3. u=x, v=y, A=1, B=0, C=0,D=1 */
|
||||||
|
fp_copy(&x, &u);
|
||||||
|
fp_copy(&y, &v);
|
||||||
|
fp_set (&D, 1);
|
||||||
|
|
||||||
|
top:
|
||||||
|
/* 4. while u is even do */
|
||||||
|
while (fp_iseven (&u) == FP_YES) {
|
||||||
|
/* 4.1 u = u/2 */
|
||||||
|
fp_div_2 (&u, &u);
|
||||||
|
|
||||||
|
/* 4.2 if B is odd then */
|
||||||
|
if (fp_isodd (&B) == FP_YES) {
|
||||||
|
fp_sub (&B, &x, &B);
|
||||||
|
}
|
||||||
|
/* B = B/2 */
|
||||||
|
fp_div_2 (&B, &B);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 5. while v is even do */
|
||||||
|
while (fp_iseven (&v) == FP_YES) {
|
||||||
|
/* 5.1 v = v/2 */
|
||||||
|
fp_div_2 (&v, &v);
|
||||||
|
|
||||||
|
/* 5.2 if D is odd then */
|
||||||
|
if (fp_isodd (&D) == FP_YES) {
|
||||||
|
/* D = (D-x)/2 */
|
||||||
|
fp_sub (&D, &x, &D);
|
||||||
|
}
|
||||||
|
/* D = D/2 */
|
||||||
|
fp_div_2 (&D, &D);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* 6. if u >= v then */
|
||||||
|
if (fp_cmp (&u, &v) != FP_LT) {
|
||||||
|
/* u = u - v, B = B - D */
|
||||||
|
fp_sub (&u, &v, &u);
|
||||||
|
fp_sub (&B, &D, &B);
|
||||||
|
} else {
|
||||||
|
/* v - v - u, D = D - B */
|
||||||
|
fp_sub (&v, &u, &v);
|
||||||
|
fp_sub (&D, &B, &D);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* if not zero goto step 4 */
|
||||||
|
if (fp_iszero (&u) == FP_NO) {
|
||||||
|
goto top;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now a = C, b = D, gcd == g*v */
|
||||||
|
|
||||||
|
/* if v != 1 then there is no inverse */
|
||||||
|
if (fp_cmp_d (&v, 1) != FP_EQ) {
|
||||||
|
return FP_VAL;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* b is now the inverse */
|
||||||
|
neg = a->sign;
|
||||||
|
while (D.sign == FP_NEG) {
|
||||||
|
fp_add (&D, b, &D);
|
||||||
|
}
|
||||||
|
fp_copy (&D, c);
|
||||||
|
c->sign = neg;
|
||||||
|
return FP_OKAY;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/numtheory/fp_invmod.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2007/01/24 21:25:19 $ */
|
||||||
79
lib/hcrypto/tomsfastmath/src/numtheory/fp_isprime.c
Normal file
79
lib/hcrypto/tomsfastmath/src/numtheory/fp_isprime.c
Normal file
@@ -0,0 +1,79 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* a few primes */
|
||||||
|
static const fp_digit primes[256] = {
|
||||||
|
0x0002, 0x0003, 0x0005, 0x0007, 0x000B, 0x000D, 0x0011, 0x0013,
|
||||||
|
0x0017, 0x001D, 0x001F, 0x0025, 0x0029, 0x002B, 0x002F, 0x0035,
|
||||||
|
0x003B, 0x003D, 0x0043, 0x0047, 0x0049, 0x004F, 0x0053, 0x0059,
|
||||||
|
0x0061, 0x0065, 0x0067, 0x006B, 0x006D, 0x0071, 0x007F, 0x0083,
|
||||||
|
0x0089, 0x008B, 0x0095, 0x0097, 0x009D, 0x00A3, 0x00A7, 0x00AD,
|
||||||
|
0x00B3, 0x00B5, 0x00BF, 0x00C1, 0x00C5, 0x00C7, 0x00D3, 0x00DF,
|
||||||
|
0x00E3, 0x00E5, 0x00E9, 0x00EF, 0x00F1, 0x00FB, 0x0101, 0x0107,
|
||||||
|
0x010D, 0x010F, 0x0115, 0x0119, 0x011B, 0x0125, 0x0133, 0x0137,
|
||||||
|
|
||||||
|
0x0139, 0x013D, 0x014B, 0x0151, 0x015B, 0x015D, 0x0161, 0x0167,
|
||||||
|
0x016F, 0x0175, 0x017B, 0x017F, 0x0185, 0x018D, 0x0191, 0x0199,
|
||||||
|
0x01A3, 0x01A5, 0x01AF, 0x01B1, 0x01B7, 0x01BB, 0x01C1, 0x01C9,
|
||||||
|
0x01CD, 0x01CF, 0x01D3, 0x01DF, 0x01E7, 0x01EB, 0x01F3, 0x01F7,
|
||||||
|
0x01FD, 0x0209, 0x020B, 0x021D, 0x0223, 0x022D, 0x0233, 0x0239,
|
||||||
|
0x023B, 0x0241, 0x024B, 0x0251, 0x0257, 0x0259, 0x025F, 0x0265,
|
||||||
|
0x0269, 0x026B, 0x0277, 0x0281, 0x0283, 0x0287, 0x028D, 0x0293,
|
||||||
|
0x0295, 0x02A1, 0x02A5, 0x02AB, 0x02B3, 0x02BD, 0x02C5, 0x02CF,
|
||||||
|
|
||||||
|
0x02D7, 0x02DD, 0x02E3, 0x02E7, 0x02EF, 0x02F5, 0x02F9, 0x0301,
|
||||||
|
0x0305, 0x0313, 0x031D, 0x0329, 0x032B, 0x0335, 0x0337, 0x033B,
|
||||||
|
0x033D, 0x0347, 0x0355, 0x0359, 0x035B, 0x035F, 0x036D, 0x0371,
|
||||||
|
0x0373, 0x0377, 0x038B, 0x038F, 0x0397, 0x03A1, 0x03A9, 0x03AD,
|
||||||
|
0x03B3, 0x03B9, 0x03C7, 0x03CB, 0x03D1, 0x03D7, 0x03DF, 0x03E5,
|
||||||
|
0x03F1, 0x03F5, 0x03FB, 0x03FD, 0x0407, 0x0409, 0x040F, 0x0419,
|
||||||
|
0x041B, 0x0425, 0x0427, 0x042D, 0x043F, 0x0443, 0x0445, 0x0449,
|
||||||
|
0x044F, 0x0455, 0x045D, 0x0463, 0x0469, 0x047F, 0x0481, 0x048B,
|
||||||
|
|
||||||
|
0x0493, 0x049D, 0x04A3, 0x04A9, 0x04B1, 0x04BD, 0x04C1, 0x04C7,
|
||||||
|
0x04CD, 0x04CF, 0x04D5, 0x04E1, 0x04EB, 0x04FD, 0x04FF, 0x0503,
|
||||||
|
0x0509, 0x050B, 0x0511, 0x0515, 0x0517, 0x051B, 0x0527, 0x0529,
|
||||||
|
0x052F, 0x0551, 0x0557, 0x055D, 0x0565, 0x0577, 0x0581, 0x058F,
|
||||||
|
0x0593, 0x0595, 0x0599, 0x059F, 0x05A7, 0x05AB, 0x05AD, 0x05B3,
|
||||||
|
0x05BF, 0x05C9, 0x05CB, 0x05CF, 0x05D1, 0x05D5, 0x05DB, 0x05E7,
|
||||||
|
0x05F3, 0x05FB, 0x0607, 0x060D, 0x0611, 0x0617, 0x061F, 0x0623,
|
||||||
|
0x062B, 0x062F, 0x063D, 0x0641, 0x0647, 0x0649, 0x064D, 0x0653
|
||||||
|
};
|
||||||
|
|
||||||
|
int fp_isprime(fp_int *a)
|
||||||
|
{
|
||||||
|
fp_int b;
|
||||||
|
fp_digit d;
|
||||||
|
int r, res;
|
||||||
|
|
||||||
|
/* do trial division */
|
||||||
|
for (r = 0; r < 256; r++) {
|
||||||
|
fp_mod_d(a, primes[r], &d);
|
||||||
|
if (d == 0) {
|
||||||
|
return FP_NO;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* now do 8 miller rabins */
|
||||||
|
fp_init(&b);
|
||||||
|
for (r = 0; r < 128; r++) {
|
||||||
|
fp_set(&b, primes[r]);
|
||||||
|
fp_prime_miller_rabin(a, &b, &res);
|
||||||
|
if (res == FP_NO) {
|
||||||
|
return FP_NO;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
return FP_YES;
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/numtheory/fp_isprime.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2007/01/24 21:25:19 $ */
|
||||||
32
lib/hcrypto/tomsfastmath/src/numtheory/fp_lcm.c
Normal file
32
lib/hcrypto/tomsfastmath/src/numtheory/fp_lcm.c
Normal file
@@ -0,0 +1,32 @@
|
|||||||
|
/* TomsFastMath, a fast ISO C bignum library.
|
||||||
|
*
|
||||||
|
* This project is meant to fill in where LibTomMath
|
||||||
|
* falls short. That is speed ;-)
|
||||||
|
*
|
||||||
|
* This project is public domain and free for all purposes.
|
||||||
|
*
|
||||||
|
* Tom St Denis, tomstdenis@gmail.com
|
||||||
|
*/
|
||||||
|
#include <tfm.h>
|
||||||
|
|
||||||
|
/* c = [a, b] */
|
||||||
|
void fp_lcm(fp_int *a, fp_int *b, fp_int *c)
|
||||||
|
{
|
||||||
|
fp_int t1, t2;
|
||||||
|
|
||||||
|
|
||||||
|
fp_init(&t1);
|
||||||
|
fp_init(&t2);
|
||||||
|
fp_gcd(a, b, &t1);
|
||||||
|
if (fp_cmp_mag(a, b) == FP_GT) {
|
||||||
|
fp_div(a, &t1, &t2, NULL);
|
||||||
|
fp_mul(b, &t2, c);
|
||||||
|
} else {
|
||||||
|
fp_div(b, &t1, &t2, NULL);
|
||||||
|
fp_mul(a, &t2, c);
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
/* $Source: /cvs/libtom/tomsfastmath/src/numtheory/fp_lcm.c,v $ */
|
||||||
|
/* $Revision: 1.1 $ */
|
||||||
|
/* $Date: 2007/01/24 21:25:19 $ */
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Reference in New Issue
Block a user