diff options
Diffstat (limited to 'src/lib/libcrypto/bn')
-rw-r--r-- | src/lib/libcrypto/bn/Makefile | 347 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/asm/README | 27 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/asm/mips3-mont.pl | 327 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/asm/mips3.s | 2201 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/asm/vms.mar | 6440 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/asm/x86/f | 3 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn.h | 18 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn.mul | 19 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_exp2.c | 3 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_gf2m.c | 1 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_mont.c | 2 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_mul.c | 9 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_nist.c | 64 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bn_x931p.c | 272 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bnspeed.c | 233 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/bntest.c | 2013 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/divtest.c | 41 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/exp.c | 62 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/expspeed.c | 353 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/exptest.c | 204 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/todo | 3 | ||||
-rw-r--r-- | src/lib/libcrypto/bn/vms-helper.c | 68 |
22 files changed, 12378 insertions, 332 deletions
diff --git a/src/lib/libcrypto/bn/Makefile b/src/lib/libcrypto/bn/Makefile new file mode 100644 index 0000000000..aabc4f56b8 --- /dev/null +++ b/src/lib/libcrypto/bn/Makefile | |||
@@ -0,0 +1,347 @@ | |||
1 | # | ||
2 | # OpenSSL/crypto/bn/Makefile | ||
3 | # | ||
4 | |||
5 | DIR= bn | ||
6 | TOP= ../.. | ||
7 | CC= cc | ||
8 | CPP= $(CC) -E | ||
9 | INCLUDES= -I.. -I$(TOP) -I../../include | ||
10 | CFLAG=-g | ||
11 | MAKEFILE= Makefile | ||
12 | AR= ar r | ||
13 | |||
14 | BN_ASM= bn_asm.o | ||
15 | |||
16 | CFLAGS= $(INCLUDES) $(CFLAG) | ||
17 | ASFLAGS= $(INCLUDES) $(ASFLAG) | ||
18 | AFLAGS= $(ASFLAGS) | ||
19 | |||
20 | GENERAL=Makefile | ||
21 | TEST=bntest.c exptest.c | ||
22 | APPS= | ||
23 | |||
24 | LIB=$(TOP)/libcrypto.a | ||
25 | LIBSRC= bn_add.c bn_div.c bn_exp.c bn_lib.c bn_ctx.c bn_mul.c bn_mod.c \ | ||
26 | bn_print.c bn_rand.c bn_shift.c bn_word.c bn_blind.c \ | ||
27 | bn_kron.c bn_sqrt.c bn_gcd.c bn_prime.c bn_err.c bn_sqr.c bn_asm.c \ | ||
28 | bn_recp.c bn_mont.c bn_mpi.c bn_exp2.c bn_gf2m.c bn_nist.c \ | ||
29 | bn_depr.c bn_const.c | ||
30 | |||
31 | LIBOBJ= bn_add.o bn_div.o bn_exp.o bn_lib.o bn_ctx.o bn_mul.o bn_mod.o \ | ||
32 | bn_print.o bn_rand.o bn_shift.o bn_word.o bn_blind.o \ | ||
33 | bn_kron.o bn_sqrt.o bn_gcd.o bn_prime.o bn_err.o bn_sqr.o $(BN_ASM) \ | ||
34 | bn_recp.o bn_mont.o bn_mpi.o bn_exp2.o bn_gf2m.o bn_nist.o \ | ||
35 | bn_depr.o bn_const.o | ||
36 | |||
37 | SRC= $(LIBSRC) | ||
38 | |||
39 | EXHEADER= bn.h | ||
40 | HEADER= bn_lcl.h bn_prime.h $(EXHEADER) | ||
41 | |||
42 | ALL= $(GENERAL) $(SRC) $(HEADER) | ||
43 | |||
44 | top: | ||
45 | (cd ../..; $(MAKE) DIRS=crypto SDIRS=$(DIR) sub_all) | ||
46 | |||
47 | all: lib | ||
48 | |||
49 | bn_prime.h: bn_prime.pl | ||
50 | $(PERL) bn_prime.pl >bn_prime.h | ||
51 | |||
52 | divtest: divtest.c ../../libcrypto.a | ||
53 | cc -I../../include divtest.c -o divtest ../../libcrypto.a | ||
54 | |||
55 | bnbug: bnbug.c ../../libcrypto.a top | ||
56 | cc -g -I../../include bnbug.c -o bnbug ../../libcrypto.a | ||
57 | |||
58 | lib: $(LIBOBJ) | ||
59 | $(AR) $(LIB) $(LIBOBJ) | ||
60 | $(RANLIB) $(LIB) || echo Never mind. | ||
61 | @touch lib | ||
62 | |||
63 | bn-586.s: asm/bn-586.pl ../perlasm/x86asm.pl | ||
64 | $(PERL) asm/bn-586.pl $(PERLASM_SCHEME) $(CFLAGS) $(PROCESSOR) > $@ | ||
65 | co-586.s: asm/co-586.pl ../perlasm/x86asm.pl | ||
66 | $(PERL) asm/co-586.pl $(PERLASM_SCHEME) $(CFLAGS) $(PROCESSOR) > $@ | ||
67 | x86-mont.s: asm/x86-mont.pl ../perlasm/x86asm.pl | ||
68 | $(PERL) asm/x86-mont.pl $(PERLASM_SCHEME) $(CFLAGS) $(PROCESSOR) > $@ | ||
69 | |||
70 | sparcv8.o: asm/sparcv8.S | ||
71 | $(CC) $(CFLAGS) -c asm/sparcv8.S | ||
72 | bn-sparcv9.o: asm/sparcv8plus.S | ||
73 | $(CC) $(CFLAGS) -c -o $@ asm/sparcv8plus.S | ||
74 | sparcv9a-mont.s: asm/sparcv9a-mont.pl | ||
75 | $(PERL) asm/sparcv9a-mont.pl $(CFLAGS) > $@ | ||
76 | sparcv9-mont.s: asm/sparcv9-mont.pl | ||
77 | $(PERL) asm/sparcv9-mont.pl $(CFLAGS) > $@ | ||
78 | |||
79 | bn-mips3.o: asm/mips3.s | ||
80 | @if [ "$(CC)" = "gcc" ]; then \ | ||
81 | ABI=`expr "$(CFLAGS)" : ".*-mabi=\([n3264]*\)"` && \ | ||
82 | as -$$ABI -O -o $@ asm/mips3.s; \ | ||
83 | else $(CC) -c $(CFLAGS) -o $@ asm/mips3.s; fi | ||
84 | |||
85 | bn-s390x.o: asm/s390x.S | ||
86 | $(CC) $(CFLAGS) -c -o $@ asm/s390x.S | ||
87 | |||
88 | x86_64-gcc.o: asm/x86_64-gcc.c | ||
89 | $(CC) $(CFLAGS) -c -o $@ asm/x86_64-gcc.c | ||
90 | x86_64-mont.s: asm/x86_64-mont.pl | ||
91 | $(PERL) asm/x86_64-mont.pl $(PERLASM_SCHEME) > $@ | ||
92 | |||
93 | bn-ia64.s: asm/ia64.S | ||
94 | $(CC) $(CFLAGS) -E asm/ia64.S > $@ | ||
95 | |||
96 | # GNU assembler fails to compile PA-RISC2 modules, insist on calling | ||
97 | # vendor assembler... | ||
98 | pa-risc2W.o: asm/pa-risc2W.s | ||
99 | /usr/ccs/bin/as -o pa-risc2W.o asm/pa-risc2W.s | ||
100 | pa-risc2.o: asm/pa-risc2.s | ||
101 | /usr/ccs/bin/as -o pa-risc2.o asm/pa-risc2.s | ||
102 | |||
103 | # ppc - AIX, Linux, MacOS X... | ||
104 | bn-ppc.s: asm/ppc.pl; $(PERL) asm/ppc.pl $(PERLASM_SCHEME) $@ | ||
105 | ppc-mont.s: asm/ppc-mont.pl;$(PERL) asm/ppc-mont.pl $(PERLASM_SCHEME) $@ | ||
106 | |||
107 | alpha-mont.s: asm/alpha-mont.pl | ||
108 | $(PERL) $< | $(CC) -E - | tee $@ > /dev/null | ||
109 | |||
110 | # GNU make "catch all" | ||
111 | %-mont.s: asm/%-mont.pl; $(PERL) $< $(CFLAGS) > $@ | ||
112 | |||
113 | files: | ||
114 | $(PERL) $(TOP)/util/files.pl Makefile >> $(TOP)/MINFO | ||
115 | |||
116 | links: | ||
117 | @$(PERL) $(TOP)/util/mklink.pl ../../include/openssl $(EXHEADER) | ||
118 | @$(PERL) $(TOP)/util/mklink.pl ../../test $(TEST) | ||
119 | @$(PERL) $(TOP)/util/mklink.pl ../../apps $(APPS) | ||
120 | |||
121 | install: | ||
122 | @[ -n "$(INSTALLTOP)" ] # should be set by top Makefile... | ||
123 | @headerlist="$(EXHEADER)"; for i in $$headerlist ; \ | ||
124 | do \ | ||
125 | (cp $$i $(INSTALL_PREFIX)$(INSTALLTOP)/include/openssl/$$i; \ | ||
126 | chmod 644 $(INSTALL_PREFIX)$(INSTALLTOP)/include/openssl/$$i ); \ | ||
127 | done; | ||
128 | |||
129 | exptest: | ||
130 | rm -f exptest | ||
131 | gcc -I../../include -g2 -ggdb -o exptest exptest.c ../../libcrypto.a | ||
132 | |||
133 | div: | ||
134 | rm -f a.out | ||
135 | gcc -I.. -g div.c ../../libcrypto.a | ||
136 | |||
137 | tags: | ||
138 | ctags $(SRC) | ||
139 | |||
140 | tests: | ||
141 | |||
142 | lint: | ||
143 | lint -DLINT $(INCLUDES) $(SRC)>fluff | ||
144 | |||
145 | depend: | ||
146 | @[ -n "$(MAKEDEPEND)" ] # should be set by upper Makefile... | ||
147 | $(MAKEDEPEND) -- $(CFLAG) $(INCLUDES) $(DEPFLAG) -- $(PROGS) $(LIBSRC) | ||
148 | |||
149 | dclean: | ||
150 | $(PERL) -pe 'if (/^# DO NOT DELETE THIS LINE/) {print; exit(0);}' $(MAKEFILE) >Makefile.new | ||
151 | mv -f Makefile.new $(MAKEFILE) | ||
152 | |||
153 | clean: | ||
154 | rm -f *.s *.o *.obj lib tags core .pure .nfs* *.old *.bak fluff | ||
155 | |||
156 | # DO NOT DELETE THIS LINE -- make depend depends on it. | ||
157 | |||
158 | bn_add.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
159 | bn_add.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
160 | bn_add.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
161 | bn_add.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
162 | bn_add.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
163 | bn_add.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
164 | bn_add.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_add.c bn_lcl.h | ||
165 | bn_asm.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
166 | bn_asm.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
167 | bn_asm.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
168 | bn_asm.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
169 | bn_asm.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
170 | bn_asm.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
171 | bn_asm.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_asm.c bn_lcl.h | ||
172 | bn_blind.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
173 | bn_blind.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
174 | bn_blind.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
175 | bn_blind.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
176 | bn_blind.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
177 | bn_blind.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
178 | bn_blind.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_blind.c bn_lcl.h | ||
179 | bn_const.o: ../../include/openssl/crypto.h ../../include/openssl/e_os2.h | ||
180 | bn_const.o: ../../include/openssl/opensslconf.h | ||
181 | bn_const.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
182 | bn_const.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
183 | bn_const.o: ../../include/openssl/symhacks.h bn.h bn_const.c | ||
184 | bn_ctx.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
185 | bn_ctx.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
186 | bn_ctx.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
187 | bn_ctx.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
188 | bn_ctx.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
189 | bn_ctx.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
190 | bn_ctx.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_ctx.c bn_lcl.h | ||
191 | bn_depr.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
192 | bn_depr.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
193 | bn_depr.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
194 | bn_depr.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
195 | bn_depr.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
196 | bn_depr.o: ../../include/openssl/rand.h ../../include/openssl/safestack.h | ||
197 | bn_depr.o: ../../include/openssl/stack.h ../../include/openssl/symhacks.h | ||
198 | bn_depr.o: ../cryptlib.h bn_depr.c bn_lcl.h | ||
199 | bn_div.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
200 | bn_div.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
201 | bn_div.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
202 | bn_div.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
203 | bn_div.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
204 | bn_div.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
205 | bn_div.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_div.c bn_lcl.h | ||
206 | bn_err.o: ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
207 | bn_err.o: ../../include/openssl/crypto.h ../../include/openssl/e_os2.h | ||
208 | bn_err.o: ../../include/openssl/err.h ../../include/openssl/lhash.h | ||
209 | bn_err.o: ../../include/openssl/opensslconf.h ../../include/openssl/opensslv.h | ||
210 | bn_err.o: ../../include/openssl/ossl_typ.h ../../include/openssl/safestack.h | ||
211 | bn_err.o: ../../include/openssl/stack.h ../../include/openssl/symhacks.h | ||
212 | bn_err.o: bn_err.c | ||
213 | bn_exp.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
214 | bn_exp.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
215 | bn_exp.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
216 | bn_exp.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
217 | bn_exp.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
218 | bn_exp.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
219 | bn_exp.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_exp.c bn_lcl.h | ||
220 | bn_exp2.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
221 | bn_exp2.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
222 | bn_exp2.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
223 | bn_exp2.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
224 | bn_exp2.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
225 | bn_exp2.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
226 | bn_exp2.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_exp2.c bn_lcl.h | ||
227 | bn_gcd.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
228 | bn_gcd.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
229 | bn_gcd.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
230 | bn_gcd.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
231 | bn_gcd.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
232 | bn_gcd.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
233 | bn_gcd.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_gcd.c bn_lcl.h | ||
234 | bn_gf2m.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
235 | bn_gf2m.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
236 | bn_gf2m.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
237 | bn_gf2m.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
238 | bn_gf2m.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
239 | bn_gf2m.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
240 | bn_gf2m.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_gf2m.c bn_lcl.h | ||
241 | bn_kron.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
242 | bn_kron.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
243 | bn_kron.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
244 | bn_kron.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
245 | bn_kron.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
246 | bn_kron.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
247 | bn_kron.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_kron.c bn_lcl.h | ||
248 | bn_lib.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
249 | bn_lib.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
250 | bn_lib.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
251 | bn_lib.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
252 | bn_lib.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
253 | bn_lib.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
254 | bn_lib.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_lib.c | ||
255 | bn_mod.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
256 | bn_mod.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
257 | bn_mod.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
258 | bn_mod.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
259 | bn_mod.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
260 | bn_mod.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
261 | bn_mod.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_mod.c | ||
262 | bn_mont.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
263 | bn_mont.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
264 | bn_mont.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
265 | bn_mont.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
266 | bn_mont.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
267 | bn_mont.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
268 | bn_mont.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_mont.c | ||
269 | bn_mpi.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
270 | bn_mpi.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
271 | bn_mpi.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
272 | bn_mpi.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
273 | bn_mpi.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
274 | bn_mpi.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
275 | bn_mpi.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_mpi.c | ||
276 | bn_mul.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
277 | bn_mul.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
278 | bn_mul.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
279 | bn_mul.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
280 | bn_mul.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
281 | bn_mul.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
282 | bn_mul.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_mul.c | ||
283 | bn_nist.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
284 | bn_nist.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
285 | bn_nist.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
286 | bn_nist.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
287 | bn_nist.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
288 | bn_nist.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
289 | bn_nist.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_nist.c | ||
290 | bn_prime.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
291 | bn_prime.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
292 | bn_prime.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
293 | bn_prime.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
294 | bn_prime.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
295 | bn_prime.o: ../../include/openssl/rand.h ../../include/openssl/safestack.h | ||
296 | bn_prime.o: ../../include/openssl/stack.h ../../include/openssl/symhacks.h | ||
297 | bn_prime.o: ../cryptlib.h bn_lcl.h bn_prime.c bn_prime.h | ||
298 | bn_print.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
299 | bn_print.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
300 | bn_print.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
301 | bn_print.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
302 | bn_print.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
303 | bn_print.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
304 | bn_print.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_print.c | ||
305 | bn_rand.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
306 | bn_rand.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
307 | bn_rand.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
308 | bn_rand.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
309 | bn_rand.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
310 | bn_rand.o: ../../include/openssl/rand.h ../../include/openssl/safestack.h | ||
311 | bn_rand.o: ../../include/openssl/stack.h ../../include/openssl/symhacks.h | ||
312 | bn_rand.o: ../cryptlib.h bn_lcl.h bn_rand.c | ||
313 | bn_recp.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
314 | bn_recp.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
315 | bn_recp.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
316 | bn_recp.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
317 | bn_recp.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
318 | bn_recp.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
319 | bn_recp.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_recp.c | ||
320 | bn_shift.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
321 | bn_shift.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
322 | bn_shift.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
323 | bn_shift.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
324 | bn_shift.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
325 | bn_shift.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
326 | bn_shift.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_shift.c | ||
327 | bn_sqr.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
328 | bn_sqr.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
329 | bn_sqr.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
330 | bn_sqr.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
331 | bn_sqr.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
332 | bn_sqr.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
333 | bn_sqr.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_sqr.c | ||
334 | bn_sqrt.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
335 | bn_sqrt.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
336 | bn_sqrt.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
337 | bn_sqrt.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
338 | bn_sqrt.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
339 | bn_sqrt.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
340 | bn_sqrt.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_sqrt.c | ||
341 | bn_word.o: ../../e_os.h ../../include/openssl/bio.h ../../include/openssl/bn.h | ||
342 | bn_word.o: ../../include/openssl/buffer.h ../../include/openssl/crypto.h | ||
343 | bn_word.o: ../../include/openssl/e_os2.h ../../include/openssl/err.h | ||
344 | bn_word.o: ../../include/openssl/lhash.h ../../include/openssl/opensslconf.h | ||
345 | bn_word.o: ../../include/openssl/opensslv.h ../../include/openssl/ossl_typ.h | ||
346 | bn_word.o: ../../include/openssl/safestack.h ../../include/openssl/stack.h | ||
347 | bn_word.o: ../../include/openssl/symhacks.h ../cryptlib.h bn_lcl.h bn_word.c | ||
diff --git a/src/lib/libcrypto/bn/asm/README b/src/lib/libcrypto/bn/asm/README new file mode 100644 index 0000000000..b0f3a68a06 --- /dev/null +++ b/src/lib/libcrypto/bn/asm/README | |||
@@ -0,0 +1,27 @@ | |||
1 | <OBSOLETE> | ||
2 | |||
3 | All assember in this directory are just version of the file | ||
4 | crypto/bn/bn_asm.c. | ||
5 | |||
6 | Quite a few of these files are just the assember output from gcc since on | ||
7 | quite a few machines they are 2 times faster than the system compiler. | ||
8 | |||
9 | For the x86, I have hand written assember because of the bad job all | ||
10 | compilers seem to do on it. This normally gives a 2 time speed up in the RSA | ||
11 | routines. | ||
12 | |||
13 | For the DEC alpha, I also hand wrote the assember (except the division which | ||
14 | is just the output from the C compiler pasted on the end of the file). | ||
15 | On the 2 alpha C compilers I had access to, it was not possible to do | ||
16 | 64b x 64b -> 128b calculations (both long and the long long data types | ||
17 | were 64 bits). So the hand assember gives access to the 128 bit result and | ||
18 | a 2 times speedup :-). | ||
19 | |||
20 | There are 3 versions of assember for the HP PA-RISC. | ||
21 | |||
22 | pa-risc.s is the origional one which works fine and generated using gcc :-) | ||
23 | |||
24 | pa-risc2W.s and pa-risc2.s are 64 and 32-bit PA-RISC 2.0 implementations | ||
25 | by Chris Ruemmler from HP (with some help from the HP C compiler). | ||
26 | |||
27 | </OBSOLETE> | ||
diff --git a/src/lib/libcrypto/bn/asm/mips3-mont.pl b/src/lib/libcrypto/bn/asm/mips3-mont.pl new file mode 100644 index 0000000000..8f9156e02a --- /dev/null +++ b/src/lib/libcrypto/bn/asm/mips3-mont.pl | |||
@@ -0,0 +1,327 @@ | |||
1 | #!/usr/bin/env perl | ||
2 | # | ||
3 | # ==================================================================== | ||
4 | # Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL | ||
5 | # project. The module is, however, dual licensed under OpenSSL and | ||
6 | # CRYPTOGAMS licenses depending on where you obtain it. For further | ||
7 | # details see http://www.openssl.org/~appro/cryptogams/. | ||
8 | # ==================================================================== | ||
9 | |||
10 | # This module doesn't present direct interest for OpenSSL, because it | ||
11 | # doesn't provide better performance for longer keys. While 512-bit | ||
12 | # RSA private key operations are 40% faster, 1024-bit ones are hardly | ||
13 | # faster at all, while longer key operations are slower by up to 20%. | ||
14 | # It might be of interest to embedded system developers though, as | ||
15 | # it's smaller than 1KB, yet offers ~3x improvement over compiler | ||
16 | # generated code. | ||
17 | # | ||
18 | # The module targets N32 and N64 MIPS ABIs and currently is a bit | ||
19 | # IRIX-centric, i.e. is likely to require adaptation for other OSes. | ||
20 | |||
21 | # int bn_mul_mont( | ||
22 | $rp="a0"; # BN_ULONG *rp, | ||
23 | $ap="a1"; # const BN_ULONG *ap, | ||
24 | $bp="a2"; # const BN_ULONG *bp, | ||
25 | $np="a3"; # const BN_ULONG *np, | ||
26 | $n0="a4"; # const BN_ULONG *n0, | ||
27 | $num="a5"; # int num); | ||
28 | |||
29 | $lo0="a6"; | ||
30 | $hi0="a7"; | ||
31 | $lo1="v0"; | ||
32 | $hi1="v1"; | ||
33 | $aj="t0"; | ||
34 | $bi="t1"; | ||
35 | $nj="t2"; | ||
36 | $tp="t3"; | ||
37 | $alo="s0"; | ||
38 | $ahi="s1"; | ||
39 | $nlo="s2"; | ||
40 | $nhi="s3"; | ||
41 | $tj="s4"; | ||
42 | $i="s5"; | ||
43 | $j="s6"; | ||
44 | $fp="t8"; | ||
45 | $m1="t9"; | ||
46 | |||
47 | $FRAME=8*(2+8); | ||
48 | |||
49 | $code=<<___; | ||
50 | #include <asm.h> | ||
51 | #include <regdef.h> | ||
52 | |||
53 | .text | ||
54 | |||
55 | .set noat | ||
56 | .set reorder | ||
57 | |||
58 | .align 5 | ||
59 | .globl bn_mul_mont | ||
60 | .ent bn_mul_mont | ||
61 | bn_mul_mont: | ||
62 | .set noreorder | ||
63 | PTR_SUB sp,64 | ||
64 | move $fp,sp | ||
65 | .frame $fp,64,ra | ||
66 | slt AT,$num,4 | ||
67 | li v0,0 | ||
68 | beqzl AT,.Lproceed | ||
69 | nop | ||
70 | jr ra | ||
71 | PTR_ADD sp,$fp,64 | ||
72 | .set reorder | ||
73 | .align 5 | ||
74 | .Lproceed: | ||
75 | ld $n0,0($n0) | ||
76 | ld $bi,0($bp) # bp[0] | ||
77 | ld $aj,0($ap) # ap[0] | ||
78 | ld $nj,0($np) # np[0] | ||
79 | PTR_SUB sp,16 # place for two extra words | ||
80 | sll $num,3 | ||
81 | li AT,-4096 | ||
82 | PTR_SUB sp,$num | ||
83 | and sp,AT | ||
84 | |||
85 | sd s0,0($fp) | ||
86 | sd s1,8($fp) | ||
87 | sd s2,16($fp) | ||
88 | sd s3,24($fp) | ||
89 | sd s4,32($fp) | ||
90 | sd s5,40($fp) | ||
91 | sd s6,48($fp) | ||
92 | sd s7,56($fp) | ||
93 | |||
94 | dmultu $aj,$bi | ||
95 | ld $alo,8($ap) | ||
96 | ld $nlo,8($np) | ||
97 | mflo $lo0 | ||
98 | mfhi $hi0 | ||
99 | dmultu $lo0,$n0 | ||
100 | mflo $m1 | ||
101 | |||
102 | dmultu $alo,$bi | ||
103 | mflo $alo | ||
104 | mfhi $ahi | ||
105 | |||
106 | dmultu $nj,$m1 | ||
107 | mflo $lo1 | ||
108 | mfhi $hi1 | ||
109 | dmultu $nlo,$m1 | ||
110 | daddu $lo1,$lo0 | ||
111 | sltu AT,$lo1,$lo0 | ||
112 | daddu $hi1,AT | ||
113 | mflo $nlo | ||
114 | mfhi $nhi | ||
115 | |||
116 | move $tp,sp | ||
117 | li $j,16 | ||
118 | .align 4 | ||
119 | .L1st: | ||
120 | .set noreorder | ||
121 | PTR_ADD $aj,$ap,$j | ||
122 | ld $aj,($aj) | ||
123 | PTR_ADD $nj,$np,$j | ||
124 | ld $nj,($nj) | ||
125 | |||
126 | dmultu $aj,$bi | ||
127 | daddu $lo0,$alo,$hi0 | ||
128 | daddu $lo1,$nlo,$hi1 | ||
129 | sltu AT,$lo0,$hi0 | ||
130 | sltu s7,$lo1,$hi1 | ||
131 | daddu $hi0,$ahi,AT | ||
132 | daddu $hi1,$nhi,s7 | ||
133 | mflo $alo | ||
134 | mfhi $ahi | ||
135 | |||
136 | daddu $lo1,$lo0 | ||
137 | sltu AT,$lo1,$lo0 | ||
138 | dmultu $nj,$m1 | ||
139 | daddu $hi1,AT | ||
140 | addu $j,8 | ||
141 | sd $lo1,($tp) | ||
142 | sltu s7,$j,$num | ||
143 | mflo $nlo | ||
144 | mfhi $nhi | ||
145 | |||
146 | bnez s7,.L1st | ||
147 | PTR_ADD $tp,8 | ||
148 | .set reorder | ||
149 | |||
150 | daddu $lo0,$alo,$hi0 | ||
151 | sltu AT,$lo0,$hi0 | ||
152 | daddu $hi0,$ahi,AT | ||
153 | |||
154 | daddu $lo1,$nlo,$hi1 | ||
155 | sltu s7,$lo1,$hi1 | ||
156 | daddu $hi1,$nhi,s7 | ||
157 | daddu $lo1,$lo0 | ||
158 | sltu AT,$lo1,$lo0 | ||
159 | daddu $hi1,AT | ||
160 | |||
161 | sd $lo1,($tp) | ||
162 | |||
163 | daddu $hi1,$hi0 | ||
164 | sltu AT,$hi1,$hi0 | ||
165 | sd $hi1,8($tp) | ||
166 | sd AT,16($tp) | ||
167 | |||
168 | li $i,8 | ||
169 | .align 4 | ||
170 | .Louter: | ||
171 | PTR_ADD $bi,$bp,$i | ||
172 | ld $bi,($bi) | ||
173 | ld $aj,($ap) | ||
174 | ld $alo,8($ap) | ||
175 | ld $tj,(sp) | ||
176 | |||
177 | dmultu $aj,$bi | ||
178 | ld $nj,($np) | ||
179 | ld $nlo,8($np) | ||
180 | mflo $lo0 | ||
181 | mfhi $hi0 | ||
182 | daddu $lo0,$tj | ||
183 | dmultu $lo0,$n0 | ||
184 | sltu AT,$lo0,$tj | ||
185 | daddu $hi0,AT | ||
186 | mflo $m1 | ||
187 | |||
188 | dmultu $alo,$bi | ||
189 | mflo $alo | ||
190 | mfhi $ahi | ||
191 | |||
192 | dmultu $nj,$m1 | ||
193 | mflo $lo1 | ||
194 | mfhi $hi1 | ||
195 | |||
196 | dmultu $nlo,$m1 | ||
197 | daddu $lo1,$lo0 | ||
198 | sltu AT,$lo1,$lo0 | ||
199 | daddu $hi1,AT | ||
200 | mflo $nlo | ||
201 | mfhi $nhi | ||
202 | |||
203 | move $tp,sp | ||
204 | li $j,16 | ||
205 | ld $tj,8($tp) | ||
206 | .align 4 | ||
207 | .Linner: | ||
208 | .set noreorder | ||
209 | PTR_ADD $aj,$ap,$j | ||
210 | ld $aj,($aj) | ||
211 | PTR_ADD $nj,$np,$j | ||
212 | ld $nj,($nj) | ||
213 | |||
214 | dmultu $aj,$bi | ||
215 | daddu $lo0,$alo,$hi0 | ||
216 | daddu $lo1,$nlo,$hi1 | ||
217 | sltu AT,$lo0,$hi0 | ||
218 | sltu s7,$lo1,$hi1 | ||
219 | daddu $hi0,$ahi,AT | ||
220 | daddu $hi1,$nhi,s7 | ||
221 | mflo $alo | ||
222 | mfhi $ahi | ||
223 | |||
224 | daddu $lo0,$tj | ||
225 | addu $j,8 | ||
226 | dmultu $nj,$m1 | ||
227 | sltu AT,$lo0,$tj | ||
228 | daddu $lo1,$lo0 | ||
229 | daddu $hi0,AT | ||
230 | sltu s7,$lo1,$lo0 | ||
231 | ld $tj,16($tp) | ||
232 | daddu $hi1,s7 | ||
233 | sltu AT,$j,$num | ||
234 | mflo $nlo | ||
235 | mfhi $nhi | ||
236 | sd $lo1,($tp) | ||
237 | bnez AT,.Linner | ||
238 | PTR_ADD $tp,8 | ||
239 | .set reorder | ||
240 | |||
241 | daddu $lo0,$alo,$hi0 | ||
242 | sltu AT,$lo0,$hi0 | ||
243 | daddu $hi0,$ahi,AT | ||
244 | daddu $lo0,$tj | ||
245 | sltu s7,$lo0,$tj | ||
246 | daddu $hi0,s7 | ||
247 | |||
248 | ld $tj,16($tp) | ||
249 | daddu $lo1,$nlo,$hi1 | ||
250 | sltu AT,$lo1,$hi1 | ||
251 | daddu $hi1,$nhi,AT | ||
252 | daddu $lo1,$lo0 | ||
253 | sltu s7,$lo1,$lo0 | ||
254 | daddu $hi1,s7 | ||
255 | sd $lo1,($tp) | ||
256 | |||
257 | daddu $lo1,$hi1,$hi0 | ||
258 | sltu $hi1,$lo1,$hi0 | ||
259 | daddu $lo1,$tj | ||
260 | sltu AT,$lo1,$tj | ||
261 | daddu $hi1,AT | ||
262 | sd $lo1,8($tp) | ||
263 | sd $hi1,16($tp) | ||
264 | |||
265 | addu $i,8 | ||
266 | sltu s7,$i,$num | ||
267 | bnez s7,.Louter | ||
268 | |||
269 | .set noreorder | ||
270 | PTR_ADD $tj,sp,$num # &tp[num] | ||
271 | move $tp,sp | ||
272 | move $ap,sp | ||
273 | li $hi0,0 # clear borrow bit | ||
274 | |||
275 | .align 4 | ||
276 | .Lsub: ld $lo0,($tp) | ||
277 | ld $lo1,($np) | ||
278 | PTR_ADD $tp,8 | ||
279 | PTR_ADD $np,8 | ||
280 | dsubu $lo1,$lo0,$lo1 # tp[i]-np[i] | ||
281 | sgtu AT,$lo1,$lo0 | ||
282 | dsubu $lo0,$lo1,$hi0 | ||
283 | sgtu $hi0,$lo0,$lo1 | ||
284 | sd $lo0,($rp) | ||
285 | or $hi0,AT | ||
286 | sltu AT,$tp,$tj | ||
287 | bnez AT,.Lsub | ||
288 | PTR_ADD $rp,8 | ||
289 | |||
290 | dsubu $hi0,$hi1,$hi0 # handle upmost overflow bit | ||
291 | move $tp,sp | ||
292 | PTR_SUB $rp,$num # restore rp | ||
293 | not $hi1,$hi0 | ||
294 | |||
295 | and $ap,$hi0,sp | ||
296 | and $bp,$hi1,$rp | ||
297 | or $ap,$ap,$bp # ap=borrow?tp:rp | ||
298 | |||
299 | .align 4 | ||
300 | .Lcopy: ld $aj,($ap) | ||
301 | PTR_ADD $ap,8 | ||
302 | PTR_ADD $tp,8 | ||
303 | sd zero,-8($tp) | ||
304 | sltu AT,$tp,$tj | ||
305 | sd $aj,($rp) | ||
306 | bnez AT,.Lcopy | ||
307 | PTR_ADD $rp,8 | ||
308 | |||
309 | ld s0,0($fp) | ||
310 | ld s1,8($fp) | ||
311 | ld s2,16($fp) | ||
312 | ld s3,24($fp) | ||
313 | ld s4,32($fp) | ||
314 | ld s5,40($fp) | ||
315 | ld s6,48($fp) | ||
316 | ld s7,56($fp) | ||
317 | li v0,1 | ||
318 | jr ra | ||
319 | PTR_ADD sp,$fp,64 | ||
320 | .set reorder | ||
321 | END(bn_mul_mont) | ||
322 | .rdata | ||
323 | .asciiz "Montgomery Multiplication for MIPS III/IV, CRYPTOGAMS by <appro\@openssl.org>" | ||
324 | ___ | ||
325 | |||
326 | print $code; | ||
327 | close STDOUT; | ||
diff --git a/src/lib/libcrypto/bn/asm/mips3.s b/src/lib/libcrypto/bn/asm/mips3.s new file mode 100644 index 0000000000..dca4105c7d --- /dev/null +++ b/src/lib/libcrypto/bn/asm/mips3.s | |||
@@ -0,0 +1,2201 @@ | |||
1 | .rdata | ||
2 | .asciiz "mips3.s, Version 1.1" | ||
3 | .asciiz "MIPS III/IV ISA artwork by Andy Polyakov <appro@fy.chalmers.se>" | ||
4 | |||
5 | /* | ||
6 | * ==================================================================== | ||
7 | * Written by Andy Polyakov <appro@fy.chalmers.se> for the OpenSSL | ||
8 | * project. | ||
9 | * | ||
10 | * Rights for redistribution and usage in source and binary forms are | ||
11 | * granted according to the OpenSSL license. Warranty of any kind is | ||
12 | * disclaimed. | ||
13 | * ==================================================================== | ||
14 | */ | ||
15 | |||
16 | /* | ||
17 | * This is my modest contributon to the OpenSSL project (see | ||
18 | * http://www.openssl.org/ for more information about it) and is | ||
19 | * a drop-in MIPS III/IV ISA replacement for crypto/bn/bn_asm.c | ||
20 | * module. For updates see http://fy.chalmers.se/~appro/hpe/. | ||
21 | * | ||
22 | * The module is designed to work with either of the "new" MIPS ABI(5), | ||
23 | * namely N32 or N64, offered by IRIX 6.x. It's not ment to work under | ||
24 | * IRIX 5.x not only because it doesn't support new ABIs but also | ||
25 | * because 5.x kernels put R4x00 CPU into 32-bit mode and all those | ||
26 | * 64-bit instructions (daddu, dmultu, etc.) found below gonna only | ||
27 | * cause illegal instruction exception:-( | ||
28 | * | ||
29 | * In addition the code depends on preprocessor flags set up by MIPSpro | ||
30 | * compiler driver (either as or cc) and therefore (probably?) can't be | ||
31 | * compiled by the GNU assembler. GNU C driver manages fine though... | ||
32 | * I mean as long as -mmips-as is specified or is the default option, | ||
33 | * because then it simply invokes /usr/bin/as which in turn takes | ||
34 | * perfect care of the preprocessor definitions. Another neat feature | ||
35 | * offered by the MIPSpro assembler is an optimization pass. This gave | ||
36 | * me the opportunity to have the code looking more regular as all those | ||
37 | * architecture dependent instruction rescheduling details were left to | ||
38 | * the assembler. Cool, huh? | ||
39 | * | ||
40 | * Performance improvement is astonishing! 'apps/openssl speed rsa dsa' | ||
41 | * goes way over 3 times faster! | ||
42 | * | ||
43 | * <appro@fy.chalmers.se> | ||
44 | */ | ||
45 | #include <asm.h> | ||
46 | #include <regdef.h> | ||
47 | |||
48 | #if _MIPS_ISA>=4 | ||
49 | #define MOVNZ(cond,dst,src) \ | ||
50 | movn dst,src,cond | ||
51 | #else | ||
52 | #define MOVNZ(cond,dst,src) \ | ||
53 | .set noreorder; \ | ||
54 | bnezl cond,.+8; \ | ||
55 | move dst,src; \ | ||
56 | .set reorder | ||
57 | #endif | ||
58 | |||
59 | .text | ||
60 | |||
61 | .set noat | ||
62 | .set reorder | ||
63 | |||
64 | #define MINUS4 v1 | ||
65 | |||
66 | .align 5 | ||
67 | LEAF(bn_mul_add_words) | ||
68 | .set noreorder | ||
69 | bgtzl a2,.L_bn_mul_add_words_proceed | ||
70 | ld t0,0(a1) | ||
71 | jr ra | ||
72 | move v0,zero | ||
73 | .set reorder | ||
74 | |||
75 | .L_bn_mul_add_words_proceed: | ||
76 | li MINUS4,-4 | ||
77 | and ta0,a2,MINUS4 | ||
78 | move v0,zero | ||
79 | beqz ta0,.L_bn_mul_add_words_tail | ||
80 | |||
81 | .L_bn_mul_add_words_loop: | ||
82 | dmultu t0,a3 | ||
83 | ld t1,0(a0) | ||
84 | ld t2,8(a1) | ||
85 | ld t3,8(a0) | ||
86 | ld ta0,16(a1) | ||
87 | ld ta1,16(a0) | ||
88 | daddu t1,v0 | ||
89 | sltu v0,t1,v0 /* All manuals say it "compares 32-bit | ||
90 | * values", but it seems to work fine | ||
91 | * even on 64-bit registers. */ | ||
92 | mflo AT | ||
93 | mfhi t0 | ||
94 | daddu t1,AT | ||
95 | daddu v0,t0 | ||
96 | sltu AT,t1,AT | ||
97 | sd t1,0(a0) | ||
98 | daddu v0,AT | ||
99 | |||
100 | dmultu t2,a3 | ||
101 | ld ta2,24(a1) | ||
102 | ld ta3,24(a0) | ||
103 | daddu t3,v0 | ||
104 | sltu v0,t3,v0 | ||
105 | mflo AT | ||
106 | mfhi t2 | ||
107 | daddu t3,AT | ||
108 | daddu v0,t2 | ||
109 | sltu AT,t3,AT | ||
110 | sd t3,8(a0) | ||
111 | daddu v0,AT | ||
112 | |||
113 | dmultu ta0,a3 | ||
114 | subu a2,4 | ||
115 | PTR_ADD a0,32 | ||
116 | PTR_ADD a1,32 | ||
117 | daddu ta1,v0 | ||
118 | sltu v0,ta1,v0 | ||
119 | mflo AT | ||
120 | mfhi ta0 | ||
121 | daddu ta1,AT | ||
122 | daddu v0,ta0 | ||
123 | sltu AT,ta1,AT | ||
124 | sd ta1,-16(a0) | ||
125 | daddu v0,AT | ||
126 | |||
127 | |||
128 | dmultu ta2,a3 | ||
129 | and ta0,a2,MINUS4 | ||
130 | daddu ta3,v0 | ||
131 | sltu v0,ta3,v0 | ||
132 | mflo AT | ||
133 | mfhi ta2 | ||
134 | daddu ta3,AT | ||
135 | daddu v0,ta2 | ||
136 | sltu AT,ta3,AT | ||
137 | sd ta3,-8(a0) | ||
138 | daddu v0,AT | ||
139 | .set noreorder | ||
140 | bgtzl ta0,.L_bn_mul_add_words_loop | ||
141 | ld t0,0(a1) | ||
142 | |||
143 | bnezl a2,.L_bn_mul_add_words_tail | ||
144 | ld t0,0(a1) | ||
145 | .set reorder | ||
146 | |||
147 | .L_bn_mul_add_words_return: | ||
148 | jr ra | ||
149 | |||
150 | .L_bn_mul_add_words_tail: | ||
151 | dmultu t0,a3 | ||
152 | ld t1,0(a0) | ||
153 | subu a2,1 | ||
154 | daddu t1,v0 | ||
155 | sltu v0,t1,v0 | ||
156 | mflo AT | ||
157 | mfhi t0 | ||
158 | daddu t1,AT | ||
159 | daddu v0,t0 | ||
160 | sltu AT,t1,AT | ||
161 | sd t1,0(a0) | ||
162 | daddu v0,AT | ||
163 | beqz a2,.L_bn_mul_add_words_return | ||
164 | |||
165 | ld t0,8(a1) | ||
166 | dmultu t0,a3 | ||
167 | ld t1,8(a0) | ||
168 | subu a2,1 | ||
169 | daddu t1,v0 | ||
170 | sltu v0,t1,v0 | ||
171 | mflo AT | ||
172 | mfhi t0 | ||
173 | daddu t1,AT | ||
174 | daddu v0,t0 | ||
175 | sltu AT,t1,AT | ||
176 | sd t1,8(a0) | ||
177 | daddu v0,AT | ||
178 | beqz a2,.L_bn_mul_add_words_return | ||
179 | |||
180 | ld t0,16(a1) | ||
181 | dmultu t0,a3 | ||
182 | ld t1,16(a0) | ||
183 | daddu t1,v0 | ||
184 | sltu v0,t1,v0 | ||
185 | mflo AT | ||
186 | mfhi t0 | ||
187 | daddu t1,AT | ||
188 | daddu v0,t0 | ||
189 | sltu AT,t1,AT | ||
190 | sd t1,16(a0) | ||
191 | daddu v0,AT | ||
192 | jr ra | ||
193 | END(bn_mul_add_words) | ||
194 | |||
195 | .align 5 | ||
196 | LEAF(bn_mul_words) | ||
197 | .set noreorder | ||
198 | bgtzl a2,.L_bn_mul_words_proceed | ||
199 | ld t0,0(a1) | ||
200 | jr ra | ||
201 | move v0,zero | ||
202 | .set reorder | ||
203 | |||
204 | .L_bn_mul_words_proceed: | ||
205 | li MINUS4,-4 | ||
206 | and ta0,a2,MINUS4 | ||
207 | move v0,zero | ||
208 | beqz ta0,.L_bn_mul_words_tail | ||
209 | |||
210 | .L_bn_mul_words_loop: | ||
211 | dmultu t0,a3 | ||
212 | ld t2,8(a1) | ||
213 | ld ta0,16(a1) | ||
214 | ld ta2,24(a1) | ||
215 | mflo AT | ||
216 | mfhi t0 | ||
217 | daddu v0,AT | ||
218 | sltu t1,v0,AT | ||
219 | sd v0,0(a0) | ||
220 | daddu v0,t1,t0 | ||
221 | |||
222 | dmultu t2,a3 | ||
223 | subu a2,4 | ||
224 | PTR_ADD a0,32 | ||
225 | PTR_ADD a1,32 | ||
226 | mflo AT | ||
227 | mfhi t2 | ||
228 | daddu v0,AT | ||
229 | sltu t3,v0,AT | ||
230 | sd v0,-24(a0) | ||
231 | daddu v0,t3,t2 | ||
232 | |||
233 | dmultu ta0,a3 | ||
234 | mflo AT | ||
235 | mfhi ta0 | ||
236 | daddu v0,AT | ||
237 | sltu ta1,v0,AT | ||
238 | sd v0,-16(a0) | ||
239 | daddu v0,ta1,ta0 | ||
240 | |||
241 | |||
242 | dmultu ta2,a3 | ||
243 | and ta0,a2,MINUS4 | ||
244 | mflo AT | ||
245 | mfhi ta2 | ||
246 | daddu v0,AT | ||
247 | sltu ta3,v0,AT | ||
248 | sd v0,-8(a0) | ||
249 | daddu v0,ta3,ta2 | ||
250 | .set noreorder | ||
251 | bgtzl ta0,.L_bn_mul_words_loop | ||
252 | ld t0,0(a1) | ||
253 | |||
254 | bnezl a2,.L_bn_mul_words_tail | ||
255 | ld t0,0(a1) | ||
256 | .set reorder | ||
257 | |||
258 | .L_bn_mul_words_return: | ||
259 | jr ra | ||
260 | |||
261 | .L_bn_mul_words_tail: | ||
262 | dmultu t0,a3 | ||
263 | subu a2,1 | ||
264 | mflo AT | ||
265 | mfhi t0 | ||
266 | daddu v0,AT | ||
267 | sltu t1,v0,AT | ||
268 | sd v0,0(a0) | ||
269 | daddu v0,t1,t0 | ||
270 | beqz a2,.L_bn_mul_words_return | ||
271 | |||
272 | ld t0,8(a1) | ||
273 | dmultu t0,a3 | ||
274 | subu a2,1 | ||
275 | mflo AT | ||
276 | mfhi t0 | ||
277 | daddu v0,AT | ||
278 | sltu t1,v0,AT | ||
279 | sd v0,8(a0) | ||
280 | daddu v0,t1,t0 | ||
281 | beqz a2,.L_bn_mul_words_return | ||
282 | |||
283 | ld t0,16(a1) | ||
284 | dmultu t0,a3 | ||
285 | mflo AT | ||
286 | mfhi t0 | ||
287 | daddu v0,AT | ||
288 | sltu t1,v0,AT | ||
289 | sd v0,16(a0) | ||
290 | daddu v0,t1,t0 | ||
291 | jr ra | ||
292 | END(bn_mul_words) | ||
293 | |||
294 | .align 5 | ||
295 | LEAF(bn_sqr_words) | ||
296 | .set noreorder | ||
297 | bgtzl a2,.L_bn_sqr_words_proceed | ||
298 | ld t0,0(a1) | ||
299 | jr ra | ||
300 | move v0,zero | ||
301 | .set reorder | ||
302 | |||
303 | .L_bn_sqr_words_proceed: | ||
304 | li MINUS4,-4 | ||
305 | and ta0,a2,MINUS4 | ||
306 | move v0,zero | ||
307 | beqz ta0,.L_bn_sqr_words_tail | ||
308 | |||
309 | .L_bn_sqr_words_loop: | ||
310 | dmultu t0,t0 | ||
311 | ld t2,8(a1) | ||
312 | ld ta0,16(a1) | ||
313 | ld ta2,24(a1) | ||
314 | mflo t1 | ||
315 | mfhi t0 | ||
316 | sd t1,0(a0) | ||
317 | sd t0,8(a0) | ||
318 | |||
319 | dmultu t2,t2 | ||
320 | subu a2,4 | ||
321 | PTR_ADD a0,64 | ||
322 | PTR_ADD a1,32 | ||
323 | mflo t3 | ||
324 | mfhi t2 | ||
325 | sd t3,-48(a0) | ||
326 | sd t2,-40(a0) | ||
327 | |||
328 | dmultu ta0,ta0 | ||
329 | mflo ta1 | ||
330 | mfhi ta0 | ||
331 | sd ta1,-32(a0) | ||
332 | sd ta0,-24(a0) | ||
333 | |||
334 | |||
335 | dmultu ta2,ta2 | ||
336 | and ta0,a2,MINUS4 | ||
337 | mflo ta3 | ||
338 | mfhi ta2 | ||
339 | sd ta3,-16(a0) | ||
340 | sd ta2,-8(a0) | ||
341 | |||
342 | .set noreorder | ||
343 | bgtzl ta0,.L_bn_sqr_words_loop | ||
344 | ld t0,0(a1) | ||
345 | |||
346 | bnezl a2,.L_bn_sqr_words_tail | ||
347 | ld t0,0(a1) | ||
348 | .set reorder | ||
349 | |||
350 | .L_bn_sqr_words_return: | ||
351 | move v0,zero | ||
352 | jr ra | ||
353 | |||
354 | .L_bn_sqr_words_tail: | ||
355 | dmultu t0,t0 | ||
356 | subu a2,1 | ||
357 | mflo t1 | ||
358 | mfhi t0 | ||
359 | sd t1,0(a0) | ||
360 | sd t0,8(a0) | ||
361 | beqz a2,.L_bn_sqr_words_return | ||
362 | |||
363 | ld t0,8(a1) | ||
364 | dmultu t0,t0 | ||
365 | subu a2,1 | ||
366 | mflo t1 | ||
367 | mfhi t0 | ||
368 | sd t1,16(a0) | ||
369 | sd t0,24(a0) | ||
370 | beqz a2,.L_bn_sqr_words_return | ||
371 | |||
372 | ld t0,16(a1) | ||
373 | dmultu t0,t0 | ||
374 | mflo t1 | ||
375 | mfhi t0 | ||
376 | sd t1,32(a0) | ||
377 | sd t0,40(a0) | ||
378 | jr ra | ||
379 | END(bn_sqr_words) | ||
380 | |||
381 | .align 5 | ||
382 | LEAF(bn_add_words) | ||
383 | .set noreorder | ||
384 | bgtzl a3,.L_bn_add_words_proceed | ||
385 | ld t0,0(a1) | ||
386 | jr ra | ||
387 | move v0,zero | ||
388 | .set reorder | ||
389 | |||
390 | .L_bn_add_words_proceed: | ||
391 | li MINUS4,-4 | ||
392 | and AT,a3,MINUS4 | ||
393 | move v0,zero | ||
394 | beqz AT,.L_bn_add_words_tail | ||
395 | |||
396 | .L_bn_add_words_loop: | ||
397 | ld ta0,0(a2) | ||
398 | subu a3,4 | ||
399 | ld t1,8(a1) | ||
400 | and AT,a3,MINUS4 | ||
401 | ld t2,16(a1) | ||
402 | PTR_ADD a2,32 | ||
403 | ld t3,24(a1) | ||
404 | PTR_ADD a0,32 | ||
405 | ld ta1,-24(a2) | ||
406 | PTR_ADD a1,32 | ||
407 | ld ta2,-16(a2) | ||
408 | ld ta3,-8(a2) | ||
409 | daddu ta0,t0 | ||
410 | sltu t8,ta0,t0 | ||
411 | daddu t0,ta0,v0 | ||
412 | sltu v0,t0,ta0 | ||
413 | sd t0,-32(a0) | ||
414 | daddu v0,t8 | ||
415 | |||
416 | daddu ta1,t1 | ||
417 | sltu t9,ta1,t1 | ||
418 | daddu t1,ta1,v0 | ||
419 | sltu v0,t1,ta1 | ||
420 | sd t1,-24(a0) | ||
421 | daddu v0,t9 | ||
422 | |||
423 | daddu ta2,t2 | ||
424 | sltu t8,ta2,t2 | ||
425 | daddu t2,ta2,v0 | ||
426 | sltu v0,t2,ta2 | ||
427 | sd t2,-16(a0) | ||
428 | daddu v0,t8 | ||
429 | |||
430 | daddu ta3,t3 | ||
431 | sltu t9,ta3,t3 | ||
432 | daddu t3,ta3,v0 | ||
433 | sltu v0,t3,ta3 | ||
434 | sd t3,-8(a0) | ||
435 | daddu v0,t9 | ||
436 | |||
437 | .set noreorder | ||
438 | bgtzl AT,.L_bn_add_words_loop | ||
439 | ld t0,0(a1) | ||
440 | |||
441 | bnezl a3,.L_bn_add_words_tail | ||
442 | ld t0,0(a1) | ||
443 | .set reorder | ||
444 | |||
445 | .L_bn_add_words_return: | ||
446 | jr ra | ||
447 | |||
448 | .L_bn_add_words_tail: | ||
449 | ld ta0,0(a2) | ||
450 | daddu ta0,t0 | ||
451 | subu a3,1 | ||
452 | sltu t8,ta0,t0 | ||
453 | daddu t0,ta0,v0 | ||
454 | sltu v0,t0,ta0 | ||
455 | sd t0,0(a0) | ||
456 | daddu v0,t8 | ||
457 | beqz a3,.L_bn_add_words_return | ||
458 | |||
459 | ld t1,8(a1) | ||
460 | ld ta1,8(a2) | ||
461 | daddu ta1,t1 | ||
462 | subu a3,1 | ||
463 | sltu t9,ta1,t1 | ||
464 | daddu t1,ta1,v0 | ||
465 | sltu v0,t1,ta1 | ||
466 | sd t1,8(a0) | ||
467 | daddu v0,t9 | ||
468 | beqz a3,.L_bn_add_words_return | ||
469 | |||
470 | ld t2,16(a1) | ||
471 | ld ta2,16(a2) | ||
472 | daddu ta2,t2 | ||
473 | sltu t8,ta2,t2 | ||
474 | daddu t2,ta2,v0 | ||
475 | sltu v0,t2,ta2 | ||
476 | sd t2,16(a0) | ||
477 | daddu v0,t8 | ||
478 | jr ra | ||
479 | END(bn_add_words) | ||
480 | |||
481 | .align 5 | ||
482 | LEAF(bn_sub_words) | ||
483 | .set noreorder | ||
484 | bgtzl a3,.L_bn_sub_words_proceed | ||
485 | ld t0,0(a1) | ||
486 | jr ra | ||
487 | move v0,zero | ||
488 | .set reorder | ||
489 | |||
490 | .L_bn_sub_words_proceed: | ||
491 | li MINUS4,-4 | ||
492 | and AT,a3,MINUS4 | ||
493 | move v0,zero | ||
494 | beqz AT,.L_bn_sub_words_tail | ||
495 | |||
496 | .L_bn_sub_words_loop: | ||
497 | ld ta0,0(a2) | ||
498 | subu a3,4 | ||
499 | ld t1,8(a1) | ||
500 | and AT,a3,MINUS4 | ||
501 | ld t2,16(a1) | ||
502 | PTR_ADD a2,32 | ||
503 | ld t3,24(a1) | ||
504 | PTR_ADD a0,32 | ||
505 | ld ta1,-24(a2) | ||
506 | PTR_ADD a1,32 | ||
507 | ld ta2,-16(a2) | ||
508 | ld ta3,-8(a2) | ||
509 | sltu t8,t0,ta0 | ||
510 | dsubu t0,ta0 | ||
511 | dsubu ta0,t0,v0 | ||
512 | sd ta0,-32(a0) | ||
513 | MOVNZ (t0,v0,t8) | ||
514 | |||
515 | sltu t9,t1,ta1 | ||
516 | dsubu t1,ta1 | ||
517 | dsubu ta1,t1,v0 | ||
518 | sd ta1,-24(a0) | ||
519 | MOVNZ (t1,v0,t9) | ||
520 | |||
521 | |||
522 | sltu t8,t2,ta2 | ||
523 | dsubu t2,ta2 | ||
524 | dsubu ta2,t2,v0 | ||
525 | sd ta2,-16(a0) | ||
526 | MOVNZ (t2,v0,t8) | ||
527 | |||
528 | sltu t9,t3,ta3 | ||
529 | dsubu t3,ta3 | ||
530 | dsubu ta3,t3,v0 | ||
531 | sd ta3,-8(a0) | ||
532 | MOVNZ (t3,v0,t9) | ||
533 | |||
534 | .set noreorder | ||
535 | bgtzl AT,.L_bn_sub_words_loop | ||
536 | ld t0,0(a1) | ||
537 | |||
538 | bnezl a3,.L_bn_sub_words_tail | ||
539 | ld t0,0(a1) | ||
540 | .set reorder | ||
541 | |||
542 | .L_bn_sub_words_return: | ||
543 | jr ra | ||
544 | |||
545 | .L_bn_sub_words_tail: | ||
546 | ld ta0,0(a2) | ||
547 | subu a3,1 | ||
548 | sltu t8,t0,ta0 | ||
549 | dsubu t0,ta0 | ||
550 | dsubu ta0,t0,v0 | ||
551 | MOVNZ (t0,v0,t8) | ||
552 | sd ta0,0(a0) | ||
553 | beqz a3,.L_bn_sub_words_return | ||
554 | |||
555 | ld t1,8(a1) | ||
556 | subu a3,1 | ||
557 | ld ta1,8(a2) | ||
558 | sltu t9,t1,ta1 | ||
559 | dsubu t1,ta1 | ||
560 | dsubu ta1,t1,v0 | ||
561 | MOVNZ (t1,v0,t9) | ||
562 | sd ta1,8(a0) | ||
563 | beqz a3,.L_bn_sub_words_return | ||
564 | |||
565 | ld t2,16(a1) | ||
566 | ld ta2,16(a2) | ||
567 | sltu t8,t2,ta2 | ||
568 | dsubu t2,ta2 | ||
569 | dsubu ta2,t2,v0 | ||
570 | MOVNZ (t2,v0,t8) | ||
571 | sd ta2,16(a0) | ||
572 | jr ra | ||
573 | END(bn_sub_words) | ||
574 | |||
575 | #undef MINUS4 | ||
576 | |||
577 | .align 5 | ||
578 | LEAF(bn_div_3_words) | ||
579 | .set reorder | ||
580 | move a3,a0 /* we know that bn_div_words doesn't | ||
581 | * touch a3, ta2, ta3 and preserves a2 | ||
582 | * so that we can save two arguments | ||
583 | * and return address in registers | ||
584 | * instead of stack:-) | ||
585 | */ | ||
586 | ld a0,(a3) | ||
587 | move ta2,a1 | ||
588 | ld a1,-8(a3) | ||
589 | bne a0,a2,.L_bn_div_3_words_proceed | ||
590 | li v0,-1 | ||
591 | jr ra | ||
592 | .L_bn_div_3_words_proceed: | ||
593 | move ta3,ra | ||
594 | bal bn_div_words | ||
595 | move ra,ta3 | ||
596 | dmultu ta2,v0 | ||
597 | ld t2,-16(a3) | ||
598 | move ta0,zero | ||
599 | mfhi t1 | ||
600 | mflo t0 | ||
601 | sltu t8,t1,v1 | ||
602 | .L_bn_div_3_words_inner_loop: | ||
603 | bnez t8,.L_bn_div_3_words_inner_loop_done | ||
604 | sgeu AT,t2,t0 | ||
605 | seq t9,t1,v1 | ||
606 | and AT,t9 | ||
607 | sltu t3,t0,ta2 | ||
608 | daddu v1,a2 | ||
609 | dsubu t1,t3 | ||
610 | dsubu t0,ta2 | ||
611 | sltu t8,t1,v1 | ||
612 | sltu ta0,v1,a2 | ||
613 | or t8,ta0 | ||
614 | .set noreorder | ||
615 | beqzl AT,.L_bn_div_3_words_inner_loop | ||
616 | dsubu v0,1 | ||
617 | .set reorder | ||
618 | .L_bn_div_3_words_inner_loop_done: | ||
619 | jr ra | ||
620 | END(bn_div_3_words) | ||
621 | |||
622 | .align 5 | ||
623 | LEAF(bn_div_words) | ||
624 | .set noreorder | ||
625 | bnezl a2,.L_bn_div_words_proceed | ||
626 | move v1,zero | ||
627 | jr ra | ||
628 | li v0,-1 /* I'd rather signal div-by-zero | ||
629 | * which can be done with 'break 7' */ | ||
630 | |||
631 | .L_bn_div_words_proceed: | ||
632 | bltz a2,.L_bn_div_words_body | ||
633 | move t9,v1 | ||
634 | dsll a2,1 | ||
635 | bgtz a2,.-4 | ||
636 | addu t9,1 | ||
637 | |||
638 | .set reorder | ||
639 | negu t1,t9 | ||
640 | li t2,-1 | ||
641 | dsll t2,t1 | ||
642 | and t2,a0 | ||
643 | dsrl AT,a1,t1 | ||
644 | .set noreorder | ||
645 | bnezl t2,.+8 | ||
646 | break 6 /* signal overflow */ | ||
647 | .set reorder | ||
648 | dsll a0,t9 | ||
649 | dsll a1,t9 | ||
650 | or a0,AT | ||
651 | |||
652 | #define QT ta0 | ||
653 | #define HH ta1 | ||
654 | #define DH v1 | ||
655 | .L_bn_div_words_body: | ||
656 | dsrl DH,a2,32 | ||
657 | sgeu AT,a0,a2 | ||
658 | .set noreorder | ||
659 | bnezl AT,.+8 | ||
660 | dsubu a0,a2 | ||
661 | .set reorder | ||
662 | |||
663 | li QT,-1 | ||
664 | dsrl HH,a0,32 | ||
665 | dsrl QT,32 /* q=0xffffffff */ | ||
666 | beq DH,HH,.L_bn_div_words_skip_div1 | ||
667 | ddivu zero,a0,DH | ||
668 | mflo QT | ||
669 | .L_bn_div_words_skip_div1: | ||
670 | dmultu a2,QT | ||
671 | dsll t3,a0,32 | ||
672 | dsrl AT,a1,32 | ||
673 | or t3,AT | ||
674 | mflo t0 | ||
675 | mfhi t1 | ||
676 | .L_bn_div_words_inner_loop1: | ||
677 | sltu t2,t3,t0 | ||
678 | seq t8,HH,t1 | ||
679 | sltu AT,HH,t1 | ||
680 | and t2,t8 | ||
681 | sltu v0,t0,a2 | ||
682 | or AT,t2 | ||
683 | .set noreorder | ||
684 | beqz AT,.L_bn_div_words_inner_loop1_done | ||
685 | dsubu t1,v0 | ||
686 | dsubu t0,a2 | ||
687 | b .L_bn_div_words_inner_loop1 | ||
688 | dsubu QT,1 | ||
689 | .set reorder | ||
690 | .L_bn_div_words_inner_loop1_done: | ||
691 | |||
692 | dsll a1,32 | ||
693 | dsubu a0,t3,t0 | ||
694 | dsll v0,QT,32 | ||
695 | |||
696 | li QT,-1 | ||
697 | dsrl HH,a0,32 | ||
698 | dsrl QT,32 /* q=0xffffffff */ | ||
699 | beq DH,HH,.L_bn_div_words_skip_div2 | ||
700 | ddivu zero,a0,DH | ||
701 | mflo QT | ||
702 | .L_bn_div_words_skip_div2: | ||
703 | #undef DH | ||
704 | dmultu a2,QT | ||
705 | dsll t3,a0,32 | ||
706 | dsrl AT,a1,32 | ||
707 | or t3,AT | ||
708 | mflo t0 | ||
709 | mfhi t1 | ||
710 | .L_bn_div_words_inner_loop2: | ||
711 | sltu t2,t3,t0 | ||
712 | seq t8,HH,t1 | ||
713 | sltu AT,HH,t1 | ||
714 | and t2,t8 | ||
715 | sltu v1,t0,a2 | ||
716 | or AT,t2 | ||
717 | .set noreorder | ||
718 | beqz AT,.L_bn_div_words_inner_loop2_done | ||
719 | dsubu t1,v1 | ||
720 | dsubu t0,a2 | ||
721 | b .L_bn_div_words_inner_loop2 | ||
722 | dsubu QT,1 | ||
723 | .set reorder | ||
724 | .L_bn_div_words_inner_loop2_done: | ||
725 | #undef HH | ||
726 | |||
727 | dsubu a0,t3,t0 | ||
728 | or v0,QT | ||
729 | dsrl v1,a0,t9 /* v1 contains remainder if anybody wants it */ | ||
730 | dsrl a2,t9 /* restore a2 */ | ||
731 | jr ra | ||
732 | #undef QT | ||
733 | END(bn_div_words) | ||
734 | |||
735 | #define a_0 t0 | ||
736 | #define a_1 t1 | ||
737 | #define a_2 t2 | ||
738 | #define a_3 t3 | ||
739 | #define b_0 ta0 | ||
740 | #define b_1 ta1 | ||
741 | #define b_2 ta2 | ||
742 | #define b_3 ta3 | ||
743 | |||
744 | #define a_4 s0 | ||
745 | #define a_5 s2 | ||
746 | #define a_6 s4 | ||
747 | #define a_7 a1 /* once we load a[7] we don't need a anymore */ | ||
748 | #define b_4 s1 | ||
749 | #define b_5 s3 | ||
750 | #define b_6 s5 | ||
751 | #define b_7 a2 /* once we load b[7] we don't need b anymore */ | ||
752 | |||
753 | #define t_1 t8 | ||
754 | #define t_2 t9 | ||
755 | |||
756 | #define c_1 v0 | ||
757 | #define c_2 v1 | ||
758 | #define c_3 a3 | ||
759 | |||
760 | #define FRAME_SIZE 48 | ||
761 | |||
762 | .align 5 | ||
763 | LEAF(bn_mul_comba8) | ||
764 | .set noreorder | ||
765 | PTR_SUB sp,FRAME_SIZE | ||
766 | .frame sp,64,ra | ||
767 | .set reorder | ||
768 | ld a_0,0(a1) /* If compiled with -mips3 option on | ||
769 | * R5000 box assembler barks on this | ||
770 | * line with "shouldn't have mult/div | ||
771 | * as last instruction in bb (R10K | ||
772 | * bug)" warning. If anybody out there | ||
773 | * has a clue about how to circumvent | ||
774 | * this do send me a note. | ||
775 | * <appro@fy.chalmers.se> | ||
776 | */ | ||
777 | ld b_0,0(a2) | ||
778 | ld a_1,8(a1) | ||
779 | ld a_2,16(a1) | ||
780 | ld a_3,24(a1) | ||
781 | ld b_1,8(a2) | ||
782 | ld b_2,16(a2) | ||
783 | ld b_3,24(a2) | ||
784 | dmultu a_0,b_0 /* mul_add_c(a[0],b[0],c1,c2,c3); */ | ||
785 | sd s0,0(sp) | ||
786 | sd s1,8(sp) | ||
787 | sd s2,16(sp) | ||
788 | sd s3,24(sp) | ||
789 | sd s4,32(sp) | ||
790 | sd s5,40(sp) | ||
791 | mflo c_1 | ||
792 | mfhi c_2 | ||
793 | |||
794 | dmultu a_0,b_1 /* mul_add_c(a[0],b[1],c2,c3,c1); */ | ||
795 | ld a_4,32(a1) | ||
796 | ld a_5,40(a1) | ||
797 | ld a_6,48(a1) | ||
798 | ld a_7,56(a1) | ||
799 | ld b_4,32(a2) | ||
800 | ld b_5,40(a2) | ||
801 | mflo t_1 | ||
802 | mfhi t_2 | ||
803 | daddu c_2,t_1 | ||
804 | sltu AT,c_2,t_1 | ||
805 | daddu c_3,t_2,AT | ||
806 | dmultu a_1,b_0 /* mul_add_c(a[1],b[0],c2,c3,c1); */ | ||
807 | ld b_6,48(a2) | ||
808 | ld b_7,56(a2) | ||
809 | sd c_1,0(a0) /* r[0]=c1; */ | ||
810 | mflo t_1 | ||
811 | mfhi t_2 | ||
812 | daddu c_2,t_1 | ||
813 | sltu AT,c_2,t_1 | ||
814 | daddu t_2,AT | ||
815 | daddu c_3,t_2 | ||
816 | sltu c_1,c_3,t_2 | ||
817 | sd c_2,8(a0) /* r[1]=c2; */ | ||
818 | |||
819 | dmultu a_2,b_0 /* mul_add_c(a[2],b[0],c3,c1,c2); */ | ||
820 | mflo t_1 | ||
821 | mfhi t_2 | ||
822 | daddu c_3,t_1 | ||
823 | sltu AT,c_3,t_1 | ||
824 | daddu t_2,AT | ||
825 | daddu c_1,t_2 | ||
826 | dmultu a_1,b_1 /* mul_add_c(a[1],b[1],c3,c1,c2); */ | ||
827 | mflo t_1 | ||
828 | mfhi t_2 | ||
829 | daddu c_3,t_1 | ||
830 | sltu AT,c_3,t_1 | ||
831 | daddu t_2,AT | ||
832 | daddu c_1,t_2 | ||
833 | sltu c_2,c_1,t_2 | ||
834 | dmultu a_0,b_2 /* mul_add_c(a[0],b[2],c3,c1,c2); */ | ||
835 | mflo t_1 | ||
836 | mfhi t_2 | ||
837 | daddu c_3,t_1 | ||
838 | sltu AT,c_3,t_1 | ||
839 | daddu t_2,AT | ||
840 | daddu c_1,t_2 | ||
841 | sltu AT,c_1,t_2 | ||
842 | daddu c_2,AT | ||
843 | sd c_3,16(a0) /* r[2]=c3; */ | ||
844 | |||
845 | dmultu a_0,b_3 /* mul_add_c(a[0],b[3],c1,c2,c3); */ | ||
846 | mflo t_1 | ||
847 | mfhi t_2 | ||
848 | daddu c_1,t_1 | ||
849 | sltu AT,c_1,t_1 | ||
850 | daddu t_2,AT | ||
851 | daddu c_2,t_2 | ||
852 | sltu c_3,c_2,t_2 | ||
853 | dmultu a_1,b_2 /* mul_add_c(a[1],b[2],c1,c2,c3); */ | ||
854 | mflo t_1 | ||
855 | mfhi t_2 | ||
856 | daddu c_1,t_1 | ||
857 | sltu AT,c_1,t_1 | ||
858 | daddu t_2,AT | ||
859 | daddu c_2,t_2 | ||
860 | sltu AT,c_2,t_2 | ||
861 | daddu c_3,AT | ||
862 | dmultu a_2,b_1 /* mul_add_c(a[2],b[1],c1,c2,c3); */ | ||
863 | mflo t_1 | ||
864 | mfhi t_2 | ||
865 | daddu c_1,t_1 | ||
866 | sltu AT,c_1,t_1 | ||
867 | daddu t_2,AT | ||
868 | daddu c_2,t_2 | ||
869 | sltu AT,c_2,t_2 | ||
870 | daddu c_3,AT | ||
871 | dmultu a_3,b_0 /* mul_add_c(a[3],b[0],c1,c2,c3); */ | ||
872 | mflo t_1 | ||
873 | mfhi t_2 | ||
874 | daddu c_1,t_1 | ||
875 | sltu AT,c_1,t_1 | ||
876 | daddu t_2,AT | ||
877 | daddu c_2,t_2 | ||
878 | sltu AT,c_2,t_2 | ||
879 | daddu c_3,AT | ||
880 | sd c_1,24(a0) /* r[3]=c1; */ | ||
881 | |||
882 | dmultu a_4,b_0 /* mul_add_c(a[4],b[0],c2,c3,c1); */ | ||
883 | mflo t_1 | ||
884 | mfhi t_2 | ||
885 | daddu c_2,t_1 | ||
886 | sltu AT,c_2,t_1 | ||
887 | daddu t_2,AT | ||
888 | daddu c_3,t_2 | ||
889 | sltu c_1,c_3,t_2 | ||
890 | dmultu a_3,b_1 /* mul_add_c(a[3],b[1],c2,c3,c1); */ | ||
891 | mflo t_1 | ||
892 | mfhi t_2 | ||
893 | daddu c_2,t_1 | ||
894 | sltu AT,c_2,t_1 | ||
895 | daddu t_2,AT | ||
896 | daddu c_3,t_2 | ||
897 | sltu AT,c_3,t_2 | ||
898 | daddu c_1,AT | ||
899 | dmultu a_2,b_2 /* mul_add_c(a[2],b[2],c2,c3,c1); */ | ||
900 | mflo t_1 | ||
901 | mfhi t_2 | ||
902 | daddu c_2,t_1 | ||
903 | sltu AT,c_2,t_1 | ||
904 | daddu t_2,AT | ||
905 | daddu c_3,t_2 | ||
906 | sltu AT,c_3,t_2 | ||
907 | daddu c_1,AT | ||
908 | dmultu a_1,b_3 /* mul_add_c(a[1],b[3],c2,c3,c1); */ | ||
909 | mflo t_1 | ||
910 | mfhi t_2 | ||
911 | daddu c_2,t_1 | ||
912 | sltu AT,c_2,t_1 | ||
913 | daddu t_2,AT | ||
914 | daddu c_3,t_2 | ||
915 | sltu AT,c_3,t_2 | ||
916 | daddu c_1,AT | ||
917 | dmultu a_0,b_4 /* mul_add_c(a[0],b[4],c2,c3,c1); */ | ||
918 | mflo t_1 | ||
919 | mfhi t_2 | ||
920 | daddu c_2,t_1 | ||
921 | sltu AT,c_2,t_1 | ||
922 | daddu t_2,AT | ||
923 | daddu c_3,t_2 | ||
924 | sltu AT,c_3,t_2 | ||
925 | daddu c_1,AT | ||
926 | sd c_2,32(a0) /* r[4]=c2; */ | ||
927 | |||
928 | dmultu a_0,b_5 /* mul_add_c(a[0],b[5],c3,c1,c2); */ | ||
929 | mflo t_1 | ||
930 | mfhi t_2 | ||
931 | daddu c_3,t_1 | ||
932 | sltu AT,c_3,t_1 | ||
933 | daddu t_2,AT | ||
934 | daddu c_1,t_2 | ||
935 | sltu c_2,c_1,t_2 | ||
936 | dmultu a_1,b_4 /* mul_add_c(a[1],b[4],c3,c1,c2); */ | ||
937 | mflo t_1 | ||
938 | mfhi t_2 | ||
939 | daddu c_3,t_1 | ||
940 | sltu AT,c_3,t_1 | ||
941 | daddu t_2,AT | ||
942 | daddu c_1,t_2 | ||
943 | sltu AT,c_1,t_2 | ||
944 | daddu c_2,AT | ||
945 | dmultu a_2,b_3 /* mul_add_c(a[2],b[3],c3,c1,c2); */ | ||
946 | mflo t_1 | ||
947 | mfhi t_2 | ||
948 | daddu c_3,t_1 | ||
949 | sltu AT,c_3,t_1 | ||
950 | daddu t_2,AT | ||
951 | daddu c_1,t_2 | ||
952 | sltu AT,c_1,t_2 | ||
953 | daddu c_2,AT | ||
954 | dmultu a_3,b_2 /* mul_add_c(a[3],b[2],c3,c1,c2); */ | ||
955 | mflo t_1 | ||
956 | mfhi t_2 | ||
957 | daddu c_3,t_1 | ||
958 | sltu AT,c_3,t_1 | ||
959 | daddu t_2,AT | ||
960 | daddu c_1,t_2 | ||
961 | sltu AT,c_1,t_2 | ||
962 | daddu c_2,AT | ||
963 | dmultu a_4,b_1 /* mul_add_c(a[4],b[1],c3,c1,c2); */ | ||
964 | mflo t_1 | ||
965 | mfhi t_2 | ||
966 | daddu c_3,t_1 | ||
967 | sltu AT,c_3,t_1 | ||
968 | daddu t_2,AT | ||
969 | daddu c_1,t_2 | ||
970 | sltu AT,c_1,t_2 | ||
971 | daddu c_2,AT | ||
972 | dmultu a_5,b_0 /* mul_add_c(a[5],b[0],c3,c1,c2); */ | ||
973 | mflo t_1 | ||
974 | mfhi t_2 | ||
975 | daddu c_3,t_1 | ||
976 | sltu AT,c_3,t_1 | ||
977 | daddu t_2,AT | ||
978 | daddu c_1,t_2 | ||
979 | sltu AT,c_1,t_2 | ||
980 | daddu c_2,AT | ||
981 | sd c_3,40(a0) /* r[5]=c3; */ | ||
982 | |||
983 | dmultu a_6,b_0 /* mul_add_c(a[6],b[0],c1,c2,c3); */ | ||
984 | mflo t_1 | ||
985 | mfhi t_2 | ||
986 | daddu c_1,t_1 | ||
987 | sltu AT,c_1,t_1 | ||
988 | daddu t_2,AT | ||
989 | daddu c_2,t_2 | ||
990 | sltu c_3,c_2,t_2 | ||
991 | dmultu a_5,b_1 /* mul_add_c(a[5],b[1],c1,c2,c3); */ | ||
992 | mflo t_1 | ||
993 | mfhi t_2 | ||
994 | daddu c_1,t_1 | ||
995 | sltu AT,c_1,t_1 | ||
996 | daddu t_2,AT | ||
997 | daddu c_2,t_2 | ||
998 | sltu AT,c_2,t_2 | ||
999 | daddu c_3,AT | ||
1000 | dmultu a_4,b_2 /* mul_add_c(a[4],b[2],c1,c2,c3); */ | ||
1001 | mflo t_1 | ||
1002 | mfhi t_2 | ||
1003 | daddu c_1,t_1 | ||
1004 | sltu AT,c_1,t_1 | ||
1005 | daddu t_2,AT | ||
1006 | daddu c_2,t_2 | ||
1007 | sltu AT,c_2,t_2 | ||
1008 | daddu c_3,AT | ||
1009 | dmultu a_3,b_3 /* mul_add_c(a[3],b[3],c1,c2,c3); */ | ||
1010 | mflo t_1 | ||
1011 | mfhi t_2 | ||
1012 | daddu c_1,t_1 | ||
1013 | sltu AT,c_1,t_1 | ||
1014 | daddu t_2,AT | ||
1015 | daddu c_2,t_2 | ||
1016 | sltu AT,c_2,t_2 | ||
1017 | daddu c_3,AT | ||
1018 | dmultu a_2,b_4 /* mul_add_c(a[2],b[4],c1,c2,c3); */ | ||
1019 | mflo t_1 | ||
1020 | mfhi t_2 | ||
1021 | daddu c_1,t_1 | ||
1022 | sltu AT,c_1,t_1 | ||
1023 | daddu t_2,AT | ||
1024 | daddu c_2,t_2 | ||
1025 | sltu AT,c_2,t_2 | ||
1026 | daddu c_3,AT | ||
1027 | dmultu a_1,b_5 /* mul_add_c(a[1],b[5],c1,c2,c3); */ | ||
1028 | mflo t_1 | ||
1029 | mfhi t_2 | ||
1030 | daddu c_1,t_1 | ||
1031 | sltu AT,c_1,t_1 | ||
1032 | daddu t_2,AT | ||
1033 | daddu c_2,t_2 | ||
1034 | sltu AT,c_2,t_2 | ||
1035 | daddu c_3,AT | ||
1036 | dmultu a_0,b_6 /* mul_add_c(a[0],b[6],c1,c2,c3); */ | ||
1037 | mflo t_1 | ||
1038 | mfhi t_2 | ||
1039 | daddu c_1,t_1 | ||
1040 | sltu AT,c_1,t_1 | ||
1041 | daddu t_2,AT | ||
1042 | daddu c_2,t_2 | ||
1043 | sltu AT,c_2,t_2 | ||
1044 | daddu c_3,AT | ||
1045 | sd c_1,48(a0) /* r[6]=c1; */ | ||
1046 | |||
1047 | dmultu a_0,b_7 /* mul_add_c(a[0],b[7],c2,c3,c1); */ | ||
1048 | mflo t_1 | ||
1049 | mfhi t_2 | ||
1050 | daddu c_2,t_1 | ||
1051 | sltu AT,c_2,t_1 | ||
1052 | daddu t_2,AT | ||
1053 | daddu c_3,t_2 | ||
1054 | sltu c_1,c_3,t_2 | ||
1055 | dmultu a_1,b_6 /* mul_add_c(a[1],b[6],c2,c3,c1); */ | ||
1056 | mflo t_1 | ||
1057 | mfhi t_2 | ||
1058 | daddu c_2,t_1 | ||
1059 | sltu AT,c_2,t_1 | ||
1060 | daddu t_2,AT | ||
1061 | daddu c_3,t_2 | ||
1062 | sltu AT,c_3,t_2 | ||
1063 | daddu c_1,AT | ||
1064 | dmultu a_2,b_5 /* mul_add_c(a[2],b[5],c2,c3,c1); */ | ||
1065 | mflo t_1 | ||
1066 | mfhi t_2 | ||
1067 | daddu c_2,t_1 | ||
1068 | sltu AT,c_2,t_1 | ||
1069 | daddu t_2,AT | ||
1070 | daddu c_3,t_2 | ||
1071 | sltu AT,c_3,t_2 | ||
1072 | daddu c_1,AT | ||
1073 | dmultu a_3,b_4 /* mul_add_c(a[3],b[4],c2,c3,c1); */ | ||
1074 | mflo t_1 | ||
1075 | mfhi t_2 | ||
1076 | daddu c_2,t_1 | ||
1077 | sltu AT,c_2,t_1 | ||
1078 | daddu t_2,AT | ||
1079 | daddu c_3,t_2 | ||
1080 | sltu AT,c_3,t_2 | ||
1081 | daddu c_1,AT | ||
1082 | dmultu a_4,b_3 /* mul_add_c(a[4],b[3],c2,c3,c1); */ | ||
1083 | mflo t_1 | ||
1084 | mfhi t_2 | ||
1085 | daddu c_2,t_1 | ||
1086 | sltu AT,c_2,t_1 | ||
1087 | daddu t_2,AT | ||
1088 | daddu c_3,t_2 | ||
1089 | sltu AT,c_3,t_2 | ||
1090 | daddu c_1,AT | ||
1091 | dmultu a_5,b_2 /* mul_add_c(a[5],b[2],c2,c3,c1); */ | ||
1092 | mflo t_1 | ||
1093 | mfhi t_2 | ||
1094 | daddu c_2,t_1 | ||
1095 | sltu AT,c_2,t_1 | ||
1096 | daddu t_2,AT | ||
1097 | daddu c_3,t_2 | ||
1098 | sltu AT,c_3,t_2 | ||
1099 | daddu c_1,AT | ||
1100 | dmultu a_6,b_1 /* mul_add_c(a[6],b[1],c2,c3,c1); */ | ||
1101 | mflo t_1 | ||
1102 | mfhi t_2 | ||
1103 | daddu c_2,t_1 | ||
1104 | sltu AT,c_2,t_1 | ||
1105 | daddu t_2,AT | ||
1106 | daddu c_3,t_2 | ||
1107 | sltu AT,c_3,t_2 | ||
1108 | daddu c_1,AT | ||
1109 | dmultu a_7,b_0 /* mul_add_c(a[7],b[0],c2,c3,c1); */ | ||
1110 | mflo t_1 | ||
1111 | mfhi t_2 | ||
1112 | daddu c_2,t_1 | ||
1113 | sltu AT,c_2,t_1 | ||
1114 | daddu t_2,AT | ||
1115 | daddu c_3,t_2 | ||
1116 | sltu AT,c_3,t_2 | ||
1117 | daddu c_1,AT | ||
1118 | sd c_2,56(a0) /* r[7]=c2; */ | ||
1119 | |||
1120 | dmultu a_7,b_1 /* mul_add_c(a[7],b[1],c3,c1,c2); */ | ||
1121 | mflo t_1 | ||
1122 | mfhi t_2 | ||
1123 | daddu c_3,t_1 | ||
1124 | sltu AT,c_3,t_1 | ||
1125 | daddu t_2,AT | ||
1126 | daddu c_1,t_2 | ||
1127 | sltu c_2,c_1,t_2 | ||
1128 | dmultu a_6,b_2 /* mul_add_c(a[6],b[2],c3,c1,c2); */ | ||
1129 | mflo t_1 | ||
1130 | mfhi t_2 | ||
1131 | daddu c_3,t_1 | ||
1132 | sltu AT,c_3,t_1 | ||
1133 | daddu t_2,AT | ||
1134 | daddu c_1,t_2 | ||
1135 | sltu AT,c_1,t_2 | ||
1136 | daddu c_2,AT | ||
1137 | dmultu a_5,b_3 /* mul_add_c(a[5],b[3],c3,c1,c2); */ | ||
1138 | mflo t_1 | ||
1139 | mfhi t_2 | ||
1140 | daddu c_3,t_1 | ||
1141 | sltu AT,c_3,t_1 | ||
1142 | daddu t_2,AT | ||
1143 | daddu c_1,t_2 | ||
1144 | sltu AT,c_1,t_2 | ||
1145 | daddu c_2,AT | ||
1146 | dmultu a_4,b_4 /* mul_add_c(a[4],b[4],c3,c1,c2); */ | ||
1147 | mflo t_1 | ||
1148 | mfhi t_2 | ||
1149 | daddu c_3,t_1 | ||
1150 | sltu AT,c_3,t_1 | ||
1151 | daddu t_2,AT | ||
1152 | daddu c_1,t_2 | ||
1153 | sltu AT,c_1,t_2 | ||
1154 | daddu c_2,AT | ||
1155 | dmultu a_3,b_5 /* mul_add_c(a[3],b[5],c3,c1,c2); */ | ||
1156 | mflo t_1 | ||
1157 | mfhi t_2 | ||
1158 | daddu c_3,t_1 | ||
1159 | sltu AT,c_3,t_1 | ||
1160 | daddu t_2,AT | ||
1161 | daddu c_1,t_2 | ||
1162 | sltu AT,c_1,t_2 | ||
1163 | daddu c_2,AT | ||
1164 | dmultu a_2,b_6 /* mul_add_c(a[2],b[6],c3,c1,c2); */ | ||
1165 | mflo t_1 | ||
1166 | mfhi t_2 | ||
1167 | daddu c_3,t_1 | ||
1168 | sltu AT,c_3,t_1 | ||
1169 | daddu t_2,AT | ||
1170 | daddu c_1,t_2 | ||
1171 | sltu AT,c_1,t_2 | ||
1172 | daddu c_2,AT | ||
1173 | dmultu a_1,b_7 /* mul_add_c(a[1],b[7],c3,c1,c2); */ | ||
1174 | mflo t_1 | ||
1175 | mfhi t_2 | ||
1176 | daddu c_3,t_1 | ||
1177 | sltu AT,c_3,t_1 | ||
1178 | daddu t_2,AT | ||
1179 | daddu c_1,t_2 | ||
1180 | sltu AT,c_1,t_2 | ||
1181 | daddu c_2,AT | ||
1182 | sd c_3,64(a0) /* r[8]=c3; */ | ||
1183 | |||
1184 | dmultu a_2,b_7 /* mul_add_c(a[2],b[7],c1,c2,c3); */ | ||
1185 | mflo t_1 | ||
1186 | mfhi t_2 | ||
1187 | daddu c_1,t_1 | ||
1188 | sltu AT,c_1,t_1 | ||
1189 | daddu t_2,AT | ||
1190 | daddu c_2,t_2 | ||
1191 | sltu c_3,c_2,t_2 | ||
1192 | dmultu a_3,b_6 /* mul_add_c(a[3],b[6],c1,c2,c3); */ | ||
1193 | mflo t_1 | ||
1194 | mfhi t_2 | ||
1195 | daddu c_1,t_1 | ||
1196 | sltu AT,c_1,t_1 | ||
1197 | daddu t_2,AT | ||
1198 | daddu c_2,t_2 | ||
1199 | sltu AT,c_2,t_2 | ||
1200 | daddu c_3,AT | ||
1201 | dmultu a_4,b_5 /* mul_add_c(a[4],b[5],c1,c2,c3); */ | ||
1202 | mflo t_1 | ||
1203 | mfhi t_2 | ||
1204 | daddu c_1,t_1 | ||
1205 | sltu AT,c_1,t_1 | ||
1206 | daddu t_2,AT | ||
1207 | daddu c_2,t_2 | ||
1208 | sltu AT,c_2,t_2 | ||
1209 | daddu c_3,AT | ||
1210 | dmultu a_5,b_4 /* mul_add_c(a[5],b[4],c1,c2,c3); */ | ||
1211 | mflo t_1 | ||
1212 | mfhi t_2 | ||
1213 | daddu c_1,t_1 | ||
1214 | sltu AT,c_1,t_1 | ||
1215 | daddu t_2,AT | ||
1216 | daddu c_2,t_2 | ||
1217 | sltu AT,c_2,t_2 | ||
1218 | daddu c_3,AT | ||
1219 | dmultu a_6,b_3 /* mul_add_c(a[6],b[3],c1,c2,c3); */ | ||
1220 | mflo t_1 | ||
1221 | mfhi t_2 | ||
1222 | daddu c_1,t_1 | ||
1223 | sltu AT,c_1,t_1 | ||
1224 | daddu t_2,AT | ||
1225 | daddu c_2,t_2 | ||
1226 | sltu AT,c_2,t_2 | ||
1227 | daddu c_3,AT | ||
1228 | dmultu a_7,b_2 /* mul_add_c(a[7],b[2],c1,c2,c3); */ | ||
1229 | mflo t_1 | ||
1230 | mfhi t_2 | ||
1231 | daddu c_1,t_1 | ||
1232 | sltu AT,c_1,t_1 | ||
1233 | daddu t_2,AT | ||
1234 | daddu c_2,t_2 | ||
1235 | sltu AT,c_2,t_2 | ||
1236 | daddu c_3,AT | ||
1237 | sd c_1,72(a0) /* r[9]=c1; */ | ||
1238 | |||
1239 | dmultu a_7,b_3 /* mul_add_c(a[7],b[3],c2,c3,c1); */ | ||
1240 | mflo t_1 | ||
1241 | mfhi t_2 | ||
1242 | daddu c_2,t_1 | ||
1243 | sltu AT,c_2,t_1 | ||
1244 | daddu t_2,AT | ||
1245 | daddu c_3,t_2 | ||
1246 | sltu c_1,c_3,t_2 | ||
1247 | dmultu a_6,b_4 /* mul_add_c(a[6],b[4],c2,c3,c1); */ | ||
1248 | mflo t_1 | ||
1249 | mfhi t_2 | ||
1250 | daddu c_2,t_1 | ||
1251 | sltu AT,c_2,t_1 | ||
1252 | daddu t_2,AT | ||
1253 | daddu c_3,t_2 | ||
1254 | sltu AT,c_3,t_2 | ||
1255 | daddu c_1,AT | ||
1256 | dmultu a_5,b_5 /* mul_add_c(a[5],b[5],c2,c3,c1); */ | ||
1257 | mflo t_1 | ||
1258 | mfhi t_2 | ||
1259 | daddu c_2,t_1 | ||
1260 | sltu AT,c_2,t_1 | ||
1261 | daddu t_2,AT | ||
1262 | daddu c_3,t_2 | ||
1263 | sltu AT,c_3,t_2 | ||
1264 | daddu c_1,AT | ||
1265 | dmultu a_4,b_6 /* mul_add_c(a[4],b[6],c2,c3,c1); */ | ||
1266 | mflo t_1 | ||
1267 | mfhi t_2 | ||
1268 | daddu c_2,t_1 | ||
1269 | sltu AT,c_2,t_1 | ||
1270 | daddu t_2,AT | ||
1271 | daddu c_3,t_2 | ||
1272 | sltu AT,c_3,t_2 | ||
1273 | daddu c_1,AT | ||
1274 | dmultu a_3,b_7 /* mul_add_c(a[3],b[7],c2,c3,c1); */ | ||
1275 | mflo t_1 | ||
1276 | mfhi t_2 | ||
1277 | daddu c_2,t_1 | ||
1278 | sltu AT,c_2,t_1 | ||
1279 | daddu t_2,AT | ||
1280 | daddu c_3,t_2 | ||
1281 | sltu AT,c_3,t_2 | ||
1282 | daddu c_1,AT | ||
1283 | sd c_2,80(a0) /* r[10]=c2; */ | ||
1284 | |||
1285 | dmultu a_4,b_7 /* mul_add_c(a[4],b[7],c3,c1,c2); */ | ||
1286 | mflo t_1 | ||
1287 | mfhi t_2 | ||
1288 | daddu c_3,t_1 | ||
1289 | sltu AT,c_3,t_1 | ||
1290 | daddu t_2,AT | ||
1291 | daddu c_1,t_2 | ||
1292 | sltu c_2,c_1,t_2 | ||
1293 | dmultu a_5,b_6 /* mul_add_c(a[5],b[6],c3,c1,c2); */ | ||
1294 | mflo t_1 | ||
1295 | mfhi t_2 | ||
1296 | daddu c_3,t_1 | ||
1297 | sltu AT,c_3,t_1 | ||
1298 | daddu t_2,AT | ||
1299 | daddu c_1,t_2 | ||
1300 | sltu AT,c_1,t_2 | ||
1301 | daddu c_2,AT | ||
1302 | dmultu a_6,b_5 /* mul_add_c(a[6],b[5],c3,c1,c2); */ | ||
1303 | mflo t_1 | ||
1304 | mfhi t_2 | ||
1305 | daddu c_3,t_1 | ||
1306 | sltu AT,c_3,t_1 | ||
1307 | daddu t_2,AT | ||
1308 | daddu c_1,t_2 | ||
1309 | sltu AT,c_1,t_2 | ||
1310 | daddu c_2,AT | ||
1311 | dmultu a_7,b_4 /* mul_add_c(a[7],b[4],c3,c1,c2); */ | ||
1312 | mflo t_1 | ||
1313 | mfhi t_2 | ||
1314 | daddu c_3,t_1 | ||
1315 | sltu AT,c_3,t_1 | ||
1316 | daddu t_2,AT | ||
1317 | daddu c_1,t_2 | ||
1318 | sltu AT,c_1,t_2 | ||
1319 | daddu c_2,AT | ||
1320 | sd c_3,88(a0) /* r[11]=c3; */ | ||
1321 | |||
1322 | dmultu a_7,b_5 /* mul_add_c(a[7],b[5],c1,c2,c3); */ | ||
1323 | mflo t_1 | ||
1324 | mfhi t_2 | ||
1325 | daddu c_1,t_1 | ||
1326 | sltu AT,c_1,t_1 | ||
1327 | daddu t_2,AT | ||
1328 | daddu c_2,t_2 | ||
1329 | sltu c_3,c_2,t_2 | ||
1330 | dmultu a_6,b_6 /* mul_add_c(a[6],b[6],c1,c2,c3); */ | ||
1331 | mflo t_1 | ||
1332 | mfhi t_2 | ||
1333 | daddu c_1,t_1 | ||
1334 | sltu AT,c_1,t_1 | ||
1335 | daddu t_2,AT | ||
1336 | daddu c_2,t_2 | ||
1337 | sltu AT,c_2,t_2 | ||
1338 | daddu c_3,AT | ||
1339 | dmultu a_5,b_7 /* mul_add_c(a[5],b[7],c1,c2,c3); */ | ||
1340 | mflo t_1 | ||
1341 | mfhi t_2 | ||
1342 | daddu c_1,t_1 | ||
1343 | sltu AT,c_1,t_1 | ||
1344 | daddu t_2,AT | ||
1345 | daddu c_2,t_2 | ||
1346 | sltu AT,c_2,t_2 | ||
1347 | daddu c_3,AT | ||
1348 | sd c_1,96(a0) /* r[12]=c1; */ | ||
1349 | |||
1350 | dmultu a_6,b_7 /* mul_add_c(a[6],b[7],c2,c3,c1); */ | ||
1351 | mflo t_1 | ||
1352 | mfhi t_2 | ||
1353 | daddu c_2,t_1 | ||
1354 | sltu AT,c_2,t_1 | ||
1355 | daddu t_2,AT | ||
1356 | daddu c_3,t_2 | ||
1357 | sltu c_1,c_3,t_2 | ||
1358 | dmultu a_7,b_6 /* mul_add_c(a[7],b[6],c2,c3,c1); */ | ||
1359 | mflo t_1 | ||
1360 | mfhi t_2 | ||
1361 | daddu c_2,t_1 | ||
1362 | sltu AT,c_2,t_1 | ||
1363 | daddu t_2,AT | ||
1364 | daddu c_3,t_2 | ||
1365 | sltu AT,c_3,t_2 | ||
1366 | daddu c_1,AT | ||
1367 | sd c_2,104(a0) /* r[13]=c2; */ | ||
1368 | |||
1369 | dmultu a_7,b_7 /* mul_add_c(a[7],b[7],c3,c1,c2); */ | ||
1370 | ld s0,0(sp) | ||
1371 | ld s1,8(sp) | ||
1372 | ld s2,16(sp) | ||
1373 | ld s3,24(sp) | ||
1374 | ld s4,32(sp) | ||
1375 | ld s5,40(sp) | ||
1376 | mflo t_1 | ||
1377 | mfhi t_2 | ||
1378 | daddu c_3,t_1 | ||
1379 | sltu AT,c_3,t_1 | ||
1380 | daddu t_2,AT | ||
1381 | daddu c_1,t_2 | ||
1382 | sd c_3,112(a0) /* r[14]=c3; */ | ||
1383 | sd c_1,120(a0) /* r[15]=c1; */ | ||
1384 | |||
1385 | PTR_ADD sp,FRAME_SIZE | ||
1386 | |||
1387 | jr ra | ||
1388 | END(bn_mul_comba8) | ||
1389 | |||
1390 | .align 5 | ||
1391 | LEAF(bn_mul_comba4) | ||
1392 | .set reorder | ||
1393 | ld a_0,0(a1) | ||
1394 | ld b_0,0(a2) | ||
1395 | ld a_1,8(a1) | ||
1396 | ld a_2,16(a1) | ||
1397 | dmultu a_0,b_0 /* mul_add_c(a[0],b[0],c1,c2,c3); */ | ||
1398 | ld a_3,24(a1) | ||
1399 | ld b_1,8(a2) | ||
1400 | ld b_2,16(a2) | ||
1401 | ld b_3,24(a2) | ||
1402 | mflo c_1 | ||
1403 | mfhi c_2 | ||
1404 | sd c_1,0(a0) | ||
1405 | |||
1406 | dmultu a_0,b_1 /* mul_add_c(a[0],b[1],c2,c3,c1); */ | ||
1407 | mflo t_1 | ||
1408 | mfhi t_2 | ||
1409 | daddu c_2,t_1 | ||
1410 | sltu AT,c_2,t_1 | ||
1411 | daddu c_3,t_2,AT | ||
1412 | dmultu a_1,b_0 /* mul_add_c(a[1],b[0],c2,c3,c1); */ | ||
1413 | mflo t_1 | ||
1414 | mfhi t_2 | ||
1415 | daddu c_2,t_1 | ||
1416 | sltu AT,c_2,t_1 | ||
1417 | daddu t_2,AT | ||
1418 | daddu c_3,t_2 | ||
1419 | sltu c_1,c_3,t_2 | ||
1420 | sd c_2,8(a0) | ||
1421 | |||
1422 | dmultu a_2,b_0 /* mul_add_c(a[2],b[0],c3,c1,c2); */ | ||
1423 | mflo t_1 | ||
1424 | mfhi t_2 | ||
1425 | daddu c_3,t_1 | ||
1426 | sltu AT,c_3,t_1 | ||
1427 | daddu t_2,AT | ||
1428 | daddu c_1,t_2 | ||
1429 | dmultu a_1,b_1 /* mul_add_c(a[1],b[1],c3,c1,c2); */ | ||
1430 | mflo t_1 | ||
1431 | mfhi t_2 | ||
1432 | daddu c_3,t_1 | ||
1433 | sltu AT,c_3,t_1 | ||
1434 | daddu t_2,AT | ||
1435 | daddu c_1,t_2 | ||
1436 | sltu c_2,c_1,t_2 | ||
1437 | dmultu a_0,b_2 /* mul_add_c(a[0],b[2],c3,c1,c2); */ | ||
1438 | mflo t_1 | ||
1439 | mfhi t_2 | ||
1440 | daddu c_3,t_1 | ||
1441 | sltu AT,c_3,t_1 | ||
1442 | daddu t_2,AT | ||
1443 | daddu c_1,t_2 | ||
1444 | sltu AT,c_1,t_2 | ||
1445 | daddu c_2,AT | ||
1446 | sd c_3,16(a0) | ||
1447 | |||
1448 | dmultu a_0,b_3 /* mul_add_c(a[0],b[3],c1,c2,c3); */ | ||
1449 | mflo t_1 | ||
1450 | mfhi t_2 | ||
1451 | daddu c_1,t_1 | ||
1452 | sltu AT,c_1,t_1 | ||
1453 | daddu t_2,AT | ||
1454 | daddu c_2,t_2 | ||
1455 | sltu c_3,c_2,t_2 | ||
1456 | dmultu a_1,b_2 /* mul_add_c(a[1],b[2],c1,c2,c3); */ | ||
1457 | mflo t_1 | ||
1458 | mfhi t_2 | ||
1459 | daddu c_1,t_1 | ||
1460 | sltu AT,c_1,t_1 | ||
1461 | daddu t_2,AT | ||
1462 | daddu c_2,t_2 | ||
1463 | sltu AT,c_2,t_2 | ||
1464 | daddu c_3,AT | ||
1465 | dmultu a_2,b_1 /* mul_add_c(a[2],b[1],c1,c2,c3); */ | ||
1466 | mflo t_1 | ||
1467 | mfhi t_2 | ||
1468 | daddu c_1,t_1 | ||
1469 | sltu AT,c_1,t_1 | ||
1470 | daddu t_2,AT | ||
1471 | daddu c_2,t_2 | ||
1472 | sltu AT,c_2,t_2 | ||
1473 | daddu c_3,AT | ||
1474 | dmultu a_3,b_0 /* mul_add_c(a[3],b[0],c1,c2,c3); */ | ||
1475 | mflo t_1 | ||
1476 | mfhi t_2 | ||
1477 | daddu c_1,t_1 | ||
1478 | sltu AT,c_1,t_1 | ||
1479 | daddu t_2,AT | ||
1480 | daddu c_2,t_2 | ||
1481 | sltu AT,c_2,t_2 | ||
1482 | daddu c_3,AT | ||
1483 | sd c_1,24(a0) | ||
1484 | |||
1485 | dmultu a_3,b_1 /* mul_add_c(a[3],b[1],c2,c3,c1); */ | ||
1486 | mflo t_1 | ||
1487 | mfhi t_2 | ||
1488 | daddu c_2,t_1 | ||
1489 | sltu AT,c_2,t_1 | ||
1490 | daddu t_2,AT | ||
1491 | daddu c_3,t_2 | ||
1492 | sltu c_1,c_3,t_2 | ||
1493 | dmultu a_2,b_2 /* mul_add_c(a[2],b[2],c2,c3,c1); */ | ||
1494 | mflo t_1 | ||
1495 | mfhi t_2 | ||
1496 | daddu c_2,t_1 | ||
1497 | sltu AT,c_2,t_1 | ||
1498 | daddu t_2,AT | ||
1499 | daddu c_3,t_2 | ||
1500 | sltu AT,c_3,t_2 | ||
1501 | daddu c_1,AT | ||
1502 | dmultu a_1,b_3 /* mul_add_c(a[1],b[3],c2,c3,c1); */ | ||
1503 | mflo t_1 | ||
1504 | mfhi t_2 | ||
1505 | daddu c_2,t_1 | ||
1506 | sltu AT,c_2,t_1 | ||
1507 | daddu t_2,AT | ||
1508 | daddu c_3,t_2 | ||
1509 | sltu AT,c_3,t_2 | ||
1510 | daddu c_1,AT | ||
1511 | sd c_2,32(a0) | ||
1512 | |||
1513 | dmultu a_2,b_3 /* mul_add_c(a[2],b[3],c3,c1,c2); */ | ||
1514 | mflo t_1 | ||
1515 | mfhi t_2 | ||
1516 | daddu c_3,t_1 | ||
1517 | sltu AT,c_3,t_1 | ||
1518 | daddu t_2,AT | ||
1519 | daddu c_1,t_2 | ||
1520 | sltu c_2,c_1,t_2 | ||
1521 | dmultu a_3,b_2 /* mul_add_c(a[3],b[2],c3,c1,c2); */ | ||
1522 | mflo t_1 | ||
1523 | mfhi t_2 | ||
1524 | daddu c_3,t_1 | ||
1525 | sltu AT,c_3,t_1 | ||
1526 | daddu t_2,AT | ||
1527 | daddu c_1,t_2 | ||
1528 | sltu AT,c_1,t_2 | ||
1529 | daddu c_2,AT | ||
1530 | sd c_3,40(a0) | ||
1531 | |||
1532 | dmultu a_3,b_3 /* mul_add_c(a[3],b[3],c1,c2,c3); */ | ||
1533 | mflo t_1 | ||
1534 | mfhi t_2 | ||
1535 | daddu c_1,t_1 | ||
1536 | sltu AT,c_1,t_1 | ||
1537 | daddu t_2,AT | ||
1538 | daddu c_2,t_2 | ||
1539 | sd c_1,48(a0) | ||
1540 | sd c_2,56(a0) | ||
1541 | |||
1542 | jr ra | ||
1543 | END(bn_mul_comba4) | ||
1544 | |||
1545 | #undef a_4 | ||
1546 | #undef a_5 | ||
1547 | #undef a_6 | ||
1548 | #undef a_7 | ||
1549 | #define a_4 b_0 | ||
1550 | #define a_5 b_1 | ||
1551 | #define a_6 b_2 | ||
1552 | #define a_7 b_3 | ||
1553 | |||
1554 | .align 5 | ||
1555 | LEAF(bn_sqr_comba8) | ||
1556 | .set reorder | ||
1557 | ld a_0,0(a1) | ||
1558 | ld a_1,8(a1) | ||
1559 | ld a_2,16(a1) | ||
1560 | ld a_3,24(a1) | ||
1561 | |||
1562 | dmultu a_0,a_0 /* mul_add_c(a[0],b[0],c1,c2,c3); */ | ||
1563 | ld a_4,32(a1) | ||
1564 | ld a_5,40(a1) | ||
1565 | ld a_6,48(a1) | ||
1566 | ld a_7,56(a1) | ||
1567 | mflo c_1 | ||
1568 | mfhi c_2 | ||
1569 | sd c_1,0(a0) | ||
1570 | |||
1571 | dmultu a_0,a_1 /* mul_add_c2(a[0],b[1],c2,c3,c1); */ | ||
1572 | mflo t_1 | ||
1573 | mfhi t_2 | ||
1574 | slt c_1,t_2,zero | ||
1575 | dsll t_2,1 | ||
1576 | slt a2,t_1,zero | ||
1577 | daddu t_2,a2 | ||
1578 | dsll t_1,1 | ||
1579 | daddu c_2,t_1 | ||
1580 | sltu AT,c_2,t_1 | ||
1581 | daddu c_3,t_2,AT | ||
1582 | sd c_2,8(a0) | ||
1583 | |||
1584 | dmultu a_2,a_0 /* mul_add_c2(a[2],b[0],c3,c1,c2); */ | ||
1585 | mflo t_1 | ||
1586 | mfhi t_2 | ||
1587 | slt c_2,t_2,zero | ||
1588 | dsll t_2,1 | ||
1589 | slt a2,t_1,zero | ||
1590 | daddu t_2,a2 | ||
1591 | dsll t_1,1 | ||
1592 | daddu c_3,t_1 | ||
1593 | sltu AT,c_3,t_1 | ||
1594 | daddu t_2,AT | ||
1595 | daddu c_1,t_2 | ||
1596 | sltu AT,c_1,t_2 | ||
1597 | daddu c_2,AT | ||
1598 | dmultu a_1,a_1 /* mul_add_c(a[1],b[1],c3,c1,c2); */ | ||
1599 | mflo t_1 | ||
1600 | mfhi t_2 | ||
1601 | daddu c_3,t_1 | ||
1602 | sltu AT,c_3,t_1 | ||
1603 | daddu t_2,AT | ||
1604 | daddu c_1,t_2 | ||
1605 | sltu AT,c_1,t_2 | ||
1606 | daddu c_2,AT | ||
1607 | sd c_3,16(a0) | ||
1608 | |||
1609 | dmultu a_0,a_3 /* mul_add_c2(a[0],b[3],c1,c2,c3); */ | ||
1610 | mflo t_1 | ||
1611 | mfhi t_2 | ||
1612 | slt c_3,t_2,zero | ||
1613 | dsll t_2,1 | ||
1614 | slt a2,t_1,zero | ||
1615 | daddu t_2,a2 | ||
1616 | dsll t_1,1 | ||
1617 | daddu c_1,t_1 | ||
1618 | sltu AT,c_1,t_1 | ||
1619 | daddu t_2,AT | ||
1620 | daddu c_2,t_2 | ||
1621 | sltu AT,c_2,t_2 | ||
1622 | daddu c_3,AT | ||
1623 | dmultu a_1,a_2 /* mul_add_c2(a[1],b[2],c1,c2,c3); */ | ||
1624 | mflo t_1 | ||
1625 | mfhi t_2 | ||
1626 | slt AT,t_2,zero | ||
1627 | daddu c_3,AT | ||
1628 | dsll t_2,1 | ||
1629 | slt a2,t_1,zero | ||
1630 | daddu t_2,a2 | ||
1631 | dsll t_1,1 | ||
1632 | daddu c_1,t_1 | ||
1633 | sltu AT,c_1,t_1 | ||
1634 | daddu t_2,AT | ||
1635 | daddu c_2,t_2 | ||
1636 | sltu AT,c_2,t_2 | ||
1637 | daddu c_3,AT | ||
1638 | sd c_1,24(a0) | ||
1639 | |||
1640 | dmultu a_4,a_0 /* mul_add_c2(a[4],b[0],c2,c3,c1); */ | ||
1641 | mflo t_1 | ||
1642 | mfhi t_2 | ||
1643 | slt c_1,t_2,zero | ||
1644 | dsll t_2,1 | ||
1645 | slt a2,t_1,zero | ||
1646 | daddu t_2,a2 | ||
1647 | dsll t_1,1 | ||
1648 | daddu c_2,t_1 | ||
1649 | sltu AT,c_2,t_1 | ||
1650 | daddu t_2,AT | ||
1651 | daddu c_3,t_2 | ||
1652 | sltu AT,c_3,t_2 | ||
1653 | daddu c_1,AT | ||
1654 | dmultu a_3,a_1 /* mul_add_c2(a[3],b[1],c2,c3,c1); */ | ||
1655 | mflo t_1 | ||
1656 | mfhi t_2 | ||
1657 | slt AT,t_2,zero | ||
1658 | daddu c_1,AT | ||
1659 | dsll t_2,1 | ||
1660 | slt a2,t_1,zero | ||
1661 | daddu t_2,a2 | ||
1662 | dsll t_1,1 | ||
1663 | daddu c_2,t_1 | ||
1664 | sltu AT,c_2,t_1 | ||
1665 | daddu t_2,AT | ||
1666 | daddu c_3,t_2 | ||
1667 | sltu AT,c_3,t_2 | ||
1668 | daddu c_1,AT | ||
1669 | dmultu a_2,a_2 /* mul_add_c(a[2],b[2],c2,c3,c1); */ | ||
1670 | mflo t_1 | ||
1671 | mfhi t_2 | ||
1672 | daddu c_2,t_1 | ||
1673 | sltu AT,c_2,t_1 | ||
1674 | daddu t_2,AT | ||
1675 | daddu c_3,t_2 | ||
1676 | sltu AT,c_3,t_2 | ||
1677 | daddu c_1,AT | ||
1678 | sd c_2,32(a0) | ||
1679 | |||
1680 | dmultu a_0,a_5 /* mul_add_c2(a[0],b[5],c3,c1,c2); */ | ||
1681 | mflo t_1 | ||
1682 | mfhi t_2 | ||
1683 | slt c_2,t_2,zero | ||
1684 | dsll t_2,1 | ||
1685 | slt a2,t_1,zero | ||
1686 | daddu t_2,a2 | ||
1687 | dsll t_1,1 | ||
1688 | daddu c_3,t_1 | ||
1689 | sltu AT,c_3,t_1 | ||
1690 | daddu t_2,AT | ||
1691 | daddu c_1,t_2 | ||
1692 | sltu AT,c_1,t_2 | ||
1693 | daddu c_2,AT | ||
1694 | dmultu a_1,a_4 /* mul_add_c2(a[1],b[4],c3,c1,c2); */ | ||
1695 | mflo t_1 | ||
1696 | mfhi t_2 | ||
1697 | slt AT,t_2,zero | ||
1698 | daddu c_2,AT | ||
1699 | dsll t_2,1 | ||
1700 | slt a2,t_1,zero | ||
1701 | daddu t_2,a2 | ||
1702 | dsll t_1,1 | ||
1703 | daddu c_3,t_1 | ||
1704 | sltu AT,c_3,t_1 | ||
1705 | daddu t_2,AT | ||
1706 | daddu c_1,t_2 | ||
1707 | sltu AT,c_1,t_2 | ||
1708 | daddu c_2,AT | ||
1709 | dmultu a_2,a_3 /* mul_add_c2(a[2],b[3],c3,c1,c2); */ | ||
1710 | mflo t_1 | ||
1711 | mfhi t_2 | ||
1712 | slt AT,t_2,zero | ||
1713 | daddu c_2,AT | ||
1714 | dsll t_2,1 | ||
1715 | slt a2,t_1,zero | ||
1716 | daddu t_2,a2 | ||
1717 | dsll t_1,1 | ||
1718 | daddu c_3,t_1 | ||
1719 | sltu AT,c_3,t_1 | ||
1720 | daddu t_2,AT | ||
1721 | daddu c_1,t_2 | ||
1722 | sltu AT,c_1,t_2 | ||
1723 | daddu c_2,AT | ||
1724 | sd c_3,40(a0) | ||
1725 | |||
1726 | dmultu a_6,a_0 /* mul_add_c2(a[6],b[0],c1,c2,c3); */ | ||
1727 | mflo t_1 | ||
1728 | mfhi t_2 | ||
1729 | slt c_3,t_2,zero | ||
1730 | dsll t_2,1 | ||
1731 | slt a2,t_1,zero | ||
1732 | daddu t_2,a2 | ||
1733 | dsll t_1,1 | ||
1734 | daddu c_1,t_1 | ||
1735 | sltu AT,c_1,t_1 | ||
1736 | daddu t_2,AT | ||
1737 | daddu c_2,t_2 | ||
1738 | sltu AT,c_2,t_2 | ||
1739 | daddu c_3,AT | ||
1740 | dmultu a_5,a_1 /* mul_add_c2(a[5],b[1],c1,c2,c3); */ | ||
1741 | mflo t_1 | ||
1742 | mfhi t_2 | ||
1743 | slt AT,t_2,zero | ||
1744 | daddu c_3,AT | ||
1745 | dsll t_2,1 | ||
1746 | slt a2,t_1,zero | ||
1747 | daddu t_2,a2 | ||
1748 | dsll t_1,1 | ||
1749 | daddu c_1,t_1 | ||
1750 | sltu AT,c_1,t_1 | ||
1751 | daddu t_2,AT | ||
1752 | daddu c_2,t_2 | ||
1753 | sltu AT,c_2,t_2 | ||
1754 | daddu c_3,AT | ||
1755 | dmultu a_4,a_2 /* mul_add_c2(a[4],b[2],c1,c2,c3); */ | ||
1756 | mflo t_1 | ||
1757 | mfhi t_2 | ||
1758 | slt AT,t_2,zero | ||
1759 | daddu c_3,AT | ||
1760 | dsll t_2,1 | ||
1761 | slt a2,t_1,zero | ||
1762 | daddu t_2,a2 | ||
1763 | dsll t_1,1 | ||
1764 | daddu c_1,t_1 | ||
1765 | sltu AT,c_1,t_1 | ||
1766 | daddu t_2,AT | ||
1767 | daddu c_2,t_2 | ||
1768 | sltu AT,c_2,t_2 | ||
1769 | daddu c_3,AT | ||
1770 | dmultu a_3,a_3 /* mul_add_c(a[3],b[3],c1,c2,c3); */ | ||
1771 | mflo t_1 | ||
1772 | mfhi t_2 | ||
1773 | daddu c_1,t_1 | ||
1774 | sltu AT,c_1,t_1 | ||
1775 | daddu t_2,AT | ||
1776 | daddu c_2,t_2 | ||
1777 | sltu AT,c_2,t_2 | ||
1778 | daddu c_3,AT | ||
1779 | sd c_1,48(a0) | ||
1780 | |||
1781 | dmultu a_0,a_7 /* mul_add_c2(a[0],b[7],c2,c3,c1); */ | ||
1782 | mflo t_1 | ||
1783 | mfhi t_2 | ||
1784 | slt c_1,t_2,zero | ||
1785 | dsll t_2,1 | ||
1786 | slt a2,t_1,zero | ||
1787 | daddu t_2,a2 | ||
1788 | dsll t_1,1 | ||
1789 | daddu c_2,t_1 | ||
1790 | sltu AT,c_2,t_1 | ||
1791 | daddu t_2,AT | ||
1792 | daddu c_3,t_2 | ||
1793 | sltu AT,c_3,t_2 | ||
1794 | daddu c_1,AT | ||
1795 | dmultu a_1,a_6 /* mul_add_c2(a[1],b[6],c2,c3,c1); */ | ||
1796 | mflo t_1 | ||
1797 | mfhi t_2 | ||
1798 | slt AT,t_2,zero | ||
1799 | daddu c_1,AT | ||
1800 | dsll t_2,1 | ||
1801 | slt a2,t_1,zero | ||
1802 | daddu t_2,a2 | ||
1803 | dsll t_1,1 | ||
1804 | daddu c_2,t_1 | ||
1805 | sltu AT,c_2,t_1 | ||
1806 | daddu t_2,AT | ||
1807 | daddu c_3,t_2 | ||
1808 | sltu AT,c_3,t_2 | ||
1809 | daddu c_1,AT | ||
1810 | dmultu a_2,a_5 /* mul_add_c2(a[2],b[5],c2,c3,c1); */ | ||
1811 | mflo t_1 | ||
1812 | mfhi t_2 | ||
1813 | slt AT,t_2,zero | ||
1814 | daddu c_1,AT | ||
1815 | dsll t_2,1 | ||
1816 | slt a2,t_1,zero | ||
1817 | daddu t_2,a2 | ||
1818 | dsll t_1,1 | ||
1819 | daddu c_2,t_1 | ||
1820 | sltu AT,c_2,t_1 | ||
1821 | daddu t_2,AT | ||
1822 | daddu c_3,t_2 | ||
1823 | sltu AT,c_3,t_2 | ||
1824 | daddu c_1,AT | ||
1825 | dmultu a_3,a_4 /* mul_add_c2(a[3],b[4],c2,c3,c1); */ | ||
1826 | mflo t_1 | ||
1827 | mfhi t_2 | ||
1828 | slt AT,t_2,zero | ||
1829 | daddu c_1,AT | ||
1830 | dsll t_2,1 | ||
1831 | slt a2,t_1,zero | ||
1832 | daddu t_2,a2 | ||
1833 | dsll t_1,1 | ||
1834 | daddu c_2,t_1 | ||
1835 | sltu AT,c_2,t_1 | ||
1836 | daddu t_2,AT | ||
1837 | daddu c_3,t_2 | ||
1838 | sltu AT,c_3,t_2 | ||
1839 | daddu c_1,AT | ||
1840 | sd c_2,56(a0) | ||
1841 | |||
1842 | dmultu a_7,a_1 /* mul_add_c2(a[7],b[1],c3,c1,c2); */ | ||
1843 | mflo t_1 | ||
1844 | mfhi t_2 | ||
1845 | slt c_2,t_2,zero | ||
1846 | dsll t_2,1 | ||
1847 | slt a2,t_1,zero | ||
1848 | daddu t_2,a2 | ||
1849 | dsll t_1,1 | ||
1850 | daddu c_3,t_1 | ||
1851 | sltu AT,c_3,t_1 | ||
1852 | daddu t_2,AT | ||
1853 | daddu c_1,t_2 | ||
1854 | sltu AT,c_1,t_2 | ||
1855 | daddu c_2,AT | ||
1856 | dmultu a_6,a_2 /* mul_add_c2(a[6],b[2],c3,c1,c2); */ | ||
1857 | mflo t_1 | ||
1858 | mfhi t_2 | ||
1859 | slt AT,t_2,zero | ||
1860 | daddu c_2,AT | ||
1861 | dsll t_2,1 | ||
1862 | slt a2,t_1,zero | ||
1863 | daddu t_2,a2 | ||
1864 | dsll t_1,1 | ||
1865 | daddu c_3,t_1 | ||
1866 | sltu AT,c_3,t_1 | ||
1867 | daddu t_2,AT | ||
1868 | daddu c_1,t_2 | ||
1869 | sltu AT,c_1,t_2 | ||
1870 | daddu c_2,AT | ||
1871 | dmultu a_5,a_3 /* mul_add_c2(a[5],b[3],c3,c1,c2); */ | ||
1872 | mflo t_1 | ||
1873 | mfhi t_2 | ||
1874 | slt AT,t_2,zero | ||
1875 | daddu c_2,AT | ||
1876 | dsll t_2,1 | ||
1877 | slt a2,t_1,zero | ||
1878 | daddu t_2,a2 | ||
1879 | dsll t_1,1 | ||
1880 | daddu c_3,t_1 | ||
1881 | sltu AT,c_3,t_1 | ||
1882 | daddu t_2,AT | ||
1883 | daddu c_1,t_2 | ||
1884 | sltu AT,c_1,t_2 | ||
1885 | daddu c_2,AT | ||
1886 | dmultu a_4,a_4 /* mul_add_c(a[4],b[4],c3,c1,c2); */ | ||
1887 | mflo t_1 | ||
1888 | mfhi t_2 | ||
1889 | daddu c_3,t_1 | ||
1890 | sltu AT,c_3,t_1 | ||
1891 | daddu t_2,AT | ||
1892 | daddu c_1,t_2 | ||
1893 | sltu AT,c_1,t_2 | ||
1894 | daddu c_2,AT | ||
1895 | sd c_3,64(a0) | ||
1896 | |||
1897 | dmultu a_2,a_7 /* mul_add_c2(a[2],b[7],c1,c2,c3); */ | ||
1898 | mflo t_1 | ||
1899 | mfhi t_2 | ||
1900 | slt c_3,t_2,zero | ||
1901 | dsll t_2,1 | ||
1902 | slt a2,t_1,zero | ||
1903 | daddu t_2,a2 | ||
1904 | dsll t_1,1 | ||
1905 | daddu c_1,t_1 | ||
1906 | sltu AT,c_1,t_1 | ||
1907 | daddu t_2,AT | ||
1908 | daddu c_2,t_2 | ||
1909 | sltu AT,c_2,t_2 | ||
1910 | daddu c_3,AT | ||
1911 | dmultu a_3,a_6 /* mul_add_c2(a[3],b[6],c1,c2,c3); */ | ||
1912 | mflo t_1 | ||
1913 | mfhi t_2 | ||
1914 | slt AT,t_2,zero | ||
1915 | daddu c_3,AT | ||
1916 | dsll t_2,1 | ||
1917 | slt a2,t_1,zero | ||
1918 | daddu t_2,a2 | ||
1919 | dsll t_1,1 | ||
1920 | daddu c_1,t_1 | ||
1921 | sltu AT,c_1,t_1 | ||
1922 | daddu t_2,AT | ||
1923 | daddu c_2,t_2 | ||
1924 | sltu AT,c_2,t_2 | ||
1925 | daddu c_3,AT | ||
1926 | dmultu a_4,a_5 /* mul_add_c2(a[4],b[5],c1,c2,c3); */ | ||
1927 | mflo t_1 | ||
1928 | mfhi t_2 | ||
1929 | slt AT,t_2,zero | ||
1930 | daddu c_3,AT | ||
1931 | dsll t_2,1 | ||
1932 | slt a2,t_1,zero | ||
1933 | daddu t_2,a2 | ||
1934 | dsll t_1,1 | ||
1935 | daddu c_1,t_1 | ||
1936 | sltu AT,c_1,t_1 | ||
1937 | daddu t_2,AT | ||
1938 | daddu c_2,t_2 | ||
1939 | sltu AT,c_2,t_2 | ||
1940 | daddu c_3,AT | ||
1941 | sd c_1,72(a0) | ||
1942 | |||
1943 | dmultu a_7,a_3 /* mul_add_c2(a[7],b[3],c2,c3,c1); */ | ||
1944 | mflo t_1 | ||
1945 | mfhi t_2 | ||
1946 | slt c_1,t_2,zero | ||
1947 | dsll t_2,1 | ||
1948 | slt a2,t_1,zero | ||
1949 | daddu t_2,a2 | ||
1950 | dsll t_1,1 | ||
1951 | daddu c_2,t_1 | ||
1952 | sltu AT,c_2,t_1 | ||
1953 | daddu t_2,AT | ||
1954 | daddu c_3,t_2 | ||
1955 | sltu AT,c_3,t_2 | ||
1956 | daddu c_1,AT | ||
1957 | dmultu a_6,a_4 /* mul_add_c2(a[6],b[4],c2,c3,c1); */ | ||
1958 | mflo t_1 | ||
1959 | mfhi t_2 | ||
1960 | slt AT,t_2,zero | ||
1961 | daddu c_1,AT | ||
1962 | dsll t_2,1 | ||
1963 | slt a2,t_1,zero | ||
1964 | daddu t_2,a2 | ||
1965 | dsll t_1,1 | ||
1966 | daddu c_2,t_1 | ||
1967 | sltu AT,c_2,t_1 | ||
1968 | daddu t_2,AT | ||
1969 | daddu c_3,t_2 | ||
1970 | sltu AT,c_3,t_2 | ||
1971 | daddu c_1,AT | ||
1972 | dmultu a_5,a_5 /* mul_add_c(a[5],b[5],c2,c3,c1); */ | ||
1973 | mflo t_1 | ||
1974 | mfhi t_2 | ||
1975 | daddu c_2,t_1 | ||
1976 | sltu AT,c_2,t_1 | ||
1977 | daddu t_2,AT | ||
1978 | daddu c_3,t_2 | ||
1979 | sltu AT,c_3,t_2 | ||
1980 | daddu c_1,AT | ||
1981 | sd c_2,80(a0) | ||
1982 | |||
1983 | dmultu a_4,a_7 /* mul_add_c2(a[4],b[7],c3,c1,c2); */ | ||
1984 | mflo t_1 | ||
1985 | mfhi t_2 | ||
1986 | slt c_2,t_2,zero | ||
1987 | dsll t_2,1 | ||
1988 | slt a2,t_1,zero | ||
1989 | daddu t_2,a2 | ||
1990 | dsll t_1,1 | ||
1991 | daddu c_3,t_1 | ||
1992 | sltu AT,c_3,t_1 | ||
1993 | daddu t_2,AT | ||
1994 | daddu c_1,t_2 | ||
1995 | sltu AT,c_1,t_2 | ||
1996 | daddu c_2,AT | ||
1997 | dmultu a_5,a_6 /* mul_add_c2(a[5],b[6],c3,c1,c2); */ | ||
1998 | mflo t_1 | ||
1999 | mfhi t_2 | ||
2000 | slt AT,t_2,zero | ||
2001 | daddu c_2,AT | ||
2002 | dsll t_2,1 | ||
2003 | slt a2,t_1,zero | ||
2004 | daddu t_2,a2 | ||
2005 | dsll t_1,1 | ||
2006 | daddu c_3,t_1 | ||
2007 | sltu AT,c_3,t_1 | ||
2008 | daddu t_2,AT | ||
2009 | daddu c_1,t_2 | ||
2010 | sltu AT,c_1,t_2 | ||
2011 | daddu c_2,AT | ||
2012 | sd c_3,88(a0) | ||
2013 | |||
2014 | dmultu a_7,a_5 /* mul_add_c2(a[7],b[5],c1,c2,c3); */ | ||
2015 | mflo t_1 | ||
2016 | mfhi t_2 | ||
2017 | slt c_3,t_2,zero | ||
2018 | dsll t_2,1 | ||
2019 | slt a2,t_1,zero | ||
2020 | daddu t_2,a2 | ||
2021 | dsll t_1,1 | ||
2022 | daddu c_1,t_1 | ||
2023 | sltu AT,c_1,t_1 | ||
2024 | daddu t_2,AT | ||
2025 | daddu c_2,t_2 | ||
2026 | sltu AT,c_2,t_2 | ||
2027 | daddu c_3,AT | ||
2028 | dmultu a_6,a_6 /* mul_add_c(a[6],b[6],c1,c2,c3); */ | ||
2029 | mflo t_1 | ||
2030 | mfhi t_2 | ||
2031 | daddu c_1,t_1 | ||
2032 | sltu AT,c_1,t_1 | ||
2033 | daddu t_2,AT | ||
2034 | daddu c_2,t_2 | ||
2035 | sltu AT,c_2,t_2 | ||
2036 | daddu c_3,AT | ||
2037 | sd c_1,96(a0) | ||
2038 | |||
2039 | dmultu a_6,a_7 /* mul_add_c2(a[6],b[7],c2,c3,c1); */ | ||
2040 | mflo t_1 | ||
2041 | mfhi t_2 | ||
2042 | slt c_1,t_2,zero | ||
2043 | dsll t_2,1 | ||
2044 | slt a2,t_1,zero | ||
2045 | daddu t_2,a2 | ||
2046 | dsll t_1,1 | ||
2047 | daddu c_2,t_1 | ||
2048 | sltu AT,c_2,t_1 | ||
2049 | daddu t_2,AT | ||
2050 | daddu c_3,t_2 | ||
2051 | sltu AT,c_3,t_2 | ||
2052 | daddu c_1,AT | ||
2053 | sd c_2,104(a0) | ||
2054 | |||
2055 | dmultu a_7,a_7 /* mul_add_c(a[7],b[7],c3,c1,c2); */ | ||
2056 | mflo t_1 | ||
2057 | mfhi t_2 | ||
2058 | daddu c_3,t_1 | ||
2059 | sltu AT,c_3,t_1 | ||
2060 | daddu t_2,AT | ||
2061 | daddu c_1,t_2 | ||
2062 | sd c_3,112(a0) | ||
2063 | sd c_1,120(a0) | ||
2064 | |||
2065 | jr ra | ||
2066 | END(bn_sqr_comba8) | ||
2067 | |||
2068 | .align 5 | ||
2069 | LEAF(bn_sqr_comba4) | ||
2070 | .set reorder | ||
2071 | ld a_0,0(a1) | ||
2072 | ld a_1,8(a1) | ||
2073 | ld a_2,16(a1) | ||
2074 | ld a_3,24(a1) | ||
2075 | dmultu a_0,a_0 /* mul_add_c(a[0],b[0],c1,c2,c3); */ | ||
2076 | mflo c_1 | ||
2077 | mfhi c_2 | ||
2078 | sd c_1,0(a0) | ||
2079 | |||
2080 | dmultu a_0,a_1 /* mul_add_c2(a[0],b[1],c2,c3,c1); */ | ||
2081 | mflo t_1 | ||
2082 | mfhi t_2 | ||
2083 | slt c_1,t_2,zero | ||
2084 | dsll t_2,1 | ||
2085 | slt a2,t_1,zero | ||
2086 | daddu t_2,a2 | ||
2087 | dsll t_1,1 | ||
2088 | daddu c_2,t_1 | ||
2089 | sltu AT,c_2,t_1 | ||
2090 | daddu c_3,t_2,AT | ||
2091 | sd c_2,8(a0) | ||
2092 | |||
2093 | dmultu a_2,a_0 /* mul_add_c2(a[2],b[0],c3,c1,c2); */ | ||
2094 | mflo t_1 | ||
2095 | mfhi t_2 | ||
2096 | slt c_2,t_2,zero | ||
2097 | dsll t_2,1 | ||
2098 | slt a2,t_1,zero | ||
2099 | daddu t_2,a2 | ||
2100 | dsll t_1,1 | ||
2101 | daddu c_3,t_1 | ||
2102 | sltu AT,c_3,t_1 | ||
2103 | daddu t_2,AT | ||
2104 | daddu c_1,t_2 | ||
2105 | sltu AT,c_1,t_2 | ||
2106 | daddu c_2,AT | ||
2107 | dmultu a_1,a_1 /* mul_add_c(a[1],b[1],c3,c1,c2); */ | ||
2108 | mflo t_1 | ||
2109 | mfhi t_2 | ||
2110 | daddu c_3,t_1 | ||
2111 | sltu AT,c_3,t_1 | ||
2112 | daddu t_2,AT | ||
2113 | daddu c_1,t_2 | ||
2114 | sltu AT,c_1,t_2 | ||
2115 | daddu c_2,AT | ||
2116 | sd c_3,16(a0) | ||
2117 | |||
2118 | dmultu a_0,a_3 /* mul_add_c2(a[0],b[3],c1,c2,c3); */ | ||
2119 | mflo t_1 | ||
2120 | mfhi t_2 | ||
2121 | slt c_3,t_2,zero | ||
2122 | dsll t_2,1 | ||
2123 | slt a2,t_1,zero | ||
2124 | daddu t_2,a2 | ||
2125 | dsll t_1,1 | ||
2126 | daddu c_1,t_1 | ||
2127 | sltu AT,c_1,t_1 | ||
2128 | daddu t_2,AT | ||
2129 | daddu c_2,t_2 | ||
2130 | sltu AT,c_2,t_2 | ||
2131 | daddu c_3,AT | ||
2132 | dmultu a_1,a_2 /* mul_add_c(a2[1],b[2],c1,c2,c3); */ | ||
2133 | mflo t_1 | ||
2134 | mfhi t_2 | ||
2135 | slt AT,t_2,zero | ||
2136 | daddu c_3,AT | ||
2137 | dsll t_2,1 | ||
2138 | slt a2,t_1,zero | ||
2139 | daddu t_2,a2 | ||
2140 | dsll t_1,1 | ||
2141 | daddu c_1,t_1 | ||
2142 | sltu AT,c_1,t_1 | ||
2143 | daddu t_2,AT | ||
2144 | daddu c_2,t_2 | ||
2145 | sltu AT,c_2,t_2 | ||
2146 | daddu c_3,AT | ||
2147 | sd c_1,24(a0) | ||
2148 | |||
2149 | dmultu a_3,a_1 /* mul_add_c2(a[3],b[1],c2,c3,c1); */ | ||
2150 | mflo t_1 | ||
2151 | mfhi t_2 | ||
2152 | slt c_1,t_2,zero | ||
2153 | dsll t_2,1 | ||
2154 | slt a2,t_1,zero | ||
2155 | daddu t_2,a2 | ||
2156 | dsll t_1,1 | ||
2157 | daddu c_2,t_1 | ||
2158 | sltu AT,c_2,t_1 | ||
2159 | daddu t_2,AT | ||
2160 | daddu c_3,t_2 | ||
2161 | sltu AT,c_3,t_2 | ||
2162 | daddu c_1,AT | ||
2163 | dmultu a_2,a_2 /* mul_add_c(a[2],b[2],c2,c3,c1); */ | ||
2164 | mflo t_1 | ||
2165 | mfhi t_2 | ||
2166 | daddu c_2,t_1 | ||
2167 | sltu AT,c_2,t_1 | ||
2168 | daddu t_2,AT | ||
2169 | daddu c_3,t_2 | ||
2170 | sltu AT,c_3,t_2 | ||
2171 | daddu c_1,AT | ||
2172 | sd c_2,32(a0) | ||
2173 | |||
2174 | dmultu a_2,a_3 /* mul_add_c2(a[2],b[3],c3,c1,c2); */ | ||
2175 | mflo t_1 | ||
2176 | mfhi t_2 | ||
2177 | slt c_2,t_2,zero | ||
2178 | dsll t_2,1 | ||
2179 | slt a2,t_1,zero | ||
2180 | daddu t_2,a2 | ||
2181 | dsll t_1,1 | ||
2182 | daddu c_3,t_1 | ||
2183 | sltu AT,c_3,t_1 | ||
2184 | daddu t_2,AT | ||
2185 | daddu c_1,t_2 | ||
2186 | sltu AT,c_1,t_2 | ||
2187 | daddu c_2,AT | ||
2188 | sd c_3,40(a0) | ||
2189 | |||
2190 | dmultu a_3,a_3 /* mul_add_c(a[3],b[3],c1,c2,c3); */ | ||
2191 | mflo t_1 | ||
2192 | mfhi t_2 | ||
2193 | daddu c_1,t_1 | ||
2194 | sltu AT,c_1,t_1 | ||
2195 | daddu t_2,AT | ||
2196 | daddu c_2,t_2 | ||
2197 | sd c_1,48(a0) | ||
2198 | sd c_2,56(a0) | ||
2199 | |||
2200 | jr ra | ||
2201 | END(bn_sqr_comba4) | ||
diff --git a/src/lib/libcrypto/bn/asm/vms.mar b/src/lib/libcrypto/bn/asm/vms.mar new file mode 100644 index 0000000000..aefab15cdb --- /dev/null +++ b/src/lib/libcrypto/bn/asm/vms.mar | |||
@@ -0,0 +1,6440 @@ | |||
1 | .title vax_bn_mul_add_words unsigned multiply & add, 32*32+32+32=>64 | ||
2 | ; | ||
3 | ; w.j.m. 15-jan-1999 | ||
4 | ; | ||
5 | ; it's magic ... | ||
6 | ; | ||
7 | ; ULONG bn_mul_add_words(ULONG r[],ULONG a[],int n,ULONG w) { | ||
8 | ; ULONG c = 0; | ||
9 | ; int i; | ||
10 | ; for(i = 0; i < n; i++) <c,r[i]> := r[i] + c + a[i] * w ; | ||
11 | ; return c; | ||
12 | ; } | ||
13 | |||
14 | r=4 ;(AP) | ||
15 | a=8 ;(AP) | ||
16 | n=12 ;(AP) n by value (input) | ||
17 | w=16 ;(AP) w by value (input) | ||
18 | |||
19 | |||
20 | .psect code,nowrt | ||
21 | |||
22 | .entry bn_mul_add_words,^m<r2,r3,r4,r5,r6> | ||
23 | |||
24 | moval @r(ap),r2 | ||
25 | moval @a(ap),r3 | ||
26 | movl n(ap),r4 ; assumed >0 by C code | ||
27 | movl w(ap),r5 | ||
28 | clrl r6 ; c | ||
29 | |||
30 | 0$: | ||
31 | emul r5,(r3),(r2),r0 ; w, a[], r[] considered signed | ||
32 | |||
33 | ; fixup for "negative" r[] | ||
34 | tstl (r2) | ||
35 | bgeq 10$ | ||
36 | incl r1 | ||
37 | 10$: | ||
38 | |||
39 | ; add in c | ||
40 | addl2 r6,r0 | ||
41 | adwc #0,r1 | ||
42 | |||
43 | ; combined fixup for "negative" w, a[] | ||
44 | tstl r5 | ||
45 | bgeq 20$ | ||
46 | addl2 (r3),r1 | ||
47 | 20$: | ||
48 | tstl (r3) | ||
49 | bgeq 30$ | ||
50 | addl2 r5,r1 | ||
51 | 30$: | ||
52 | |||
53 | movl r0,(r2)+ ; store lo result in r[] & advance | ||
54 | addl #4,r3 ; advance a[] | ||
55 | movl r1,r6 ; store hi result => c | ||
56 | |||
57 | sobgtr r4,0$ | ||
58 | |||
59 | movl r6,r0 ; return c | ||
60 | ret | ||
61 | |||
62 | .title vax_bn_mul_words unsigned multiply & add, 32*32+32=>64 | ||
63 | ; | ||
64 | ; w.j.m. 15-jan-1999 | ||
65 | ; | ||
66 | ; it's magic ... | ||
67 | ; | ||
68 | ; ULONG bn_mul_words(ULONG r[],ULONG a[],int n,ULONG w) { | ||
69 | ; ULONG c = 0; | ||
70 | ; int i; | ||
71 | ; for(i = 0; i < num; i++) <c,r[i]> := a[i] * w + c ; | ||
72 | ; return(c); | ||
73 | ; } | ||
74 | |||
75 | r=4 ;(AP) | ||
76 | a=8 ;(AP) | ||
77 | n=12 ;(AP) n by value (input) | ||
78 | w=16 ;(AP) w by value (input) | ||
79 | |||
80 | |||
81 | .psect code,nowrt | ||
82 | |||
83 | .entry bn_mul_words,^m<r2,r3,r4,r5,r6> | ||
84 | |||
85 | moval @r(ap),r2 ; r2 -> r[] | ||
86 | moval @a(ap),r3 ; r3 -> a[] | ||
87 | movl n(ap),r4 ; r4 = loop count (assumed >0 by C code) | ||
88 | movl w(ap),r5 ; r5 = w | ||
89 | clrl r6 ; r6 = c | ||
90 | |||
91 | 0$: | ||
92 | ; <r1,r0> := w * a[] + c | ||
93 | emul r5,(r3),r6,r0 ; w, a[], c considered signed | ||
94 | |||
95 | ; fixup for "negative" c | ||
96 | tstl r6 ; c | ||
97 | bgeq 10$ | ||
98 | incl r1 | ||
99 | 10$: | ||
100 | |||
101 | ; combined fixup for "negative" w, a[] | ||
102 | tstl r5 ; w | ||
103 | bgeq 20$ | ||
104 | addl2 (r3),r1 ; a[] | ||
105 | 20$: | ||
106 | tstl (r3) ; a[] | ||
107 | bgeq 30$ | ||
108 | addl2 r5,r1 ; w | ||
109 | 30$: | ||
110 | |||
111 | movl r0,(r2)+ ; store lo result in r[] & advance | ||
112 | addl #4,r3 ; advance a[] | ||
113 | movl r1,r6 ; store hi result => c | ||
114 | |||
115 | sobgtr r4,0$ | ||
116 | |||
117 | movl r6,r0 ; return c | ||
118 | ret | ||
119 | |||
120 | .title vax_bn_sqr_words unsigned square, 32*32=>64 | ||
121 | ; | ||
122 | ; w.j.m. 15-jan-1999 | ||
123 | ; | ||
124 | ; it's magic ... | ||
125 | ; | ||
126 | ; void bn_sqr_words(ULONG r[],ULONG a[],int n) { | ||
127 | ; int i; | ||
128 | ; for(i = 0; i < n; i++) <r[2*i+1],r[2*i]> := a[i] * a[i] ; | ||
129 | ; } | ||
130 | |||
131 | r=4 ;(AP) | ||
132 | a=8 ;(AP) | ||
133 | n=12 ;(AP) n by value (input) | ||
134 | |||
135 | |||
136 | .psect code,nowrt | ||
137 | |||
138 | .entry bn_sqr_words,^m<r2,r3,r4,r5> | ||
139 | |||
140 | moval @r(ap),r2 ; r2 -> r[] | ||
141 | moval @a(ap),r3 ; r3 -> a[] | ||
142 | movl n(ap),r4 ; r4 = n (assumed >0 by C code) | ||
143 | |||
144 | 0$: | ||
145 | movl (r3)+,r5 ; r5 = a[] & advance | ||
146 | |||
147 | ; <r1,r0> := a[] * a[] | ||
148 | emul r5,r5,#0,r0 ; a[] considered signed | ||
149 | |||
150 | ; fixup for "negative" a[] | ||
151 | tstl r5 ; a[] | ||
152 | bgeq 30$ | ||
153 | addl2 r5,r1 ; a[] | ||
154 | addl2 r5,r1 ; a[] | ||
155 | 30$: | ||
156 | |||
157 | movl r0,(r2)+ ; store lo result in r[] & advance | ||
158 | movl r1,(r2)+ ; store hi result in r[] & advance | ||
159 | |||
160 | sobgtr r4,0$ | ||
161 | |||
162 | movl #1,r0 ; return SS$_NORMAL | ||
163 | ret | ||
164 | |||
165 | .title vax_bn_div_words unsigned divide | ||
166 | ; | ||
167 | ; Richard Levitte 20-Nov-2000 | ||
168 | ; | ||
169 | ; ULONG bn_div_words(ULONG h, ULONG l, ULONG d) | ||
170 | ; { | ||
171 | ; return ((ULONG)((((ULLONG)h)<<32)|l) / (ULLONG)d); | ||
172 | ; } | ||
173 | ; | ||
174 | ; Using EDIV would be very easy, if it didn't do signed calculations. | ||
175 | ; Any time any of the input numbers are signed, there are problems, | ||
176 | ; usually with integer overflow, at which point it returns useless | ||
177 | ; data (the quotient gets the value of l, and the remainder becomes 0). | ||
178 | ; | ||
179 | ; If it was just for the dividend, it would be very easy, just divide | ||
180 | ; it by 2 (unsigned), do the division, multiply the resulting quotient | ||
181 | ; and remainder by 2, add the bit that was dropped when dividing by 2 | ||
182 | ; to the remainder, and do some adjustment so the remainder doesn't | ||
183 | ; end up larger than the divisor. For some cases when the divisor is | ||
184 | ; negative (from EDIV's point of view, i.e. when the highest bit is set), | ||
185 | ; dividing the dividend by 2 isn't enough, and since some operations | ||
186 | ; might generate integer overflows even when the dividend is divided by | ||
187 | ; 4 (when the high part of the shifted down dividend ends up being exactly | ||
188 | ; half of the divisor, the result is the quotient 0x80000000, which is | ||
189 | ; negative...) it needs to be divided by 8. Furthermore, the divisor needs | ||
190 | ; to be divided by 2 (unsigned) as well, to avoid more problems with the sign. | ||
191 | ; In this case, a little extra fiddling with the remainder is required. | ||
192 | ; | ||
193 | ; So, the simplest way to handle this is always to divide the dividend | ||
194 | ; by 8, and to divide the divisor by 2 if it's highest bit is set. | ||
195 | ; After EDIV has been used, the quotient gets multiplied by 8 if the | ||
196 | ; original divisor was positive, otherwise 4. The remainder, oddly | ||
197 | ; enough, is *always* multiplied by 8. | ||
198 | ; NOTE: in the case mentioned above, where the high part of the shifted | ||
199 | ; down dividend ends up being exactly half the shifted down divisor, we | ||
200 | ; end up with a 33 bit quotient. That's no problem however, it usually | ||
201 | ; means we have ended up with a too large remainder as well, and the | ||
202 | ; problem is fixed by the last part of the algorithm (next paragraph). | ||
203 | ; | ||
204 | ; The routine ends with comparing the resulting remainder with the | ||
205 | ; original divisor and if the remainder is larger, subtract the | ||
206 | ; original divisor from it, and increase the quotient by 1. This is | ||
207 | ; done until the remainder is smaller than the divisor. | ||
208 | ; | ||
209 | ; The complete algorithm looks like this: | ||
210 | ; | ||
211 | ; d' = d | ||
212 | ; l' = l & 7 | ||
213 | ; [h,l] = [h,l] >> 3 | ||
214 | ; [q,r] = floor([h,l] / d) # This is the EDIV operation | ||
215 | ; if (q < 0) q = -q # I doubt this is necessary any more | ||
216 | ; | ||
217 | ; r' = r >> 29 | ||
218 | ; if (d' >= 0) | ||
219 | ; q' = q >> 29 | ||
220 | ; q = q << 3 | ||
221 | ; else | ||
222 | ; q' = q >> 30 | ||
223 | ; q = q << 2 | ||
224 | ; r = (r << 3) + l' | ||
225 | ; | ||
226 | ; if (d' < 0) | ||
227 | ; { | ||
228 | ; [r',r] = [r',r] - q | ||
229 | ; while ([r',r] < 0) | ||
230 | ; { | ||
231 | ; [r',r] = [r',r] + d | ||
232 | ; [q',q] = [q',q] - 1 | ||
233 | ; } | ||
234 | ; } | ||
235 | ; | ||
236 | ; while ([r',r] >= d') | ||
237 | ; { | ||
238 | ; [r',r] = [r',r] - d' | ||
239 | ; [q',q] = [q',q] + 1 | ||
240 | ; } | ||
241 | ; | ||
242 | ; return q | ||
243 | |||
244 | h=4 ;(AP) h by value (input) | ||
245 | l=8 ;(AP) l by value (input) | ||
246 | d=12 ;(AP) d by value (input) | ||
247 | |||
248 | ;r2 = l, q | ||
249 | ;r3 = h, r | ||
250 | ;r4 = d | ||
251 | ;r5 = l' | ||
252 | ;r6 = r' | ||
253 | ;r7 = d' | ||
254 | ;r8 = q' | ||
255 | |||
256 | .psect code,nowrt | ||
257 | |||
258 | .entry bn_div_words,^m<r2,r3,r4,r5,r6,r7,r8> | ||
259 | movl l(ap),r2 | ||
260 | movl h(ap),r3 | ||
261 | movl d(ap),r4 | ||
262 | |||
263 | bicl3 #^XFFFFFFF8,r2,r5 ; l' = l & 7 | ||
264 | bicl3 #^X00000007,r2,r2 | ||
265 | |||
266 | bicl3 #^XFFFFFFF8,r3,r6 | ||
267 | bicl3 #^X00000007,r3,r3 | ||
268 | |||
269 | addl r6,r2 | ||
270 | |||
271 | rotl #-3,r2,r2 ; l = l >> 3 | ||
272 | rotl #-3,r3,r3 ; h = h >> 3 | ||
273 | |||
274 | movl r4,r7 ; d' = d | ||
275 | |||
276 | movl #0,r6 ; r' = 0 | ||
277 | movl #0,r8 ; q' = 0 | ||
278 | |||
279 | tstl r4 | ||
280 | beql 666$ ; Uh-oh, the divisor is 0... | ||
281 | bgtr 1$ | ||
282 | rotl #-1,r4,r4 ; If d is negative, shift it right. | ||
283 | bicl2 #^X80000000,r4 ; Since d is then a large number, the | ||
284 | ; lowest bit is insignificant | ||
285 | ; (contradict that, and I'll fix the problem!) | ||
286 | 1$: | ||
287 | ediv r4,r2,r2,r3 ; Do the actual division | ||
288 | |||
289 | tstl r2 | ||
290 | bgeq 3$ | ||
291 | mnegl r2,r2 ; if q < 0, negate it | ||
292 | 3$: | ||
293 | tstl r7 | ||
294 | blss 4$ | ||
295 | rotl #3,r2,r2 ; q = q << 3 | ||
296 | bicl3 #^XFFFFFFF8,r2,r8 ; q' gets the high bits from q | ||
297 | bicl3 #^X00000007,r2,r2 | ||
298 | bsb 41$ | ||
299 | 4$: ; else | ||
300 | rotl #2,r2,r2 ; q = q << 2 | ||
301 | bicl3 #^XFFFFFFFC,r2,r8 ; q' gets the high bits from q | ||
302 | bicl3 #^X00000003,r2,r2 | ||
303 | 41$: | ||
304 | rotl #3,r3,r3 ; r = r << 3 | ||
305 | bicl3 #^XFFFFFFF8,r3,r6 ; r' gets the high bits from r | ||
306 | bicl3 #^X00000007,r3,r3 | ||
307 | addl r5,r3 ; r = r + l' | ||
308 | |||
309 | tstl r7 | ||
310 | bgeq 5$ | ||
311 | bitl #1,r7 | ||
312 | beql 5$ ; if d' < 0 && d' & 1 | ||
313 | subl r2,r3 ; [r',r] = [r',r] - [q',q] | ||
314 | sbwc r8,r6 | ||
315 | 45$: | ||
316 | bgeq 5$ ; while r < 0 | ||
317 | decl r2 ; [q',q] = [q',q] - 1 | ||
318 | sbwc #0,r8 | ||
319 | addl r7,r3 ; [r',r] = [r',r] + d' | ||
320 | adwc #0,r6 | ||
321 | brb 45$ | ||
322 | |||
323 | ; The return points are placed in the middle to keep a short distance from | ||
324 | ; all the branch points | ||
325 | 42$: | ||
326 | ; movl r3,r1 | ||
327 | movl r2,r0 | ||
328 | ret | ||
329 | 666$: | ||
330 | movl #^XFFFFFFFF,r0 | ||
331 | ret | ||
332 | |||
333 | 5$: | ||
334 | tstl r6 | ||
335 | bneq 6$ | ||
336 | cmpl r3,r7 | ||
337 | blssu 42$ ; while [r',r] >= d' | ||
338 | 6$: | ||
339 | subl r7,r3 ; [r',r] = [r',r] - d' | ||
340 | sbwc #0,r6 | ||
341 | incl r2 ; [q',q] = [q',q] + 1 | ||
342 | adwc #0,r8 | ||
343 | brb 5$ | ||
344 | |||
345 | .title vax_bn_add_words unsigned add of two arrays | ||
346 | ; | ||
347 | ; Richard Levitte 20-Nov-2000 | ||
348 | ; | ||
349 | ; ULONG bn_add_words(ULONG r[], ULONG a[], ULONG b[], int n) { | ||
350 | ; ULONG c = 0; | ||
351 | ; int i; | ||
352 | ; for (i = 0; i < n; i++) <c,r[i]> = a[i] + b[i] + c; | ||
353 | ; return(c); | ||
354 | ; } | ||
355 | |||
356 | r=4 ;(AP) r by reference (output) | ||
357 | a=8 ;(AP) a by reference (input) | ||
358 | b=12 ;(AP) b by reference (input) | ||
359 | n=16 ;(AP) n by value (input) | ||
360 | |||
361 | |||
362 | .psect code,nowrt | ||
363 | |||
364 | .entry bn_add_words,^m<r2,r3,r4,r5,r6> | ||
365 | |||
366 | moval @r(ap),r2 | ||
367 | moval @a(ap),r3 | ||
368 | moval @b(ap),r4 | ||
369 | movl n(ap),r5 ; assumed >0 by C code | ||
370 | clrl r0 ; c | ||
371 | |||
372 | tstl r5 ; carry = 0 | ||
373 | bleq 666$ | ||
374 | |||
375 | 0$: | ||
376 | movl (r3)+,r6 ; carry untouched | ||
377 | adwc (r4)+,r6 ; carry used and touched | ||
378 | movl r6,(r2)+ ; carry untouched | ||
379 | sobgtr r5,0$ ; carry untouched | ||
380 | |||
381 | adwc #0,r0 | ||
382 | 666$: | ||
383 | ret | ||
384 | |||
385 | .title vax_bn_sub_words unsigned add of two arrays | ||
386 | ; | ||
387 | ; Richard Levitte 20-Nov-2000 | ||
388 | ; | ||
389 | ; ULONG bn_sub_words(ULONG r[], ULONG a[], ULONG b[], int n) { | ||
390 | ; ULONG c = 0; | ||
391 | ; int i; | ||
392 | ; for (i = 0; i < n; i++) <c,r[i]> = a[i] - b[i] - c; | ||
393 | ; return(c); | ||
394 | ; } | ||
395 | |||
396 | r=4 ;(AP) r by reference (output) | ||
397 | a=8 ;(AP) a by reference (input) | ||
398 | b=12 ;(AP) b by reference (input) | ||
399 | n=16 ;(AP) n by value (input) | ||
400 | |||
401 | |||
402 | .psect code,nowrt | ||
403 | |||
404 | .entry bn_sub_words,^m<r2,r3,r4,r5,r6> | ||
405 | |||
406 | moval @r(ap),r2 | ||
407 | moval @a(ap),r3 | ||
408 | moval @b(ap),r4 | ||
409 | movl n(ap),r5 ; assumed >0 by C code | ||
410 | clrl r0 ; c | ||
411 | |||
412 | tstl r5 ; carry = 0 | ||
413 | bleq 666$ | ||
414 | |||
415 | 0$: | ||
416 | movl (r3)+,r6 ; carry untouched | ||
417 | sbwc (r4)+,r6 ; carry used and touched | ||
418 | movl r6,(r2)+ ; carry untouched | ||
419 | sobgtr r5,0$ ; carry untouched | ||
420 | |||
421 | adwc #0,r0 | ||
422 | 666$: | ||
423 | ret | ||
424 | |||
425 | |||
426 | ;r=4 ;(AP) | ||
427 | ;a=8 ;(AP) | ||
428 | ;b=12 ;(AP) | ||
429 | ;n=16 ;(AP) n by value (input) | ||
430 | |||
431 | .psect code,nowrt | ||
432 | |||
433 | .entry BN_MUL_COMBA8,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> | ||
434 | movab -924(sp),sp | ||
435 | clrq r8 | ||
436 | |||
437 | clrl r10 | ||
438 | |||
439 | movl 8(ap),r6 | ||
440 | movzwl 2(r6),r3 | ||
441 | movl 12(ap),r7 | ||
442 | bicl3 #-65536,(r7),r2 | ||
443 | movzwl 2(r7),r0 | ||
444 | bicl2 #-65536,r0 | ||
445 | bicl3 #-65536,(r6),-12(fp) | ||
446 | bicl3 #-65536,r3,-16(fp) | ||
447 | mull3 r0,-12(fp),-4(fp) | ||
448 | mull2 r2,-12(fp) | ||
449 | mull3 r2,-16(fp),-8(fp) | ||
450 | mull2 r0,-16(fp) | ||
451 | addl3 -4(fp),-8(fp),r0 | ||
452 | bicl3 #0,r0,-4(fp) | ||
453 | cmpl -4(fp),-8(fp) | ||
454 | bgequ noname.45 | ||
455 | addl2 #65536,-16(fp) | ||
456 | noname.45: | ||
457 | movzwl -2(fp),r0 | ||
458 | bicl2 #-65536,r0 | ||
459 | addl2 r0,-16(fp) | ||
460 | bicl3 #-65536,-4(fp),r0 | ||
461 | ashl #16,r0,-8(fp) | ||
462 | addl3 -8(fp),-12(fp),r0 | ||
463 | bicl3 #0,r0,-12(fp) | ||
464 | cmpl -12(fp),-8(fp) | ||
465 | bgequ noname.46 | ||
466 | incl -16(fp) | ||
467 | noname.46: | ||
468 | movl -12(fp),r1 | ||
469 | movl -16(fp),r2 | ||
470 | addl2 r1,r9 | ||
471 | bicl2 #0,r9 | ||
472 | cmpl r9,r1 | ||
473 | bgequ noname.47 | ||
474 | incl r2 | ||
475 | noname.47: | ||
476 | addl2 r2,r8 | ||
477 | bicl2 #0,r8 | ||
478 | cmpl r8,r2 | ||
479 | bgequ noname.48 | ||
480 | incl r10 | ||
481 | noname.48: | ||
482 | |||
483 | movl 4(ap),r11 | ||
484 | movl r9,(r11) | ||
485 | |||
486 | clrl r9 | ||
487 | |||
488 | movzwl 2(r6),r2 | ||
489 | bicl3 #-65536,4(r7),r3 | ||
490 | movzwl 6(r7),r0 | ||
491 | bicl2 #-65536,r0 | ||
492 | bicl3 #-65536,(r6),-28(fp) | ||
493 | bicl3 #-65536,r2,-32(fp) | ||
494 | mull3 r0,-28(fp),-20(fp) | ||
495 | mull2 r3,-28(fp) | ||
496 | mull3 r3,-32(fp),-24(fp) | ||
497 | mull2 r0,-32(fp) | ||
498 | addl3 -20(fp),-24(fp),r0 | ||
499 | bicl3 #0,r0,-20(fp) | ||
500 | cmpl -20(fp),-24(fp) | ||
501 | bgequ noname.49 | ||
502 | addl2 #65536,-32(fp) | ||
503 | noname.49: | ||
504 | movzwl -18(fp),r0 | ||
505 | bicl2 #-65536,r0 | ||
506 | addl2 r0,-32(fp) | ||
507 | bicl3 #-65536,-20(fp),r0 | ||
508 | ashl #16,r0,-24(fp) | ||
509 | addl3 -24(fp),-28(fp),r0 | ||
510 | bicl3 #0,r0,-28(fp) | ||
511 | cmpl -28(fp),-24(fp) | ||
512 | bgequ noname.50 | ||
513 | incl -32(fp) | ||
514 | noname.50: | ||
515 | movl -28(fp),r1 | ||
516 | movl -32(fp),r2 | ||
517 | addl2 r1,r8 | ||
518 | bicl2 #0,r8 | ||
519 | cmpl r8,r1 | ||
520 | bgequ noname.51 | ||
521 | incl r2 | ||
522 | noname.51: | ||
523 | addl2 r2,r10 | ||
524 | bicl2 #0,r10 | ||
525 | cmpl r10,r2 | ||
526 | bgequ noname.52 | ||
527 | incl r9 | ||
528 | noname.52: | ||
529 | |||
530 | movzwl 6(r6),r2 | ||
531 | bicl3 #-65536,(r7),r3 | ||
532 | movzwl 2(r7),r0 | ||
533 | bicl2 #-65536,r0 | ||
534 | bicl3 #-65536,4(r6),-44(fp) | ||
535 | bicl3 #-65536,r2,-48(fp) | ||
536 | mull3 r0,-44(fp),-36(fp) | ||
537 | mull2 r3,-44(fp) | ||
538 | mull3 r3,-48(fp),-40(fp) | ||
539 | mull2 r0,-48(fp) | ||
540 | addl3 -36(fp),-40(fp),r0 | ||
541 | bicl3 #0,r0,-36(fp) | ||
542 | cmpl -36(fp),-40(fp) | ||
543 | bgequ noname.53 | ||
544 | addl2 #65536,-48(fp) | ||
545 | noname.53: | ||
546 | movzwl -34(fp),r0 | ||
547 | bicl2 #-65536,r0 | ||
548 | addl2 r0,-48(fp) | ||
549 | bicl3 #-65536,-36(fp),r0 | ||
550 | ashl #16,r0,-40(fp) | ||
551 | addl3 -40(fp),-44(fp),r0 | ||
552 | bicl3 #0,r0,-44(fp) | ||
553 | cmpl -44(fp),-40(fp) | ||
554 | bgequ noname.54 | ||
555 | incl -48(fp) | ||
556 | noname.54: | ||
557 | movl -44(fp),r1 | ||
558 | movl -48(fp),r2 | ||
559 | addl2 r1,r8 | ||
560 | bicl2 #0,r8 | ||
561 | cmpl r8,r1 | ||
562 | bgequ noname.55 | ||
563 | incl r2 | ||
564 | noname.55: | ||
565 | addl2 r2,r10 | ||
566 | bicl2 #0,r10 | ||
567 | cmpl r10,r2 | ||
568 | bgequ noname.56 | ||
569 | incl r9 | ||
570 | noname.56: | ||
571 | |||
572 | movl r8,4(r11) | ||
573 | |||
574 | clrl r8 | ||
575 | |||
576 | movzwl 10(r6),r2 | ||
577 | bicl3 #-65536,(r7),r3 | ||
578 | movzwl 2(r7),r0 | ||
579 | bicl2 #-65536,r0 | ||
580 | bicl3 #-65536,8(r6),-60(fp) | ||
581 | bicl3 #-65536,r2,-64(fp) | ||
582 | mull3 r0,-60(fp),-52(fp) | ||
583 | mull2 r3,-60(fp) | ||
584 | mull3 r3,-64(fp),-56(fp) | ||
585 | mull2 r0,-64(fp) | ||
586 | addl3 -52(fp),-56(fp),r0 | ||
587 | bicl3 #0,r0,-52(fp) | ||
588 | cmpl -52(fp),-56(fp) | ||
589 | bgequ noname.57 | ||
590 | addl2 #65536,-64(fp) | ||
591 | noname.57: | ||
592 | movzwl -50(fp),r0 | ||
593 | bicl2 #-65536,r0 | ||
594 | addl2 r0,-64(fp) | ||
595 | bicl3 #-65536,-52(fp),r0 | ||
596 | ashl #16,r0,-56(fp) | ||
597 | addl3 -56(fp),-60(fp),r0 | ||
598 | bicl3 #0,r0,-60(fp) | ||
599 | cmpl -60(fp),-56(fp) | ||
600 | bgequ noname.58 | ||
601 | incl -64(fp) | ||
602 | noname.58: | ||
603 | movl -60(fp),r1 | ||
604 | movl -64(fp),r2 | ||
605 | addl2 r1,r10 | ||
606 | bicl2 #0,r10 | ||
607 | cmpl r10,r1 | ||
608 | bgequ noname.59 | ||
609 | incl r2 | ||
610 | noname.59: | ||
611 | addl2 r2,r9 | ||
612 | bicl2 #0,r9 | ||
613 | cmpl r9,r2 | ||
614 | bgequ noname.60 | ||
615 | incl r8 | ||
616 | noname.60: | ||
617 | |||
618 | movzwl 6(r6),r2 | ||
619 | bicl3 #-65536,4(r7),r3 | ||
620 | movzwl 6(r7),r0 | ||
621 | bicl2 #-65536,r0 | ||
622 | bicl3 #-65536,4(r6),-76(fp) | ||
623 | bicl3 #-65536,r2,-80(fp) | ||
624 | mull3 r0,-76(fp),-68(fp) | ||
625 | mull2 r3,-76(fp) | ||
626 | mull3 r3,-80(fp),-72(fp) | ||
627 | mull2 r0,-80(fp) | ||
628 | addl3 -68(fp),-72(fp),r0 | ||
629 | bicl3 #0,r0,-68(fp) | ||
630 | cmpl -68(fp),-72(fp) | ||
631 | bgequ noname.61 | ||
632 | addl2 #65536,-80(fp) | ||
633 | noname.61: | ||
634 | movzwl -66(fp),r0 | ||
635 | bicl2 #-65536,r0 | ||
636 | addl2 r0,-80(fp) | ||
637 | bicl3 #-65536,-68(fp),r0 | ||
638 | ashl #16,r0,-72(fp) | ||
639 | addl3 -72(fp),-76(fp),r0 | ||
640 | bicl3 #0,r0,-76(fp) | ||
641 | cmpl -76(fp),-72(fp) | ||
642 | bgequ noname.62 | ||
643 | incl -80(fp) | ||
644 | noname.62: | ||
645 | movl -76(fp),r1 | ||
646 | movl -80(fp),r2 | ||
647 | addl2 r1,r10 | ||
648 | bicl2 #0,r10 | ||
649 | cmpl r10,r1 | ||
650 | bgequ noname.63 | ||
651 | incl r2 | ||
652 | noname.63: | ||
653 | addl2 r2,r9 | ||
654 | bicl2 #0,r9 | ||
655 | cmpl r9,r2 | ||
656 | bgequ noname.64 | ||
657 | incl r8 | ||
658 | noname.64: | ||
659 | |||
660 | movzwl 2(r6),r2 | ||
661 | bicl3 #-65536,8(r7),r3 | ||
662 | movzwl 10(r7),r0 | ||
663 | bicl2 #-65536,r0 | ||
664 | bicl3 #-65536,(r6),-92(fp) | ||
665 | bicl3 #-65536,r2,-96(fp) | ||
666 | mull3 r0,-92(fp),-84(fp) | ||
667 | mull2 r3,-92(fp) | ||
668 | mull3 r3,-96(fp),-88(fp) | ||
669 | mull2 r0,-96(fp) | ||
670 | addl3 -84(fp),-88(fp),r0 | ||
671 | bicl3 #0,r0,-84(fp) | ||
672 | cmpl -84(fp),-88(fp) | ||
673 | bgequ noname.65 | ||
674 | addl2 #65536,-96(fp) | ||
675 | noname.65: | ||
676 | movzwl -82(fp),r0 | ||
677 | bicl2 #-65536,r0 | ||
678 | addl2 r0,-96(fp) | ||
679 | bicl3 #-65536,-84(fp),r0 | ||
680 | ashl #16,r0,-88(fp) | ||
681 | addl3 -88(fp),-92(fp),r0 | ||
682 | bicl3 #0,r0,-92(fp) | ||
683 | cmpl -92(fp),-88(fp) | ||
684 | bgequ noname.66 | ||
685 | incl -96(fp) | ||
686 | noname.66: | ||
687 | movl -92(fp),r1 | ||
688 | movl -96(fp),r2 | ||
689 | addl2 r1,r10 | ||
690 | bicl2 #0,r10 | ||
691 | cmpl r10,r1 | ||
692 | bgequ noname.67 | ||
693 | incl r2 | ||
694 | noname.67: | ||
695 | addl2 r2,r9 | ||
696 | bicl2 #0,r9 | ||
697 | cmpl r9,r2 | ||
698 | bgequ noname.68 | ||
699 | incl r8 | ||
700 | noname.68: | ||
701 | |||
702 | movl r10,8(r11) | ||
703 | |||
704 | clrl r10 | ||
705 | |||
706 | movzwl 2(r6),r2 | ||
707 | bicl3 #-65536,12(r7),r3 | ||
708 | movzwl 14(r7),r0 | ||
709 | bicl2 #-65536,r0 | ||
710 | bicl3 #-65536,(r6),-108(fp) | ||
711 | bicl3 #-65536,r2,-112(fp) | ||
712 | mull3 r0,-108(fp),-100(fp) | ||
713 | mull2 r3,-108(fp) | ||
714 | mull3 r3,-112(fp),-104(fp) | ||
715 | mull2 r0,-112(fp) | ||
716 | addl3 -100(fp),-104(fp),r0 | ||
717 | bicl3 #0,r0,-100(fp) | ||
718 | cmpl -100(fp),-104(fp) | ||
719 | bgequ noname.69 | ||
720 | addl2 #65536,-112(fp) | ||
721 | noname.69: | ||
722 | movzwl -98(fp),r0 | ||
723 | bicl2 #-65536,r0 | ||
724 | addl2 r0,-112(fp) | ||
725 | bicl3 #-65536,-100(fp),r0 | ||
726 | ashl #16,r0,-104(fp) | ||
727 | addl3 -104(fp),-108(fp),r0 | ||
728 | bicl3 #0,r0,-108(fp) | ||
729 | cmpl -108(fp),-104(fp) | ||
730 | bgequ noname.70 | ||
731 | incl -112(fp) | ||
732 | noname.70: | ||
733 | movl -108(fp),r1 | ||
734 | movl -112(fp),r2 | ||
735 | addl2 r1,r9 | ||
736 | bicl2 #0,r9 | ||
737 | cmpl r9,r1 | ||
738 | bgequ noname.71 | ||
739 | incl r2 | ||
740 | noname.71: | ||
741 | addl2 r2,r8 | ||
742 | bicl2 #0,r8 | ||
743 | cmpl r8,r2 | ||
744 | bgequ noname.72 | ||
745 | incl r10 | ||
746 | noname.72: | ||
747 | |||
748 | movzwl 6(r6),r2 | ||
749 | bicl3 #-65536,8(r7),r3 | ||
750 | movzwl 10(r7),r0 | ||
751 | bicl2 #-65536,r0 | ||
752 | bicl3 #-65536,4(r6),-124(fp) | ||
753 | bicl3 #-65536,r2,-128(fp) | ||
754 | mull3 r0,-124(fp),-116(fp) | ||
755 | mull2 r3,-124(fp) | ||
756 | mull3 r3,-128(fp),-120(fp) | ||
757 | mull2 r0,-128(fp) | ||
758 | addl3 -116(fp),-120(fp),r0 | ||
759 | bicl3 #0,r0,-116(fp) | ||
760 | cmpl -116(fp),-120(fp) | ||
761 | bgequ noname.73 | ||
762 | addl2 #65536,-128(fp) | ||
763 | noname.73: | ||
764 | movzwl -114(fp),r0 | ||
765 | bicl2 #-65536,r0 | ||
766 | addl2 r0,-128(fp) | ||
767 | bicl3 #-65536,-116(fp),r0 | ||
768 | ashl #16,r0,-120(fp) | ||
769 | addl3 -120(fp),-124(fp),r0 | ||
770 | bicl3 #0,r0,-124(fp) | ||
771 | cmpl -124(fp),-120(fp) | ||
772 | bgequ noname.74 | ||
773 | incl -128(fp) | ||
774 | noname.74: | ||
775 | movl -124(fp),r1 | ||
776 | movl -128(fp),r2 | ||
777 | addl2 r1,r9 | ||
778 | bicl2 #0,r9 | ||
779 | cmpl r9,r1 | ||
780 | bgequ noname.75 | ||
781 | incl r2 | ||
782 | noname.75: | ||
783 | addl2 r2,r8 | ||
784 | bicl2 #0,r8 | ||
785 | cmpl r8,r2 | ||
786 | bgequ noname.76 | ||
787 | incl r10 | ||
788 | noname.76: | ||
789 | |||
790 | movzwl 10(r6),r2 | ||
791 | bicl3 #-65536,4(r7),r3 | ||
792 | movzwl 6(r7),r0 | ||
793 | bicl2 #-65536,r0 | ||
794 | bicl3 #-65536,8(r6),-140(fp) | ||
795 | bicl3 #-65536,r2,-144(fp) | ||
796 | mull3 r0,-140(fp),-132(fp) | ||
797 | mull2 r3,-140(fp) | ||
798 | mull3 r3,-144(fp),-136(fp) | ||
799 | mull2 r0,-144(fp) | ||
800 | addl3 -132(fp),-136(fp),r0 | ||
801 | bicl3 #0,r0,-132(fp) | ||
802 | cmpl -132(fp),-136(fp) | ||
803 | bgequ noname.77 | ||
804 | addl2 #65536,-144(fp) | ||
805 | noname.77: | ||
806 | movzwl -130(fp),r0 | ||
807 | bicl2 #-65536,r0 | ||
808 | addl2 r0,-144(fp) | ||
809 | bicl3 #-65536,-132(fp),r0 | ||
810 | ashl #16,r0,-136(fp) | ||
811 | addl3 -136(fp),-140(fp),r0 | ||
812 | bicl3 #0,r0,-140(fp) | ||
813 | cmpl -140(fp),-136(fp) | ||
814 | bgequ noname.78 | ||
815 | incl -144(fp) | ||
816 | noname.78: | ||
817 | movl -140(fp),r1 | ||
818 | movl -144(fp),r2 | ||
819 | addl2 r1,r9 | ||
820 | bicl2 #0,r9 | ||
821 | cmpl r9,r1 | ||
822 | bgequ noname.79 | ||
823 | incl r2 | ||
824 | noname.79: | ||
825 | addl2 r2,r8 | ||
826 | bicl2 #0,r8 | ||
827 | cmpl r8,r2 | ||
828 | bgequ noname.80 | ||
829 | incl r10 | ||
830 | noname.80: | ||
831 | |||
832 | movzwl 14(r6),r2 | ||
833 | bicl3 #-65536,(r7),r3 | ||
834 | movzwl 2(r7),r0 | ||
835 | bicl2 #-65536,r0 | ||
836 | bicl3 #-65536,12(r6),-156(fp) | ||
837 | bicl3 #-65536,r2,-160(fp) | ||
838 | mull3 r0,-156(fp),-148(fp) | ||
839 | mull2 r3,-156(fp) | ||
840 | mull3 r3,-160(fp),-152(fp) | ||
841 | mull2 r0,-160(fp) | ||
842 | addl3 -148(fp),-152(fp),r0 | ||
843 | bicl3 #0,r0,-148(fp) | ||
844 | cmpl -148(fp),-152(fp) | ||
845 | bgequ noname.81 | ||
846 | addl2 #65536,-160(fp) | ||
847 | noname.81: | ||
848 | movzwl -146(fp),r0 | ||
849 | bicl2 #-65536,r0 | ||
850 | addl2 r0,-160(fp) | ||
851 | bicl3 #-65536,-148(fp),r0 | ||
852 | ashl #16,r0,-152(fp) | ||
853 | addl3 -152(fp),-156(fp),r0 | ||
854 | bicl3 #0,r0,-156(fp) | ||
855 | cmpl -156(fp),-152(fp) | ||
856 | bgequ noname.82 | ||
857 | incl -160(fp) | ||
858 | noname.82: | ||
859 | movl -156(fp),r1 | ||
860 | movl -160(fp),r2 | ||
861 | addl2 r1,r9 | ||
862 | bicl2 #0,r9 | ||
863 | cmpl r9,r1 | ||
864 | bgequ noname.83 | ||
865 | incl r2 | ||
866 | noname.83: | ||
867 | addl2 r2,r8 | ||
868 | bicl2 #0,r8 | ||
869 | cmpl r8,r2 | ||
870 | bgequ noname.84 | ||
871 | incl r10 | ||
872 | noname.84: | ||
873 | |||
874 | movl r9,12(r11) | ||
875 | |||
876 | clrl r9 | ||
877 | |||
878 | movzwl 18(r6),r2 | ||
879 | bicl3 #-65536,(r7),r3 | ||
880 | movzwl 2(r7),r0 | ||
881 | bicl2 #-65536,r0 | ||
882 | bicl3 #-65536,16(r6),-172(fp) | ||
883 | bicl3 #-65536,r2,-176(fp) | ||
884 | mull3 r0,-172(fp),-164(fp) | ||
885 | mull2 r3,-172(fp) | ||
886 | mull3 r3,-176(fp),-168(fp) | ||
887 | mull2 r0,-176(fp) | ||
888 | addl3 -164(fp),-168(fp),r0 | ||
889 | bicl3 #0,r0,-164(fp) | ||
890 | cmpl -164(fp),-168(fp) | ||
891 | bgequ noname.85 | ||
892 | addl2 #65536,-176(fp) | ||
893 | noname.85: | ||
894 | movzwl -162(fp),r0 | ||
895 | bicl2 #-65536,r0 | ||
896 | addl2 r0,-176(fp) | ||
897 | bicl3 #-65536,-164(fp),r0 | ||
898 | ashl #16,r0,-168(fp) | ||
899 | addl3 -168(fp),-172(fp),r0 | ||
900 | bicl3 #0,r0,-172(fp) | ||
901 | cmpl -172(fp),-168(fp) | ||
902 | bgequ noname.86 | ||
903 | incl -176(fp) | ||
904 | noname.86: | ||
905 | movl -172(fp),r1 | ||
906 | movl -176(fp),r2 | ||
907 | addl2 r1,r8 | ||
908 | bicl2 #0,r8 | ||
909 | cmpl r8,r1 | ||
910 | bgequ noname.87 | ||
911 | incl r2 | ||
912 | noname.87: | ||
913 | addl2 r2,r10 | ||
914 | bicl2 #0,r10 | ||
915 | cmpl r10,r2 | ||
916 | bgequ noname.88 | ||
917 | incl r9 | ||
918 | noname.88: | ||
919 | |||
920 | movzwl 14(r6),r2 | ||
921 | bicl3 #-65536,4(r7),r3 | ||
922 | movzwl 6(r7),r0 | ||
923 | bicl2 #-65536,r0 | ||
924 | bicl3 #-65536,12(r6),-188(fp) | ||
925 | bicl3 #-65536,r2,-192(fp) | ||
926 | mull3 r0,-188(fp),-180(fp) | ||
927 | mull2 r3,-188(fp) | ||
928 | mull3 r3,-192(fp),-184(fp) | ||
929 | mull2 r0,-192(fp) | ||
930 | addl3 -180(fp),-184(fp),r0 | ||
931 | bicl3 #0,r0,-180(fp) | ||
932 | cmpl -180(fp),-184(fp) | ||
933 | bgequ noname.89 | ||
934 | addl2 #65536,-192(fp) | ||
935 | noname.89: | ||
936 | movzwl -178(fp),r0 | ||
937 | bicl2 #-65536,r0 | ||
938 | addl2 r0,-192(fp) | ||
939 | bicl3 #-65536,-180(fp),r0 | ||
940 | ashl #16,r0,-184(fp) | ||
941 | addl3 -184(fp),-188(fp),r0 | ||
942 | bicl3 #0,r0,-188(fp) | ||
943 | cmpl -188(fp),-184(fp) | ||
944 | bgequ noname.90 | ||
945 | incl -192(fp) | ||
946 | noname.90: | ||
947 | movl -188(fp),r1 | ||
948 | movl -192(fp),r2 | ||
949 | addl2 r1,r8 | ||
950 | bicl2 #0,r8 | ||
951 | cmpl r8,r1 | ||
952 | bgequ noname.91 | ||
953 | incl r2 | ||
954 | noname.91: | ||
955 | addl2 r2,r10 | ||
956 | bicl2 #0,r10 | ||
957 | cmpl r10,r2 | ||
958 | bgequ noname.92 | ||
959 | incl r9 | ||
960 | noname.92: | ||
961 | |||
962 | movzwl 10(r6),r2 | ||
963 | bicl3 #-65536,8(r7),r3 | ||
964 | movzwl 10(r7),r0 | ||
965 | bicl2 #-65536,r0 | ||
966 | bicl3 #-65536,8(r6),-204(fp) | ||
967 | bicl3 #-65536,r2,-208(fp) | ||
968 | mull3 r0,-204(fp),-196(fp) | ||
969 | mull2 r3,-204(fp) | ||
970 | mull3 r3,-208(fp),-200(fp) | ||
971 | mull2 r0,-208(fp) | ||
972 | addl3 -196(fp),-200(fp),r0 | ||
973 | bicl3 #0,r0,-196(fp) | ||
974 | cmpl -196(fp),-200(fp) | ||
975 | bgequ noname.93 | ||
976 | addl2 #65536,-208(fp) | ||
977 | noname.93: | ||
978 | movzwl -194(fp),r0 | ||
979 | bicl2 #-65536,r0 | ||
980 | addl2 r0,-208(fp) | ||
981 | bicl3 #-65536,-196(fp),r0 | ||
982 | ashl #16,r0,-200(fp) | ||
983 | addl3 -200(fp),-204(fp),r0 | ||
984 | bicl3 #0,r0,-204(fp) | ||
985 | cmpl -204(fp),-200(fp) | ||
986 | bgequ noname.94 | ||
987 | incl -208(fp) | ||
988 | noname.94: | ||
989 | movl -204(fp),r1 | ||
990 | movl -208(fp),r2 | ||
991 | addl2 r1,r8 | ||
992 | bicl2 #0,r8 | ||
993 | cmpl r8,r1 | ||
994 | bgequ noname.95 | ||
995 | incl r2 | ||
996 | noname.95: | ||
997 | addl2 r2,r10 | ||
998 | bicl2 #0,r10 | ||
999 | cmpl r10,r2 | ||
1000 | bgequ noname.96 | ||
1001 | incl r9 | ||
1002 | noname.96: | ||
1003 | |||
1004 | movzwl 6(r6),r2 | ||
1005 | bicl3 #-65536,12(r7),r3 | ||
1006 | movzwl 14(r7),r0 | ||
1007 | bicl2 #-65536,r0 | ||
1008 | bicl3 #-65536,4(r6),-220(fp) | ||
1009 | bicl3 #-65536,r2,-224(fp) | ||
1010 | mull3 r0,-220(fp),-212(fp) | ||
1011 | mull2 r3,-220(fp) | ||
1012 | mull3 r3,-224(fp),-216(fp) | ||
1013 | mull2 r0,-224(fp) | ||
1014 | addl3 -212(fp),-216(fp),r0 | ||
1015 | bicl3 #0,r0,-212(fp) | ||
1016 | cmpl -212(fp),-216(fp) | ||
1017 | bgequ noname.97 | ||
1018 | addl2 #65536,-224(fp) | ||
1019 | noname.97: | ||
1020 | movzwl -210(fp),r0 | ||
1021 | bicl2 #-65536,r0 | ||
1022 | addl2 r0,-224(fp) | ||
1023 | bicl3 #-65536,-212(fp),r0 | ||
1024 | ashl #16,r0,-216(fp) | ||
1025 | addl3 -216(fp),-220(fp),r0 | ||
1026 | bicl3 #0,r0,-220(fp) | ||
1027 | cmpl -220(fp),-216(fp) | ||
1028 | bgequ noname.98 | ||
1029 | incl -224(fp) | ||
1030 | noname.98: | ||
1031 | movl -220(fp),r1 | ||
1032 | movl -224(fp),r2 | ||
1033 | addl2 r1,r8 | ||
1034 | bicl2 #0,r8 | ||
1035 | cmpl r8,r1 | ||
1036 | bgequ noname.99 | ||
1037 | incl r2 | ||
1038 | noname.99: | ||
1039 | addl2 r2,r10 | ||
1040 | bicl2 #0,r10 | ||
1041 | cmpl r10,r2 | ||
1042 | bgequ noname.100 | ||
1043 | incl r9 | ||
1044 | noname.100: | ||
1045 | |||
1046 | movzwl 2(r6),r2 | ||
1047 | bicl3 #-65536,16(r7),r3 | ||
1048 | movzwl 18(r7),r0 | ||
1049 | bicl2 #-65536,r0 | ||
1050 | bicl3 #-65536,(r6),-236(fp) | ||
1051 | bicl3 #-65536,r2,-240(fp) | ||
1052 | mull3 r0,-236(fp),-228(fp) | ||
1053 | mull2 r3,-236(fp) | ||
1054 | mull3 r3,-240(fp),-232(fp) | ||
1055 | mull2 r0,-240(fp) | ||
1056 | addl3 -228(fp),-232(fp),r0 | ||
1057 | bicl3 #0,r0,-228(fp) | ||
1058 | cmpl -228(fp),-232(fp) | ||
1059 | bgequ noname.101 | ||
1060 | addl2 #65536,-240(fp) | ||
1061 | noname.101: | ||
1062 | movzwl -226(fp),r0 | ||
1063 | bicl2 #-65536,r0 | ||
1064 | addl2 r0,-240(fp) | ||
1065 | bicl3 #-65536,-228(fp),r0 | ||
1066 | ashl #16,r0,-232(fp) | ||
1067 | addl3 -232(fp),-236(fp),r0 | ||
1068 | bicl3 #0,r0,-236(fp) | ||
1069 | cmpl -236(fp),-232(fp) | ||
1070 | bgequ noname.102 | ||
1071 | incl -240(fp) | ||
1072 | noname.102: | ||
1073 | movl -236(fp),r1 | ||
1074 | movl -240(fp),r2 | ||
1075 | addl2 r1,r8 | ||
1076 | bicl2 #0,r8 | ||
1077 | cmpl r8,r1 | ||
1078 | bgequ noname.103 | ||
1079 | incl r2 | ||
1080 | noname.103: | ||
1081 | addl2 r2,r10 | ||
1082 | bicl2 #0,r10 | ||
1083 | cmpl r10,r2 | ||
1084 | bgequ noname.104 | ||
1085 | incl r9 | ||
1086 | noname.104: | ||
1087 | |||
1088 | movl r8,16(r11) | ||
1089 | |||
1090 | clrl r8 | ||
1091 | |||
1092 | movzwl 2(r6),r2 | ||
1093 | bicl3 #-65536,20(r7),r3 | ||
1094 | movzwl 22(r7),r0 | ||
1095 | bicl2 #-65536,r0 | ||
1096 | bicl3 #-65536,(r6),-252(fp) | ||
1097 | bicl3 #-65536,r2,-256(fp) | ||
1098 | mull3 r0,-252(fp),-244(fp) | ||
1099 | mull2 r3,-252(fp) | ||
1100 | mull3 r3,-256(fp),-248(fp) | ||
1101 | mull2 r0,-256(fp) | ||
1102 | addl3 -244(fp),-248(fp),r0 | ||
1103 | bicl3 #0,r0,-244(fp) | ||
1104 | cmpl -244(fp),-248(fp) | ||
1105 | bgequ noname.105 | ||
1106 | addl2 #65536,-256(fp) | ||
1107 | noname.105: | ||
1108 | movzwl -242(fp),r0 | ||
1109 | bicl2 #-65536,r0 | ||
1110 | addl2 r0,-256(fp) | ||
1111 | bicl3 #-65536,-244(fp),r0 | ||
1112 | ashl #16,r0,-248(fp) | ||
1113 | addl3 -248(fp),-252(fp),r0 | ||
1114 | bicl3 #0,r0,-252(fp) | ||
1115 | cmpl -252(fp),-248(fp) | ||
1116 | bgequ noname.106 | ||
1117 | incl -256(fp) | ||
1118 | noname.106: | ||
1119 | movl -252(fp),r1 | ||
1120 | movl -256(fp),r2 | ||
1121 | addl2 r1,r10 | ||
1122 | bicl2 #0,r10 | ||
1123 | cmpl r10,r1 | ||
1124 | bgequ noname.107 | ||
1125 | incl r2 | ||
1126 | noname.107: | ||
1127 | addl2 r2,r9 | ||
1128 | bicl2 #0,r9 | ||
1129 | cmpl r9,r2 | ||
1130 | bgequ noname.108 | ||
1131 | incl r8 | ||
1132 | noname.108: | ||
1133 | |||
1134 | movzwl 6(r6),r2 | ||
1135 | bicl3 #-65536,16(r7),r3 | ||
1136 | movzwl 18(r7),r0 | ||
1137 | bicl2 #-65536,r0 | ||
1138 | bicl3 #-65536,4(r6),-268(fp) | ||
1139 | bicl3 #-65536,r2,-272(fp) | ||
1140 | mull3 r0,-268(fp),-260(fp) | ||
1141 | mull2 r3,-268(fp) | ||
1142 | mull3 r3,-272(fp),-264(fp) | ||
1143 | mull2 r0,-272(fp) | ||
1144 | addl3 -260(fp),-264(fp),r0 | ||
1145 | bicl3 #0,r0,-260(fp) | ||
1146 | cmpl -260(fp),-264(fp) | ||
1147 | bgequ noname.109 | ||
1148 | addl2 #65536,-272(fp) | ||
1149 | noname.109: | ||
1150 | movzwl -258(fp),r0 | ||
1151 | bicl2 #-65536,r0 | ||
1152 | addl2 r0,-272(fp) | ||
1153 | bicl3 #-65536,-260(fp),r0 | ||
1154 | ashl #16,r0,-264(fp) | ||
1155 | addl3 -264(fp),-268(fp),r0 | ||
1156 | bicl3 #0,r0,-268(fp) | ||
1157 | cmpl -268(fp),-264(fp) | ||
1158 | bgequ noname.110 | ||
1159 | incl -272(fp) | ||
1160 | noname.110: | ||
1161 | movl -268(fp),r1 | ||
1162 | movl -272(fp),r2 | ||
1163 | addl2 r1,r10 | ||
1164 | bicl2 #0,r10 | ||
1165 | cmpl r10,r1 | ||
1166 | bgequ noname.111 | ||
1167 | incl r2 | ||
1168 | noname.111: | ||
1169 | addl2 r2,r9 | ||
1170 | bicl2 #0,r9 | ||
1171 | cmpl r9,r2 | ||
1172 | bgequ noname.112 | ||
1173 | incl r8 | ||
1174 | noname.112: | ||
1175 | |||
1176 | movzwl 10(r6),r2 | ||
1177 | bicl3 #-65536,12(r7),r3 | ||
1178 | movzwl 14(r7),r0 | ||
1179 | bicl2 #-65536,r0 | ||
1180 | bicl3 #-65536,8(r6),-284(fp) | ||
1181 | bicl3 #-65536,r2,-288(fp) | ||
1182 | mull3 r0,-284(fp),-276(fp) | ||
1183 | mull2 r3,-284(fp) | ||
1184 | mull3 r3,-288(fp),-280(fp) | ||
1185 | mull2 r0,-288(fp) | ||
1186 | addl3 -276(fp),-280(fp),r0 | ||
1187 | bicl3 #0,r0,-276(fp) | ||
1188 | cmpl -276(fp),-280(fp) | ||
1189 | bgequ noname.113 | ||
1190 | addl2 #65536,-288(fp) | ||
1191 | noname.113: | ||
1192 | movzwl -274(fp),r0 | ||
1193 | bicl2 #-65536,r0 | ||
1194 | addl2 r0,-288(fp) | ||
1195 | bicl3 #-65536,-276(fp),r0 | ||
1196 | ashl #16,r0,-280(fp) | ||
1197 | addl3 -280(fp),-284(fp),r0 | ||
1198 | bicl3 #0,r0,-284(fp) | ||
1199 | cmpl -284(fp),-280(fp) | ||
1200 | bgequ noname.114 | ||
1201 | incl -288(fp) | ||
1202 | noname.114: | ||
1203 | movl -284(fp),r1 | ||
1204 | movl -288(fp),r2 | ||
1205 | addl2 r1,r10 | ||
1206 | bicl2 #0,r10 | ||
1207 | cmpl r10,r1 | ||
1208 | bgequ noname.115 | ||
1209 | incl r2 | ||
1210 | noname.115: | ||
1211 | addl2 r2,r9 | ||
1212 | bicl2 #0,r9 | ||
1213 | cmpl r9,r2 | ||
1214 | bgequ noname.116 | ||
1215 | incl r8 | ||
1216 | noname.116: | ||
1217 | |||
1218 | movzwl 14(r6),r2 | ||
1219 | bicl3 #-65536,8(r7),r3 | ||
1220 | movzwl 10(r7),r0 | ||
1221 | bicl2 #-65536,r0 | ||
1222 | bicl3 #-65536,12(r6),-300(fp) | ||
1223 | bicl3 #-65536,r2,-304(fp) | ||
1224 | mull3 r0,-300(fp),-292(fp) | ||
1225 | mull2 r3,-300(fp) | ||
1226 | mull3 r3,-304(fp),-296(fp) | ||
1227 | mull2 r0,-304(fp) | ||
1228 | addl3 -292(fp),-296(fp),r0 | ||
1229 | bicl3 #0,r0,-292(fp) | ||
1230 | cmpl -292(fp),-296(fp) | ||
1231 | bgequ noname.117 | ||
1232 | addl2 #65536,-304(fp) | ||
1233 | noname.117: | ||
1234 | movzwl -290(fp),r0 | ||
1235 | bicl2 #-65536,r0 | ||
1236 | addl2 r0,-304(fp) | ||
1237 | bicl3 #-65536,-292(fp),r0 | ||
1238 | ashl #16,r0,-296(fp) | ||
1239 | addl3 -296(fp),-300(fp),r0 | ||
1240 | bicl3 #0,r0,-300(fp) | ||
1241 | cmpl -300(fp),-296(fp) | ||
1242 | bgequ noname.118 | ||
1243 | incl -304(fp) | ||
1244 | noname.118: | ||
1245 | movl -300(fp),r1 | ||
1246 | movl -304(fp),r2 | ||
1247 | addl2 r1,r10 | ||
1248 | bicl2 #0,r10 | ||
1249 | cmpl r10,r1 | ||
1250 | bgequ noname.119 | ||
1251 | incl r2 | ||
1252 | noname.119: | ||
1253 | addl2 r2,r9 | ||
1254 | bicl2 #0,r9 | ||
1255 | cmpl r9,r2 | ||
1256 | bgequ noname.120 | ||
1257 | incl r8 | ||
1258 | noname.120: | ||
1259 | |||
1260 | movzwl 18(r6),r2 | ||
1261 | bicl3 #-65536,4(r7),r3 | ||
1262 | movzwl 6(r7),r0 | ||
1263 | bicl2 #-65536,r0 | ||
1264 | bicl3 #-65536,16(r6),-316(fp) | ||
1265 | bicl3 #-65536,r2,-320(fp) | ||
1266 | mull3 r0,-316(fp),-308(fp) | ||
1267 | mull2 r3,-316(fp) | ||
1268 | mull3 r3,-320(fp),-312(fp) | ||
1269 | mull2 r0,-320(fp) | ||
1270 | addl3 -308(fp),-312(fp),r0 | ||
1271 | bicl3 #0,r0,-308(fp) | ||
1272 | cmpl -308(fp),-312(fp) | ||
1273 | bgequ noname.121 | ||
1274 | addl2 #65536,-320(fp) | ||
1275 | noname.121: | ||
1276 | movzwl -306(fp),r0 | ||
1277 | bicl2 #-65536,r0 | ||
1278 | addl2 r0,-320(fp) | ||
1279 | bicl3 #-65536,-308(fp),r0 | ||
1280 | ashl #16,r0,-312(fp) | ||
1281 | addl3 -312(fp),-316(fp),r0 | ||
1282 | bicl3 #0,r0,-316(fp) | ||
1283 | cmpl -316(fp),-312(fp) | ||
1284 | bgequ noname.122 | ||
1285 | incl -320(fp) | ||
1286 | noname.122: | ||
1287 | movl -316(fp),r1 | ||
1288 | movl -320(fp),r2 | ||
1289 | addl2 r1,r10 | ||
1290 | bicl2 #0,r10 | ||
1291 | cmpl r10,r1 | ||
1292 | bgequ noname.123 | ||
1293 | incl r2 | ||
1294 | |||
1295 | noname.123: | ||
1296 | addl2 r2,r9 | ||
1297 | bicl2 #0,r9 | ||
1298 | cmpl r9,r2 | ||
1299 | bgequ noname.124 | ||
1300 | incl r8 | ||
1301 | noname.124: | ||
1302 | |||
1303 | movzwl 22(r6),r2 | ||
1304 | bicl3 #-65536,(r7),r3 | ||
1305 | movzwl 2(r7),r0 | ||
1306 | bicl2 #-65536,r0 | ||
1307 | bicl3 #-65536,20(r6),-332(fp) | ||
1308 | bicl3 #-65536,r2,-336(fp) | ||
1309 | mull3 r0,-332(fp),-324(fp) | ||
1310 | mull2 r3,-332(fp) | ||
1311 | mull3 r3,-336(fp),-328(fp) | ||
1312 | mull2 r0,-336(fp) | ||
1313 | addl3 -324(fp),-328(fp),r0 | ||
1314 | bicl3 #0,r0,-324(fp) | ||
1315 | cmpl -324(fp),-328(fp) | ||
1316 | bgequ noname.125 | ||
1317 | addl2 #65536,-336(fp) | ||
1318 | noname.125: | ||
1319 | movzwl -322(fp),r0 | ||
1320 | bicl2 #-65536,r0 | ||
1321 | addl2 r0,-336(fp) | ||
1322 | bicl3 #-65536,-324(fp),r0 | ||
1323 | ashl #16,r0,-328(fp) | ||
1324 | addl3 -328(fp),-332(fp),r0 | ||
1325 | bicl3 #0,r0,-332(fp) | ||
1326 | cmpl -332(fp),-328(fp) | ||
1327 | bgequ noname.126 | ||
1328 | incl -336(fp) | ||
1329 | noname.126: | ||
1330 | movl -332(fp),r1 | ||
1331 | movl -336(fp),r2 | ||
1332 | addl2 r1,r10 | ||
1333 | bicl2 #0,r10 | ||
1334 | cmpl r10,r1 | ||
1335 | bgequ noname.127 | ||
1336 | incl r2 | ||
1337 | noname.127: | ||
1338 | addl2 r2,r9 | ||
1339 | bicl2 #0,r9 | ||
1340 | cmpl r9,r2 | ||
1341 | bgequ noname.128 | ||
1342 | incl r8 | ||
1343 | noname.128: | ||
1344 | |||
1345 | movl r10,20(r11) | ||
1346 | |||
1347 | clrl r10 | ||
1348 | |||
1349 | movzwl 26(r6),r2 | ||
1350 | bicl3 #-65536,(r7),r3 | ||
1351 | movzwl 2(r7),r0 | ||
1352 | bicl2 #-65536,r0 | ||
1353 | bicl3 #-65536,24(r6),-348(fp) | ||
1354 | bicl3 #-65536,r2,-352(fp) | ||
1355 | mull3 r0,-348(fp),-340(fp) | ||
1356 | mull2 r3,-348(fp) | ||
1357 | mull3 r3,-352(fp),-344(fp) | ||
1358 | mull2 r0,-352(fp) | ||
1359 | addl3 -340(fp),-344(fp),r0 | ||
1360 | bicl3 #0,r0,-340(fp) | ||
1361 | cmpl -340(fp),-344(fp) | ||
1362 | bgequ noname.129 | ||
1363 | addl2 #65536,-352(fp) | ||
1364 | noname.129: | ||
1365 | movzwl -338(fp),r0 | ||
1366 | bicl2 #-65536,r0 | ||
1367 | addl2 r0,-352(fp) | ||
1368 | bicl3 #-65536,-340(fp),r0 | ||
1369 | ashl #16,r0,-344(fp) | ||
1370 | addl3 -344(fp),-348(fp),r0 | ||
1371 | bicl3 #0,r0,-348(fp) | ||
1372 | cmpl -348(fp),-344(fp) | ||
1373 | bgequ noname.130 | ||
1374 | incl -352(fp) | ||
1375 | noname.130: | ||
1376 | movl -348(fp),r1 | ||
1377 | movl -352(fp),r2 | ||
1378 | addl2 r1,r9 | ||
1379 | bicl2 #0,r9 | ||
1380 | cmpl r9,r1 | ||
1381 | bgequ noname.131 | ||
1382 | incl r2 | ||
1383 | noname.131: | ||
1384 | addl2 r2,r8 | ||
1385 | bicl2 #0,r8 | ||
1386 | cmpl r8,r2 | ||
1387 | bgequ noname.132 | ||
1388 | incl r10 | ||
1389 | noname.132: | ||
1390 | |||
1391 | movzwl 22(r6),r2 | ||
1392 | bicl3 #-65536,4(r7),r3 | ||
1393 | movzwl 6(r7),r0 | ||
1394 | bicl2 #-65536,r0 | ||
1395 | bicl3 #-65536,20(r6),-364(fp) | ||
1396 | bicl3 #-65536,r2,-368(fp) | ||
1397 | mull3 r0,-364(fp),-356(fp) | ||
1398 | mull2 r3,-364(fp) | ||
1399 | mull3 r3,-368(fp),-360(fp) | ||
1400 | mull2 r0,-368(fp) | ||
1401 | addl3 -356(fp),-360(fp),r0 | ||
1402 | bicl3 #0,r0,-356(fp) | ||
1403 | cmpl -356(fp),-360(fp) | ||
1404 | bgequ noname.133 | ||
1405 | addl2 #65536,-368(fp) | ||
1406 | noname.133: | ||
1407 | movzwl -354(fp),r0 | ||
1408 | bicl2 #-65536,r0 | ||
1409 | addl2 r0,-368(fp) | ||
1410 | bicl3 #-65536,-356(fp),r0 | ||
1411 | ashl #16,r0,-360(fp) | ||
1412 | addl3 -360(fp),-364(fp),r0 | ||
1413 | bicl3 #0,r0,-364(fp) | ||
1414 | cmpl -364(fp),-360(fp) | ||
1415 | bgequ noname.134 | ||
1416 | incl -368(fp) | ||
1417 | noname.134: | ||
1418 | movl -364(fp),r1 | ||
1419 | movl -368(fp),r2 | ||
1420 | addl2 r1,r9 | ||
1421 | bicl2 #0,r9 | ||
1422 | cmpl r9,r1 | ||
1423 | bgequ noname.135 | ||
1424 | incl r2 | ||
1425 | noname.135: | ||
1426 | addl2 r2,r8 | ||
1427 | bicl2 #0,r8 | ||
1428 | cmpl r8,r2 | ||
1429 | bgequ noname.136 | ||
1430 | incl r10 | ||
1431 | noname.136: | ||
1432 | |||
1433 | movzwl 18(r6),r2 | ||
1434 | bicl3 #-65536,8(r7),r3 | ||
1435 | movzwl 10(r7),r0 | ||
1436 | bicl2 #-65536,r0 | ||
1437 | bicl3 #-65536,16(r6),-380(fp) | ||
1438 | bicl3 #-65536,r2,-384(fp) | ||
1439 | mull3 r0,-380(fp),-372(fp) | ||
1440 | mull2 r3,-380(fp) | ||
1441 | mull3 r3,-384(fp),-376(fp) | ||
1442 | mull2 r0,-384(fp) | ||
1443 | addl3 -372(fp),-376(fp),r0 | ||
1444 | bicl3 #0,r0,-372(fp) | ||
1445 | cmpl -372(fp),-376(fp) | ||
1446 | bgequ noname.137 | ||
1447 | addl2 #65536,-384(fp) | ||
1448 | noname.137: | ||
1449 | movzwl -370(fp),r0 | ||
1450 | bicl2 #-65536,r0 | ||
1451 | addl2 r0,-384(fp) | ||
1452 | bicl3 #-65536,-372(fp),r0 | ||
1453 | ashl #16,r0,-376(fp) | ||
1454 | addl3 -376(fp),-380(fp),r0 | ||
1455 | bicl3 #0,r0,-380(fp) | ||
1456 | cmpl -380(fp),-376(fp) | ||
1457 | bgequ noname.138 | ||
1458 | incl -384(fp) | ||
1459 | noname.138: | ||
1460 | movl -380(fp),r1 | ||
1461 | movl -384(fp),r2 | ||
1462 | addl2 r1,r9 | ||
1463 | bicl2 #0,r9 | ||
1464 | cmpl r9,r1 | ||
1465 | bgequ noname.139 | ||
1466 | incl r2 | ||
1467 | noname.139: | ||
1468 | addl2 r2,r8 | ||
1469 | bicl2 #0,r8 | ||
1470 | cmpl r8,r2 | ||
1471 | bgequ noname.140 | ||
1472 | incl r10 | ||
1473 | noname.140: | ||
1474 | |||
1475 | movzwl 14(r6),r2 | ||
1476 | bicl3 #-65536,12(r7),r3 | ||
1477 | movzwl 14(r7),r0 | ||
1478 | bicl2 #-65536,r0 | ||
1479 | bicl3 #-65536,12(r6),-396(fp) | ||
1480 | bicl3 #-65536,r2,-400(fp) | ||
1481 | mull3 r0,-396(fp),-388(fp) | ||
1482 | mull2 r3,-396(fp) | ||
1483 | mull3 r3,-400(fp),-392(fp) | ||
1484 | mull2 r0,-400(fp) | ||
1485 | addl3 -388(fp),-392(fp),r0 | ||
1486 | bicl3 #0,r0,-388(fp) | ||
1487 | cmpl -388(fp),-392(fp) | ||
1488 | bgequ noname.141 | ||
1489 | addl2 #65536,-400(fp) | ||
1490 | noname.141: | ||
1491 | movzwl -386(fp),r0 | ||
1492 | bicl2 #-65536,r0 | ||
1493 | addl2 r0,-400(fp) | ||
1494 | bicl3 #-65536,-388(fp),r0 | ||
1495 | ashl #16,r0,-392(fp) | ||
1496 | addl3 -392(fp),-396(fp),r0 | ||
1497 | bicl3 #0,r0,-396(fp) | ||
1498 | cmpl -396(fp),-392(fp) | ||
1499 | bgequ noname.142 | ||
1500 | incl -400(fp) | ||
1501 | noname.142: | ||
1502 | movl -396(fp),r1 | ||
1503 | movl -400(fp),r2 | ||
1504 | addl2 r1,r9 | ||
1505 | bicl2 #0,r9 | ||
1506 | cmpl r9,r1 | ||
1507 | bgequ noname.143 | ||
1508 | incl r2 | ||
1509 | noname.143: | ||
1510 | addl2 r2,r8 | ||
1511 | bicl2 #0,r8 | ||
1512 | cmpl r8,r2 | ||
1513 | bgequ noname.144 | ||
1514 | incl r10 | ||
1515 | noname.144: | ||
1516 | |||
1517 | movzwl 10(r6),r2 | ||
1518 | bicl3 #-65536,16(r7),r3 | ||
1519 | movzwl 18(r7),r0 | ||
1520 | bicl2 #-65536,r0 | ||
1521 | bicl3 #-65536,8(r6),-412(fp) | ||
1522 | bicl3 #-65536,r2,-416(fp) | ||
1523 | mull3 r0,-412(fp),-404(fp) | ||
1524 | mull2 r3,-412(fp) | ||
1525 | mull3 r3,-416(fp),-408(fp) | ||
1526 | mull2 r0,-416(fp) | ||
1527 | addl3 -404(fp),-408(fp),r0 | ||
1528 | bicl3 #0,r0,-404(fp) | ||
1529 | cmpl -404(fp),-408(fp) | ||
1530 | bgequ noname.145 | ||
1531 | addl2 #65536,-416(fp) | ||
1532 | noname.145: | ||
1533 | movzwl -402(fp),r0 | ||
1534 | bicl2 #-65536,r0 | ||
1535 | addl2 r0,-416(fp) | ||
1536 | bicl3 #-65536,-404(fp),r0 | ||
1537 | ashl #16,r0,-408(fp) | ||
1538 | addl3 -408(fp),-412(fp),r0 | ||
1539 | bicl3 #0,r0,-412(fp) | ||
1540 | cmpl -412(fp),-408(fp) | ||
1541 | bgequ noname.146 | ||
1542 | incl -416(fp) | ||
1543 | noname.146: | ||
1544 | movl -412(fp),r1 | ||
1545 | movl -416(fp),r2 | ||
1546 | addl2 r1,r9 | ||
1547 | bicl2 #0,r9 | ||
1548 | cmpl r9,r1 | ||
1549 | bgequ noname.147 | ||
1550 | incl r2 | ||
1551 | noname.147: | ||
1552 | addl2 r2,r8 | ||
1553 | bicl2 #0,r8 | ||
1554 | cmpl r8,r2 | ||
1555 | bgequ noname.148 | ||
1556 | incl r10 | ||
1557 | noname.148: | ||
1558 | |||
1559 | movzwl 6(r6),r2 | ||
1560 | bicl3 #-65536,20(r7),r3 | ||
1561 | movzwl 22(r7),r0 | ||
1562 | bicl2 #-65536,r0 | ||
1563 | bicl3 #-65536,4(r6),-428(fp) | ||
1564 | bicl3 #-65536,r2,-432(fp) | ||
1565 | mull3 r0,-428(fp),-420(fp) | ||
1566 | mull2 r3,-428(fp) | ||
1567 | mull3 r3,-432(fp),-424(fp) | ||
1568 | mull2 r0,-432(fp) | ||
1569 | addl3 -420(fp),-424(fp),r0 | ||
1570 | bicl3 #0,r0,-420(fp) | ||
1571 | cmpl -420(fp),-424(fp) | ||
1572 | bgequ noname.149 | ||
1573 | addl2 #65536,-432(fp) | ||
1574 | noname.149: | ||
1575 | movzwl -418(fp),r0 | ||
1576 | bicl2 #-65536,r0 | ||
1577 | addl2 r0,-432(fp) | ||
1578 | bicl3 #-65536,-420(fp),r0 | ||
1579 | ashl #16,r0,-424(fp) | ||
1580 | addl3 -424(fp),-428(fp),r0 | ||
1581 | bicl3 #0,r0,-428(fp) | ||
1582 | cmpl -428(fp),-424(fp) | ||
1583 | bgequ noname.150 | ||
1584 | incl -432(fp) | ||
1585 | noname.150: | ||
1586 | movl -428(fp),r1 | ||
1587 | movl -432(fp),r2 | ||
1588 | addl2 r1,r9 | ||
1589 | bicl2 #0,r9 | ||
1590 | cmpl r9,r1 | ||
1591 | bgequ noname.151 | ||
1592 | incl r2 | ||
1593 | noname.151: | ||
1594 | addl2 r2,r8 | ||
1595 | bicl2 #0,r8 | ||
1596 | cmpl r8,r2 | ||
1597 | bgequ noname.152 | ||
1598 | incl r10 | ||
1599 | noname.152: | ||
1600 | |||
1601 | movzwl 2(r6),r2 | ||
1602 | bicl3 #-65536,24(r7),r3 | ||
1603 | movzwl 26(r7),r0 | ||
1604 | bicl2 #-65536,r0 | ||
1605 | bicl3 #-65536,(r6),-444(fp) | ||
1606 | bicl3 #-65536,r2,-448(fp) | ||
1607 | mull3 r0,-444(fp),-436(fp) | ||
1608 | mull2 r3,-444(fp) | ||
1609 | mull3 r3,-448(fp),-440(fp) | ||
1610 | mull2 r0,-448(fp) | ||
1611 | addl3 -436(fp),-440(fp),r0 | ||
1612 | bicl3 #0,r0,-436(fp) | ||
1613 | cmpl -436(fp),-440(fp) | ||
1614 | bgequ noname.153 | ||
1615 | addl2 #65536,-448(fp) | ||
1616 | noname.153: | ||
1617 | movzwl -434(fp),r0 | ||
1618 | bicl2 #-65536,r0 | ||
1619 | addl2 r0,-448(fp) | ||
1620 | bicl3 #-65536,-436(fp),r0 | ||
1621 | ashl #16,r0,-440(fp) | ||
1622 | addl3 -440(fp),-444(fp),r0 | ||
1623 | bicl3 #0,r0,-444(fp) | ||
1624 | cmpl -444(fp),-440(fp) | ||
1625 | bgequ noname.154 | ||
1626 | incl -448(fp) | ||
1627 | noname.154: | ||
1628 | movl -444(fp),r1 | ||
1629 | movl -448(fp),r2 | ||
1630 | addl2 r1,r9 | ||
1631 | bicl2 #0,r9 | ||
1632 | cmpl r9,r1 | ||
1633 | bgequ noname.155 | ||
1634 | incl r2 | ||
1635 | noname.155: | ||
1636 | addl2 r2,r8 | ||
1637 | bicl2 #0,r8 | ||
1638 | cmpl r8,r2 | ||
1639 | bgequ noname.156 | ||
1640 | incl r10 | ||
1641 | noname.156: | ||
1642 | |||
1643 | movl r9,24(r11) | ||
1644 | |||
1645 | clrl r9 | ||
1646 | |||
1647 | movzwl 2(r6),r2 | ||
1648 | bicl3 #-65536,28(r7),r3 | ||
1649 | movzwl 30(r7),r0 | ||
1650 | bicl2 #-65536,r0 | ||
1651 | bicl3 #-65536,(r6),-460(fp) | ||
1652 | bicl3 #-65536,r2,-464(fp) | ||
1653 | mull3 r0,-460(fp),-452(fp) | ||
1654 | mull2 r3,-460(fp) | ||
1655 | mull3 r3,-464(fp),-456(fp) | ||
1656 | mull2 r0,-464(fp) | ||
1657 | addl3 -452(fp),-456(fp),r0 | ||
1658 | bicl3 #0,r0,-452(fp) | ||
1659 | cmpl -452(fp),-456(fp) | ||
1660 | bgequ noname.157 | ||
1661 | addl2 #65536,-464(fp) | ||
1662 | noname.157: | ||
1663 | movzwl -450(fp),r0 | ||
1664 | bicl2 #-65536,r0 | ||
1665 | addl2 r0,-464(fp) | ||
1666 | bicl3 #-65536,-452(fp),r0 | ||
1667 | ashl #16,r0,-456(fp) | ||
1668 | addl3 -456(fp),-460(fp),r0 | ||
1669 | bicl3 #0,r0,-460(fp) | ||
1670 | cmpl -460(fp),-456(fp) | ||
1671 | bgequ noname.158 | ||
1672 | incl -464(fp) | ||
1673 | noname.158: | ||
1674 | movl -460(fp),r1 | ||
1675 | movl -464(fp),r2 | ||
1676 | addl2 r1,r8 | ||
1677 | bicl2 #0,r8 | ||
1678 | cmpl r8,r1 | ||
1679 | bgequ noname.159 | ||
1680 | incl r2 | ||
1681 | noname.159: | ||
1682 | addl2 r2,r10 | ||
1683 | bicl2 #0,r10 | ||
1684 | cmpl r10,r2 | ||
1685 | bgequ noname.160 | ||
1686 | incl r9 | ||
1687 | noname.160: | ||
1688 | |||
1689 | movzwl 6(r6),r2 | ||
1690 | bicl3 #-65536,24(r7),r3 | ||
1691 | movzwl 26(r7),r0 | ||
1692 | bicl2 #-65536,r0 | ||
1693 | bicl3 #-65536,4(r6),-476(fp) | ||
1694 | bicl3 #-65536,r2,-480(fp) | ||
1695 | mull3 r0,-476(fp),-468(fp) | ||
1696 | mull2 r3,-476(fp) | ||
1697 | mull3 r3,-480(fp),-472(fp) | ||
1698 | mull2 r0,-480(fp) | ||
1699 | addl3 -468(fp),-472(fp),r0 | ||
1700 | bicl3 #0,r0,-468(fp) | ||
1701 | cmpl -468(fp),-472(fp) | ||
1702 | bgequ noname.161 | ||
1703 | addl2 #65536,-480(fp) | ||
1704 | noname.161: | ||
1705 | movzwl -466(fp),r0 | ||
1706 | bicl2 #-65536,r0 | ||
1707 | addl2 r0,-480(fp) | ||
1708 | bicl3 #-65536,-468(fp),r0 | ||
1709 | ashl #16,r0,-472(fp) | ||
1710 | addl3 -472(fp),-476(fp),r0 | ||
1711 | bicl3 #0,r0,-476(fp) | ||
1712 | cmpl -476(fp),-472(fp) | ||
1713 | bgequ noname.162 | ||
1714 | incl -480(fp) | ||
1715 | noname.162: | ||
1716 | movl -476(fp),r1 | ||
1717 | movl -480(fp),r2 | ||
1718 | addl2 r1,r8 | ||
1719 | bicl2 #0,r8 | ||
1720 | cmpl r8,r1 | ||
1721 | bgequ noname.163 | ||
1722 | incl r2 | ||
1723 | noname.163: | ||
1724 | addl2 r2,r10 | ||
1725 | bicl2 #0,r10 | ||
1726 | cmpl r10,r2 | ||
1727 | bgequ noname.164 | ||
1728 | incl r9 | ||
1729 | noname.164: | ||
1730 | |||
1731 | movzwl 10(r6),r2 | ||
1732 | bicl3 #-65536,20(r7),r3 | ||
1733 | movzwl 22(r7),r0 | ||
1734 | bicl2 #-65536,r0 | ||
1735 | bicl3 #-65536,8(r6),-492(fp) | ||
1736 | bicl3 #-65536,r2,-496(fp) | ||
1737 | mull3 r0,-492(fp),-484(fp) | ||
1738 | mull2 r3,-492(fp) | ||
1739 | mull3 r3,-496(fp),-488(fp) | ||
1740 | mull2 r0,-496(fp) | ||
1741 | addl3 -484(fp),-488(fp),r0 | ||
1742 | bicl3 #0,r0,-484(fp) | ||
1743 | cmpl -484(fp),-488(fp) | ||
1744 | bgequ noname.165 | ||
1745 | addl2 #65536,-496(fp) | ||
1746 | noname.165: | ||
1747 | movzwl -482(fp),r0 | ||
1748 | bicl2 #-65536,r0 | ||
1749 | addl2 r0,-496(fp) | ||
1750 | bicl3 #-65536,-484(fp),r0 | ||
1751 | ashl #16,r0,-488(fp) | ||
1752 | addl3 -488(fp),-492(fp),r0 | ||
1753 | bicl3 #0,r0,-492(fp) | ||
1754 | cmpl -492(fp),-488(fp) | ||
1755 | bgequ noname.166 | ||
1756 | incl -496(fp) | ||
1757 | noname.166: | ||
1758 | movl -492(fp),r1 | ||
1759 | movl -496(fp),r2 | ||
1760 | addl2 r1,r8 | ||
1761 | bicl2 #0,r8 | ||
1762 | cmpl r8,r1 | ||
1763 | bgequ noname.167 | ||
1764 | incl r2 | ||
1765 | noname.167: | ||
1766 | addl2 r2,r10 | ||
1767 | bicl2 #0,r10 | ||
1768 | cmpl r10,r2 | ||
1769 | bgequ noname.168 | ||
1770 | incl r9 | ||
1771 | noname.168: | ||
1772 | |||
1773 | movzwl 14(r6),r2 | ||
1774 | bicl3 #-65536,16(r7),r3 | ||
1775 | movzwl 18(r7),r0 | ||
1776 | bicl2 #-65536,r0 | ||
1777 | bicl3 #-65536,12(r6),-508(fp) | ||
1778 | bicl3 #-65536,r2,-512(fp) | ||
1779 | mull3 r0,-508(fp),-500(fp) | ||
1780 | mull2 r3,-508(fp) | ||
1781 | mull3 r3,-512(fp),-504(fp) | ||
1782 | mull2 r0,-512(fp) | ||
1783 | addl3 -500(fp),-504(fp),r0 | ||
1784 | bicl3 #0,r0,-500(fp) | ||
1785 | cmpl -500(fp),-504(fp) | ||
1786 | bgequ noname.169 | ||
1787 | addl2 #65536,-512(fp) | ||
1788 | noname.169: | ||
1789 | movzwl -498(fp),r0 | ||
1790 | bicl2 #-65536,r0 | ||
1791 | addl2 r0,-512(fp) | ||
1792 | bicl3 #-65536,-500(fp),r0 | ||
1793 | ashl #16,r0,-504(fp) | ||
1794 | addl3 -504(fp),-508(fp),r0 | ||
1795 | bicl3 #0,r0,-508(fp) | ||
1796 | cmpl -508(fp),-504(fp) | ||
1797 | bgequ noname.170 | ||
1798 | incl -512(fp) | ||
1799 | noname.170: | ||
1800 | movl -508(fp),r1 | ||
1801 | movl -512(fp),r2 | ||
1802 | addl2 r1,r8 | ||
1803 | bicl2 #0,r8 | ||
1804 | cmpl r8,r1 | ||
1805 | bgequ noname.171 | ||
1806 | incl r2 | ||
1807 | noname.171: | ||
1808 | addl2 r2,r10 | ||
1809 | bicl2 #0,r10 | ||
1810 | cmpl r10,r2 | ||
1811 | bgequ noname.172 | ||
1812 | incl r9 | ||
1813 | noname.172: | ||
1814 | |||
1815 | movzwl 18(r6),r2 | ||
1816 | bicl3 #-65536,12(r7),r3 | ||
1817 | movzwl 14(r7),r0 | ||
1818 | bicl2 #-65536,r0 | ||
1819 | bicl3 #-65536,16(r6),-524(fp) | ||
1820 | bicl3 #-65536,r2,-528(fp) | ||
1821 | mull3 r0,-524(fp),-516(fp) | ||
1822 | mull2 r3,-524(fp) | ||
1823 | mull3 r3,-528(fp),-520(fp) | ||
1824 | mull2 r0,-528(fp) | ||
1825 | addl3 -516(fp),-520(fp),r0 | ||
1826 | bicl3 #0,r0,-516(fp) | ||
1827 | cmpl -516(fp),-520(fp) | ||
1828 | bgequ noname.173 | ||
1829 | addl2 #65536,-528(fp) | ||
1830 | noname.173: | ||
1831 | movzwl -514(fp),r0 | ||
1832 | bicl2 #-65536,r0 | ||
1833 | addl2 r0,-528(fp) | ||
1834 | bicl3 #-65536,-516(fp),r0 | ||
1835 | ashl #16,r0,-520(fp) | ||
1836 | addl3 -520(fp),-524(fp),r0 | ||
1837 | bicl3 #0,r0,-524(fp) | ||
1838 | cmpl -524(fp),-520(fp) | ||
1839 | bgequ noname.174 | ||
1840 | incl -528(fp) | ||
1841 | noname.174: | ||
1842 | movl -524(fp),r1 | ||
1843 | movl -528(fp),r2 | ||
1844 | addl2 r1,r8 | ||
1845 | bicl2 #0,r8 | ||
1846 | cmpl r8,r1 | ||
1847 | bgequ noname.175 | ||
1848 | incl r2 | ||
1849 | noname.175: | ||
1850 | addl2 r2,r10 | ||
1851 | bicl2 #0,r10 | ||
1852 | cmpl r10,r2 | ||
1853 | bgequ noname.176 | ||
1854 | incl r9 | ||
1855 | noname.176: | ||
1856 | |||
1857 | movzwl 22(r6),r2 | ||
1858 | bicl3 #-65536,8(r7),r3 | ||
1859 | movzwl 10(r7),r0 | ||
1860 | bicl2 #-65536,r0 | ||
1861 | bicl3 #-65536,20(r6),-540(fp) | ||
1862 | bicl3 #-65536,r2,-544(fp) | ||
1863 | mull3 r0,-540(fp),-532(fp) | ||
1864 | mull2 r3,-540(fp) | ||
1865 | mull3 r3,-544(fp),-536(fp) | ||
1866 | mull2 r0,-544(fp) | ||
1867 | addl3 -532(fp),-536(fp),r0 | ||
1868 | bicl3 #0,r0,-532(fp) | ||
1869 | cmpl -532(fp),-536(fp) | ||
1870 | bgequ noname.177 | ||
1871 | addl2 #65536,-544(fp) | ||
1872 | noname.177: | ||
1873 | movzwl -530(fp),r0 | ||
1874 | bicl2 #-65536,r0 | ||
1875 | addl2 r0,-544(fp) | ||
1876 | bicl3 #-65536,-532(fp),r0 | ||
1877 | ashl #16,r0,-536(fp) | ||
1878 | addl3 -536(fp),-540(fp),r0 | ||
1879 | bicl3 #0,r0,-540(fp) | ||
1880 | cmpl -540(fp),-536(fp) | ||
1881 | bgequ noname.178 | ||
1882 | incl -544(fp) | ||
1883 | noname.178: | ||
1884 | movl -540(fp),r1 | ||
1885 | movl -544(fp),r2 | ||
1886 | addl2 r1,r8 | ||
1887 | bicl2 #0,r8 | ||
1888 | cmpl r8,r1 | ||
1889 | bgequ noname.179 | ||
1890 | incl r2 | ||
1891 | noname.179: | ||
1892 | addl2 r2,r10 | ||
1893 | bicl2 #0,r10 | ||
1894 | cmpl r10,r2 | ||
1895 | bgequ noname.180 | ||
1896 | incl r9 | ||
1897 | noname.180: | ||
1898 | |||
1899 | movzwl 26(r6),r2 | ||
1900 | bicl3 #-65536,4(r7),r3 | ||
1901 | movzwl 6(r7),r0 | ||
1902 | bicl2 #-65536,r0 | ||
1903 | bicl3 #-65536,24(r6),-556(fp) | ||
1904 | bicl3 #-65536,r2,-560(fp) | ||
1905 | mull3 r0,-556(fp),-548(fp) | ||
1906 | mull2 r3,-556(fp) | ||
1907 | mull3 r3,-560(fp),-552(fp) | ||
1908 | mull2 r0,-560(fp) | ||
1909 | addl3 -548(fp),-552(fp),r0 | ||
1910 | bicl3 #0,r0,-548(fp) | ||
1911 | cmpl -548(fp),-552(fp) | ||
1912 | bgequ noname.181 | ||
1913 | addl2 #65536,-560(fp) | ||
1914 | noname.181: | ||
1915 | movzwl -546(fp),r0 | ||
1916 | bicl2 #-65536,r0 | ||
1917 | addl2 r0,-560(fp) | ||
1918 | bicl3 #-65536,-548(fp),r0 | ||
1919 | ashl #16,r0,-552(fp) | ||
1920 | addl3 -552(fp),-556(fp),r0 | ||
1921 | bicl3 #0,r0,-556(fp) | ||
1922 | cmpl -556(fp),-552(fp) | ||
1923 | bgequ noname.182 | ||
1924 | incl -560(fp) | ||
1925 | noname.182: | ||
1926 | movl -556(fp),r1 | ||
1927 | movl -560(fp),r2 | ||
1928 | addl2 r1,r8 | ||
1929 | bicl2 #0,r8 | ||
1930 | cmpl r8,r1 | ||
1931 | bgequ noname.183 | ||
1932 | incl r2 | ||
1933 | noname.183: | ||
1934 | addl2 r2,r10 | ||
1935 | bicl2 #0,r10 | ||
1936 | cmpl r10,r2 | ||
1937 | bgequ noname.184 | ||
1938 | incl r9 | ||
1939 | noname.184: | ||
1940 | |||
1941 | movzwl 30(r6),r2 | ||
1942 | bicl3 #-65536,(r7),r3 | ||
1943 | movzwl 2(r7),r0 | ||
1944 | bicl2 #-65536,r0 | ||
1945 | bicl3 #-65536,28(r6),-572(fp) | ||
1946 | bicl3 #-65536,r2,-576(fp) | ||
1947 | mull3 r0,-572(fp),-564(fp) | ||
1948 | mull2 r3,-572(fp) | ||
1949 | mull3 r3,-576(fp),-568(fp) | ||
1950 | mull2 r0,-576(fp) | ||
1951 | addl3 -564(fp),-568(fp),r0 | ||
1952 | bicl3 #0,r0,-564(fp) | ||
1953 | cmpl -564(fp),-568(fp) | ||
1954 | bgequ noname.185 | ||
1955 | addl2 #65536,-576(fp) | ||
1956 | noname.185: | ||
1957 | movzwl -562(fp),r0 | ||
1958 | bicl2 #-65536,r0 | ||
1959 | addl2 r0,-576(fp) | ||
1960 | bicl3 #-65536,-564(fp),r0 | ||
1961 | ashl #16,r0,-568(fp) | ||
1962 | addl3 -568(fp),-572(fp),r0 | ||
1963 | bicl3 #0,r0,-572(fp) | ||
1964 | cmpl -572(fp),-568(fp) | ||
1965 | bgequ noname.186 | ||
1966 | incl -576(fp) | ||
1967 | noname.186: | ||
1968 | movl -572(fp),r1 | ||
1969 | movl -576(fp),r2 | ||
1970 | addl2 r1,r8 | ||
1971 | bicl2 #0,r8 | ||
1972 | cmpl r8,r1 | ||
1973 | bgequ noname.187 | ||
1974 | incl r2 | ||
1975 | noname.187: | ||
1976 | addl2 r2,r10 | ||
1977 | bicl2 #0,r10 | ||
1978 | cmpl r10,r2 | ||
1979 | bgequ noname.188 | ||
1980 | incl r9 | ||
1981 | noname.188: | ||
1982 | |||
1983 | movl r8,28(r11) | ||
1984 | |||
1985 | clrl r8 | ||
1986 | |||
1987 | movzwl 30(r6),r2 | ||
1988 | bicl3 #-65536,4(r7),r3 | ||
1989 | movzwl 6(r7),r0 | ||
1990 | bicl2 #-65536,r0 | ||
1991 | bicl3 #-65536,28(r6),-588(fp) | ||
1992 | bicl3 #-65536,r2,-592(fp) | ||
1993 | mull3 r0,-588(fp),-580(fp) | ||
1994 | mull2 r3,-588(fp) | ||
1995 | mull3 r3,-592(fp),-584(fp) | ||
1996 | mull2 r0,-592(fp) | ||
1997 | addl3 -580(fp),-584(fp),r0 | ||
1998 | bicl3 #0,r0,-580(fp) | ||
1999 | cmpl -580(fp),-584(fp) | ||
2000 | bgequ noname.189 | ||
2001 | addl2 #65536,-592(fp) | ||
2002 | noname.189: | ||
2003 | movzwl -578(fp),r0 | ||
2004 | bicl2 #-65536,r0 | ||
2005 | addl2 r0,-592(fp) | ||
2006 | bicl3 #-65536,-580(fp),r0 | ||
2007 | ashl #16,r0,-584(fp) | ||
2008 | addl3 -584(fp),-588(fp),r0 | ||
2009 | bicl3 #0,r0,-588(fp) | ||
2010 | cmpl -588(fp),-584(fp) | ||
2011 | bgequ noname.190 | ||
2012 | incl -592(fp) | ||
2013 | noname.190: | ||
2014 | movl -588(fp),r1 | ||
2015 | movl -592(fp),r2 | ||
2016 | addl2 r1,r10 | ||
2017 | bicl2 #0,r10 | ||
2018 | cmpl r10,r1 | ||
2019 | bgequ noname.191 | ||
2020 | incl r2 | ||
2021 | noname.191: | ||
2022 | addl2 r2,r9 | ||
2023 | bicl2 #0,r9 | ||
2024 | cmpl r9,r2 | ||
2025 | bgequ noname.192 | ||
2026 | incl r8 | ||
2027 | noname.192: | ||
2028 | |||
2029 | movzwl 26(r6),r2 | ||
2030 | bicl3 #-65536,8(r7),r3 | ||
2031 | movzwl 10(r7),r0 | ||
2032 | bicl2 #-65536,r0 | ||
2033 | bicl3 #-65536,24(r6),-604(fp) | ||
2034 | bicl3 #-65536,r2,-608(fp) | ||
2035 | mull3 r0,-604(fp),-596(fp) | ||
2036 | mull2 r3,-604(fp) | ||
2037 | mull3 r3,-608(fp),-600(fp) | ||
2038 | mull2 r0,-608(fp) | ||
2039 | addl3 -596(fp),-600(fp),r0 | ||
2040 | bicl3 #0,r0,-596(fp) | ||
2041 | cmpl -596(fp),-600(fp) | ||
2042 | bgequ noname.193 | ||
2043 | addl2 #65536,-608(fp) | ||
2044 | noname.193: | ||
2045 | movzwl -594(fp),r0 | ||
2046 | bicl2 #-65536,r0 | ||
2047 | addl2 r0,-608(fp) | ||
2048 | bicl3 #-65536,-596(fp),r0 | ||
2049 | ashl #16,r0,-600(fp) | ||
2050 | addl3 -600(fp),-604(fp),r0 | ||
2051 | bicl3 #0,r0,-604(fp) | ||
2052 | cmpl -604(fp),-600(fp) | ||
2053 | bgequ noname.194 | ||
2054 | incl -608(fp) | ||
2055 | noname.194: | ||
2056 | movl -604(fp),r1 | ||
2057 | movl -608(fp),r2 | ||
2058 | addl2 r1,r10 | ||
2059 | bicl2 #0,r10 | ||
2060 | cmpl r10,r1 | ||
2061 | bgequ noname.195 | ||
2062 | incl r2 | ||
2063 | noname.195: | ||
2064 | addl2 r2,r9 | ||
2065 | bicl2 #0,r9 | ||
2066 | cmpl r9,r2 | ||
2067 | bgequ noname.196 | ||
2068 | incl r8 | ||
2069 | noname.196: | ||
2070 | |||
2071 | movzwl 22(r6),r2 | ||
2072 | bicl3 #-65536,12(r7),r3 | ||
2073 | movzwl 14(r7),r0 | ||
2074 | bicl2 #-65536,r0 | ||
2075 | bicl3 #-65536,20(r6),-620(fp) | ||
2076 | bicl3 #-65536,r2,-624(fp) | ||
2077 | mull3 r0,-620(fp),-612(fp) | ||
2078 | mull2 r3,-620(fp) | ||
2079 | mull3 r3,-624(fp),-616(fp) | ||
2080 | mull2 r0,-624(fp) | ||
2081 | addl3 -612(fp),-616(fp),r0 | ||
2082 | bicl3 #0,r0,-612(fp) | ||
2083 | cmpl -612(fp),-616(fp) | ||
2084 | bgequ noname.197 | ||
2085 | addl2 #65536,-624(fp) | ||
2086 | noname.197: | ||
2087 | movzwl -610(fp),r0 | ||
2088 | bicl2 #-65536,r0 | ||
2089 | addl2 r0,-624(fp) | ||
2090 | bicl3 #-65536,-612(fp),r0 | ||
2091 | ashl #16,r0,-616(fp) | ||
2092 | addl3 -616(fp),-620(fp),r0 | ||
2093 | bicl3 #0,r0,-620(fp) | ||
2094 | cmpl -620(fp),-616(fp) | ||
2095 | bgequ noname.198 | ||
2096 | incl -624(fp) | ||
2097 | noname.198: | ||
2098 | movl -620(fp),r1 | ||
2099 | movl -624(fp),r2 | ||
2100 | addl2 r1,r10 | ||
2101 | bicl2 #0,r10 | ||
2102 | cmpl r10,r1 | ||
2103 | bgequ noname.199 | ||
2104 | incl r2 | ||
2105 | noname.199: | ||
2106 | addl2 r2,r9 | ||
2107 | bicl2 #0,r9 | ||
2108 | cmpl r9,r2 | ||
2109 | bgequ noname.200 | ||
2110 | incl r8 | ||
2111 | noname.200: | ||
2112 | |||
2113 | movzwl 18(r6),r2 | ||
2114 | bicl3 #-65536,16(r7),r3 | ||
2115 | movzwl 18(r7),r0 | ||
2116 | bicl2 #-65536,r0 | ||
2117 | bicl3 #-65536,16(r6),-636(fp) | ||
2118 | bicl3 #-65536,r2,-640(fp) | ||
2119 | mull3 r0,-636(fp),-628(fp) | ||
2120 | mull2 r3,-636(fp) | ||
2121 | mull3 r3,-640(fp),-632(fp) | ||
2122 | mull2 r0,-640(fp) | ||
2123 | addl3 -628(fp),-632(fp),r0 | ||
2124 | bicl3 #0,r0,-628(fp) | ||
2125 | cmpl -628(fp),-632(fp) | ||
2126 | bgequ noname.201 | ||
2127 | addl2 #65536,-640(fp) | ||
2128 | noname.201: | ||
2129 | movzwl -626(fp),r0 | ||
2130 | bicl2 #-65536,r0 | ||
2131 | addl2 r0,-640(fp) | ||
2132 | bicl3 #-65536,-628(fp),r0 | ||
2133 | ashl #16,r0,-632(fp) | ||
2134 | addl3 -632(fp),-636(fp),r0 | ||
2135 | bicl3 #0,r0,-636(fp) | ||
2136 | cmpl -636(fp),-632(fp) | ||
2137 | bgequ noname.202 | ||
2138 | incl -640(fp) | ||
2139 | noname.202: | ||
2140 | movl -636(fp),r1 | ||
2141 | movl -640(fp),r2 | ||
2142 | addl2 r1,r10 | ||
2143 | bicl2 #0,r10 | ||
2144 | cmpl r10,r1 | ||
2145 | bgequ noname.203 | ||
2146 | incl r2 | ||
2147 | noname.203: | ||
2148 | addl2 r2,r9 | ||
2149 | bicl2 #0,r9 | ||
2150 | cmpl r9,r2 | ||
2151 | bgequ noname.204 | ||
2152 | incl r8 | ||
2153 | noname.204: | ||
2154 | |||
2155 | movzwl 14(r6),r2 | ||
2156 | bicl3 #-65536,20(r7),r3 | ||
2157 | movzwl 22(r7),r0 | ||
2158 | bicl2 #-65536,r0 | ||
2159 | bicl3 #-65536,12(r6),-652(fp) | ||
2160 | bicl3 #-65536,r2,-656(fp) | ||
2161 | mull3 r0,-652(fp),-644(fp) | ||
2162 | mull2 r3,-652(fp) | ||
2163 | mull3 r3,-656(fp),-648(fp) | ||
2164 | mull2 r0,-656(fp) | ||
2165 | addl3 -644(fp),-648(fp),r0 | ||
2166 | bicl3 #0,r0,-644(fp) | ||
2167 | cmpl -644(fp),-648(fp) | ||
2168 | bgequ noname.205 | ||
2169 | addl2 #65536,-656(fp) | ||
2170 | noname.205: | ||
2171 | movzwl -642(fp),r0 | ||
2172 | bicl2 #-65536,r0 | ||
2173 | addl2 r0,-656(fp) | ||
2174 | bicl3 #-65536,-644(fp),r0 | ||
2175 | ashl #16,r0,-648(fp) | ||
2176 | addl3 -648(fp),-652(fp),r0 | ||
2177 | bicl3 #0,r0,-652(fp) | ||
2178 | cmpl -652(fp),-648(fp) | ||
2179 | bgequ noname.206 | ||
2180 | incl -656(fp) | ||
2181 | noname.206: | ||
2182 | movl -652(fp),r1 | ||
2183 | movl -656(fp),r2 | ||
2184 | addl2 r1,r10 | ||
2185 | bicl2 #0,r10 | ||
2186 | cmpl r10,r1 | ||
2187 | bgequ noname.207 | ||
2188 | incl r2 | ||
2189 | noname.207: | ||
2190 | addl2 r2,r9 | ||
2191 | bicl2 #0,r9 | ||
2192 | cmpl r9,r2 | ||
2193 | bgequ noname.208 | ||
2194 | incl r8 | ||
2195 | noname.208: | ||
2196 | |||
2197 | movzwl 10(r6),r2 | ||
2198 | bicl3 #-65536,24(r7),r3 | ||
2199 | movzwl 26(r7),r0 | ||
2200 | bicl2 #-65536,r0 | ||
2201 | bicl3 #-65536,8(r6),-668(fp) | ||
2202 | bicl3 #-65536,r2,-672(fp) | ||
2203 | mull3 r0,-668(fp),-660(fp) | ||
2204 | mull2 r3,-668(fp) | ||
2205 | mull3 r3,-672(fp),-664(fp) | ||
2206 | mull2 r0,-672(fp) | ||
2207 | addl3 -660(fp),-664(fp),r0 | ||
2208 | bicl3 #0,r0,-660(fp) | ||
2209 | cmpl -660(fp),-664(fp) | ||
2210 | bgequ noname.209 | ||
2211 | addl2 #65536,-672(fp) | ||
2212 | noname.209: | ||
2213 | movzwl -658(fp),r0 | ||
2214 | bicl2 #-65536,r0 | ||
2215 | addl2 r0,-672(fp) | ||
2216 | bicl3 #-65536,-660(fp),r0 | ||
2217 | ashl #16,r0,-664(fp) | ||
2218 | addl3 -664(fp),-668(fp),r0 | ||
2219 | bicl3 #0,r0,-668(fp) | ||
2220 | cmpl -668(fp),-664(fp) | ||
2221 | bgequ noname.210 | ||
2222 | incl -672(fp) | ||
2223 | noname.210: | ||
2224 | movl -668(fp),r1 | ||
2225 | movl -672(fp),r2 | ||
2226 | addl2 r1,r10 | ||
2227 | bicl2 #0,r10 | ||
2228 | cmpl r10,r1 | ||
2229 | bgequ noname.211 | ||
2230 | incl r2 | ||
2231 | noname.211: | ||
2232 | addl2 r2,r9 | ||
2233 | bicl2 #0,r9 | ||
2234 | cmpl r9,r2 | ||
2235 | bgequ noname.212 | ||
2236 | incl r8 | ||
2237 | noname.212: | ||
2238 | |||
2239 | movzwl 6(r6),r2 | ||
2240 | bicl3 #-65536,28(r7),r3 | ||
2241 | movzwl 30(r7),r0 | ||
2242 | bicl2 #-65536,r0 | ||
2243 | bicl3 #-65536,4(r6),-684(fp) | ||
2244 | bicl3 #-65536,r2,-688(fp) | ||
2245 | mull3 r0,-684(fp),-676(fp) | ||
2246 | mull2 r3,-684(fp) | ||
2247 | mull3 r3,-688(fp),-680(fp) | ||
2248 | mull2 r0,-688(fp) | ||
2249 | addl3 -676(fp),-680(fp),r0 | ||
2250 | bicl3 #0,r0,-676(fp) | ||
2251 | cmpl -676(fp),-680(fp) | ||
2252 | bgequ noname.213 | ||
2253 | addl2 #65536,-688(fp) | ||
2254 | noname.213: | ||
2255 | movzwl -674(fp),r0 | ||
2256 | bicl2 #-65536,r0 | ||
2257 | addl2 r0,-688(fp) | ||
2258 | bicl3 #-65536,-676(fp),r0 | ||
2259 | ashl #16,r0,-680(fp) | ||
2260 | addl3 -680(fp),-684(fp),r0 | ||
2261 | bicl3 #0,r0,-684(fp) | ||
2262 | cmpl -684(fp),-680(fp) | ||
2263 | bgequ noname.214 | ||
2264 | incl -688(fp) | ||
2265 | noname.214: | ||
2266 | movl -684(fp),r1 | ||
2267 | movl -688(fp),r2 | ||
2268 | addl2 r1,r10 | ||
2269 | bicl2 #0,r10 | ||
2270 | cmpl r10,r1 | ||
2271 | bgequ noname.215 | ||
2272 | incl r2 | ||
2273 | noname.215: | ||
2274 | addl2 r2,r9 | ||
2275 | bicl2 #0,r9 | ||
2276 | cmpl r9,r2 | ||
2277 | bgequ noname.216 | ||
2278 | incl r8 | ||
2279 | noname.216: | ||
2280 | |||
2281 | movl r10,32(r11) | ||
2282 | |||
2283 | clrl r10 | ||
2284 | |||
2285 | movzwl 10(r6),r2 | ||
2286 | bicl3 #-65536,28(r7),r3 | ||
2287 | movzwl 30(r7),r0 | ||
2288 | bicl2 #-65536,r0 | ||
2289 | bicl3 #-65536,8(r6),-700(fp) | ||
2290 | bicl3 #-65536,r2,-704(fp) | ||
2291 | mull3 r0,-700(fp),-692(fp) | ||
2292 | mull2 r3,-700(fp) | ||
2293 | mull3 r3,-704(fp),-696(fp) | ||
2294 | mull2 r0,-704(fp) | ||
2295 | addl3 -692(fp),-696(fp),r0 | ||
2296 | bicl3 #0,r0,-692(fp) | ||
2297 | cmpl -692(fp),-696(fp) | ||
2298 | bgequ noname.217 | ||
2299 | addl2 #65536,-704(fp) | ||
2300 | noname.217: | ||
2301 | movzwl -690(fp),r0 | ||
2302 | bicl2 #-65536,r0 | ||
2303 | addl2 r0,-704(fp) | ||
2304 | bicl3 #-65536,-692(fp),r0 | ||
2305 | ashl #16,r0,-696(fp) | ||
2306 | addl3 -696(fp),-700(fp),r0 | ||
2307 | bicl3 #0,r0,-700(fp) | ||
2308 | cmpl -700(fp),-696(fp) | ||
2309 | bgequ noname.218 | ||
2310 | incl -704(fp) | ||
2311 | noname.218: | ||
2312 | movl -700(fp),r1 | ||
2313 | movl -704(fp),r2 | ||
2314 | addl2 r1,r9 | ||
2315 | bicl2 #0,r9 | ||
2316 | cmpl r9,r1 | ||
2317 | bgequ noname.219 | ||
2318 | incl r2 | ||
2319 | noname.219: | ||
2320 | addl2 r2,r8 | ||
2321 | bicl2 #0,r8 | ||
2322 | cmpl r8,r2 | ||
2323 | bgequ noname.220 | ||
2324 | incl r10 | ||
2325 | noname.220: | ||
2326 | |||
2327 | movzwl 14(r6),r2 | ||
2328 | bicl3 #-65536,24(r7),r3 | ||
2329 | movzwl 26(r7),r0 | ||
2330 | bicl2 #-65536,r0 | ||
2331 | bicl3 #-65536,12(r6),-716(fp) | ||
2332 | bicl3 #-65536,r2,-720(fp) | ||
2333 | mull3 r0,-716(fp),-708(fp) | ||
2334 | mull2 r3,-716(fp) | ||
2335 | mull3 r3,-720(fp),-712(fp) | ||
2336 | mull2 r0,-720(fp) | ||
2337 | addl3 -708(fp),-712(fp),r0 | ||
2338 | bicl3 #0,r0,-708(fp) | ||
2339 | cmpl -708(fp),-712(fp) | ||
2340 | bgequ noname.221 | ||
2341 | addl2 #65536,-720(fp) | ||
2342 | noname.221: | ||
2343 | movzwl -706(fp),r0 | ||
2344 | bicl2 #-65536,r0 | ||
2345 | addl2 r0,-720(fp) | ||
2346 | bicl3 #-65536,-708(fp),r0 | ||
2347 | ashl #16,r0,-712(fp) | ||
2348 | addl3 -712(fp),-716(fp),r0 | ||
2349 | bicl3 #0,r0,-716(fp) | ||
2350 | cmpl -716(fp),-712(fp) | ||
2351 | bgequ noname.222 | ||
2352 | incl -720(fp) | ||
2353 | noname.222: | ||
2354 | movl -716(fp),r1 | ||
2355 | movl -720(fp),r2 | ||
2356 | addl2 r1,r9 | ||
2357 | bicl2 #0,r9 | ||
2358 | cmpl r9,r1 | ||
2359 | bgequ noname.223 | ||
2360 | incl r2 | ||
2361 | noname.223: | ||
2362 | addl2 r2,r8 | ||
2363 | bicl2 #0,r8 | ||
2364 | cmpl r8,r2 | ||
2365 | bgequ noname.224 | ||
2366 | incl r10 | ||
2367 | noname.224: | ||
2368 | |||
2369 | movzwl 18(r6),r2 | ||
2370 | bicl3 #-65536,20(r7),r3 | ||
2371 | movzwl 22(r7),r0 | ||
2372 | bicl2 #-65536,r0 | ||
2373 | bicl3 #-65536,16(r6),-732(fp) | ||
2374 | bicl3 #-65536,r2,-736(fp) | ||
2375 | mull3 r0,-732(fp),-724(fp) | ||
2376 | mull2 r3,-732(fp) | ||
2377 | mull3 r3,-736(fp),-728(fp) | ||
2378 | mull2 r0,-736(fp) | ||
2379 | addl3 -724(fp),-728(fp),r0 | ||
2380 | bicl3 #0,r0,-724(fp) | ||
2381 | cmpl -724(fp),-728(fp) | ||
2382 | bgequ noname.225 | ||
2383 | addl2 #65536,-736(fp) | ||
2384 | noname.225: | ||
2385 | movzwl -722(fp),r0 | ||
2386 | bicl2 #-65536,r0 | ||
2387 | addl2 r0,-736(fp) | ||
2388 | bicl3 #-65536,-724(fp),r0 | ||
2389 | ashl #16,r0,-728(fp) | ||
2390 | addl3 -728(fp),-732(fp),r0 | ||
2391 | bicl3 #0,r0,-732(fp) | ||
2392 | cmpl -732(fp),-728(fp) | ||
2393 | bgequ noname.226 | ||
2394 | incl -736(fp) | ||
2395 | noname.226: | ||
2396 | movl -732(fp),r1 | ||
2397 | movl -736(fp),r2 | ||
2398 | addl2 r1,r9 | ||
2399 | bicl2 #0,r9 | ||
2400 | cmpl r9,r1 | ||
2401 | bgequ noname.227 | ||
2402 | incl r2 | ||
2403 | noname.227: | ||
2404 | addl2 r2,r8 | ||
2405 | bicl2 #0,r8 | ||
2406 | cmpl r8,r2 | ||
2407 | bgequ noname.228 | ||
2408 | incl r10 | ||
2409 | noname.228: | ||
2410 | |||
2411 | movzwl 22(r6),r2 | ||
2412 | bicl3 #-65536,16(r7),r3 | ||
2413 | movzwl 18(r7),r0 | ||
2414 | bicl2 #-65536,r0 | ||
2415 | bicl3 #-65536,20(r6),-748(fp) | ||
2416 | bicl3 #-65536,r2,-752(fp) | ||
2417 | mull3 r0,-748(fp),-740(fp) | ||
2418 | mull2 r3,-748(fp) | ||
2419 | mull3 r3,-752(fp),-744(fp) | ||
2420 | mull2 r0,-752(fp) | ||
2421 | addl3 -740(fp),-744(fp),r0 | ||
2422 | bicl3 #0,r0,-740(fp) | ||
2423 | cmpl -740(fp),-744(fp) | ||
2424 | bgequ noname.229 | ||
2425 | addl2 #65536,-752(fp) | ||
2426 | noname.229: | ||
2427 | movzwl -738(fp),r0 | ||
2428 | bicl2 #-65536,r0 | ||
2429 | addl2 r0,-752(fp) | ||
2430 | bicl3 #-65536,-740(fp),r0 | ||
2431 | ashl #16,r0,-744(fp) | ||
2432 | addl3 -744(fp),-748(fp),r0 | ||
2433 | bicl3 #0,r0,-748(fp) | ||
2434 | cmpl -748(fp),-744(fp) | ||
2435 | bgequ noname.230 | ||
2436 | incl -752(fp) | ||
2437 | noname.230: | ||
2438 | movl -748(fp),r1 | ||
2439 | movl -752(fp),r2 | ||
2440 | addl2 r1,r9 | ||
2441 | bicl2 #0,r9 | ||
2442 | cmpl r9,r1 | ||
2443 | bgequ noname.231 | ||
2444 | incl r2 | ||
2445 | noname.231: | ||
2446 | addl2 r2,r8 | ||
2447 | bicl2 #0,r8 | ||
2448 | cmpl r8,r2 | ||
2449 | bgequ noname.232 | ||
2450 | incl r10 | ||
2451 | noname.232: | ||
2452 | |||
2453 | movzwl 26(r6),r2 | ||
2454 | bicl3 #-65536,12(r7),r3 | ||
2455 | movzwl 14(r7),r0 | ||
2456 | bicl2 #-65536,r0 | ||
2457 | bicl3 #-65536,24(r6),-764(fp) | ||
2458 | bicl3 #-65536,r2,-768(fp) | ||
2459 | mull3 r0,-764(fp),-756(fp) | ||
2460 | mull2 r3,-764(fp) | ||
2461 | mull3 r3,-768(fp),-760(fp) | ||
2462 | mull2 r0,-768(fp) | ||
2463 | addl3 -756(fp),-760(fp),r0 | ||
2464 | bicl3 #0,r0,-756(fp) | ||
2465 | cmpl -756(fp),-760(fp) | ||
2466 | bgequ noname.233 | ||
2467 | addl2 #65536,-768(fp) | ||
2468 | noname.233: | ||
2469 | movzwl -754(fp),r0 | ||
2470 | bicl2 #-65536,r0 | ||
2471 | addl2 r0,-768(fp) | ||
2472 | bicl3 #-65536,-756(fp),r0 | ||
2473 | ashl #16,r0,-760(fp) | ||
2474 | addl3 -760(fp),-764(fp),r0 | ||
2475 | bicl3 #0,r0,-764(fp) | ||
2476 | cmpl -764(fp),-760(fp) | ||
2477 | bgequ noname.234 | ||
2478 | incl -768(fp) | ||
2479 | noname.234: | ||
2480 | movl -764(fp),r1 | ||
2481 | movl -768(fp),r2 | ||
2482 | addl2 r1,r9 | ||
2483 | bicl2 #0,r9 | ||
2484 | cmpl r9,r1 | ||
2485 | bgequ noname.235 | ||
2486 | incl r2 | ||
2487 | noname.235: | ||
2488 | addl2 r2,r8 | ||
2489 | bicl2 #0,r8 | ||
2490 | cmpl r8,r2 | ||
2491 | bgequ noname.236 | ||
2492 | incl r10 | ||
2493 | noname.236: | ||
2494 | |||
2495 | bicl3 #-65536,28(r6),r3 | ||
2496 | movzwl 30(r6),r1 | ||
2497 | bicl2 #-65536,r1 | ||
2498 | bicl3 #-65536,8(r7),r2 | ||
2499 | movzwl 10(r7),r0 | ||
2500 | bicl2 #-65536,r0 | ||
2501 | movl r3,r5 | ||
2502 | movl r1,r4 | ||
2503 | mull3 r0,r5,-772(fp) | ||
2504 | mull2 r2,r5 | ||
2505 | mull3 r2,r4,-776(fp) | ||
2506 | mull2 r0,r4 | ||
2507 | addl3 -772(fp),-776(fp),r0 | ||
2508 | bicl3 #0,r0,-772(fp) | ||
2509 | cmpl -772(fp),-776(fp) | ||
2510 | bgequ noname.237 | ||
2511 | addl2 #65536,r4 | ||
2512 | noname.237: | ||
2513 | movzwl -770(fp),r0 | ||
2514 | bicl2 #-65536,r0 | ||
2515 | addl2 r0,r4 | ||
2516 | bicl3 #-65536,-772(fp),r0 | ||
2517 | ashl #16,r0,-776(fp) | ||
2518 | addl2 -776(fp),r5 | ||
2519 | bicl2 #0,r5 | ||
2520 | cmpl r5,-776(fp) | ||
2521 | bgequ noname.238 | ||
2522 | incl r4 | ||
2523 | noname.238: | ||
2524 | movl r5,r1 | ||
2525 | movl r4,r2 | ||
2526 | addl2 r1,r9 | ||
2527 | bicl2 #0,r9 | ||
2528 | cmpl r9,r1 | ||
2529 | bgequ noname.239 | ||
2530 | incl r2 | ||
2531 | noname.239: | ||
2532 | addl2 r2,r8 | ||
2533 | bicl2 #0,r8 | ||
2534 | cmpl r8,r2 | ||
2535 | bgequ noname.240 | ||
2536 | incl r10 | ||
2537 | noname.240: | ||
2538 | |||
2539 | movl r9,36(r11) | ||
2540 | |||
2541 | clrl r9 | ||
2542 | |||
2543 | bicl3 #-65536,28(r6),r3 | ||
2544 | movzwl 30(r6),r1 | ||
2545 | bicl2 #-65536,r1 | ||
2546 | bicl3 #-65536,12(r7),r2 | ||
2547 | movzwl 14(r7),r0 | ||
2548 | bicl2 #-65536,r0 | ||
2549 | movl r3,r5 | ||
2550 | movl r1,r4 | ||
2551 | mull3 r0,r5,-780(fp) | ||
2552 | mull2 r2,r5 | ||
2553 | mull3 r2,r4,-784(fp) | ||
2554 | mull2 r0,r4 | ||
2555 | addl3 -780(fp),-784(fp),r0 | ||
2556 | bicl3 #0,r0,-780(fp) | ||
2557 | cmpl -780(fp),-784(fp) | ||
2558 | bgequ noname.241 | ||
2559 | addl2 #65536,r4 | ||
2560 | noname.241: | ||
2561 | movzwl -778(fp),r0 | ||
2562 | bicl2 #-65536,r0 | ||
2563 | addl2 r0,r4 | ||
2564 | bicl3 #-65536,-780(fp),r0 | ||
2565 | ashl #16,r0,-784(fp) | ||
2566 | addl2 -784(fp),r5 | ||
2567 | bicl2 #0,r5 | ||
2568 | cmpl r5,-784(fp) | ||
2569 | bgequ noname.242 | ||
2570 | incl r4 | ||
2571 | noname.242: | ||
2572 | movl r5,r1 | ||
2573 | movl r4,r2 | ||
2574 | addl2 r1,r8 | ||
2575 | bicl2 #0,r8 | ||
2576 | cmpl r8,r1 | ||
2577 | bgequ noname.243 | ||
2578 | incl r2 | ||
2579 | noname.243: | ||
2580 | addl2 r2,r10 | ||
2581 | bicl2 #0,r10 | ||
2582 | cmpl r10,r2 | ||
2583 | bgequ noname.244 | ||
2584 | incl r9 | ||
2585 | noname.244: | ||
2586 | |||
2587 | bicl3 #-65536,24(r6),r3 | ||
2588 | movzwl 26(r6),r1 | ||
2589 | bicl2 #-65536,r1 | ||
2590 | bicl3 #-65536,16(r7),r2 | ||
2591 | movzwl 18(r7),r0 | ||
2592 | bicl2 #-65536,r0 | ||
2593 | movl r3,r5 | ||
2594 | movl r1,r4 | ||
2595 | mull3 r0,r5,-788(fp) | ||
2596 | mull2 r2,r5 | ||
2597 | mull3 r2,r4,-792(fp) | ||
2598 | mull2 r0,r4 | ||
2599 | addl3 -788(fp),-792(fp),r0 | ||
2600 | bicl3 #0,r0,-788(fp) | ||
2601 | cmpl -788(fp),-792(fp) | ||
2602 | bgequ noname.245 | ||
2603 | addl2 #65536,r4 | ||
2604 | noname.245: | ||
2605 | movzwl -786(fp),r0 | ||
2606 | bicl2 #-65536,r0 | ||
2607 | addl2 r0,r4 | ||
2608 | bicl3 #-65536,-788(fp),r0 | ||
2609 | ashl #16,r0,-792(fp) | ||
2610 | addl2 -792(fp),r5 | ||
2611 | bicl2 #0,r5 | ||
2612 | cmpl r5,-792(fp) | ||
2613 | bgequ noname.246 | ||
2614 | incl r4 | ||
2615 | noname.246: | ||
2616 | movl r5,r1 | ||
2617 | movl r4,r2 | ||
2618 | addl2 r1,r8 | ||
2619 | bicl2 #0,r8 | ||
2620 | cmpl r8,r1 | ||
2621 | bgequ noname.247 | ||
2622 | incl r2 | ||
2623 | noname.247: | ||
2624 | addl2 r2,r10 | ||
2625 | bicl2 #0,r10 | ||
2626 | cmpl r10,r2 | ||
2627 | bgequ noname.248 | ||
2628 | incl r9 | ||
2629 | noname.248: | ||
2630 | |||
2631 | bicl3 #-65536,20(r6),r3 | ||
2632 | movzwl 22(r6),r1 | ||
2633 | bicl2 #-65536,r1 | ||
2634 | bicl3 #-65536,20(r7),r2 | ||
2635 | movzwl 22(r7),r0 | ||
2636 | bicl2 #-65536,r0 | ||
2637 | movl r3,r5 | ||
2638 | movl r1,r4 | ||
2639 | mull3 r0,r5,-796(fp) | ||
2640 | mull2 r2,r5 | ||
2641 | mull3 r2,r4,-800(fp) | ||
2642 | mull2 r0,r4 | ||
2643 | addl3 -796(fp),-800(fp),r0 | ||
2644 | bicl3 #0,r0,-796(fp) | ||
2645 | cmpl -796(fp),-800(fp) | ||
2646 | bgequ noname.249 | ||
2647 | addl2 #65536,r4 | ||
2648 | noname.249: | ||
2649 | movzwl -794(fp),r0 | ||
2650 | bicl2 #-65536,r0 | ||
2651 | addl2 r0,r4 | ||
2652 | bicl3 #-65536,-796(fp),r0 | ||
2653 | ashl #16,r0,-800(fp) | ||
2654 | addl2 -800(fp),r5 | ||
2655 | bicl2 #0,r5 | ||
2656 | cmpl r5,-800(fp) | ||
2657 | bgequ noname.250 | ||
2658 | incl r4 | ||
2659 | noname.250: | ||
2660 | movl r5,r1 | ||
2661 | movl r4,r2 | ||
2662 | addl2 r1,r8 | ||
2663 | bicl2 #0,r8 | ||
2664 | cmpl r8,r1 | ||
2665 | bgequ noname.251 | ||
2666 | incl r2 | ||
2667 | noname.251: | ||
2668 | addl2 r2,r10 | ||
2669 | bicl2 #0,r10 | ||
2670 | cmpl r10,r2 | ||
2671 | bgequ noname.252 | ||
2672 | incl r9 | ||
2673 | noname.252: | ||
2674 | |||
2675 | bicl3 #-65536,16(r6),r3 | ||
2676 | movzwl 18(r6),r1 | ||
2677 | bicl2 #-65536,r1 | ||
2678 | bicl3 #-65536,24(r7),r2 | ||
2679 | movzwl 26(r7),r0 | ||
2680 | bicl2 #-65536,r0 | ||
2681 | movl r3,r5 | ||
2682 | movl r1,r4 | ||
2683 | mull3 r0,r5,-804(fp) | ||
2684 | mull2 r2,r5 | ||
2685 | mull3 r2,r4,-808(fp) | ||
2686 | mull2 r0,r4 | ||
2687 | addl3 -804(fp),-808(fp),r0 | ||
2688 | bicl3 #0,r0,-804(fp) | ||
2689 | cmpl -804(fp),-808(fp) | ||
2690 | bgequ noname.253 | ||
2691 | addl2 #65536,r4 | ||
2692 | noname.253: | ||
2693 | movzwl -802(fp),r0 | ||
2694 | bicl2 #-65536,r0 | ||
2695 | addl2 r0,r4 | ||
2696 | bicl3 #-65536,-804(fp),r0 | ||
2697 | ashl #16,r0,-808(fp) | ||
2698 | addl2 -808(fp),r5 | ||
2699 | bicl2 #0,r5 | ||
2700 | cmpl r5,-808(fp) | ||
2701 | bgequ noname.254 | ||
2702 | incl r4 | ||
2703 | noname.254: | ||
2704 | movl r5,r1 | ||
2705 | movl r4,r2 | ||
2706 | addl2 r1,r8 | ||
2707 | bicl2 #0,r8 | ||
2708 | cmpl r8,r1 | ||
2709 | bgequ noname.255 | ||
2710 | incl r2 | ||
2711 | noname.255: | ||
2712 | addl2 r2,r10 | ||
2713 | bicl2 #0,r10 | ||
2714 | cmpl r10,r2 | ||
2715 | bgequ noname.256 | ||
2716 | incl r9 | ||
2717 | noname.256: | ||
2718 | |||
2719 | bicl3 #-65536,12(r6),r3 | ||
2720 | movzwl 14(r6),r1 | ||
2721 | bicl2 #-65536,r1 | ||
2722 | bicl3 #-65536,28(r7),r2 | ||
2723 | movzwl 30(r7),r0 | ||
2724 | bicl2 #-65536,r0 | ||
2725 | movl r3,r5 | ||
2726 | movl r1,r4 | ||
2727 | mull3 r0,r5,-812(fp) | ||
2728 | mull2 r2,r5 | ||
2729 | mull3 r2,r4,-816(fp) | ||
2730 | mull2 r0,r4 | ||
2731 | addl3 -812(fp),-816(fp),r0 | ||
2732 | bicl3 #0,r0,-812(fp) | ||
2733 | cmpl -812(fp),-816(fp) | ||
2734 | bgequ noname.257 | ||
2735 | addl2 #65536,r4 | ||
2736 | noname.257: | ||
2737 | movzwl -810(fp),r0 | ||
2738 | bicl2 #-65536,r0 | ||
2739 | addl2 r0,r4 | ||
2740 | bicl3 #-65536,-812(fp),r0 | ||
2741 | ashl #16,r0,-816(fp) | ||
2742 | addl2 -816(fp),r5 | ||
2743 | bicl2 #0,r5 | ||
2744 | cmpl r5,-816(fp) | ||
2745 | bgequ noname.258 | ||
2746 | incl r4 | ||
2747 | noname.258: | ||
2748 | movl r5,r1 | ||
2749 | movl r4,r2 | ||
2750 | addl2 r1,r8 | ||
2751 | bicl2 #0,r8 | ||
2752 | cmpl r8,r1 | ||
2753 | bgequ noname.259 | ||
2754 | incl r2 | ||
2755 | noname.259: | ||
2756 | addl2 r2,r10 | ||
2757 | bicl2 #0,r10 | ||
2758 | cmpl r10,r2 | ||
2759 | bgequ noname.260 | ||
2760 | incl r9 | ||
2761 | noname.260: | ||
2762 | |||
2763 | movl r8,40(r11) | ||
2764 | |||
2765 | clrl r8 | ||
2766 | |||
2767 | bicl3 #-65536,16(r6),r3 | ||
2768 | movzwl 18(r6),r2 | ||
2769 | bicl3 #-65536,28(r7),r1 | ||
2770 | movzwl 30(r7),r0 | ||
2771 | bicl2 #-65536,r0 | ||
2772 | movl r3,r4 | ||
2773 | bicl3 #-65536,r2,-828(fp) | ||
2774 | mull3 r0,r4,-820(fp) | ||
2775 | mull2 r1,r4 | ||
2776 | mull3 r1,-828(fp),-824(fp) | ||
2777 | mull2 r0,-828(fp) | ||
2778 | addl3 -820(fp),-824(fp),r0 | ||
2779 | bicl3 #0,r0,-820(fp) | ||
2780 | cmpl -820(fp),-824(fp) | ||
2781 | bgequ noname.261 | ||
2782 | addl2 #65536,-828(fp) | ||
2783 | noname.261: | ||
2784 | movzwl -818(fp),r0 | ||
2785 | bicl2 #-65536,r0 | ||
2786 | addl2 r0,-828(fp) | ||
2787 | bicl3 #-65536,-820(fp),r0 | ||
2788 | ashl #16,r0,-824(fp) | ||
2789 | addl2 -824(fp),r4 | ||
2790 | bicl2 #0,r4 | ||
2791 | cmpl r4,-824(fp) | ||
2792 | bgequ noname.262 | ||
2793 | incl -828(fp) | ||
2794 | noname.262: | ||
2795 | movl r4,r1 | ||
2796 | movl -828(fp),r2 | ||
2797 | addl2 r1,r10 | ||
2798 | bicl2 #0,r10 | ||
2799 | cmpl r10,r1 | ||
2800 | bgequ noname.263 | ||
2801 | incl r2 | ||
2802 | noname.263: | ||
2803 | addl2 r2,r9 | ||
2804 | bicl2 #0,r9 | ||
2805 | cmpl r9,r2 | ||
2806 | bgequ noname.264 | ||
2807 | incl r8 | ||
2808 | noname.264: | ||
2809 | |||
2810 | movzwl 22(r6),r2 | ||
2811 | bicl3 #-65536,24(r7),r3 | ||
2812 | movzwl 26(r7),r0 | ||
2813 | bicl2 #-65536,r0 | ||
2814 | bicl3 #-65536,20(r6),-840(fp) | ||
2815 | bicl3 #-65536,r2,-844(fp) | ||
2816 | mull3 r0,-840(fp),-832(fp) | ||
2817 | mull2 r3,-840(fp) | ||
2818 | mull3 r3,-844(fp),-836(fp) | ||
2819 | mull2 r0,-844(fp) | ||
2820 | addl3 -832(fp),-836(fp),r0 | ||
2821 | bicl3 #0,r0,-832(fp) | ||
2822 | cmpl -832(fp),-836(fp) | ||
2823 | bgequ noname.265 | ||
2824 | addl2 #65536,-844(fp) | ||
2825 | noname.265: | ||
2826 | movzwl -830(fp),r0 | ||
2827 | bicl2 #-65536,r0 | ||
2828 | addl2 r0,-844(fp) | ||
2829 | bicl3 #-65536,-832(fp),r0 | ||
2830 | ashl #16,r0,-836(fp) | ||
2831 | addl3 -836(fp),-840(fp),r0 | ||
2832 | bicl3 #0,r0,-840(fp) | ||
2833 | cmpl -840(fp),-836(fp) | ||
2834 | bgequ noname.266 | ||
2835 | incl -844(fp) | ||
2836 | noname.266: | ||
2837 | movl -840(fp),r1 | ||
2838 | movl -844(fp),r2 | ||
2839 | addl2 r1,r10 | ||
2840 | bicl2 #0,r10 | ||
2841 | cmpl r10,r1 | ||
2842 | bgequ noname.267 | ||
2843 | incl r2 | ||
2844 | noname.267: | ||
2845 | addl2 r2,r9 | ||
2846 | bicl2 #0,r9 | ||
2847 | cmpl r9,r2 | ||
2848 | bgequ noname.268 | ||
2849 | incl r8 | ||
2850 | noname.268: | ||
2851 | |||
2852 | bicl3 #-65536,24(r6),r3 | ||
2853 | movzwl 26(r6),r1 | ||
2854 | bicl2 #-65536,r1 | ||
2855 | bicl3 #-65536,20(r7),r2 | ||
2856 | movzwl 22(r7),r0 | ||
2857 | bicl2 #-65536,r0 | ||
2858 | movl r3,r5 | ||
2859 | movl r1,r4 | ||
2860 | mull3 r0,r5,-848(fp) | ||
2861 | mull2 r2,r5 | ||
2862 | mull3 r2,r4,-852(fp) | ||
2863 | mull2 r0,r4 | ||
2864 | addl3 -848(fp),-852(fp),r0 | ||
2865 | bicl3 #0,r0,-848(fp) | ||
2866 | cmpl -848(fp),-852(fp) | ||
2867 | bgequ noname.269 | ||
2868 | addl2 #65536,r4 | ||
2869 | noname.269: | ||
2870 | movzwl -846(fp),r0 | ||
2871 | bicl2 #-65536,r0 | ||
2872 | addl2 r0,r4 | ||
2873 | bicl3 #-65536,-848(fp),r0 | ||
2874 | ashl #16,r0,-852(fp) | ||
2875 | addl2 -852(fp),r5 | ||
2876 | bicl2 #0,r5 | ||
2877 | cmpl r5,-852(fp) | ||
2878 | bgequ noname.270 | ||
2879 | incl r4 | ||
2880 | noname.270: | ||
2881 | movl r5,r1 | ||
2882 | movl r4,r2 | ||
2883 | addl2 r1,r10 | ||
2884 | bicl2 #0,r10 | ||
2885 | cmpl r10,r1 | ||
2886 | bgequ noname.271 | ||
2887 | incl r2 | ||
2888 | noname.271: | ||
2889 | addl2 r2,r9 | ||
2890 | bicl2 #0,r9 | ||
2891 | cmpl r9,r2 | ||
2892 | bgequ noname.272 | ||
2893 | incl r8 | ||
2894 | noname.272: | ||
2895 | |||
2896 | bicl3 #-65536,28(r6),r3 | ||
2897 | movzwl 30(r6),r1 | ||
2898 | bicl2 #-65536,r1 | ||
2899 | bicl3 #-65536,16(r7),r2 | ||
2900 | movzwl 18(r7),r0 | ||
2901 | bicl2 #-65536,r0 | ||
2902 | movl r3,r5 | ||
2903 | movl r1,r4 | ||
2904 | mull3 r0,r5,-856(fp) | ||
2905 | mull2 r2,r5 | ||
2906 | mull3 r2,r4,-860(fp) | ||
2907 | mull2 r0,r4 | ||
2908 | addl3 -856(fp),-860(fp),r0 | ||
2909 | bicl3 #0,r0,-856(fp) | ||
2910 | cmpl -856(fp),-860(fp) | ||
2911 | bgequ noname.273 | ||
2912 | addl2 #65536,r4 | ||
2913 | noname.273: | ||
2914 | movzwl -854(fp),r0 | ||
2915 | bicl2 #-65536,r0 | ||
2916 | addl2 r0,r4 | ||
2917 | bicl3 #-65536,-856(fp),r0 | ||
2918 | ashl #16,r0,-860(fp) | ||
2919 | addl2 -860(fp),r5 | ||
2920 | bicl2 #0,r5 | ||
2921 | cmpl r5,-860(fp) | ||
2922 | bgequ noname.274 | ||
2923 | incl r4 | ||
2924 | noname.274: | ||
2925 | movl r5,r1 | ||
2926 | movl r4,r2 | ||
2927 | addl2 r1,r10 | ||
2928 | bicl2 #0,r10 | ||
2929 | cmpl r10,r1 | ||
2930 | bgequ noname.275 | ||
2931 | incl r2 | ||
2932 | noname.275: | ||
2933 | addl2 r2,r9 | ||
2934 | bicl2 #0,r9 | ||
2935 | cmpl r9,r2 | ||
2936 | bgequ noname.276 | ||
2937 | incl r8 | ||
2938 | noname.276: | ||
2939 | |||
2940 | movl r10,44(r11) | ||
2941 | |||
2942 | clrl r10 | ||
2943 | |||
2944 | bicl3 #-65536,28(r6),r3 | ||
2945 | movzwl 30(r6),r1 | ||
2946 | bicl2 #-65536,r1 | ||
2947 | bicl3 #-65536,20(r7),r2 | ||
2948 | movzwl 22(r7),r0 | ||
2949 | bicl2 #-65536,r0 | ||
2950 | movl r3,r5 | ||
2951 | movl r1,r4 | ||
2952 | mull3 r0,r5,-864(fp) | ||
2953 | mull2 r2,r5 | ||
2954 | mull3 r2,r4,-868(fp) | ||
2955 | mull2 r0,r4 | ||
2956 | addl3 -864(fp),-868(fp),r0 | ||
2957 | bicl3 #0,r0,-864(fp) | ||
2958 | cmpl -864(fp),-868(fp) | ||
2959 | bgequ noname.277 | ||
2960 | addl2 #65536,r4 | ||
2961 | noname.277: | ||
2962 | movzwl -862(fp),r0 | ||
2963 | bicl2 #-65536,r0 | ||
2964 | addl2 r0,r4 | ||
2965 | bicl3 #-65536,-864(fp),r0 | ||
2966 | ashl #16,r0,-868(fp) | ||
2967 | addl2 -868(fp),r5 | ||
2968 | bicl2 #0,r5 | ||
2969 | cmpl r5,-868(fp) | ||
2970 | bgequ noname.278 | ||
2971 | incl r4 | ||
2972 | noname.278: | ||
2973 | movl r5,r1 | ||
2974 | movl r4,r2 | ||
2975 | addl2 r1,r9 | ||
2976 | bicl2 #0,r9 | ||
2977 | cmpl r9,r1 | ||
2978 | bgequ noname.279 | ||
2979 | incl r2 | ||
2980 | noname.279: | ||
2981 | addl2 r2,r8 | ||
2982 | bicl2 #0,r8 | ||
2983 | cmpl r8,r2 | ||
2984 | bgequ noname.280 | ||
2985 | incl r10 | ||
2986 | noname.280: | ||
2987 | |||
2988 | bicl3 #-65536,24(r6),r3 | ||
2989 | movzwl 26(r6),r1 | ||
2990 | bicl2 #-65536,r1 | ||
2991 | bicl3 #-65536,24(r7),r2 | ||
2992 | movzwl 26(r7),r0 | ||
2993 | bicl2 #-65536,r0 | ||
2994 | movl r3,r5 | ||
2995 | movl r1,r4 | ||
2996 | mull3 r0,r5,-872(fp) | ||
2997 | mull2 r2,r5 | ||
2998 | mull3 r2,r4,-876(fp) | ||
2999 | mull2 r0,r4 | ||
3000 | addl3 -872(fp),-876(fp),r0 | ||
3001 | bicl3 #0,r0,-872(fp) | ||
3002 | cmpl -872(fp),-876(fp) | ||
3003 | bgequ noname.281 | ||
3004 | addl2 #65536,r4 | ||
3005 | noname.281: | ||
3006 | movzwl -870(fp),r0 | ||
3007 | bicl2 #-65536,r0 | ||
3008 | addl2 r0,r4 | ||
3009 | bicl3 #-65536,-872(fp),r0 | ||
3010 | ashl #16,r0,-876(fp) | ||
3011 | addl2 -876(fp),r5 | ||
3012 | bicl2 #0,r5 | ||
3013 | cmpl r5,-876(fp) | ||
3014 | bgequ noname.282 | ||
3015 | incl r4 | ||
3016 | noname.282: | ||
3017 | movl r5,r1 | ||
3018 | movl r4,r2 | ||
3019 | addl2 r1,r9 | ||
3020 | bicl2 #0,r9 | ||
3021 | cmpl r9,r1 | ||
3022 | bgequ noname.283 | ||
3023 | incl r2 | ||
3024 | noname.283: | ||
3025 | addl2 r2,r8 | ||
3026 | bicl2 #0,r8 | ||
3027 | cmpl r8,r2 | ||
3028 | bgequ noname.284 | ||
3029 | incl r10 | ||
3030 | noname.284: | ||
3031 | |||
3032 | bicl3 #-65536,20(r6),r3 | ||
3033 | movzwl 22(r6),r1 | ||
3034 | bicl2 #-65536,r1 | ||
3035 | bicl3 #-65536,28(r7),r2 | ||
3036 | movzwl 30(r7),r0 | ||
3037 | bicl2 #-65536,r0 | ||
3038 | movl r3,r5 | ||
3039 | movl r1,r4 | ||
3040 | mull3 r0,r5,-880(fp) | ||
3041 | mull2 r2,r5 | ||
3042 | mull3 r2,r4,-884(fp) | ||
3043 | mull2 r0,r4 | ||
3044 | addl3 -880(fp),-884(fp),r0 | ||
3045 | bicl3 #0,r0,-880(fp) | ||
3046 | cmpl -880(fp),-884(fp) | ||
3047 | bgequ noname.285 | ||
3048 | addl2 #65536,r4 | ||
3049 | noname.285: | ||
3050 | movzwl -878(fp),r0 | ||
3051 | bicl2 #-65536,r0 | ||
3052 | addl2 r0,r4 | ||
3053 | bicl3 #-65536,-880(fp),r0 | ||
3054 | ashl #16,r0,-884(fp) | ||
3055 | addl2 -884(fp),r5 | ||
3056 | bicl2 #0,r5 | ||
3057 | cmpl r5,-884(fp) | ||
3058 | bgequ noname.286 | ||
3059 | incl r4 | ||
3060 | noname.286: | ||
3061 | movl r5,r1 | ||
3062 | movl r4,r2 | ||
3063 | addl2 r1,r9 | ||
3064 | bicl2 #0,r9 | ||
3065 | cmpl r9,r1 | ||
3066 | bgequ noname.287 | ||
3067 | incl r2 | ||
3068 | noname.287: | ||
3069 | addl2 r2,r8 | ||
3070 | bicl2 #0,r8 | ||
3071 | cmpl r8,r2 | ||
3072 | bgequ noname.288 | ||
3073 | incl r10 | ||
3074 | noname.288: | ||
3075 | |||
3076 | movl r9,48(r11) | ||
3077 | |||
3078 | clrl r9 | ||
3079 | |||
3080 | bicl3 #-65536,24(r6),r3 | ||
3081 | movzwl 26(r6),r1 | ||
3082 | bicl2 #-65536,r1 | ||
3083 | bicl3 #-65536,28(r7),r2 | ||
3084 | movzwl 30(r7),r0 | ||
3085 | bicl2 #-65536,r0 | ||
3086 | movl r3,r5 | ||
3087 | movl r1,r4 | ||
3088 | mull3 r0,r5,-888(fp) | ||
3089 | mull2 r2,r5 | ||
3090 | mull3 r2,r4,-892(fp) | ||
3091 | mull2 r0,r4 | ||
3092 | addl3 -888(fp),-892(fp),r0 | ||
3093 | bicl3 #0,r0,-888(fp) | ||
3094 | cmpl -888(fp),-892(fp) | ||
3095 | bgequ noname.289 | ||
3096 | addl2 #65536,r4 | ||
3097 | noname.289: | ||
3098 | movzwl -886(fp),r0 | ||
3099 | bicl2 #-65536,r0 | ||
3100 | addl2 r0,r4 | ||
3101 | bicl3 #-65536,-888(fp),r0 | ||
3102 | ashl #16,r0,-892(fp) | ||
3103 | addl2 -892(fp),r5 | ||
3104 | bicl2 #0,r5 | ||
3105 | cmpl r5,-892(fp) | ||
3106 | bgequ noname.290 | ||
3107 | incl r4 | ||
3108 | noname.290: | ||
3109 | movl r5,r1 | ||
3110 | movl r4,r2 | ||
3111 | addl2 r1,r8 | ||
3112 | bicl2 #0,r8 | ||
3113 | cmpl r8,r1 | ||
3114 | bgequ noname.291 | ||
3115 | incl r2 | ||
3116 | noname.291: | ||
3117 | addl2 r2,r10 | ||
3118 | bicl2 #0,r10 | ||
3119 | cmpl r10,r2 | ||
3120 | bgequ noname.292 | ||
3121 | incl r9 | ||
3122 | noname.292: | ||
3123 | |||
3124 | movzwl 30(r6),r2 | ||
3125 | bicl3 #-65536,24(r7),r3 | ||
3126 | movzwl 26(r7),r0 | ||
3127 | bicl2 #-65536,r0 | ||
3128 | bicl3 #-65536,28(r6),-904(fp) | ||
3129 | bicl3 #-65536,r2,-908(fp) | ||
3130 | mull3 r0,-904(fp),-896(fp) | ||
3131 | mull2 r3,-904(fp) | ||
3132 | mull3 r3,-908(fp),-900(fp) | ||
3133 | mull2 r0,-908(fp) | ||
3134 | addl3 -896(fp),-900(fp),r0 | ||
3135 | bicl3 #0,r0,-896(fp) | ||
3136 | cmpl -896(fp),-900(fp) | ||
3137 | bgequ noname.293 | ||
3138 | addl2 #65536,-908(fp) | ||
3139 | noname.293: | ||
3140 | movzwl -894(fp),r0 | ||
3141 | bicl2 #-65536,r0 | ||
3142 | addl2 r0,-908(fp) | ||
3143 | bicl3 #-65536,-896(fp),r0 | ||
3144 | ashl #16,r0,-900(fp) | ||
3145 | addl3 -900(fp),-904(fp),r0 | ||
3146 | bicl3 #0,r0,-904(fp) | ||
3147 | cmpl -904(fp),-900(fp) | ||
3148 | bgequ noname.294 | ||
3149 | incl -908(fp) | ||
3150 | noname.294: | ||
3151 | movl -904(fp),r1 | ||
3152 | movl -908(fp),r2 | ||
3153 | addl2 r1,r8 | ||
3154 | bicl2 #0,r8 | ||
3155 | cmpl r8,r1 | ||
3156 | bgequ noname.295 | ||
3157 | incl r2 | ||
3158 | noname.295: | ||
3159 | addl2 r2,r10 | ||
3160 | bicl2 #0,r10 | ||
3161 | cmpl r10,r2 | ||
3162 | bgequ noname.296 | ||
3163 | incl r9 | ||
3164 | noname.296: | ||
3165 | |||
3166 | movl r8,52(r11) | ||
3167 | |||
3168 | clrl r8 | ||
3169 | |||
3170 | movzwl 30(r6),r2 | ||
3171 | bicl3 #-65536,28(r7),r3 | ||
3172 | movzwl 30(r7),r0 | ||
3173 | bicl2 #-65536,r0 | ||
3174 | bicl3 #-65536,28(r6),-920(fp) | ||
3175 | bicl3 #-65536,r2,-924(fp) | ||
3176 | mull3 r0,-920(fp),-912(fp) | ||
3177 | mull2 r3,-920(fp) | ||
3178 | mull3 r3,-924(fp),-916(fp) | ||
3179 | mull2 r0,-924(fp) | ||
3180 | addl3 -912(fp),-916(fp),r0 | ||
3181 | bicl3 #0,r0,-912(fp) | ||
3182 | cmpl -912(fp),-916(fp) | ||
3183 | bgequ noname.297 | ||
3184 | addl2 #65536,-924(fp) | ||
3185 | noname.297: | ||
3186 | movzwl -910(fp),r0 | ||
3187 | bicl2 #-65536,r0 | ||
3188 | addl2 r0,-924(fp) | ||
3189 | bicl3 #-65536,-912(fp),r0 | ||
3190 | ashl #16,r0,-916(fp) | ||
3191 | addl3 -916(fp),-920(fp),r0 | ||
3192 | bicl3 #0,r0,-920(fp) | ||
3193 | cmpl -920(fp),-916(fp) | ||
3194 | bgequ noname.298 | ||
3195 | incl -924(fp) | ||
3196 | noname.298: | ||
3197 | movl -920(fp),r1 | ||
3198 | movl -924(fp),r2 | ||
3199 | addl2 r1,r10 | ||
3200 | bicl2 #0,r10 | ||
3201 | cmpl r10,r1 | ||
3202 | bgequ noname.299 | ||
3203 | incl r2 | ||
3204 | noname.299: | ||
3205 | addl2 r2,r9 | ||
3206 | bicl2 #0,r9 | ||
3207 | cmpl r9,r2 | ||
3208 | bgequ noname.300 | ||
3209 | incl r8 | ||
3210 | noname.300: | ||
3211 | |||
3212 | movl r10,56(r11) | ||
3213 | |||
3214 | movl r9,60(r11) | ||
3215 | |||
3216 | ret | ||
3217 | |||
3218 | |||
3219 | |||
3220 | ;r=4 ;(AP) | ||
3221 | ;a=8 ;(AP) | ||
3222 | ;b=12 ;(AP) | ||
3223 | ;n=16 ;(AP) n by value (input) | ||
3224 | |||
3225 | .psect code,nowrt | ||
3226 | |||
3227 | .entry BN_MUL_COMBA4,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10,r11> | ||
3228 | movab -156(sp),sp | ||
3229 | |||
3230 | clrq r9 | ||
3231 | |||
3232 | clrl r8 | ||
3233 | |||
3234 | movl 8(ap),r6 | ||
3235 | bicl3 #-65536,(r6),r3 | ||
3236 | movzwl 2(r6),r2 | ||
3237 | bicl2 #-65536,r2 | ||
3238 | movl 12(ap),r7 | ||
3239 | bicl3 #-65536,(r7),r1 | ||
3240 | movzwl 2(r7),r0 | ||
3241 | bicl2 #-65536,r0 | ||
3242 | movl r3,r5 | ||
3243 | movl r2,r4 | ||
3244 | mull3 r0,r5,-4(fp) | ||
3245 | mull2 r1,r5 | ||
3246 | mull3 r1,r4,-8(fp) | ||
3247 | mull2 r0,r4 | ||
3248 | addl3 -4(fp),-8(fp),r0 | ||
3249 | bicl3 #0,r0,-4(fp) | ||
3250 | cmpl -4(fp),-8(fp) | ||
3251 | bgequ noname.303 | ||
3252 | addl2 #65536,r4 | ||
3253 | noname.303: | ||
3254 | movzwl -2(fp),r0 | ||
3255 | bicl2 #-65536,r0 | ||
3256 | addl2 r0,r4 | ||
3257 | bicl3 #-65536,-4(fp),r0 | ||
3258 | ashl #16,r0,-8(fp) | ||
3259 | addl2 -8(fp),r5 | ||
3260 | bicl2 #0,r5 | ||
3261 | cmpl r5,-8(fp) | ||
3262 | bgequ noname.304 | ||
3263 | incl r4 | ||
3264 | noname.304: | ||
3265 | movl r5,r1 | ||
3266 | movl r4,r2 | ||
3267 | addl2 r1,r10 | ||
3268 | bicl2 #0,r10 | ||
3269 | cmpl r10,r1 | ||
3270 | bgequ noname.305 | ||
3271 | incl r2 | ||
3272 | noname.305: | ||
3273 | addl2 r2,r9 | ||
3274 | bicl2 #0,r9 | ||
3275 | cmpl r9,r2 | ||
3276 | bgequ noname.306 | ||
3277 | incl r8 | ||
3278 | noname.306: | ||
3279 | |||
3280 | movl 4(ap),r11 | ||
3281 | movl r10,(r11) | ||
3282 | |||
3283 | clrl r10 | ||
3284 | |||
3285 | bicl3 #-65536,(r6),r3 | ||
3286 | movzwl 2(r6),r1 | ||
3287 | bicl2 #-65536,r1 | ||
3288 | bicl3 #-65536,4(r7),r2 | ||
3289 | movzwl 6(r7),r0 | ||
3290 | bicl2 #-65536,r0 | ||
3291 | movl r3,r5 | ||
3292 | movl r1,r4 | ||
3293 | mull3 r0,r5,-12(fp) | ||
3294 | mull2 r2,r5 | ||
3295 | mull3 r2,r4,-16(fp) | ||
3296 | mull2 r0,r4 | ||
3297 | addl3 -12(fp),-16(fp),r0 | ||
3298 | bicl3 #0,r0,-12(fp) | ||
3299 | cmpl -12(fp),-16(fp) | ||
3300 | bgequ noname.307 | ||
3301 | addl2 #65536,r4 | ||
3302 | noname.307: | ||
3303 | movzwl -10(fp),r0 | ||
3304 | bicl2 #-65536,r0 | ||
3305 | addl2 r0,r4 | ||
3306 | bicl3 #-65536,-12(fp),r0 | ||
3307 | ashl #16,r0,-16(fp) | ||
3308 | addl2 -16(fp),r5 | ||
3309 | bicl2 #0,r5 | ||
3310 | cmpl r5,-16(fp) | ||
3311 | bgequ noname.308 | ||
3312 | incl r4 | ||
3313 | noname.308: | ||
3314 | movl r5,r1 | ||
3315 | movl r4,r2 | ||
3316 | addl2 r1,r9 | ||
3317 | bicl2 #0,r9 | ||
3318 | cmpl r9,r1 | ||
3319 | bgequ noname.309 | ||
3320 | incl r2 | ||
3321 | noname.309: | ||
3322 | addl2 r2,r8 | ||
3323 | bicl2 #0,r8 | ||
3324 | cmpl r8,r2 | ||
3325 | bgequ noname.310 | ||
3326 | incl r10 | ||
3327 | noname.310: | ||
3328 | |||
3329 | bicl3 #-65536,4(r6),r3 | ||
3330 | movzwl 6(r6),r1 | ||
3331 | bicl2 #-65536,r1 | ||
3332 | bicl3 #-65536,(r7),r2 | ||
3333 | movzwl 2(r7),r0 | ||
3334 | bicl2 #-65536,r0 | ||
3335 | movl r3,r5 | ||
3336 | movl r1,r4 | ||
3337 | mull3 r0,r5,-20(fp) | ||
3338 | mull2 r2,r5 | ||
3339 | mull3 r2,r4,-24(fp) | ||
3340 | mull2 r0,r4 | ||
3341 | addl3 -20(fp),-24(fp),r0 | ||
3342 | bicl3 #0,r0,-20(fp) | ||
3343 | cmpl -20(fp),-24(fp) | ||
3344 | bgequ noname.311 | ||
3345 | addl2 #65536,r4 | ||
3346 | noname.311: | ||
3347 | movzwl -18(fp),r0 | ||
3348 | bicl2 #-65536,r0 | ||
3349 | addl2 r0,r4 | ||
3350 | bicl3 #-65536,-20(fp),r0 | ||
3351 | ashl #16,r0,-24(fp) | ||
3352 | addl2 -24(fp),r5 | ||
3353 | bicl2 #0,r5 | ||
3354 | cmpl r5,-24(fp) | ||
3355 | bgequ noname.312 | ||
3356 | incl r4 | ||
3357 | noname.312: | ||
3358 | movl r5,r1 | ||
3359 | movl r4,r2 | ||
3360 | addl2 r1,r9 | ||
3361 | bicl2 #0,r9 | ||
3362 | cmpl r9,r1 | ||
3363 | bgequ noname.313 | ||
3364 | incl r2 | ||
3365 | noname.313: | ||
3366 | addl2 r2,r8 | ||
3367 | bicl2 #0,r8 | ||
3368 | cmpl r8,r2 | ||
3369 | bgequ noname.314 | ||
3370 | incl r10 | ||
3371 | noname.314: | ||
3372 | |||
3373 | movl r9,4(r11) | ||
3374 | |||
3375 | clrl r9 | ||
3376 | |||
3377 | bicl3 #-65536,8(r6),r3 | ||
3378 | movzwl 10(r6),r1 | ||
3379 | bicl2 #-65536,r1 | ||
3380 | bicl3 #-65536,(r7),r2 | ||
3381 | movzwl 2(r7),r0 | ||
3382 | bicl2 #-65536,r0 | ||
3383 | movl r3,r5 | ||
3384 | movl r1,r4 | ||
3385 | mull3 r0,r5,-28(fp) | ||
3386 | mull2 r2,r5 | ||
3387 | mull3 r2,r4,-32(fp) | ||
3388 | mull2 r0,r4 | ||
3389 | addl3 -28(fp),-32(fp),r0 | ||
3390 | bicl3 #0,r0,-28(fp) | ||
3391 | cmpl -28(fp),-32(fp) | ||
3392 | bgequ noname.315 | ||
3393 | addl2 #65536,r4 | ||
3394 | noname.315: | ||
3395 | movzwl -26(fp),r0 | ||
3396 | bicl2 #-65536,r0 | ||
3397 | addl2 r0,r4 | ||
3398 | bicl3 #-65536,-28(fp),r0 | ||
3399 | ashl #16,r0,-32(fp) | ||
3400 | addl2 -32(fp),r5 | ||
3401 | bicl2 #0,r5 | ||
3402 | cmpl r5,-32(fp) | ||
3403 | bgequ noname.316 | ||
3404 | incl r4 | ||
3405 | noname.316: | ||
3406 | movl r5,r1 | ||
3407 | movl r4,r2 | ||
3408 | addl2 r1,r8 | ||
3409 | bicl2 #0,r8 | ||
3410 | cmpl r8,r1 | ||
3411 | bgequ noname.317 | ||
3412 | incl r2 | ||
3413 | noname.317: | ||
3414 | addl2 r2,r10 | ||
3415 | bicl2 #0,r10 | ||
3416 | cmpl r10,r2 | ||
3417 | bgequ noname.318 | ||
3418 | incl r9 | ||
3419 | noname.318: | ||
3420 | |||
3421 | bicl3 #-65536,4(r6),r3 | ||
3422 | movzwl 6(r6),r1 | ||
3423 | bicl2 #-65536,r1 | ||
3424 | bicl3 #-65536,4(r7),r2 | ||
3425 | movzwl 6(r7),r0 | ||
3426 | bicl2 #-65536,r0 | ||
3427 | movl r3,r5 | ||
3428 | movl r1,r4 | ||
3429 | mull3 r0,r5,-36(fp) | ||
3430 | mull2 r2,r5 | ||
3431 | mull3 r2,r4,-40(fp) | ||
3432 | mull2 r0,r4 | ||
3433 | addl3 -36(fp),-40(fp),r0 | ||
3434 | bicl3 #0,r0,-36(fp) | ||
3435 | cmpl -36(fp),-40(fp) | ||
3436 | bgequ noname.319 | ||
3437 | addl2 #65536,r4 | ||
3438 | noname.319: | ||
3439 | movzwl -34(fp),r0 | ||
3440 | bicl2 #-65536,r0 | ||
3441 | addl2 r0,r4 | ||
3442 | bicl3 #-65536,-36(fp),r0 | ||
3443 | ashl #16,r0,-40(fp) | ||
3444 | addl2 -40(fp),r5 | ||
3445 | bicl2 #0,r5 | ||
3446 | cmpl r5,-40(fp) | ||
3447 | bgequ noname.320 | ||
3448 | incl r4 | ||
3449 | noname.320: | ||
3450 | movl r5,r1 | ||
3451 | movl r4,r2 | ||
3452 | addl2 r1,r8 | ||
3453 | bicl2 #0,r8 | ||
3454 | cmpl r8,r1 | ||
3455 | bgequ noname.321 | ||
3456 | incl r2 | ||
3457 | noname.321: | ||
3458 | addl2 r2,r10 | ||
3459 | bicl2 #0,r10 | ||
3460 | cmpl r10,r2 | ||
3461 | bgequ noname.322 | ||
3462 | incl r9 | ||
3463 | noname.322: | ||
3464 | |||
3465 | bicl3 #-65536,(r6),r3 | ||
3466 | movzwl 2(r6),r1 | ||
3467 | bicl2 #-65536,r1 | ||
3468 | bicl3 #-65536,8(r7),r2 | ||
3469 | movzwl 10(r7),r0 | ||
3470 | bicl2 #-65536,r0 | ||
3471 | movl r3,r5 | ||
3472 | movl r1,r4 | ||
3473 | mull3 r0,r5,-44(fp) | ||
3474 | mull2 r2,r5 | ||
3475 | mull3 r2,r4,-48(fp) | ||
3476 | mull2 r0,r4 | ||
3477 | addl3 -44(fp),-48(fp),r0 | ||
3478 | bicl3 #0,r0,-44(fp) | ||
3479 | cmpl -44(fp),-48(fp) | ||
3480 | bgequ noname.323 | ||
3481 | addl2 #65536,r4 | ||
3482 | noname.323: | ||
3483 | movzwl -42(fp),r0 | ||
3484 | bicl2 #-65536,r0 | ||
3485 | addl2 r0,r4 | ||
3486 | bicl3 #-65536,-44(fp),r0 | ||
3487 | ashl #16,r0,-48(fp) | ||
3488 | addl2 -48(fp),r5 | ||
3489 | bicl2 #0,r5 | ||
3490 | cmpl r5,-48(fp) | ||
3491 | bgequ noname.324 | ||
3492 | incl r4 | ||
3493 | noname.324: | ||
3494 | movl r5,r1 | ||
3495 | movl r4,r2 | ||
3496 | addl2 r1,r8 | ||
3497 | bicl2 #0,r8 | ||
3498 | cmpl r8,r1 | ||
3499 | bgequ noname.325 | ||
3500 | incl r2 | ||
3501 | noname.325: | ||
3502 | addl2 r2,r10 | ||
3503 | bicl2 #0,r10 | ||
3504 | cmpl r10,r2 | ||
3505 | bgequ noname.326 | ||
3506 | incl r9 | ||
3507 | noname.326: | ||
3508 | |||
3509 | movl r8,8(r11) | ||
3510 | |||
3511 | clrl r8 | ||
3512 | |||
3513 | bicl3 #-65536,(r6),r3 | ||
3514 | movzwl 2(r6),r2 | ||
3515 | bicl3 #-65536,12(r7),r1 | ||
3516 | movzwl 14(r7),r0 | ||
3517 | bicl2 #-65536,r0 | ||
3518 | movl r3,r4 | ||
3519 | bicl3 #-65536,r2,-60(fp) | ||
3520 | mull3 r0,r4,-52(fp) | ||
3521 | mull2 r1,r4 | ||
3522 | mull3 r1,-60(fp),-56(fp) | ||
3523 | mull2 r0,-60(fp) | ||
3524 | addl3 -52(fp),-56(fp),r0 | ||
3525 | bicl3 #0,r0,-52(fp) | ||
3526 | cmpl -52(fp),-56(fp) | ||
3527 | bgequ noname.327 | ||
3528 | addl2 #65536,-60(fp) | ||
3529 | noname.327: | ||
3530 | movzwl -50(fp),r0 | ||
3531 | bicl2 #-65536,r0 | ||
3532 | addl2 r0,-60(fp) | ||
3533 | bicl3 #-65536,-52(fp),r0 | ||
3534 | ashl #16,r0,-56(fp) | ||
3535 | addl2 -56(fp),r4 | ||
3536 | bicl2 #0,r4 | ||
3537 | cmpl r4,-56(fp) | ||
3538 | bgequ noname.328 | ||
3539 | incl -60(fp) | ||
3540 | noname.328: | ||
3541 | movl r4,r1 | ||
3542 | movl -60(fp),r2 | ||
3543 | addl2 r1,r10 | ||
3544 | bicl2 #0,r10 | ||
3545 | cmpl r10,r1 | ||
3546 | bgequ noname.329 | ||
3547 | incl r2 | ||
3548 | noname.329: | ||
3549 | addl2 r2,r9 | ||
3550 | bicl2 #0,r9 | ||
3551 | cmpl r9,r2 | ||
3552 | bgequ noname.330 | ||
3553 | incl r8 | ||
3554 | noname.330: | ||
3555 | |||
3556 | movzwl 6(r6),r2 | ||
3557 | bicl3 #-65536,8(r7),r3 | ||
3558 | movzwl 10(r7),r0 | ||
3559 | bicl2 #-65536,r0 | ||
3560 | bicl3 #-65536,4(r6),-72(fp) | ||
3561 | bicl3 #-65536,r2,-76(fp) | ||
3562 | mull3 r0,-72(fp),-64(fp) | ||
3563 | mull2 r3,-72(fp) | ||
3564 | mull3 r3,-76(fp),-68(fp) | ||
3565 | mull2 r0,-76(fp) | ||
3566 | addl3 -64(fp),-68(fp),r0 | ||
3567 | bicl3 #0,r0,-64(fp) | ||
3568 | cmpl -64(fp),-68(fp) | ||
3569 | bgequ noname.331 | ||
3570 | addl2 #65536,-76(fp) | ||
3571 | noname.331: | ||
3572 | movzwl -62(fp),r0 | ||
3573 | bicl2 #-65536,r0 | ||
3574 | addl2 r0,-76(fp) | ||
3575 | bicl3 #-65536,-64(fp),r0 | ||
3576 | ashl #16,r0,-68(fp) | ||
3577 | addl3 -68(fp),-72(fp),r0 | ||
3578 | bicl3 #0,r0,-72(fp) | ||
3579 | cmpl -72(fp),-68(fp) | ||
3580 | bgequ noname.332 | ||
3581 | incl -76(fp) | ||
3582 | noname.332: | ||
3583 | movl -72(fp),r1 | ||
3584 | movl -76(fp),r2 | ||
3585 | addl2 r1,r10 | ||
3586 | bicl2 #0,r10 | ||
3587 | cmpl r10,r1 | ||
3588 | bgequ noname.333 | ||
3589 | incl r2 | ||
3590 | noname.333: | ||
3591 | addl2 r2,r9 | ||
3592 | bicl2 #0,r9 | ||
3593 | cmpl r9,r2 | ||
3594 | bgequ noname.334 | ||
3595 | incl r8 | ||
3596 | noname.334: | ||
3597 | |||
3598 | bicl3 #-65536,8(r6),r3 | ||
3599 | movzwl 10(r6),r1 | ||
3600 | bicl2 #-65536,r1 | ||
3601 | bicl3 #-65536,4(r7),r2 | ||
3602 | movzwl 6(r7),r0 | ||
3603 | bicl2 #-65536,r0 | ||
3604 | movl r3,r5 | ||
3605 | movl r1,r4 | ||
3606 | mull3 r0,r5,-80(fp) | ||
3607 | mull2 r2,r5 | ||
3608 | mull3 r2,r4,-84(fp) | ||
3609 | mull2 r0,r4 | ||
3610 | addl3 -80(fp),-84(fp),r0 | ||
3611 | bicl3 #0,r0,-80(fp) | ||
3612 | cmpl -80(fp),-84(fp) | ||
3613 | bgequ noname.335 | ||
3614 | addl2 #65536,r4 | ||
3615 | noname.335: | ||
3616 | movzwl -78(fp),r0 | ||
3617 | bicl2 #-65536,r0 | ||
3618 | addl2 r0,r4 | ||
3619 | bicl3 #-65536,-80(fp),r0 | ||
3620 | ashl #16,r0,-84(fp) | ||
3621 | addl2 -84(fp),r5 | ||
3622 | bicl2 #0,r5 | ||
3623 | cmpl r5,-84(fp) | ||
3624 | bgequ noname.336 | ||
3625 | incl r4 | ||
3626 | noname.336: | ||
3627 | movl r5,r1 | ||
3628 | movl r4,r2 | ||
3629 | addl2 r1,r10 | ||
3630 | bicl2 #0,r10 | ||
3631 | cmpl r10,r1 | ||
3632 | bgequ noname.337 | ||
3633 | incl r2 | ||
3634 | noname.337: | ||
3635 | addl2 r2,r9 | ||
3636 | bicl2 #0,r9 | ||
3637 | cmpl r9,r2 | ||
3638 | bgequ noname.338 | ||
3639 | incl r8 | ||
3640 | noname.338: | ||
3641 | |||
3642 | bicl3 #-65536,12(r6),r3 | ||
3643 | movzwl 14(r6),r1 | ||
3644 | bicl2 #-65536,r1 | ||
3645 | bicl3 #-65536,(r7),r2 | ||
3646 | movzwl 2(r7),r0 | ||
3647 | bicl2 #-65536,r0 | ||
3648 | movl r3,r5 | ||
3649 | movl r1,r4 | ||
3650 | mull3 r0,r5,-88(fp) | ||
3651 | mull2 r2,r5 | ||
3652 | mull3 r2,r4,-92(fp) | ||
3653 | mull2 r0,r4 | ||
3654 | addl3 -88(fp),-92(fp),r0 | ||
3655 | bicl3 #0,r0,-88(fp) | ||
3656 | cmpl -88(fp),-92(fp) | ||
3657 | bgequ noname.339 | ||
3658 | addl2 #65536,r4 | ||
3659 | noname.339: | ||
3660 | movzwl -86(fp),r0 | ||
3661 | bicl2 #-65536,r0 | ||
3662 | addl2 r0,r4 | ||
3663 | bicl3 #-65536,-88(fp),r0 | ||
3664 | ashl #16,r0,-92(fp) | ||
3665 | addl2 -92(fp),r5 | ||
3666 | bicl2 #0,r5 | ||
3667 | cmpl r5,-92(fp) | ||
3668 | bgequ noname.340 | ||
3669 | incl r4 | ||
3670 | noname.340: | ||
3671 | movl r5,r1 | ||
3672 | movl r4,r2 | ||
3673 | addl2 r1,r10 | ||
3674 | bicl2 #0,r10 | ||
3675 | cmpl r10,r1 | ||
3676 | bgequ noname.341 | ||
3677 | incl r2 | ||
3678 | noname.341: | ||
3679 | addl2 r2,r9 | ||
3680 | bicl2 #0,r9 | ||
3681 | cmpl r9,r2 | ||
3682 | bgequ noname.342 | ||
3683 | incl r8 | ||
3684 | noname.342: | ||
3685 | |||
3686 | movl r10,12(r11) | ||
3687 | |||
3688 | clrl r10 | ||
3689 | |||
3690 | bicl3 #-65536,12(r6),r3 | ||
3691 | movzwl 14(r6),r1 | ||
3692 | bicl2 #-65536,r1 | ||
3693 | bicl3 #-65536,4(r7),r2 | ||
3694 | movzwl 6(r7),r0 | ||
3695 | bicl2 #-65536,r0 | ||
3696 | movl r3,r5 | ||
3697 | movl r1,r4 | ||
3698 | mull3 r0,r5,-96(fp) | ||
3699 | mull2 r2,r5 | ||
3700 | mull3 r2,r4,-100(fp) | ||
3701 | mull2 r0,r4 | ||
3702 | addl3 -96(fp),-100(fp),r0 | ||
3703 | bicl3 #0,r0,-96(fp) | ||
3704 | cmpl -96(fp),-100(fp) | ||
3705 | bgequ noname.343 | ||
3706 | addl2 #65536,r4 | ||
3707 | noname.343: | ||
3708 | movzwl -94(fp),r0 | ||
3709 | bicl2 #-65536,r0 | ||
3710 | addl2 r0,r4 | ||
3711 | bicl3 #-65536,-96(fp),r0 | ||
3712 | ashl #16,r0,-100(fp) | ||
3713 | addl2 -100(fp),r5 | ||
3714 | bicl2 #0,r5 | ||
3715 | cmpl r5,-100(fp) | ||
3716 | bgequ noname.344 | ||
3717 | incl r4 | ||
3718 | noname.344: | ||
3719 | movl r5,r1 | ||
3720 | movl r4,r2 | ||
3721 | addl2 r1,r9 | ||
3722 | bicl2 #0,r9 | ||
3723 | cmpl r9,r1 | ||
3724 | bgequ noname.345 | ||
3725 | incl r2 | ||
3726 | noname.345: | ||
3727 | addl2 r2,r8 | ||
3728 | bicl2 #0,r8 | ||
3729 | cmpl r8,r2 | ||
3730 | bgequ noname.346 | ||
3731 | incl r10 | ||
3732 | noname.346: | ||
3733 | |||
3734 | bicl3 #-65536,8(r6),r3 | ||
3735 | movzwl 10(r6),r1 | ||
3736 | bicl2 #-65536,r1 | ||
3737 | bicl3 #-65536,8(r7),r2 | ||
3738 | movzwl 10(r7),r0 | ||
3739 | bicl2 #-65536,r0 | ||
3740 | movl r3,r5 | ||
3741 | movl r1,r4 | ||
3742 | mull3 r0,r5,-104(fp) | ||
3743 | mull2 r2,r5 | ||
3744 | mull3 r2,r4,-108(fp) | ||
3745 | mull2 r0,r4 | ||
3746 | addl3 -104(fp),-108(fp),r0 | ||
3747 | bicl3 #0,r0,-104(fp) | ||
3748 | cmpl -104(fp),-108(fp) | ||
3749 | bgequ noname.347 | ||
3750 | addl2 #65536,r4 | ||
3751 | noname.347: | ||
3752 | movzwl -102(fp),r0 | ||
3753 | bicl2 #-65536,r0 | ||
3754 | addl2 r0,r4 | ||
3755 | bicl3 #-65536,-104(fp),r0 | ||
3756 | ashl #16,r0,-108(fp) | ||
3757 | addl2 -108(fp),r5 | ||
3758 | bicl2 #0,r5 | ||
3759 | cmpl r5,-108(fp) | ||
3760 | bgequ noname.348 | ||
3761 | incl r4 | ||
3762 | noname.348: | ||
3763 | movl r5,r1 | ||
3764 | movl r4,r2 | ||
3765 | addl2 r1,r9 | ||
3766 | bicl2 #0,r9 | ||
3767 | cmpl r9,r1 | ||
3768 | bgequ noname.349 | ||
3769 | incl r2 | ||
3770 | noname.349: | ||
3771 | addl2 r2,r8 | ||
3772 | bicl2 #0,r8 | ||
3773 | cmpl r8,r2 | ||
3774 | bgequ noname.350 | ||
3775 | incl r10 | ||
3776 | noname.350: | ||
3777 | |||
3778 | bicl3 #-65536,4(r6),r3 | ||
3779 | movzwl 6(r6),r1 | ||
3780 | bicl2 #-65536,r1 | ||
3781 | bicl3 #-65536,12(r7),r2 | ||
3782 | movzwl 14(r7),r0 | ||
3783 | bicl2 #-65536,r0 | ||
3784 | movl r3,r5 | ||
3785 | movl r1,r4 | ||
3786 | mull3 r0,r5,-112(fp) | ||
3787 | mull2 r2,r5 | ||
3788 | mull3 r2,r4,-116(fp) | ||
3789 | mull2 r0,r4 | ||
3790 | addl3 -112(fp),-116(fp),r0 | ||
3791 | bicl3 #0,r0,-112(fp) | ||
3792 | cmpl -112(fp),-116(fp) | ||
3793 | bgequ noname.351 | ||
3794 | addl2 #65536,r4 | ||
3795 | noname.351: | ||
3796 | movzwl -110(fp),r0 | ||
3797 | bicl2 #-65536,r0 | ||
3798 | addl2 r0,r4 | ||
3799 | bicl3 #-65536,-112(fp),r0 | ||
3800 | ashl #16,r0,-116(fp) | ||
3801 | addl2 -116(fp),r5 | ||
3802 | bicl2 #0,r5 | ||
3803 | cmpl r5,-116(fp) | ||
3804 | bgequ noname.352 | ||
3805 | incl r4 | ||
3806 | noname.352: | ||
3807 | movl r5,r1 | ||
3808 | movl r4,r2 | ||
3809 | addl2 r1,r9 | ||
3810 | bicl2 #0,r9 | ||
3811 | cmpl r9,r1 | ||
3812 | bgequ noname.353 | ||
3813 | incl r2 | ||
3814 | noname.353: | ||
3815 | addl2 r2,r8 | ||
3816 | bicl2 #0,r8 | ||
3817 | cmpl r8,r2 | ||
3818 | bgequ noname.354 | ||
3819 | incl r10 | ||
3820 | noname.354: | ||
3821 | |||
3822 | movl r9,16(r11) | ||
3823 | |||
3824 | clrl r9 | ||
3825 | |||
3826 | bicl3 #-65536,8(r6),r3 | ||
3827 | movzwl 10(r6),r1 | ||
3828 | bicl2 #-65536,r1 | ||
3829 | bicl3 #-65536,12(r7),r2 | ||
3830 | movzwl 14(r7),r0 | ||
3831 | bicl2 #-65536,r0 | ||
3832 | movl r3,r5 | ||
3833 | movl r1,r4 | ||
3834 | mull3 r0,r5,-120(fp) | ||
3835 | mull2 r2,r5 | ||
3836 | mull3 r2,r4,-124(fp) | ||
3837 | mull2 r0,r4 | ||
3838 | addl3 -120(fp),-124(fp),r0 | ||
3839 | bicl3 #0,r0,-120(fp) | ||
3840 | cmpl -120(fp),-124(fp) | ||
3841 | bgequ noname.355 | ||
3842 | addl2 #65536,r4 | ||
3843 | noname.355: | ||
3844 | movzwl -118(fp),r0 | ||
3845 | bicl2 #-65536,r0 | ||
3846 | addl2 r0,r4 | ||
3847 | bicl3 #-65536,-120(fp),r0 | ||
3848 | ashl #16,r0,-124(fp) | ||
3849 | addl2 -124(fp),r5 | ||
3850 | bicl2 #0,r5 | ||
3851 | cmpl r5,-124(fp) | ||
3852 | bgequ noname.356 | ||
3853 | incl r4 | ||
3854 | noname.356: | ||
3855 | movl r5,r1 | ||
3856 | movl r4,r2 | ||
3857 | addl2 r1,r8 | ||
3858 | bicl2 #0,r8 | ||
3859 | cmpl r8,r1 | ||
3860 | bgequ noname.357 | ||
3861 | incl r2 | ||
3862 | noname.357: | ||
3863 | addl2 r2,r10 | ||
3864 | bicl2 #0,r10 | ||
3865 | cmpl r10,r2 | ||
3866 | bgequ noname.358 | ||
3867 | incl r9 | ||
3868 | noname.358: | ||
3869 | |||
3870 | movzwl 14(r6),r2 | ||
3871 | bicl3 #-65536,8(r7),r3 | ||
3872 | movzwl 10(r7),r0 | ||
3873 | bicl2 #-65536,r0 | ||
3874 | bicl3 #-65536,12(r6),-136(fp) | ||
3875 | bicl3 #-65536,r2,-140(fp) | ||
3876 | mull3 r0,-136(fp),-128(fp) | ||
3877 | mull2 r3,-136(fp) | ||
3878 | mull3 r3,-140(fp),-132(fp) | ||
3879 | mull2 r0,-140(fp) | ||
3880 | addl3 -128(fp),-132(fp),r0 | ||
3881 | bicl3 #0,r0,-128(fp) | ||
3882 | cmpl -128(fp),-132(fp) | ||
3883 | bgequ noname.359 | ||
3884 | addl2 #65536,-140(fp) | ||
3885 | noname.359: | ||
3886 | movzwl -126(fp),r0 | ||
3887 | bicl2 #-65536,r0 | ||
3888 | addl2 r0,-140(fp) | ||
3889 | bicl3 #-65536,-128(fp),r0 | ||
3890 | ashl #16,r0,-132(fp) | ||
3891 | addl3 -132(fp),-136(fp),r0 | ||
3892 | bicl3 #0,r0,-136(fp) | ||
3893 | cmpl -136(fp),-132(fp) | ||
3894 | bgequ noname.360 | ||
3895 | incl -140(fp) | ||
3896 | noname.360: | ||
3897 | movl -136(fp),r1 | ||
3898 | movl -140(fp),r2 | ||
3899 | addl2 r1,r8 | ||
3900 | bicl2 #0,r8 | ||
3901 | cmpl r8,r1 | ||
3902 | bgequ noname.361 | ||
3903 | incl r2 | ||
3904 | noname.361: | ||
3905 | addl2 r2,r10 | ||
3906 | bicl2 #0,r10 | ||
3907 | cmpl r10,r2 | ||
3908 | bgequ noname.362 | ||
3909 | incl r9 | ||
3910 | noname.362: | ||
3911 | |||
3912 | movl r8,20(r11) | ||
3913 | |||
3914 | clrl r8 | ||
3915 | |||
3916 | movzwl 14(r6),r2 | ||
3917 | bicl3 #-65536,12(r7),r3 | ||
3918 | movzwl 14(r7),r0 | ||
3919 | bicl2 #-65536,r0 | ||
3920 | bicl3 #-65536,12(r6),-152(fp) | ||
3921 | bicl3 #-65536,r2,-156(fp) | ||
3922 | mull3 r0,-152(fp),-144(fp) | ||
3923 | mull2 r3,-152(fp) | ||
3924 | mull3 r3,-156(fp),-148(fp) | ||
3925 | mull2 r0,-156(fp) | ||
3926 | addl3 -144(fp),-148(fp),r0 | ||
3927 | bicl3 #0,r0,-144(fp) | ||
3928 | cmpl -144(fp),-148(fp) | ||
3929 | bgequ noname.363 | ||
3930 | addl2 #65536,-156(fp) | ||
3931 | noname.363: | ||
3932 | movzwl -142(fp),r0 | ||
3933 | bicl2 #-65536,r0 | ||
3934 | addl2 r0,-156(fp) | ||
3935 | bicl3 #-65536,-144(fp),r0 | ||
3936 | ashl #16,r0,-148(fp) | ||
3937 | addl3 -148(fp),-152(fp),r0 | ||
3938 | bicl3 #0,r0,-152(fp) | ||
3939 | cmpl -152(fp),-148(fp) | ||
3940 | bgequ noname.364 | ||
3941 | incl -156(fp) | ||
3942 | noname.364: | ||
3943 | movl -152(fp),r1 | ||
3944 | movl -156(fp),r2 | ||
3945 | addl2 r1,r10 | ||
3946 | bicl2 #0,r10 | ||
3947 | cmpl r10,r1 | ||
3948 | bgequ noname.365 | ||
3949 | incl r2 | ||
3950 | noname.365: | ||
3951 | addl2 r2,r9 | ||
3952 | bicl2 #0,r9 | ||
3953 | cmpl r9,r2 | ||
3954 | bgequ noname.366 | ||
3955 | incl r8 | ||
3956 | noname.366: | ||
3957 | |||
3958 | movl r10,24(r11) | ||
3959 | |||
3960 | movl r9,28(r11) | ||
3961 | |||
3962 | ret | ||
3963 | |||
3964 | |||
3965 | |||
3966 | ;r=4 ;(AP) | ||
3967 | ;a=8 ;(AP) | ||
3968 | ;b=12 ;(AP) | ||
3969 | ;n=16 ;(AP) n by value (input) | ||
3970 | |||
3971 | .psect code,nowrt | ||
3972 | |||
3973 | .entry BN_SQR_COMBA8,^m<r2,r3,r4,r5,r6,r7,r8,r9> | ||
3974 | movab -444(sp),sp | ||
3975 | |||
3976 | clrq r8 | ||
3977 | |||
3978 | clrl r7 | ||
3979 | |||
3980 | movl 8(ap),r4 | ||
3981 | movl (r4),r3 | ||
3982 | bicl3 #-65536,r3,-4(fp) | ||
3983 | extzv #16,#16,r3,r0 | ||
3984 | bicl3 #-65536,r0,r3 | ||
3985 | movl -4(fp),r0 | ||
3986 | mull3 r0,r3,-8(fp) | ||
3987 | mull3 r0,r0,-4(fp) | ||
3988 | mull2 r3,r3 | ||
3989 | bicl3 #32767,-8(fp),r0 | ||
3990 | extzv #15,#17,r0,r0 | ||
3991 | addl2 r0,r3 | ||
3992 | bicl3 #-65536,-8(fp),r0 | ||
3993 | ashl #17,r0,-8(fp) | ||
3994 | addl3 -4(fp),-8(fp),r0 | ||
3995 | bicl3 #0,r0,-4(fp) | ||
3996 | cmpl -4(fp),-8(fp) | ||
3997 | bgequ noname.369 | ||
3998 | incl r3 | ||
3999 | noname.369: | ||
4000 | movl -4(fp),r1 | ||
4001 | movl r3,r2 | ||
4002 | addl2 r1,r9 | ||
4003 | bicl2 #0,r9 | ||
4004 | cmpl r9,r1 | ||
4005 | bgequ noname.370 | ||
4006 | incl r2 | ||
4007 | noname.370: | ||
4008 | addl2 r2,r8 | ||
4009 | bicl2 #0,r8 | ||
4010 | cmpl r8,r2 | ||
4011 | bgequ noname.371 | ||
4012 | incl r7 | ||
4013 | noname.371: | ||
4014 | |||
4015 | movl r9,@4(ap) | ||
4016 | |||
4017 | clrl r9 | ||
4018 | |||
4019 | movzwl 6(r4),r2 | ||
4020 | bicl3 #-65536,(r4),r3 | ||
4021 | movzwl 2(r4),r0 | ||
4022 | bicl2 #-65536,r0 | ||
4023 | bicl3 #-65536,4(r4),-20(fp) | ||
4024 | bicl3 #-65536,r2,-24(fp) | ||
4025 | mull3 r0,-20(fp),-12(fp) | ||
4026 | mull2 r3,-20(fp) | ||
4027 | mull3 r3,-24(fp),-16(fp) | ||
4028 | mull2 r0,-24(fp) | ||
4029 | addl3 -12(fp),-16(fp),r0 | ||
4030 | bicl3 #0,r0,-12(fp) | ||
4031 | cmpl -12(fp),-16(fp) | ||
4032 | bgequ noname.372 | ||
4033 | addl2 #65536,-24(fp) | ||
4034 | noname.372: | ||
4035 | movzwl -10(fp),r0 | ||
4036 | bicl2 #-65536,r0 | ||
4037 | addl2 r0,-24(fp) | ||
4038 | bicl3 #-65536,-12(fp),r0 | ||
4039 | ashl #16,r0,-16(fp) | ||
4040 | addl3 -16(fp),-20(fp),r0 | ||
4041 | bicl3 #0,r0,-20(fp) | ||
4042 | cmpl -20(fp),-16(fp) | ||
4043 | bgequ noname.373 | ||
4044 | incl -24(fp) | ||
4045 | noname.373: | ||
4046 | movl -20(fp),r3 | ||
4047 | movl -24(fp),r2 | ||
4048 | bbc #31,r2,noname.374 | ||
4049 | incl r9 | ||
4050 | noname.374: | ||
4051 | addl2 r2,r2 | ||
4052 | bicl2 #0,r2 | ||
4053 | bbc #31,r3,noname.375 | ||
4054 | incl r2 | ||
4055 | noname.375: | ||
4056 | addl2 r3,r3 | ||
4057 | bicl2 #0,r3 | ||
4058 | addl2 r3,r8 | ||
4059 | bicl2 #0,r8 | ||
4060 | cmpl r8,r3 | ||
4061 | bgequ noname.376 | ||
4062 | incl r2 | ||
4063 | bicl3 #0,r2,r0 | ||
4064 | bneq noname.376 | ||
4065 | incl r9 | ||
4066 | noname.376: | ||
4067 | addl2 r2,r7 | ||
4068 | bicl2 #0,r7 | ||
4069 | cmpl r7,r2 | ||
4070 | bgequ noname.377 | ||
4071 | incl r9 | ||
4072 | noname.377: | ||
4073 | |||
4074 | movl 4(ap),r0 | ||
4075 | movl r8,4(r0) | ||
4076 | |||
4077 | clrl r8 | ||
4078 | |||
4079 | movl 8(ap),r4 | ||
4080 | movl 4(r4),r3 | ||
4081 | bicl3 #-65536,r3,-28(fp) | ||
4082 | extzv #16,#16,r3,r0 | ||
4083 | bicl3 #-65536,r0,r3 | ||
4084 | movl -28(fp),r0 | ||
4085 | mull3 r0,r3,-32(fp) | ||
4086 | mull3 r0,r0,-28(fp) | ||
4087 | mull2 r3,r3 | ||
4088 | bicl3 #32767,-32(fp),r0 | ||
4089 | extzv #15,#17,r0,r0 | ||
4090 | addl2 r0,r3 | ||
4091 | bicl3 #-65536,-32(fp),r0 | ||
4092 | ashl #17,r0,-32(fp) | ||
4093 | addl3 -28(fp),-32(fp),r0 | ||
4094 | bicl3 #0,r0,-28(fp) | ||
4095 | cmpl -28(fp),-32(fp) | ||
4096 | bgequ noname.378 | ||
4097 | incl r3 | ||
4098 | noname.378: | ||
4099 | movl -28(fp),r1 | ||
4100 | movl r3,r2 | ||
4101 | addl2 r1,r7 | ||
4102 | bicl2 #0,r7 | ||
4103 | cmpl r7,r1 | ||
4104 | bgequ noname.379 | ||
4105 | incl r2 | ||
4106 | noname.379: | ||
4107 | addl2 r2,r9 | ||
4108 | bicl2 #0,r9 | ||
4109 | cmpl r9,r2 | ||
4110 | bgequ noname.380 | ||
4111 | incl r8 | ||
4112 | noname.380: | ||
4113 | |||
4114 | movzwl 10(r4),r2 | ||
4115 | bicl3 #-65536,(r4),r3 | ||
4116 | movzwl 2(r4),r0 | ||
4117 | bicl2 #-65536,r0 | ||
4118 | bicl3 #-65536,8(r4),-44(fp) | ||
4119 | bicl3 #-65536,r2,-48(fp) | ||
4120 | mull3 r0,-44(fp),-36(fp) | ||
4121 | mull2 r3,-44(fp) | ||
4122 | mull3 r3,-48(fp),-40(fp) | ||
4123 | mull2 r0,-48(fp) | ||
4124 | addl3 -36(fp),-40(fp),r0 | ||
4125 | bicl3 #0,r0,-36(fp) | ||
4126 | cmpl -36(fp),-40(fp) | ||
4127 | bgequ noname.381 | ||
4128 | addl2 #65536,-48(fp) | ||
4129 | noname.381: | ||
4130 | movzwl -34(fp),r0 | ||
4131 | bicl2 #-65536,r0 | ||
4132 | addl2 r0,-48(fp) | ||
4133 | bicl3 #-65536,-36(fp),r0 | ||
4134 | ashl #16,r0,-40(fp) | ||
4135 | addl3 -40(fp),-44(fp),r0 | ||
4136 | bicl3 #0,r0,-44(fp) | ||
4137 | cmpl -44(fp),-40(fp) | ||
4138 | bgequ noname.382 | ||
4139 | incl -48(fp) | ||
4140 | noname.382: | ||
4141 | movl -44(fp),r3 | ||
4142 | movl -48(fp),r2 | ||
4143 | bbc #31,r2,noname.383 | ||
4144 | incl r8 | ||
4145 | noname.383: | ||
4146 | addl2 r2,r2 | ||
4147 | bicl2 #0,r2 | ||
4148 | bbc #31,r3,noname.384 | ||
4149 | incl r2 | ||
4150 | noname.384: | ||
4151 | addl2 r3,r3 | ||
4152 | bicl2 #0,r3 | ||
4153 | addl2 r3,r7 | ||
4154 | bicl2 #0,r7 | ||
4155 | cmpl r7,r3 | ||
4156 | bgequ noname.385 | ||
4157 | incl r2 | ||
4158 | bicl3 #0,r2,r0 | ||
4159 | bneq noname.385 | ||
4160 | incl r8 | ||
4161 | noname.385: | ||
4162 | addl2 r2,r9 | ||
4163 | bicl2 #0,r9 | ||
4164 | cmpl r9,r2 | ||
4165 | bgequ noname.386 | ||
4166 | incl r8 | ||
4167 | noname.386: | ||
4168 | |||
4169 | movl 4(ap),r0 | ||
4170 | movl r7,8(r0) | ||
4171 | |||
4172 | clrl r7 | ||
4173 | |||
4174 | movl 8(ap),r0 | ||
4175 | movzwl 14(r0),r2 | ||
4176 | bicl3 #-65536,(r0),r3 | ||
4177 | movzwl 2(r0),r1 | ||
4178 | bicl2 #-65536,r1 | ||
4179 | bicl3 #-65536,12(r0),-60(fp) | ||
4180 | bicl3 #-65536,r2,-64(fp) | ||
4181 | mull3 r1,-60(fp),-52(fp) | ||
4182 | mull2 r3,-60(fp) | ||
4183 | mull3 r3,-64(fp),-56(fp) | ||
4184 | mull2 r1,-64(fp) | ||
4185 | addl3 -52(fp),-56(fp),r0 | ||
4186 | bicl3 #0,r0,-52(fp) | ||
4187 | cmpl -52(fp),-56(fp) | ||
4188 | bgequ noname.387 | ||
4189 | addl2 #65536,-64(fp) | ||
4190 | noname.387: | ||
4191 | movzwl -50(fp),r0 | ||
4192 | bicl2 #-65536,r0 | ||
4193 | addl2 r0,-64(fp) | ||
4194 | bicl3 #-65536,-52(fp),r0 | ||
4195 | ashl #16,r0,-56(fp) | ||
4196 | addl3 -56(fp),-60(fp),r0 | ||
4197 | bicl3 #0,r0,-60(fp) | ||
4198 | cmpl -60(fp),-56(fp) | ||
4199 | bgequ noname.388 | ||
4200 | incl -64(fp) | ||
4201 | noname.388: | ||
4202 | movl -60(fp),r3 | ||
4203 | movl -64(fp),r2 | ||
4204 | bbc #31,r2,noname.389 | ||
4205 | incl r7 | ||
4206 | noname.389: | ||
4207 | addl2 r2,r2 | ||
4208 | bicl2 #0,r2 | ||
4209 | bbc #31,r3,noname.390 | ||
4210 | incl r2 | ||
4211 | noname.390: | ||
4212 | addl2 r3,r3 | ||
4213 | bicl2 #0,r3 | ||
4214 | addl2 r3,r9 | ||
4215 | bicl2 #0,r9 | ||
4216 | cmpl r9,r3 | ||
4217 | bgequ noname.391 | ||
4218 | incl r2 | ||
4219 | bicl3 #0,r2,r0 | ||
4220 | bneq noname.391 | ||
4221 | incl r7 | ||
4222 | noname.391: | ||
4223 | addl2 r2,r8 | ||
4224 | bicl2 #0,r8 | ||
4225 | cmpl r8,r2 | ||
4226 | bgequ noname.392 | ||
4227 | incl r7 | ||
4228 | noname.392: | ||
4229 | |||
4230 | movl 8(ap),r0 | ||
4231 | movzwl 10(r0),r2 | ||
4232 | bicl3 #-65536,4(r0),r3 | ||
4233 | movzwl 6(r0),r1 | ||
4234 | bicl2 #-65536,r1 | ||
4235 | bicl3 #-65536,8(r0),-76(fp) | ||
4236 | bicl3 #-65536,r2,-80(fp) | ||
4237 | mull3 r1,-76(fp),-68(fp) | ||
4238 | mull2 r3,-76(fp) | ||
4239 | mull3 r3,-80(fp),-72(fp) | ||
4240 | mull2 r1,-80(fp) | ||
4241 | addl3 -68(fp),-72(fp),r0 | ||
4242 | bicl3 #0,r0,-68(fp) | ||
4243 | cmpl -68(fp),-72(fp) | ||
4244 | bgequ noname.393 | ||
4245 | addl2 #65536,-80(fp) | ||
4246 | noname.393: | ||
4247 | movzwl -66(fp),r0 | ||
4248 | bicl2 #-65536,r0 | ||
4249 | addl2 r0,-80(fp) | ||
4250 | bicl3 #-65536,-68(fp),r0 | ||
4251 | ashl #16,r0,-72(fp) | ||
4252 | addl3 -72(fp),-76(fp),r0 | ||
4253 | bicl3 #0,r0,-76(fp) | ||
4254 | cmpl -76(fp),-72(fp) | ||
4255 | bgequ noname.394 | ||
4256 | incl -80(fp) | ||
4257 | noname.394: | ||
4258 | movl -76(fp),r3 | ||
4259 | movl -80(fp),r2 | ||
4260 | bbc #31,r2,noname.395 | ||
4261 | incl r7 | ||
4262 | noname.395: | ||
4263 | addl2 r2,r2 | ||
4264 | bicl2 #0,r2 | ||
4265 | bbc #31,r3,noname.396 | ||
4266 | incl r2 | ||
4267 | noname.396: | ||
4268 | addl2 r3,r3 | ||
4269 | bicl2 #0,r3 | ||
4270 | addl2 r3,r9 | ||
4271 | bicl2 #0,r9 | ||
4272 | cmpl r9,r3 | ||
4273 | bgequ noname.397 | ||
4274 | incl r2 | ||
4275 | bicl3 #0,r2,r0 | ||
4276 | bneq noname.397 | ||
4277 | incl r7 | ||
4278 | noname.397: | ||
4279 | addl2 r2,r8 | ||
4280 | bicl2 #0,r8 | ||
4281 | cmpl r8,r2 | ||
4282 | bgequ noname.398 | ||
4283 | incl r7 | ||
4284 | noname.398: | ||
4285 | |||
4286 | movl 4(ap),r0 | ||
4287 | movl r9,12(r0) | ||
4288 | |||
4289 | clrl r9 | ||
4290 | |||
4291 | movl 8(ap),r2 | ||
4292 | movl 8(r2),r4 | ||
4293 | bicl3 #-65536,r4,-84(fp) | ||
4294 | extzv #16,#16,r4,r0 | ||
4295 | bicl3 #-65536,r0,r4 | ||
4296 | movl -84(fp),r0 | ||
4297 | mull3 r0,r4,-88(fp) | ||
4298 | mull3 r0,r0,-84(fp) | ||
4299 | mull2 r4,r4 | ||
4300 | bicl3 #32767,-88(fp),r0 | ||
4301 | extzv #15,#17,r0,r0 | ||
4302 | addl2 r0,r4 | ||
4303 | bicl3 #-65536,-88(fp),r0 | ||
4304 | ashl #17,r0,-88(fp) | ||
4305 | addl3 -84(fp),-88(fp),r0 | ||
4306 | bicl3 #0,r0,-84(fp) | ||
4307 | cmpl -84(fp),-88(fp) | ||
4308 | bgequ noname.399 | ||
4309 | incl r4 | ||
4310 | noname.399: | ||
4311 | movl -84(fp),r1 | ||
4312 | movl r4,r3 | ||
4313 | addl2 r1,r8 | ||
4314 | bicl2 #0,r8 | ||
4315 | cmpl r8,r1 | ||
4316 | bgequ noname.400 | ||
4317 | incl r3 | ||
4318 | noname.400: | ||
4319 | addl2 r3,r7 | ||
4320 | bicl2 #0,r7 | ||
4321 | cmpl r7,r3 | ||
4322 | bgequ noname.401 | ||
4323 | incl r9 | ||
4324 | noname.401: | ||
4325 | |||
4326 | movzwl 14(r2),r3 | ||
4327 | bicl3 #-65536,4(r2),r1 | ||
4328 | movzwl 6(r2),r0 | ||
4329 | bicl2 #-65536,r0 | ||
4330 | bicl3 #-65536,12(r2),-100(fp) | ||
4331 | bicl3 #-65536,r3,-104(fp) | ||
4332 | mull3 r0,-100(fp),-92(fp) | ||
4333 | mull2 r1,-100(fp) | ||
4334 | mull3 r1,-104(fp),-96(fp) | ||
4335 | mull2 r0,-104(fp) | ||
4336 | addl3 -92(fp),-96(fp),r0 | ||
4337 | bicl3 #0,r0,-92(fp) | ||
4338 | cmpl -92(fp),-96(fp) | ||
4339 | bgequ noname.402 | ||
4340 | addl2 #65536,-104(fp) | ||
4341 | noname.402: | ||
4342 | movzwl -90(fp),r0 | ||
4343 | bicl2 #-65536,r0 | ||
4344 | addl2 r0,-104(fp) | ||
4345 | bicl3 #-65536,-92(fp),r0 | ||
4346 | ashl #16,r0,-96(fp) | ||
4347 | addl3 -96(fp),-100(fp),r0 | ||
4348 | bicl3 #0,r0,-100(fp) | ||
4349 | cmpl -100(fp),-96(fp) | ||
4350 | bgequ noname.403 | ||
4351 | incl -104(fp) | ||
4352 | noname.403: | ||
4353 | movl -100(fp),r3 | ||
4354 | movl -104(fp),r2 | ||
4355 | bbc #31,r2,noname.404 | ||
4356 | incl r9 | ||
4357 | noname.404: | ||
4358 | addl2 r2,r2 | ||
4359 | bicl2 #0,r2 | ||
4360 | bbc #31,r3,noname.405 | ||
4361 | incl r2 | ||
4362 | noname.405: | ||
4363 | addl2 r3,r3 | ||
4364 | bicl2 #0,r3 | ||
4365 | addl2 r3,r8 | ||
4366 | bicl2 #0,r8 | ||
4367 | cmpl r8,r3 | ||
4368 | bgequ noname.406 | ||
4369 | incl r2 | ||
4370 | bicl3 #0,r2,r0 | ||
4371 | bneq noname.406 | ||
4372 | incl r9 | ||
4373 | noname.406: | ||
4374 | addl2 r2,r7 | ||
4375 | bicl2 #0,r7 | ||
4376 | cmpl r7,r2 | ||
4377 | bgequ noname.407 | ||
4378 | incl r9 | ||
4379 | noname.407: | ||
4380 | |||
4381 | movl 8(ap),r0 | ||
4382 | movzwl 18(r0),r2 | ||
4383 | bicl3 #-65536,(r0),r3 | ||
4384 | movzwl 2(r0),r1 | ||
4385 | bicl2 #-65536,r1 | ||
4386 | bicl3 #-65536,16(r0),-116(fp) | ||
4387 | bicl3 #-65536,r2,-120(fp) | ||
4388 | mull3 r1,-116(fp),-108(fp) | ||
4389 | mull2 r3,-116(fp) | ||
4390 | mull3 r3,-120(fp),-112(fp) | ||
4391 | mull2 r1,-120(fp) | ||
4392 | addl3 -108(fp),-112(fp),r0 | ||
4393 | bicl3 #0,r0,-108(fp) | ||
4394 | cmpl -108(fp),-112(fp) | ||
4395 | bgequ noname.408 | ||
4396 | addl2 #65536,-120(fp) | ||
4397 | noname.408: | ||
4398 | movzwl -106(fp),r0 | ||
4399 | bicl2 #-65536,r0 | ||
4400 | addl2 r0,-120(fp) | ||
4401 | bicl3 #-65536,-108(fp),r0 | ||
4402 | ashl #16,r0,-112(fp) | ||
4403 | addl3 -112(fp),-116(fp),r0 | ||
4404 | bicl3 #0,r0,-116(fp) | ||
4405 | cmpl -116(fp),-112(fp) | ||
4406 | bgequ noname.409 | ||
4407 | incl -120(fp) | ||
4408 | noname.409: | ||
4409 | movl -116(fp),r3 | ||
4410 | movl -120(fp),r2 | ||
4411 | bbc #31,r2,noname.410 | ||
4412 | incl r9 | ||
4413 | noname.410: | ||
4414 | addl2 r2,r2 | ||
4415 | bicl2 #0,r2 | ||
4416 | bbc #31,r3,noname.411 | ||
4417 | incl r2 | ||
4418 | noname.411: | ||
4419 | addl2 r3,r3 | ||
4420 | bicl2 #0,r3 | ||
4421 | addl2 r3,r8 | ||
4422 | bicl2 #0,r8 | ||
4423 | cmpl r8,r3 | ||
4424 | bgequ noname.412 | ||
4425 | incl r2 | ||
4426 | bicl3 #0,r2,r0 | ||
4427 | bneq noname.412 | ||
4428 | incl r9 | ||
4429 | noname.412: | ||
4430 | addl2 r2,r7 | ||
4431 | bicl2 #0,r7 | ||
4432 | cmpl r7,r2 | ||
4433 | bgequ noname.413 | ||
4434 | incl r9 | ||
4435 | noname.413: | ||
4436 | |||
4437 | movl 4(ap),r0 | ||
4438 | movl r8,16(r0) | ||
4439 | |||
4440 | clrl r8 | ||
4441 | |||
4442 | movl 8(ap),r0 | ||
4443 | movzwl 22(r0),r2 | ||
4444 | bicl3 #-65536,(r0),r3 | ||
4445 | movzwl 2(r0),r1 | ||
4446 | bicl2 #-65536,r1 | ||
4447 | bicl3 #-65536,20(r0),-132(fp) | ||
4448 | bicl3 #-65536,r2,-136(fp) | ||
4449 | mull3 r1,-132(fp),-124(fp) | ||
4450 | mull2 r3,-132(fp) | ||
4451 | mull3 r3,-136(fp),-128(fp) | ||
4452 | mull2 r1,-136(fp) | ||
4453 | addl3 -124(fp),-128(fp),r0 | ||
4454 | bicl3 #0,r0,-124(fp) | ||
4455 | cmpl -124(fp),-128(fp) | ||
4456 | bgequ noname.414 | ||
4457 | addl2 #65536,-136(fp) | ||
4458 | noname.414: | ||
4459 | movzwl -122(fp),r0 | ||
4460 | bicl2 #-65536,r0 | ||
4461 | addl2 r0,-136(fp) | ||
4462 | bicl3 #-65536,-124(fp),r0 | ||
4463 | ashl #16,r0,-128(fp) | ||
4464 | addl3 -128(fp),-132(fp),r0 | ||
4465 | bicl3 #0,r0,-132(fp) | ||
4466 | cmpl -132(fp),-128(fp) | ||
4467 | bgequ noname.415 | ||
4468 | incl -136(fp) | ||
4469 | noname.415: | ||
4470 | movl -132(fp),r3 | ||
4471 | movl -136(fp),r2 | ||
4472 | bbc #31,r2,noname.416 | ||
4473 | incl r8 | ||
4474 | noname.416: | ||
4475 | addl2 r2,r2 | ||
4476 | bicl2 #0,r2 | ||
4477 | bbc #31,r3,noname.417 | ||
4478 | incl r2 | ||
4479 | noname.417: | ||
4480 | addl2 r3,r3 | ||
4481 | bicl2 #0,r3 | ||
4482 | addl2 r3,r7 | ||
4483 | bicl2 #0,r7 | ||
4484 | cmpl r7,r3 | ||
4485 | bgequ noname.418 | ||
4486 | incl r2 | ||
4487 | bicl3 #0,r2,r0 | ||
4488 | bneq noname.418 | ||
4489 | incl r8 | ||
4490 | noname.418: | ||
4491 | addl2 r2,r9 | ||
4492 | bicl2 #0,r9 | ||
4493 | cmpl r9,r2 | ||
4494 | bgequ noname.419 | ||
4495 | incl r8 | ||
4496 | noname.419: | ||
4497 | |||
4498 | movl 8(ap),r0 | ||
4499 | movzwl 18(r0),r2 | ||
4500 | bicl3 #-65536,4(r0),r3 | ||
4501 | movzwl 6(r0),r1 | ||
4502 | bicl2 #-65536,r1 | ||
4503 | bicl3 #-65536,16(r0),-148(fp) | ||
4504 | bicl3 #-65536,r2,-152(fp) | ||
4505 | mull3 r1,-148(fp),-140(fp) | ||
4506 | mull2 r3,-148(fp) | ||
4507 | mull3 r3,-152(fp),-144(fp) | ||
4508 | mull2 r1,-152(fp) | ||
4509 | addl3 -140(fp),-144(fp),r0 | ||
4510 | bicl3 #0,r0,-140(fp) | ||
4511 | cmpl -140(fp),-144(fp) | ||
4512 | bgequ noname.420 | ||
4513 | addl2 #65536,-152(fp) | ||
4514 | noname.420: | ||
4515 | movzwl -138(fp),r0 | ||
4516 | bicl2 #-65536,r0 | ||
4517 | addl2 r0,-152(fp) | ||
4518 | bicl3 #-65536,-140(fp),r0 | ||
4519 | ashl #16,r0,-144(fp) | ||
4520 | addl3 -144(fp),-148(fp),r0 | ||
4521 | bicl3 #0,r0,-148(fp) | ||
4522 | cmpl -148(fp),-144(fp) | ||
4523 | bgequ noname.421 | ||
4524 | incl -152(fp) | ||
4525 | noname.421: | ||
4526 | movl -148(fp),r3 | ||
4527 | movl -152(fp),r2 | ||
4528 | bbc #31,r2,noname.422 | ||
4529 | incl r8 | ||
4530 | noname.422: | ||
4531 | addl2 r2,r2 | ||
4532 | bicl2 #0,r2 | ||
4533 | bbc #31,r3,noname.423 | ||
4534 | incl r2 | ||
4535 | noname.423: | ||
4536 | addl2 r3,r3 | ||
4537 | bicl2 #0,r3 | ||
4538 | addl2 r3,r7 | ||
4539 | bicl2 #0,r7 | ||
4540 | cmpl r7,r3 | ||
4541 | bgequ noname.424 | ||
4542 | incl r2 | ||
4543 | bicl3 #0,r2,r0 | ||
4544 | bneq noname.424 | ||
4545 | incl r8 | ||
4546 | noname.424: | ||
4547 | addl2 r2,r9 | ||
4548 | bicl2 #0,r9 | ||
4549 | cmpl r9,r2 | ||
4550 | bgequ noname.425 | ||
4551 | incl r8 | ||
4552 | noname.425: | ||
4553 | |||
4554 | movl 8(ap),r0 | ||
4555 | movzwl 14(r0),r2 | ||
4556 | bicl3 #-65536,8(r0),r3 | ||
4557 | movzwl 10(r0),r1 | ||
4558 | bicl2 #-65536,r1 | ||
4559 | bicl3 #-65536,12(r0),-164(fp) | ||
4560 | bicl3 #-65536,r2,-168(fp) | ||
4561 | mull3 r1,-164(fp),-156(fp) | ||
4562 | mull2 r3,-164(fp) | ||
4563 | mull3 r3,-168(fp),-160(fp) | ||
4564 | mull2 r1,-168(fp) | ||
4565 | addl3 -156(fp),-160(fp),r0 | ||
4566 | bicl3 #0,r0,-156(fp) | ||
4567 | cmpl -156(fp),-160(fp) | ||
4568 | bgequ noname.426 | ||
4569 | addl2 #65536,-168(fp) | ||
4570 | noname.426: | ||
4571 | movzwl -154(fp),r0 | ||
4572 | bicl2 #-65536,r0 | ||
4573 | addl2 r0,-168(fp) | ||
4574 | bicl3 #-65536,-156(fp),r0 | ||
4575 | ashl #16,r0,-160(fp) | ||
4576 | addl3 -160(fp),-164(fp),r0 | ||
4577 | bicl3 #0,r0,-164(fp) | ||
4578 | cmpl -164(fp),-160(fp) | ||
4579 | bgequ noname.427 | ||
4580 | incl -168(fp) | ||
4581 | noname.427: | ||
4582 | movl -164(fp),r3 | ||
4583 | movl -168(fp),r2 | ||
4584 | bbc #31,r2,noname.428 | ||
4585 | incl r8 | ||
4586 | noname.428: | ||
4587 | addl2 r2,r2 | ||
4588 | bicl2 #0,r2 | ||
4589 | bbc #31,r3,noname.429 | ||
4590 | incl r2 | ||
4591 | noname.429: | ||
4592 | addl2 r3,r3 | ||
4593 | bicl2 #0,r3 | ||
4594 | addl2 r3,r7 | ||
4595 | bicl2 #0,r7 | ||
4596 | cmpl r7,r3 | ||
4597 | bgequ noname.430 | ||
4598 | incl r2 | ||
4599 | bicl3 #0,r2,r0 | ||
4600 | bneq noname.430 | ||
4601 | incl r8 | ||
4602 | noname.430: | ||
4603 | addl2 r2,r9 | ||
4604 | bicl2 #0,r9 | ||
4605 | cmpl r9,r2 | ||
4606 | bgequ noname.431 | ||
4607 | incl r8 | ||
4608 | noname.431: | ||
4609 | |||
4610 | movl 4(ap),r0 | ||
4611 | movl r7,20(r0) | ||
4612 | |||
4613 | clrl r7 | ||
4614 | |||
4615 | movl 8(ap),r2 | ||
4616 | movl 12(r2),r4 | ||
4617 | bicl3 #-65536,r4,-172(fp) | ||
4618 | extzv #16,#16,r4,r0 | ||
4619 | bicl3 #-65536,r0,r4 | ||
4620 | movl -172(fp),r0 | ||
4621 | mull3 r0,r4,-176(fp) | ||
4622 | mull3 r0,r0,-172(fp) | ||
4623 | mull2 r4,r4 | ||
4624 | bicl3 #32767,-176(fp),r0 | ||
4625 | extzv #15,#17,r0,r0 | ||
4626 | addl2 r0,r4 | ||
4627 | bicl3 #-65536,-176(fp),r0 | ||
4628 | ashl #17,r0,-176(fp) | ||
4629 | addl3 -172(fp),-176(fp),r0 | ||
4630 | bicl3 #0,r0,-172(fp) | ||
4631 | cmpl -172(fp),-176(fp) | ||
4632 | bgequ noname.432 | ||
4633 | incl r4 | ||
4634 | noname.432: | ||
4635 | movl -172(fp),r1 | ||
4636 | movl r4,r3 | ||
4637 | addl2 r1,r9 | ||
4638 | bicl2 #0,r9 | ||
4639 | cmpl r9,r1 | ||
4640 | bgequ noname.433 | ||
4641 | incl r3 | ||
4642 | noname.433: | ||
4643 | addl2 r3,r8 | ||
4644 | bicl2 #0,r8 | ||
4645 | cmpl r8,r3 | ||
4646 | bgequ noname.434 | ||
4647 | incl r7 | ||
4648 | noname.434: | ||
4649 | |||
4650 | movzwl 18(r2),r3 | ||
4651 | bicl3 #-65536,8(r2),r1 | ||
4652 | movzwl 10(r2),r0 | ||
4653 | bicl2 #-65536,r0 | ||
4654 | bicl3 #-65536,16(r2),-188(fp) | ||
4655 | bicl3 #-65536,r3,-192(fp) | ||
4656 | mull3 r0,-188(fp),-180(fp) | ||
4657 | mull2 r1,-188(fp) | ||
4658 | mull3 r1,-192(fp),-184(fp) | ||
4659 | mull2 r0,-192(fp) | ||
4660 | addl3 -180(fp),-184(fp),r0 | ||
4661 | bicl3 #0,r0,-180(fp) | ||
4662 | cmpl -180(fp),-184(fp) | ||
4663 | bgequ noname.435 | ||
4664 | addl2 #65536,-192(fp) | ||
4665 | noname.435: | ||
4666 | movzwl -178(fp),r0 | ||
4667 | bicl2 #-65536,r0 | ||
4668 | addl2 r0,-192(fp) | ||
4669 | bicl3 #-65536,-180(fp),r0 | ||
4670 | ashl #16,r0,-184(fp) | ||
4671 | addl3 -184(fp),-188(fp),r0 | ||
4672 | bicl3 #0,r0,-188(fp) | ||
4673 | cmpl -188(fp),-184(fp) | ||
4674 | bgequ noname.436 | ||
4675 | incl -192(fp) | ||
4676 | noname.436: | ||
4677 | movl -188(fp),r3 | ||
4678 | movl -192(fp),r2 | ||
4679 | bbc #31,r2,noname.437 | ||
4680 | incl r7 | ||
4681 | noname.437: | ||
4682 | addl2 r2,r2 | ||
4683 | bicl2 #0,r2 | ||
4684 | bbc #31,r3,noname.438 | ||
4685 | incl r2 | ||
4686 | noname.438: | ||
4687 | addl2 r3,r3 | ||
4688 | bicl2 #0,r3 | ||
4689 | addl2 r3,r9 | ||
4690 | bicl2 #0,r9 | ||
4691 | cmpl r9,r3 | ||
4692 | bgequ noname.439 | ||
4693 | incl r2 | ||
4694 | bicl3 #0,r2,r0 | ||
4695 | bneq noname.439 | ||
4696 | incl r7 | ||
4697 | noname.439: | ||
4698 | addl2 r2,r8 | ||
4699 | bicl2 #0,r8 | ||
4700 | cmpl r8,r2 | ||
4701 | bgequ noname.440 | ||
4702 | incl r7 | ||
4703 | noname.440: | ||
4704 | |||
4705 | movl 8(ap),r0 | ||
4706 | movzwl 22(r0),r2 | ||
4707 | bicl3 #-65536,4(r0),r3 | ||
4708 | movzwl 6(r0),r1 | ||
4709 | bicl2 #-65536,r1 | ||
4710 | bicl3 #-65536,20(r0),-204(fp) | ||
4711 | bicl3 #-65536,r2,-208(fp) | ||
4712 | mull3 r1,-204(fp),-196(fp) | ||
4713 | mull2 r3,-204(fp) | ||
4714 | mull3 r3,-208(fp),-200(fp) | ||
4715 | mull2 r1,-208(fp) | ||
4716 | addl3 -196(fp),-200(fp),r0 | ||
4717 | bicl3 #0,r0,-196(fp) | ||
4718 | cmpl -196(fp),-200(fp) | ||
4719 | bgequ noname.441 | ||
4720 | addl2 #65536,-208(fp) | ||
4721 | noname.441: | ||
4722 | movzwl -194(fp),r0 | ||
4723 | bicl2 #-65536,r0 | ||
4724 | addl2 r0,-208(fp) | ||
4725 | bicl3 #-65536,-196(fp),r0 | ||
4726 | ashl #16,r0,-200(fp) | ||
4727 | addl3 -200(fp),-204(fp),r0 | ||
4728 | bicl3 #0,r0,-204(fp) | ||
4729 | cmpl -204(fp),-200(fp) | ||
4730 | bgequ noname.442 | ||
4731 | incl -208(fp) | ||
4732 | noname.442: | ||
4733 | movl -204(fp),r3 | ||
4734 | movl -208(fp),r2 | ||
4735 | bbc #31,r2,noname.443 | ||
4736 | incl r7 | ||
4737 | noname.443: | ||
4738 | addl2 r2,r2 | ||
4739 | bicl2 #0,r2 | ||
4740 | bbc #31,r3,noname.444 | ||
4741 | incl r2 | ||
4742 | noname.444: | ||
4743 | addl2 r3,r3 | ||
4744 | bicl2 #0,r3 | ||
4745 | addl2 r3,r9 | ||
4746 | bicl2 #0,r9 | ||
4747 | cmpl r9,r3 | ||
4748 | bgequ noname.445 | ||
4749 | incl r2 | ||
4750 | bicl3 #0,r2,r0 | ||
4751 | bneq noname.445 | ||
4752 | incl r7 | ||
4753 | noname.445: | ||
4754 | addl2 r2,r8 | ||
4755 | bicl2 #0,r8 | ||
4756 | cmpl r8,r2 | ||
4757 | bgequ noname.446 | ||
4758 | incl r7 | ||
4759 | noname.446: | ||
4760 | |||
4761 | movl 8(ap),r0 | ||
4762 | movzwl 26(r0),r2 | ||
4763 | bicl3 #-65536,(r0),r3 | ||
4764 | movzwl 2(r0),r1 | ||
4765 | bicl2 #-65536,r1 | ||
4766 | bicl3 #-65536,24(r0),-220(fp) | ||
4767 | bicl3 #-65536,r2,-224(fp) | ||
4768 | mull3 r1,-220(fp),-212(fp) | ||
4769 | mull2 r3,-220(fp) | ||
4770 | mull3 r3,-224(fp),-216(fp) | ||
4771 | mull2 r1,-224(fp) | ||
4772 | addl3 -212(fp),-216(fp),r0 | ||
4773 | bicl3 #0,r0,-212(fp) | ||
4774 | cmpl -212(fp),-216(fp) | ||
4775 | bgequ noname.447 | ||
4776 | addl2 #65536,-224(fp) | ||
4777 | noname.447: | ||
4778 | movzwl -210(fp),r0 | ||
4779 | bicl2 #-65536,r0 | ||
4780 | addl2 r0,-224(fp) | ||
4781 | bicl3 #-65536,-212(fp),r0 | ||
4782 | ashl #16,r0,-216(fp) | ||
4783 | addl3 -216(fp),-220(fp),r0 | ||
4784 | bicl3 #0,r0,-220(fp) | ||
4785 | cmpl -220(fp),-216(fp) | ||
4786 | bgequ noname.448 | ||
4787 | incl -224(fp) | ||
4788 | noname.448: | ||
4789 | movl -220(fp),r3 | ||
4790 | movl -224(fp),r2 | ||
4791 | bbc #31,r2,noname.449 | ||
4792 | incl r7 | ||
4793 | noname.449: | ||
4794 | addl2 r2,r2 | ||
4795 | bicl2 #0,r2 | ||
4796 | bbc #31,r3,noname.450 | ||
4797 | incl r2 | ||
4798 | noname.450: | ||
4799 | addl2 r3,r3 | ||
4800 | bicl2 #0,r3 | ||
4801 | addl2 r3,r9 | ||
4802 | bicl2 #0,r9 | ||
4803 | cmpl r9,r3 | ||
4804 | bgequ noname.451 | ||
4805 | incl r2 | ||
4806 | bicl3 #0,r2,r0 | ||
4807 | bneq noname.451 | ||
4808 | incl r7 | ||
4809 | noname.451: | ||
4810 | addl2 r2,r8 | ||
4811 | bicl2 #0,r8 | ||
4812 | cmpl r8,r2 | ||
4813 | bgequ noname.452 | ||
4814 | incl r7 | ||
4815 | noname.452: | ||
4816 | |||
4817 | movl 4(ap),r0 | ||
4818 | movl r9,24(r0) | ||
4819 | |||
4820 | clrl r9 | ||
4821 | |||
4822 | movl 8(ap),r0 | ||
4823 | movzwl 30(r0),r2 | ||
4824 | bicl3 #-65536,(r0),r3 | ||
4825 | movzwl 2(r0),r1 | ||
4826 | bicl2 #-65536,r1 | ||
4827 | bicl3 #-65536,28(r0),-236(fp) | ||
4828 | bicl3 #-65536,r2,-240(fp) | ||
4829 | mull3 r1,-236(fp),-228(fp) | ||
4830 | mull2 r3,-236(fp) | ||
4831 | mull3 r3,-240(fp),-232(fp) | ||
4832 | mull2 r1,-240(fp) | ||
4833 | addl3 -228(fp),-232(fp),r0 | ||
4834 | bicl3 #0,r0,-228(fp) | ||
4835 | cmpl -228(fp),-232(fp) | ||
4836 | bgequ noname.453 | ||
4837 | addl2 #65536,-240(fp) | ||
4838 | noname.453: | ||
4839 | movzwl -226(fp),r0 | ||
4840 | bicl2 #-65536,r0 | ||
4841 | addl2 r0,-240(fp) | ||
4842 | bicl3 #-65536,-228(fp),r0 | ||
4843 | ashl #16,r0,-232(fp) | ||
4844 | addl3 -232(fp),-236(fp),r0 | ||
4845 | bicl3 #0,r0,-236(fp) | ||
4846 | cmpl -236(fp),-232(fp) | ||
4847 | bgequ noname.454 | ||
4848 | incl -240(fp) | ||
4849 | noname.454: | ||
4850 | movl -236(fp),r3 | ||
4851 | movl -240(fp),r2 | ||
4852 | bbc #31,r2,noname.455 | ||
4853 | incl r9 | ||
4854 | noname.455: | ||
4855 | addl2 r2,r2 | ||
4856 | bicl2 #0,r2 | ||
4857 | bbc #31,r3,noname.456 | ||
4858 | incl r2 | ||
4859 | noname.456: | ||
4860 | addl2 r3,r3 | ||
4861 | bicl2 #0,r3 | ||
4862 | addl2 r3,r8 | ||
4863 | bicl2 #0,r8 | ||
4864 | cmpl r8,r3 | ||
4865 | bgequ noname.457 | ||
4866 | incl r2 | ||
4867 | bicl3 #0,r2,r0 | ||
4868 | bneq noname.457 | ||
4869 | incl r9 | ||
4870 | noname.457: | ||
4871 | addl2 r2,r7 | ||
4872 | bicl2 #0,r7 | ||
4873 | cmpl r7,r2 | ||
4874 | bgequ noname.458 | ||
4875 | incl r9 | ||
4876 | noname.458: | ||
4877 | |||
4878 | movl 8(ap),r0 | ||
4879 | movzwl 26(r0),r2 | ||
4880 | bicl3 #-65536,4(r0),r3 | ||
4881 | movzwl 6(r0),r1 | ||
4882 | bicl2 #-65536,r1 | ||
4883 | bicl3 #-65536,24(r0),-252(fp) | ||
4884 | bicl3 #-65536,r2,-256(fp) | ||
4885 | mull3 r1,-252(fp),-244(fp) | ||
4886 | mull2 r3,-252(fp) | ||
4887 | mull3 r3,-256(fp),-248(fp) | ||
4888 | mull2 r1,-256(fp) | ||
4889 | addl3 -244(fp),-248(fp),r0 | ||
4890 | bicl3 #0,r0,-244(fp) | ||
4891 | cmpl -244(fp),-248(fp) | ||
4892 | bgequ noname.459 | ||
4893 | addl2 #65536,-256(fp) | ||
4894 | noname.459: | ||
4895 | movzwl -242(fp),r0 | ||
4896 | bicl2 #-65536,r0 | ||
4897 | addl2 r0,-256(fp) | ||
4898 | bicl3 #-65536,-244(fp),r0 | ||
4899 | ashl #16,r0,-248(fp) | ||
4900 | addl3 -248(fp),-252(fp),r0 | ||
4901 | bicl3 #0,r0,-252(fp) | ||
4902 | cmpl -252(fp),-248(fp) | ||
4903 | bgequ noname.460 | ||
4904 | incl -256(fp) | ||
4905 | noname.460: | ||
4906 | movl -252(fp),r3 | ||
4907 | movl -256(fp),r2 | ||
4908 | bbc #31,r2,noname.461 | ||
4909 | incl r9 | ||
4910 | noname.461: | ||
4911 | addl2 r2,r2 | ||
4912 | bicl2 #0,r2 | ||
4913 | bbc #31,r3,noname.462 | ||
4914 | incl r2 | ||
4915 | noname.462: | ||
4916 | addl2 r3,r3 | ||
4917 | bicl2 #0,r3 | ||
4918 | addl2 r3,r8 | ||
4919 | bicl2 #0,r8 | ||
4920 | cmpl r8,r3 | ||
4921 | bgequ noname.463 | ||
4922 | incl r2 | ||
4923 | bicl3 #0,r2,r0 | ||
4924 | bneq noname.463 | ||
4925 | incl r9 | ||
4926 | noname.463: | ||
4927 | addl2 r2,r7 | ||
4928 | bicl2 #0,r7 | ||
4929 | cmpl r7,r2 | ||
4930 | bgequ noname.464 | ||
4931 | incl r9 | ||
4932 | noname.464: | ||
4933 | |||
4934 | movl 8(ap),r0 | ||
4935 | movzwl 22(r0),r2 | ||
4936 | bicl3 #-65536,8(r0),r3 | ||
4937 | movzwl 10(r0),r1 | ||
4938 | bicl2 #-65536,r1 | ||
4939 | bicl3 #-65536,20(r0),-268(fp) | ||
4940 | bicl3 #-65536,r2,-272(fp) | ||
4941 | mull3 r1,-268(fp),-260(fp) | ||
4942 | mull2 r3,-268(fp) | ||
4943 | mull3 r3,-272(fp),-264(fp) | ||
4944 | mull2 r1,-272(fp) | ||
4945 | addl3 -260(fp),-264(fp),r0 | ||
4946 | bicl3 #0,r0,-260(fp) | ||
4947 | cmpl -260(fp),-264(fp) | ||
4948 | bgequ noname.465 | ||
4949 | addl2 #65536,-272(fp) | ||
4950 | noname.465: | ||
4951 | movzwl -258(fp),r0 | ||
4952 | bicl2 #-65536,r0 | ||
4953 | addl2 r0,-272(fp) | ||
4954 | bicl3 #-65536,-260(fp),r0 | ||
4955 | ashl #16,r0,-264(fp) | ||
4956 | addl3 -264(fp),-268(fp),r0 | ||
4957 | bicl3 #0,r0,-268(fp) | ||
4958 | cmpl -268(fp),-264(fp) | ||
4959 | bgequ noname.466 | ||
4960 | incl -272(fp) | ||
4961 | noname.466: | ||
4962 | movl -268(fp),r3 | ||
4963 | movl -272(fp),r2 | ||
4964 | bbc #31,r2,noname.467 | ||
4965 | incl r9 | ||
4966 | noname.467: | ||
4967 | addl2 r2,r2 | ||
4968 | bicl2 #0,r2 | ||
4969 | bbc #31,r3,noname.468 | ||
4970 | incl r2 | ||
4971 | noname.468: | ||
4972 | addl2 r3,r3 | ||
4973 | bicl2 #0,r3 | ||
4974 | addl2 r3,r8 | ||
4975 | bicl2 #0,r8 | ||
4976 | cmpl r8,r3 | ||
4977 | bgequ noname.469 | ||
4978 | incl r2 | ||
4979 | bicl3 #0,r2,r0 | ||
4980 | bneq noname.469 | ||
4981 | incl r9 | ||
4982 | noname.469: | ||
4983 | addl2 r2,r7 | ||
4984 | bicl2 #0,r7 | ||
4985 | cmpl r7,r2 | ||
4986 | bgequ noname.470 | ||
4987 | incl r9 | ||
4988 | noname.470: | ||
4989 | |||
4990 | movl 8(ap),r0 | ||
4991 | movzwl 18(r0),r2 | ||
4992 | bicl3 #-65536,12(r0),r3 | ||
4993 | movzwl 14(r0),r1 | ||
4994 | bicl2 #-65536,r1 | ||
4995 | bicl3 #-65536,16(r0),-284(fp) | ||
4996 | bicl3 #-65536,r2,-288(fp) | ||
4997 | mull3 r1,-284(fp),-276(fp) | ||
4998 | mull2 r3,-284(fp) | ||
4999 | mull3 r3,-288(fp),-280(fp) | ||
5000 | mull2 r1,-288(fp) | ||
5001 | addl3 -276(fp),-280(fp),r0 | ||
5002 | bicl3 #0,r0,-276(fp) | ||
5003 | cmpl -276(fp),-280(fp) | ||
5004 | bgequ noname.471 | ||
5005 | addl2 #65536,-288(fp) | ||
5006 | noname.471: | ||
5007 | movzwl -274(fp),r0 | ||
5008 | bicl2 #-65536,r0 | ||
5009 | addl2 r0,-288(fp) | ||
5010 | bicl3 #-65536,-276(fp),r0 | ||
5011 | ashl #16,r0,-280(fp) | ||
5012 | addl3 -280(fp),-284(fp),r0 | ||
5013 | bicl3 #0,r0,-284(fp) | ||
5014 | cmpl -284(fp),-280(fp) | ||
5015 | bgequ noname.472 | ||
5016 | incl -288(fp) | ||
5017 | noname.472: | ||
5018 | movl -284(fp),r3 | ||
5019 | movl -288(fp),r2 | ||
5020 | bbc #31,r2,noname.473 | ||
5021 | incl r9 | ||
5022 | noname.473: | ||
5023 | addl2 r2,r2 | ||
5024 | bicl2 #0,r2 | ||
5025 | bbc #31,r3,noname.474 | ||
5026 | incl r2 | ||
5027 | noname.474: | ||
5028 | addl2 r3,r3 | ||
5029 | bicl2 #0,r3 | ||
5030 | addl2 r3,r8 | ||
5031 | bicl2 #0,r8 | ||
5032 | cmpl r8,r3 | ||
5033 | bgequ noname.475 | ||
5034 | incl r2 | ||
5035 | bicl3 #0,r2,r0 | ||
5036 | bneq noname.475 | ||
5037 | incl r9 | ||
5038 | noname.475: | ||
5039 | addl2 r2,r7 | ||
5040 | bicl2 #0,r7 | ||
5041 | cmpl r7,r2 | ||
5042 | bgequ noname.476 | ||
5043 | incl r9 | ||
5044 | noname.476: | ||
5045 | |||
5046 | movl 4(ap),r0 | ||
5047 | movl r8,28(r0) | ||
5048 | |||
5049 | clrl r8 | ||
5050 | |||
5051 | movl 8(ap),r3 | ||
5052 | movl 16(r3),r4 | ||
5053 | bicl3 #-65536,r4,r5 | ||
5054 | extzv #16,#16,r4,r0 | ||
5055 | bicl3 #-65536,r0,r4 | ||
5056 | mull3 r5,r4,-292(fp) | ||
5057 | mull2 r5,r5 | ||
5058 | mull2 r4,r4 | ||
5059 | bicl3 #32767,-292(fp),r0 | ||
5060 | extzv #15,#17,r0,r0 | ||
5061 | addl2 r0,r4 | ||
5062 | bicl3 #-65536,-292(fp),r0 | ||
5063 | ashl #17,r0,-292(fp) | ||
5064 | addl2 -292(fp),r5 | ||
5065 | bicl2 #0,r5 | ||
5066 | cmpl r5,-292(fp) | ||
5067 | bgequ noname.477 | ||
5068 | incl r4 | ||
5069 | noname.477: | ||
5070 | movl r5,r1 | ||
5071 | movl r4,r2 | ||
5072 | addl2 r1,r7 | ||
5073 | bicl2 #0,r7 | ||
5074 | cmpl r7,r1 | ||
5075 | bgequ noname.478 | ||
5076 | incl r2 | ||
5077 | noname.478: | ||
5078 | addl2 r2,r9 | ||
5079 | bicl2 #0,r9 | ||
5080 | cmpl r9,r2 | ||
5081 | bgequ noname.479 | ||
5082 | incl r8 | ||
5083 | noname.479: | ||
5084 | |||
5085 | bicl3 #-65536,20(r3),r4 | ||
5086 | movzwl 22(r3),r1 | ||
5087 | bicl2 #-65536,r1 | ||
5088 | bicl3 #-65536,12(r3),r2 | ||
5089 | movzwl 14(r3),r0 | ||
5090 | bicl2 #-65536,r0 | ||
5091 | movl r4,r6 | ||
5092 | movl r1,r5 | ||
5093 | mull3 r0,r6,-296(fp) | ||
5094 | mull2 r2,r6 | ||
5095 | mull3 r2,r5,-300(fp) | ||
5096 | mull2 r0,r5 | ||
5097 | addl3 -296(fp),-300(fp),r0 | ||
5098 | bicl3 #0,r0,-296(fp) | ||
5099 | cmpl -296(fp),-300(fp) | ||
5100 | bgequ noname.480 | ||
5101 | addl2 #65536,r5 | ||
5102 | noname.480: | ||
5103 | movzwl -294(fp),r0 | ||
5104 | bicl2 #-65536,r0 | ||
5105 | addl2 r0,r5 | ||
5106 | bicl3 #-65536,-296(fp),r0 | ||
5107 | ashl #16,r0,-300(fp) | ||
5108 | addl2 -300(fp),r6 | ||
5109 | bicl2 #0,r6 | ||
5110 | cmpl r6,-300(fp) | ||
5111 | bgequ noname.481 | ||
5112 | incl r5 | ||
5113 | noname.481: | ||
5114 | movl r6,r3 | ||
5115 | movl r5,r2 | ||
5116 | bbc #31,r2,noname.482 | ||
5117 | incl r8 | ||
5118 | noname.482: | ||
5119 | addl2 r2,r2 | ||
5120 | bicl2 #0,r2 | ||
5121 | bbc #31,r3,noname.483 | ||
5122 | incl r2 | ||
5123 | noname.483: | ||
5124 | addl2 r3,r3 | ||
5125 | bicl2 #0,r3 | ||
5126 | addl2 r3,r7 | ||
5127 | bicl2 #0,r7 | ||
5128 | cmpl r7,r3 | ||
5129 | bgequ noname.484 | ||
5130 | incl r2 | ||
5131 | bicl3 #0,r2,r0 | ||
5132 | bneq noname.484 | ||
5133 | incl r8 | ||
5134 | noname.484: | ||
5135 | addl2 r2,r9 | ||
5136 | bicl2 #0,r9 | ||
5137 | cmpl r9,r2 | ||
5138 | bgequ noname.485 | ||
5139 | incl r8 | ||
5140 | noname.485: | ||
5141 | |||
5142 | movl 8(ap),r0 | ||
5143 | bicl3 #-65536,24(r0),r3 | ||
5144 | movzwl 26(r0),r1 | ||
5145 | bicl2 #-65536,r1 | ||
5146 | bicl3 #-65536,8(r0),r2 | ||
5147 | movzwl 10(r0),r0 | ||
5148 | bicl2 #-65536,r0 | ||
5149 | movl r3,r5 | ||
5150 | movl r1,r4 | ||
5151 | mull3 r0,r5,-304(fp) | ||
5152 | mull2 r2,r5 | ||
5153 | mull3 r2,r4,-308(fp) | ||
5154 | mull2 r0,r4 | ||
5155 | addl3 -304(fp),-308(fp),r0 | ||
5156 | bicl3 #0,r0,-304(fp) | ||
5157 | cmpl -304(fp),-308(fp) | ||
5158 | bgequ noname.486 | ||
5159 | addl2 #65536,r4 | ||
5160 | noname.486: | ||
5161 | movzwl -302(fp),r0 | ||
5162 | bicl2 #-65536,r0 | ||
5163 | addl2 r0,r4 | ||
5164 | bicl3 #-65536,-304(fp),r0 | ||
5165 | ashl #16,r0,-308(fp) | ||
5166 | addl2 -308(fp),r5 | ||
5167 | bicl2 #0,r5 | ||
5168 | cmpl r5,-308(fp) | ||
5169 | bgequ noname.487 | ||
5170 | incl r4 | ||
5171 | noname.487: | ||
5172 | movl r5,r3 | ||
5173 | movl r4,r2 | ||
5174 | bbc #31,r2,noname.488 | ||
5175 | incl r8 | ||
5176 | noname.488: | ||
5177 | addl2 r2,r2 | ||
5178 | bicl2 #0,r2 | ||
5179 | bbc #31,r3,noname.489 | ||
5180 | incl r2 | ||
5181 | noname.489: | ||
5182 | addl2 r3,r3 | ||
5183 | bicl2 #0,r3 | ||
5184 | addl2 r3,r7 | ||
5185 | bicl2 #0,r7 | ||
5186 | cmpl r7,r3 | ||
5187 | bgequ noname.490 | ||
5188 | incl r2 | ||
5189 | bicl3 #0,r2,r0 | ||
5190 | bneq noname.490 | ||
5191 | incl r8 | ||
5192 | noname.490: | ||
5193 | addl2 r2,r9 | ||
5194 | bicl2 #0,r9 | ||
5195 | cmpl r9,r2 | ||
5196 | bgequ noname.491 | ||
5197 | incl r8 | ||
5198 | noname.491: | ||
5199 | |||
5200 | movl 8(ap),r0 | ||
5201 | bicl3 #-65536,28(r0),r3 | ||
5202 | movzwl 30(r0),r1 | ||
5203 | bicl2 #-65536,r1 | ||
5204 | bicl3 #-65536,4(r0),r2 | ||
5205 | movzwl 6(r0),r0 | ||
5206 | bicl2 #-65536,r0 | ||
5207 | movl r3,r5 | ||
5208 | movl r1,r4 | ||
5209 | mull3 r0,r5,-312(fp) | ||
5210 | mull2 r2,r5 | ||
5211 | mull3 r2,r4,-316(fp) | ||
5212 | mull2 r0,r4 | ||
5213 | addl3 -312(fp),-316(fp),r0 | ||
5214 | bicl3 #0,r0,-312(fp) | ||
5215 | cmpl -312(fp),-316(fp) | ||
5216 | bgequ noname.492 | ||
5217 | addl2 #65536,r4 | ||
5218 | noname.492: | ||
5219 | movzwl -310(fp),r0 | ||
5220 | bicl2 #-65536,r0 | ||
5221 | addl2 r0,r4 | ||
5222 | bicl3 #-65536,-312(fp),r0 | ||
5223 | ashl #16,r0,-316(fp) | ||
5224 | addl2 -316(fp),r5 | ||
5225 | bicl2 #0,r5 | ||
5226 | cmpl r5,-316(fp) | ||
5227 | bgequ noname.493 | ||
5228 | incl r4 | ||
5229 | noname.493: | ||
5230 | movl r5,r3 | ||
5231 | movl r4,r2 | ||
5232 | bbc #31,r2,noname.494 | ||
5233 | incl r8 | ||
5234 | noname.494: | ||
5235 | addl2 r2,r2 | ||
5236 | bicl2 #0,r2 | ||
5237 | bbc #31,r3,noname.495 | ||
5238 | incl r2 | ||
5239 | noname.495: | ||
5240 | addl2 r3,r3 | ||
5241 | bicl2 #0,r3 | ||
5242 | addl2 r3,r7 | ||
5243 | bicl2 #0,r7 | ||
5244 | cmpl r7,r3 | ||
5245 | bgequ noname.496 | ||
5246 | incl r2 | ||
5247 | bicl3 #0,r2,r0 | ||
5248 | bneq noname.496 | ||
5249 | incl r8 | ||
5250 | noname.496: | ||
5251 | addl2 r2,r9 | ||
5252 | bicl2 #0,r9 | ||
5253 | cmpl r9,r2 | ||
5254 | bgequ noname.497 | ||
5255 | incl r8 | ||
5256 | noname.497: | ||
5257 | |||
5258 | movl 4(ap),r0 | ||
5259 | movl r7,32(r0) | ||
5260 | |||
5261 | clrl r7 | ||
5262 | |||
5263 | movl 8(ap),r0 | ||
5264 | bicl3 #-65536,28(r0),r3 | ||
5265 | movzwl 30(r0),r2 | ||
5266 | bicl3 #-65536,8(r0),r1 | ||
5267 | movzwl 10(r0),r0 | ||
5268 | bicl2 #-65536,r0 | ||
5269 | movl r3,r4 | ||
5270 | bicl3 #-65536,r2,-328(fp) | ||
5271 | mull3 r0,r4,-320(fp) | ||
5272 | mull2 r1,r4 | ||
5273 | mull3 r1,-328(fp),-324(fp) | ||
5274 | mull2 r0,-328(fp) | ||
5275 | addl3 -320(fp),-324(fp),r0 | ||
5276 | bicl3 #0,r0,-320(fp) | ||
5277 | cmpl -320(fp),-324(fp) | ||
5278 | bgequ noname.498 | ||
5279 | addl2 #65536,-328(fp) | ||
5280 | noname.498: | ||
5281 | movzwl -318(fp),r0 | ||
5282 | bicl2 #-65536,r0 | ||
5283 | addl2 r0,-328(fp) | ||
5284 | bicl3 #-65536,-320(fp),r0 | ||
5285 | ashl #16,r0,-324(fp) | ||
5286 | addl2 -324(fp),r4 | ||
5287 | bicl2 #0,r4 | ||
5288 | cmpl r4,-324(fp) | ||
5289 | bgequ noname.499 | ||
5290 | incl -328(fp) | ||
5291 | noname.499: | ||
5292 | movl r4,r3 | ||
5293 | movl -328(fp),r2 | ||
5294 | bbc #31,r2,noname.500 | ||
5295 | incl r7 | ||
5296 | noname.500: | ||
5297 | addl2 r2,r2 | ||
5298 | bicl2 #0,r2 | ||
5299 | bbc #31,r3,noname.501 | ||
5300 | incl r2 | ||
5301 | noname.501: | ||
5302 | addl2 r3,r3 | ||
5303 | bicl2 #0,r3 | ||
5304 | addl2 r3,r9 | ||
5305 | bicl2 #0,r9 | ||
5306 | cmpl r9,r3 | ||
5307 | bgequ noname.502 | ||
5308 | incl r2 | ||
5309 | bicl3 #0,r2,r0 | ||
5310 | bneq noname.502 | ||
5311 | incl r7 | ||
5312 | noname.502: | ||
5313 | addl2 r2,r8 | ||
5314 | bicl2 #0,r8 | ||
5315 | cmpl r8,r2 | ||
5316 | bgequ noname.503 | ||
5317 | incl r7 | ||
5318 | noname.503: | ||
5319 | |||
5320 | movl 8(ap),r0 | ||
5321 | movzwl 26(r0),r2 | ||
5322 | bicl3 #-65536,12(r0),r3 | ||
5323 | movzwl 14(r0),r1 | ||
5324 | bicl2 #-65536,r1 | ||
5325 | bicl3 #-65536,24(r0),-340(fp) | ||
5326 | bicl3 #-65536,r2,-344(fp) | ||
5327 | mull3 r1,-340(fp),-332(fp) | ||
5328 | mull2 r3,-340(fp) | ||
5329 | mull3 r3,-344(fp),-336(fp) | ||
5330 | mull2 r1,-344(fp) | ||
5331 | addl3 -332(fp),-336(fp),r0 | ||
5332 | bicl3 #0,r0,-332(fp) | ||
5333 | cmpl -332(fp),-336(fp) | ||
5334 | bgequ noname.504 | ||
5335 | addl2 #65536,-344(fp) | ||
5336 | noname.504: | ||
5337 | movzwl -330(fp),r0 | ||
5338 | bicl2 #-65536,r0 | ||
5339 | addl2 r0,-344(fp) | ||
5340 | bicl3 #-65536,-332(fp),r0 | ||
5341 | ashl #16,r0,-336(fp) | ||
5342 | addl3 -336(fp),-340(fp),r0 | ||
5343 | bicl3 #0,r0,-340(fp) | ||
5344 | cmpl -340(fp),-336(fp) | ||
5345 | bgequ noname.505 | ||
5346 | incl -344(fp) | ||
5347 | noname.505: | ||
5348 | movl -340(fp),r3 | ||
5349 | movl -344(fp),r2 | ||
5350 | bbc #31,r2,noname.506 | ||
5351 | incl r7 | ||
5352 | noname.506: | ||
5353 | addl2 r2,r2 | ||
5354 | bicl2 #0,r2 | ||
5355 | bbc #31,r3,noname.507 | ||
5356 | incl r2 | ||
5357 | noname.507: | ||
5358 | addl2 r3,r3 | ||
5359 | bicl2 #0,r3 | ||
5360 | addl2 r3,r9 | ||
5361 | bicl2 #0,r9 | ||
5362 | cmpl r9,r3 | ||
5363 | bgequ noname.508 | ||
5364 | incl r2 | ||
5365 | bicl3 #0,r2,r0 | ||
5366 | bneq noname.508 | ||
5367 | incl r7 | ||
5368 | noname.508: | ||
5369 | addl2 r2,r8 | ||
5370 | bicl2 #0,r8 | ||
5371 | cmpl r8,r2 | ||
5372 | bgequ noname.509 | ||
5373 | incl r7 | ||
5374 | noname.509: | ||
5375 | |||
5376 | movl 8(ap),r0 | ||
5377 | movzwl 22(r0),r2 | ||
5378 | bicl3 #-65536,16(r0),r3 | ||
5379 | movzwl 18(r0),r1 | ||
5380 | bicl2 #-65536,r1 | ||
5381 | bicl3 #-65536,20(r0),-356(fp) | ||
5382 | bicl3 #-65536,r2,-360(fp) | ||
5383 | mull3 r1,-356(fp),-348(fp) | ||
5384 | mull2 r3,-356(fp) | ||
5385 | mull3 r3,-360(fp),-352(fp) | ||
5386 | mull2 r1,-360(fp) | ||
5387 | addl3 -348(fp),-352(fp),r0 | ||
5388 | bicl3 #0,r0,-348(fp) | ||
5389 | cmpl -348(fp),-352(fp) | ||
5390 | bgequ noname.510 | ||
5391 | addl2 #65536,-360(fp) | ||
5392 | noname.510: | ||
5393 | movzwl -346(fp),r0 | ||
5394 | bicl2 #-65536,r0 | ||
5395 | addl2 r0,-360(fp) | ||
5396 | bicl3 #-65536,-348(fp),r0 | ||
5397 | ashl #16,r0,-352(fp) | ||
5398 | addl3 -352(fp),-356(fp),r0 | ||
5399 | bicl3 #0,r0,-356(fp) | ||
5400 | cmpl -356(fp),-352(fp) | ||
5401 | bgequ noname.511 | ||
5402 | incl -360(fp) | ||
5403 | noname.511: | ||
5404 | movl -356(fp),r3 | ||
5405 | movl -360(fp),r2 | ||
5406 | bbc #31,r2,noname.512 | ||
5407 | incl r7 | ||
5408 | noname.512: | ||
5409 | addl2 r2,r2 | ||
5410 | bicl2 #0,r2 | ||
5411 | bbc #31,r3,noname.513 | ||
5412 | incl r2 | ||
5413 | noname.513: | ||
5414 | addl2 r3,r3 | ||
5415 | bicl2 #0,r3 | ||
5416 | addl2 r3,r9 | ||
5417 | bicl2 #0,r9 | ||
5418 | cmpl r9,r3 | ||
5419 | bgequ noname.514 | ||
5420 | incl r2 | ||
5421 | bicl3 #0,r2,r0 | ||
5422 | bneq noname.514 | ||
5423 | incl r7 | ||
5424 | noname.514: | ||
5425 | addl2 r2,r8 | ||
5426 | bicl2 #0,r8 | ||
5427 | cmpl r8,r2 | ||
5428 | bgequ noname.515 | ||
5429 | incl r7 | ||
5430 | noname.515: | ||
5431 | |||
5432 | movl 4(ap),r0 | ||
5433 | movl r9,36(r0) | ||
5434 | |||
5435 | clrl r9 | ||
5436 | |||
5437 | movl 8(ap),r3 | ||
5438 | movl 20(r3),r4 | ||
5439 | bicl3 #-65536,r4,-364(fp) | ||
5440 | extzv #16,#16,r4,r0 | ||
5441 | bicl3 #-65536,r0,r4 | ||
5442 | movl -364(fp),r0 | ||
5443 | mull3 r0,r4,-368(fp) | ||
5444 | mull3 r0,r0,-364(fp) | ||
5445 | mull2 r4,r4 | ||
5446 | bicl3 #32767,-368(fp),r0 | ||
5447 | extzv #15,#17,r0,r0 | ||
5448 | addl2 r0,r4 | ||
5449 | bicl3 #-65536,-368(fp),r0 | ||
5450 | ashl #17,r0,-368(fp) | ||
5451 | addl3 -364(fp),-368(fp),r0 | ||
5452 | bicl3 #0,r0,-364(fp) | ||
5453 | cmpl -364(fp),-368(fp) | ||
5454 | bgequ noname.516 | ||
5455 | incl r4 | ||
5456 | noname.516: | ||
5457 | movl -364(fp),r1 | ||
5458 | movl r4,r2 | ||
5459 | addl2 r1,r8 | ||
5460 | bicl2 #0,r8 | ||
5461 | cmpl r8,r1 | ||
5462 | bgequ noname.517 | ||
5463 | incl r2 | ||
5464 | noname.517: | ||
5465 | addl2 r2,r7 | ||
5466 | bicl2 #0,r7 | ||
5467 | cmpl r7,r2 | ||
5468 | bgequ noname.518 | ||
5469 | incl r9 | ||
5470 | noname.518: | ||
5471 | |||
5472 | bicl3 #-65536,24(r3),r4 | ||
5473 | movzwl 26(r3),r1 | ||
5474 | bicl2 #-65536,r1 | ||
5475 | bicl3 #-65536,16(r3),r2 | ||
5476 | movzwl 18(r3),r0 | ||
5477 | bicl2 #-65536,r0 | ||
5478 | movl r4,r6 | ||
5479 | movl r1,r5 | ||
5480 | mull3 r0,r6,-372(fp) | ||
5481 | mull2 r2,r6 | ||
5482 | mull3 r2,r5,-376(fp) | ||
5483 | mull2 r0,r5 | ||
5484 | addl3 -372(fp),-376(fp),r0 | ||
5485 | bicl3 #0,r0,-372(fp) | ||
5486 | cmpl -372(fp),-376(fp) | ||
5487 | bgequ noname.519 | ||
5488 | addl2 #65536,r5 | ||
5489 | noname.519: | ||
5490 | movzwl -370(fp),r0 | ||
5491 | bicl2 #-65536,r0 | ||
5492 | addl2 r0,r5 | ||
5493 | bicl3 #-65536,-372(fp),r0 | ||
5494 | ashl #16,r0,-376(fp) | ||
5495 | addl2 -376(fp),r6 | ||
5496 | bicl2 #0,r6 | ||
5497 | cmpl r6,-376(fp) | ||
5498 | bgequ noname.520 | ||
5499 | incl r5 | ||
5500 | noname.520: | ||
5501 | movl r6,r3 | ||
5502 | movl r5,r2 | ||
5503 | bbc #31,r2,noname.521 | ||
5504 | incl r9 | ||
5505 | noname.521: | ||
5506 | addl2 r2,r2 | ||
5507 | bicl2 #0,r2 | ||
5508 | bbc #31,r3,noname.522 | ||
5509 | incl r2 | ||
5510 | noname.522: | ||
5511 | addl2 r3,r3 | ||
5512 | bicl2 #0,r3 | ||
5513 | addl2 r3,r8 | ||
5514 | bicl2 #0,r8 | ||
5515 | cmpl r8,r3 | ||
5516 | bgequ noname.523 | ||
5517 | incl r2 | ||
5518 | bicl3 #0,r2,r0 | ||
5519 | bneq noname.523 | ||
5520 | incl r9 | ||
5521 | noname.523: | ||
5522 | addl2 r2,r7 | ||
5523 | bicl2 #0,r7 | ||
5524 | cmpl r7,r2 | ||
5525 | bgequ noname.524 | ||
5526 | incl r9 | ||
5527 | noname.524: | ||
5528 | |||
5529 | movl 8(ap),r0 | ||
5530 | bicl3 #-65536,28(r0),r3 | ||
5531 | movzwl 30(r0),r1 | ||
5532 | bicl2 #-65536,r1 | ||
5533 | bicl3 #-65536,12(r0),r2 | ||
5534 | movzwl 14(r0),r0 | ||
5535 | bicl2 #-65536,r0 | ||
5536 | movl r3,r5 | ||
5537 | movl r1,r4 | ||
5538 | mull3 r0,r5,-380(fp) | ||
5539 | mull2 r2,r5 | ||
5540 | mull3 r2,r4,-384(fp) | ||
5541 | mull2 r0,r4 | ||
5542 | addl3 -380(fp),-384(fp),r0 | ||
5543 | bicl3 #0,r0,-380(fp) | ||
5544 | cmpl -380(fp),-384(fp) | ||
5545 | bgequ noname.525 | ||
5546 | addl2 #65536,r4 | ||
5547 | noname.525: | ||
5548 | movzwl -378(fp),r0 | ||
5549 | bicl2 #-65536,r0 | ||
5550 | addl2 r0,r4 | ||
5551 | bicl3 #-65536,-380(fp),r0 | ||
5552 | ashl #16,r0,-384(fp) | ||
5553 | addl2 -384(fp),r5 | ||
5554 | bicl2 #0,r5 | ||
5555 | cmpl r5,-384(fp) | ||
5556 | bgequ noname.526 | ||
5557 | incl r4 | ||
5558 | noname.526: | ||
5559 | movl r5,r3 | ||
5560 | movl r4,r2 | ||
5561 | bbc #31,r2,noname.527 | ||
5562 | incl r9 | ||
5563 | noname.527: | ||
5564 | addl2 r2,r2 | ||
5565 | bicl2 #0,r2 | ||
5566 | bbc #31,r3,noname.528 | ||
5567 | incl r2 | ||
5568 | noname.528: | ||
5569 | addl2 r3,r3 | ||
5570 | bicl2 #0,r3 | ||
5571 | addl2 r3,r8 | ||
5572 | bicl2 #0,r8 | ||
5573 | cmpl r8,r3 | ||
5574 | bgequ noname.529 | ||
5575 | incl r2 | ||
5576 | bicl3 #0,r2,r0 | ||
5577 | bneq noname.529 | ||
5578 | incl r9 | ||
5579 | noname.529: | ||
5580 | addl2 r2,r7 | ||
5581 | bicl2 #0,r7 | ||
5582 | cmpl r7,r2 | ||
5583 | bgequ noname.530 | ||
5584 | incl r9 | ||
5585 | noname.530: | ||
5586 | movl 4(ap),r0 | ||
5587 | movl r8,40(r0) | ||
5588 | |||
5589 | clrl r8 | ||
5590 | |||
5591 | movl 8(ap),r0 | ||
5592 | bicl3 #-65536,28(r0),r3 | ||
5593 | movzwl 30(r0),r1 | ||
5594 | bicl2 #-65536,r1 | ||
5595 | bicl3 #-65536,16(r0),r2 | ||
5596 | movzwl 18(r0),r0 | ||
5597 | bicl2 #-65536,r0 | ||
5598 | movl r3,r5 | ||
5599 | movl r1,r4 | ||
5600 | mull3 r0,r5,-388(fp) | ||
5601 | mull2 r2,r5 | ||
5602 | mull3 r2,r4,-392(fp) | ||
5603 | mull2 r0,r4 | ||
5604 | addl3 -388(fp),-392(fp),r0 | ||
5605 | bicl3 #0,r0,-388(fp) | ||
5606 | cmpl -388(fp),-392(fp) | ||
5607 | bgequ noname.531 | ||
5608 | addl2 #65536,r4 | ||
5609 | noname.531: | ||
5610 | movzwl -386(fp),r0 | ||
5611 | bicl2 #-65536,r0 | ||
5612 | addl2 r0,r4 | ||
5613 | bicl3 #-65536,-388(fp),r0 | ||
5614 | ashl #16,r0,-392(fp) | ||
5615 | addl2 -392(fp),r5 | ||
5616 | bicl2 #0,r5 | ||
5617 | cmpl r5,-392(fp) | ||
5618 | bgequ noname.532 | ||
5619 | incl r4 | ||
5620 | noname.532: | ||
5621 | movl r5,r3 | ||
5622 | movl r4,r2 | ||
5623 | bbc #31,r2,noname.533 | ||
5624 | incl r8 | ||
5625 | noname.533: | ||
5626 | addl2 r2,r2 | ||
5627 | bicl2 #0,r2 | ||
5628 | bbc #31,r3,noname.534 | ||
5629 | incl r2 | ||
5630 | noname.534: | ||
5631 | addl2 r3,r3 | ||
5632 | bicl2 #0,r3 | ||
5633 | addl2 r3,r7 | ||
5634 | bicl2 #0,r7 | ||
5635 | cmpl r7,r3 | ||
5636 | bgequ noname.535 | ||
5637 | incl r2 | ||
5638 | bicl3 #0,r2,r0 | ||
5639 | bneq noname.535 | ||
5640 | incl r8 | ||
5641 | noname.535: | ||
5642 | addl2 r2,r9 | ||
5643 | bicl2 #0,r9 | ||
5644 | cmpl r9,r2 | ||
5645 | bgequ noname.536 | ||
5646 | incl r8 | ||
5647 | noname.536: | ||
5648 | |||
5649 | movl 8(ap),r0 | ||
5650 | bicl3 #-65536,24(r0),r3 | ||
5651 | movzwl 26(r0),r1 | ||
5652 | bicl2 #-65536,r1 | ||
5653 | bicl3 #-65536,20(r0),r2 | ||
5654 | movzwl 22(r0),r0 | ||
5655 | bicl2 #-65536,r0 | ||
5656 | movl r3,r5 | ||
5657 | movl r1,r4 | ||
5658 | mull3 r0,r5,-396(fp) | ||
5659 | mull2 r2,r5 | ||
5660 | mull3 r2,r4,-400(fp) | ||
5661 | mull2 r0,r4 | ||
5662 | addl3 -396(fp),-400(fp),r0 | ||
5663 | bicl3 #0,r0,-396(fp) | ||
5664 | cmpl -396(fp),-400(fp) | ||
5665 | bgequ noname.537 | ||
5666 | addl2 #65536,r4 | ||
5667 | noname.537: | ||
5668 | movzwl -394(fp),r0 | ||
5669 | bicl2 #-65536,r0 | ||
5670 | addl2 r0,r4 | ||
5671 | bicl3 #-65536,-396(fp),r0 | ||
5672 | ashl #16,r0,-400(fp) | ||
5673 | addl2 -400(fp),r5 | ||
5674 | bicl2 #0,r5 | ||
5675 | cmpl r5,-400(fp) | ||
5676 | bgequ noname.538 | ||
5677 | incl r4 | ||
5678 | noname.538: | ||
5679 | movl r5,r3 | ||
5680 | movl r4,r2 | ||
5681 | bbc #31,r2,noname.539 | ||
5682 | incl r8 | ||
5683 | noname.539: | ||
5684 | addl2 r2,r2 | ||
5685 | bicl2 #0,r2 | ||
5686 | bbc #31,r3,noname.540 | ||
5687 | incl r2 | ||
5688 | noname.540: | ||
5689 | addl2 r3,r3 | ||
5690 | bicl2 #0,r3 | ||
5691 | addl2 r3,r7 | ||
5692 | bicl2 #0,r7 | ||
5693 | cmpl r7,r3 | ||
5694 | bgequ noname.541 | ||
5695 | incl r2 | ||
5696 | bicl3 #0,r2,r0 | ||
5697 | bneq noname.541 | ||
5698 | incl r8 | ||
5699 | noname.541: | ||
5700 | addl2 r2,r9 | ||
5701 | bicl2 #0,r9 | ||
5702 | cmpl r9,r2 | ||
5703 | bgequ noname.542 | ||
5704 | incl r8 | ||
5705 | noname.542: | ||
5706 | |||
5707 | movl 4(ap),r0 | ||
5708 | movl r7,44(r0) | ||
5709 | |||
5710 | clrl r7 | ||
5711 | |||
5712 | movl 8(ap),r3 | ||
5713 | movl 24(r3),r4 | ||
5714 | bicl3 #-65536,r4,r5 | ||
5715 | extzv #16,#16,r4,r0 | ||
5716 | bicl3 #-65536,r0,r4 | ||
5717 | mull3 r5,r4,-404(fp) | ||
5718 | mull2 r5,r5 | ||
5719 | mull2 r4,r4 | ||
5720 | bicl3 #32767,-404(fp),r0 | ||
5721 | extzv #15,#17,r0,r0 | ||
5722 | addl2 r0,r4 | ||
5723 | bicl3 #-65536,-404(fp),r0 | ||
5724 | ashl #17,r0,-404(fp) | ||
5725 | addl2 -404(fp),r5 | ||
5726 | bicl2 #0,r5 | ||
5727 | cmpl r5,-404(fp) | ||
5728 | bgequ noname.543 | ||
5729 | incl r4 | ||
5730 | noname.543: | ||
5731 | movl r5,r1 | ||
5732 | movl r4,r2 | ||
5733 | addl2 r1,r9 | ||
5734 | bicl2 #0,r9 | ||
5735 | cmpl r9,r1 | ||
5736 | bgequ noname.544 | ||
5737 | incl r2 | ||
5738 | noname.544: | ||
5739 | addl2 r2,r8 | ||
5740 | bicl2 #0,r8 | ||
5741 | cmpl r8,r2 | ||
5742 | bgequ noname.545 | ||
5743 | incl r7 | ||
5744 | noname.545: | ||
5745 | |||
5746 | movzwl 30(r3),r2 | ||
5747 | bicl3 #-65536,20(r3),r1 | ||
5748 | movzwl 22(r3),r0 | ||
5749 | bicl2 #-65536,r0 | ||
5750 | bicl3 #-65536,28(r3),-416(fp) | ||
5751 | bicl3 #-65536,r2,-420(fp) | ||
5752 | mull3 r0,-416(fp),-408(fp) | ||
5753 | mull2 r1,-416(fp) | ||
5754 | mull3 r1,-420(fp),-412(fp) | ||
5755 | mull2 r0,-420(fp) | ||
5756 | addl3 -408(fp),-412(fp),r0 | ||
5757 | bicl3 #0,r0,-408(fp) | ||
5758 | cmpl -408(fp),-412(fp) | ||
5759 | bgequ noname.546 | ||
5760 | addl2 #65536,-420(fp) | ||
5761 | noname.546: | ||
5762 | movzwl -406(fp),r0 | ||
5763 | bicl2 #-65536,r0 | ||
5764 | addl2 r0,-420(fp) | ||
5765 | bicl3 #-65536,-408(fp),r0 | ||
5766 | ashl #16,r0,-412(fp) | ||
5767 | addl3 -412(fp),-416(fp),r0 | ||
5768 | bicl3 #0,r0,-416(fp) | ||
5769 | cmpl -416(fp),-412(fp) | ||
5770 | bgequ noname.547 | ||
5771 | incl -420(fp) | ||
5772 | noname.547: | ||
5773 | movl -416(fp),r3 | ||
5774 | movl -420(fp),r2 | ||
5775 | bbc #31,r2,noname.548 | ||
5776 | incl r7 | ||
5777 | noname.548: | ||
5778 | addl2 r2,r2 | ||
5779 | bicl2 #0,r2 | ||
5780 | bbc #31,r3,noname.549 | ||
5781 | incl r2 | ||
5782 | noname.549: | ||
5783 | addl2 r3,r3 | ||
5784 | bicl2 #0,r3 | ||
5785 | addl2 r3,r9 | ||
5786 | bicl2 #0,r9 | ||
5787 | cmpl r9,r3 | ||
5788 | bgequ noname.550 | ||
5789 | incl r2 | ||
5790 | bicl3 #0,r2,r0 | ||
5791 | bneq noname.550 | ||
5792 | incl r7 | ||
5793 | noname.550: | ||
5794 | addl2 r2,r8 | ||
5795 | bicl2 #0,r8 | ||
5796 | cmpl r8,r2 | ||
5797 | bgequ noname.551 | ||
5798 | incl r7 | ||
5799 | noname.551: | ||
5800 | |||
5801 | movl 4(ap),r0 | ||
5802 | movl r9,48(r0) | ||
5803 | |||
5804 | clrl r9 | ||
5805 | |||
5806 | movl 8(ap),r0 | ||
5807 | movzwl 30(r0),r2 | ||
5808 | bicl3 #-65536,24(r0),r3 | ||
5809 | movzwl 26(r0),r1 | ||
5810 | bicl2 #-65536,r1 | ||
5811 | bicl3 #-65536,28(r0),-432(fp) | ||
5812 | bicl3 #-65536,r2,-436(fp) | ||
5813 | mull3 r1,-432(fp),-424(fp) | ||
5814 | mull2 r3,-432(fp) | ||
5815 | mull3 r3,-436(fp),-428(fp) | ||
5816 | mull2 r1,-436(fp) | ||
5817 | addl3 -424(fp),-428(fp),r0 | ||
5818 | bicl3 #0,r0,-424(fp) | ||
5819 | cmpl -424(fp),-428(fp) | ||
5820 | bgequ noname.552 | ||
5821 | addl2 #65536,-436(fp) | ||
5822 | noname.552: | ||
5823 | movzwl -422(fp),r0 | ||
5824 | bicl2 #-65536,r0 | ||
5825 | addl2 r0,-436(fp) | ||
5826 | bicl3 #-65536,-424(fp),r0 | ||
5827 | ashl #16,r0,-428(fp) | ||
5828 | addl3 -428(fp),-432(fp),r0 | ||
5829 | bicl3 #0,r0,-432(fp) | ||
5830 | cmpl -432(fp),-428(fp) | ||
5831 | bgequ noname.553 | ||
5832 | incl -436(fp) | ||
5833 | noname.553: | ||
5834 | movl -432(fp),r3 | ||
5835 | movl -436(fp),r2 | ||
5836 | bbc #31,r2,noname.554 | ||
5837 | incl r9 | ||
5838 | noname.554: | ||
5839 | addl2 r2,r2 | ||
5840 | bicl2 #0,r2 | ||
5841 | bbc #31,r3,noname.555 | ||
5842 | incl r2 | ||
5843 | noname.555: | ||
5844 | addl2 r3,r3 | ||
5845 | bicl2 #0,r3 | ||
5846 | addl2 r3,r8 | ||
5847 | bicl2 #0,r8 | ||
5848 | cmpl r8,r3 | ||
5849 | bgequ noname.556 | ||
5850 | incl r2 | ||
5851 | bicl3 #0,r2,r0 | ||
5852 | bneq noname.556 | ||
5853 | incl r9 | ||
5854 | noname.556: | ||
5855 | addl2 r2,r7 | ||
5856 | bicl2 #0,r7 | ||
5857 | cmpl r7,r2 | ||
5858 | bgequ noname.557 | ||
5859 | incl r9 | ||
5860 | noname.557: | ||
5861 | |||
5862 | movl 4(ap),r4 | ||
5863 | movl r8,52(r4) | ||
5864 | |||
5865 | clrl r8 | ||
5866 | |||
5867 | movl 8(ap),r0 | ||
5868 | movl 28(r0),r3 | ||
5869 | bicl3 #-65536,r3,-440(fp) | ||
5870 | extzv #16,#16,r3,r0 | ||
5871 | bicl3 #-65536,r0,r3 | ||
5872 | movl -440(fp),r0 | ||
5873 | mull3 r0,r3,-444(fp) | ||
5874 | mull3 r0,r0,-440(fp) | ||
5875 | mull2 r3,r3 | ||
5876 | bicl3 #32767,-444(fp),r0 | ||
5877 | extzv #15,#17,r0,r0 | ||
5878 | addl2 r0,r3 | ||
5879 | bicl3 #-65536,-444(fp),r0 | ||
5880 | ashl #17,r0,-444(fp) | ||
5881 | addl3 -440(fp),-444(fp),r0 | ||
5882 | bicl3 #0,r0,-440(fp) | ||
5883 | cmpl -440(fp),-444(fp) | ||
5884 | bgequ noname.558 | ||
5885 | incl r3 | ||
5886 | noname.558: | ||
5887 | movl -440(fp),r1 | ||
5888 | movl r3,r2 | ||
5889 | addl2 r1,r7 | ||
5890 | bicl2 #0,r7 | ||
5891 | cmpl r7,r1 | ||
5892 | bgequ noname.559 | ||
5893 | incl r2 | ||
5894 | noname.559: | ||
5895 | addl2 r2,r9 | ||
5896 | bicl2 #0,r9 | ||
5897 | cmpl r9,r2 | ||
5898 | bgequ noname.560 | ||
5899 | incl r8 | ||
5900 | noname.560: | ||
5901 | |||
5902 | movl r7,56(r4) | ||
5903 | |||
5904 | movl r9,60(r4) | ||
5905 | |||
5906 | ret | ||
5907 | |||
5908 | |||
5909 | |||
5910 | ;r=4 ;(AP) | ||
5911 | ;a=8 ;(AP) | ||
5912 | ;b=12 ;(AP) | ||
5913 | ;n=16 ;(AP) n by value (input) | ||
5914 | |||
5915 | .psect code,nowrt | ||
5916 | |||
5917 | .entry BN_SQR_COMBA4,^m<r2,r3,r4,r5,r6,r7,r8,r9,r10> | ||
5918 | subl2 #44,sp | ||
5919 | |||
5920 | clrq r8 | ||
5921 | |||
5922 | clrl r10 | ||
5923 | |||
5924 | movl 8(ap),r5 | ||
5925 | movl (r5),r3 | ||
5926 | bicl3 #-65536,r3,r4 | ||
5927 | extzv #16,#16,r3,r0 | ||
5928 | bicl3 #-65536,r0,r3 | ||
5929 | mull3 r4,r3,-4(fp) | ||
5930 | mull2 r4,r4 | ||
5931 | mull2 r3,r3 | ||
5932 | bicl3 #32767,-4(fp),r0 | ||
5933 | extzv #15,#17,r0,r0 | ||
5934 | addl2 r0,r3 | ||
5935 | bicl3 #-65536,-4(fp),r0 | ||
5936 | ashl #17,r0,-4(fp) | ||
5937 | addl2 -4(fp),r4 | ||
5938 | bicl2 #0,r4 | ||
5939 | cmpl r4,-4(fp) | ||
5940 | bgequ noname.563 | ||
5941 | incl r3 | ||
5942 | noname.563: | ||
5943 | movl r4,r1 | ||
5944 | movl r3,r2 | ||
5945 | addl2 r1,r9 | ||
5946 | bicl2 #0,r9 | ||
5947 | cmpl r9,r1 | ||
5948 | bgequ noname.564 | ||
5949 | incl r2 | ||
5950 | noname.564: | ||
5951 | addl2 r2,r8 | ||
5952 | bicl2 #0,r8 | ||
5953 | cmpl r8,r2 | ||
5954 | bgequ noname.565 | ||
5955 | incl r10 | ||
5956 | noname.565: | ||
5957 | |||
5958 | movl r9,@4(ap) | ||
5959 | |||
5960 | clrl r9 | ||
5961 | |||
5962 | bicl3 #-65536,4(r5),r3 | ||
5963 | movzwl 6(r5),r1 | ||
5964 | bicl2 #-65536,r1 | ||
5965 | bicl3 #-65536,(r5),r2 | ||
5966 | movzwl 2(r5),r0 | ||
5967 | bicl2 #-65536,r0 | ||
5968 | movl r3,r6 | ||
5969 | movl r1,r4 | ||
5970 | mull3 r0,r6,-8(fp) | ||
5971 | mull2 r2,r6 | ||
5972 | mull2 r4,r2 | ||
5973 | mull2 r0,r4 | ||
5974 | addl3 -8(fp),r2,r0 | ||
5975 | bicl3 #0,r0,-8(fp) | ||
5976 | cmpl -8(fp),r2 | ||
5977 | bgequ noname.566 | ||
5978 | addl2 #65536,r4 | ||
5979 | noname.566: | ||
5980 | movzwl -6(fp),r0 | ||
5981 | bicl2 #-65536,r0 | ||
5982 | addl2 r0,r4 | ||
5983 | bicl3 #-65536,-8(fp),r0 | ||
5984 | ashl #16,r0,r1 | ||
5985 | addl2 r1,r6 | ||
5986 | bicl2 #0,r6 | ||
5987 | cmpl r6,r1 | ||
5988 | bgequ noname.567 | ||
5989 | incl r4 | ||
5990 | noname.567: | ||
5991 | movl r6,r3 | ||
5992 | movl r4,r2 | ||
5993 | bbc #31,r2,noname.568 | ||
5994 | incl r9 | ||
5995 | noname.568: | ||
5996 | addl2 r2,r2 | ||
5997 | bicl2 #0,r2 | ||
5998 | bbc #31,r3,noname.569 | ||
5999 | incl r2 | ||
6000 | noname.569: | ||
6001 | addl2 r3,r3 | ||
6002 | bicl2 #0,r3 | ||
6003 | addl2 r3,r8 | ||
6004 | bicl2 #0,r8 | ||
6005 | cmpl r8,r3 | ||
6006 | bgequ noname.570 | ||
6007 | incl r2 | ||
6008 | bicl3 #0,r2,r0 | ||
6009 | bneq noname.570 | ||
6010 | incl r9 | ||
6011 | noname.570: | ||
6012 | addl2 r2,r10 | ||
6013 | bicl2 #0,r10 | ||
6014 | cmpl r10,r2 | ||
6015 | bgequ noname.571 | ||
6016 | incl r9 | ||
6017 | noname.571: | ||
6018 | |||
6019 | movl 4(ap),r0 | ||
6020 | movl r8,4(r0) | ||
6021 | |||
6022 | clrl r8 | ||
6023 | |||
6024 | movl 8(ap),r4 | ||
6025 | movl 4(r4),r3 | ||
6026 | bicl3 #-65536,r3,r5 | ||
6027 | extzv #16,#16,r3,r0 | ||
6028 | bicl3 #-65536,r0,r3 | ||
6029 | mull3 r5,r3,r1 | ||
6030 | mull2 r5,r5 | ||
6031 | mull2 r3,r3 | ||
6032 | bicl3 #32767,r1,r0 | ||
6033 | extzv #15,#17,r0,r0 | ||
6034 | addl2 r0,r3 | ||
6035 | bicl2 #-65536,r1 | ||
6036 | ashl #17,r1,r1 | ||
6037 | addl2 r1,r5 | ||
6038 | bicl2 #0,r5 | ||
6039 | cmpl r5,r1 | ||
6040 | bgequ noname.572 | ||
6041 | incl r3 | ||
6042 | noname.572: | ||
6043 | movl r5,r1 | ||
6044 | movl r3,r2 | ||
6045 | addl2 r1,r10 | ||
6046 | bicl2 #0,r10 | ||
6047 | cmpl r10,r1 | ||
6048 | bgequ noname.573 | ||
6049 | incl r2 | ||
6050 | noname.573: | ||
6051 | addl2 r2,r9 | ||
6052 | bicl2 #0,r9 | ||
6053 | cmpl r9,r2 | ||
6054 | bgequ noname.574 | ||
6055 | incl r8 | ||
6056 | noname.574: | ||
6057 | |||
6058 | bicl3 #-65536,8(r4),r3 | ||
6059 | movzwl 10(r4),r1 | ||
6060 | bicl2 #-65536,r1 | ||
6061 | bicl3 #-65536,(r4),r2 | ||
6062 | movzwl 2(r4),r0 | ||
6063 | bicl2 #-65536,r0 | ||
6064 | movl r3,r6 | ||
6065 | movl r1,r5 | ||
6066 | mull3 r0,r6,r7 | ||
6067 | mull2 r2,r6 | ||
6068 | mull2 r5,r2 | ||
6069 | mull2 r0,r5 | ||
6070 | addl2 r2,r7 | ||
6071 | bicl2 #0,r7 | ||
6072 | cmpl r7,r2 | ||
6073 | bgequ noname.575 | ||
6074 | addl2 #65536,r5 | ||
6075 | noname.575: | ||
6076 | extzv #16,#16,r7,r0 | ||
6077 | bicl2 #-65536,r0 | ||
6078 | addl2 r0,r5 | ||
6079 | bicl3 #-65536,r7,r0 | ||
6080 | ashl #16,r0,r1 | ||
6081 | addl2 r1,r6 | ||
6082 | bicl2 #0,r6 | ||
6083 | cmpl r6,r1 | ||
6084 | bgequ noname.576 | ||
6085 | incl r5 | ||
6086 | noname.576: | ||
6087 | movl r6,r3 | ||
6088 | movl r5,r2 | ||
6089 | bbc #31,r2,noname.577 | ||
6090 | incl r8 | ||
6091 | noname.577: | ||
6092 | addl2 r2,r2 | ||
6093 | bicl2 #0,r2 | ||
6094 | bbc #31,r3,noname.578 | ||
6095 | incl r2 | ||
6096 | noname.578: | ||
6097 | addl2 r3,r3 | ||
6098 | bicl2 #0,r3 | ||
6099 | addl2 r3,r10 | ||
6100 | bicl2 #0,r10 | ||
6101 | cmpl r10,r3 | ||
6102 | bgequ noname.579 | ||
6103 | incl r2 | ||
6104 | bicl3 #0,r2,r0 | ||
6105 | bneq noname.579 | ||
6106 | incl r8 | ||
6107 | noname.579: | ||
6108 | addl2 r2,r9 | ||
6109 | bicl2 #0,r9 | ||
6110 | cmpl r9,r2 | ||
6111 | bgequ noname.580 | ||
6112 | incl r8 | ||
6113 | noname.580: | ||
6114 | |||
6115 | movl 4(ap),r0 | ||
6116 | movl r10,8(r0) | ||
6117 | |||
6118 | clrl r10 | ||
6119 | |||
6120 | movl 8(ap),r0 | ||
6121 | bicl3 #-65536,12(r0),r3 | ||
6122 | movzwl 14(r0),r1 | ||
6123 | bicl2 #-65536,r1 | ||
6124 | bicl3 #-65536,(r0),r2 | ||
6125 | movzwl 2(r0),r0 | ||
6126 | bicl2 #-65536,r0 | ||
6127 | movl r3,r5 | ||
6128 | movl r1,r4 | ||
6129 | mull3 r0,r5,r6 | ||
6130 | mull2 r2,r5 | ||
6131 | mull3 r2,r4,-12(fp) | ||
6132 | mull2 r0,r4 | ||
6133 | addl2 -12(fp),r6 | ||
6134 | bicl2 #0,r6 | ||
6135 | cmpl r6,-12(fp) | ||
6136 | bgequ noname.581 | ||
6137 | addl2 #65536,r4 | ||
6138 | noname.581: | ||
6139 | extzv #16,#16,r6,r0 | ||
6140 | bicl2 #-65536,r0 | ||
6141 | addl2 r0,r4 | ||
6142 | bicl3 #-65536,r6,r0 | ||
6143 | ashl #16,r0,-12(fp) | ||
6144 | addl2 -12(fp),r5 | ||
6145 | bicl2 #0,r5 | ||
6146 | cmpl r5,-12(fp) | ||
6147 | bgequ noname.582 | ||
6148 | incl r4 | ||
6149 | noname.582: | ||
6150 | movl r5,r3 | ||
6151 | movl r4,r2 | ||
6152 | bbc #31,r2,noname.583 | ||
6153 | incl r10 | ||
6154 | noname.583: | ||
6155 | addl2 r2,r2 | ||
6156 | bicl2 #0,r2 | ||
6157 | bbc #31,r3,noname.584 | ||
6158 | incl r2 | ||
6159 | noname.584: | ||
6160 | addl2 r3,r3 | ||
6161 | bicl2 #0,r3 | ||
6162 | addl2 r3,r9 | ||
6163 | bicl2 #0,r9 | ||
6164 | cmpl r9,r3 | ||
6165 | bgequ noname.585 | ||
6166 | incl r2 | ||
6167 | bicl3 #0,r2,r0 | ||
6168 | bneq noname.585 | ||
6169 | incl r10 | ||
6170 | noname.585: | ||
6171 | addl2 r2,r8 | ||
6172 | bicl2 #0,r8 | ||
6173 | cmpl r8,r2 | ||
6174 | bgequ noname.586 | ||
6175 | incl r10 | ||
6176 | noname.586: | ||
6177 | |||
6178 | movl 8(ap),r0 | ||
6179 | bicl3 #-65536,8(r0),r3 | ||
6180 | movzwl 10(r0),r1 | ||
6181 | bicl2 #-65536,r1 | ||
6182 | bicl3 #-65536,4(r0),r2 | ||
6183 | movzwl 6(r0),r0 | ||
6184 | bicl2 #-65536,r0 | ||
6185 | movl r3,r5 | ||
6186 | movl r1,r4 | ||
6187 | mull3 r0,r5,-16(fp) | ||
6188 | mull2 r2,r5 | ||
6189 | mull3 r2,r4,-20(fp) | ||
6190 | mull2 r0,r4 | ||
6191 | addl3 -16(fp),-20(fp),r0 | ||
6192 | bicl3 #0,r0,-16(fp) | ||
6193 | cmpl -16(fp),-20(fp) | ||
6194 | bgequ noname.587 | ||
6195 | addl2 #65536,r4 | ||
6196 | noname.587: | ||
6197 | movzwl -14(fp),r0 | ||
6198 | bicl2 #-65536,r0 | ||
6199 | addl2 r0,r4 | ||
6200 | bicl3 #-65536,-16(fp),r0 | ||
6201 | ashl #16,r0,-20(fp) | ||
6202 | addl2 -20(fp),r5 | ||
6203 | bicl2 #0,r5 | ||
6204 | cmpl r5,-20(fp) | ||
6205 | bgequ noname.588 | ||
6206 | incl r4 | ||
6207 | noname.588: | ||
6208 | movl r5,r3 | ||
6209 | movl r4,r2 | ||
6210 | bbc #31,r2,noname.589 | ||
6211 | incl r10 | ||
6212 | noname.589: | ||
6213 | addl2 r2,r2 | ||
6214 | bicl2 #0,r2 | ||
6215 | bbc #31,r3,noname.590 | ||
6216 | incl r2 | ||
6217 | noname.590: | ||
6218 | addl2 r3,r3 | ||
6219 | bicl2 #0,r3 | ||
6220 | addl2 r3,r9 | ||
6221 | bicl2 #0,r9 | ||
6222 | cmpl r9,r3 | ||
6223 | bgequ noname.591 | ||
6224 | incl r2 | ||
6225 | bicl3 #0,r2,r0 | ||
6226 | bneq noname.591 | ||
6227 | incl r10 | ||
6228 | noname.591: | ||
6229 | addl2 r2,r8 | ||
6230 | bicl2 #0,r8 | ||
6231 | cmpl r8,r2 | ||
6232 | bgequ noname.592 | ||
6233 | incl r10 | ||
6234 | noname.592: | ||
6235 | movl 4(ap),r0 | ||
6236 | movl r9,12(r0) | ||
6237 | |||
6238 | clrl r9 | ||
6239 | |||
6240 | movl 8(ap),r3 | ||
6241 | movl 8(r3),r4 | ||
6242 | bicl3 #-65536,r4,r5 | ||
6243 | extzv #16,#16,r4,r0 | ||
6244 | bicl3 #-65536,r0,r4 | ||
6245 | mull3 r5,r4,-24(fp) | ||
6246 | mull2 r5,r5 | ||
6247 | mull2 r4,r4 | ||
6248 | bicl3 #32767,-24(fp),r0 | ||
6249 | extzv #15,#17,r0,r0 | ||
6250 | addl2 r0,r4 | ||
6251 | bicl3 #-65536,-24(fp),r0 | ||
6252 | ashl #17,r0,-24(fp) | ||
6253 | addl2 -24(fp),r5 | ||
6254 | bicl2 #0,r5 | ||
6255 | cmpl r5,-24(fp) | ||
6256 | bgequ noname.593 | ||
6257 | incl r4 | ||
6258 | noname.593: | ||
6259 | movl r5,r1 | ||
6260 | movl r4,r2 | ||
6261 | addl2 r1,r8 | ||
6262 | bicl2 #0,r8 | ||
6263 | cmpl r8,r1 | ||
6264 | bgequ noname.594 | ||
6265 | incl r2 | ||
6266 | noname.594: | ||
6267 | addl2 r2,r10 | ||
6268 | bicl2 #0,r10 | ||
6269 | cmpl r10,r2 | ||
6270 | bgequ noname.595 | ||
6271 | incl r9 | ||
6272 | noname.595: | ||
6273 | |||
6274 | bicl3 #-65536,12(r3),r4 | ||
6275 | movzwl 14(r3),r1 | ||
6276 | bicl2 #-65536,r1 | ||
6277 | bicl3 #-65536,4(r3),r2 | ||
6278 | movzwl 6(r3),r0 | ||
6279 | bicl2 #-65536,r0 | ||
6280 | movl r4,r6 | ||
6281 | movl r1,r5 | ||
6282 | mull3 r0,r6,-28(fp) | ||
6283 | mull2 r2,r6 | ||
6284 | mull3 r2,r5,-32(fp) | ||
6285 | mull2 r0,r5 | ||
6286 | addl3 -28(fp),-32(fp),r0 | ||
6287 | bicl3 #0,r0,-28(fp) | ||
6288 | cmpl -28(fp),-32(fp) | ||
6289 | bgequ noname.596 | ||
6290 | addl2 #65536,r5 | ||
6291 | noname.596: | ||
6292 | movzwl -26(fp),r0 | ||
6293 | bicl2 #-65536,r0 | ||
6294 | addl2 r0,r5 | ||
6295 | bicl3 #-65536,-28(fp),r0 | ||
6296 | ashl #16,r0,-32(fp) | ||
6297 | addl2 -32(fp),r6 | ||
6298 | bicl2 #0,r6 | ||
6299 | cmpl r6,-32(fp) | ||
6300 | bgequ noname.597 | ||
6301 | incl r5 | ||
6302 | noname.597: | ||
6303 | movl r6,r3 | ||
6304 | movl r5,r2 | ||
6305 | bbc #31,r2,noname.598 | ||
6306 | incl r9 | ||
6307 | noname.598: | ||
6308 | addl2 r2,r2 | ||
6309 | bicl2 #0,r2 | ||
6310 | bbc #31,r3,noname.599 | ||
6311 | incl r2 | ||
6312 | noname.599: | ||
6313 | addl2 r3,r3 | ||
6314 | bicl2 #0,r3 | ||
6315 | addl2 r3,r8 | ||
6316 | bicl2 #0,r8 | ||
6317 | cmpl r8,r3 | ||
6318 | bgequ noname.600 | ||
6319 | incl r2 | ||
6320 | bicl3 #0,r2,r0 | ||
6321 | bneq noname.600 | ||
6322 | incl r9 | ||
6323 | noname.600: | ||
6324 | addl2 r2,r10 | ||
6325 | bicl2 #0,r10 | ||
6326 | cmpl r10,r2 | ||
6327 | bgequ noname.601 | ||
6328 | incl r9 | ||
6329 | noname.601: | ||
6330 | |||
6331 | movl 4(ap),r0 | ||
6332 | movl r8,16(r0) | ||
6333 | |||
6334 | clrl r8 | ||
6335 | |||
6336 | movl 8(ap),r0 | ||
6337 | bicl3 #-65536,12(r0),r3 | ||
6338 | movzwl 14(r0),r1 | ||
6339 | bicl2 #-65536,r1 | ||
6340 | bicl3 #-65536,8(r0),r2 | ||
6341 | movzwl 10(r0),r0 | ||
6342 | bicl2 #-65536,r0 | ||
6343 | movl r3,r5 | ||
6344 | movl r1,r4 | ||
6345 | mull3 r0,r5,-36(fp) | ||
6346 | mull2 r2,r5 | ||
6347 | mull3 r2,r4,-40(fp) | ||
6348 | mull2 r0,r4 | ||
6349 | addl3 -36(fp),-40(fp),r0 | ||
6350 | bicl3 #0,r0,-36(fp) | ||
6351 | cmpl -36(fp),-40(fp) | ||
6352 | bgequ noname.602 | ||
6353 | addl2 #65536,r4 | ||
6354 | noname.602: | ||
6355 | movzwl -34(fp),r0 | ||
6356 | bicl2 #-65536,r0 | ||
6357 | addl2 r0,r4 | ||
6358 | bicl3 #-65536,-36(fp),r0 | ||
6359 | ashl #16,r0,-40(fp) | ||
6360 | addl2 -40(fp),r5 | ||
6361 | bicl2 #0,r5 | ||
6362 | cmpl r5,-40(fp) | ||
6363 | bgequ noname.603 | ||
6364 | incl r4 | ||
6365 | noname.603: | ||
6366 | movl r5,r3 | ||
6367 | movl r4,r2 | ||
6368 | bbc #31,r2,noname.604 | ||
6369 | incl r8 | ||
6370 | noname.604: | ||
6371 | addl2 r2,r2 | ||
6372 | bicl2 #0,r2 | ||
6373 | bbc #31,r3,noname.605 | ||
6374 | incl r2 | ||
6375 | noname.605: | ||
6376 | addl2 r3,r3 | ||
6377 | bicl2 #0,r3 | ||
6378 | addl2 r3,r10 | ||
6379 | bicl2 #0,r10 | ||
6380 | cmpl r10,r3 | ||
6381 | bgequ noname.606 | ||
6382 | incl r2 | ||
6383 | bicl3 #0,r2,r0 | ||
6384 | bneq noname.606 | ||
6385 | incl r8 | ||
6386 | noname.606: | ||
6387 | addl2 r2,r9 | ||
6388 | bicl2 #0,r9 | ||
6389 | cmpl r9,r2 | ||
6390 | bgequ noname.607 | ||
6391 | incl r8 | ||
6392 | noname.607: | ||
6393 | |||
6394 | movl 4(ap),r4 | ||
6395 | movl r10,20(r4) | ||
6396 | |||
6397 | clrl r10 | ||
6398 | |||
6399 | movl 8(ap),r0 | ||
6400 | movl 12(r0),r3 | ||
6401 | bicl3 #-65536,r3,r5 | ||
6402 | extzv #16,#16,r3,r0 | ||
6403 | bicl3 #-65536,r0,r3 | ||
6404 | mull3 r5,r3,-44(fp) | ||
6405 | mull2 r5,r5 | ||
6406 | mull2 r3,r3 | ||
6407 | bicl3 #32767,-44(fp),r0 | ||
6408 | extzv #15,#17,r0,r0 | ||
6409 | addl2 r0,r3 | ||
6410 | bicl3 #-65536,-44(fp),r0 | ||
6411 | ashl #17,r0,-44(fp) | ||
6412 | addl2 -44(fp),r5 | ||
6413 | bicl2 #0,r5 | ||
6414 | cmpl r5,-44(fp) | ||
6415 | bgequ noname.608 | ||
6416 | incl r3 | ||
6417 | noname.608: | ||
6418 | movl r5,r1 | ||
6419 | movl r3,r2 | ||
6420 | addl2 r1,r9 | ||
6421 | bicl2 #0,r9 | ||
6422 | cmpl r9,r1 | ||
6423 | bgequ noname.609 | ||
6424 | incl r2 | ||
6425 | noname.609: | ||
6426 | addl2 r2,r8 | ||
6427 | bicl2 #0,r8 | ||
6428 | cmpl r8,r2 | ||
6429 | bgequ noname.610 | ||
6430 | incl r10 | ||
6431 | noname.610: | ||
6432 | |||
6433 | movl r9,24(r4) | ||
6434 | |||
6435 | movl r8,28(r4) | ||
6436 | |||
6437 | ret | ||
6438 | |||
6439 | ; For now, the code below doesn't work, so I end this prematurely. | ||
6440 | .end | ||
diff --git a/src/lib/libcrypto/bn/asm/x86/f b/src/lib/libcrypto/bn/asm/x86/f new file mode 100644 index 0000000000..22e4112224 --- /dev/null +++ b/src/lib/libcrypto/bn/asm/x86/f | |||
@@ -0,0 +1,3 @@ | |||
1 | #!/usr/local/bin/perl | ||
2 | # x86 assember | ||
3 | |||
diff --git a/src/lib/libcrypto/bn/bn.h b/src/lib/libcrypto/bn/bn.h index a0bc47837d..e484b7fc11 100644 --- a/src/lib/libcrypto/bn/bn.h +++ b/src/lib/libcrypto/bn/bn.h | |||
@@ -253,24 +253,6 @@ extern "C" { | |||
253 | #define BN_HEX_FMT2 "%08X" | 253 | #define BN_HEX_FMT2 "%08X" |
254 | #endif | 254 | #endif |
255 | 255 | ||
256 | /* 2011-02-22 SMS. | ||
257 | * In various places, a size_t variable or a type cast to size_t was | ||
258 | * used to perform integer-only operations on pointers. This failed on | ||
259 | * VMS with 64-bit pointers (CC /POINTER_SIZE = 64) because size_t is | ||
260 | * still only 32 bits. What's needed in these cases is an integer type | ||
261 | * with the same size as a pointer, which size_t is not certain to be. | ||
262 | * The only fix here is VMS-specific. | ||
263 | */ | ||
264 | #if defined(OPENSSL_SYS_VMS) | ||
265 | # if __INITIAL_POINTER_SIZE == 64 | ||
266 | # define PTR_SIZE_INT long long | ||
267 | # else /* __INITIAL_POINTER_SIZE == 64 */ | ||
268 | # define PTR_SIZE_INT int | ||
269 | # endif /* __INITIAL_POINTER_SIZE == 64 [else] */ | ||
270 | #else /* defined(OPENSSL_SYS_VMS) */ | ||
271 | # define PTR_SIZE_INT size_t | ||
272 | #endif /* defined(OPENSSL_SYS_VMS) [else] */ | ||
273 | |||
274 | #define BN_DEFAULT_BITS 1280 | 256 | #define BN_DEFAULT_BITS 1280 |
275 | 257 | ||
276 | #define BN_FLG_MALLOCED 0x01 | 258 | #define BN_FLG_MALLOCED 0x01 |
diff --git a/src/lib/libcrypto/bn/bn.mul b/src/lib/libcrypto/bn/bn.mul new file mode 100644 index 0000000000..9728870d38 --- /dev/null +++ b/src/lib/libcrypto/bn/bn.mul | |||
@@ -0,0 +1,19 @@ | |||
1 | We need | ||
2 | |||
3 | * bn_mul_comba8 | ||
4 | * bn_mul_comba4 | ||
5 | * bn_mul_normal | ||
6 | * bn_mul_recursive | ||
7 | |||
8 | * bn_sqr_comba8 | ||
9 | * bn_sqr_comba4 | ||
10 | bn_sqr_normal -> BN_sqr | ||
11 | * bn_sqr_recursive | ||
12 | |||
13 | * bn_mul_low_recursive | ||
14 | * bn_mul_low_normal | ||
15 | * bn_mul_high | ||
16 | |||
17 | * bn_mul_part_recursive # symetric but not power of 2 | ||
18 | |||
19 | bn_mul_asymetric_recursive # uneven, but do the chop up. | ||
diff --git a/src/lib/libcrypto/bn/bn_exp2.c b/src/lib/libcrypto/bn/bn_exp2.c index bd0c34b91b..b3f43cec8c 100644 --- a/src/lib/libcrypto/bn/bn_exp2.c +++ b/src/lib/libcrypto/bn/bn_exp2.c | |||
@@ -301,8 +301,7 @@ int BN_mod_exp2_mont(BIGNUM *rr, const BIGNUM *a1, const BIGNUM *p1, | |||
301 | r_is_one = 0; | 301 | r_is_one = 0; |
302 | } | 302 | } |
303 | } | 303 | } |
304 | if (!BN_from_montgomery(rr,r,mont,ctx)) | 304 | BN_from_montgomery(rr,r,mont,ctx); |
305 | goto err; | ||
306 | ret=1; | 305 | ret=1; |
307 | err: | 306 | err: |
308 | if ((in_mont == NULL) && (mont != NULL)) BN_MONT_CTX_free(mont); | 307 | if ((in_mont == NULL) && (mont != NULL)) BN_MONT_CTX_free(mont); |
diff --git a/src/lib/libcrypto/bn/bn_gf2m.c b/src/lib/libcrypto/bn/bn_gf2m.c index 432a3aa338..527b0fa15b 100644 --- a/src/lib/libcrypto/bn/bn_gf2m.c +++ b/src/lib/libcrypto/bn/bn_gf2m.c | |||
@@ -545,7 +545,6 @@ int BN_GF2m_mod_inv(BIGNUM *r, const BIGNUM *a, const BIGNUM *p, BN_CTX *ctx) | |||
545 | { | 545 | { |
546 | while (!BN_is_odd(u)) | 546 | while (!BN_is_odd(u)) |
547 | { | 547 | { |
548 | if (BN_is_zero(u)) goto err; | ||
549 | if (!BN_rshift1(u, u)) goto err; | 548 | if (!BN_rshift1(u, u)) goto err; |
550 | if (BN_is_odd(b)) | 549 | if (BN_is_odd(b)) |
551 | { | 550 | { |
diff --git a/src/lib/libcrypto/bn/bn_mont.c b/src/lib/libcrypto/bn/bn_mont.c index 1a866880f5..7224637ab3 100644 --- a/src/lib/libcrypto/bn/bn_mont.c +++ b/src/lib/libcrypto/bn/bn_mont.c | |||
@@ -277,7 +277,7 @@ static int BN_from_montgomery_word(BIGNUM *ret, BIGNUM *r, BN_MONT_CTX *mont) | |||
277 | m1|=m2; /* (al!=ri) */ | 277 | m1|=m2; /* (al!=ri) */ |
278 | m1|=(0-(size_t)v); /* (al!=ri || v) */ | 278 | m1|=(0-(size_t)v); /* (al!=ri || v) */ |
279 | m1&=~m2; /* (al!=ri || v) && !al>ri */ | 279 | m1&=~m2; /* (al!=ri || v) && !al>ri */ |
280 | nrp=(BN_ULONG *)(((PTR_SIZE_INT)rp&~m1)|((PTR_SIZE_INT)ap&m1)); | 280 | nrp=(BN_ULONG *)(((size_t)rp&~m1)|((size_t)ap&m1)); |
281 | } | 281 | } |
282 | 282 | ||
283 | /* 'i<ri' is chosen to eliminate dependency on input data, even | 283 | /* 'i<ri' is chosen to eliminate dependency on input data, even |
diff --git a/src/lib/libcrypto/bn/bn_mul.c b/src/lib/libcrypto/bn/bn_mul.c index 12e5be80eb..a0e9ec3b46 100644 --- a/src/lib/libcrypto/bn/bn_mul.c +++ b/src/lib/libcrypto/bn/bn_mul.c | |||
@@ -551,7 +551,7 @@ void bn_mul_part_recursive(BN_ULONG *r, BN_ULONG *a, BN_ULONG *b, int n, | |||
551 | int tna, int tnb, BN_ULONG *t) | 551 | int tna, int tnb, BN_ULONG *t) |
552 | { | 552 | { |
553 | int i,j,n2=n*2; | 553 | int i,j,n2=n*2; |
554 | int c1,c2,neg; | 554 | int c1,c2,neg,zero; |
555 | BN_ULONG ln,lo,*p; | 555 | BN_ULONG ln,lo,*p; |
556 | 556 | ||
557 | # ifdef BN_COUNT | 557 | # ifdef BN_COUNT |
@@ -567,7 +567,7 @@ void bn_mul_part_recursive(BN_ULONG *r, BN_ULONG *a, BN_ULONG *b, int n, | |||
567 | /* r=(a[0]-a[1])*(b[1]-b[0]) */ | 567 | /* r=(a[0]-a[1])*(b[1]-b[0]) */ |
568 | c1=bn_cmp_part_words(a,&(a[n]),tna,n-tna); | 568 | c1=bn_cmp_part_words(a,&(a[n]),tna,n-tna); |
569 | c2=bn_cmp_part_words(&(b[n]),b,tnb,tnb-n); | 569 | c2=bn_cmp_part_words(&(b[n]),b,tnb,tnb-n); |
570 | neg=0; | 570 | zero=neg=0; |
571 | switch (c1*3+c2) | 571 | switch (c1*3+c2) |
572 | { | 572 | { |
573 | case -4: | 573 | case -4: |
@@ -575,6 +575,7 @@ void bn_mul_part_recursive(BN_ULONG *r, BN_ULONG *a, BN_ULONG *b, int n, | |||
575 | bn_sub_part_words(&(t[n]),b, &(b[n]),tnb,n-tnb); /* - */ | 575 | bn_sub_part_words(&(t[n]),b, &(b[n]),tnb,n-tnb); /* - */ |
576 | break; | 576 | break; |
577 | case -3: | 577 | case -3: |
578 | zero=1; | ||
578 | /* break; */ | 579 | /* break; */ |
579 | case -2: | 580 | case -2: |
580 | bn_sub_part_words(t, &(a[n]),a, tna,tna-n); /* - */ | 581 | bn_sub_part_words(t, &(a[n]),a, tna,tna-n); /* - */ |
@@ -584,6 +585,7 @@ void bn_mul_part_recursive(BN_ULONG *r, BN_ULONG *a, BN_ULONG *b, int n, | |||
584 | case -1: | 585 | case -1: |
585 | case 0: | 586 | case 0: |
586 | case 1: | 587 | case 1: |
588 | zero=1; | ||
587 | /* break; */ | 589 | /* break; */ |
588 | case 2: | 590 | case 2: |
589 | bn_sub_part_words(t, a, &(a[n]),tna,n-tna); /* + */ | 591 | bn_sub_part_words(t, a, &(a[n]),tna,n-tna); /* + */ |
@@ -591,6 +593,7 @@ void bn_mul_part_recursive(BN_ULONG *r, BN_ULONG *a, BN_ULONG *b, int n, | |||
591 | neg=1; | 593 | neg=1; |
592 | break; | 594 | break; |
593 | case 3: | 595 | case 3: |
596 | zero=1; | ||
594 | /* break; */ | 597 | /* break; */ |
595 | case 4: | 598 | case 4: |
596 | bn_sub_part_words(t, a, &(a[n]),tna,n-tna); | 599 | bn_sub_part_words(t, a, &(a[n]),tna,n-tna); |
@@ -1009,6 +1012,7 @@ int BN_mul(BIGNUM *r, const BIGNUM *a, const BIGNUM *b, BN_CTX *ctx) | |||
1009 | { | 1012 | { |
1010 | if (i >= -1 && i <= 1) | 1013 | if (i >= -1 && i <= 1) |
1011 | { | 1014 | { |
1015 | int sav_j =0; | ||
1012 | /* Find out the power of two lower or equal | 1016 | /* Find out the power of two lower or equal |
1013 | to the longest of the two numbers */ | 1017 | to the longest of the two numbers */ |
1014 | if (i >= 0) | 1018 | if (i >= 0) |
@@ -1019,6 +1023,7 @@ int BN_mul(BIGNUM *r, const BIGNUM *a, const BIGNUM *b, BN_CTX *ctx) | |||
1019 | { | 1023 | { |
1020 | j = BN_num_bits_word((BN_ULONG)bl); | 1024 | j = BN_num_bits_word((BN_ULONG)bl); |
1021 | } | 1025 | } |
1026 | sav_j = j; | ||
1022 | j = 1<<(j-1); | 1027 | j = 1<<(j-1); |
1023 | assert(j <= al || j <= bl); | 1028 | assert(j <= al || j <= bl); |
1024 | k = j+j; | 1029 | k = j+j; |
diff --git a/src/lib/libcrypto/bn/bn_nist.c b/src/lib/libcrypto/bn/bn_nist.c index c6de032696..2ca5b01391 100644 --- a/src/lib/libcrypto/bn/bn_nist.c +++ b/src/lib/libcrypto/bn/bn_nist.c | |||
@@ -354,7 +354,7 @@ int BN_nist_mod_192(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
354 | buf[BN_NIST_192_TOP], | 354 | buf[BN_NIST_192_TOP], |
355 | c_d[BN_NIST_192_TOP], | 355 | c_d[BN_NIST_192_TOP], |
356 | *res; | 356 | *res; |
357 | PTR_SIZE_INT mask; | 357 | size_t mask; |
358 | static const BIGNUM _bignum_nist_p_192_sqr = { | 358 | static const BIGNUM _bignum_nist_p_192_sqr = { |
359 | (BN_ULONG *)_nist_p_192_sqr, | 359 | (BN_ULONG *)_nist_p_192_sqr, |
360 | sizeof(_nist_p_192_sqr)/sizeof(_nist_p_192_sqr[0]), | 360 | sizeof(_nist_p_192_sqr)/sizeof(_nist_p_192_sqr[0]), |
@@ -405,10 +405,9 @@ int BN_nist_mod_192(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
405 | * 'tmp=result-modulus; if (!carry || !borrow) result=tmp;' | 405 | * 'tmp=result-modulus; if (!carry || !borrow) result=tmp;' |
406 | * this is what happens below, but without explicit if:-) a. | 406 | * this is what happens below, but without explicit if:-) a. |
407 | */ | 407 | */ |
408 | mask = 0-(PTR_SIZE_INT)bn_sub_words(c_d,r_d,_nist_p_192[0],BN_NIST_192_TOP); | 408 | mask = 0-(size_t)bn_sub_words(c_d,r_d,_nist_p_192[0],BN_NIST_192_TOP); |
409 | mask &= 0-(PTR_SIZE_INT)carry; | 409 | mask &= 0-(size_t)carry; |
410 | res = (BN_ULONG *) | 410 | res = (BN_ULONG *)(((size_t)c_d&~mask) | ((size_t)r_d&mask)); |
411 | (((PTR_SIZE_INT)c_d&~mask) | ((PTR_SIZE_INT)r_d&mask)); | ||
412 | nist_cp_bn(r_d, res, BN_NIST_192_TOP); | 411 | nist_cp_bn(r_d, res, BN_NIST_192_TOP); |
413 | r->top = BN_NIST_192_TOP; | 412 | r->top = BN_NIST_192_TOP; |
414 | bn_correct_top(r); | 413 | bn_correct_top(r); |
@@ -439,8 +438,8 @@ int BN_nist_mod_224(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
439 | buf[BN_NIST_224_TOP], | 438 | buf[BN_NIST_224_TOP], |
440 | c_d[BN_NIST_224_TOP], | 439 | c_d[BN_NIST_224_TOP], |
441 | *res; | 440 | *res; |
442 | PTR_SIZE_INT mask; | 441 | size_t mask; |
443 | union { bn_addsub_f f; PTR_SIZE_INT p; } u; | 442 | union { bn_addsub_f f; size_t p; } u; |
444 | static const BIGNUM _bignum_nist_p_224_sqr = { | 443 | static const BIGNUM _bignum_nist_p_224_sqr = { |
445 | (BN_ULONG *)_nist_p_224_sqr, | 444 | (BN_ULONG *)_nist_p_224_sqr, |
446 | sizeof(_nist_p_224_sqr)/sizeof(_nist_p_224_sqr[0]), | 445 | sizeof(_nist_p_224_sqr)/sizeof(_nist_p_224_sqr[0]), |
@@ -511,18 +510,16 @@ int BN_nist_mod_224(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
511 | * to be compared to the modulus and conditionally | 510 | * to be compared to the modulus and conditionally |
512 | * adjusted by *subtracting* the latter. */ | 511 | * adjusted by *subtracting* the latter. */ |
513 | carry = (int)bn_add_words(r_d,r_d,_nist_p_224[-carry-1],BN_NIST_224_TOP); | 512 | carry = (int)bn_add_words(r_d,r_d,_nist_p_224[-carry-1],BN_NIST_224_TOP); |
514 | mask = 0-(PTR_SIZE_INT)carry; | 513 | mask = 0-(size_t)carry; |
515 | u.p = ((PTR_SIZE_INT)bn_sub_words&mask) | | 514 | u.p = ((size_t)bn_sub_words&mask) | ((size_t)bn_add_words&~mask); |
516 | ((PTR_SIZE_INT)bn_add_words&~mask); | ||
517 | } | 515 | } |
518 | else | 516 | else |
519 | carry = 1; | 517 | carry = 1; |
520 | 518 | ||
521 | /* otherwise it's effectively same as in BN_nist_mod_192... */ | 519 | /* otherwise it's effectively same as in BN_nist_mod_192... */ |
522 | mask = 0-(PTR_SIZE_INT)(*u.f)(c_d,r_d,_nist_p_224[0],BN_NIST_224_TOP); | 520 | mask = 0-(size_t)(*u.f)(c_d,r_d,_nist_p_224[0],BN_NIST_224_TOP); |
523 | mask &= 0-(PTR_SIZE_INT)carry; | 521 | mask &= 0-(size_t)carry; |
524 | res = (BN_ULONG *)(((PTR_SIZE_INT)c_d&~mask) | | 522 | res = (BN_ULONG *)(((size_t)c_d&~mask) | ((size_t)r_d&mask)); |
525 | ((PTR_SIZE_INT)r_d&mask)); | ||
526 | nist_cp_bn(r_d, res, BN_NIST_224_TOP); | 523 | nist_cp_bn(r_d, res, BN_NIST_224_TOP); |
527 | r->top = BN_NIST_224_TOP; | 524 | r->top = BN_NIST_224_TOP; |
528 | bn_correct_top(r); | 525 | bn_correct_top(r); |
@@ -552,8 +549,8 @@ int BN_nist_mod_256(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
552 | buf[BN_NIST_256_TOP], | 549 | buf[BN_NIST_256_TOP], |
553 | c_d[BN_NIST_256_TOP], | 550 | c_d[BN_NIST_256_TOP], |
554 | *res; | 551 | *res; |
555 | PTR_SIZE_INT mask; | 552 | size_t mask; |
556 | union { bn_addsub_f f; PTR_SIZE_INT p; } u; | 553 | union { bn_addsub_f f; size_t p; } u; |
557 | static const BIGNUM _bignum_nist_p_256_sqr = { | 554 | static const BIGNUM _bignum_nist_p_256_sqr = { |
558 | (BN_ULONG *)_nist_p_256_sqr, | 555 | (BN_ULONG *)_nist_p_256_sqr, |
559 | sizeof(_nist_p_256_sqr)/sizeof(_nist_p_256_sqr[0]), | 556 | sizeof(_nist_p_256_sqr)/sizeof(_nist_p_256_sqr[0]), |
@@ -632,17 +629,15 @@ int BN_nist_mod_256(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
632 | else if (carry < 0) | 629 | else if (carry < 0) |
633 | { | 630 | { |
634 | carry = (int)bn_add_words(r_d,r_d,_nist_p_256[-carry-1],BN_NIST_256_TOP); | 631 | carry = (int)bn_add_words(r_d,r_d,_nist_p_256[-carry-1],BN_NIST_256_TOP); |
635 | mask = 0-(PTR_SIZE_INT)carry; | 632 | mask = 0-(size_t)carry; |
636 | u.p = ((PTR_SIZE_INT)bn_sub_words&mask) | | 633 | u.p = ((size_t)bn_sub_words&mask) | ((size_t)bn_add_words&~mask); |
637 | ((PTR_SIZE_INT)bn_add_words&~mask); | ||
638 | } | 634 | } |
639 | else | 635 | else |
640 | carry = 1; | 636 | carry = 1; |
641 | 637 | ||
642 | mask = 0-(PTR_SIZE_INT)(*u.f)(c_d,r_d,_nist_p_256[0],BN_NIST_256_TOP); | 638 | mask = 0-(size_t)(*u.f)(c_d,r_d,_nist_p_256[0],BN_NIST_256_TOP); |
643 | mask &= 0-(PTR_SIZE_INT)carry; | 639 | mask &= 0-(size_t)carry; |
644 | res = (BN_ULONG *)(((PTR_SIZE_INT)c_d&~mask) | | 640 | res = (BN_ULONG *)(((size_t)c_d&~mask) | ((size_t)r_d&mask)); |
645 | ((PTR_SIZE_INT)r_d&mask)); | ||
646 | nist_cp_bn(r_d, res, BN_NIST_256_TOP); | 641 | nist_cp_bn(r_d, res, BN_NIST_256_TOP); |
647 | r->top = BN_NIST_256_TOP; | 642 | r->top = BN_NIST_256_TOP; |
648 | bn_correct_top(r); | 643 | bn_correct_top(r); |
@@ -676,8 +671,8 @@ int BN_nist_mod_384(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
676 | buf[BN_NIST_384_TOP], | 671 | buf[BN_NIST_384_TOP], |
677 | c_d[BN_NIST_384_TOP], | 672 | c_d[BN_NIST_384_TOP], |
678 | *res; | 673 | *res; |
679 | PTR_SIZE_INT mask; | 674 | size_t mask; |
680 | union { bn_addsub_f f; PTR_SIZE_INT p; } u; | 675 | union { bn_addsub_f f; size_t p; } u; |
681 | static const BIGNUM _bignum_nist_p_384_sqr = { | 676 | static const BIGNUM _bignum_nist_p_384_sqr = { |
682 | (BN_ULONG *)_nist_p_384_sqr, | 677 | (BN_ULONG *)_nist_p_384_sqr, |
683 | sizeof(_nist_p_384_sqr)/sizeof(_nist_p_384_sqr[0]), | 678 | sizeof(_nist_p_384_sqr)/sizeof(_nist_p_384_sqr[0]), |
@@ -759,17 +754,15 @@ int BN_nist_mod_384(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
759 | else if (carry < 0) | 754 | else if (carry < 0) |
760 | { | 755 | { |
761 | carry = (int)bn_add_words(r_d,r_d,_nist_p_384[-carry-1],BN_NIST_384_TOP); | 756 | carry = (int)bn_add_words(r_d,r_d,_nist_p_384[-carry-1],BN_NIST_384_TOP); |
762 | mask = 0-(PTR_SIZE_INT)carry; | 757 | mask = 0-(size_t)carry; |
763 | u.p = ((PTR_SIZE_INT)bn_sub_words&mask) | | 758 | u.p = ((size_t)bn_sub_words&mask) | ((size_t)bn_add_words&~mask); |
764 | ((PTR_SIZE_INT)bn_add_words&~mask); | ||
765 | } | 759 | } |
766 | else | 760 | else |
767 | carry = 1; | 761 | carry = 1; |
768 | 762 | ||
769 | mask = 0-(PTR_SIZE_INT)(*u.f)(c_d,r_d,_nist_p_384[0],BN_NIST_384_TOP); | 763 | mask = 0-(size_t)(*u.f)(c_d,r_d,_nist_p_384[0],BN_NIST_384_TOP); |
770 | mask &= 0-(PTR_SIZE_INT)carry; | 764 | mask &= 0-(size_t)carry; |
771 | res = (BN_ULONG *)(((PTR_SIZE_INT)c_d&~mask) | | 765 | res = (BN_ULONG *)(((size_t)c_d&~mask) | ((size_t)r_d&mask)); |
772 | ((PTR_SIZE_INT)r_d&mask)); | ||
773 | nist_cp_bn(r_d, res, BN_NIST_384_TOP); | 766 | nist_cp_bn(r_d, res, BN_NIST_384_TOP); |
774 | r->top = BN_NIST_384_TOP; | 767 | r->top = BN_NIST_384_TOP; |
775 | bn_correct_top(r); | 768 | bn_correct_top(r); |
@@ -788,7 +781,7 @@ int BN_nist_mod_521(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
788 | BN_ULONG *r_d, *a_d = a->d, | 781 | BN_ULONG *r_d, *a_d = a->d, |
789 | t_d[BN_NIST_521_TOP], | 782 | t_d[BN_NIST_521_TOP], |
790 | val,tmp,*res; | 783 | val,tmp,*res; |
791 | PTR_SIZE_INT mask; | 784 | size_t mask; |
792 | static const BIGNUM _bignum_nist_p_521_sqr = { | 785 | static const BIGNUM _bignum_nist_p_521_sqr = { |
793 | (BN_ULONG *)_nist_p_521_sqr, | 786 | (BN_ULONG *)_nist_p_521_sqr, |
794 | sizeof(_nist_p_521_sqr)/sizeof(_nist_p_521_sqr[0]), | 787 | sizeof(_nist_p_521_sqr)/sizeof(_nist_p_521_sqr[0]), |
@@ -833,9 +826,8 @@ int BN_nist_mod_521(BIGNUM *r, const BIGNUM *a, const BIGNUM *field, | |||
833 | r_d[i] &= BN_NIST_521_TOP_MASK; | 826 | r_d[i] &= BN_NIST_521_TOP_MASK; |
834 | 827 | ||
835 | bn_add_words(r_d,r_d,t_d,BN_NIST_521_TOP); | 828 | bn_add_words(r_d,r_d,t_d,BN_NIST_521_TOP); |
836 | mask = 0-(PTR_SIZE_INT)bn_sub_words(t_d,r_d,_nist_p_521,BN_NIST_521_TOP); | 829 | mask = 0-(size_t)bn_sub_words(t_d,r_d,_nist_p_521,BN_NIST_521_TOP); |
837 | res = (BN_ULONG *)(((PTR_SIZE_INT)t_d&~mask) | | 830 | res = (BN_ULONG *)(((size_t)t_d&~mask) | ((size_t)r_d&mask)); |
838 | ((PTR_SIZE_INT)r_d&mask)); | ||
839 | nist_cp_bn(r_d,res,BN_NIST_521_TOP); | 831 | nist_cp_bn(r_d,res,BN_NIST_521_TOP); |
840 | r->top = BN_NIST_521_TOP; | 832 | r->top = BN_NIST_521_TOP; |
841 | bn_correct_top(r); | 833 | bn_correct_top(r); |
diff --git a/src/lib/libcrypto/bn/bn_x931p.c b/src/lib/libcrypto/bn/bn_x931p.c deleted file mode 100644 index 04c5c874ec..0000000000 --- a/src/lib/libcrypto/bn/bn_x931p.c +++ /dev/null | |||
@@ -1,272 +0,0 @@ | |||
1 | /* bn_x931p.c */ | ||
2 | /* Written by Dr Stephen N Henson (steve@openssl.org) for the OpenSSL | ||
3 | * project 2005. | ||
4 | */ | ||
5 | /* ==================================================================== | ||
6 | * Copyright (c) 2005 The OpenSSL Project. All rights reserved. | ||
7 | * | ||
8 | * Redistribution and use in source and binary forms, with or without | ||
9 | * modification, are permitted provided that the following conditions | ||
10 | * are met: | ||
11 | * | ||
12 | * 1. Redistributions of source code must retain the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer. | ||
14 | * | ||
15 | * 2. Redistributions in binary form must reproduce the above copyright | ||
16 | * notice, this list of conditions and the following disclaimer in | ||
17 | * the documentation and/or other materials provided with the | ||
18 | * distribution. | ||
19 | * | ||
20 | * 3. All advertising materials mentioning features or use of this | ||
21 | * software must display the following acknowledgment: | ||
22 | * "This product includes software developed by the OpenSSL Project | ||
23 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
24 | * | ||
25 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
26 | * endorse or promote products derived from this software without | ||
27 | * prior written permission. For written permission, please contact | ||
28 | * licensing@OpenSSL.org. | ||
29 | * | ||
30 | * 5. Products derived from this software may not be called "OpenSSL" | ||
31 | * nor may "OpenSSL" appear in their names without prior written | ||
32 | * permission of the OpenSSL Project. | ||
33 | * | ||
34 | * 6. Redistributions of any form whatsoever must retain the following | ||
35 | * acknowledgment: | ||
36 | * "This product includes software developed by the OpenSSL Project | ||
37 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
38 | * | ||
39 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
40 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
41 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
42 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
43 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
44 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
45 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
46 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
47 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
48 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
49 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
50 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
51 | * ==================================================================== | ||
52 | * | ||
53 | * This product includes cryptographic software written by Eric Young | ||
54 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
55 | * Hudson (tjh@cryptsoft.com). | ||
56 | * | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <openssl/bn.h> | ||
61 | |||
62 | /* X9.31 routines for prime derivation */ | ||
63 | |||
64 | /* X9.31 prime derivation. This is used to generate the primes pi | ||
65 | * (p1, p2, q1, q2) from a parameter Xpi by checking successive odd | ||
66 | * integers. | ||
67 | */ | ||
68 | |||
69 | static int bn_x931_derive_pi(BIGNUM *pi, const BIGNUM *Xpi, BN_CTX *ctx, | ||
70 | BN_GENCB *cb) | ||
71 | { | ||
72 | int i = 0; | ||
73 | if (!BN_copy(pi, Xpi)) | ||
74 | return 0; | ||
75 | if (!BN_is_odd(pi) && !BN_add_word(pi, 1)) | ||
76 | return 0; | ||
77 | for(;;) | ||
78 | { | ||
79 | i++; | ||
80 | BN_GENCB_call(cb, 0, i); | ||
81 | /* NB 27 MR is specificed in X9.31 */ | ||
82 | if (BN_is_prime_fasttest_ex(pi, 27, ctx, 1, cb)) | ||
83 | break; | ||
84 | if (!BN_add_word(pi, 2)) | ||
85 | return 0; | ||
86 | } | ||
87 | BN_GENCB_call(cb, 2, i); | ||
88 | return 1; | ||
89 | } | ||
90 | |||
91 | /* This is the main X9.31 prime derivation function. From parameters | ||
92 | * Xp1, Xp2 and Xp derive the prime p. If the parameters p1 or p2 are | ||
93 | * not NULL they will be returned too: this is needed for testing. | ||
94 | */ | ||
95 | |||
96 | int BN_X931_derive_prime_ex(BIGNUM *p, BIGNUM *p1, BIGNUM *p2, | ||
97 | const BIGNUM *Xp, const BIGNUM *Xp1, const BIGNUM *Xp2, | ||
98 | const BIGNUM *e, BN_CTX *ctx, BN_GENCB *cb) | ||
99 | { | ||
100 | int ret = 0; | ||
101 | |||
102 | BIGNUM *t, *p1p2, *pm1; | ||
103 | |||
104 | /* Only even e supported */ | ||
105 | if (!BN_is_odd(e)) | ||
106 | return 0; | ||
107 | |||
108 | BN_CTX_start(ctx); | ||
109 | if (!p1) | ||
110 | p1 = BN_CTX_get(ctx); | ||
111 | |||
112 | if (!p2) | ||
113 | p2 = BN_CTX_get(ctx); | ||
114 | |||
115 | t = BN_CTX_get(ctx); | ||
116 | |||
117 | p1p2 = BN_CTX_get(ctx); | ||
118 | |||
119 | pm1 = BN_CTX_get(ctx); | ||
120 | |||
121 | if (!bn_x931_derive_pi(p1, Xp1, ctx, cb)) | ||
122 | goto err; | ||
123 | |||
124 | if (!bn_x931_derive_pi(p2, Xp2, ctx, cb)) | ||
125 | goto err; | ||
126 | |||
127 | if (!BN_mul(p1p2, p1, p2, ctx)) | ||
128 | goto err; | ||
129 | |||
130 | /* First set p to value of Rp */ | ||
131 | |||
132 | if (!BN_mod_inverse(p, p2, p1, ctx)) | ||
133 | goto err; | ||
134 | |||
135 | if (!BN_mul(p, p, p2, ctx)) | ||
136 | goto err; | ||
137 | |||
138 | if (!BN_mod_inverse(t, p1, p2, ctx)) | ||
139 | goto err; | ||
140 | |||
141 | if (!BN_mul(t, t, p1, ctx)) | ||
142 | goto err; | ||
143 | |||
144 | if (!BN_sub(p, p, t)) | ||
145 | goto err; | ||
146 | |||
147 | if (p->neg && !BN_add(p, p, p1p2)) | ||
148 | goto err; | ||
149 | |||
150 | /* p now equals Rp */ | ||
151 | |||
152 | if (!BN_mod_sub(p, p, Xp, p1p2, ctx)) | ||
153 | goto err; | ||
154 | |||
155 | if (!BN_add(p, p, Xp)) | ||
156 | goto err; | ||
157 | |||
158 | /* p now equals Yp0 */ | ||
159 | |||
160 | for (;;) | ||
161 | { | ||
162 | int i = 1; | ||
163 | BN_GENCB_call(cb, 0, i++); | ||
164 | if (!BN_copy(pm1, p)) | ||
165 | goto err; | ||
166 | if (!BN_sub_word(pm1, 1)) | ||
167 | goto err; | ||
168 | if (!BN_gcd(t, pm1, e, ctx)) | ||
169 | goto err; | ||
170 | if (BN_is_one(t) | ||
171 | /* X9.31 specifies 8 MR and 1 Lucas test or any prime test | ||
172 | * offering similar or better guarantees 50 MR is considerably | ||
173 | * better. | ||
174 | */ | ||
175 | && BN_is_prime_fasttest_ex(p, 50, ctx, 1, cb)) | ||
176 | break; | ||
177 | if (!BN_add(p, p, p1p2)) | ||
178 | goto err; | ||
179 | } | ||
180 | |||
181 | BN_GENCB_call(cb, 3, 0); | ||
182 | |||
183 | ret = 1; | ||
184 | |||
185 | err: | ||
186 | |||
187 | BN_CTX_end(ctx); | ||
188 | |||
189 | return ret; | ||
190 | } | ||
191 | |||
192 | /* Generate pair of paramters Xp, Xq for X9.31 prime generation. | ||
193 | * Note: nbits paramter is sum of number of bits in both. | ||
194 | */ | ||
195 | |||
196 | int BN_X931_generate_Xpq(BIGNUM *Xp, BIGNUM *Xq, int nbits, BN_CTX *ctx) | ||
197 | { | ||
198 | BIGNUM *t; | ||
199 | int i; | ||
200 | /* Number of bits for each prime is of the form | ||
201 | * 512+128s for s = 0, 1, ... | ||
202 | */ | ||
203 | if ((nbits < 1024) || (nbits & 0xff)) | ||
204 | return 0; | ||
205 | nbits >>= 1; | ||
206 | /* The random value Xp must be between sqrt(2) * 2^(nbits-1) and | ||
207 | * 2^nbits - 1. By setting the top two bits we ensure that the lower | ||
208 | * bound is exceeded. | ||
209 | */ | ||
210 | if (!BN_rand(Xp, nbits, 1, 0)) | ||
211 | return 0; | ||
212 | |||
213 | BN_CTX_start(ctx); | ||
214 | t = BN_CTX_get(ctx); | ||
215 | |||
216 | for (i = 0; i < 1000; i++) | ||
217 | { | ||
218 | if (!BN_rand(Xq, nbits, 1, 0)) | ||
219 | return 0; | ||
220 | /* Check that |Xp - Xq| > 2^(nbits - 100) */ | ||
221 | BN_sub(t, Xp, Xq); | ||
222 | if (BN_num_bits(t) > (nbits - 100)) | ||
223 | break; | ||
224 | } | ||
225 | |||
226 | BN_CTX_end(ctx); | ||
227 | |||
228 | if (i < 1000) | ||
229 | return 1; | ||
230 | |||
231 | return 0; | ||
232 | |||
233 | } | ||
234 | |||
235 | /* Generate primes using X9.31 algorithm. Of the values p, p1, p2, Xp1 | ||
236 | * and Xp2 only 'p' needs to be non-NULL. If any of the others are not NULL | ||
237 | * the relevant parameter will be stored in it. | ||
238 | * | ||
239 | * Due to the fact that |Xp - Xq| > 2^(nbits - 100) must be satisfied Xp and Xq | ||
240 | * are generated using the previous function and supplied as input. | ||
241 | */ | ||
242 | |||
243 | int BN_X931_generate_prime_ex(BIGNUM *p, BIGNUM *p1, BIGNUM *p2, | ||
244 | BIGNUM *Xp1, BIGNUM *Xp2, | ||
245 | const BIGNUM *Xp, | ||
246 | const BIGNUM *e, BN_CTX *ctx, | ||
247 | BN_GENCB *cb) | ||
248 | { | ||
249 | int ret = 0; | ||
250 | |||
251 | BN_CTX_start(ctx); | ||
252 | if (!Xp1) | ||
253 | Xp1 = BN_CTX_get(ctx); | ||
254 | if (!Xp2) | ||
255 | Xp2 = BN_CTX_get(ctx); | ||
256 | |||
257 | if (!BN_rand(Xp1, 101, 0, 0)) | ||
258 | goto error; | ||
259 | if (!BN_rand(Xp2, 101, 0, 0)) | ||
260 | goto error; | ||
261 | if (!BN_X931_derive_prime_ex(p, p1, p2, Xp, Xp1, Xp2, e, ctx, cb)) | ||
262 | goto error; | ||
263 | |||
264 | ret = 1; | ||
265 | |||
266 | error: | ||
267 | BN_CTX_end(ctx); | ||
268 | |||
269 | return ret; | ||
270 | |||
271 | } | ||
272 | |||
diff --git a/src/lib/libcrypto/bn/bnspeed.c b/src/lib/libcrypto/bn/bnspeed.c new file mode 100644 index 0000000000..b554ac8cf8 --- /dev/null +++ b/src/lib/libcrypto/bn/bnspeed.c | |||
@@ -0,0 +1,233 @@ | |||
1 | /* unused */ | ||
2 | |||
3 | /* crypto/bn/bnspeed.c */ | ||
4 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * This package is an SSL implementation written | ||
8 | * by Eric Young (eay@cryptsoft.com). | ||
9 | * The implementation was written so as to conform with Netscapes SSL. | ||
10 | * | ||
11 | * This library is free for commercial and non-commercial use as long as | ||
12 | * the following conditions are aheared to. The following conditions | ||
13 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
14 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
15 | * included with this distribution is covered by the same copyright terms | ||
16 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
17 | * | ||
18 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
19 | * the code are not to be removed. | ||
20 | * If this package is used in a product, Eric Young should be given attribution | ||
21 | * as the author of the parts of the library used. | ||
22 | * This can be in the form of a textual message at program startup or | ||
23 | * in documentation (online or textual) provided with the package. | ||
24 | * | ||
25 | * Redistribution and use in source and binary forms, with or without | ||
26 | * modification, are permitted provided that the following conditions | ||
27 | * are met: | ||
28 | * 1. Redistributions of source code must retain the copyright | ||
29 | * notice, this list of conditions and the following disclaimer. | ||
30 | * 2. Redistributions in binary form must reproduce the above copyright | ||
31 | * notice, this list of conditions and the following disclaimer in the | ||
32 | * documentation and/or other materials provided with the distribution. | ||
33 | * 3. All advertising materials mentioning features or use of this software | ||
34 | * must display the following acknowledgement: | ||
35 | * "This product includes cryptographic software written by | ||
36 | * Eric Young (eay@cryptsoft.com)" | ||
37 | * The word 'cryptographic' can be left out if the rouines from the library | ||
38 | * being used are not cryptographic related :-). | ||
39 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
40 | * the apps directory (application code) you must include an acknowledgement: | ||
41 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
42 | * | ||
43 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
44 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
45 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
46 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
47 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
48 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
49 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
50 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
51 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
52 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
53 | * SUCH DAMAGE. | ||
54 | * | ||
55 | * The licence and distribution terms for any publically available version or | ||
56 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
57 | * copied and put under another distribution licence | ||
58 | * [including the GNU Public Licence.] | ||
59 | */ | ||
60 | |||
61 | /* most of this code has been pilfered from my libdes speed.c program */ | ||
62 | |||
63 | #define BASENUM 1000000 | ||
64 | #undef PROG | ||
65 | #define PROG bnspeed_main | ||
66 | |||
67 | #include <stdio.h> | ||
68 | #include <stdlib.h> | ||
69 | #include <signal.h> | ||
70 | #include <string.h> | ||
71 | #include <openssl/crypto.h> | ||
72 | #include <openssl/err.h> | ||
73 | |||
74 | #if !defined(OPENSSL_SYS_MSDOS) && (!defined(OPENSSL_SYS_VMS) || defined(__DECC)) && !defined(OPENSSL_SYS_MACOSX) | ||
75 | #define TIMES | ||
76 | #endif | ||
77 | |||
78 | #ifndef _IRIX | ||
79 | #include <time.h> | ||
80 | #endif | ||
81 | #ifdef TIMES | ||
82 | #include <sys/types.h> | ||
83 | #include <sys/times.h> | ||
84 | #endif | ||
85 | |||
86 | /* Depending on the VMS version, the tms structure is perhaps defined. | ||
87 | The __TMS macro will show if it was. If it wasn't defined, we should | ||
88 | undefine TIMES, since that tells the rest of the program how things | ||
89 | should be handled. -- Richard Levitte */ | ||
90 | #if defined(OPENSSL_SYS_VMS_DECC) && !defined(__TMS) | ||
91 | #undef TIMES | ||
92 | #endif | ||
93 | |||
94 | #ifndef TIMES | ||
95 | #include <sys/timeb.h> | ||
96 | #endif | ||
97 | |||
98 | #if defined(sun) || defined(__ultrix) | ||
99 | #define _POSIX_SOURCE | ||
100 | #include <limits.h> | ||
101 | #include <sys/param.h> | ||
102 | #endif | ||
103 | |||
104 | #include <openssl/bn.h> | ||
105 | #include <openssl/x509.h> | ||
106 | |||
107 | /* The following if from times(3) man page. It may need to be changed */ | ||
108 | #ifndef HZ | ||
109 | # ifndef CLK_TCK | ||
110 | # ifndef _BSD_CLK_TCK_ /* FreeBSD hack */ | ||
111 | # define HZ 100.0 | ||
112 | # else /* _BSD_CLK_TCK_ */ | ||
113 | # define HZ ((double)_BSD_CLK_TCK_) | ||
114 | # endif | ||
115 | # else /* CLK_TCK */ | ||
116 | # define HZ ((double)CLK_TCK) | ||
117 | # endif | ||
118 | #endif | ||
119 | |||
120 | #undef BUFSIZE | ||
121 | #define BUFSIZE ((long)1024*8) | ||
122 | int run=0; | ||
123 | |||
124 | static double Time_F(int s); | ||
125 | #define START 0 | ||
126 | #define STOP 1 | ||
127 | |||
128 | static double Time_F(int s) | ||
129 | { | ||
130 | double ret; | ||
131 | #ifdef TIMES | ||
132 | static struct tms tstart,tend; | ||
133 | |||
134 | if (s == START) | ||
135 | { | ||
136 | times(&tstart); | ||
137 | return(0); | ||
138 | } | ||
139 | else | ||
140 | { | ||
141 | times(&tend); | ||
142 | ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ; | ||
143 | return((ret < 1e-3)?1e-3:ret); | ||
144 | } | ||
145 | #else /* !times() */ | ||
146 | static struct timeb tstart,tend; | ||
147 | long i; | ||
148 | |||
149 | if (s == START) | ||
150 | { | ||
151 | ftime(&tstart); | ||
152 | return(0); | ||
153 | } | ||
154 | else | ||
155 | { | ||
156 | ftime(&tend); | ||
157 | i=(long)tend.millitm-(long)tstart.millitm; | ||
158 | ret=((double)(tend.time-tstart.time))+((double)i)/1000.0; | ||
159 | return((ret < 0.001)?0.001:ret); | ||
160 | } | ||
161 | #endif | ||
162 | } | ||
163 | |||
164 | #define NUM_SIZES 5 | ||
165 | static int sizes[NUM_SIZES]={128,256,512,1024,2048}; | ||
166 | /*static int sizes[NUM_SIZES]={59,179,299,419,539}; */ | ||
167 | |||
168 | void do_mul(BIGNUM *r,BIGNUM *a,BIGNUM *b,BN_CTX *ctx); | ||
169 | |||
170 | int main(int argc, char **argv) | ||
171 | { | ||
172 | BN_CTX *ctx; | ||
173 | BIGNUM a,b,c; | ||
174 | |||
175 | ctx=BN_CTX_new(); | ||
176 | BN_init(&a); | ||
177 | BN_init(&b); | ||
178 | BN_init(&c); | ||
179 | |||
180 | do_mul(&a,&b,&c,ctx); | ||
181 | } | ||
182 | |||
183 | void do_mul(BIGNUM *r, BIGNUM *a, BIGNUM *b, BN_CTX *ctx) | ||
184 | { | ||
185 | int i,j,k; | ||
186 | double tm; | ||
187 | long num; | ||
188 | |||
189 | for (i=0; i<NUM_SIZES; i++) | ||
190 | { | ||
191 | num=BASENUM; | ||
192 | if (i) num/=(i*3); | ||
193 | BN_rand(a,sizes[i],1,0); | ||
194 | for (j=i; j<NUM_SIZES; j++) | ||
195 | { | ||
196 | BN_rand(b,sizes[j],1,0); | ||
197 | Time_F(START); | ||
198 | for (k=0; k<num; k++) | ||
199 | BN_mul(r,b,a,ctx); | ||
200 | tm=Time_F(STOP); | ||
201 | printf("mul %4d x %4d -> %8.3fms\n",sizes[i],sizes[j],tm*1000.0/num); | ||
202 | } | ||
203 | } | ||
204 | |||
205 | for (i=0; i<NUM_SIZES; i++) | ||
206 | { | ||
207 | num=BASENUM; | ||
208 | if (i) num/=(i*3); | ||
209 | BN_rand(a,sizes[i],1,0); | ||
210 | Time_F(START); | ||
211 | for (k=0; k<num; k++) | ||
212 | BN_sqr(r,a,ctx); | ||
213 | tm=Time_F(STOP); | ||
214 | printf("sqr %4d x %4d -> %8.3fms\n",sizes[i],sizes[i],tm*1000.0/num); | ||
215 | } | ||
216 | |||
217 | for (i=0; i<NUM_SIZES; i++) | ||
218 | { | ||
219 | num=BASENUM/10; | ||
220 | if (i) num/=(i*3); | ||
221 | BN_rand(a,sizes[i]-1,1,0); | ||
222 | for (j=i; j<NUM_SIZES; j++) | ||
223 | { | ||
224 | BN_rand(b,sizes[j],1,0); | ||
225 | Time_F(START); | ||
226 | for (k=0; k<100000; k++) | ||
227 | BN_div(r, NULL, b, a,ctx); | ||
228 | tm=Time_F(STOP); | ||
229 | printf("div %4d / %4d -> %8.3fms\n",sizes[j],sizes[i]-1,tm*1000.0/num); | ||
230 | } | ||
231 | } | ||
232 | } | ||
233 | |||
diff --git a/src/lib/libcrypto/bn/bntest.c b/src/lib/libcrypto/bn/bntest.c new file mode 100644 index 0000000000..0cd99c5b4b --- /dev/null +++ b/src/lib/libcrypto/bn/bntest.c | |||
@@ -0,0 +1,2013 @@ | |||
1 | /* crypto/bn/bntest.c */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | /* ==================================================================== | ||
59 | * Copyright 2002 Sun Microsystems, Inc. ALL RIGHTS RESERVED. | ||
60 | * | ||
61 | * Portions of the attached software ("Contribution") are developed by | ||
62 | * SUN MICROSYSTEMS, INC., and are contributed to the OpenSSL project. | ||
63 | * | ||
64 | * The Contribution is licensed pursuant to the Eric Young open source | ||
65 | * license provided above. | ||
66 | * | ||
67 | * The binary polynomial arithmetic software is originally written by | ||
68 | * Sheueling Chang Shantz and Douglas Stebila of Sun Microsystems Laboratories. | ||
69 | * | ||
70 | */ | ||
71 | |||
72 | /* Until the key-gen callbacks are modified to use newer prototypes, we allow | ||
73 | * deprecated functions for openssl-internal code */ | ||
74 | #ifdef OPENSSL_NO_DEPRECATED | ||
75 | #undef OPENSSL_NO_DEPRECATED | ||
76 | #endif | ||
77 | |||
78 | #include <stdio.h> | ||
79 | #include <stdlib.h> | ||
80 | #include <string.h> | ||
81 | |||
82 | #include "e_os.h" | ||
83 | |||
84 | #include <openssl/bio.h> | ||
85 | #include <openssl/bn.h> | ||
86 | #include <openssl/rand.h> | ||
87 | #include <openssl/x509.h> | ||
88 | #include <openssl/err.h> | ||
89 | |||
90 | const int num0 = 100; /* number of tests */ | ||
91 | const int num1 = 50; /* additional tests for some functions */ | ||
92 | const int num2 = 5; /* number of tests for slow functions */ | ||
93 | |||
94 | int test_add(BIO *bp); | ||
95 | int test_sub(BIO *bp); | ||
96 | int test_lshift1(BIO *bp); | ||
97 | int test_lshift(BIO *bp,BN_CTX *ctx,BIGNUM *a_); | ||
98 | int test_rshift1(BIO *bp); | ||
99 | int test_rshift(BIO *bp,BN_CTX *ctx); | ||
100 | int test_div(BIO *bp,BN_CTX *ctx); | ||
101 | int test_div_word(BIO *bp); | ||
102 | int test_div_recp(BIO *bp,BN_CTX *ctx); | ||
103 | int test_mul(BIO *bp); | ||
104 | int test_sqr(BIO *bp,BN_CTX *ctx); | ||
105 | int test_mont(BIO *bp,BN_CTX *ctx); | ||
106 | int test_mod(BIO *bp,BN_CTX *ctx); | ||
107 | int test_mod_mul(BIO *bp,BN_CTX *ctx); | ||
108 | int test_mod_exp(BIO *bp,BN_CTX *ctx); | ||
109 | int test_mod_exp_mont_consttime(BIO *bp,BN_CTX *ctx); | ||
110 | int test_exp(BIO *bp,BN_CTX *ctx); | ||
111 | int test_gf2m_add(BIO *bp); | ||
112 | int test_gf2m_mod(BIO *bp); | ||
113 | int test_gf2m_mod_mul(BIO *bp,BN_CTX *ctx); | ||
114 | int test_gf2m_mod_sqr(BIO *bp,BN_CTX *ctx); | ||
115 | int test_gf2m_mod_inv(BIO *bp,BN_CTX *ctx); | ||
116 | int test_gf2m_mod_div(BIO *bp,BN_CTX *ctx); | ||
117 | int test_gf2m_mod_exp(BIO *bp,BN_CTX *ctx); | ||
118 | int test_gf2m_mod_sqrt(BIO *bp,BN_CTX *ctx); | ||
119 | int test_gf2m_mod_solve_quad(BIO *bp,BN_CTX *ctx); | ||
120 | int test_kron(BIO *bp,BN_CTX *ctx); | ||
121 | int test_sqrt(BIO *bp,BN_CTX *ctx); | ||
122 | int rand_neg(void); | ||
123 | static int results=0; | ||
124 | |||
125 | static unsigned char lst[]="\xC6\x4F\x43\x04\x2A\xEA\xCA\x6E\x58\x36\x80\x5B\xE8\xC9" | ||
126 | "\x9B\x04\x5D\x48\x36\xC2\xFD\x16\xC9\x64\xF0"; | ||
127 | |||
128 | static const char rnd_seed[] = "string to make the random number generator think it has entropy"; | ||
129 | |||
130 | static void message(BIO *out, char *m) | ||
131 | { | ||
132 | fprintf(stderr, "test %s\n", m); | ||
133 | BIO_puts(out, "print \"test "); | ||
134 | BIO_puts(out, m); | ||
135 | BIO_puts(out, "\\n\"\n"); | ||
136 | } | ||
137 | |||
138 | int main(int argc, char *argv[]) | ||
139 | { | ||
140 | BN_CTX *ctx; | ||
141 | BIO *out; | ||
142 | char *outfile=NULL; | ||
143 | |||
144 | results = 0; | ||
145 | |||
146 | RAND_seed(rnd_seed, sizeof rnd_seed); /* or BN_generate_prime may fail */ | ||
147 | |||
148 | argc--; | ||
149 | argv++; | ||
150 | while (argc >= 1) | ||
151 | { | ||
152 | if (strcmp(*argv,"-results") == 0) | ||
153 | results=1; | ||
154 | else if (strcmp(*argv,"-out") == 0) | ||
155 | { | ||
156 | if (--argc < 1) break; | ||
157 | outfile= *(++argv); | ||
158 | } | ||
159 | argc--; | ||
160 | argv++; | ||
161 | } | ||
162 | |||
163 | |||
164 | ctx=BN_CTX_new(); | ||
165 | if (ctx == NULL) EXIT(1); | ||
166 | |||
167 | out=BIO_new(BIO_s_file()); | ||
168 | if (out == NULL) EXIT(1); | ||
169 | if (outfile == NULL) | ||
170 | { | ||
171 | BIO_set_fp(out,stdout,BIO_NOCLOSE); | ||
172 | } | ||
173 | else | ||
174 | { | ||
175 | if (!BIO_write_filename(out,outfile)) | ||
176 | { | ||
177 | perror(outfile); | ||
178 | EXIT(1); | ||
179 | } | ||
180 | } | ||
181 | |||
182 | if (!results) | ||
183 | BIO_puts(out,"obase=16\nibase=16\n"); | ||
184 | |||
185 | message(out,"BN_add"); | ||
186 | if (!test_add(out)) goto err; | ||
187 | (void)BIO_flush(out); | ||
188 | |||
189 | message(out,"BN_sub"); | ||
190 | if (!test_sub(out)) goto err; | ||
191 | (void)BIO_flush(out); | ||
192 | |||
193 | message(out,"BN_lshift1"); | ||
194 | if (!test_lshift1(out)) goto err; | ||
195 | (void)BIO_flush(out); | ||
196 | |||
197 | message(out,"BN_lshift (fixed)"); | ||
198 | if (!test_lshift(out,ctx,BN_bin2bn(lst,sizeof(lst)-1,NULL))) | ||
199 | goto err; | ||
200 | (void)BIO_flush(out); | ||
201 | |||
202 | message(out,"BN_lshift"); | ||
203 | if (!test_lshift(out,ctx,NULL)) goto err; | ||
204 | (void)BIO_flush(out); | ||
205 | |||
206 | message(out,"BN_rshift1"); | ||
207 | if (!test_rshift1(out)) goto err; | ||
208 | (void)BIO_flush(out); | ||
209 | |||
210 | message(out,"BN_rshift"); | ||
211 | if (!test_rshift(out,ctx)) goto err; | ||
212 | (void)BIO_flush(out); | ||
213 | |||
214 | message(out,"BN_sqr"); | ||
215 | if (!test_sqr(out,ctx)) goto err; | ||
216 | (void)BIO_flush(out); | ||
217 | |||
218 | message(out,"BN_mul"); | ||
219 | if (!test_mul(out)) goto err; | ||
220 | (void)BIO_flush(out); | ||
221 | |||
222 | message(out,"BN_div"); | ||
223 | if (!test_div(out,ctx)) goto err; | ||
224 | (void)BIO_flush(out); | ||
225 | |||
226 | message(out,"BN_div_word"); | ||
227 | if (!test_div_word(out)) goto err; | ||
228 | (void)BIO_flush(out); | ||
229 | |||
230 | message(out,"BN_div_recp"); | ||
231 | if (!test_div_recp(out,ctx)) goto err; | ||
232 | (void)BIO_flush(out); | ||
233 | |||
234 | message(out,"BN_mod"); | ||
235 | if (!test_mod(out,ctx)) goto err; | ||
236 | (void)BIO_flush(out); | ||
237 | |||
238 | message(out,"BN_mod_mul"); | ||
239 | if (!test_mod_mul(out,ctx)) goto err; | ||
240 | (void)BIO_flush(out); | ||
241 | |||
242 | message(out,"BN_mont"); | ||
243 | if (!test_mont(out,ctx)) goto err; | ||
244 | (void)BIO_flush(out); | ||
245 | |||
246 | message(out,"BN_mod_exp"); | ||
247 | if (!test_mod_exp(out,ctx)) goto err; | ||
248 | (void)BIO_flush(out); | ||
249 | |||
250 | message(out,"BN_mod_exp_mont_consttime"); | ||
251 | if (!test_mod_exp_mont_consttime(out,ctx)) goto err; | ||
252 | (void)BIO_flush(out); | ||
253 | |||
254 | message(out,"BN_exp"); | ||
255 | if (!test_exp(out,ctx)) goto err; | ||
256 | (void)BIO_flush(out); | ||
257 | |||
258 | message(out,"BN_kronecker"); | ||
259 | if (!test_kron(out,ctx)) goto err; | ||
260 | (void)BIO_flush(out); | ||
261 | |||
262 | message(out,"BN_mod_sqrt"); | ||
263 | if (!test_sqrt(out,ctx)) goto err; | ||
264 | (void)BIO_flush(out); | ||
265 | |||
266 | message(out,"BN_GF2m_add"); | ||
267 | if (!test_gf2m_add(out)) goto err; | ||
268 | (void)BIO_flush(out); | ||
269 | |||
270 | message(out,"BN_GF2m_mod"); | ||
271 | if (!test_gf2m_mod(out)) goto err; | ||
272 | (void)BIO_flush(out); | ||
273 | |||
274 | message(out,"BN_GF2m_mod_mul"); | ||
275 | if (!test_gf2m_mod_mul(out,ctx)) goto err; | ||
276 | (void)BIO_flush(out); | ||
277 | |||
278 | message(out,"BN_GF2m_mod_sqr"); | ||
279 | if (!test_gf2m_mod_sqr(out,ctx)) goto err; | ||
280 | (void)BIO_flush(out); | ||
281 | |||
282 | message(out,"BN_GF2m_mod_inv"); | ||
283 | if (!test_gf2m_mod_inv(out,ctx)) goto err; | ||
284 | (void)BIO_flush(out); | ||
285 | |||
286 | message(out,"BN_GF2m_mod_div"); | ||
287 | if (!test_gf2m_mod_div(out,ctx)) goto err; | ||
288 | (void)BIO_flush(out); | ||
289 | |||
290 | message(out,"BN_GF2m_mod_exp"); | ||
291 | if (!test_gf2m_mod_exp(out,ctx)) goto err; | ||
292 | (void)BIO_flush(out); | ||
293 | |||
294 | message(out,"BN_GF2m_mod_sqrt"); | ||
295 | if (!test_gf2m_mod_sqrt(out,ctx)) goto err; | ||
296 | (void)BIO_flush(out); | ||
297 | |||
298 | message(out,"BN_GF2m_mod_solve_quad"); | ||
299 | if (!test_gf2m_mod_solve_quad(out,ctx)) goto err; | ||
300 | (void)BIO_flush(out); | ||
301 | |||
302 | BN_CTX_free(ctx); | ||
303 | BIO_free(out); | ||
304 | |||
305 | /**/ | ||
306 | EXIT(0); | ||
307 | err: | ||
308 | BIO_puts(out,"1\n"); /* make sure the Perl script fed by bc notices | ||
309 | * the failure, see test_bn in test/Makefile.ssl*/ | ||
310 | (void)BIO_flush(out); | ||
311 | ERR_load_crypto_strings(); | ||
312 | ERR_print_errors_fp(stderr); | ||
313 | EXIT(1); | ||
314 | return(1); | ||
315 | } | ||
316 | |||
317 | int test_add(BIO *bp) | ||
318 | { | ||
319 | BIGNUM a,b,c; | ||
320 | int i; | ||
321 | |||
322 | BN_init(&a); | ||
323 | BN_init(&b); | ||
324 | BN_init(&c); | ||
325 | |||
326 | BN_bntest_rand(&a,512,0,0); | ||
327 | for (i=0; i<num0; i++) | ||
328 | { | ||
329 | BN_bntest_rand(&b,450+i,0,0); | ||
330 | a.neg=rand_neg(); | ||
331 | b.neg=rand_neg(); | ||
332 | BN_add(&c,&a,&b); | ||
333 | if (bp != NULL) | ||
334 | { | ||
335 | if (!results) | ||
336 | { | ||
337 | BN_print(bp,&a); | ||
338 | BIO_puts(bp," + "); | ||
339 | BN_print(bp,&b); | ||
340 | BIO_puts(bp," - "); | ||
341 | } | ||
342 | BN_print(bp,&c); | ||
343 | BIO_puts(bp,"\n"); | ||
344 | } | ||
345 | a.neg=!a.neg; | ||
346 | b.neg=!b.neg; | ||
347 | BN_add(&c,&c,&b); | ||
348 | BN_add(&c,&c,&a); | ||
349 | if(!BN_is_zero(&c)) | ||
350 | { | ||
351 | fprintf(stderr,"Add test failed!\n"); | ||
352 | return 0; | ||
353 | } | ||
354 | } | ||
355 | BN_free(&a); | ||
356 | BN_free(&b); | ||
357 | BN_free(&c); | ||
358 | return(1); | ||
359 | } | ||
360 | |||
361 | int test_sub(BIO *bp) | ||
362 | { | ||
363 | BIGNUM a,b,c; | ||
364 | int i; | ||
365 | |||
366 | BN_init(&a); | ||
367 | BN_init(&b); | ||
368 | BN_init(&c); | ||
369 | |||
370 | for (i=0; i<num0+num1; i++) | ||
371 | { | ||
372 | if (i < num1) | ||
373 | { | ||
374 | BN_bntest_rand(&a,512,0,0); | ||
375 | BN_copy(&b,&a); | ||
376 | if (BN_set_bit(&a,i)==0) return(0); | ||
377 | BN_add_word(&b,i); | ||
378 | } | ||
379 | else | ||
380 | { | ||
381 | BN_bntest_rand(&b,400+i-num1,0,0); | ||
382 | a.neg=rand_neg(); | ||
383 | b.neg=rand_neg(); | ||
384 | } | ||
385 | BN_sub(&c,&a,&b); | ||
386 | if (bp != NULL) | ||
387 | { | ||
388 | if (!results) | ||
389 | { | ||
390 | BN_print(bp,&a); | ||
391 | BIO_puts(bp," - "); | ||
392 | BN_print(bp,&b); | ||
393 | BIO_puts(bp," - "); | ||
394 | } | ||
395 | BN_print(bp,&c); | ||
396 | BIO_puts(bp,"\n"); | ||
397 | } | ||
398 | BN_add(&c,&c,&b); | ||
399 | BN_sub(&c,&c,&a); | ||
400 | if(!BN_is_zero(&c)) | ||
401 | { | ||
402 | fprintf(stderr,"Subtract test failed!\n"); | ||
403 | return 0; | ||
404 | } | ||
405 | } | ||
406 | BN_free(&a); | ||
407 | BN_free(&b); | ||
408 | BN_free(&c); | ||
409 | return(1); | ||
410 | } | ||
411 | |||
412 | int test_div(BIO *bp, BN_CTX *ctx) | ||
413 | { | ||
414 | BIGNUM a,b,c,d,e; | ||
415 | int i; | ||
416 | |||
417 | BN_init(&a); | ||
418 | BN_init(&b); | ||
419 | BN_init(&c); | ||
420 | BN_init(&d); | ||
421 | BN_init(&e); | ||
422 | |||
423 | for (i=0; i<num0+num1; i++) | ||
424 | { | ||
425 | if (i < num1) | ||
426 | { | ||
427 | BN_bntest_rand(&a,400,0,0); | ||
428 | BN_copy(&b,&a); | ||
429 | BN_lshift(&a,&a,i); | ||
430 | BN_add_word(&a,i); | ||
431 | } | ||
432 | else | ||
433 | BN_bntest_rand(&b,50+3*(i-num1),0,0); | ||
434 | a.neg=rand_neg(); | ||
435 | b.neg=rand_neg(); | ||
436 | BN_div(&d,&c,&a,&b,ctx); | ||
437 | if (bp != NULL) | ||
438 | { | ||
439 | if (!results) | ||
440 | { | ||
441 | BN_print(bp,&a); | ||
442 | BIO_puts(bp," / "); | ||
443 | BN_print(bp,&b); | ||
444 | BIO_puts(bp," - "); | ||
445 | } | ||
446 | BN_print(bp,&d); | ||
447 | BIO_puts(bp,"\n"); | ||
448 | |||
449 | if (!results) | ||
450 | { | ||
451 | BN_print(bp,&a); | ||
452 | BIO_puts(bp," % "); | ||
453 | BN_print(bp,&b); | ||
454 | BIO_puts(bp," - "); | ||
455 | } | ||
456 | BN_print(bp,&c); | ||
457 | BIO_puts(bp,"\n"); | ||
458 | } | ||
459 | BN_mul(&e,&d,&b,ctx); | ||
460 | BN_add(&d,&e,&c); | ||
461 | BN_sub(&d,&d,&a); | ||
462 | if(!BN_is_zero(&d)) | ||
463 | { | ||
464 | fprintf(stderr,"Division test failed!\n"); | ||
465 | return 0; | ||
466 | } | ||
467 | } | ||
468 | BN_free(&a); | ||
469 | BN_free(&b); | ||
470 | BN_free(&c); | ||
471 | BN_free(&d); | ||
472 | BN_free(&e); | ||
473 | return(1); | ||
474 | } | ||
475 | |||
476 | static void print_word(BIO *bp,BN_ULONG w) | ||
477 | { | ||
478 | #ifdef SIXTY_FOUR_BIT | ||
479 | if (sizeof(w) > sizeof(unsigned long)) | ||
480 | { | ||
481 | unsigned long h=(unsigned long)(w>>32), | ||
482 | l=(unsigned long)(w); | ||
483 | |||
484 | if (h) BIO_printf(bp,"%lX%08lX",h,l); | ||
485 | else BIO_printf(bp,"%lX",l); | ||
486 | return; | ||
487 | } | ||
488 | #endif | ||
489 | BIO_printf(bp,BN_HEX_FMT1,w); | ||
490 | } | ||
491 | |||
492 | int test_div_word(BIO *bp) | ||
493 | { | ||
494 | BIGNUM a,b; | ||
495 | BN_ULONG r,s; | ||
496 | int i; | ||
497 | |||
498 | BN_init(&a); | ||
499 | BN_init(&b); | ||
500 | |||
501 | for (i=0; i<num0; i++) | ||
502 | { | ||
503 | do { | ||
504 | BN_bntest_rand(&a,512,-1,0); | ||
505 | BN_bntest_rand(&b,BN_BITS2,-1,0); | ||
506 | s = b.d[0]; | ||
507 | } while (!s); | ||
508 | |||
509 | BN_copy(&b, &a); | ||
510 | r = BN_div_word(&b, s); | ||
511 | |||
512 | if (bp != NULL) | ||
513 | { | ||
514 | if (!results) | ||
515 | { | ||
516 | BN_print(bp,&a); | ||
517 | BIO_puts(bp," / "); | ||
518 | print_word(bp,s); | ||
519 | BIO_puts(bp," - "); | ||
520 | } | ||
521 | BN_print(bp,&b); | ||
522 | BIO_puts(bp,"\n"); | ||
523 | |||
524 | if (!results) | ||
525 | { | ||
526 | BN_print(bp,&a); | ||
527 | BIO_puts(bp," % "); | ||
528 | print_word(bp,s); | ||
529 | BIO_puts(bp," - "); | ||
530 | } | ||
531 | print_word(bp,r); | ||
532 | BIO_puts(bp,"\n"); | ||
533 | } | ||
534 | BN_mul_word(&b,s); | ||
535 | BN_add_word(&b,r); | ||
536 | BN_sub(&b,&a,&b); | ||
537 | if(!BN_is_zero(&b)) | ||
538 | { | ||
539 | fprintf(stderr,"Division (word) test failed!\n"); | ||
540 | return 0; | ||
541 | } | ||
542 | } | ||
543 | BN_free(&a); | ||
544 | BN_free(&b); | ||
545 | return(1); | ||
546 | } | ||
547 | |||
548 | int test_div_recp(BIO *bp, BN_CTX *ctx) | ||
549 | { | ||
550 | BIGNUM a,b,c,d,e; | ||
551 | BN_RECP_CTX recp; | ||
552 | int i; | ||
553 | |||
554 | BN_RECP_CTX_init(&recp); | ||
555 | BN_init(&a); | ||
556 | BN_init(&b); | ||
557 | BN_init(&c); | ||
558 | BN_init(&d); | ||
559 | BN_init(&e); | ||
560 | |||
561 | for (i=0; i<num0+num1; i++) | ||
562 | { | ||
563 | if (i < num1) | ||
564 | { | ||
565 | BN_bntest_rand(&a,400,0,0); | ||
566 | BN_copy(&b,&a); | ||
567 | BN_lshift(&a,&a,i); | ||
568 | BN_add_word(&a,i); | ||
569 | } | ||
570 | else | ||
571 | BN_bntest_rand(&b,50+3*(i-num1),0,0); | ||
572 | a.neg=rand_neg(); | ||
573 | b.neg=rand_neg(); | ||
574 | BN_RECP_CTX_set(&recp,&b,ctx); | ||
575 | BN_div_recp(&d,&c,&a,&recp,ctx); | ||
576 | if (bp != NULL) | ||
577 | { | ||
578 | if (!results) | ||
579 | { | ||
580 | BN_print(bp,&a); | ||
581 | BIO_puts(bp," / "); | ||
582 | BN_print(bp,&b); | ||
583 | BIO_puts(bp," - "); | ||
584 | } | ||
585 | BN_print(bp,&d); | ||
586 | BIO_puts(bp,"\n"); | ||
587 | |||
588 | if (!results) | ||
589 | { | ||
590 | BN_print(bp,&a); | ||
591 | BIO_puts(bp," % "); | ||
592 | BN_print(bp,&b); | ||
593 | BIO_puts(bp," - "); | ||
594 | } | ||
595 | BN_print(bp,&c); | ||
596 | BIO_puts(bp,"\n"); | ||
597 | } | ||
598 | BN_mul(&e,&d,&b,ctx); | ||
599 | BN_add(&d,&e,&c); | ||
600 | BN_sub(&d,&d,&a); | ||
601 | if(!BN_is_zero(&d)) | ||
602 | { | ||
603 | fprintf(stderr,"Reciprocal division test failed!\n"); | ||
604 | fprintf(stderr,"a="); | ||
605 | BN_print_fp(stderr,&a); | ||
606 | fprintf(stderr,"\nb="); | ||
607 | BN_print_fp(stderr,&b); | ||
608 | fprintf(stderr,"\n"); | ||
609 | return 0; | ||
610 | } | ||
611 | } | ||
612 | BN_free(&a); | ||
613 | BN_free(&b); | ||
614 | BN_free(&c); | ||
615 | BN_free(&d); | ||
616 | BN_free(&e); | ||
617 | BN_RECP_CTX_free(&recp); | ||
618 | return(1); | ||
619 | } | ||
620 | |||
621 | int test_mul(BIO *bp) | ||
622 | { | ||
623 | BIGNUM a,b,c,d,e; | ||
624 | int i; | ||
625 | BN_CTX *ctx; | ||
626 | |||
627 | ctx = BN_CTX_new(); | ||
628 | if (ctx == NULL) EXIT(1); | ||
629 | |||
630 | BN_init(&a); | ||
631 | BN_init(&b); | ||
632 | BN_init(&c); | ||
633 | BN_init(&d); | ||
634 | BN_init(&e); | ||
635 | |||
636 | for (i=0; i<num0+num1; i++) | ||
637 | { | ||
638 | if (i <= num1) | ||
639 | { | ||
640 | BN_bntest_rand(&a,100,0,0); | ||
641 | BN_bntest_rand(&b,100,0,0); | ||
642 | } | ||
643 | else | ||
644 | BN_bntest_rand(&b,i-num1,0,0); | ||
645 | a.neg=rand_neg(); | ||
646 | b.neg=rand_neg(); | ||
647 | BN_mul(&c,&a,&b,ctx); | ||
648 | if (bp != NULL) | ||
649 | { | ||
650 | if (!results) | ||
651 | { | ||
652 | BN_print(bp,&a); | ||
653 | BIO_puts(bp," * "); | ||
654 | BN_print(bp,&b); | ||
655 | BIO_puts(bp," - "); | ||
656 | } | ||
657 | BN_print(bp,&c); | ||
658 | BIO_puts(bp,"\n"); | ||
659 | } | ||
660 | BN_div(&d,&e,&c,&a,ctx); | ||
661 | BN_sub(&d,&d,&b); | ||
662 | if(!BN_is_zero(&d) || !BN_is_zero(&e)) | ||
663 | { | ||
664 | fprintf(stderr,"Multiplication test failed!\n"); | ||
665 | return 0; | ||
666 | } | ||
667 | } | ||
668 | BN_free(&a); | ||
669 | BN_free(&b); | ||
670 | BN_free(&c); | ||
671 | BN_free(&d); | ||
672 | BN_free(&e); | ||
673 | BN_CTX_free(ctx); | ||
674 | return(1); | ||
675 | } | ||
676 | |||
677 | int test_sqr(BIO *bp, BN_CTX *ctx) | ||
678 | { | ||
679 | BIGNUM a,c,d,e; | ||
680 | int i; | ||
681 | |||
682 | BN_init(&a); | ||
683 | BN_init(&c); | ||
684 | BN_init(&d); | ||
685 | BN_init(&e); | ||
686 | |||
687 | for (i=0; i<num0; i++) | ||
688 | { | ||
689 | BN_bntest_rand(&a,40+i*10,0,0); | ||
690 | a.neg=rand_neg(); | ||
691 | BN_sqr(&c,&a,ctx); | ||
692 | if (bp != NULL) | ||
693 | { | ||
694 | if (!results) | ||
695 | { | ||
696 | BN_print(bp,&a); | ||
697 | BIO_puts(bp," * "); | ||
698 | BN_print(bp,&a); | ||
699 | BIO_puts(bp," - "); | ||
700 | } | ||
701 | BN_print(bp,&c); | ||
702 | BIO_puts(bp,"\n"); | ||
703 | } | ||
704 | BN_div(&d,&e,&c,&a,ctx); | ||
705 | BN_sub(&d,&d,&a); | ||
706 | if(!BN_is_zero(&d) || !BN_is_zero(&e)) | ||
707 | { | ||
708 | fprintf(stderr,"Square test failed!\n"); | ||
709 | return 0; | ||
710 | } | ||
711 | } | ||
712 | BN_free(&a); | ||
713 | BN_free(&c); | ||
714 | BN_free(&d); | ||
715 | BN_free(&e); | ||
716 | return(1); | ||
717 | } | ||
718 | |||
719 | int test_mont(BIO *bp, BN_CTX *ctx) | ||
720 | { | ||
721 | BIGNUM a,b,c,d,A,B; | ||
722 | BIGNUM n; | ||
723 | int i; | ||
724 | BN_MONT_CTX *mont; | ||
725 | |||
726 | BN_init(&a); | ||
727 | BN_init(&b); | ||
728 | BN_init(&c); | ||
729 | BN_init(&d); | ||
730 | BN_init(&A); | ||
731 | BN_init(&B); | ||
732 | BN_init(&n); | ||
733 | |||
734 | mont=BN_MONT_CTX_new(); | ||
735 | if (mont == NULL) | ||
736 | return 0; | ||
737 | |||
738 | BN_bntest_rand(&a,100,0,0); /**/ | ||
739 | BN_bntest_rand(&b,100,0,0); /**/ | ||
740 | for (i=0; i<num2; i++) | ||
741 | { | ||
742 | int bits = (200*(i+1))/num2; | ||
743 | |||
744 | if (bits == 0) | ||
745 | continue; | ||
746 | BN_bntest_rand(&n,bits,0,1); | ||
747 | BN_MONT_CTX_set(mont,&n,ctx); | ||
748 | |||
749 | BN_nnmod(&a,&a,&n,ctx); | ||
750 | BN_nnmod(&b,&b,&n,ctx); | ||
751 | |||
752 | BN_to_montgomery(&A,&a,mont,ctx); | ||
753 | BN_to_montgomery(&B,&b,mont,ctx); | ||
754 | |||
755 | BN_mod_mul_montgomery(&c,&A,&B,mont,ctx);/**/ | ||
756 | BN_from_montgomery(&A,&c,mont,ctx);/**/ | ||
757 | if (bp != NULL) | ||
758 | { | ||
759 | if (!results) | ||
760 | { | ||
761 | #ifdef undef | ||
762 | fprintf(stderr,"%d * %d %% %d\n", | ||
763 | BN_num_bits(&a), | ||
764 | BN_num_bits(&b), | ||
765 | BN_num_bits(mont->N)); | ||
766 | #endif | ||
767 | BN_print(bp,&a); | ||
768 | BIO_puts(bp," * "); | ||
769 | BN_print(bp,&b); | ||
770 | BIO_puts(bp," % "); | ||
771 | BN_print(bp,&(mont->N)); | ||
772 | BIO_puts(bp," - "); | ||
773 | } | ||
774 | BN_print(bp,&A); | ||
775 | BIO_puts(bp,"\n"); | ||
776 | } | ||
777 | BN_mod_mul(&d,&a,&b,&n,ctx); | ||
778 | BN_sub(&d,&d,&A); | ||
779 | if(!BN_is_zero(&d)) | ||
780 | { | ||
781 | fprintf(stderr,"Montgomery multiplication test failed!\n"); | ||
782 | return 0; | ||
783 | } | ||
784 | } | ||
785 | BN_MONT_CTX_free(mont); | ||
786 | BN_free(&a); | ||
787 | BN_free(&b); | ||
788 | BN_free(&c); | ||
789 | BN_free(&d); | ||
790 | BN_free(&A); | ||
791 | BN_free(&B); | ||
792 | BN_free(&n); | ||
793 | return(1); | ||
794 | } | ||
795 | |||
796 | int test_mod(BIO *bp, BN_CTX *ctx) | ||
797 | { | ||
798 | BIGNUM *a,*b,*c,*d,*e; | ||
799 | int i; | ||
800 | |||
801 | a=BN_new(); | ||
802 | b=BN_new(); | ||
803 | c=BN_new(); | ||
804 | d=BN_new(); | ||
805 | e=BN_new(); | ||
806 | |||
807 | BN_bntest_rand(a,1024,0,0); /**/ | ||
808 | for (i=0; i<num0; i++) | ||
809 | { | ||
810 | BN_bntest_rand(b,450+i*10,0,0); /**/ | ||
811 | a->neg=rand_neg(); | ||
812 | b->neg=rand_neg(); | ||
813 | BN_mod(c,a,b,ctx);/**/ | ||
814 | if (bp != NULL) | ||
815 | { | ||
816 | if (!results) | ||
817 | { | ||
818 | BN_print(bp,a); | ||
819 | BIO_puts(bp," % "); | ||
820 | BN_print(bp,b); | ||
821 | BIO_puts(bp," - "); | ||
822 | } | ||
823 | BN_print(bp,c); | ||
824 | BIO_puts(bp,"\n"); | ||
825 | } | ||
826 | BN_div(d,e,a,b,ctx); | ||
827 | BN_sub(e,e,c); | ||
828 | if(!BN_is_zero(e)) | ||
829 | { | ||
830 | fprintf(stderr,"Modulo test failed!\n"); | ||
831 | return 0; | ||
832 | } | ||
833 | } | ||
834 | BN_free(a); | ||
835 | BN_free(b); | ||
836 | BN_free(c); | ||
837 | BN_free(d); | ||
838 | BN_free(e); | ||
839 | return(1); | ||
840 | } | ||
841 | |||
842 | int test_mod_mul(BIO *bp, BN_CTX *ctx) | ||
843 | { | ||
844 | BIGNUM *a,*b,*c,*d,*e; | ||
845 | int i,j; | ||
846 | |||
847 | a=BN_new(); | ||
848 | b=BN_new(); | ||
849 | c=BN_new(); | ||
850 | d=BN_new(); | ||
851 | e=BN_new(); | ||
852 | |||
853 | for (j=0; j<3; j++) { | ||
854 | BN_bntest_rand(c,1024,0,0); /**/ | ||
855 | for (i=0; i<num0; i++) | ||
856 | { | ||
857 | BN_bntest_rand(a,475+i*10,0,0); /**/ | ||
858 | BN_bntest_rand(b,425+i*11,0,0); /**/ | ||
859 | a->neg=rand_neg(); | ||
860 | b->neg=rand_neg(); | ||
861 | if (!BN_mod_mul(e,a,b,c,ctx)) | ||
862 | { | ||
863 | unsigned long l; | ||
864 | |||
865 | while ((l=ERR_get_error())) | ||
866 | fprintf(stderr,"ERROR:%s\n", | ||
867 | ERR_error_string(l,NULL)); | ||
868 | EXIT(1); | ||
869 | } | ||
870 | if (bp != NULL) | ||
871 | { | ||
872 | if (!results) | ||
873 | { | ||
874 | BN_print(bp,a); | ||
875 | BIO_puts(bp," * "); | ||
876 | BN_print(bp,b); | ||
877 | BIO_puts(bp," % "); | ||
878 | BN_print(bp,c); | ||
879 | if ((a->neg ^ b->neg) && !BN_is_zero(e)) | ||
880 | { | ||
881 | /* If (a*b) % c is negative, c must be added | ||
882 | * in order to obtain the normalized remainder | ||
883 | * (new with OpenSSL 0.9.7, previous versions of | ||
884 | * BN_mod_mul could generate negative results) | ||
885 | */ | ||
886 | BIO_puts(bp," + "); | ||
887 | BN_print(bp,c); | ||
888 | } | ||
889 | BIO_puts(bp," - "); | ||
890 | } | ||
891 | BN_print(bp,e); | ||
892 | BIO_puts(bp,"\n"); | ||
893 | } | ||
894 | BN_mul(d,a,b,ctx); | ||
895 | BN_sub(d,d,e); | ||
896 | BN_div(a,b,d,c,ctx); | ||
897 | if(!BN_is_zero(b)) | ||
898 | { | ||
899 | fprintf(stderr,"Modulo multiply test failed!\n"); | ||
900 | ERR_print_errors_fp(stderr); | ||
901 | return 0; | ||
902 | } | ||
903 | } | ||
904 | } | ||
905 | BN_free(a); | ||
906 | BN_free(b); | ||
907 | BN_free(c); | ||
908 | BN_free(d); | ||
909 | BN_free(e); | ||
910 | return(1); | ||
911 | } | ||
912 | |||
913 | int test_mod_exp(BIO *bp, BN_CTX *ctx) | ||
914 | { | ||
915 | BIGNUM *a,*b,*c,*d,*e; | ||
916 | int i; | ||
917 | |||
918 | a=BN_new(); | ||
919 | b=BN_new(); | ||
920 | c=BN_new(); | ||
921 | d=BN_new(); | ||
922 | e=BN_new(); | ||
923 | |||
924 | BN_bntest_rand(c,30,0,1); /* must be odd for montgomery */ | ||
925 | for (i=0; i<num2; i++) | ||
926 | { | ||
927 | BN_bntest_rand(a,20+i*5,0,0); /**/ | ||
928 | BN_bntest_rand(b,2+i,0,0); /**/ | ||
929 | |||
930 | if (!BN_mod_exp(d,a,b,c,ctx)) | ||
931 | return(0); | ||
932 | |||
933 | if (bp != NULL) | ||
934 | { | ||
935 | if (!results) | ||
936 | { | ||
937 | BN_print(bp,a); | ||
938 | BIO_puts(bp," ^ "); | ||
939 | BN_print(bp,b); | ||
940 | BIO_puts(bp," % "); | ||
941 | BN_print(bp,c); | ||
942 | BIO_puts(bp," - "); | ||
943 | } | ||
944 | BN_print(bp,d); | ||
945 | BIO_puts(bp,"\n"); | ||
946 | } | ||
947 | BN_exp(e,a,b,ctx); | ||
948 | BN_sub(e,e,d); | ||
949 | BN_div(a,b,e,c,ctx); | ||
950 | if(!BN_is_zero(b)) | ||
951 | { | ||
952 | fprintf(stderr,"Modulo exponentiation test failed!\n"); | ||
953 | return 0; | ||
954 | } | ||
955 | } | ||
956 | BN_free(a); | ||
957 | BN_free(b); | ||
958 | BN_free(c); | ||
959 | BN_free(d); | ||
960 | BN_free(e); | ||
961 | return(1); | ||
962 | } | ||
963 | |||
964 | int test_mod_exp_mont_consttime(BIO *bp, BN_CTX *ctx) | ||
965 | { | ||
966 | BIGNUM *a,*b,*c,*d,*e; | ||
967 | int i; | ||
968 | |||
969 | a=BN_new(); | ||
970 | b=BN_new(); | ||
971 | c=BN_new(); | ||
972 | d=BN_new(); | ||
973 | e=BN_new(); | ||
974 | |||
975 | BN_bntest_rand(c,30,0,1); /* must be odd for montgomery */ | ||
976 | for (i=0; i<num2; i++) | ||
977 | { | ||
978 | BN_bntest_rand(a,20+i*5,0,0); /**/ | ||
979 | BN_bntest_rand(b,2+i,0,0); /**/ | ||
980 | |||
981 | if (!BN_mod_exp_mont_consttime(d,a,b,c,ctx,NULL)) | ||
982 | return(00); | ||
983 | |||
984 | if (bp != NULL) | ||
985 | { | ||
986 | if (!results) | ||
987 | { | ||
988 | BN_print(bp,a); | ||
989 | BIO_puts(bp," ^ "); | ||
990 | BN_print(bp,b); | ||
991 | BIO_puts(bp," % "); | ||
992 | BN_print(bp,c); | ||
993 | BIO_puts(bp," - "); | ||
994 | } | ||
995 | BN_print(bp,d); | ||
996 | BIO_puts(bp,"\n"); | ||
997 | } | ||
998 | BN_exp(e,a,b,ctx); | ||
999 | BN_sub(e,e,d); | ||
1000 | BN_div(a,b,e,c,ctx); | ||
1001 | if(!BN_is_zero(b)) | ||
1002 | { | ||
1003 | fprintf(stderr,"Modulo exponentiation test failed!\n"); | ||
1004 | return 0; | ||
1005 | } | ||
1006 | } | ||
1007 | BN_free(a); | ||
1008 | BN_free(b); | ||
1009 | BN_free(c); | ||
1010 | BN_free(d); | ||
1011 | BN_free(e); | ||
1012 | return(1); | ||
1013 | } | ||
1014 | |||
1015 | int test_exp(BIO *bp, BN_CTX *ctx) | ||
1016 | { | ||
1017 | BIGNUM *a,*b,*d,*e,*one; | ||
1018 | int i; | ||
1019 | |||
1020 | a=BN_new(); | ||
1021 | b=BN_new(); | ||
1022 | d=BN_new(); | ||
1023 | e=BN_new(); | ||
1024 | one=BN_new(); | ||
1025 | BN_one(one); | ||
1026 | |||
1027 | for (i=0; i<num2; i++) | ||
1028 | { | ||
1029 | BN_bntest_rand(a,20+i*5,0,0); /**/ | ||
1030 | BN_bntest_rand(b,2+i,0,0); /**/ | ||
1031 | |||
1032 | if (BN_exp(d,a,b,ctx) <= 0) | ||
1033 | return(0); | ||
1034 | |||
1035 | if (bp != NULL) | ||
1036 | { | ||
1037 | if (!results) | ||
1038 | { | ||
1039 | BN_print(bp,a); | ||
1040 | BIO_puts(bp," ^ "); | ||
1041 | BN_print(bp,b); | ||
1042 | BIO_puts(bp," - "); | ||
1043 | } | ||
1044 | BN_print(bp,d); | ||
1045 | BIO_puts(bp,"\n"); | ||
1046 | } | ||
1047 | BN_one(e); | ||
1048 | for( ; !BN_is_zero(b) ; BN_sub(b,b,one)) | ||
1049 | BN_mul(e,e,a,ctx); | ||
1050 | BN_sub(e,e,d); | ||
1051 | if(!BN_is_zero(e)) | ||
1052 | { | ||
1053 | fprintf(stderr,"Exponentiation test failed!\n"); | ||
1054 | return 0; | ||
1055 | } | ||
1056 | } | ||
1057 | BN_free(a); | ||
1058 | BN_free(b); | ||
1059 | BN_free(d); | ||
1060 | BN_free(e); | ||
1061 | BN_free(one); | ||
1062 | return(1); | ||
1063 | } | ||
1064 | |||
1065 | int test_gf2m_add(BIO *bp) | ||
1066 | { | ||
1067 | BIGNUM a,b,c; | ||
1068 | int i, ret = 0; | ||
1069 | |||
1070 | BN_init(&a); | ||
1071 | BN_init(&b); | ||
1072 | BN_init(&c); | ||
1073 | |||
1074 | for (i=0; i<num0; i++) | ||
1075 | { | ||
1076 | BN_rand(&a,512,0,0); | ||
1077 | BN_copy(&b, BN_value_one()); | ||
1078 | a.neg=rand_neg(); | ||
1079 | b.neg=rand_neg(); | ||
1080 | BN_GF2m_add(&c,&a,&b); | ||
1081 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1082 | if (bp != NULL) | ||
1083 | { | ||
1084 | if (!results) | ||
1085 | { | ||
1086 | BN_print(bp,&a); | ||
1087 | BIO_puts(bp," ^ "); | ||
1088 | BN_print(bp,&b); | ||
1089 | BIO_puts(bp," = "); | ||
1090 | } | ||
1091 | BN_print(bp,&c); | ||
1092 | BIO_puts(bp,"\n"); | ||
1093 | } | ||
1094 | #endif | ||
1095 | /* Test that two added values have the correct parity. */ | ||
1096 | if((BN_is_odd(&a) && BN_is_odd(&c)) || (!BN_is_odd(&a) && !BN_is_odd(&c))) | ||
1097 | { | ||
1098 | fprintf(stderr,"GF(2^m) addition test (a) failed!\n"); | ||
1099 | goto err; | ||
1100 | } | ||
1101 | BN_GF2m_add(&c,&c,&c); | ||
1102 | /* Test that c + c = 0. */ | ||
1103 | if(!BN_is_zero(&c)) | ||
1104 | { | ||
1105 | fprintf(stderr,"GF(2^m) addition test (b) failed!\n"); | ||
1106 | goto err; | ||
1107 | } | ||
1108 | } | ||
1109 | ret = 1; | ||
1110 | err: | ||
1111 | BN_free(&a); | ||
1112 | BN_free(&b); | ||
1113 | BN_free(&c); | ||
1114 | return ret; | ||
1115 | } | ||
1116 | |||
1117 | int test_gf2m_mod(BIO *bp) | ||
1118 | { | ||
1119 | BIGNUM *a,*b[2],*c,*d,*e; | ||
1120 | int i, j, ret = 0; | ||
1121 | int p0[] = {163,7,6,3,0,-1}; | ||
1122 | int p1[] = {193,15,0,-1}; | ||
1123 | |||
1124 | a=BN_new(); | ||
1125 | b[0]=BN_new(); | ||
1126 | b[1]=BN_new(); | ||
1127 | c=BN_new(); | ||
1128 | d=BN_new(); | ||
1129 | e=BN_new(); | ||
1130 | |||
1131 | BN_GF2m_arr2poly(p0, b[0]); | ||
1132 | BN_GF2m_arr2poly(p1, b[1]); | ||
1133 | |||
1134 | for (i=0; i<num0; i++) | ||
1135 | { | ||
1136 | BN_bntest_rand(a, 1024, 0, 0); | ||
1137 | for (j=0; j < 2; j++) | ||
1138 | { | ||
1139 | BN_GF2m_mod(c, a, b[j]); | ||
1140 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1141 | if (bp != NULL) | ||
1142 | { | ||
1143 | if (!results) | ||
1144 | { | ||
1145 | BN_print(bp,a); | ||
1146 | BIO_puts(bp," % "); | ||
1147 | BN_print(bp,b[j]); | ||
1148 | BIO_puts(bp," - "); | ||
1149 | BN_print(bp,c); | ||
1150 | BIO_puts(bp,"\n"); | ||
1151 | } | ||
1152 | } | ||
1153 | #endif | ||
1154 | BN_GF2m_add(d, a, c); | ||
1155 | BN_GF2m_mod(e, d, b[j]); | ||
1156 | /* Test that a + (a mod p) mod p == 0. */ | ||
1157 | if(!BN_is_zero(e)) | ||
1158 | { | ||
1159 | fprintf(stderr,"GF(2^m) modulo test failed!\n"); | ||
1160 | goto err; | ||
1161 | } | ||
1162 | } | ||
1163 | } | ||
1164 | ret = 1; | ||
1165 | err: | ||
1166 | BN_free(a); | ||
1167 | BN_free(b[0]); | ||
1168 | BN_free(b[1]); | ||
1169 | BN_free(c); | ||
1170 | BN_free(d); | ||
1171 | BN_free(e); | ||
1172 | return ret; | ||
1173 | } | ||
1174 | |||
1175 | int test_gf2m_mod_mul(BIO *bp,BN_CTX *ctx) | ||
1176 | { | ||
1177 | BIGNUM *a,*b[2],*c,*d,*e,*f,*g,*h; | ||
1178 | int i, j, ret = 0; | ||
1179 | int p0[] = {163,7,6,3,0,-1}; | ||
1180 | int p1[] = {193,15,0,-1}; | ||
1181 | |||
1182 | a=BN_new(); | ||
1183 | b[0]=BN_new(); | ||
1184 | b[1]=BN_new(); | ||
1185 | c=BN_new(); | ||
1186 | d=BN_new(); | ||
1187 | e=BN_new(); | ||
1188 | f=BN_new(); | ||
1189 | g=BN_new(); | ||
1190 | h=BN_new(); | ||
1191 | |||
1192 | BN_GF2m_arr2poly(p0, b[0]); | ||
1193 | BN_GF2m_arr2poly(p1, b[1]); | ||
1194 | |||
1195 | for (i=0; i<num0; i++) | ||
1196 | { | ||
1197 | BN_bntest_rand(a, 1024, 0, 0); | ||
1198 | BN_bntest_rand(c, 1024, 0, 0); | ||
1199 | BN_bntest_rand(d, 1024, 0, 0); | ||
1200 | for (j=0; j < 2; j++) | ||
1201 | { | ||
1202 | BN_GF2m_mod_mul(e, a, c, b[j], ctx); | ||
1203 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1204 | if (bp != NULL) | ||
1205 | { | ||
1206 | if (!results) | ||
1207 | { | ||
1208 | BN_print(bp,a); | ||
1209 | BIO_puts(bp," * "); | ||
1210 | BN_print(bp,c); | ||
1211 | BIO_puts(bp," % "); | ||
1212 | BN_print(bp,b[j]); | ||
1213 | BIO_puts(bp," - "); | ||
1214 | BN_print(bp,e); | ||
1215 | BIO_puts(bp,"\n"); | ||
1216 | } | ||
1217 | } | ||
1218 | #endif | ||
1219 | BN_GF2m_add(f, a, d); | ||
1220 | BN_GF2m_mod_mul(g, f, c, b[j], ctx); | ||
1221 | BN_GF2m_mod_mul(h, d, c, b[j], ctx); | ||
1222 | BN_GF2m_add(f, e, g); | ||
1223 | BN_GF2m_add(f, f, h); | ||
1224 | /* Test that (a+d)*c = a*c + d*c. */ | ||
1225 | if(!BN_is_zero(f)) | ||
1226 | { | ||
1227 | fprintf(stderr,"GF(2^m) modular multiplication test failed!\n"); | ||
1228 | goto err; | ||
1229 | } | ||
1230 | } | ||
1231 | } | ||
1232 | ret = 1; | ||
1233 | err: | ||
1234 | BN_free(a); | ||
1235 | BN_free(b[0]); | ||
1236 | BN_free(b[1]); | ||
1237 | BN_free(c); | ||
1238 | BN_free(d); | ||
1239 | BN_free(e); | ||
1240 | BN_free(f); | ||
1241 | BN_free(g); | ||
1242 | BN_free(h); | ||
1243 | return ret; | ||
1244 | } | ||
1245 | |||
1246 | int test_gf2m_mod_sqr(BIO *bp,BN_CTX *ctx) | ||
1247 | { | ||
1248 | BIGNUM *a,*b[2],*c,*d; | ||
1249 | int i, j, ret = 0; | ||
1250 | int p0[] = {163,7,6,3,0,-1}; | ||
1251 | int p1[] = {193,15,0,-1}; | ||
1252 | |||
1253 | a=BN_new(); | ||
1254 | b[0]=BN_new(); | ||
1255 | b[1]=BN_new(); | ||
1256 | c=BN_new(); | ||
1257 | d=BN_new(); | ||
1258 | |||
1259 | BN_GF2m_arr2poly(p0, b[0]); | ||
1260 | BN_GF2m_arr2poly(p1, b[1]); | ||
1261 | |||
1262 | for (i=0; i<num0; i++) | ||
1263 | { | ||
1264 | BN_bntest_rand(a, 1024, 0, 0); | ||
1265 | for (j=0; j < 2; j++) | ||
1266 | { | ||
1267 | BN_GF2m_mod_sqr(c, a, b[j], ctx); | ||
1268 | BN_copy(d, a); | ||
1269 | BN_GF2m_mod_mul(d, a, d, b[j], ctx); | ||
1270 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1271 | if (bp != NULL) | ||
1272 | { | ||
1273 | if (!results) | ||
1274 | { | ||
1275 | BN_print(bp,a); | ||
1276 | BIO_puts(bp," ^ 2 % "); | ||
1277 | BN_print(bp,b[j]); | ||
1278 | BIO_puts(bp, " = "); | ||
1279 | BN_print(bp,c); | ||
1280 | BIO_puts(bp,"; a * a = "); | ||
1281 | BN_print(bp,d); | ||
1282 | BIO_puts(bp,"\n"); | ||
1283 | } | ||
1284 | } | ||
1285 | #endif | ||
1286 | BN_GF2m_add(d, c, d); | ||
1287 | /* Test that a*a = a^2. */ | ||
1288 | if(!BN_is_zero(d)) | ||
1289 | { | ||
1290 | fprintf(stderr,"GF(2^m) modular squaring test failed!\n"); | ||
1291 | goto err; | ||
1292 | } | ||
1293 | } | ||
1294 | } | ||
1295 | ret = 1; | ||
1296 | err: | ||
1297 | BN_free(a); | ||
1298 | BN_free(b[0]); | ||
1299 | BN_free(b[1]); | ||
1300 | BN_free(c); | ||
1301 | BN_free(d); | ||
1302 | return ret; | ||
1303 | } | ||
1304 | |||
1305 | int test_gf2m_mod_inv(BIO *bp,BN_CTX *ctx) | ||
1306 | { | ||
1307 | BIGNUM *a,*b[2],*c,*d; | ||
1308 | int i, j, ret = 0; | ||
1309 | int p0[] = {163,7,6,3,0,-1}; | ||
1310 | int p1[] = {193,15,0,-1}; | ||
1311 | |||
1312 | a=BN_new(); | ||
1313 | b[0]=BN_new(); | ||
1314 | b[1]=BN_new(); | ||
1315 | c=BN_new(); | ||
1316 | d=BN_new(); | ||
1317 | |||
1318 | BN_GF2m_arr2poly(p0, b[0]); | ||
1319 | BN_GF2m_arr2poly(p1, b[1]); | ||
1320 | |||
1321 | for (i=0; i<num0; i++) | ||
1322 | { | ||
1323 | BN_bntest_rand(a, 512, 0, 0); | ||
1324 | for (j=0; j < 2; j++) | ||
1325 | { | ||
1326 | BN_GF2m_mod_inv(c, a, b[j], ctx); | ||
1327 | BN_GF2m_mod_mul(d, a, c, b[j], ctx); | ||
1328 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1329 | if (bp != NULL) | ||
1330 | { | ||
1331 | if (!results) | ||
1332 | { | ||
1333 | BN_print(bp,a); | ||
1334 | BIO_puts(bp, " * "); | ||
1335 | BN_print(bp,c); | ||
1336 | BIO_puts(bp," - 1 % "); | ||
1337 | BN_print(bp,b[j]); | ||
1338 | BIO_puts(bp,"\n"); | ||
1339 | } | ||
1340 | } | ||
1341 | #endif | ||
1342 | /* Test that ((1/a)*a) = 1. */ | ||
1343 | if(!BN_is_one(d)) | ||
1344 | { | ||
1345 | fprintf(stderr,"GF(2^m) modular inversion test failed!\n"); | ||
1346 | goto err; | ||
1347 | } | ||
1348 | } | ||
1349 | } | ||
1350 | ret = 1; | ||
1351 | err: | ||
1352 | BN_free(a); | ||
1353 | BN_free(b[0]); | ||
1354 | BN_free(b[1]); | ||
1355 | BN_free(c); | ||
1356 | BN_free(d); | ||
1357 | return ret; | ||
1358 | } | ||
1359 | |||
1360 | int test_gf2m_mod_div(BIO *bp,BN_CTX *ctx) | ||
1361 | { | ||
1362 | BIGNUM *a,*b[2],*c,*d,*e,*f; | ||
1363 | int i, j, ret = 0; | ||
1364 | int p0[] = {163,7,6,3,0,-1}; | ||
1365 | int p1[] = {193,15,0,-1}; | ||
1366 | |||
1367 | a=BN_new(); | ||
1368 | b[0]=BN_new(); | ||
1369 | b[1]=BN_new(); | ||
1370 | c=BN_new(); | ||
1371 | d=BN_new(); | ||
1372 | e=BN_new(); | ||
1373 | f=BN_new(); | ||
1374 | |||
1375 | BN_GF2m_arr2poly(p0, b[0]); | ||
1376 | BN_GF2m_arr2poly(p1, b[1]); | ||
1377 | |||
1378 | for (i=0; i<num0; i++) | ||
1379 | { | ||
1380 | BN_bntest_rand(a, 512, 0, 0); | ||
1381 | BN_bntest_rand(c, 512, 0, 0); | ||
1382 | for (j=0; j < 2; j++) | ||
1383 | { | ||
1384 | BN_GF2m_mod_div(d, a, c, b[j], ctx); | ||
1385 | BN_GF2m_mod_mul(e, d, c, b[j], ctx); | ||
1386 | BN_GF2m_mod_div(f, a, e, b[j], ctx); | ||
1387 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1388 | if (bp != NULL) | ||
1389 | { | ||
1390 | if (!results) | ||
1391 | { | ||
1392 | BN_print(bp,a); | ||
1393 | BIO_puts(bp, " = "); | ||
1394 | BN_print(bp,c); | ||
1395 | BIO_puts(bp," * "); | ||
1396 | BN_print(bp,d); | ||
1397 | BIO_puts(bp, " % "); | ||
1398 | BN_print(bp,b[j]); | ||
1399 | BIO_puts(bp,"\n"); | ||
1400 | } | ||
1401 | } | ||
1402 | #endif | ||
1403 | /* Test that ((a/c)*c)/a = 1. */ | ||
1404 | if(!BN_is_one(f)) | ||
1405 | { | ||
1406 | fprintf(stderr,"GF(2^m) modular division test failed!\n"); | ||
1407 | goto err; | ||
1408 | } | ||
1409 | } | ||
1410 | } | ||
1411 | ret = 1; | ||
1412 | err: | ||
1413 | BN_free(a); | ||
1414 | BN_free(b[0]); | ||
1415 | BN_free(b[1]); | ||
1416 | BN_free(c); | ||
1417 | BN_free(d); | ||
1418 | BN_free(e); | ||
1419 | BN_free(f); | ||
1420 | return ret; | ||
1421 | } | ||
1422 | |||
1423 | int test_gf2m_mod_exp(BIO *bp,BN_CTX *ctx) | ||
1424 | { | ||
1425 | BIGNUM *a,*b[2],*c,*d,*e,*f; | ||
1426 | int i, j, ret = 0; | ||
1427 | int p0[] = {163,7,6,3,0,-1}; | ||
1428 | int p1[] = {193,15,0,-1}; | ||
1429 | |||
1430 | a=BN_new(); | ||
1431 | b[0]=BN_new(); | ||
1432 | b[1]=BN_new(); | ||
1433 | c=BN_new(); | ||
1434 | d=BN_new(); | ||
1435 | e=BN_new(); | ||
1436 | f=BN_new(); | ||
1437 | |||
1438 | BN_GF2m_arr2poly(p0, b[0]); | ||
1439 | BN_GF2m_arr2poly(p1, b[1]); | ||
1440 | |||
1441 | for (i=0; i<num0; i++) | ||
1442 | { | ||
1443 | BN_bntest_rand(a, 512, 0, 0); | ||
1444 | BN_bntest_rand(c, 512, 0, 0); | ||
1445 | BN_bntest_rand(d, 512, 0, 0); | ||
1446 | for (j=0; j < 2; j++) | ||
1447 | { | ||
1448 | BN_GF2m_mod_exp(e, a, c, b[j], ctx); | ||
1449 | BN_GF2m_mod_exp(f, a, d, b[j], ctx); | ||
1450 | BN_GF2m_mod_mul(e, e, f, b[j], ctx); | ||
1451 | BN_add(f, c, d); | ||
1452 | BN_GF2m_mod_exp(f, a, f, b[j], ctx); | ||
1453 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1454 | if (bp != NULL) | ||
1455 | { | ||
1456 | if (!results) | ||
1457 | { | ||
1458 | BN_print(bp,a); | ||
1459 | BIO_puts(bp, " ^ ("); | ||
1460 | BN_print(bp,c); | ||
1461 | BIO_puts(bp," + "); | ||
1462 | BN_print(bp,d); | ||
1463 | BIO_puts(bp, ") = "); | ||
1464 | BN_print(bp,e); | ||
1465 | BIO_puts(bp, "; - "); | ||
1466 | BN_print(bp,f); | ||
1467 | BIO_puts(bp, " % "); | ||
1468 | BN_print(bp,b[j]); | ||
1469 | BIO_puts(bp,"\n"); | ||
1470 | } | ||
1471 | } | ||
1472 | #endif | ||
1473 | BN_GF2m_add(f, e, f); | ||
1474 | /* Test that a^(c+d)=a^c*a^d. */ | ||
1475 | if(!BN_is_zero(f)) | ||
1476 | { | ||
1477 | fprintf(stderr,"GF(2^m) modular exponentiation test failed!\n"); | ||
1478 | goto err; | ||
1479 | } | ||
1480 | } | ||
1481 | } | ||
1482 | ret = 1; | ||
1483 | err: | ||
1484 | BN_free(a); | ||
1485 | BN_free(b[0]); | ||
1486 | BN_free(b[1]); | ||
1487 | BN_free(c); | ||
1488 | BN_free(d); | ||
1489 | BN_free(e); | ||
1490 | BN_free(f); | ||
1491 | return ret; | ||
1492 | } | ||
1493 | |||
1494 | int test_gf2m_mod_sqrt(BIO *bp,BN_CTX *ctx) | ||
1495 | { | ||
1496 | BIGNUM *a,*b[2],*c,*d,*e,*f; | ||
1497 | int i, j, ret = 0; | ||
1498 | int p0[] = {163,7,6,3,0,-1}; | ||
1499 | int p1[] = {193,15,0,-1}; | ||
1500 | |||
1501 | a=BN_new(); | ||
1502 | b[0]=BN_new(); | ||
1503 | b[1]=BN_new(); | ||
1504 | c=BN_new(); | ||
1505 | d=BN_new(); | ||
1506 | e=BN_new(); | ||
1507 | f=BN_new(); | ||
1508 | |||
1509 | BN_GF2m_arr2poly(p0, b[0]); | ||
1510 | BN_GF2m_arr2poly(p1, b[1]); | ||
1511 | |||
1512 | for (i=0; i<num0; i++) | ||
1513 | { | ||
1514 | BN_bntest_rand(a, 512, 0, 0); | ||
1515 | for (j=0; j < 2; j++) | ||
1516 | { | ||
1517 | BN_GF2m_mod(c, a, b[j]); | ||
1518 | BN_GF2m_mod_sqrt(d, a, b[j], ctx); | ||
1519 | BN_GF2m_mod_sqr(e, d, b[j], ctx); | ||
1520 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1521 | if (bp != NULL) | ||
1522 | { | ||
1523 | if (!results) | ||
1524 | { | ||
1525 | BN_print(bp,d); | ||
1526 | BIO_puts(bp, " ^ 2 - "); | ||
1527 | BN_print(bp,a); | ||
1528 | BIO_puts(bp,"\n"); | ||
1529 | } | ||
1530 | } | ||
1531 | #endif | ||
1532 | BN_GF2m_add(f, c, e); | ||
1533 | /* Test that d^2 = a, where d = sqrt(a). */ | ||
1534 | if(!BN_is_zero(f)) | ||
1535 | { | ||
1536 | fprintf(stderr,"GF(2^m) modular square root test failed!\n"); | ||
1537 | goto err; | ||
1538 | } | ||
1539 | } | ||
1540 | } | ||
1541 | ret = 1; | ||
1542 | err: | ||
1543 | BN_free(a); | ||
1544 | BN_free(b[0]); | ||
1545 | BN_free(b[1]); | ||
1546 | BN_free(c); | ||
1547 | BN_free(d); | ||
1548 | BN_free(e); | ||
1549 | BN_free(f); | ||
1550 | return ret; | ||
1551 | } | ||
1552 | |||
1553 | int test_gf2m_mod_solve_quad(BIO *bp,BN_CTX *ctx) | ||
1554 | { | ||
1555 | BIGNUM *a,*b[2],*c,*d,*e; | ||
1556 | int i, j, s = 0, t, ret = 0; | ||
1557 | int p0[] = {163,7,6,3,0,-1}; | ||
1558 | int p1[] = {193,15,0,-1}; | ||
1559 | |||
1560 | a=BN_new(); | ||
1561 | b[0]=BN_new(); | ||
1562 | b[1]=BN_new(); | ||
1563 | c=BN_new(); | ||
1564 | d=BN_new(); | ||
1565 | e=BN_new(); | ||
1566 | |||
1567 | BN_GF2m_arr2poly(p0, b[0]); | ||
1568 | BN_GF2m_arr2poly(p1, b[1]); | ||
1569 | |||
1570 | for (i=0; i<num0; i++) | ||
1571 | { | ||
1572 | BN_bntest_rand(a, 512, 0, 0); | ||
1573 | for (j=0; j < 2; j++) | ||
1574 | { | ||
1575 | t = BN_GF2m_mod_solve_quad(c, a, b[j], ctx); | ||
1576 | if (t) | ||
1577 | { | ||
1578 | s++; | ||
1579 | BN_GF2m_mod_sqr(d, c, b[j], ctx); | ||
1580 | BN_GF2m_add(d, c, d); | ||
1581 | BN_GF2m_mod(e, a, b[j]); | ||
1582 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1583 | if (bp != NULL) | ||
1584 | { | ||
1585 | if (!results) | ||
1586 | { | ||
1587 | BN_print(bp,c); | ||
1588 | BIO_puts(bp, " is root of z^2 + z = "); | ||
1589 | BN_print(bp,a); | ||
1590 | BIO_puts(bp, " % "); | ||
1591 | BN_print(bp,b[j]); | ||
1592 | BIO_puts(bp, "\n"); | ||
1593 | } | ||
1594 | } | ||
1595 | #endif | ||
1596 | BN_GF2m_add(e, e, d); | ||
1597 | /* Test that solution of quadratic c satisfies c^2 + c = a. */ | ||
1598 | if(!BN_is_zero(e)) | ||
1599 | { | ||
1600 | fprintf(stderr,"GF(2^m) modular solve quadratic test failed!\n"); | ||
1601 | goto err; | ||
1602 | } | ||
1603 | |||
1604 | } | ||
1605 | else | ||
1606 | { | ||
1607 | #if 0 /* make test uses ouput in bc but bc can't handle GF(2^m) arithmetic */ | ||
1608 | if (bp != NULL) | ||
1609 | { | ||
1610 | if (!results) | ||
1611 | { | ||
1612 | BIO_puts(bp, "There are no roots of z^2 + z = "); | ||
1613 | BN_print(bp,a); | ||
1614 | BIO_puts(bp, " % "); | ||
1615 | BN_print(bp,b[j]); | ||
1616 | BIO_puts(bp, "\n"); | ||
1617 | } | ||
1618 | } | ||
1619 | #endif | ||
1620 | } | ||
1621 | } | ||
1622 | } | ||
1623 | if (s == 0) | ||
1624 | { | ||
1625 | fprintf(stderr,"All %i tests of GF(2^m) modular solve quadratic resulted in no roots;\n", num0); | ||
1626 | fprintf(stderr,"this is very unlikely and probably indicates an error.\n"); | ||
1627 | goto err; | ||
1628 | } | ||
1629 | ret = 1; | ||
1630 | err: | ||
1631 | BN_free(a); | ||
1632 | BN_free(b[0]); | ||
1633 | BN_free(b[1]); | ||
1634 | BN_free(c); | ||
1635 | BN_free(d); | ||
1636 | BN_free(e); | ||
1637 | return ret; | ||
1638 | } | ||
1639 | |||
1640 | static int genprime_cb(int p, int n, BN_GENCB *arg) | ||
1641 | { | ||
1642 | char c='*'; | ||
1643 | |||
1644 | if (p == 0) c='.'; | ||
1645 | if (p == 1) c='+'; | ||
1646 | if (p == 2) c='*'; | ||
1647 | if (p == 3) c='\n'; | ||
1648 | putc(c, stderr); | ||
1649 | fflush(stderr); | ||
1650 | return 1; | ||
1651 | } | ||
1652 | |||
1653 | int test_kron(BIO *bp, BN_CTX *ctx) | ||
1654 | { | ||
1655 | BN_GENCB cb; | ||
1656 | BIGNUM *a,*b,*r,*t; | ||
1657 | int i; | ||
1658 | int legendre, kronecker; | ||
1659 | int ret = 0; | ||
1660 | |||
1661 | a = BN_new(); | ||
1662 | b = BN_new(); | ||
1663 | r = BN_new(); | ||
1664 | t = BN_new(); | ||
1665 | if (a == NULL || b == NULL || r == NULL || t == NULL) goto err; | ||
1666 | |||
1667 | BN_GENCB_set(&cb, genprime_cb, NULL); | ||
1668 | |||
1669 | /* We test BN_kronecker(a, b, ctx) just for b odd (Jacobi symbol). | ||
1670 | * In this case we know that if b is prime, then BN_kronecker(a, b, ctx) | ||
1671 | * is congruent to $a^{(b-1)/2}$, modulo $b$ (Legendre symbol). | ||
1672 | * So we generate a random prime b and compare these values | ||
1673 | * for a number of random a's. (That is, we run the Solovay-Strassen | ||
1674 | * primality test to confirm that b is prime, except that we | ||
1675 | * don't want to test whether b is prime but whether BN_kronecker | ||
1676 | * works.) */ | ||
1677 | |||
1678 | if (!BN_generate_prime_ex(b, 512, 0, NULL, NULL, &cb)) goto err; | ||
1679 | b->neg = rand_neg(); | ||
1680 | putc('\n', stderr); | ||
1681 | |||
1682 | for (i = 0; i < num0; i++) | ||
1683 | { | ||
1684 | if (!BN_bntest_rand(a, 512, 0, 0)) goto err; | ||
1685 | a->neg = rand_neg(); | ||
1686 | |||
1687 | /* t := (|b|-1)/2 (note that b is odd) */ | ||
1688 | if (!BN_copy(t, b)) goto err; | ||
1689 | t->neg = 0; | ||
1690 | if (!BN_sub_word(t, 1)) goto err; | ||
1691 | if (!BN_rshift1(t, t)) goto err; | ||
1692 | /* r := a^t mod b */ | ||
1693 | b->neg=0; | ||
1694 | |||
1695 | if (!BN_mod_exp_recp(r, a, t, b, ctx)) goto err; | ||
1696 | b->neg=1; | ||
1697 | |||
1698 | if (BN_is_word(r, 1)) | ||
1699 | legendre = 1; | ||
1700 | else if (BN_is_zero(r)) | ||
1701 | legendre = 0; | ||
1702 | else | ||
1703 | { | ||
1704 | if (!BN_add_word(r, 1)) goto err; | ||
1705 | if (0 != BN_ucmp(r, b)) | ||
1706 | { | ||
1707 | fprintf(stderr, "Legendre symbol computation failed\n"); | ||
1708 | goto err; | ||
1709 | } | ||
1710 | legendre = -1; | ||
1711 | } | ||
1712 | |||
1713 | kronecker = BN_kronecker(a, b, ctx); | ||
1714 | if (kronecker < -1) goto err; | ||
1715 | /* we actually need BN_kronecker(a, |b|) */ | ||
1716 | if (a->neg && b->neg) | ||
1717 | kronecker = -kronecker; | ||
1718 | |||
1719 | if (legendre != kronecker) | ||
1720 | { | ||
1721 | fprintf(stderr, "legendre != kronecker; a = "); | ||
1722 | BN_print_fp(stderr, a); | ||
1723 | fprintf(stderr, ", b = "); | ||
1724 | BN_print_fp(stderr, b); | ||
1725 | fprintf(stderr, "\n"); | ||
1726 | goto err; | ||
1727 | } | ||
1728 | |||
1729 | putc('.', stderr); | ||
1730 | fflush(stderr); | ||
1731 | } | ||
1732 | |||
1733 | putc('\n', stderr); | ||
1734 | fflush(stderr); | ||
1735 | ret = 1; | ||
1736 | err: | ||
1737 | if (a != NULL) BN_free(a); | ||
1738 | if (b != NULL) BN_free(b); | ||
1739 | if (r != NULL) BN_free(r); | ||
1740 | if (t != NULL) BN_free(t); | ||
1741 | return ret; | ||
1742 | } | ||
1743 | |||
1744 | int test_sqrt(BIO *bp, BN_CTX *ctx) | ||
1745 | { | ||
1746 | BN_GENCB cb; | ||
1747 | BIGNUM *a,*p,*r; | ||
1748 | int i, j; | ||
1749 | int ret = 0; | ||
1750 | |||
1751 | a = BN_new(); | ||
1752 | p = BN_new(); | ||
1753 | r = BN_new(); | ||
1754 | if (a == NULL || p == NULL || r == NULL) goto err; | ||
1755 | |||
1756 | BN_GENCB_set(&cb, genprime_cb, NULL); | ||
1757 | |||
1758 | for (i = 0; i < 16; i++) | ||
1759 | { | ||
1760 | if (i < 8) | ||
1761 | { | ||
1762 | unsigned primes[8] = { 2, 3, 5, 7, 11, 13, 17, 19 }; | ||
1763 | |||
1764 | if (!BN_set_word(p, primes[i])) goto err; | ||
1765 | } | ||
1766 | else | ||
1767 | { | ||
1768 | if (!BN_set_word(a, 32)) goto err; | ||
1769 | if (!BN_set_word(r, 2*i + 1)) goto err; | ||
1770 | |||
1771 | if (!BN_generate_prime_ex(p, 256, 0, a, r, &cb)) goto err; | ||
1772 | putc('\n', stderr); | ||
1773 | } | ||
1774 | p->neg = rand_neg(); | ||
1775 | |||
1776 | for (j = 0; j < num2; j++) | ||
1777 | { | ||
1778 | /* construct 'a' such that it is a square modulo p, | ||
1779 | * but in general not a proper square and not reduced modulo p */ | ||
1780 | if (!BN_bntest_rand(r, 256, 0, 3)) goto err; | ||
1781 | if (!BN_nnmod(r, r, p, ctx)) goto err; | ||
1782 | if (!BN_mod_sqr(r, r, p, ctx)) goto err; | ||
1783 | if (!BN_bntest_rand(a, 256, 0, 3)) goto err; | ||
1784 | if (!BN_nnmod(a, a, p, ctx)) goto err; | ||
1785 | if (!BN_mod_sqr(a, a, p, ctx)) goto err; | ||
1786 | if (!BN_mul(a, a, r, ctx)) goto err; | ||
1787 | if (rand_neg()) | ||
1788 | if (!BN_sub(a, a, p)) goto err; | ||
1789 | |||
1790 | if (!BN_mod_sqrt(r, a, p, ctx)) goto err; | ||
1791 | if (!BN_mod_sqr(r, r, p, ctx)) goto err; | ||
1792 | |||
1793 | if (!BN_nnmod(a, a, p, ctx)) goto err; | ||
1794 | |||
1795 | if (BN_cmp(a, r) != 0) | ||
1796 | { | ||
1797 | fprintf(stderr, "BN_mod_sqrt failed: a = "); | ||
1798 | BN_print_fp(stderr, a); | ||
1799 | fprintf(stderr, ", r = "); | ||
1800 | BN_print_fp(stderr, r); | ||
1801 | fprintf(stderr, ", p = "); | ||
1802 | BN_print_fp(stderr, p); | ||
1803 | fprintf(stderr, "\n"); | ||
1804 | goto err; | ||
1805 | } | ||
1806 | |||
1807 | putc('.', stderr); | ||
1808 | fflush(stderr); | ||
1809 | } | ||
1810 | |||
1811 | putc('\n', stderr); | ||
1812 | fflush(stderr); | ||
1813 | } | ||
1814 | ret = 1; | ||
1815 | err: | ||
1816 | if (a != NULL) BN_free(a); | ||
1817 | if (p != NULL) BN_free(p); | ||
1818 | if (r != NULL) BN_free(r); | ||
1819 | return ret; | ||
1820 | } | ||
1821 | |||
1822 | int test_lshift(BIO *bp,BN_CTX *ctx,BIGNUM *a_) | ||
1823 | { | ||
1824 | BIGNUM *a,*b,*c,*d; | ||
1825 | int i; | ||
1826 | |||
1827 | b=BN_new(); | ||
1828 | c=BN_new(); | ||
1829 | d=BN_new(); | ||
1830 | BN_one(c); | ||
1831 | |||
1832 | if(a_) | ||
1833 | a=a_; | ||
1834 | else | ||
1835 | { | ||
1836 | a=BN_new(); | ||
1837 | BN_bntest_rand(a,200,0,0); /**/ | ||
1838 | a->neg=rand_neg(); | ||
1839 | } | ||
1840 | for (i=0; i<num0; i++) | ||
1841 | { | ||
1842 | BN_lshift(b,a,i+1); | ||
1843 | BN_add(c,c,c); | ||
1844 | if (bp != NULL) | ||
1845 | { | ||
1846 | if (!results) | ||
1847 | { | ||
1848 | BN_print(bp,a); | ||
1849 | BIO_puts(bp," * "); | ||
1850 | BN_print(bp,c); | ||
1851 | BIO_puts(bp," - "); | ||
1852 | } | ||
1853 | BN_print(bp,b); | ||
1854 | BIO_puts(bp,"\n"); | ||
1855 | } | ||
1856 | BN_mul(d,a,c,ctx); | ||
1857 | BN_sub(d,d,b); | ||
1858 | if(!BN_is_zero(d)) | ||
1859 | { | ||
1860 | fprintf(stderr,"Left shift test failed!\n"); | ||
1861 | fprintf(stderr,"a="); | ||
1862 | BN_print_fp(stderr,a); | ||
1863 | fprintf(stderr,"\nb="); | ||
1864 | BN_print_fp(stderr,b); | ||
1865 | fprintf(stderr,"\nc="); | ||
1866 | BN_print_fp(stderr,c); | ||
1867 | fprintf(stderr,"\nd="); | ||
1868 | BN_print_fp(stderr,d); | ||
1869 | fprintf(stderr,"\n"); | ||
1870 | return 0; | ||
1871 | } | ||
1872 | } | ||
1873 | BN_free(a); | ||
1874 | BN_free(b); | ||
1875 | BN_free(c); | ||
1876 | BN_free(d); | ||
1877 | return(1); | ||
1878 | } | ||
1879 | |||
1880 | int test_lshift1(BIO *bp) | ||
1881 | { | ||
1882 | BIGNUM *a,*b,*c; | ||
1883 | int i; | ||
1884 | |||
1885 | a=BN_new(); | ||
1886 | b=BN_new(); | ||
1887 | c=BN_new(); | ||
1888 | |||
1889 | BN_bntest_rand(a,200,0,0); /**/ | ||
1890 | a->neg=rand_neg(); | ||
1891 | for (i=0; i<num0; i++) | ||
1892 | { | ||
1893 | BN_lshift1(b,a); | ||
1894 | if (bp != NULL) | ||
1895 | { | ||
1896 | if (!results) | ||
1897 | { | ||
1898 | BN_print(bp,a); | ||
1899 | BIO_puts(bp," * 2"); | ||
1900 | BIO_puts(bp," - "); | ||
1901 | } | ||
1902 | BN_print(bp,b); | ||
1903 | BIO_puts(bp,"\n"); | ||
1904 | } | ||
1905 | BN_add(c,a,a); | ||
1906 | BN_sub(a,b,c); | ||
1907 | if(!BN_is_zero(a)) | ||
1908 | { | ||
1909 | fprintf(stderr,"Left shift one test failed!\n"); | ||
1910 | return 0; | ||
1911 | } | ||
1912 | |||
1913 | BN_copy(a,b); | ||
1914 | } | ||
1915 | BN_free(a); | ||
1916 | BN_free(b); | ||
1917 | BN_free(c); | ||
1918 | return(1); | ||
1919 | } | ||
1920 | |||
1921 | int test_rshift(BIO *bp,BN_CTX *ctx) | ||
1922 | { | ||
1923 | BIGNUM *a,*b,*c,*d,*e; | ||
1924 | int i; | ||
1925 | |||
1926 | a=BN_new(); | ||
1927 | b=BN_new(); | ||
1928 | c=BN_new(); | ||
1929 | d=BN_new(); | ||
1930 | e=BN_new(); | ||
1931 | BN_one(c); | ||
1932 | |||
1933 | BN_bntest_rand(a,200,0,0); /**/ | ||
1934 | a->neg=rand_neg(); | ||
1935 | for (i=0; i<num0; i++) | ||
1936 | { | ||
1937 | BN_rshift(b,a,i+1); | ||
1938 | BN_add(c,c,c); | ||
1939 | if (bp != NULL) | ||
1940 | { | ||
1941 | if (!results) | ||
1942 | { | ||
1943 | BN_print(bp,a); | ||
1944 | BIO_puts(bp," / "); | ||
1945 | BN_print(bp,c); | ||
1946 | BIO_puts(bp," - "); | ||
1947 | } | ||
1948 | BN_print(bp,b); | ||
1949 | BIO_puts(bp,"\n"); | ||
1950 | } | ||
1951 | BN_div(d,e,a,c,ctx); | ||
1952 | BN_sub(d,d,b); | ||
1953 | if(!BN_is_zero(d)) | ||
1954 | { | ||
1955 | fprintf(stderr,"Right shift test failed!\n"); | ||
1956 | return 0; | ||
1957 | } | ||
1958 | } | ||
1959 | BN_free(a); | ||
1960 | BN_free(b); | ||
1961 | BN_free(c); | ||
1962 | BN_free(d); | ||
1963 | BN_free(e); | ||
1964 | return(1); | ||
1965 | } | ||
1966 | |||
1967 | int test_rshift1(BIO *bp) | ||
1968 | { | ||
1969 | BIGNUM *a,*b,*c; | ||
1970 | int i; | ||
1971 | |||
1972 | a=BN_new(); | ||
1973 | b=BN_new(); | ||
1974 | c=BN_new(); | ||
1975 | |||
1976 | BN_bntest_rand(a,200,0,0); /**/ | ||
1977 | a->neg=rand_neg(); | ||
1978 | for (i=0; i<num0; i++) | ||
1979 | { | ||
1980 | BN_rshift1(b,a); | ||
1981 | if (bp != NULL) | ||
1982 | { | ||
1983 | if (!results) | ||
1984 | { | ||
1985 | BN_print(bp,a); | ||
1986 | BIO_puts(bp," / 2"); | ||
1987 | BIO_puts(bp," - "); | ||
1988 | } | ||
1989 | BN_print(bp,b); | ||
1990 | BIO_puts(bp,"\n"); | ||
1991 | } | ||
1992 | BN_sub(c,a,b); | ||
1993 | BN_sub(c,c,b); | ||
1994 | if(!BN_is_zero(c) && !BN_abs_is_word(c, 1)) | ||
1995 | { | ||
1996 | fprintf(stderr,"Right shift one test failed!\n"); | ||
1997 | return 0; | ||
1998 | } | ||
1999 | BN_copy(a,b); | ||
2000 | } | ||
2001 | BN_free(a); | ||
2002 | BN_free(b); | ||
2003 | BN_free(c); | ||
2004 | return(1); | ||
2005 | } | ||
2006 | |||
2007 | int rand_neg(void) | ||
2008 | { | ||
2009 | static unsigned int neg=0; | ||
2010 | static int sign[8]={0,0,0,1,1,0,1,1}; | ||
2011 | |||
2012 | return(sign[(neg++)%8]); | ||
2013 | } | ||
diff --git a/src/lib/libcrypto/bn/divtest.c b/src/lib/libcrypto/bn/divtest.c new file mode 100644 index 0000000000..d3fc688f33 --- /dev/null +++ b/src/lib/libcrypto/bn/divtest.c | |||
@@ -0,0 +1,41 @@ | |||
1 | #include <openssl/bn.h> | ||
2 | #include <openssl/rand.h> | ||
3 | |||
4 | static int Rand(n) | ||
5 | { | ||
6 | unsigned char x[2]; | ||
7 | RAND_pseudo_bytes(x,2); | ||
8 | return (x[0] + 2*x[1]); | ||
9 | } | ||
10 | |||
11 | static void bug(char *m, BIGNUM *a, BIGNUM *b) | ||
12 | { | ||
13 | printf("%s!\na=",m); | ||
14 | BN_print_fp(stdout, a); | ||
15 | printf("\nb="); | ||
16 | BN_print_fp(stdout, b); | ||
17 | printf("\n"); | ||
18 | fflush(stdout); | ||
19 | } | ||
20 | |||
21 | main() | ||
22 | { | ||
23 | BIGNUM *a=BN_new(), *b=BN_new(), *c=BN_new(), *d=BN_new(), | ||
24 | *C=BN_new(), *D=BN_new(); | ||
25 | BN_RECP_CTX *recp=BN_RECP_CTX_new(); | ||
26 | BN_CTX *ctx=BN_CTX_new(); | ||
27 | |||
28 | for(;;) { | ||
29 | BN_pseudo_rand(a,Rand(),0,0); | ||
30 | BN_pseudo_rand(b,Rand(),0,0); | ||
31 | if (BN_is_zero(b)) continue; | ||
32 | |||
33 | BN_RECP_CTX_set(recp,b,ctx); | ||
34 | if (BN_div(C,D,a,b,ctx) != 1) | ||
35 | bug("BN_div failed",a,b); | ||
36 | if (BN_div_recp(c,d,a,recp,ctx) != 1) | ||
37 | bug("BN_div_recp failed",a,b); | ||
38 | else if (BN_cmp(c,C) != 0 || BN_cmp(c,C) != 0) | ||
39 | bug("mismatch",a,b); | ||
40 | } | ||
41 | } | ||
diff --git a/src/lib/libcrypto/bn/exp.c b/src/lib/libcrypto/bn/exp.c new file mode 100644 index 0000000000..4865b0ef74 --- /dev/null +++ b/src/lib/libcrypto/bn/exp.c | |||
@@ -0,0 +1,62 @@ | |||
1 | /* unused */ | ||
2 | |||
3 | #include <stdio.h> | ||
4 | #include <openssl/tmdiff.h> | ||
5 | #include "bn_lcl.h" | ||
6 | |||
7 | #define SIZE 256 | ||
8 | #define NUM (8*8*8) | ||
9 | #define MOD (8*8*8*8*8) | ||
10 | |||
11 | main(argc,argv) | ||
12 | int argc; | ||
13 | char *argv[]; | ||
14 | { | ||
15 | BN_CTX ctx; | ||
16 | BIGNUM a,b,c,r,rr,t,l; | ||
17 | int j,i,size=SIZE,num=NUM,mod=MOD; | ||
18 | char *start,*end; | ||
19 | BN_MONT_CTX mont; | ||
20 | double d,md; | ||
21 | |||
22 | BN_MONT_CTX_init(&mont); | ||
23 | BN_CTX_init(&ctx); | ||
24 | BN_init(&a); | ||
25 | BN_init(&b); | ||
26 | BN_init(&c); | ||
27 | BN_init(&r); | ||
28 | |||
29 | start=ms_time_new(); | ||
30 | end=ms_time_new(); | ||
31 | while (size <= 1024*8) | ||
32 | { | ||
33 | BN_rand(&a,size,0,0); | ||
34 | BN_rand(&b,size,1,0); | ||
35 | BN_rand(&c,size,0,1); | ||
36 | |||
37 | BN_mod(&a,&a,&c,&ctx); | ||
38 | |||
39 | ms_time_get(start); | ||
40 | for (i=0; i<10; i++) | ||
41 | BN_MONT_CTX_set(&mont,&c,&ctx); | ||
42 | ms_time_get(end); | ||
43 | md=ms_time_diff(start,end); | ||
44 | |||
45 | ms_time_get(start); | ||
46 | for (i=0; i<num; i++) | ||
47 | { | ||
48 | /* bn_mull(&r,&a,&b,&ctx); */ | ||
49 | /* BN_sqr(&r,&a,&ctx); */ | ||
50 | BN_mod_exp_mont(&r,&a,&b,&c,&ctx,&mont); | ||
51 | } | ||
52 | ms_time_get(end); | ||
53 | d=ms_time_diff(start,end)/* *50/33 */; | ||
54 | printf("%5d bit:%6.2f %6d %6.4f %4d m_set(%5.4f)\n",size, | ||
55 | d,num,d/num,(int)((d/num)*mod),md/10.0); | ||
56 | num/=8; | ||
57 | mod/=8; | ||
58 | if (num <= 0) num=1; | ||
59 | size*=2; | ||
60 | } | ||
61 | |||
62 | } | ||
diff --git a/src/lib/libcrypto/bn/expspeed.c b/src/lib/libcrypto/bn/expspeed.c new file mode 100644 index 0000000000..4d5f221f33 --- /dev/null +++ b/src/lib/libcrypto/bn/expspeed.c | |||
@@ -0,0 +1,353 @@ | |||
1 | /* unused */ | ||
2 | |||
3 | /* crypto/bn/expspeed.c */ | ||
4 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
5 | * All rights reserved. | ||
6 | * | ||
7 | * This package is an SSL implementation written | ||
8 | * by Eric Young (eay@cryptsoft.com). | ||
9 | * The implementation was written so as to conform with Netscapes SSL. | ||
10 | * | ||
11 | * This library is free for commercial and non-commercial use as long as | ||
12 | * the following conditions are aheared to. The following conditions | ||
13 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
14 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
15 | * included with this distribution is covered by the same copyright terms | ||
16 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
17 | * | ||
18 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
19 | * the code are not to be removed. | ||
20 | * If this package is used in a product, Eric Young should be given attribution | ||
21 | * as the author of the parts of the library used. | ||
22 | * This can be in the form of a textual message at program startup or | ||
23 | * in documentation (online or textual) provided with the package. | ||
24 | * | ||
25 | * Redistribution and use in source and binary forms, with or without | ||
26 | * modification, are permitted provided that the following conditions | ||
27 | * are met: | ||
28 | * 1. Redistributions of source code must retain the copyright | ||
29 | * notice, this list of conditions and the following disclaimer. | ||
30 | * 2. Redistributions in binary form must reproduce the above copyright | ||
31 | * notice, this list of conditions and the following disclaimer in the | ||
32 | * documentation and/or other materials provided with the distribution. | ||
33 | * 3. All advertising materials mentioning features or use of this software | ||
34 | * must display the following acknowledgement: | ||
35 | * "This product includes cryptographic software written by | ||
36 | * Eric Young (eay@cryptsoft.com)" | ||
37 | * The word 'cryptographic' can be left out if the rouines from the library | ||
38 | * being used are not cryptographic related :-). | ||
39 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
40 | * the apps directory (application code) you must include an acknowledgement: | ||
41 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
42 | * | ||
43 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
44 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
45 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
46 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
47 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
48 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
49 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
50 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
51 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
52 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
53 | * SUCH DAMAGE. | ||
54 | * | ||
55 | * The licence and distribution terms for any publically available version or | ||
56 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
57 | * copied and put under another distribution licence | ||
58 | * [including the GNU Public Licence.] | ||
59 | */ | ||
60 | |||
61 | /* most of this code has been pilfered from my libdes speed.c program */ | ||
62 | |||
63 | #define BASENUM 5000 | ||
64 | #define NUM_START 0 | ||
65 | |||
66 | |||
67 | /* determine timings for modexp, modmul, modsqr, gcd, Kronecker symbol, | ||
68 | * modular inverse, or modular square roots */ | ||
69 | #define TEST_EXP | ||
70 | #undef TEST_MUL | ||
71 | #undef TEST_SQR | ||
72 | #undef TEST_GCD | ||
73 | #undef TEST_KRON | ||
74 | #undef TEST_INV | ||
75 | #undef TEST_SQRT | ||
76 | #define P_MOD_64 9 /* least significant 6 bits for prime to be used for BN_sqrt timings */ | ||
77 | |||
78 | #if defined(TEST_EXP) + defined(TEST_MUL) + defined(TEST_SQR) + defined(TEST_GCD) + defined(TEST_KRON) + defined(TEST_INV) +defined(TEST_SQRT) != 1 | ||
79 | # error "choose one test" | ||
80 | #endif | ||
81 | |||
82 | #if defined(TEST_INV) || defined(TEST_SQRT) | ||
83 | # define C_PRIME | ||
84 | static void genprime_cb(int p, int n, void *arg); | ||
85 | #endif | ||
86 | |||
87 | |||
88 | |||
89 | #undef PROG | ||
90 | #define PROG bnspeed_main | ||
91 | |||
92 | #include <stdio.h> | ||
93 | #include <stdlib.h> | ||
94 | #include <signal.h> | ||
95 | #include <string.h> | ||
96 | #include <openssl/crypto.h> | ||
97 | #include <openssl/err.h> | ||
98 | #include <openssl/rand.h> | ||
99 | |||
100 | #if !defined(OPENSSL_SYS_MSDOS) && (!defined(OPENSSL_SYS_VMS) || defined(__DECC)) && !defined(OPENSSL_SYS_MACOSX) | ||
101 | #define TIMES | ||
102 | #endif | ||
103 | |||
104 | #ifndef _IRIX | ||
105 | #include <time.h> | ||
106 | #endif | ||
107 | #ifdef TIMES | ||
108 | #include <sys/types.h> | ||
109 | #include <sys/times.h> | ||
110 | #endif | ||
111 | |||
112 | /* Depending on the VMS version, the tms structure is perhaps defined. | ||
113 | The __TMS macro will show if it was. If it wasn't defined, we should | ||
114 | undefine TIMES, since that tells the rest of the program how things | ||
115 | should be handled. -- Richard Levitte */ | ||
116 | #if defined(OPENSSL_SYS_VMS_DECC) && !defined(__TMS) | ||
117 | #undef TIMES | ||
118 | #endif | ||
119 | |||
120 | #ifndef TIMES | ||
121 | #include <sys/timeb.h> | ||
122 | #endif | ||
123 | |||
124 | #if defined(sun) || defined(__ultrix) | ||
125 | #define _POSIX_SOURCE | ||
126 | #include <limits.h> | ||
127 | #include <sys/param.h> | ||
128 | #endif | ||
129 | |||
130 | #include <openssl/bn.h> | ||
131 | #include <openssl/x509.h> | ||
132 | |||
133 | /* The following if from times(3) man page. It may need to be changed */ | ||
134 | #ifndef HZ | ||
135 | # ifndef CLK_TCK | ||
136 | # ifndef _BSD_CLK_TCK_ /* FreeBSD hack */ | ||
137 | # define HZ 100.0 | ||
138 | # else /* _BSD_CLK_TCK_ */ | ||
139 | # define HZ ((double)_BSD_CLK_TCK_) | ||
140 | # endif | ||
141 | # else /* CLK_TCK */ | ||
142 | # define HZ ((double)CLK_TCK) | ||
143 | # endif | ||
144 | #endif | ||
145 | |||
146 | #undef BUFSIZE | ||
147 | #define BUFSIZE ((long)1024*8) | ||
148 | int run=0; | ||
149 | |||
150 | static double Time_F(int s); | ||
151 | #define START 0 | ||
152 | #define STOP 1 | ||
153 | |||
154 | static double Time_F(int s) | ||
155 | { | ||
156 | double ret; | ||
157 | #ifdef TIMES | ||
158 | static struct tms tstart,tend; | ||
159 | |||
160 | if (s == START) | ||
161 | { | ||
162 | times(&tstart); | ||
163 | return(0); | ||
164 | } | ||
165 | else | ||
166 | { | ||
167 | times(&tend); | ||
168 | ret=((double)(tend.tms_utime-tstart.tms_utime))/HZ; | ||
169 | return((ret < 1e-3)?1e-3:ret); | ||
170 | } | ||
171 | #else /* !times() */ | ||
172 | static struct timeb tstart,tend; | ||
173 | long i; | ||
174 | |||
175 | if (s == START) | ||
176 | { | ||
177 | ftime(&tstart); | ||
178 | return(0); | ||
179 | } | ||
180 | else | ||
181 | { | ||
182 | ftime(&tend); | ||
183 | i=(long)tend.millitm-(long)tstart.millitm; | ||
184 | ret=((double)(tend.time-tstart.time))+((double)i)/1000.0; | ||
185 | return((ret < 0.001)?0.001:ret); | ||
186 | } | ||
187 | #endif | ||
188 | } | ||
189 | |||
190 | #define NUM_SIZES 7 | ||
191 | #if NUM_START > NUM_SIZES | ||
192 | # error "NUM_START > NUM_SIZES" | ||
193 | #endif | ||
194 | static int sizes[NUM_SIZES]={128,256,512,1024,2048,4096,8192}; | ||
195 | static int mul_c[NUM_SIZES]={8*8*8*8*8*8,8*8*8*8*8,8*8*8*8,8*8*8,8*8,8,1}; | ||
196 | /*static int sizes[NUM_SIZES]={59,179,299,419,539}; */ | ||
197 | |||
198 | #define RAND_SEED(string) { const char str[] = string; RAND_seed(string, sizeof str); } | ||
199 | |||
200 | void do_mul_exp(BIGNUM *r,BIGNUM *a,BIGNUM *b,BIGNUM *c,BN_CTX *ctx); | ||
201 | |||
202 | int main(int argc, char **argv) | ||
203 | { | ||
204 | BN_CTX *ctx; | ||
205 | BIGNUM *a,*b,*c,*r; | ||
206 | |||
207 | #if 1 | ||
208 | if (!CRYPTO_set_mem_debug_functions(0,0,0,0,0)) | ||
209 | abort(); | ||
210 | #endif | ||
211 | |||
212 | ctx=BN_CTX_new(); | ||
213 | a=BN_new(); | ||
214 | b=BN_new(); | ||
215 | c=BN_new(); | ||
216 | r=BN_new(); | ||
217 | |||
218 | while (!RAND_status()) | ||
219 | /* not enough bits */ | ||
220 | RAND_SEED("I demand a manual recount!"); | ||
221 | |||
222 | do_mul_exp(r,a,b,c,ctx); | ||
223 | return 0; | ||
224 | } | ||
225 | |||
226 | void do_mul_exp(BIGNUM *r, BIGNUM *a, BIGNUM *b, BIGNUM *c, BN_CTX *ctx) | ||
227 | { | ||
228 | int i,k; | ||
229 | double tm; | ||
230 | long num; | ||
231 | |||
232 | num=BASENUM; | ||
233 | for (i=NUM_START; i<NUM_SIZES; i++) | ||
234 | { | ||
235 | #ifdef C_PRIME | ||
236 | # ifdef TEST_SQRT | ||
237 | if (!BN_set_word(a, 64)) goto err; | ||
238 | if (!BN_set_word(b, P_MOD_64)) goto err; | ||
239 | # define ADD a | ||
240 | # define REM b | ||
241 | # else | ||
242 | # define ADD NULL | ||
243 | # define REM NULL | ||
244 | # endif | ||
245 | if (!BN_generate_prime(c,sizes[i],0,ADD,REM,genprime_cb,NULL)) goto err; | ||
246 | putc('\n', stderr); | ||
247 | fflush(stderr); | ||
248 | #endif | ||
249 | |||
250 | for (k=0; k<num; k++) | ||
251 | { | ||
252 | if (k%50 == 0) /* Average over num/50 different choices of random numbers. */ | ||
253 | { | ||
254 | if (!BN_pseudo_rand(a,sizes[i],1,0)) goto err; | ||
255 | |||
256 | if (!BN_pseudo_rand(b,sizes[i],1,0)) goto err; | ||
257 | |||
258 | #ifndef C_PRIME | ||
259 | if (!BN_pseudo_rand(c,sizes[i],1,1)) goto err; | ||
260 | #endif | ||
261 | |||
262 | #ifdef TEST_SQRT | ||
263 | if (!BN_mod_sqr(a,a,c,ctx)) goto err; | ||
264 | if (!BN_mod_sqr(b,b,c,ctx)) goto err; | ||
265 | #else | ||
266 | if (!BN_nnmod(a,a,c,ctx)) goto err; | ||
267 | if (!BN_nnmod(b,b,c,ctx)) goto err; | ||
268 | #endif | ||
269 | |||
270 | if (k == 0) | ||
271 | Time_F(START); | ||
272 | } | ||
273 | |||
274 | #if defined(TEST_EXP) | ||
275 | if (!BN_mod_exp(r,a,b,c,ctx)) goto err; | ||
276 | #elif defined(TEST_MUL) | ||
277 | { | ||
278 | int i = 0; | ||
279 | for (i = 0; i < 50; i++) | ||
280 | if (!BN_mod_mul(r,a,b,c,ctx)) goto err; | ||
281 | } | ||
282 | #elif defined(TEST_SQR) | ||
283 | { | ||
284 | int i = 0; | ||
285 | for (i = 0; i < 50; i++) | ||
286 | { | ||
287 | if (!BN_mod_sqr(r,a,c,ctx)) goto err; | ||
288 | if (!BN_mod_sqr(r,b,c,ctx)) goto err; | ||
289 | } | ||
290 | } | ||
291 | #elif defined(TEST_GCD) | ||
292 | if (!BN_gcd(r,a,b,ctx)) goto err; | ||
293 | if (!BN_gcd(r,b,c,ctx)) goto err; | ||
294 | if (!BN_gcd(r,c,a,ctx)) goto err; | ||
295 | #elif defined(TEST_KRON) | ||
296 | if (-2 == BN_kronecker(a,b,ctx)) goto err; | ||
297 | if (-2 == BN_kronecker(b,c,ctx)) goto err; | ||
298 | if (-2 == BN_kronecker(c,a,ctx)) goto err; | ||
299 | #elif defined(TEST_INV) | ||
300 | if (!BN_mod_inverse(r,a,c,ctx)) goto err; | ||
301 | if (!BN_mod_inverse(r,b,c,ctx)) goto err; | ||
302 | #else /* TEST_SQRT */ | ||
303 | if (!BN_mod_sqrt(r,a,c,ctx)) goto err; | ||
304 | if (!BN_mod_sqrt(r,b,c,ctx)) goto err; | ||
305 | #endif | ||
306 | } | ||
307 | tm=Time_F(STOP); | ||
308 | printf( | ||
309 | #if defined(TEST_EXP) | ||
310 | "modexp %4d ^ %4d %% %4d" | ||
311 | #elif defined(TEST_MUL) | ||
312 | "50*modmul %4d %4d %4d" | ||
313 | #elif defined(TEST_SQR) | ||
314 | "100*modsqr %4d %4d %4d" | ||
315 | #elif defined(TEST_GCD) | ||
316 | "3*gcd %4d %4d %4d" | ||
317 | #elif defined(TEST_KRON) | ||
318 | "3*kronecker %4d %4d %4d" | ||
319 | #elif defined(TEST_INV) | ||
320 | "2*inv %4d %4d mod %4d" | ||
321 | #else /* TEST_SQRT */ | ||
322 | "2*sqrt [prime == %d (mod 64)] %4d %4d mod %4d" | ||
323 | #endif | ||
324 | " -> %8.6fms %5.1f (%ld)\n", | ||
325 | #ifdef TEST_SQRT | ||
326 | P_MOD_64, | ||
327 | #endif | ||
328 | sizes[i],sizes[i],sizes[i],tm*1000.0/num,tm*mul_c[i]/num, num); | ||
329 | num/=7; | ||
330 | if (num <= 0) num=1; | ||
331 | } | ||
332 | return; | ||
333 | |||
334 | err: | ||
335 | ERR_print_errors_fp(stderr); | ||
336 | } | ||
337 | |||
338 | |||
339 | #ifdef C_PRIME | ||
340 | static void genprime_cb(int p, int n, void *arg) | ||
341 | { | ||
342 | char c='*'; | ||
343 | |||
344 | if (p == 0) c='.'; | ||
345 | if (p == 1) c='+'; | ||
346 | if (p == 2) c='*'; | ||
347 | if (p == 3) c='\n'; | ||
348 | putc(c, stderr); | ||
349 | fflush(stderr); | ||
350 | (void)n; | ||
351 | (void)arg; | ||
352 | } | ||
353 | #endif | ||
diff --git a/src/lib/libcrypto/bn/exptest.c b/src/lib/libcrypto/bn/exptest.c new file mode 100644 index 0000000000..074a8e882a --- /dev/null +++ b/src/lib/libcrypto/bn/exptest.c | |||
@@ -0,0 +1,204 @@ | |||
1 | /* crypto/bn/exptest.c */ | ||
2 | /* Copyright (C) 1995-1998 Eric Young (eay@cryptsoft.com) | ||
3 | * All rights reserved. | ||
4 | * | ||
5 | * This package is an SSL implementation written | ||
6 | * by Eric Young (eay@cryptsoft.com). | ||
7 | * The implementation was written so as to conform with Netscapes SSL. | ||
8 | * | ||
9 | * This library is free for commercial and non-commercial use as long as | ||
10 | * the following conditions are aheared to. The following conditions | ||
11 | * apply to all code found in this distribution, be it the RC4, RSA, | ||
12 | * lhash, DES, etc., code; not just the SSL code. The SSL documentation | ||
13 | * included with this distribution is covered by the same copyright terms | ||
14 | * except that the holder is Tim Hudson (tjh@cryptsoft.com). | ||
15 | * | ||
16 | * Copyright remains Eric Young's, and as such any Copyright notices in | ||
17 | * the code are not to be removed. | ||
18 | * If this package is used in a product, Eric Young should be given attribution | ||
19 | * as the author of the parts of the library used. | ||
20 | * This can be in the form of a textual message at program startup or | ||
21 | * in documentation (online or textual) provided with the package. | ||
22 | * | ||
23 | * Redistribution and use in source and binary forms, with or without | ||
24 | * modification, are permitted provided that the following conditions | ||
25 | * are met: | ||
26 | * 1. Redistributions of source code must retain the copyright | ||
27 | * notice, this list of conditions and the following disclaimer. | ||
28 | * 2. Redistributions in binary form must reproduce the above copyright | ||
29 | * notice, this list of conditions and the following disclaimer in the | ||
30 | * documentation and/or other materials provided with the distribution. | ||
31 | * 3. All advertising materials mentioning features or use of this software | ||
32 | * must display the following acknowledgement: | ||
33 | * "This product includes cryptographic software written by | ||
34 | * Eric Young (eay@cryptsoft.com)" | ||
35 | * The word 'cryptographic' can be left out if the rouines from the library | ||
36 | * being used are not cryptographic related :-). | ||
37 | * 4. If you include any Windows specific code (or a derivative thereof) from | ||
38 | * the apps directory (application code) you must include an acknowledgement: | ||
39 | * "This product includes software written by Tim Hudson (tjh@cryptsoft.com)" | ||
40 | * | ||
41 | * THIS SOFTWARE IS PROVIDED BY ERIC YOUNG ``AS IS'' AND | ||
42 | * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
43 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE | ||
44 | * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE | ||
45 | * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL | ||
46 | * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS | ||
47 | * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
48 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT | ||
49 | * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY | ||
50 | * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF | ||
51 | * SUCH DAMAGE. | ||
52 | * | ||
53 | * The licence and distribution terms for any publically available version or | ||
54 | * derivative of this code cannot be changed. i.e. this code cannot simply be | ||
55 | * copied and put under another distribution licence | ||
56 | * [including the GNU Public Licence.] | ||
57 | */ | ||
58 | |||
59 | #include <stdio.h> | ||
60 | #include <stdlib.h> | ||
61 | #include <string.h> | ||
62 | |||
63 | #include "../e_os.h" | ||
64 | |||
65 | #include <openssl/bio.h> | ||
66 | #include <openssl/bn.h> | ||
67 | #include <openssl/rand.h> | ||
68 | #include <openssl/err.h> | ||
69 | |||
70 | #define NUM_BITS (BN_BITS*2) | ||
71 | |||
72 | static const char rnd_seed[] = "string to make the random number generator think it has entropy"; | ||
73 | |||
74 | int main(int argc, char *argv[]) | ||
75 | { | ||
76 | BN_CTX *ctx; | ||
77 | BIO *out=NULL; | ||
78 | int i,ret; | ||
79 | unsigned char c; | ||
80 | BIGNUM *r_mont,*r_mont_const,*r_recp,*r_simple,*a,*b,*m; | ||
81 | |||
82 | RAND_seed(rnd_seed, sizeof rnd_seed); /* or BN_rand may fail, and we don't | ||
83 | * even check its return value | ||
84 | * (which we should) */ | ||
85 | |||
86 | ERR_load_BN_strings(); | ||
87 | |||
88 | ctx=BN_CTX_new(); | ||
89 | if (ctx == NULL) EXIT(1); | ||
90 | r_mont=BN_new(); | ||
91 | r_mont_const=BN_new(); | ||
92 | r_recp=BN_new(); | ||
93 | r_simple=BN_new(); | ||
94 | a=BN_new(); | ||
95 | b=BN_new(); | ||
96 | m=BN_new(); | ||
97 | if ( (r_mont == NULL) || (r_recp == NULL) || | ||
98 | (a == NULL) || (b == NULL)) | ||
99 | goto err; | ||
100 | |||
101 | out=BIO_new(BIO_s_file()); | ||
102 | |||
103 | if (out == NULL) EXIT(1); | ||
104 | BIO_set_fp(out,stdout,BIO_NOCLOSE); | ||
105 | |||
106 | for (i=0; i<200; i++) | ||
107 | { | ||
108 | RAND_bytes(&c,1); | ||
109 | c=(c%BN_BITS)-BN_BITS2; | ||
110 | BN_rand(a,NUM_BITS+c,0,0); | ||
111 | |||
112 | RAND_bytes(&c,1); | ||
113 | c=(c%BN_BITS)-BN_BITS2; | ||
114 | BN_rand(b,NUM_BITS+c,0,0); | ||
115 | |||
116 | RAND_bytes(&c,1); | ||
117 | c=(c%BN_BITS)-BN_BITS2; | ||
118 | BN_rand(m,NUM_BITS+c,0,1); | ||
119 | |||
120 | BN_mod(a,a,m,ctx); | ||
121 | BN_mod(b,b,m,ctx); | ||
122 | |||
123 | ret=BN_mod_exp_mont(r_mont,a,b,m,ctx,NULL); | ||
124 | if (ret <= 0) | ||
125 | { | ||
126 | printf("BN_mod_exp_mont() problems\n"); | ||
127 | ERR_print_errors(out); | ||
128 | EXIT(1); | ||
129 | } | ||
130 | |||
131 | ret=BN_mod_exp_recp(r_recp,a,b,m,ctx); | ||
132 | if (ret <= 0) | ||
133 | { | ||
134 | printf("BN_mod_exp_recp() problems\n"); | ||
135 | ERR_print_errors(out); | ||
136 | EXIT(1); | ||
137 | } | ||
138 | |||
139 | ret=BN_mod_exp_simple(r_simple,a,b,m,ctx); | ||
140 | if (ret <= 0) | ||
141 | { | ||
142 | printf("BN_mod_exp_simple() problems\n"); | ||
143 | ERR_print_errors(out); | ||
144 | EXIT(1); | ||
145 | } | ||
146 | |||
147 | ret=BN_mod_exp_mont_consttime(r_mont_const,a,b,m,ctx,NULL); | ||
148 | if (ret <= 0) | ||
149 | { | ||
150 | printf("BN_mod_exp_mont_consttime() problems\n"); | ||
151 | ERR_print_errors(out); | ||
152 | EXIT(1); | ||
153 | } | ||
154 | |||
155 | if (BN_cmp(r_simple, r_mont) == 0 | ||
156 | && BN_cmp(r_simple,r_recp) == 0 | ||
157 | && BN_cmp(r_simple,r_mont_const) == 0) | ||
158 | { | ||
159 | printf("."); | ||
160 | fflush(stdout); | ||
161 | } | ||
162 | else | ||
163 | { | ||
164 | if (BN_cmp(r_simple,r_mont) != 0) | ||
165 | printf("\nsimple and mont results differ\n"); | ||
166 | if (BN_cmp(r_simple,r_mont_const) != 0) | ||
167 | printf("\nsimple and mont const time results differ\n"); | ||
168 | if (BN_cmp(r_simple,r_recp) != 0) | ||
169 | printf("\nsimple and recp results differ\n"); | ||
170 | |||
171 | printf("a (%3d) = ",BN_num_bits(a)); BN_print(out,a); | ||
172 | printf("\nb (%3d) = ",BN_num_bits(b)); BN_print(out,b); | ||
173 | printf("\nm (%3d) = ",BN_num_bits(m)); BN_print(out,m); | ||
174 | printf("\nsimple ="); BN_print(out,r_simple); | ||
175 | printf("\nrecp ="); BN_print(out,r_recp); | ||
176 | printf("\nmont ="); BN_print(out,r_mont); | ||
177 | printf("\nmont_ct ="); BN_print(out,r_mont_const); | ||
178 | printf("\n"); | ||
179 | EXIT(1); | ||
180 | } | ||
181 | } | ||
182 | BN_free(r_mont); | ||
183 | BN_free(r_mont_const); | ||
184 | BN_free(r_recp); | ||
185 | BN_free(r_simple); | ||
186 | BN_free(a); | ||
187 | BN_free(b); | ||
188 | BN_free(m); | ||
189 | BN_CTX_free(ctx); | ||
190 | ERR_remove_thread_state(NULL); | ||
191 | CRYPTO_mem_leaks(out); | ||
192 | BIO_free(out); | ||
193 | printf(" done\n"); | ||
194 | EXIT(0); | ||
195 | err: | ||
196 | ERR_load_crypto_strings(); | ||
197 | ERR_print_errors(out); | ||
198 | #ifdef OPENSSL_SYS_NETWARE | ||
199 | printf("ERROR\n"); | ||
200 | #endif | ||
201 | EXIT(1); | ||
202 | return(1); | ||
203 | } | ||
204 | |||
diff --git a/src/lib/libcrypto/bn/todo b/src/lib/libcrypto/bn/todo new file mode 100644 index 0000000000..e47e381aea --- /dev/null +++ b/src/lib/libcrypto/bn/todo | |||
@@ -0,0 +1,3 @@ | |||
1 | Cache RECP_CTX values | ||
2 | make the result argument independant of the inputs. | ||
3 | split up the _exp_ functions | ||
diff --git a/src/lib/libcrypto/bn/vms-helper.c b/src/lib/libcrypto/bn/vms-helper.c new file mode 100644 index 0000000000..4b63149bf3 --- /dev/null +++ b/src/lib/libcrypto/bn/vms-helper.c | |||
@@ -0,0 +1,68 @@ | |||
1 | /* vms-helper.c */ | ||
2 | /* ==================================================================== | ||
3 | * Copyright (c) 1999 The OpenSSL Project. All rights reserved. | ||
4 | * | ||
5 | * Redistribution and use in source and binary forms, with or without | ||
6 | * modification, are permitted provided that the following conditions | ||
7 | * are met: | ||
8 | * | ||
9 | * 1. Redistributions of source code must retain the above copyright | ||
10 | * notice, this list of conditions and the following disclaimer. | ||
11 | * | ||
12 | * 2. Redistributions in binary form must reproduce the above copyright | ||
13 | * notice, this list of conditions and the following disclaimer in | ||
14 | * the documentation and/or other materials provided with the | ||
15 | * distribution. | ||
16 | * | ||
17 | * 3. All advertising materials mentioning features or use of this | ||
18 | * software must display the following acknowledgment: | ||
19 | * "This product includes software developed by the OpenSSL Project | ||
20 | * for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)" | ||
21 | * | ||
22 | * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to | ||
23 | * endorse or promote products derived from this software without | ||
24 | * prior written permission. For written permission, please contact | ||
25 | * openssl-core@OpenSSL.org. | ||
26 | * | ||
27 | * 5. Products derived from this software may not be called "OpenSSL" | ||
28 | * nor may "OpenSSL" appear in their names without prior written | ||
29 | * permission of the OpenSSL Project. | ||
30 | * | ||
31 | * 6. Redistributions of any form whatsoever must retain the following | ||
32 | * acknowledgment: | ||
33 | * "This product includes software developed by the OpenSSL Project | ||
34 | * for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)" | ||
35 | * | ||
36 | * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY | ||
37 | * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE | ||
38 | * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR | ||
39 | * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR | ||
40 | * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, | ||
41 | * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT | ||
42 | * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; | ||
43 | * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) | ||
44 | * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, | ||
45 | * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) | ||
46 | * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED | ||
47 | * OF THE POSSIBILITY OF SUCH DAMAGE. | ||
48 | * ==================================================================== | ||
49 | * | ||
50 | * This product includes cryptographic software written by Eric Young | ||
51 | * (eay@cryptsoft.com). This product includes software written by Tim | ||
52 | * Hudson (tjh@cryptsoft.com). | ||
53 | * | ||
54 | */ | ||
55 | |||
56 | #include <stdio.h> | ||
57 | #include "cryptlib.h" | ||
58 | #include "bn_lcl.h" | ||
59 | |||
60 | bn_div_words_abort(int i) | ||
61 | { | ||
62 | #ifdef BN_DEBUG | ||
63 | #if !defined(OPENSSL_NO_STDIO) && !defined(OPENSSL_SYS_WIN16) | ||
64 | fprintf(stderr,"Division would overflow (%d)\n",i); | ||
65 | #endif | ||
66 | abort(); | ||
67 | #endif | ||
68 | } | ||