17c478bdstevel@tonic-gate/*
27c478bdstevel@tonic-gate * CDDL HEADER START
37c478bdstevel@tonic-gate *
47c478bdstevel@tonic-gate * The contents of this file are subject to the terms of the
57c478bdstevel@tonic-gate * Common Development and Distribution License, Version 1.0 only
67c478bdstevel@tonic-gate * (the "License").  You may not use this file except in compliance
77c478bdstevel@tonic-gate * with the License.
87c478bdstevel@tonic-gate *
97c478bdstevel@tonic-gate * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
107c478bdstevel@tonic-gate * or http://www.opensolaris.org/os/licensing.
117c478bdstevel@tonic-gate * See the License for the specific language governing permissions
127c478bdstevel@tonic-gate * and limitations under the License.
137c478bdstevel@tonic-gate *
147c478bdstevel@tonic-gate * When distributing Covered Code, include this CDDL HEADER in each
157c478bdstevel@tonic-gate * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
167c478bdstevel@tonic-gate * If applicable, add the following below this CDDL HEADER, with the
177c478bdstevel@tonic-gate * fields enclosed by brackets "[]" replaced with your own identifying
187c478bdstevel@tonic-gate * information: Portions Copyright [yyyy] [name of copyright owner]
197c478bdstevel@tonic-gate *
207c478bdstevel@tonic-gate * CDDL HEADER END
217c478bdstevel@tonic-gate */
227c478bdstevel@tonic-gate/*
237c478bdstevel@tonic-gate * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
247c478bdstevel@tonic-gate * Use is subject to license terms.
257c478bdstevel@tonic-gate */
267c478bdstevel@tonic-gate
277c478bdstevel@tonic-gate#pragma ident	"%Z%%M%	%I%	%E% SMI"
287c478bdstevel@tonic-gate
297c478bdstevel@tonic-gate
307c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
317c478bdstevel@tonic-gate	.file	"mont_mulf_asm_v8plus.s"
327c478bdstevel@tonic-gate
337c478bdstevel@tonic-gate/*
347c478bdstevel@tonic-gate * This file is a result of compiling the mont_mulf.c file to generate an
357c478bdstevel@tonic-gate * assembly output and then hand-editing that output to replace the
367c478bdstevel@tonic-gate * compiler-generated loop for the 512-bit case (nlen == 16) in the
377c478bdstevel@tonic-gate * mont_mulf_noconv routine with a hand-crafted version.
387c478bdstevel@tonic-gate * To compile this:
397c478bdstevel@tonic-gate *
407c478bdstevel@tonic-gate * cc -c -xarch=v8plus -KPIC mont_mulf_asm.s
417c478bdstevel@tonic-gate *
427c478bdstevel@tonic-gate * Note, this file does not support sparcv9 (64-bit).
437c478bdstevel@tonic-gate */
447c478bdstevel@tonic-gate
457c478bdstevel@tonic-gate
467c478bdstevel@tonic-gate	.section	".rodata",#alloc
477c478bdstevel@tonic-gate	.align	8
487c478bdstevel@tonic-gate!
497c478bdstevel@tonic-gate! CONSTANT POOL
507c478bdstevel@tonic-gate!
517c478bdstevel@tonic-gateTwoTo16:
527c478bdstevel@tonic-gate	.word	1089470464
537c478bdstevel@tonic-gate	.word	0
547c478bdstevel@tonic-gate	.type	TwoTo16,#object
557c478bdstevel@tonic-gate	.size	TwoTo16,8
567c478bdstevel@tonic-gate!
577c478bdstevel@tonic-gate! CONSTANT POOL
587c478bdstevel@tonic-gate!
597c478bdstevel@tonic-gateTwoToMinus16:
607c478bdstevel@tonic-gate	.word	1055916032
617c478bdstevel@tonic-gate	.word	0
627c478bdstevel@tonic-gate	.type	TwoToMinus16,#object
637c478bdstevel@tonic-gate	.size	TwoToMinus16,8
647c478bdstevel@tonic-gate!
657c478bdstevel@tonic-gate! CONSTANT POOL
667c478bdstevel@tonic-gate!
677c478bdstevel@tonic-gateZero:
687c478bdstevel@tonic-gate	.word	0
697c478bdstevel@tonic-gate	.word	0
707c478bdstevel@tonic-gate	.type	Zero,#object
717c478bdstevel@tonic-gate	.size	Zero,8
727c478bdstevel@tonic-gate!
737c478bdstevel@tonic-gate! CONSTANT POOL
747c478bdstevel@tonic-gate!
757c478bdstevel@tonic-gateTwoTo32:
767c478bdstevel@tonic-gate	.word	1106247680
777c478bdstevel@tonic-gate	.word	0
787c478bdstevel@tonic-gate	.type	TwoTo32,#object
797c478bdstevel@tonic-gate	.size	TwoTo32,8
807c478bdstevel@tonic-gate!
817c478bdstevel@tonic-gate! CONSTANT POOL
827c478bdstevel@tonic-gate!
837c478bdstevel@tonic-gateTwoToMinus32:
847c478bdstevel@tonic-gate	.word	1039138816
857c478bdstevel@tonic-gate	.word	0
867c478bdstevel@tonic-gate	.type	TwoToMinus32,#object
877c478bdstevel@tonic-gate	.size	TwoToMinus32,8
887c478bdstevel@tonic-gate
897c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
907c478bdstevel@tonic-gate/* 000000	   0 */		.align	4
917c478bdstevel@tonic-gate!
927c478bdstevel@tonic-gate! SUBROUTINE conv_d16_to_i32
937c478bdstevel@tonic-gate!
947c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
957c478bdstevel@tonic-gate
967c478bdstevel@tonic-gate                       	.global conv_d16_to_i32
977c478bdstevel@tonic-gate                       conv_d16_to_i32:
987c478bdstevel@tonic-gate/* 000000	     */		save	%sp,-128,%sp
997c478bdstevel@tonic-gate! FILE mont_mulf.c
1007c478bdstevel@tonic-gate
1017c478bdstevel@tonic-gate!    1		      !#define RF_INLINE_MACROS
1027c478bdstevel@tonic-gate!    3		      !static const double TwoTo16=65536.0;
1037c478bdstevel@tonic-gate!    4		      !static const double TwoToMinus16=1.0/65536.0;
1047c478bdstevel@tonic-gate!    5		      !static const double Zero=0.0;
1057c478bdstevel@tonic-gate!    6		      !static const double TwoTo32=65536.0*65536.0;
1067c478bdstevel@tonic-gate!    7		      !static const double TwoToMinus32=1.0/(65536.0*65536.0);
1077c478bdstevel@tonic-gate!    9		      !#ifdef RF_INLINE_MACROS
1087c478bdstevel@tonic-gate!   11		      !double upper32(double);
1097c478bdstevel@tonic-gate!   12		      !double lower32(double, double);
1107c478bdstevel@tonic-gate!   13		      !double mod(double, double, double);
1117c478bdstevel@tonic-gate!   15		      !#else
1127c478bdstevel@tonic-gate!   17		      !static double upper32(double x)
1137c478bdstevel@tonic-gate!   18		      !{
1147c478bdstevel@tonic-gate!   19		      !  return floor(x*TwoToMinus32);
1157c478bdstevel@tonic-gate!   20		      !}
1167c478bdstevel@tonic-gate!   22		      !static double lower32(double x, double y)
1177c478bdstevel@tonic-gate!   23		      !{
1187c478bdstevel@tonic-gate!   24		      !  return x-TwoTo32*floor(x*TwoToMinus32);
1197c478bdstevel@tonic-gate!   25		      !}
1207c478bdstevel@tonic-gate!   27		      !static double mod(double x, double oneoverm, double m)
1217c478bdstevel@tonic-gate!   28		      !{
1227c478bdstevel@tonic-gate!   29		      !  return x-m*floor(x*oneoverm);
1237c478bdstevel@tonic-gate!   30		      !}
1247c478bdstevel@tonic-gate!   32		      !#endif
1257c478bdstevel@tonic-gate!   35		      !static void cleanup(double *dt, int from, int tlen)
1267c478bdstevel@tonic-gate!   36		      !{
1277c478bdstevel@tonic-gate!   37		      ! int i;
1287c478bdstevel@tonic-gate!   38		      ! double tmp,tmp1,x,x1;
1297c478bdstevel@tonic-gate!   40		      ! tmp=tmp1=Zero;
1307c478bdstevel@tonic-gate!   41		      ! /* original code **
1317c478bdstevel@tonic-gate!   42		      ! for(i=2*from;i<2*tlen-2;i++)
1327c478bdstevel@tonic-gate!   43		      !   {
1337c478bdstevel@tonic-gate!   44		      !     x=dt[i];
1347c478bdstevel@tonic-gate!   45		      !     dt[i]=lower32(x,Zero)+tmp1;
1357c478bdstevel@tonic-gate!   46		      !     tmp1=tmp;
1367c478bdstevel@tonic-gate!   47		      !     tmp=upper32(x);
1377c478bdstevel@tonic-gate!   48		      !   }
1387c478bdstevel@tonic-gate!   49		      ! dt[tlen-2]+=tmp1;
1397c478bdstevel@tonic-gate!   50		      ! dt[tlen-1]+=tmp;
1407c478bdstevel@tonic-gate!   51		      ! **end original code ***/
1417c478bdstevel@tonic-gate!   52		      ! /* new code ***/
1427c478bdstevel@tonic-gate!   53		      ! for(i=2*from;i<2*tlen;i+=2)
1437c478bdstevel@tonic-gate!   54		      !   {
1447c478bdstevel@tonic-gate!   55		      !     x=dt[i];
1457c478bdstevel@tonic-gate!   56		      !     x1=dt[i+1];
1467c478bdstevel@tonic-gate!   57		      !     dt[i]=lower32(x,Zero)+tmp;
1477c478bdstevel@tonic-gate!   58		      !     dt[i+1]=lower32(x1,Zero)+tmp1;
1487c478bdstevel@tonic-gate!   59		      !     tmp=upper32(x);
1497c478bdstevel@tonic-gate!   60		      !     tmp1=upper32(x1);
1507c478bdstevel@tonic-gate!   61		      !   }
1517c478bdstevel@tonic-gate!   62		      !  /** end new code **/
1527c478bdstevel@tonic-gate!   63		      !}
1537c478bdstevel@tonic-gate!   66		      !void conv_d16_to_i32(unsigned int *i32, double *d16, long long *tmp, int ilen)
1547c478bdstevel@tonic-gate!   67		      !{
1557c478bdstevel@tonic-gate!   68		      !int i;
1567c478bdstevel@tonic-gate!   69		      !long long t, t1, a, b, c, d;
1577c478bdstevel@tonic-gate!   71		      ! t1=0;
1587c478bdstevel@tonic-gate!   72		      ! a=(long long)d16[0];
1597c478bdstevel@tonic-gate
1607c478bdstevel@tonic-gate/* 0x0004	  72 */		ldd	[%i1],%f0
1617c478bdstevel@tonic-gate/* 0x0008	  67 */		or	%g0,%i1,%o0
1627c478bdstevel@tonic-gate
1637c478bdstevel@tonic-gate!   73		      ! b=(long long)d16[1];
1647c478bdstevel@tonic-gate!   74		      ! for(i=0; i<ilen-1; i++)
1657c478bdstevel@tonic-gate
1667c478bdstevel@tonic-gate/* 0x000c	  74 */		sub	%i3,1,%g2
1677c478bdstevel@tonic-gate/* 0x0010	     */		cmp	%g2,0
1687c478bdstevel@tonic-gate/* 0x0014	  71 */		or	%g0,0,%o4
1697c478bdstevel@tonic-gate/* 0x0018	  72 */		fdtox	%f0,%f0
1707c478bdstevel@tonic-gate/* 0x001c	     */		std	%f0,[%sp+120]
1717c478bdstevel@tonic-gate/* 0x0020	  74 */		or	%g0,0,%o7
1727c478bdstevel@tonic-gate/* 0x0024	  67 */		or	%g0,%i3,%o1
1737c478bdstevel@tonic-gate/* 0x0028	     */		sub	%i3,2,%o2
1747c478bdstevel@tonic-gate/* 0x002c	  73 */		ldd	[%o0+8],%f0
1757c478bdstevel@tonic-gate/* 0x0030	  67 */		sethi	%hi(0xfc00),%o1
1767c478bdstevel@tonic-gate/* 0x0034	     */		add	%o2,1,%g3
1777c478bdstevel@tonic-gate/* 0x0038	     */		add	%o1,1023,%o1
1787c478bdstevel@tonic-gate/* 0x003c	     */		or	%g0,%i0,%o5
1797c478bdstevel@tonic-gate/* 0x0040	  73 */		fdtox	%f0,%f0
1807c478bdstevel@tonic-gate/* 0x0044	     */		std	%f0,[%sp+112]
1817c478bdstevel@tonic-gate/* 0x0048	     */		ldx	[%sp+112],%g1
1827c478bdstevel@tonic-gate/* 0x004c	  72 */		ldx	[%sp+120],%g4
1837c478bdstevel@tonic-gate/* 0x0050	  74 */		ble,pt	%icc,.L900000117
1847c478bdstevel@tonic-gate/* 0x0054	     */		sethi	%hi(0xfc00),%g2
1857c478bdstevel@tonic-gate/* 0x0058	  67 */		or	%g0,-1,%g2
1867c478bdstevel@tonic-gate/* 0x005c	  74 */		cmp	%g3,3
1877c478bdstevel@tonic-gate/* 0x0060	  67 */		srl	%g2,0,%o3
1887c478bdstevel@tonic-gate/* 0x0064	  74 */		bl,pn	%icc,.L77000134
1897c478bdstevel@tonic-gate/* 0x0068	     */		or	%g0,%o0,%g2
1907c478bdstevel@tonic-gate
1917c478bdstevel@tonic-gate!   75		      !   {
1927c478bdstevel@tonic-gate!   76		      !     c=(long long)d16[2*i+2];
1937c478bdstevel@tonic-gate
1947c478bdstevel@tonic-gate/* 0x006c	  76 */		ldd	[%o0+16],%f0
1957c478bdstevel@tonic-gate
1967c478bdstevel@tonic-gate!   77		      !     t1+=a&0xffffffff;
1977c478bdstevel@tonic-gate!   78		      !     t=(a>>32);
1987c478bdstevel@tonic-gate!   79		      !     d=(long long)d16[2*i+3];
1997c478bdstevel@tonic-gate!   80		      !     t1+=(b&0xffff)<<16;
2007c478bdstevel@tonic-gate!   81		      !     t+=(b>>16)+(t1>>32);
2017c478bdstevel@tonic-gate!   82		      !     i32[i]=t1&0xffffffff;
2027c478bdstevel@tonic-gate!   83		      !     t1=t;
2037c478bdstevel@tonic-gate!   84		      !     a=c;
2047c478bdstevel@tonic-gate!   85		      !     b=d;
2057c478bdstevel@tonic-gate
2067c478bdstevel@tonic-gate/* 0x0070	  85 */		add	%o0,16,%g2
2077c478bdstevel@tonic-gate/* 0x0074	  80 */		and	%g1,%o1,%o0
2087c478bdstevel@tonic-gate/* 0x0078	     */		sllx	%o0,16,%g3
2097c478bdstevel@tonic-gate/* 0x007c	  77 */		and	%g4,%o3,%o0
2107c478bdstevel@tonic-gate/* 0x0080	  74 */		add	%o0,%g3,%o4
2117c478bdstevel@tonic-gate/* 0x0084	  76 */		fdtox	%f0,%f0
2127c478bdstevel@tonic-gate/* 0x0088	     */		std	%f0,[%sp+104]
2137c478bdstevel@tonic-gate/* 0x008c	  82 */		and	%o4,%o3,%g5
2147c478bdstevel@tonic-gate/* 0x0090	  79 */		ldd	[%g2+8],%f2
2157c478bdstevel@tonic-gate/* 0x0094	  85 */		add	%o5,4,%o5
2167c478bdstevel@tonic-gate/* 0x0098	  81 */		srax	%o4,32,%o4
2177c478bdstevel@tonic-gate/* 0x009c	     */		stx	%o4,[%sp+112]
2187c478bdstevel@tonic-gate/* 0x00a0	  79 */		fdtox	%f2,%f0
2197c478bdstevel@tonic-gate/* 0x00a4	     */		std	%f0,[%sp+96]
2207c478bdstevel@tonic-gate/* 0x00a8	  81 */		srax	%g1,16,%o0
2217c478bdstevel@tonic-gate/* 0x00ac	     */		ldx	[%sp+112],%o7
2227c478bdstevel@tonic-gate/* 0x00b0	  78 */		srax	%g4,32,%o4
2237c478bdstevel@tonic-gate/* 0x00b4	  81 */		add	%o0,%o7,%g4
2247c478bdstevel@tonic-gate/* 0x00b8	  85 */		or	%g0,1,%o7
2257c478bdstevel@tonic-gate/* 0x00bc	  76 */		ldx	[%sp+104],%g3
2267c478bdstevel@tonic-gate/* 0x00c0	  81 */		add	%o4,%g4,%o4
2277c478bdstevel@tonic-gate/* 0x00c4	  79 */		ldx	[%sp+96],%g1
2287c478bdstevel@tonic-gate/* 0x00c8	  82 */		st	%g5,[%o5-4]
2297c478bdstevel@tonic-gate/* 0x00cc	  84 */		or	%g0,%g3,%g4
2307c478bdstevel@tonic-gate                       .L900000112:
2317c478bdstevel@tonic-gate/* 0x00d0	  76 */		ldd	[%g2+16],%f0
2327c478bdstevel@tonic-gate/* 0x00d4	  85 */		add	%o7,1,%o7
2337c478bdstevel@tonic-gate/* 0x00d8	     */		add	%o5,4,%o5
2347c478bdstevel@tonic-gate/* 0x00dc	     */		cmp	%o7,%o2
2357c478bdstevel@tonic-gate/* 0x00e0	     */		add	%g2,16,%g2
2367c478bdstevel@tonic-gate/* 0x00e4	  76 */		fdtox	%f0,%f0
2377c478bdstevel@tonic-gate/* 0x00e8	     */		std	%f0,[%sp+104]
2387c478bdstevel@tonic-gate/* 0x00ec	  79 */		ldd	[%g2+8],%f0
2397c478bdstevel@tonic-gate/* 0x00f0	     */		fdtox	%f0,%f0
2407c478bdstevel@tonic-gate/* 0x00f4	     */		std	%f0,[%sp+96]
2417c478bdstevel@tonic-gate/* 0x00f8	  80 */		and	%g1,%o1,%g3
2427c478bdstevel@tonic-gate/* 0x00fc	     */		sllx	%g3,16,%g5
2437c478bdstevel@tonic-gate/* 0x0100	  77 */		and	%g4,%o3,%g3
2447c478bdstevel@tonic-gate/* 0x0104	  74 */		add	%g3,%g5,%g3
2457c478bdstevel@tonic-gate/* 0x0108	  81 */		srax	%g1,16,%g1
2467c478bdstevel@tonic-gate/* 0x010c	  74 */		add	%g3,%o4,%g3
2477c478bdstevel@tonic-gate/* 0x0110	  81 */		srax	%g3,32,%o4
2487c478bdstevel@tonic-gate/* 0x0114	     */		stx	%o4,[%sp+112]
2497c478bdstevel@tonic-gate/* 0x0118	  76 */		ldx	[%sp+104],%g5
2507c478bdstevel@tonic-gate/* 0x011c	  78 */		srax	%g4,32,%o4
2517c478bdstevel@tonic-gate/* 0x0120	  81 */		ldx	[%sp+112],%g4
2527c478bdstevel@tonic-gate/* 0x0124	     */		add	%g1,%g4,%g4
2537c478bdstevel@tonic-gate/* 0x0128	  79 */		ldx	[%sp+96],%g1
2547c478bdstevel@tonic-gate/* 0x012c	  81 */		add	%o4,%g4,%o4
2557c478bdstevel@tonic-gate/* 0x0130	  82 */		and	%g3,%o3,%g3
2567c478bdstevel@tonic-gate/* 0x0134	  84 */		or	%g0,%g5,%g4
2577c478bdstevel@tonic-gate/* 0x0138	  85 */		ble,pt	%icc,.L900000112
2587c478bdstevel@tonic-gate/* 0x013c	     */		st	%g3,[%o5-4]
2597c478bdstevel@tonic-gate                       .L900000115:
2607c478bdstevel@tonic-gate/* 0x0140	  85 */		ba	.L900000117
2617c478bdstevel@tonic-gate/* 0x0144	     */		sethi	%hi(0xfc00),%g2
2627c478bdstevel@tonic-gate                       .L77000134:
2637c478bdstevel@tonic-gate/* 0x0148	  76 */		ldd	[%g2+16],%f0
2647c478bdstevel@tonic-gate                       .L900000116:
2657c478bdstevel@tonic-gate/* 0x014c	  77 */		and	%g4,%o3,%o0
2667c478bdstevel@tonic-gate/* 0x0150	  80 */		and	%g1,%o1,%g3
2677c478bdstevel@tonic-gate/* 0x0154	  76 */		fdtox	%f0,%f0
2687c478bdstevel@tonic-gate/* 0x0158	  77 */		add	%o4,%o0,%o0
2697c478bdstevel@tonic-gate/* 0x015c	  76 */		std	%f0,[%sp+104]
2707c478bdstevel@tonic-gate/* 0x0160	  85 */		add	%o7,1,%o7
2717c478bdstevel@tonic-gate/* 0x0164	  80 */		sllx	%g3,16,%o4
2727c478bdstevel@tonic-gate/* 0x0168	  79 */		ldd	[%g2+24],%f2
2737c478bdstevel@tonic-gate/* 0x016c	  85 */		add	%g2,16,%g2
2747c478bdstevel@tonic-gate/* 0x0170	  80 */		add	%o0,%o4,%o0
2757c478bdstevel@tonic-gate/* 0x0174	  85 */		cmp	%o7,%o2
2767c478bdstevel@tonic-gate/* 0x0178	  82 */		and	%o0,%o3,%g3
2777c478bdstevel@tonic-gate/* 0x017c	  79 */		fdtox	%f2,%f0
2787c478bdstevel@tonic-gate/* 0x0180	     */		std	%f0,[%sp+96]
2797c478bdstevel@tonic-gate/* 0x0184	  81 */		srax	%o0,32,%o0
2807c478bdstevel@tonic-gate/* 0x0188	     */		stx	%o0,[%sp+112]
2817c478bdstevel@tonic-gate/* 0x018c	  78 */		srax	%g4,32,%o4
2827c478bdstevel@tonic-gate/* 0x0190	  79 */		ldx	[%sp+96],%o0
2837c478bdstevel@tonic-gate/* 0x0194	  81 */		srax	%g1,16,%g5
2847c478bdstevel@tonic-gate/* 0x0198	     */		ldx	[%sp+112],%g4
2857c478bdstevel@tonic-gate/* 0x019c	  76 */		ldx	[%sp+104],%g1
2867c478bdstevel@tonic-gate/* 0x01a0	  82 */		st	%g3,[%o5]
2877c478bdstevel@tonic-gate/* 0x01a4	  81 */		add	%g5,%g4,%g4
2887c478bdstevel@tonic-gate/* 0x01a8	  85 */		add	%o5,4,%o5
2897c478bdstevel@tonic-gate/* 0x01ac	  81 */		add	%o4,%g4,%o4
2907c478bdstevel@tonic-gate/* 0x01b0	  84 */		or	%g0,%g1,%g4
2917c478bdstevel@tonic-gate/* 0x01b4	  85 */		or	%g0,%o0,%g1
2927c478bdstevel@tonic-gate/* 0x01b8	     */		ble,a,pt	%icc,.L900000116
2937c478bdstevel@tonic-gate/* 0x01bc	     */		ldd	[%g2+16],%f0
2947c478bdstevel@tonic-gate                       .L77000127:
2957c478bdstevel@tonic-gate
2967c478bdstevel@tonic-gate!   86		      !   }
2977c478bdstevel@tonic-gate!   87		      !     t1+=a&0xffffffff;
2987c478bdstevel@tonic-gate!   88		      !     t=(a>>32);
2997c478bdstevel@tonic-gate!   89		      !     t1+=(b&0xffff)<<16;
3007c478bdstevel@tonic-gate!   90		      !     i32[i]=t1&0xffffffff;
3017c478bdstevel@tonic-gate
3027c478bdstevel@tonic-gate/* 0x01c0	  90 */		sethi	%hi(0xfc00),%g2
3037c478bdstevel@tonic-gate                       .L900000117:
3047c478bdstevel@tonic-gate/* 0x01c4	  90 */		or	%g0,-1,%g3
3057c478bdstevel@tonic-gate/* 0x01c8	     */		add	%g2,1023,%g2
3067c478bdstevel@tonic-gate/* 0x01cc	     */		srl	%g3,0,%g3
3077c478bdstevel@tonic-gate/* 0x01d0	     */		and	%g1,%g2,%g2
3087c478bdstevel@tonic-gate/* 0x01d4	     */		and	%g4,%g3,%g4
3097c478bdstevel@tonic-gate/* 0x01d8	     */		sllx	%g2,16,%g2
3107c478bdstevel@tonic-gate/* 0x01dc	     */		add	%o4,%g4,%g4
3117c478bdstevel@tonic-gate/* 0x01e0	     */		add	%g4,%g2,%g2
3127c478bdstevel@tonic-gate/* 0x01e4	     */		sll	%o7,2,%g4
3137c478bdstevel@tonic-gate/* 0x01e8	     */		and	%g2,%g3,%g2
3147c478bdstevel@tonic-gate/* 0x01ec	     */		st	%g2,[%i0+%g4]
3157c478bdstevel@tonic-gate/* 0x01f0	     */		ret	! Result =
3167c478bdstevel@tonic-gate/* 0x01f4	     */		restore	%g0,%g0,%g0
3177c478bdstevel@tonic-gate/* 0x01f8	   0 */		.type	conv_d16_to_i32,2
3187c478bdstevel@tonic-gate/* 0x01f8	     */		.size	conv_d16_to_i32,(.-conv_d16_to_i32)
3197c478bdstevel@tonic-gate
3207c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
3217c478bdstevel@tonic-gate/* 000000	   0 */		.align	8
3227c478bdstevel@tonic-gate!
3237c478bdstevel@tonic-gate! CONSTANT POOL
3247c478bdstevel@tonic-gate!
3257c478bdstevel@tonic-gate                       .L_const_seg_900000201:
3267c478bdstevel@tonic-gate/* 000000	   0 */		.word	1127219200,0
3277c478bdstevel@tonic-gate/* 0x0008	   0 */		.align	4
3287c478bdstevel@tonic-gate/* 0x0008	     */		.skip	16
3297c478bdstevel@tonic-gate!
3307c478bdstevel@tonic-gate! SUBROUTINE conv_i32_to_d32
3317c478bdstevel@tonic-gate!
3327c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
3337c478bdstevel@tonic-gate
3347c478bdstevel@tonic-gate                       	.global conv_i32_to_d32
3357c478bdstevel@tonic-gate                       conv_i32_to_d32:
3367c478bdstevel@tonic-gate/* 000000	     */		or	%g0,%o7,%g2
3377c478bdstevel@tonic-gate/* 0x0004	     */		or	%g0,%o1,%g4
3387c478bdstevel@tonic-gate                       .L900000210:
3397c478bdstevel@tonic-gate/* 0x0008	     */		call	.+8
3407c478bdstevel@tonic-gate/* 0x000c	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g3
3417c478bdstevel@tonic-gate
3427c478bdstevel@tonic-gate!   92		      !}
3437c478bdstevel@tonic-gate!   94		      !void conv_i32_to_d32(double *d32, unsigned int *i32, int len)
3447c478bdstevel@tonic-gate!   95		      !{
3457c478bdstevel@tonic-gate!   96		      !int i;
3467c478bdstevel@tonic-gate!   98		      !#pragma pipeloop(0)
3477c478bdstevel@tonic-gate!   99		      ! for(i=0;i<len;i++) d32[i]=(double)(i32[i]);
3487c478bdstevel@tonic-gate
3497c478bdstevel@tonic-gate/* 0x0010	  99 */		or	%g0,0,%o5
3507c478bdstevel@tonic-gate/* 0x0014	  95 */		add	%g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g3
3517c478bdstevel@tonic-gate/* 0x0018	     */		or	%g0,%o0,%g5
3527c478bdstevel@tonic-gate/* 0x001c	     */		add	%g3,%o7,%g1
3537c478bdstevel@tonic-gate/* 0x0020	     */		orcc	%g0,%o2,%g3
3547c478bdstevel@tonic-gate/* 0x0024	  99 */		ble,pt	%icc,.L77000140
3557c478bdstevel@tonic-gate/* 0x0028	     */		or	%g0,%g2,%o7
3567c478bdstevel@tonic-gate/* 0x002c	     */		sethi	%hi(.L_const_seg_900000201),%g2
3577c478bdstevel@tonic-gate/* 0x0030	     */		add	%g2,%lo(.L_const_seg_900000201),%g2
3587c478bdstevel@tonic-gate/* 0x0034	     */		sub	%o2,1,%g3
3597c478bdstevel@tonic-gate/* 0x0038	     */		ld	[%g1+%g2],%g2
3607c478bdstevel@tonic-gate/* 0x003c	     */		cmp	%o2,9
3617c478bdstevel@tonic-gate/* 0x0040	     */		bl,pn	%icc,.L77000144
3627c478bdstevel@tonic-gate/* 0x0044	     */		ldd	[%g2],%f8
3637c478bdstevel@tonic-gate/* 0x0048	     */		add	%o1,16,%g4
3647c478bdstevel@tonic-gate/* 0x004c	     */		sub	%o2,5,%g1
3657c478bdstevel@tonic-gate/* 0x0050	     */		ld	[%o1],%f7
3667c478bdstevel@tonic-gate/* 0x0054	     */		or	%g0,4,%o5
3677c478bdstevel@tonic-gate/* 0x0058	     */		ld	[%o1+4],%f5
3687c478bdstevel@tonic-gate/* 0x005c	     */		ld	[%o1+8],%f3
3697c478bdstevel@tonic-gate/* 0x0060	     */		fmovs	%f8,%f6
3707c478bdstevel@tonic-gate/* 0x0064	     */		ld	[%o1+12],%f1
3717c478bdstevel@tonic-gate                       .L900000205:
3727c478bdstevel@tonic-gate/* 0x0068	     */		ld	[%g4],%f11
3737c478bdstevel@tonic-gate/* 0x006c	     */		add	%o5,5,%o5
3747c478bdstevel@tonic-gate/* 0x0070	     */		add	%g4,20,%g4
3757c478bdstevel@tonic-gate/* 0x0074	     */		fsubd	%f6,%f8,%f6
3767c478bdstevel@tonic-gate/* 0x0078	     */		std	%f6,[%g5]
3777c478bdstevel@tonic-gate/* 0x007c	     */		cmp	%o5,%g1
3787c478bdstevel@tonic-gate/* 0x0080	     */		add	%g5,40,%g5
3797c478bdstevel@tonic-gate/* 0x0084	     */		fmovs	%f8,%f4
3807c478bdstevel@tonic-gate/* 0x0088	     */		ld	[%g4-16],%f7
3817c478bdstevel@tonic-gate/* 0x008c	     */		fsubd	%f4,%f8,%f12
3827c478bdstevel@tonic-gate/* 0x0090	     */		fmovs	%f8,%f2
3837c478bdstevel@tonic-gate/* 0x0094	     */		std	%f12,[%g5-32]
3847c478bdstevel@tonic-gate/* 0x0098	     */		ld	[%g4-12],%f5
3857c478bdstevel@tonic-gate/* 0x009c	     */		fsubd	%f2,%f8,%f12
3867c478bdstevel@tonic-gate/* 0x00a0	     */		fmovs	%f8,%f0
3877c478bdstevel@tonic-gate/* 0x00a4	     */		std	%f12,[%g5-24]
3887c478bdstevel@tonic-gate/* 0x00a8	     */		ld	[%g4-8],%f3
3897c478bdstevel@tonic-gate/* 0x00ac	     */		fsubd	%f0,%f8,%f12
3907c478bdstevel@tonic-gate/* 0x00b0	     */		fmovs	%f8,%f10
3917c478bdstevel@tonic-gate/* 0x00b4	     */		std	%f12,[%g5-16]
3927c478bdstevel@tonic-gate/* 0x00b8	     */		ld	[%g4-4],%f1
3937c478bdstevel@tonic-gate/* 0x00bc	     */		fsubd	%f10,%f8,%f10
3947c478bdstevel@tonic-gate/* 0x00c0	     */		fmovs	%f8,%f6
3957c478bdstevel@tonic-gate/* 0x00c4	     */		ble,pt	%icc,.L900000205
3967c478bdstevel@tonic-gate/* 0x00c8	     */		std	%f10,[%g5-8]
3977c478bdstevel@tonic-gate                       .L900000208:
3987c478bdstevel@tonic-gate/* 0x00cc	     */		fmovs	%f8,%f4
3997c478bdstevel@tonic-gate/* 0x00d0	     */		add	%g5,32,%g5
4007c478bdstevel@tonic-gate/* 0x00d4	     */		cmp	%o5,%g3
4017c478bdstevel@tonic-gate/* 0x00d8	     */		fmovs	%f8,%f2
4027c478bdstevel@tonic-gate/* 0x00dc	     */		fmovs	%f8,%f0
4037c478bdstevel@tonic-gate/* 0x00e0	     */		fsubd	%f6,%f8,%f6
4047c478bdstevel@tonic-gate/* 0x00e4	     */		std	%f6,[%g5-32]
4057c478bdstevel@tonic-gate/* 0x00e8	     */		fsubd	%f4,%f8,%f4
4067c478bdstevel@tonic-gate/* 0x00ec	     */		std	%f4,[%g5-24]
4077c478bdstevel@tonic-gate/* 0x00f0	     */		fsubd	%f2,%f8,%f2
4087c478bdstevel@tonic-gate/* 0x00f4	     */		std	%f2,[%g5-16]
4097c478bdstevel@tonic-gate/* 0x00f8	     */		fsubd	%f0,%f8,%f0
4107c478bdstevel@tonic-gate/* 0x00fc	     */		bg,pn	%icc,.L77000140
4117c478bdstevel@tonic-gate/* 0x0100	     */		std	%f0,[%g5-8]
4127c478bdstevel@tonic-gate                       .L77000144:
4137c478bdstevel@tonic-gate/* 0x0104	     */		ld	[%g4],%f1
4147c478bdstevel@tonic-gate                       .L900000211:
4157c478bdstevel@tonic-gate/* 0x0108	     */		ldd	[%g2],%f8
4167c478bdstevel@tonic-gate/* 0x010c	     */		add	%o5,1,%o5
4177c478bdstevel@tonic-gate/* 0x0110	     */		add	%g4,4,%g4
4187c478bdstevel@tonic-gate/* 0x0114	     */		cmp	%o5,%g3
4197c478bdstevel@tonic-gate/* 0x0118	     */		fmovs	%f8,%f0
4207c478bdstevel@tonic-gate/* 0x011c	     */		fsubd	%f0,%f8,%f0
4217c478bdstevel@tonic-gate/* 0x0120	     */		std	%f0,[%g5]
4227c478bdstevel@tonic-gate/* 0x0124	     */		add	%g5,8,%g5
4237c478bdstevel@tonic-gate/* 0x0128	     */		ble,a,pt	%icc,.L900000211
4247c478bdstevel@tonic-gate/* 0x012c	     */		ld	[%g4],%f1
4257c478bdstevel@tonic-gate                       .L77000140:
4267c478bdstevel@tonic-gate/* 0x0130	     */		retl	! Result =
4277c478bdstevel@tonic-gate/* 0x0134	     */		nop
4287c478bdstevel@tonic-gate/* 0x0138	   0 */		.type	conv_i32_to_d32,2
4297c478bdstevel@tonic-gate/* 0x0138	     */		.size	conv_i32_to_d32,(.-conv_i32_to_d32)
4307c478bdstevel@tonic-gate
4317c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
4327c478bdstevel@tonic-gate/* 000000	   0 */		.align	8
4337c478bdstevel@tonic-gate!
4347c478bdstevel@tonic-gate! CONSTANT POOL
4357c478bdstevel@tonic-gate!
4367c478bdstevel@tonic-gate                       .L_const_seg_900000301:
4377c478bdstevel@tonic-gate/* 000000	   0 */		.word	1127219200,0
4387c478bdstevel@tonic-gate/* 0x0008	   0 */		.align	4
4397c478bdstevel@tonic-gate/* 0x0008	     */		.skip	16
4407c478bdstevel@tonic-gate!
4417c478bdstevel@tonic-gate! SUBROUTINE conv_i32_to_d16
4427c478bdstevel@tonic-gate!
4437c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
4447c478bdstevel@tonic-gate
4457c478bdstevel@tonic-gate                       	.global conv_i32_to_d16
4467c478bdstevel@tonic-gate                       conv_i32_to_d16:
4477c478bdstevel@tonic-gate/* 000000	     */		save	%sp,-104,%sp
4487c478bdstevel@tonic-gate                       .L900000310:
4497c478bdstevel@tonic-gate/* 0x0004	     */		call	.+8
4507c478bdstevel@tonic-gate/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3
4517c478bdstevel@tonic-gate/* 0x000c	     */		orcc	%g0,%i2,%o0
4527c478bdstevel@tonic-gate/* 0x0010	     */		add	%g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3
4537c478bdstevel@tonic-gate
4547c478bdstevel@tonic-gate!  100		      !}
4557c478bdstevel@tonic-gate!  103		      !void conv_i32_to_d16(double *d16, unsigned int *i32, int len)
4567c478bdstevel@tonic-gate!  104		      !{
4577c478bdstevel@tonic-gate!  105		      !int i;
4587c478bdstevel@tonic-gate!  106		      !unsigned int a;
4597c478bdstevel@tonic-gate!  108		      !#pragma pipeloop(0)
4607c478bdstevel@tonic-gate!  109		      ! for(i=0;i<len;i++)
4617c478bdstevel@tonic-gate
4627c478bdstevel@tonic-gate/* 0x0014	 109 */		ble,pt	%icc,.L77000150
4637c478bdstevel@tonic-gate/* 0x0018	     */		add	%g3,%o7,%o2
4647c478bdstevel@tonic-gate
4657c478bdstevel@tonic-gate!  110		      !   {
4667c478bdstevel@tonic-gate!  111		      !     a=i32[i];
4677c478bdstevel@tonic-gate!  112		      !     d16[2*i]=(double)(a&0xffff);
4687c478bdstevel@tonic-gate!  113		      !     d16[2*i+1]=(double)(a>>16);
4697c478bdstevel@tonic-gate
4707c478bdstevel@tonic-gate/* 0x001c	 113 */		sethi	%hi(.L_const_seg_900000301),%g2
4717c478bdstevel@tonic-gate/* 0x0020	 109 */		sub	%o0,1,%o5
4727c478bdstevel@tonic-gate/* 0x0024	 113 */		add	%g2,%lo(.L_const_seg_900000301),%o1
4737c478bdstevel@tonic-gate/* 0x0028	     */		ld	[%o2+%o1],%o3
4747c478bdstevel@tonic-gate/* 0x002c	 109 */		sethi	%hi(0xfc00),%o0
4757c478bdstevel@tonic-gate/* 0x0030	     */		add	%o5,1,%g2
4767c478bdstevel@tonic-gate/* 0x0034	     */		or	%g0,0,%g1
4777c478bdstevel@tonic-gate/* 0x0038	     */		cmp	%g2,3
4787c478bdstevel@tonic-gate/* 0x003c	 112 */		ldd	[%o3],%f0
4797c478bdstevel@tonic-gate/* 0x0040	     */		or	%g0,%i1,%o7
4807c478bdstevel@tonic-gate/* 0x0044	     */		add	%o0,1023,%o4
4817c478bdstevel@tonic-gate/* 0x0048	     */		or	%g0,%i0,%g3
4827c478bdstevel@tonic-gate/* 0x004c	 109 */		bl,pn	%icc,.L77000154
4837c478bdstevel@tonic-gate/* 0x0050	     */		add	%o7,4,%o0
4847c478bdstevel@tonic-gate/* 0x0054	 111 */		ld	[%o0-4],%o1
4857c478bdstevel@tonic-gate/* 0x0058	   0 */		or	%g0,%o0,%o7
4867c478bdstevel@tonic-gate/* 0x005c	 113 */		or	%g0,1,%g1
4877c478bdstevel@tonic-gate/* 0x0060	 112 */		and	%o1,%o4,%o0
4887c478bdstevel@tonic-gate                       .L900000306:
4897c478bdstevel@tonic-gate/* 0x0064	 112 */		st	%o0,[%sp+96]
4907c478bdstevel@tonic-gate/* 0x0068	 113 */		add	%g1,1,%g1
4917c478bdstevel@tonic-gate/* 0x006c	     */		add	%g3,16,%g3
4927c478bdstevel@tonic-gate/* 0x0070	     */		cmp	%g1,%o5
4937c478bdstevel@tonic-gate/* 0x0074	     */		add	%o7,4,%o7
4947c478bdstevel@tonic-gate/* 0x0078	 112 */		ld	[%sp+96],%f3
4957c478bdstevel@tonic-gate/* 0x007c	     */		fmovs	%f0,%f2
4967c478bdstevel@tonic-gate/* 0x0080	     */		fsubd	%f2,%f0,%f2
4977c478bdstevel@tonic-gate/* 0x0084	 113 */		srl	%o1,16,%o0
4987c478bdstevel@tonic-gate/* 0x0088	 112 */		std	%f2,[%g3-16]
4997c478bdstevel@tonic-gate/* 0x008c	 113 */		st	%o0,[%sp+92]
5007c478bdstevel@tonic-gate/* 0x0090	     */		ld	[%sp+92],%f3
5017c478bdstevel@tonic-gate/* 0x0094	 111 */		ld	[%o7-4],%o1
5027c478bdstevel@tonic-gate/* 0x0098	 113 */		fmovs	%f0,%f2
5037c478bdstevel@tonic-gate/* 0x009c	     */		fsubd	%f2,%f0,%f2
5047c478bdstevel@tonic-gate/* 0x00a0	 112 */		and	%o1,%o4,%o0
5057c478bdstevel@tonic-gate/* 0x00a4	 113 */		ble,pt	%icc,.L900000306
5067c478bdstevel@tonic-gate/* 0x00a8	     */		std	%f2,[%g3-8]
5077c478bdstevel@tonic-gate                       .L900000309:
5087c478bdstevel@tonic-gate/* 0x00ac	 112 */		st	%o0,[%sp+96]
5097c478bdstevel@tonic-gate/* 0x00b0	     */		fmovs	%f0,%f2
5107c478bdstevel@tonic-gate/* 0x00b4	 113 */		add	%g3,16,%g3
5117c478bdstevel@tonic-gate/* 0x00b8	     */		srl	%o1,16,%o0
5127c478bdstevel@tonic-gate/* 0x00bc	 112 */		ld	[%sp+96],%f3
5137c478bdstevel@tonic-gate/* 0x00c0	     */		fsubd	%f2,%f0,%f2
5147c478bdstevel@tonic-gate/* 0x00c4	     */		std	%f2,[%g3-16]
5157c478bdstevel@tonic-gate/* 0x00c8	 113 */		st	%o0,[%sp+92]
5167c478bdstevel@tonic-gate/* 0x00cc	     */		fmovs	%f0,%f2
5177c478bdstevel@tonic-gate/* 0x00d0	     */		ld	[%sp+92],%f3
5187c478bdstevel@tonic-gate/* 0x00d4	     */		fsubd	%f2,%f0,%f0
5197c478bdstevel@tonic-gate/* 0x00d8	     */		std	%f0,[%g3-8]
5207c478bdstevel@tonic-gate/* 0x00dc	     */		ret	! Result =
5217c478bdstevel@tonic-gate/* 0x00e0	     */		restore	%g0,%g0,%g0
5227c478bdstevel@tonic-gate                       .L77000154:
5237c478bdstevel@tonic-gate/* 0x00e4	 111 */		ld	[%o7],%o0
5247c478bdstevel@tonic-gate                       .L900000311:
5257c478bdstevel@tonic-gate/* 0x00e8	 112 */		and	%o0,%o4,%o1
5267c478bdstevel@tonic-gate/* 0x00ec	     */		st	%o1,[%sp+96]
5277c478bdstevel@tonic-gate/* 0x00f0	 113 */		add	%g1,1,%g1
5287c478bdstevel@tonic-gate/* 0x00f4	 112 */		ldd	[%o3],%f0
5297c478bdstevel@tonic-gate/* 0x00f8	 113 */		srl	%o0,16,%o0
5307c478bdstevel@tonic-gate/* 0x00fc	     */		add	%o7,4,%o7
5317c478bdstevel@tonic-gate/* 0x0100	     */		cmp	%g1,%o5
5327c478bdstevel@tonic-gate/* 0x0104	 112 */		fmovs	%f0,%f2
5337c478bdstevel@tonic-gate/* 0x0108	     */		ld	[%sp+96],%f3
5347c478bdstevel@tonic-gate/* 0x010c	     */		fsubd	%f2,%f0,%f2
5357c478bdstevel@tonic-gate/* 0x0110	     */		std	%f2,[%g3]
5367c478bdstevel@tonic-gate/* 0x0114	 113 */		st	%o0,[%sp+92]
5377c478bdstevel@tonic-gate/* 0x0118	     */		fmovs	%f0,%f2
5387c478bdstevel@tonic-gate/* 0x011c	     */		ld	[%sp+92],%f3
5397c478bdstevel@tonic-gate/* 0x0120	     */		fsubd	%f2,%f0,%f0
5407c478bdstevel@tonic-gate/* 0x0124	     */		std	%f0,[%g3+8]
5417c478bdstevel@tonic-gate/* 0x0128	     */		add	%g3,16,%g3
5427c478bdstevel@tonic-gate/* 0x012c	     */		ble,a,pt	%icc,.L900000311
5437c478bdstevel@tonic-gate/* 0x0130	     */		ld	[%o7],%o0
5447c478bdstevel@tonic-gate                       .L77000150:
5457c478bdstevel@tonic-gate/* 0x0134	     */		ret	! Result =
5467c478bdstevel@tonic-gate/* 0x0138	     */		restore	%g0,%g0,%g0
5477c478bdstevel@tonic-gate/* 0x013c	   0 */		.type	conv_i32_to_d16,2
5487c478bdstevel@tonic-gate/* 0x013c	     */		.size	conv_i32_to_d16,(.-conv_i32_to_d16)
5497c478bdstevel@tonic-gate
5507c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
5517c478bdstevel@tonic-gate/* 000000	   0 */		.align	8
5527c478bdstevel@tonic-gate!
5537c478bdstevel@tonic-gate! CONSTANT POOL
5547c478bdstevel@tonic-gate!
5557c478bdstevel@tonic-gate                       .L_const_seg_900000401:
5567c478bdstevel@tonic-gate/* 000000	   0 */		.word	1127219200,0
5577c478bdstevel@tonic-gate/* 0x0008	   0 */		.align	4
5587c478bdstevel@tonic-gate/* 0x0008	     */		.skip	16
5597c478bdstevel@tonic-gate!
5607c478bdstevel@tonic-gate! SUBROUTINE conv_i32_to_d32_and_d16
5617c478bdstevel@tonic-gate!
5627c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
5637c478bdstevel@tonic-gate
5647c478bdstevel@tonic-gate                       	.global conv_i32_to_d32_and_d16
5657c478bdstevel@tonic-gate                       conv_i32_to_d32_and_d16:
5667c478bdstevel@tonic-gate/* 000000	     */		save	%sp,-104,%sp
5677c478bdstevel@tonic-gate                       .L900000413:
5687c478bdstevel@tonic-gate/* 0x0004	     */		call	.+8
5697c478bdstevel@tonic-gate/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000413-.)),%g4
5707c478bdstevel@tonic-gate
5717c478bdstevel@tonic-gate!  114		      !   }
5727c478bdstevel@tonic-gate!  115		      !}
5737c478bdstevel@tonic-gate!  118		      !void i16_to_d16_and_d32x4(const double * /*1/(2^16)*/,
5747c478bdstevel@tonic-gate!  119		      !			  const double * /* 2^16*/, const double * /* 0 */,
5757c478bdstevel@tonic-gate!  120		      !			  double * /*result16*/, double * /* result32 */,
5767c478bdstevel@tonic-gate!  121		      !			  float *  /*source - should be */
5777c478bdstevel@tonic-gate!  122		      !		          unsigned int* converted to float* */);
5787c478bdstevel@tonic-gate!  126		      !void conv_i32_to_d32_and_d16(double *d32, double *d16,
5797c478bdstevel@tonic-gate!  127		      !			     unsigned int *i32, int len)
5807c478bdstevel@tonic-gate!  128		      !{
5817c478bdstevel@tonic-gate!  129		      !int i;
5827c478bdstevel@tonic-gate!  130		      !unsigned int a;
5837c478bdstevel@tonic-gate!  132		      !#pragma pipeloop(0)
5847c478bdstevel@tonic-gate!  133		      ! for(i=0;i<len-3;i+=4)
5857c478bdstevel@tonic-gate
5867c478bdstevel@tonic-gate/* 0x000c	 133 */		sub	%i3,3,%g2
5877c478bdstevel@tonic-gate/* 0x0010	     */		cmp	%g2,0
5887c478bdstevel@tonic-gate/* 0x0014	 128 */		add	%g4,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000413-.)),%g4
5897c478bdstevel@tonic-gate/* 0x0018	     */		or	%g0,%i2,%g5
5907c478bdstevel@tonic-gate
5917c478bdstevel@tonic-gate!  134		      !   {
5927c478bdstevel@tonic-gate!  135		      !     i16_to_d16_and_d32x4(&TwoToMinus16, &TwoTo16, &Zero,
5937c478bdstevel@tonic-gate!  136		      !			  &(d16[2*i]), &(d32[i]), (float *)(&(i32[i])));
5947c478bdstevel@tonic-gate
5957c478bdstevel@tonic-gate/* 0x001c	 136 */		sethi	%hi(Zero),%g2
5967c478bdstevel@tonic-gate/* 0x0020	 128 */		add	%g4,%o7,%o2
5977c478bdstevel@tonic-gate/* 0x0024	 133 */		or	%g0,0,%g1
5987c478bdstevel@tonic-gate/* 0x0028	 128 */		or	%g0,%i0,%i4
5997c478bdstevel@tonic-gate/* 0x002c	 136 */		add	%g2,%lo(Zero),%g2
6007c478bdstevel@tonic-gate/* 0x0030	 133 */		ble,pt	%icc,.L900000416
6017c478bdstevel@tonic-gate/* 0x0034	     */		cmp	%g1,%i3
6027c478bdstevel@tonic-gate/* 0x0038	     */		or	%g0,%g5,%o4
6037c478bdstevel@tonic-gate/* 0x003c	 136 */		ld	[%o2+%g2],%o1
6047c478bdstevel@tonic-gate/* 0x0040	 133 */		sub	%i3,4,%o3
6057c478bdstevel@tonic-gate/* 0x0044	     */		or	%g0,0,%o7
6067c478bdstevel@tonic-gate/* 0x0048	     */		or	%g0,0,%o5
6077c478bdstevel@tonic-gate/* 0x004c	 136 */		or	%g0,%o4,%g4
6087c478bdstevel@tonic-gate                       .L900000415:
6097c478bdstevel@tonic-gate/* 0x0050	     */		ldd	[%o1],%f2
6107c478bdstevel@tonic-gate/* 0x0054	 136 */		add	%i4,%o7,%g2
6117c478bdstevel@tonic-gate/* 0x0058	     */		add	%i1,%o5,%g3
6127c478bdstevel@tonic-gate/* 0x005c	     */		ldd	[%o1-8],%f0
6137c478bdstevel@tonic-gate/* 0x0060	     */		add	%g1,4,%g1
6147c478bdstevel@tonic-gate/* 0x0064	     */		add	%o4,16,%o4
6157c478bdstevel@tonic-gate/* 0x0068	     */		fmovd	%f2,%f14
6167c478bdstevel@tonic-gate/* 0x006c	     */		ld	[%g4],%f15
6177c478bdstevel@tonic-gate/* 0x0070	     */		cmp	%g1,%o3
6187c478bdstevel@tonic-gate/* 0x0074	     */		fmovd	%f2,%f10
6197c478bdstevel@tonic-gate/* 0x0078	     */		ld	[%g4+4],%f11
6207c478bdstevel@tonic-gate/* 0x007c	     */		fmovd	%f2,%f6
6217c478bdstevel@tonic-gate/* 0x0080	     */		ld	[%g4+8],%f7
6227c478bdstevel@tonic-gate/* 0x0084	     */		ld	[%g4+12],%f3
6237c478bdstevel@tonic-gate/* 0x0088	     */		fxtod	%f14,%f14
6247c478bdstevel@tonic-gate/* 0x008c	     */		fxtod	%f10,%f10
6257c478bdstevel@tonic-gate/* 0x0090	     */		ldd	[%o1-16],%f16
6267c478bdstevel@tonic-gate/* 0x0094	     */		fxtod	%f6,%f6
6277c478bdstevel@tonic-gate/* 0x0098	     */		std	%f14,[%i4+%o7]
6287c478bdstevel@tonic-gate/* 0x009c	     */		add	%o7,32,%o7
6297c478bdstevel@tonic-gate/* 0x00a0	     */		fxtod	%f2,%f2
6307c478bdstevel@tonic-gate/* 0x00a4	     */		fmuld	%f0,%f14,%f12
6317c478bdstevel@tonic-gate/* 0x00a8	     */		std	%f10,[%g2+8]
6327c478bdstevel@tonic-gate/* 0x00ac	     */		fmuld	%f0,%f10,%f8
6337c478bdstevel@tonic-gate/* 0x00b0	     */		std	%f6,[%g2+16]
6347c478bdstevel@tonic-gate/* 0x00b4	     */		fmuld	%f0,%f6,%f4
6357c478bdstevel@tonic-gate/* 0x00b8	     */		std	%f2,[%g2+24]
6367c478bdstevel@tonic-gate/* 0x00bc	     */		fmuld	%f0,%f2,%f0
6377c478bdstevel@tonic-gate/* 0x00c0	     */		fdtox	%f12,%f12
6387c478bdstevel@tonic-gate/* 0x00c4	     */		fdtox	%f8,%f8
6397c478bdstevel@tonic-gate/* 0x00c8	     */		fdtox	%f4,%f4
6407c478bdstevel@tonic-gate/* 0x00cc	     */		fdtox	%f0,%f0
6417c478bdstevel@tonic-gate/* 0x00d0	     */		fxtod	%f12,%f12
6427c478bdstevel@tonic-gate/* 0x00d4	     */		std	%f12,[%g3+8]
6437c478bdstevel@tonic-gate/* 0x00d8	     */		fxtod	%f8,%f8
6447c478bdstevel@tonic-gate/* 0x00dc	     */		std	%f8,[%g3+24]
6457c478bdstevel@tonic-gate/* 0x00e0	     */		fxtod	%f4,%f4
6467c478bdstevel@tonic-gate/* 0x00e4	     */		std	%f4,[%g3+40]
6477c478bdstevel@tonic-gate/* 0x00e8	     */		fxtod	%f0,%f0
6487c478bdstevel@tonic-gate/* 0x00ec	     */		fmuld	%f12,%f16,%f12
6497c478bdstevel@tonic-gate/* 0x00f0	     */		std	%f0,[%g3+56]
6507c478bdstevel@tonic-gate/* 0x00f4	     */		fmuld	%f8,%f16,%f8
6517c478bdstevel@tonic-gate/* 0x00f8	     */		fmuld	%f4,%f16,%f4
6527c478bdstevel@tonic-gate/* 0x00fc	     */		fmuld	%f0,%f16,%f0
6537c478bdstevel@tonic-gate/* 0x0100	     */		fsubd	%f14,%f12,%f12
6547c478bdstevel@tonic-gate/* 0x0104	     */		std	%f12,[%i1+%o5]
6557c478bdstevel@tonic-gate/* 0x0108	     */		fsubd	%f10,%f8,%f8
6567c478bdstevel@tonic-gate/* 0x010c	     */		std	%f8,[%g3+16]
6577c478bdstevel@tonic-gate/* 0x0110	     */		add	%o5,64,%o5
6587c478bdstevel@tonic-gate/* 0x0114	     */		fsubd	%f6,%f4,%f4
6597c478bdstevel@tonic-gate/* 0x0118	     */		std	%f4,[%g3+32]
6607c478bdstevel@tonic-gate/* 0x011c	     */		fsubd	%f2,%f0,%f0
6617c478bdstevel@tonic-gate/* 0x0120	     */		std	%f0,[%g3+48]
6627c478bdstevel@tonic-gate/* 0x0124	     */		ble,pt	%icc,.L900000415
6637c478bdstevel@tonic-gate/* 0x0128	     */		or	%g0,%o4,%g4
6647c478bdstevel@tonic-gate                       .L77000159:
6657c478bdstevel@tonic-gate
6667c478bdstevel@tonic-gate!  137		      !   }
6677c478bdstevel@tonic-gate!  138		      ! for(;i<len;i++)
6687c478bdstevel@tonic-gate
6697c478bdstevel@tonic-gate/* 0x012c	 138 */		cmp	%g1,%i3
6707c478bdstevel@tonic-gate                       .L900000416:
6717c478bdstevel@tonic-gate/* 0x0130	 138 */		bge,pt	%icc,.L77000164
6727c478bdstevel@tonic-gate/* 0x0134	     */		nop
6737c478bdstevel@tonic-gate
6747c478bdstevel@tonic-gate!  139		      !   {
6757c478bdstevel@tonic-gate!  140		      !     a=i32[i];
6767c478bdstevel@tonic-gate!  141		      !     d32[i]=(double)(i32[i]);
6777c478bdstevel@tonic-gate!  142		      !     d16[2*i]=(double)(a&0xffff);
6787c478bdstevel@tonic-gate!  143		      !     d16[2*i+1]=(double)(a>>16);
6797c478bdstevel@tonic-gate
6807c478bdstevel@tonic-gate/* 0x0138	 143 */		sethi	%hi(.L_const_seg_900000401),%g2
6817c478bdstevel@tonic-gate/* 0x013c	     */		add	%g2,%lo(.L_const_seg_900000401),%o1
6827c478bdstevel@tonic-gate/* 0x0140	 138 */		sethi	%hi(0xfc00),%o0
6837c478bdstevel@tonic-gate/* 0x0144	     */		ld	[%o2+%o1],%o2
6847c478bdstevel@tonic-gate/* 0x0148	     */		sll	%g1,2,%o3
6857c478bdstevel@tonic-gate/* 0x014c	     */		sub	%i3,%g1,%g3
6867c478bdstevel@tonic-gate/* 0x0150	     */		sll	%g1,3,%g2
6877c478bdstevel@tonic-gate/* 0x0154	     */		add	%o0,1023,%o4
6887c478bdstevel@tonic-gate/* 0x0158	 141 */		ldd	[%o2],%f0
6897c478bdstevel@tonic-gate/* 0x015c	     */		add	%g5,%o3,%o0
6907c478bdstevel@tonic-gate/* 0x0160	 138 */		cmp	%g3,3
6917c478bdstevel@tonic-gate/* 0x0164	     */		add	%i4,%g2,%o3
6927c478bdstevel@tonic-gate/* 0x0168	     */		sub	%i3,1,%o1
6937c478bdstevel@tonic-gate/* 0x016c	     */		sll	%g1,4,%g4
6947c478bdstevel@tonic-gate/* 0x0170	     */		bl,pn	%icc,.L77000161
6957c478bdstevel@tonic-gate/* 0x0174	     */		add	%i1,%g4,%o5
6967c478bdstevel@tonic-gate/* 0x0178	 141 */		ld	[%o0],%f3
6977c478bdstevel@tonic-gate/* 0x017c	 143 */		add	%o3,8,%o3
6987c478bdstevel@tonic-gate/* 0x0180	 140 */		ld	[%o0],%o7
6997c478bdstevel@tonic-gate/* 0x0184	 143 */		add	%o5,16,%o5
7007c478bdstevel@tonic-gate/* 0x0188	     */		add	%g1,1,%g1
7017c478bdstevel@tonic-gate/* 0x018c	 141 */		fmovs	%f0,%f2
7027c478bdstevel@tonic-gate/* 0x0190	 143 */		add	%o0,4,%o0
7037c478bdstevel@tonic-gate/* 0x0194	 142 */		and	%o7,%o4,%g2
7047c478bdstevel@tonic-gate/* 0x0198	 141 */		fsubd	%f2,%f0,%f2
7057c478bdstevel@tonic-gate/* 0x019c	     */		std	%f2,[%o3-8]
7067c478bdstevel@tonic-gate/* 0x01a0	 143 */		srl	%o7,16,%o7
7077c478bdstevel@tonic-gate/* 0x01a4	 142 */		st	%g2,[%sp+96]
7087c478bdstevel@tonic-gate/* 0x01a8	     */		fmovs	%f0,%f2
7097c478bdstevel@tonic-gate/* 0x01ac	     */		ld	[%sp+96],%f3
7107c478bdstevel@tonic-gate/* 0x01b0	     */		fsubd	%f2,%f0,%f2
7117c478bdstevel@tonic-gate/* 0x01b4	     */		std	%f2,[%o5-16]
7127c478bdstevel@tonic-gate/* 0x01b8	 143 */		st	%o7,[%sp+92]
7137c478bdstevel@tonic-gate/* 0x01bc	     */		fmovs	%f0,%f2
7147c478bdstevel@tonic-gate/* 0x01c0	     */		ld	[%sp+92],%f3
7157c478bdstevel@tonic-gate/* 0x01c4	     */		fsubd	%f2,%f0,%f2
7167c478bdstevel@tonic-gate/* 0x01c8	     */		std	%f2,[%o5-8]
7177c478bdstevel@tonic-gate                       .L900000409:
7187c478bdstevel@tonic-gate/* 0x01cc	 141 */		ld	[%o0],%f3
7197c478bdstevel@tonic-gate/* 0x01d0	 143 */		add	%g1,2,%g1
7207c478bdstevel@tonic-gate/* 0x01d4	     */		add	%o5,32,%o5
7217c478bdstevel@tonic-gate/* 0x01d8	 140 */		ld	[%o0],%o7
7227c478bdstevel@tonic-gate/* 0x01dc	 143 */		cmp	%g1,%o1
7237c478bdstevel@tonic-gate/* 0x01e0	     */		add	%o3,16,%o3
7247c478bdstevel@tonic-gate/* 0x01e4	 141 */		fmovs	%f0,%f2
7257c478bdstevel@tonic-gate/* 0x01e8	     */		fsubd	%f2,%f0,%f2
7267c478bdstevel@tonic-gate/* 0x01ec	     */		std	%f2,[%o3-16]
7277c478bdstevel@tonic-gate/* 0x01f0	 142 */		and	%o7,%o4,%g2
7287c478bdstevel@tonic-gate/* 0x01f4	     */		st	%g2,[%sp+96]
7297c478bdstevel@tonic-gate/* 0x01f8	     */		ld	[%sp+96],%f3
7307c478bdstevel@tonic-gate/* 0x01fc	     */		fmovs	%f0,%f2
7317c478bdstevel@tonic-gate/* 0x0200	     */		fsubd	%f2,%f0,%f2
7327c478bdstevel@tonic-gate/* 0x0204	 143 */		srl	%o7,16,%o7
7337c478bdstevel@tonic-gate/* 0x0208	 142 */		std	%f2,[%o5-32]
7347c478bdstevel@tonic-gate/* 0x020c	 143 */		st	%o7,[%sp+92]
7357c478bdstevel@tonic-gate/* 0x0210	     */		ld	[%sp+92],%f3
7367c478bdstevel@tonic-gate/* 0x0214	     */		fmovs	%f0,%f2
7377c478bdstevel@tonic-gate/* 0x0218	     */		fsubd	%f2,%f0,%f2
7387c478bdstevel@tonic-gate/* 0x021c	     */		std	%f2,[%o5-24]
7397c478bdstevel@tonic-gate/* 0x0220	     */		add	%o0,4,%o0
7407c478bdstevel@tonic-gate/* 0x0224	 141 */		ld	[%o0],%f3
7417c478bdstevel@tonic-gate/* 0x0228	 140 */		ld	[%o0],%o7
7427c478bdstevel@tonic-gate/* 0x022c	 141 */		fmovs	%f0,%f2
7437c478bdstevel@tonic-gate/* 0x0230	     */		fsubd	%f2,%f0,%f2
7447c478bdstevel@tonic-gate/* 0x0234	     */		std	%f2,[%o3-8]
7457c478bdstevel@tonic-gate/* 0x0238	 142 */		and	%o7,%o4,%g2
7467c478bdstevel@tonic-gate/* 0x023c	     */		st	%g2,[%sp+96]
7477c478bdstevel@tonic-gate/* 0x0240	     */		ld	[%sp+96],%f3
7487c478bdstevel@tonic-gate/* 0x0244	     */		fmovs	%f0,%f2
7497c478bdstevel@tonic-gate/* 0x0248	     */		fsubd	%f2,%f0,%f2
7507c478bdstevel@tonic-gate/* 0x024c	 143 */		srl	%o7,16,%o7
7517c478bdstevel@tonic-gate/* 0x0250	 142 */		std	%f2,[%o5-16]
7527c478bdstevel@tonic-gate/* 0x0254	 143 */		st	%o7,[%sp+92]
7537c478bdstevel@tonic-gate/* 0x0258	     */		ld	[%sp+92],%f3
7547c478bdstevel@tonic-gate/* 0x025c	     */		fmovs	%f0,%f2
7557c478bdstevel@tonic-gate/* 0x0260	     */		fsubd	%f2,%f0,%f2
7567c478bdstevel@tonic-gate/* 0x0264	     */		std	%f2,[%o5-8]
7577c478bdstevel@tonic-gate/* 0x0268	     */		bl,pt	%icc,.L900000409
7587c478bdstevel@tonic-gate/* 0x026c	     */		add	%o0,4,%o0
7597c478bdstevel@tonic-gate                       .L900000412:
7607c478bdstevel@tonic-gate/* 0x0270	 143 */		cmp	%g1,%i3
7617c478bdstevel@tonic-gate/* 0x0274	     */		bge,pn	%icc,.L77000164
7627c478bdstevel@tonic-gate/* 0x0278	     */		nop
7637c478bdstevel@tonic-gate                       .L77000161:
7647c478bdstevel@tonic-gate/* 0x027c	 141 */		ld	[%o0],%f3
7657c478bdstevel@tonic-gate                       .L900000414:
7667c478bdstevel@tonic-gate/* 0x0280	 141 */		ldd	[%o2],%f0
7677c478bdstevel@tonic-gate/* 0x0284	 143 */		add	%g1,1,%g1
7687c478bdstevel@tonic-gate/* 0x0288	 140 */		ld	[%o0],%o1
7697c478bdstevel@tonic-gate/* 0x028c	 143 */		add	%o0,4,%o0
7707c478bdstevel@tonic-gate/* 0x0290	     */		cmp	%g1,%i3
7717c478bdstevel@tonic-gate/* 0x0294	 141 */		fmovs	%f0,%f2
7727c478bdstevel@tonic-gate/* 0x0298	 142 */		and	%o1,%o4,%o7
7737c478bdstevel@tonic-gate/* 0x029c	 141 */		fsubd	%f2,%f0,%f2
7747c478bdstevel@tonic-gate/* 0x02a0	     */		std	%f2,[%o3]
7757c478bdstevel@tonic-gate/* 0x02a4	 143 */		srl	%o1,16,%o1
7767c478bdstevel@tonic-gate/* 0x02a8	 142 */		st	%o7,[%sp+96]
7777c478bdstevel@tonic-gate/* 0x02ac	 143 */		add	%o3,8,%o3
7787c478bdstevel@tonic-gate/* 0x02b0	 142 */		fmovs	%f0,%f2
7797c478bdstevel@tonic-gate/* 0x02b4	     */		ld	[%sp+96],%f3
7807c478bdstevel@tonic-gate/* 0x02b8	     */		fsubd	%f2,%f0,%f2
7817c478bdstevel@tonic-gate/* 0x02bc	     */		std	%f2,[%o5]
7827c478bdstevel@tonic-gate/* 0x02c0	 143 */		st	%o1,[%sp+92]
7837c478bdstevel@tonic-gate/* 0x02c4	     */		fmovs	%f0,%f2
7847c478bdstevel@tonic-gate/* 0x02c8	     */		ld	[%sp+92],%f3
7857c478bdstevel@tonic-gate/* 0x02cc	     */		fsubd	%f2,%f0,%f0
7867c478bdstevel@tonic-gate/* 0x02d0	     */		std	%f0,[%o5+8]
7877c478bdstevel@tonic-gate/* 0x02d4	     */		add	%o5,16,%o5
7887c478bdstevel@tonic-gate/* 0x02d8	     */		bl,a,pt	%icc,.L900000414
7897c478bdstevel@tonic-gate/* 0x02dc	     */		ld	[%o0],%f3
7907c478bdstevel@tonic-gate                       .L77000164:
7917c478bdstevel@tonic-gate/* 0x02e0	     */		ret	! Result =
7927c478bdstevel@tonic-gate/* 0x02e4	     */		restore	%g0,%g0,%g0
7937c478bdstevel@tonic-gate/* 0x02e8	   0 */		.type	conv_i32_to_d32_and_d16,2
7947c478bdstevel@tonic-gate/* 0x02e8	     */		.size	conv_i32_to_d32_and_d16,(.-conv_i32_to_d32_and_d16)
7957c478bdstevel@tonic-gate
7967c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
7977c478bdstevel@tonic-gate/* 000000	   0 */		.align	4
7987c478bdstevel@tonic-gate!
7997c478bdstevel@tonic-gate! SUBROUTINE adjust_montf_result
8007c478bdstevel@tonic-gate!
8017c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
8027c478bdstevel@tonic-gate
8037c478bdstevel@tonic-gate                       	.global adjust_montf_result
8047c478bdstevel@tonic-gate                       adjust_montf_result:
8057c478bdstevel@tonic-gate
8067c478bdstevel@tonic-gate!  144		      !   }
8077c478bdstevel@tonic-gate!  145		      !}
8087c478bdstevel@tonic-gate!  148		      !void adjust_montf_result(unsigned int *i32, unsigned int *nint, int len)
8097c478bdstevel@tonic-gate!  149		      !{
8107c478bdstevel@tonic-gate!  150		      !long long acc;
8117c478bdstevel@tonic-gate!  151		      !int i;
8127c478bdstevel@tonic-gate!  153		      ! if(i32[len]>0) i=-1;
8137c478bdstevel@tonic-gate
8147c478bdstevel@tonic-gate/* 000000	 153 */		sll	%o2,2,%g1
8157c478bdstevel@tonic-gate/* 0x0004	     */		or	%g0,-1,%g3
8167c478bdstevel@tonic-gate/* 0x0008	     */		ld	[%o0+%g1],%g1
8177c478bdstevel@tonic-gate/* 0x000c	     */		cmp	%g1,0
8187c478bdstevel@tonic-gate/* 0x0010	     */		bleu,pn	%icc,.L77000175
8197c478bdstevel@tonic-gate/* 0x0014	     */		or	%g0,%o1,%o3
8207c478bdstevel@tonic-gate/* 0x0018	     */		ba	.L900000511
8217c478bdstevel@tonic-gate/* 0x001c	     */		cmp	%g3,0
8227c478bdstevel@tonic-gate                       .L77000175:
8237c478bdstevel@tonic-gate
8247c478bdstevel@tonic-gate!  154		      ! else
8257c478bdstevel@tonic-gate!  155		      !   {
8267c478bdstevel@tonic-gate!  156		      !     for(i=len-1; i>=0; i--)
8277c478bdstevel@tonic-gate
8287c478bdstevel@tonic-gate/* 0x0020	 156 */		subcc	%o2,1,%g3
8297c478bdstevel@tonic-gate/* 0x0024	     */		bneg,pt	%icc,.L900000511
8307c478bdstevel@tonic-gate/* 0x0028	     */		cmp	%g3,0
8317c478bdstevel@tonic-gate/* 0x002c	     */		sll	%g3,2,%g1
8327c478bdstevel@tonic-gate/* 0x0030	     */		add	%o0,%g1,%g2
8337c478bdstevel@tonic-gate/* 0x0034	     */		add	%o1,%g1,%g1
8347c478bdstevel@tonic-gate
8357c478bdstevel@tonic-gate!  157		      !       {
8367c478bdstevel@tonic-gate!  158		      !	 if(i32[i]!=nint[i]) break;
8377c478bdstevel@tonic-gate
8387c478bdstevel@tonic-gate/* 0x0038	 158 */		ld	[%g1],%g5
8397c478bdstevel@tonic-gate                       .L900000510:
8407c478bdstevel@tonic-gate/* 0x003c	 158 */		ld	[%g2],%o5
8417c478bdstevel@tonic-gate/* 0x0040	     */		sub	%g1,4,%g1
8427c478bdstevel@tonic-gate/* 0x0044	     */		sub	%g2,4,%g2
8437c478bdstevel@tonic-gate/* 0x0048	     */		cmp	%o5,%g5
8447c478bdstevel@tonic-gate/* 0x004c	     */		bne,pn	%icc,.L77000182
8457c478bdstevel@tonic-gate/* 0x0050	     */		nop
8467c478bdstevel@tonic-gate/* 0x0054	     */		subcc	%g3,1,%g3
8477c478bdstevel@tonic-gate/* 0x0058	     */		bpos,a,pt	%icc,.L900000510
8487c478bdstevel@tonic-gate/* 0x005c	     */		ld	[%g1],%g5
8497c478bdstevel@tonic-gate                       .L77000182:
8507c478bdstevel@tonic-gate
8517c478bdstevel@tonic-gate!  159		      !       }
8527c478bdstevel@tonic-gate!  160		      !   }
8537c478bdstevel@tonic-gate!  161		      ! if((i<0)||(i32[i]>nint[i]))
8547c478bdstevel@tonic-gate
8557c478bdstevel@tonic-gate/* 0x0060	 161 */		cmp	%g3,0
8567c478bdstevel@tonic-gate                       .L900000511:
8577c478bdstevel@tonic-gate/* 0x0064	 161 */		bl,pn	%icc,.L77000198
8587c478bdstevel@tonic-gate/* 0x0068	     */		sll	%g3,2,%g2
8597c478bdstevel@tonic-gate/* 0x006c	     */		ld	[%o1+%g2],%g1
8607c478bdstevel@tonic-gate/* 0x0070	     */		ld	[%o0+%g2],%g2
8617c478bdstevel@tonic-gate/* 0x0074	     */		cmp	%g2,%g1
8627c478bdstevel@tonic-gate/* 0x0078	     */		bleu,pt	%icc,.L77000191
8637c478bdstevel@tonic-gate/* 0x007c	     */		nop
8647c478bdstevel@tonic-gate                       .L77000198:
8657c478bdstevel@tonic-gate
8667c478bdstevel@tonic-gate!  162		      !   {
8677c478bdstevel@tonic-gate!  163		      !     acc=0;
8687c478bdstevel@tonic-gate!  164		      !     for(i=0;i<len;i++)
8697c478bdstevel@tonic-gate
8707c478bdstevel@tonic-gate/* 0x0080	 164 */		cmp	%o2,0
8717c478bdstevel@tonic-gate/* 0x0084	     */		ble,pt	%icc,.L77000191
8727c478bdstevel@tonic-gate/* 0x0088	     */		nop
8737c478bdstevel@tonic-gate/* 0x008c	 161 */		or	%g0,-1,%g2
8747c478bdstevel@tonic-gate/* 0x0090	     */		sub	%o2,1,%g4
8757c478bdstevel@tonic-gate/* 0x0094	     */		srl	%g2,0,%g3
8767c478bdstevel@tonic-gate/* 0x0098	 163 */		or	%g0,0,%g5
8777c478bdstevel@tonic-gate/* 0x009c	 164 */		or	%g0,0,%o5
8787c478bdstevel@tonic-gate/* 0x00a0	 161 */		or	%g0,%o0,%o4
8797c478bdstevel@tonic-gate/* 0x00a4	     */		cmp	%o2,3
8807c478bdstevel@tonic-gate/* 0x00a8	     */		add	%o1,4,%g2
8817c478bdstevel@tonic-gate/* 0x00ac	 164 */		bl,pn	%icc,.L77000199
8827c478bdstevel@tonic-gate/* 0x00b0	     */		add	%o0,8,%g1
8837c478bdstevel@tonic-gate
8847c478bdstevel@tonic-gate!  165		      !       {
8857c478bdstevel@tonic-gate!  166		      !	 acc=acc+(unsigned long long)(i32[i])-(unsigned long long)(nint[i]);
8867c478bdstevel@tonic-gate
8877c478bdstevel@tonic-gate/* 0x00b4	 166 */		ld	[%o0],%o2
8887c478bdstevel@tonic-gate/* 0x00b8	   0 */		or	%g0,%g2,%o3
8897c478bdstevel@tonic-gate/* 0x00bc	 166 */		ld	[%o1],%o1
8907c478bdstevel@tonic-gate/* 0x00c0	   0 */		or	%g0,%g1,%o4
8917c478bdstevel@tonic-gate
8927c478bdstevel@tonic-gate!  167		      !	 i32[i]=acc&0xffffffff;
8937c478bdstevel@tonic-gate!  168		      !	 acc=acc>>32;
8947c478bdstevel@tonic-gate
8957c478bdstevel@tonic-gate/* 0x00c4	 168 */		or	%g0,2,%o5
8967c478bdstevel@tonic-gate/* 0x00c8	 166 */		ld	[%o0+4],%g1
8977c478bdstevel@tonic-gate/* 0x00cc	 164 */		sub	%o2,%o1,%o2
8987c478bdstevel@tonic-gate/* 0x00d0	     */		or	%g0,%o2,%g5
8997c478bdstevel@tonic-gate/* 0x00d4	 167 */		and	%o2,%g3,%o2
9007c478bdstevel@tonic-gate/* 0x00d8	     */		st	%o2,[%o0]
9017c478bdstevel@tonic-gate/* 0x00dc	 168 */		srax	%g5,32,%g5
9027c478bdstevel@tonic-gate                       .L900000505:
9037c478bdstevel@tonic-gate/* 0x00e0	 166 */		ld	[%o3],%o2
9047c478bdstevel@tonic-gate/* 0x00e4	 168 */		add	%o5,1,%o5
9057c478bdstevel@tonic-gate/* 0x00e8	     */		add	%o3,4,%o3
9067c478bdstevel@tonic-gate/* 0x00ec	     */		cmp	%o5,%g4
9077c478bdstevel@tonic-gate/* 0x00f0	     */		add	%o4,4,%o4
9087c478bdstevel@tonic-gate/* 0x00f4	 164 */		sub	%g1,%o2,%g1
9097c478bdstevel@tonic-gate/* 0x00f8	     */		add	%g1,%g5,%g5
9107c478bdstevel@tonic-gate/* 0x00fc	 167 */		and	%g5,%g3,%o2
9117c478bdstevel@tonic-gate/* 0x0100	 166 */		ld	[%o4-4],%g1
9127c478bdstevel@tonic-gate/* 0x0104	 167 */		st	%o2,[%o4-8]
9137c478bdstevel@tonic-gate/* 0x0108	 168 */		ble,pt	%icc,.L900000505
9147c478bdstevel@tonic-gate/* 0x010c	     */		srax	%g5,32,%g5
9157c478bdstevel@tonic-gate                       .L900000508:
9167c478bdstevel@tonic-gate/* 0x0110	 166 */		ld	[%o3],%g2
9177c478bdstevel@tonic-gate/* 0x0114	 164 */		sub	%g1,%g2,%g1
9187c478bdstevel@tonic-gate/* 0x0118	     */		add	%g1,%g5,%g1
9197c478bdstevel@tonic-gate/* 0x011c	 167 */		and	%g1,%g3,%g2
9207c478bdstevel@tonic-gate/* 0x0120	     */		retl	! Result =
9217c478bdstevel@tonic-gate/* 0x0124	     */		st	%g2,[%o4-4]
9227c478bdstevel@tonic-gate                       .L77000199:
9237c478bdstevel@tonic-gate/* 0x0128	 166 */		ld	[%o4],%g1
9247c478bdstevel@tonic-gate                       .L900000509:
9257c478bdstevel@tonic-gate/* 0x012c	 166 */		ld	[%o3],%g2
9267c478bdstevel@tonic-gate/* 0x0130	     */		add	%g5,%g1,%g1
9277c478bdstevel@tonic-gate/* 0x0134	 168 */		add	%o5,1,%o5
9287c478bdstevel@tonic-gate/* 0x0138	     */		add	%o3,4,%o3
9297c478bdstevel@tonic-gate/* 0x013c	     */		cmp	%o5,%g4
9307c478bdstevel@tonic-gate/* 0x0140	 166 */		sub	%g1,%g2,%g1
9317c478bdstevel@tonic-gate/* 0x0144	 167 */		and	%g1,%g3,%g2
9327c478bdstevel@tonic-gate/* 0x0148	     */		st	%g2,[%o4]
9337c478bdstevel@tonic-gate/* 0x014c	 168 */		add	%o4,4,%o4
9347c478bdstevel@tonic-gate/* 0x0150	     */		srax	%g1,32,%g5
9357c478bdstevel@tonic-gate/* 0x0154	     */		ble,a,pt	%icc,.L900000509
9367c478bdstevel@tonic-gate/* 0x0158	     */		ld	[%o4],%g1
9377c478bdstevel@tonic-gate                       .L77000191:
9387c478bdstevel@tonic-gate/* 0x015c	     */		retl	! Result =
9397c478bdstevel@tonic-gate/* 0x0160	     */		nop
9407c478bdstevel@tonic-gate/* 0x0164	   0 */		.type	adjust_montf_result,2
9417c478bdstevel@tonic-gate/* 0x0164	     */		.size	adjust_montf_result,(.-adjust_montf_result)
9427c478bdstevel@tonic-gate
9437c478bdstevel@tonic-gate	.section	".text",#alloc,#execinstr
9447c478bdstevel@tonic-gate/* 000000	   0 */		.align	4
9457c478bdstevel@tonic-gate/* 000000	     */		.skip	16
9467c478bdstevel@tonic-gate!
9477c478bdstevel@tonic-gate! SUBROUTINE mont_mulf_noconv
9487c478bdstevel@tonic-gate!
9497c478bdstevel@tonic-gate! OFFSET    SOURCE LINE	LABEL	INSTRUCTION
9507c478bdstevel@tonic-gate
9517c478bdstevel@tonic-gate                       	.global mont_mulf_noconv
9527c478bdstevel@tonic-gate                       mont_mulf_noconv:
9537c478bdstevel@tonic-gate/* 000000	     */		save	%sp,-144,%sp
9547c478bdstevel@tonic-gate                       .L900000644:
9557c478bdstevel@tonic-gate/* 0x0004	     */		call	.+8
9567c478bdstevel@tonic-gate/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000644-.)),%g4
9577c478bdstevel@tonic-gate
9587c478bdstevel@tonic-gate!  169		      !       }
9597c478bdstevel@tonic-gate!  170		      !   }
9607c478bdstevel@tonic-gate!  171		      !}
9617c478bdstevel@tonic-gate!  175		      !void cleanup(double *dt, int from, int tlen);
9627c478bdstevel@tonic-gate!  177		      !/*
9637c478bdstevel@tonic-gate!  178		      !** the lengths of the input arrays should be at least the following:
9647c478bdstevel@tonic-gate!  179		      !** result[nlen+1], dm1[nlen], dm2[2*nlen+1], dt[4*nlen+2], dn[nlen], nint[nlen]
9657c478bdstevel@tonic-gate!  180		      !** all of them should be different from one another
9667c478bdstevel@tonic-gate!  181		      !**
9677c478bdstevel@tonic-gate!  182		      !*/
9687c478bdstevel@tonic-gate!  183		      !void mont_mulf_noconv(unsigned int *result,
9697c478bdstevel@tonic-gate!  184		      !		     double *dm1, double *dm2, double *dt,
9707c478bdstevel@tonic-gate!  185		      !		     double *dn, unsigned int *nint,
9717c478bdstevel@tonic-gate!  186		      !		     int nlen, double dn0)
9727c478bdstevel@tonic-gate!  187		      !{
9737c478bdstevel@tonic-gate!  188		      ! int i, j, jj;
9747c478bdstevel@tonic-gate!  189		      ! int tmp;
9757c478bdstevel@tonic-gate!  190		      ! double digit, m2j, nextm2j, a, b;
9767c478bdstevel@tonic-gate!  191		      ! double *dptmp, *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
9777c478bdstevel@tonic-gate!  193		      ! pdm1=&(dm1[0]);
9787c478bdstevel@tonic-gate!  194		      ! pdm2=&(dm2[0]);
9797c478bdstevel@tonic-gate!  195		      ! pdn=&(dn[0]);
9807c478bdstevel@tonic-gate!  196		      ! pdm2[2*nlen]=Zero;
9817c478bdstevel@tonic-gate
9827c478bdstevel@tonic-gate/* 0x000c	 196 */		sethi	%hi(Zero),%g2
9837c478bdstevel@tonic-gate/* 0x0010	     */		ld	[%fp+92],%o0
9847c478bdstevel@tonic-gate/* 0x0014	 187 */		add	%g4,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000644-.)),%g4
9857c478bdstevel@tonic-gate/* 0x0018	 196 */		add	%g2,%lo(Zero),%g2
9867c478bdstevel@tonic-gate/* 0x001c	 187 */		ldd	[%fp+96],%f2
9877c478bdstevel@tonic-gate/* 0x0020	     */		add	%g4,%o7,%o3
9887c478bdstevel@tonic-gate/* 0x0024	     */		st	%i0,[%fp+68]
9897c478bdstevel@tonic-gate/* 0x0028	     */		or	%g0,%i3,%o1
9907c478bdstevel@tonic-gate/* 0x002c	 196 */		ld	[%o3+%g2],%g3
9917c478bdstevel@tonic-gate/* 0x0030	     */		sll	%o0,4,%g2
9927c478bdstevel@tonic-gate/* 0x0034	 187 */		or	%g0,%i1,%g4
9937c478bdstevel@tonic-gate/* 0x0038	     */		fmovd	%f2,%f16
9947c478bdstevel@tonic-gate/* 0x003c	     */		st	%i5,[%fp+88]
9957c478bdstevel@tonic-gate/* 0x0040	     */		or	%g0,%o1,%g5
9967c478bdstevel@tonic-gate/* 0x0044	     */		or	%g0,%i2,%o2
9977c478bdstevel@tonic-gate/* 0x0048	 196 */		ldd	[%g3],%f0
9987c478bdstevel@tonic-gate/* 0x004c	     */		or	%g0,%o0,%g1
9997c478bdstevel@tonic-gate
10007c478bdstevel@tonic-gate!  198		      ! if (nlen!=16)
10017c478bdstevel@tonic-gate
10027c478bdstevel@tonic-gate/* 0x0050	 198 */		cmp	%o0,16
10037c478bdstevel@tonic-gate/* 0x0054	     */		be,pn	%icc,.L77000289
10047c478bdstevel@tonic-gate/* 0x0058	     */		std	%f0,[%o2+%g2]
10057c478bdstevel@tonic-gate
10067c478bdstevel@tonic-gate!  199		      !   {
10077c478bdstevel@tonic-gate!  200		      !     for(i=0;i<4*nlen+2;i++) dt[i]=Zero;
10087c478bdstevel@tonic-gate
10097c478bdstevel@tonic-gate/* 0x005c	 200 */		sll	%o0,2,%g2
10107c478bdstevel@tonic-gate/* 0x0060	 187 */		or	%g0,%i4,%i0
10117c478bdstevel@tonic-gate/* 0x0064	 196 */		sll	%o0,1,%o7
10127c478bdstevel@tonic-gate/* 0x0068	 200 */		add	%g2,2,%o2
10137c478bdstevel@tonic-gate/* 0x006c	     */		cmp	%o2,0
10147c478bdstevel@tonic-gate/* 0x0070	 196 */		or	%g0,%i2,%i1
10157c478bdstevel@tonic-gate/* 0x0074	 200 */		ble,a,pt	%icc,.L900000658
10167c478bdstevel@tonic-gate/* 0x0078	     */		ldd	[%g4],%f0
10177c478bdstevel@tonic-gate
10187c478bdstevel@tonic-gate!  202		      !     a=dt[0]=pdm1[0]*pdm2[0];
10197c478bdstevel@tonic-gate!  203		      !     digit=mod(lower32(a,Zero)*dn0,TwoToMinus16,TwoTo16);
10207c478bdstevel@tonic-gate!  205		      !     pdtj=&(dt[0]);
10217c478bdstevel@tonic-gate!  206		      !     for(j=jj=0;j<2*nlen;j++,jj++,pdtj++)
10227c478bdstevel@tonic-gate!  207		      !       {
10237c478bdstevel@tonic-gate!  208		      !	 m2j=pdm2[j];
10247c478bdstevel@tonic-gate!  209		      !	 a=pdtj[0]+pdn[0]*digit;
10257c478bdstevel@tonic-gate!  210		      !	 b=pdtj[1]+pdm1[0]*pdm2[j+1]+a*TwoToMinus16;
10267c478bdstevel@tonic-gate!  211		      !	 pdtj[1]=b;
10277c478bdstevel@tonic-gate!  213		      !#pragma pipeloop(0)
10287c478bdstevel@tonic-gate!  214		      !	 for(i=1;i<nlen;i++)
10297c478bdstevel@tonic-gate!  215		      !	   {
10307c478bdstevel@tonic-gate!  216		      !	     pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
10317c478bdstevel@tonic-gate!  217		      !	   }
10327c478bdstevel@tonic-gate!  218		      ! 	 if((jj==30)) {cleanup(dt,j/2+1,2*nlen+1); jj=0;}
10337c478bdstevel@tonic-gate!  219		      !
10347c478bdstevel@tonic-gate!  220		      !	 digit=mod(lower32(b,Zero)*dn0,TwoToMinus16,TwoTo16);
10357c478bdstevel@tonic-gate!  221		      !       }
10367c478bdstevel@tonic-gate!  222		      !   }
10377c478bdstevel@tonic-gate!  223		      ! else
10387c478bdstevel@tonic-gate!  224		      !   {
10397c478bdstevel@tonic-gate!  225		      !     a=dt[0]=pdm1[0]*pdm2[0];
10407c478bdstevel@tonic-gate!  227		      !     dt[65]=     dt[64]=     dt[63]=     dt[62]=     dt[61]=     dt[60]=
10417c478bdstevel@tonic-gate!  228		      !     dt[59]=     dt[58]=     dt[57]=     dt[56]=     dt[55]=     dt[54]=
10427c478bdstevel@tonic-gate!  229		      !     dt[53]=     dt[52]=     dt[51]=     dt[50]=     dt[49]=     dt[48]=
10437c478bdstevel@tonic-gate!  230		      !     dt[47]=     dt[46]=     dt[45]=     dt[44]=     dt[43]=     dt[42]=
10447c478bdstevel@tonic-gate!  231		      !     dt[41]=     dt[40]=     dt[39]=     dt[38]=     dt[37]=     dt[36]=
10457c478bdstevel@tonic-gate!  232		      !     dt[35]=     dt[34]=     dt[33]=     dt[32]=     dt[31]=     dt[30]=
10467c478bdstevel@tonic-gate!  233		      !     dt[29]=     dt[28]=     dt[27]=     dt[26]=     dt[25]=     dt[24]=
10477c478bdstevel@tonic-gate!  234		      !     dt[23]=     dt[22]=     dt[21]=     dt[20]=     dt[19]=     dt[18]=
10487c478bdstevel@tonic-gate!  235		      !     dt[17]=     dt[16]=     dt[15]=     dt[14]=     dt[13]=     dt[12]=
10497c478bdstevel@tonic-gate!  236		      !     dt[11]=     dt[10]=     dt[ 9]=     dt[ 8]=     dt[ 7]=     dt[ 6]=
10507c478bdstevel@tonic-gate!  237		      !     dt[ 5]=     dt[ 4]=     dt[ 3]=     dt[ 2]=     dt[ 1]=Zero;
10517c478bdstevel@tonic-gate!  239		      !     pdn_0=pdn[0];
10527c478bdstevel@tonic-gate!  240		      !     pdm1_0=pdm1[0];
10537c478bdstevel@tonic-gate!  242		      !     digit=mod(lower32(a,Zero)*dn0,TwoToMinus16,TwoTo16);
10547c478bdstevel@tonic-gate!  243		      !     pdtj=&(dt[0]);
10557c478bdstevel@tonic-gate!  245		      !     for(j=0;j<32;j++,pdtj++)
10567c478bdstevel@tonic-gate!  246		      !       {
10577c478bdstevel@tonic-gate!  248		      !	 m2j=pdm2[j];
10587c478bdstevel@tonic-gate!  249		      !	 a=pdtj[0]+pdn_0*digit;
10597c478bdstevel@tonic-gate!  250		      !	 b=pdtj[1]+pdm1_0*pdm2[j+1]+a*TwoToMinus16;
10607c478bdstevel@tonic-gate!  251		      !	 pdtj[1]=b;
10617c478bdstevel@tonic-gate!  253		      !	 /**** this loop will be fully unrolled:
10627c478bdstevel@tonic-gate!  254		      !	 for(i=1;i<16;i++)
10637c478bdstevel@tonic-gate!  255		      !	   {
10647c478bdstevel@tonic-gate!  256		      !	     pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
10657c478bdstevel@tonic-gate!  257		      !	   }
10667c478bdstevel@tonic-gate!  258		      !	 *************************************/
10677c478bdstevel@tonic-gate!  259		      !	     pdtj[2]+=pdm1[1]*m2j+pdn[1]*digit;
10687c478bdstevel@tonic-gate!  260		      !	     pdtj[4]+=pdm1[2]*m2j+pdn[2]*digit;
10697c478bdstevel@tonic-gate!  261		      !	     pdtj[6]+=pdm1[3]*m2j+pdn[3]*digit;
10707c478bdstevel@tonic-gate!  262		      !	     pdtj[8]+=pdm1[4]*m2j+pdn[4]*digit;
10717c478bdstevel@tonic-gate!  263		      !	     pdtj[10]+=pdm1[5]*m2j+pdn[5]*digit;
10727c478bdstevel@tonic-gate!  264		      !	     pdtj[12]+=pdm1[6]*m2j+pdn[6]*digit;
10737c478bdstevel@tonic-gate!  265		      !	     pdtj[14]+=pdm1[7]*m2j+pdn[7]*digit;
10747c478bdstevel@tonic-gate!  266		      !	     pdtj[16]+=pdm1[8]*m2j+pdn[8]*digit;
10757c478bdstevel@tonic-gate!  267		      !	     pdtj[18]+=pdm1[9]*m2j+pdn[9]*digit;
10767c478bdstevel@tonic-gate!  268		      !	     pdtj[20]+=pdm1[10]*m2j+pdn[10]*digit;
10777c478bdstevel@tonic-gate!  269		      !	     pdtj[22]+=pdm1[11]*m2j+pdn[11]*digit;
10787c478bdstevel@tonic-gate!  270		      !	     pdtj[24]+=pdm1[12]*m2j+pdn[12]*digit;
10797c478bdstevel@tonic-gate!  271		      !	     pdtj[26]+=pdm1[13]*m2j+pdn[13]*digit;
10807c478bdstevel@tonic-gate!  272		      !	     pdtj[28]+=pdm1[14]*m2j+pdn[14]*digit;
10817c478bdstevel@tonic-gate!  273		      !	     pdtj[30]+=pdm1[15]*m2j+pdn[15]*digit;
10827c478bdstevel@tonic-gate!  274		      !	 /* no need for cleenup, cannot overflow */
10837c478bdstevel@tonic-gate!  275		      !	 digit=mod(lower32(b,Zero)*dn0,TwoToMinus16,TwoTo16);
10847c478bdstevel@tonic-gate!  276		      !       }
10857c478bdstevel@tonic-gate!  277		      !   }
10867c478bdstevel@tonic-gate!  279		      ! conv_d16_to_i32(result,dt+2*nlen,(long long *)dt,nlen+1);
10877c478bdstevel@tonic-gate!  281		      ! adjust_montf_result(result,nint,nlen);
10887c478bdstevel@tonic-gate
10897c478bdstevel@tonic-gate/* 0x007c	 281 */		add	%g2,2,%o0
10907c478bdstevel@tonic-gate/* 0x0080	 200 */		add	%g2,1,%o2
10917c478bdstevel@tonic-gate/* 0x0084	 281 */		cmp	%o0,3
10927c478bdstevel@tonic-gate/* 0x0088	     */		bl,pn	%icc,.L77000279
10937c478bdstevel@tonic-gate/* 0x008c	     */		or	%g0,1,%o0
10947c478bdstevel@tonic-gate/* 0x0090	     */		add	%o1,8,%o1
10957c478bdstevel@tonic-gate/* 0x0094	     */		or	%g0,1,%o3
10967c478bdstevel@tonic-gate/* 0x0098	     */		std	%f0,[%g5]
10977c478bdstevel@tonic-gate                       .L900000628:
10987c478bdstevel@tonic-gate/* 0x009c	     */		std	%f0,[%o1]
10997c478bdstevel@tonic-gate/* 0x00a0	     */		add	%o3,2,%o3
11007c478bdstevel@tonic-gate/* 0x00a4	     */		add	%o1,16,%o1
11017c478bdstevel@tonic-gate/* 0x00a8	     */		cmp	%o3,%g2
11027c478bdstevel@tonic-gate/* 0x00ac	     */		ble,pt	%icc,.L900000628
11037c478bdstevel@tonic-gate/* 0x00b0	     */		std	%f0,[%o1-8]
11047c478bdstevel@tonic-gate                       .L900000631:
11057c478bdstevel@tonic-gate/* 0x00b4	     */		cmp	%o3,%o2
11067c478bdstevel@tonic-gate/* 0x00b8	     */		bg,pn	%icc,.L77000284
11077c478bdstevel@tonic-gate/* 0x00bc	     */		add	%o3,1,%o0
11087c478bdstevel@tonic-gate                       .L77000279:
11097c478bdstevel@tonic-gate/* 0x00c0	     */		std	%f0,[%o1]
11107c478bdstevel@tonic-gate                       .L900000657:
11117c478bdstevel@tonic-gate/* 0x00c4	     */		ldd	[%g3],%f0
11127c478bdstevel@tonic-gate/* 0x00c8	     */		cmp	%o0,%o2
11137c478bdstevel@tonic-gate/* 0x00cc	     */		add	%o1,8,%o1
11147c478bdstevel@tonic-gate/* 0x00d0	     */		add	%o0,1,%o0
11157c478bdstevel@tonic-gate/* 0x00d4	     */		ble,a,pt	%icc,.L900000657
11167c478bdstevel@tonic-gate/* 0x00d8	     */		std	%f0,[%o1]
11177c478bdstevel@tonic-gate                       .L77000284:
11187c478bdstevel@tonic-gate/* 0x00dc	 202 */		ldd	[%g4],%f0
11197c478bdstevel@tonic-gate                       .L900000658:
11207c478bdstevel@tonic-gate/* 0x00e0	 202 */		ldd	[%i2],%f2
11217c478bdstevel@tonic-gate/* 0x00e4	     */		add	%o7,1,%o2
11227c478bdstevel@tonic-gate/* 0x00e8	 206 */		cmp	%o7,0
11237c478bdstevel@tonic-gate/* 0x00ec	     */		sll	%o2,1,%o0
11247c478bdstevel@tonic-gate/* 0x00f0	     */		sub	%o7,1,%o1
11257c478bdstevel@tonic-gate/* 0x00f4	 202 */		fmuld	%f0,%f2,%f0
11267c478bdstevel@tonic-gate/* 0x00f8	     */		std	%f0,[%g5]
11277c478bdstevel@tonic-gate/* 0x00fc	     */		sub	%g1,1,%o7
11287c478bdstevel@tonic-gate/* 0x0100	     */		ldd	[%g3],%f6
11297c478bdstevel@tonic-gate/* 0x0104	   0 */		or	%g0,%o7,%i2
11307c478bdstevel@tonic-gate/* 0x0108	     */		or	%g0,0,%l0
11317c478bdstevel@tonic-gate/* 0x010c	     */		ldd	[%g3-8],%f2
11327c478bdstevel@tonic-gate/* 0x0110	     */		or	%g0,0,%i5
11337c478bdstevel@tonic-gate/* 0x0114	     */		or	%g0,%o1,%o5
11347c478bdstevel@tonic-gate/* 0x0118	     */		fdtox	%f0,%f0
11357c478bdstevel@tonic-gate/* 0x011c	     */		ldd	[%g3-16],%f4
11367c478bdstevel@tonic-gate/* 0x0120	     */		or	%g0,%o0,%o3
11377c478bdstevel@tonic-gate/* 0x0124	 210 */		add	%i1,8,%o4
11387c478bdstevel@tonic-gate/* 0x0128	     */		or	%g0,0,%i4
11397c478bdstevel@tonic-gate/* 0x012c	     */		fmovs	%f6,%f0
11407c478bdstevel@tonic-gate/* 0x0130	     */		fxtod	%f0,%f0
11417c478bdstevel@tonic-gate/* 0x0134	 203 */		fmuld	%f0,%f16,%f0
11427c478bdstevel@tonic-gate/* 0x0138	     */		fmuld	%f0,%f2,%f2
11437c478bdstevel@tonic-gate/* 0x013c	     */		fdtox	%f2,%f2
11447c478bdstevel@tonic-gate/* 0x0140	     */		fxtod	%f2,%f2
11457c478bdstevel@tonic-gate/* 0x0144	     */		fmuld	%f2,%f4,%f2
11467c478bdstevel@tonic-gate/* 0x0148	     */		fsubd	%f0,%f2,%f22
11477c478bdstevel@tonic-gate/* 0x014c	 206 */		ble,pt	%icc,.L900000651
11487c478bdstevel@tonic-gate/* 0x0150	     */		sll	%g1,4,%g2
11497c478bdstevel@tonic-gate/* 0x0154	 210 */		ldd	[%i0],%f0
11507c478bdstevel@tonic-gate                       .L900000652:
11517c478bdstevel@tonic-gate/* 0x0158	 210 */		fmuld	%f0,%f22,%f8
11527c478bdstevel@tonic-gate/* 0x015c	     */		ldd	[%g4],%f0
11537c478bdstevel@tonic-gate/* 0x0160	 214 */		cmp	%g1,1
11547c478bdstevel@tonic-gate/* 0x0164	 210 */		ldd	[%o4+%i4],%f6
11557c478bdstevel@tonic-gate/* 0x0168	     */		add	%g4,8,%o0
11567c478bdstevel@tonic-gate/* 0x016c	 214 */		or	%g0,1,%o1
11577c478bdstevel@tonic-gate/* 0x0170	 210 */		ldd	[%i3],%f2
11587c478bdstevel@tonic-gate/* 0x0174	     */		add	%i3,16,%l1
11597c478bdstevel@tonic-gate/* 0x0178	     */		fmuld	%f0,%f6,%f6
11607c478bdstevel@tonic-gate/* 0x017c	     */		ldd	[%g3-8],%f4
11617c478bdstevel@tonic-gate/* 0x0180	     */		faddd	%f2,%f8,%f2
11627c478bdstevel@tonic-gate/* 0x0184	     */		ldd	[%i3+8],%f0
11637c478bdstevel@tonic-gate/* 0x0188	 208 */		ldd	[%i1+%i4],%f20
11647c478bdstevel@tonic-gate/* 0x018c	 210 */		faddd	%f0,%f6,%f0
11657c478bdstevel@tonic-gate/* 0x0190	     */		fmuld	%f2,%f4,%f2
11667c478bdstevel@tonic-gate/* 0x0194	     */		faddd	%f0,%f2,%f18
11677c478bdstevel@tonic-gate/* 0x0198	 211 */		std	%f18,[%i3+8]
11687c478bdstevel@tonic-gate/* 0x019c	 214 */		ble,pt	%icc,.L900000656
11697c478bdstevel@tonic-gate/* 0x01a0	     */		srl	%i5,31,%g2
11707c478bdstevel@tonic-gate/* 0x01a4	     */		cmp	%i2,7
11717c478bdstevel@tonic-gate/* 0x01a8	 210 */		add	%i0,8,%g2
11727c478bdstevel@tonic-gate/* 0x01ac	 214 */		bl,pn	%icc,.L77000281
11737c478bdstevel@tonic-gate/* 0x01b0	     */		add	%g2,24,%o2
11747c478bdstevel@tonic-gate/* 0x01b4	 216 */		ldd	[%g4+8],%f2
11757c478bdstevel@tonic-gate/* 0x01b8	     */		add	%g4,40,%o0
11767c478bdstevel@tonic-gate/* 0x01bc	     */		ldd	[%g4+16],%f6
11777c478bdstevel@tonic-gate/* 0x01c0	   0 */		or	%g0,%o2,%g2
11787c478bdstevel@tonic-gate/* 0x01c4	 216 */		add	%i3,48,%l1
11797c478bdstevel@tonic-gate/* 0x01c8	     */		ldd	[%g2-24],%f0
11807c478bdstevel@tonic-gate/* 0x01cc	     */		fmuld	%f2,%f20,%f2
11817c478bdstevel@tonic-gate/* 0x01d0	 214 */		sub	%i2,2,%o2
11827c478bdstevel@tonic-gate/* 0x01d4	 216 */		ldd	[%g2-16],%f8
11837c478bdstevel@tonic-gate/* 0x01d8	     */		fmuld	%f6,%f20,%f10
11847c478bdstevel@tonic-gate/* 0x01dc	     */		or	%g0,5,%o1
11857c478bdstevel@tonic-gate/* 0x01e0	     */		ldd	[%g4+24],%f14
11867c478bdstevel@tonic-gate/* 0x01e4	     */		fmuld	%f0,%f22,%f4
11877c478bdstevel@tonic-gate/* 0x01e8	     */		ldd	[%i3+16],%f0
11887c478bdstevel@tonic-gate/* 0x01ec	     */		ldd	[%g2-8],%f6
11897c478bdstevel@tonic-gate/* 0x01f0	     */		ldd	[%g4+32],%f12
11907c478bdstevel@tonic-gate/* 0x01f4	     */		faddd	%f2,%f4,%f4
11917c478bdstevel@tonic-gate/* 0x01f8	     */		ldd	[%i3+32],%f2
11927c478bdstevel@tonic-gate                       .L900000640:
11937c478bdstevel@tonic-gate/* 0x01fc	 216 */		ldd	[%g2],%f24
11947c478bdstevel@tonic-gate/* 0x0200	     */		add	%o1,3,%o1
11957c478bdstevel@tonic-gate/* 0x0204	     */		add	%g2,24,%g2
11967c478bdstevel@tonic-gate/* 0x0208	     */		fmuld	%f8,%f22,%f8
11977c478bdstevel@tonic-gate/* 0x020c	     */		ldd	[%l1],%f28
11987c478bdstevel@tonic-gate/* 0x0210	     */		cmp	%o1,%o2
11997c478bdstevel@tonic-gate/* 0x0214	     */		add	%o0,24,%o0
12007c478bdstevel@tonic-gate/* 0x0218	     */		ldd	[%o0-24],%f26
12017c478bdstevel@tonic-gate/* 0x021c	     */		faddd	%f0,%f4,%f0
12027c478bdstevel@tonic-gate/* 0x0220	     */		add	%l1,48,%l1
12037c478bdstevel@tonic-gate/* 0x0224	     */		faddd	%f10,%f8,%f10
12047c478bdstevel@tonic-gate/* 0x0228	     */		fmuld	%f14,%f20,%f4
12057c478bdstevel@tonic-gate/* 0x022c	     */		std	%f0,[%l1-80]
12067c478bdstevel@tonic-gate/* 0x0230	     */		ldd	[%g2-16],%f8
12077c478bdstevel@tonic-gate/* 0x0234	     */		fmuld	%f6,%f22,%f6
12087c478bdstevel@tonic-gate/* 0x0238	     */		ldd	[%l1-32],%f0
12097c478bdstevel@tonic-gate/* 0x023c	     */		ldd	[%o0-16],%f14
12107c478bdstevel@tonic-gate/* 0x0240	     */		faddd	%f2,%f10,%f2
12117c478bdstevel@tonic-gate/* 0x0244	     */		faddd	%f4,%f6,%f10
12127c478bdstevel@tonic-gate/* 0x0248	     */		fmuld	%f12,%f20,%f4
12137c478bdstevel@tonic-gate/* 0x024c	     */		std	%f2,[%l1-64]
12147c478bdstevel@tonic-gate/* 0x0250	     */		ldd	[%g2-8],%f6
12157c478bdstevel@tonic-gate/* 0x0254	     */		fmuld	%f24,%f22,%f24
12167c478bdstevel@tonic-gate/* 0x0258	     */		ldd	[%l1-16],%f2
12177c478bdstevel@tonic-gate/* 0x025c	     */		ldd	[%o0-8],%f12
12187c478bdstevel@tonic-gate/* 0x0260	     */		faddd	%f28,%f10,%f10
12197c478bdstevel@tonic-gate/* 0x0264	     */		std	%f10,[%l1-48]
12207c478bdstevel@tonic-gate/* 0x0268	     */		fmuld	%f26,%f20,%f10
12217c478bdstevel@tonic-gate/* 0x026c	     */		ble,pt	%icc,.L900000640
12227c478bdstevel@tonic-gate/* 0x0270	     */		faddd	%f4,%f24,%f4
12237c478bdstevel@tonic-gate                       .L900000643:
12247c478bdstevel@tonic-gate/* 0x0274	 216 */		fmuld	%f8,%f22,%f28
12257c478bdstevel@tonic-gate/* 0x0278	     */		ldd	[%g2],%f24
12267c478bdstevel@tonic-gate/* 0x027c	     */		faddd	%f0,%f4,%f26
12277c478bdstevel@tonic-gate/* 0x0280	     */		fmuld	%f12,%f20,%f8
12287c478bdstevel@tonic-gate/* 0x0284	     */		add	%l1,32,%l1
12297c478bdstevel@tonic-gate/* 0x0288	     */		cmp	%o1,%i2
12307c478bdstevel@tonic-gate/* 0x028c	     */		fmuld	%f14,%f20,%f14
12317c478bdstevel@tonic-gate/* 0x0290	     */		ldd	[%l1-32],%f4
12327c478bdstevel@tonic-gate/* 0x0294	     */		add	%g2,8,%g2
12337c478bdstevel@tonic-gate/* 0x0298	     */		faddd	%f10,%f28,%f12
12347c478bdstevel@tonic-gate/* 0x029c	     */		fmuld	%f6,%f22,%f6
12357c478bdstevel@tonic-gate/* 0x02a0	     */		ldd	[%l1-16],%f0
12367c478bdstevel@tonic-gate/* 0x02a4	     */		fmuld	%f24,%f22,%f10
12377c478bdstevel@tonic-gate/* 0x02a8	     */		std	%f26,[%l1-64]
12387c478bdstevel@tonic-gate/* 0x02ac	     */		faddd	%f2,%f12,%f2
12397c478bdstevel@tonic-gate/* 0x02b0	     */		std	%f2,[%l1-48]
12407c478bdstevel@tonic-gate/* 0x02b4	     */		faddd	%f14,%f6,%f6
12417c478bdstevel@tonic-gate/* 0x02b8	     */		faddd	%f8,%f10,%f2
12427c478bdstevel@tonic-gate/* 0x02bc	     */		faddd	%f4,%f6,%f4
12437c478bdstevel@tonic-gate/* 0x02c0	     */		std	%f4,[%l1-32]
12447c478bdstevel@tonic-gate/* 0x02c4	     */		faddd	%f0,%f2,%f0
12457c478bdstevel@tonic-gate/* 0x02c8	     */		bg,pn	%icc,.L77000213
12467c478bdstevel@tonic-gate/* 0x02cc	     */		std	%f0,[%l1-16]
12477c478bdstevel@tonic-gate                       .L77000281:
12487c478bdstevel@tonic-gate/* 0x02d0	 216 */		ldd	[%o0],%f0
12497c478bdstevel@tonic-gate                       .L900000655:
12507c478bdstevel@tonic-gate/* 0x02d4	 216 */		ldd	[%g2],%f4
12517c478bdstevel@tonic-gate/* 0x02d8	     */		fmuld	%f0,%f20,%f2
12527c478bdstevel@tonic-gate/* 0x02dc	     */		add	%o1,1,%o1
12537c478bdstevel@tonic-gate/* 0x02e0	     */		ldd	[%l1],%f0
12547c478bdstevel@tonic-gate/* 0x02e4	     */		add	%o0,8,%o0
12557c478bdstevel@tonic-gate/* 0x02e8	     */		add	%g2,8,%g2
12567c478bdstevel@tonic-gate/* 0x02ec	     */		fmuld	%f4,%f22,%f4
12577c478bdstevel@tonic-gate/* 0x02f0	     */		cmp	%o1,%i2
12587c478bdstevel@tonic-gate/* 0x02f4	     */		faddd	%f2,%f4,%f2
12597c478bdstevel@tonic-gate/* 0x02f8	     */		faddd	%f0,%f2,%f0
12607c478bdstevel@tonic-gate/* 0x02fc	     */		std	%f0,[%l1]
12617c478bdstevel@tonic-gate/* 0x0300	     */		add	%l1,16,%l1
12627c478bdstevel@tonic-gate/* 0x0304	     */		ble,a,pt	%icc,.L900000655
12637c478bdstevel@tonic-gate/* 0x0308	     */		ldd	[%o0],%f0
12647c478bdstevel@tonic-gate                       .L77000213:
12657c478bdstevel@tonic-gate/* 0x030c	     */		srl	%i5,31,%g2
12667c478bdstevel@tonic-gate                       .L900000656:
12677c478bdstevel@tonic-gate/* 0x0310	 218 */		cmp	%l0,30
12687c478bdstevel@tonic-gate/* 0x0314	     */		bne,a,pt	%icc,.L900000654
12697c478bdstevel@tonic-gate/* 0x0318	     */		fdtox	%f18,%f0
12707c478bdstevel@tonic-gate/* 0x031c	     */		add	%i5,%g2,%g2
12717c478bdstevel@tonic-gate/* 0x0320	     */		sub	%o3,1,%o2
12727c478bdstevel@tonic-gate/* 0x0324	     */		sra	%g2,1,%o0
12737c478bdstevel@tonic-gate/* 0x0328	 216 */		ldd	[%g3],%f0
12747c478bdstevel@tonic-gate/* 0x032c	     */		add	%o0,1,%g2
12757c478bdstevel@tonic-gate/* 0x0330	     */		sll	%g2,1,%o0
12767c478bdstevel@tonic-gate/* 0x0334	     */		fmovd	%f0,%f2
12777c478bdstevel@tonic-gate/* 0x0338	     */		sll	%g2,4,%o1
12787c478bdstevel@tonic-gate/* 0x033c	     */		cmp	%o0,%o3
12797c478bdstevel@tonic-gate/* 0x0340	     */		bge,pt	%icc,.L77000215
12807c478bdstevel@tonic-gate/* 0x0344	     */		or	%g0,0,%l0
12817c478bdstevel@tonic-gate/* 0x0348	 218 */		add	%g5,%o1,%o1
12827c478bdstevel@tonic-gate/* 0x034c	 216 */		ldd	[%o1],%f6
12837c478bdstevel@tonic-gate                       .L900000653:
12847c478bdstevel@tonic-gate/* 0x0350	     */		fdtox	%f6,%f10
12857c478bdstevel@tonic-gate/* 0x0354	     */		ldd	[%o1+8],%f4
12867c478bdstevel@tonic-gate/* 0x0358	     */		add	%o0,2,%o0
12877c478bdstevel@tonic-gate/* 0x035c	     */		ldd	[%g3],%f12
12887c478bdstevel@tonic-gate/* 0x0360	     */		fdtox	%f6,%f6
12897c478bdstevel@tonic-gate/* 0x0364	     */		cmp	%o0,%o2
12907c478bdstevel@tonic-gate/* 0x0368	     */		fdtox	%f4,%f8
12917c478bdstevel@tonic-gate/* 0x036c	     */		fdtox	%f4,%f4
12927c478bdstevel@tonic-gate/* 0x0370	     */		fmovs	%f12,%f10
12937c478bdstevel@tonic-gate/* 0x0374	     */		fmovs	%f12,%f8
12947c478bdstevel@tonic-gate/* 0x0378	     */		fxtod	%f10,%f10
12957c478bdstevel@tonic-gate/* 0x037c	     */		fxtod	%f8,%f8
12967c478bdstevel@tonic-gate/* 0x0380	     */		faddd	%f10,%f2,%f2
12977c478bdstevel@tonic-gate/* 0x0384	     */		std	%f2,[%o1]
12987c478bdstevel@tonic-gate/* 0x0388	     */		faddd	%f8,%f0,%f0
12997c478bdstevel@tonic-gate/* 0x038c	     */		std	%f0,[%o1+8]
13007c478bdstevel@tonic-gate/* 0x0390	     */		add	%o1,16,%o1
13017c478bdstevel@tonic-gate/* 0x0394	     */		fitod	%f6,%f2
13027c478bdstevel@tonic-gate/* 0x0398	     */		fitod	%f4,%f0
13037c478bdstevel@tonic-gate/* 0x039c	     */		ble,a,pt	%icc,.L900000653
13047c478bdstevel@tonic-gate/* 0x03a0	     */		ldd	[%o1],%f6
13057c478bdstevel@tonic-gate                       .L77000233:
13067c478bdstevel@tonic-gate/* 0x03a4	     */		or	%g0,0,%l0
13077c478bdstevel@tonic-gate                       .L77000215:
13087c478bdstevel@tonic-gate/* 0x03a8	     */		fdtox	%f18,%f0
13097c478bdstevel@tonic-gate                       .L900000654:
13107c478bdstevel@tonic-gate/* 0x03ac	     */		ldd	[%g3],%f6
13117c478bdstevel@tonic-gate/* 0x03b0	 220 */		add	%i5,1,%i5
13127c478bdstevel@tonic-gate/* 0x03b4	     */		add	%i4,8,%i4
13137c478bdstevel@tonic-gate/* 0x03b8	     */		ldd	[%g3-8],%f2
13147c478bdstevel@tonic-gate/* 0x03bc	     */		add	%l0,1,%l0
13157c478bdstevel@tonic-gate/* 0x03c0	     */		add	%i3,8,%i3
13167c478bdstevel@tonic-gate/* 0x03c4	     */		fmovs	%f6,%f0
13177c478bdstevel@tonic-gate/* 0x03c8	     */		ldd	[%g3-16],%f4
13187c478bdstevel@tonic-gate/* 0x03cc	     */		cmp	%i5,%o5
13197c478bdstevel@tonic-gate/* 0x03d0	     */		fxtod	%f0,%f0
13207c478bdstevel@tonic-gate/* 0x03d4	     */		fmuld	%f0,%f16,%f0
13217c478bdstevel@tonic-gate/* 0x03d8	     */		fmuld	%f0,%f2,%f2
13227c478bdstevel@tonic-gate/* 0x03dc	     */		fdtox	%f2,%f2
13237c478bdstevel@tonic-gate/* 0x03e0	     */		fxtod	%f2,%f2
13247c478bdstevel@tonic-gate/* 0x03e4	     */		fmuld	%f2,%f4,%f2
13257c478bdstevel@tonic-gate/* 0x03e8	     */		fsubd	%f0,%f2,%f22
13267c478bdstevel@tonic-gate/* 0x03ec	     */		ble,a,pt	%icc,.L900000652
13277c478bdstevel@tonic-gate/* 0x03f0	     */		ldd	[%i0],%f0
13287c478bdstevel@tonic-gate                       .L900000627:
13297c478bdstevel@tonic-gate/* 0x03f4	 220 */		ba	.L900000651
13307c478bdstevel@tonic-gate/* 0x03f8	     */		sll	%g1,4,%g2
13317c478bdstevel@tonic-gate                       .L77000289:
13327c478bdstevel@tonic-gate/* 0x03fc	 225 */		ldd	[%o2],%f6
13337c478bdstevel@tonic-gate/* 0x0400	 243 */		or	%g0,%o1,%o4
13347c478bdstevel@tonic-gate/* 0x0404	 245 */		or	%g0,0,%o3
13357c478bdstevel@tonic-gate/* 0x0408	 225 */		ldd	[%g4],%f4
13367c478bdstevel@tonic-gate/* 0x040c	 237 */		std	%f0,[%o1+8]
13377c478bdstevel@tonic-gate/* 0x0410	     */		std	%f0,[%o1+16]
13387c478bdstevel@tonic-gate/* 0x0414	 225 */		fmuld	%f4,%f6,%f4
13397c478bdstevel@tonic-gate/* 0x0418	     */		std	%f4,[%o1]
13407c478bdstevel@tonic-gate/* 0x041c	 237 */		std	%f0,[%o1+24]
13417c478bdstevel@tonic-gate/* 0x0420	     */		std	%f0,[%o1+32]
13427c478bdstevel@tonic-gate/* 0x0424	     */		fdtox	%f4,%f4
13437c478bdstevel@tonic-gate/* 0x0428	     */		std	%f0,[%o1+40]
13447c478bdstevel@tonic-gate/* 0x042c	     */		std	%f0,[%o1+48]
13457c478bdstevel@tonic-gate/* 0x0430	     */		std	%f0,[%o1+56]
13467c478bdstevel@tonic-gate/* 0x0434	     */		std	%f0,[%o1+64]
13477c478bdstevel@tonic-gate/* 0x0438	     */		std	%f0,[%o1+72]
13487c478bdstevel@tonic-gate/* 0x043c	     */		std	%f0,[%o1+80]
13497c478bdstevel@tonic-gate/* 0x0440	     */		std	%f0,[%o1+88]
13507c478bdstevel@tonic-gate/* 0x0444	     */		std	%f0,[%o1+96]
13517c478bdstevel@tonic-gate/* 0x0448	     */		std	%f0,[%o1+104]
13527c478bdstevel@tonic-gate/* 0x044c	     */		std	%f0,[%o1+112]
13537c478bdstevel@tonic-gate/* 0x0450	     */		std	%f0,[%o1+120]
13547c478bdstevel@tonic-gate/* 0x0454	     */		std	%f0,[%o1+128]
13557c478bdstevel@tonic-gate/* 0x0458	     */		std	%f0,[%o1+136]
13567c478bdstevel@tonic-gate/* 0x045c	     */		std	%f0,[%o1+144]
13577c478bdstevel@tonic-gate/* 0x0460	     */		std	%f0,[%o1+152]
13587c478bdstevel@tonic-gate/* 0x0464	     */		std	%f0,[%o1+160]
13597c478bdstevel@tonic-gate/* 0x0468	     */		std	%f0,[%o1+168]
13607c478bdstevel@tonic-gate/* 0x046c	     */		fmovs	%f0,%f4
13617c478bdstevel@tonic-gate/* 0x0470	     */		std	%f0,[%o1+176]
13627c478bdstevel@tonic-gate/* 0x0474	 245 */		or	%g0,0,%o0
13637c478bdstevel@tonic-gate/* 0x0478	 237 */		std	%f0,[%o1+184]
13647c478bdstevel@tonic-gate/* 0x047c	     */		fxtod	%f4,%f4
13657c478bdstevel@tonic-gate/* 0x0480	     */		std	%f0,[%o1+192]
13667c478bdstevel@tonic-gate/* 0x0484	     */		std	%f0,[%o1+200]
13677c478bdstevel@tonic-gate/* 0x0488	     */		std	%f0,[%o1+208]
13687c478bdstevel@tonic-gate/* 0x048c	 242 */		fmuld	%f4,%f2,%f2
13697c478bdstevel@tonic-gate/* 0x0490	 237 */		std	%f0,[%o1+216]
13707c478bdstevel@tonic-gate/* 0x0494	     */		std	%f0,[%o1+224]
13717c478bdstevel@tonic-gate/* 0x0498	     */		std	%f0,[%o1+232]
13727c478bdstevel@tonic-gate/* 0x049c	     */		std	%f0,[%o1+240]
13737c478bdstevel@tonic-gate/* 0x04a0	     */		std	%f0,[%o1+248]
13747c478bdstevel@tonic-gate/* 0x04a4	     */		std	%f0,[%o1+256]
13757c478bdstevel@tonic-gate/* 0x04a8	     */		std	%f0,[%o1+264]
13767c478bdstevel@tonic-gate/* 0x04ac	     */		std	%f0,[%o1+272]
13777c478bdstevel@tonic-gate/* 0x04b0	     */		std	%f0,[%o1+280]
13787c478bdstevel@tonic-gate/* 0x04b4	     */		std	%f0,[%o1+288]
13797c478bdstevel@tonic-gate/* 0x04b8	     */		std	%f0,[%o1+296]
13807c478bdstevel@tonic-gate/* 0x04bc	     */		std	%f0,[%o1+304]
13817c478bdstevel@tonic-gate/* 0x04c0	     */		std	%f0,[%o1+312]
13827c478bdstevel@tonic-gate/* 0x04c4	     */		std	%f0,[%o1+320]
13837c478bdstevel@tonic-gate/* 0x04c8	     */		std	%f0,[%o1+328]
13847c478bdstevel@tonic-gate/* 0x04cc	     */		std	%f0,[%o1+336]
13857c478bdstevel@tonic-gate/* 0x04d0	     */		std	%f0,[%o1+344]
13867c478bdstevel@tonic-gate/* 0x04d4	     */		std	%f0,[%o1+352]
13877c478bdstevel@tonic-gate/* 0x04d8	     */		std	%f0,[%o1+360]
13887c478bdstevel@tonic-gate/* 0x04dc	     */		std	%f0,[%o1+368]
13897c478bdstevel@tonic-gate/* 0x04e0	     */		std	%f0,[%o1+376]
13907c478bdstevel@tonic-gate/* 0x04e4	     */		std	%f0,[%o1+384]
13917c478bdstevel@tonic-gate/* 0x04e8	     */		std	%f0,[%o1+392]
13927c478bdstevel@tonic-gate/* 0x04ec	     */		std	%f0,[%o1+400]
13937c478bdstevel@tonic-gate/* 0x04f0	     */		std	%f0,[%o1+408]
13947c478bdstevel@tonic-gate/* 0x04f4	     */		std	%f0,[%o1+416]
13957c478bdstevel@tonic-gate/* 0x04f8	     */		std	%f0,[%o1+424]
13967c478bdstevel@tonic-gate/* 0x04fc	     */		std	%f0,[%o1+432]
13977c478bdstevel@tonic-gate/* 0x0500	     */		std	%f0,[%o1+440]
13987c478bdstevel@tonic-gate/* 0x0504	     */		std	%f0,[%o1+448]
13997c478bdstevel@tonic-gate/* 0x0508	     */		std	%f0,[%o1+456]
14007c478bdstevel@tonic-gate/* 0x050c	     */		std	%f0,[%o1+464]
14017c478bdstevel@tonic-gate/* 0x0510	     */		std	%f0,[%o1+472]
14027c478bdstevel@tonic-gate/* 0x0514	     */		std	%f0,[%o1+480]
14037c478bdstevel@tonic-gate/* 0x0518	     */		std	%f0,[%o1+488]
14047c478bdstevel@tonic-gate/* 0x051c	     */		std	%f0,[%o1+496]
14057c478bdstevel@tonic-gate/* 0x0520	     */		std	%f0,[%o1+504]
14067c478bdstevel@tonic-gate/* 0x0524	     */		std	%f0,[%o1+512]
14077c478bdstevel@tonic-gate/* 0x0528	     */		std	%f0,[%o1+520]
14087c478bdstevel@tonic-gate/* 0x052c	     */		ldd	[%g3-8],%f0
14097c478bdstevel@tonic-gate/* 0x0530	     */		ldd	[%g3-16],%f8
14107c478bdstevel@tonic-gate/* 0x0534	     */		fmuld	%f2,%f0,%f6
14117c478bdstevel@tonic-gate/* 0x0538	 239 */		ldd	[%i4],%f4
14127c478bdstevel@tonic-gate/* 0x053c	 240 */		ldd	[%g4],%f0
14137c478bdstevel@tonic-gate/* 0x0540	     */		fdtox	%f6,%f6
14147c478bdstevel@tonic-gate/* 0x0544	     */		fxtod	%f6,%f6
14157c478bdstevel@tonic-gate/* 0x0548	     */		fmuld	%f6,%f8,%f6
14167c478bdstevel@tonic-gate/* 0x054c	     */		fsubd	%f2,%f6,%f2
14177c478bdstevel@tonic-gate/* 0x0550	 250 */		fmuld	%f4,%f2,%f12
14187c478bdstevel@tonic-gate                       .L900000650:
14197c478bdstevel@tonic-gate
14207c478bdstevel@tonic-gate
14217c478bdstevel@tonic-gate	fmovd %f2,%f0
14227c478bdstevel@tonic-gate	fmovd %f16,%f18
14237c478bdstevel@tonic-gate	ldd [%i4],%f2
14247c478bdstevel@tonic-gate	ldd [%o4],%f8
14257c478bdstevel@tonic-gate	ldd [%g4],%f10
14267c478bdstevel@tonic-gate	ldd [%g3-8],%f14
14277c478bdstevel@tonic-gate	ldd [%g3-16],%f16
14287c478bdstevel@tonic-gate	ldd [%i2],%f24
14297c478bdstevel@tonic-gate
14307c478bdstevel@tonic-gate	ldd [%g4+8],%f26
14317c478bdstevel@tonic-gate	ldd [%g4+16],%f40
14327c478bdstevel@tonic-gate	ldd [%g4+48],%f46
14337c478bdstevel@tonic-gate	ldd [%g4+56],%f30
14347c478bdstevel@tonic-gate	ldd [%g4+64],%f54
14357c478bdstevel@tonic-gate	ldd [%g4+104],%f34
14367c478bdstevel@tonic-gate	ldd [%g4+112],%f58
14377c478bdstevel@tonic-gate
14387c478bdstevel@tonic-gate	ldd [%i4+8],%f28
14397c478bdstevel@tonic-gate	ldd [%i4+104],%f38
14407c478bdstevel@tonic-gate	ldd [%i4+112],%f60
14417c478bdstevel@tonic-gate
14427c478bdstevel@tonic-gate
14437c478bdstevel@tonic-gate	.L99999999:
14447c478bdstevel@tonic-gate!1
14457c478bdstevel@tonic-gate	ldd	[%g4+24],%f32
14467c478bdstevel@tonic-gate	fmuld	%f0,%f2,%f4
14477c478bdstevel@tonic-gate!2
14487c478bdstevel@tonic-gate	ldd	[%i4+24],%f36
14497c478bdstevel@tonic-gate	fmuld	%f26,%f24,%f20
14507c478bdstevel@tonic-gate!3
14517c478bdstevel@tonic-gate	ldd	[%g4+40],%f42
14527c478bdstevel@tonic-gate	fmuld	%f28,%f0,%f22
14537c478bdstevel@tonic-gate!4
14547c478bdstevel@tonic-gate	ldd	[%i4+40],%f44
14557c478bdstevel@tonic-gate	fmuld	%f32,%f24,%f32
14567c478bdstevel@tonic-gate!5
14577c478bdstevel@tonic-gate	ldd	[%i2+8],%f6
14587c478bdstevel@tonic-gate	faddd	%f4,%f8,%f4
14597c478bdstevel@tonic-gate	fmuld	%f36,%f0,%f36
14607c478bdstevel@tonic-gate!6
14617c478bdstevel@tonic-gate	add	%i2,8,%i2
14627c478bdstevel@tonic-gate	ldd	[%i4+56],%f50
14637c478bdstevel@tonic-gate	fmuld	%f42,%f24,%f42
14647c478bdstevel@tonic-gate!7
14657c478bdstevel@tonic-gate	ldd	[%g4+72],%f52
14667c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
14677c478bdstevel@tonic-gate	fmuld	%f44,%f0,%f44
14687c478bdstevel@tonic-gate!8
14697c478bdstevel@tonic-gate	ldd	[%o4+16],%f22
14707c478bdstevel@tonic-gate	fmuld	%f10,%f6,%f12
14717c478bdstevel@tonic-gate!9
14727c478bdstevel@tonic-gate	ldd	[%i4+72],%f56
14737c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
14747c478bdstevel@tonic-gate	fmuld	%f14,%f4,%f4
14757c478bdstevel@tonic-gate!10
14767c478bdstevel@tonic-gate	ldd	[%o4+48],%f36
14777c478bdstevel@tonic-gate	fmuld	%f30,%f24,%f48
14787c478bdstevel@tonic-gate!11
14797c478bdstevel@tonic-gate	ldd	[%o4+8],%f8
14807c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
14817c478bdstevel@tonic-gate	fmuld	%f50,%f0,%f50
14827c478bdstevel@tonic-gate!12
14837c478bdstevel@tonic-gate	std	%f20,[%o4+16]
14847c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
14857c478bdstevel@tonic-gate	fmuld	%f52,%f24,%f52
14867c478bdstevel@tonic-gate!13
14877c478bdstevel@tonic-gate	ldd	[%o4+80],%f44
14887c478bdstevel@tonic-gate	faddd	%f4,%f12,%f4
14897c478bdstevel@tonic-gate	fmuld	%f56,%f0,%f56
14907c478bdstevel@tonic-gate!14
14917c478bdstevel@tonic-gate	ldd	[%g4+88],%f20
14927c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
14937c478bdstevel@tonic-gate!15
14947c478bdstevel@tonic-gate	ldd	[%i4+88],%f22
14957c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
14967c478bdstevel@tonic-gate!16
14977c478bdstevel@tonic-gate	ldd	[%o4+112],%f50
14987c478bdstevel@tonic-gate	faddd	%f52,%f56,%f52
14997c478bdstevel@tonic-gate!17
15007c478bdstevel@tonic-gate	ldd	[%o4+144],%f56
15017c478bdstevel@tonic-gate	faddd	%f4,%f8,%f8
15027c478bdstevel@tonic-gate	fmuld	%f20,%f24,%f20
15037c478bdstevel@tonic-gate!18
15047c478bdstevel@tonic-gate	std	%f32,[%o4+48]
15057c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
15067c478bdstevel@tonic-gate	fmuld	%f22,%f0,%f22
15077c478bdstevel@tonic-gate!19
15087c478bdstevel@tonic-gate	std	%f42,[%o4+80]
15097c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
15107c478bdstevel@tonic-gate	fmuld	%f34,%f24,%f32
15117c478bdstevel@tonic-gate!20
15127c478bdstevel@tonic-gate	std	%f48,[%o4+112]
15137c478bdstevel@tonic-gate	faddd	%f52,%f56,%f52
15147c478bdstevel@tonic-gate	fmuld	%f38,%f0,%f36
15157c478bdstevel@tonic-gate!21
15167c478bdstevel@tonic-gate	ldd	[%g4+120],%f42
15177c478bdstevel@tonic-gate	fdtox	%f8,%f4
15187c478bdstevel@tonic-gate!22
15197c478bdstevel@tonic-gate	std	%f52,[%o4+144]
15207c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
15217c478bdstevel@tonic-gate!23
15227c478bdstevel@tonic-gate	ldd	[%i4+120],%f44
15237c478bdstevel@tonic-gate!24
15247c478bdstevel@tonic-gate	ldd	[%o4+176],%f22
15257c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
15267c478bdstevel@tonic-gate	fmuld	%f42,%f24,%f42
15277c478bdstevel@tonic-gate!25
15287c478bdstevel@tonic-gate	ldd	[%i4+16],%f50
15297c478bdstevel@tonic-gate	fmovs	%f17,%f4
15307c478bdstevel@tonic-gate!26
15317c478bdstevel@tonic-gate	ldd	[%g4+32],%f52
15327c478bdstevel@tonic-gate	fmuld	%f44,%f0,%f44
15337c478bdstevel@tonic-gate!27
15347c478bdstevel@tonic-gate	ldd	[%i4+32],%f56
15357c478bdstevel@tonic-gate	fmuld	%f40,%f24,%f48
15367c478bdstevel@tonic-gate!28
15377c478bdstevel@tonic-gate	ldd	[%o4+208],%f36
15387c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
15397c478bdstevel@tonic-gate	fmuld	%f50,%f0,%f50
15407c478bdstevel@tonic-gate!29
15417c478bdstevel@tonic-gate	std	%f20,[%o4+176]
15427c478bdstevel@tonic-gate	fxtod	%f4,%f4
15437c478bdstevel@tonic-gate	fmuld	%f52,%f24,%f52
15447c478bdstevel@tonic-gate!30
15457c478bdstevel@tonic-gate	ldd	[%i4+48],%f22
15467c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
15477c478bdstevel@tonic-gate	fmuld	%f56,%f0,%f56
15487c478bdstevel@tonic-gate!31
15497c478bdstevel@tonic-gate	ldd	[%o4+240],%f44
15507c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
15517c478bdstevel@tonic-gate!32
15527c478bdstevel@tonic-gate	std	%f32,[%o4+208]
15537c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
15547c478bdstevel@tonic-gate	fmuld	%f46,%f24,%f20
15557c478bdstevel@tonic-gate!33
15567c478bdstevel@tonic-gate	ldd	[%o4+32],%f50
15577c478bdstevel@tonic-gate	fmuld	%f4,%f18,%f12
15587c478bdstevel@tonic-gate!34
15597c478bdstevel@tonic-gate	ldd	[%i4+64],%f36
15607c478bdstevel@tonic-gate	faddd	%f52,%f56,%f52
15617c478bdstevel@tonic-gate	fmuld	%f22,%f0,%f22
15627c478bdstevel@tonic-gate!35
15637c478bdstevel@tonic-gate	ldd	[%o4+64],%f56
15647c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
15657c478bdstevel@tonic-gate!36
15667c478bdstevel@tonic-gate	std	%f42,[%o4+240]
15677c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
15687c478bdstevel@tonic-gate	fmuld	%f54,%f24,%f32
15697c478bdstevel@tonic-gate!37
15707c478bdstevel@tonic-gate	std	%f48,[%o4+32]
15717c478bdstevel@tonic-gate	fmuld	%f12,%f14,%f4
15727c478bdstevel@tonic-gate!38
15737c478bdstevel@tonic-gate	ldd	[%g4+80],%f42
15747c478bdstevel@tonic-gate	faddd	%f52,%f56,%f56	! yes, tmp52!
15757c478bdstevel@tonic-gate	fmuld	%f36,%f0,%f36
15767c478bdstevel@tonic-gate!39
15777c478bdstevel@tonic-gate	ldd	[%i4+80],%f44
15787c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
15797c478bdstevel@tonic-gate!40
15807c478bdstevel@tonic-gate	ldd	[%g4+96],%f48
15817c478bdstevel@tonic-gate	fmuld	%f58,%f24,%f52
15827c478bdstevel@tonic-gate!41
15837c478bdstevel@tonic-gate	ldd	[%i4+96],%f50
15847c478bdstevel@tonic-gate	fdtox	%f4,%f4
15857c478bdstevel@tonic-gate	fmuld	%f42,%f24,%f42
15867c478bdstevel@tonic-gate!42
15877c478bdstevel@tonic-gate	std	%f56,[%o4+64]	! yes, tmp52!
15887c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
15897c478bdstevel@tonic-gate	fmuld	%f44,%f0,%f44
15907c478bdstevel@tonic-gate!43
15917c478bdstevel@tonic-gate	ldd	[%o4+96],%f22
15927c478bdstevel@tonic-gate	fmuld	%f48,%f24,%f48
15937c478bdstevel@tonic-gate!44
15947c478bdstevel@tonic-gate	ldd	[%o4+128],%f36
15957c478bdstevel@tonic-gate	fmovd	%f6,%f24
15967c478bdstevel@tonic-gate	fmuld	%f50,%f0,%f50
15977c478bdstevel@tonic-gate!45
15987c478bdstevel@tonic-gate	fxtod	%f4,%f4
15997c478bdstevel@tonic-gate	fmuld	%f60,%f0,%f56
16007c478bdstevel@tonic-gate!46
16017c478bdstevel@tonic-gate	add	%o4,8,%o4
16027c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
16037c478bdstevel@tonic-gate!47
16047c478bdstevel@tonic-gate	ldd	[%o4+160-8],%f44
16057c478bdstevel@tonic-gate	faddd	%f20,%f22,%f20
16067c478bdstevel@tonic-gate!48
16077c478bdstevel@tonic-gate	std	%f20,[%o4+96-8]
16087c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
16097c478bdstevel@tonic-gate!49
16107c478bdstevel@tonic-gate	ldd	[%o4+192-8],%f50
16117c478bdstevel@tonic-gate	faddd	%f52,%f56,%f52
16127c478bdstevel@tonic-gate	fmuld	%f4,%f16,%f4
16137c478bdstevel@tonic-gate!50
16147c478bdstevel@tonic-gate	ldd	[%o4+224-8],%f56
16157c478bdstevel@tonic-gate	faddd	%f32,%f36,%f32
16167c478bdstevel@tonic-gate!51
16177c478bdstevel@tonic-gate	std	%f32,[%o4+128-8]
16187c478bdstevel@tonic-gate	faddd	%f42,%f44,%f42
16197c478bdstevel@tonic-gate!52
16207c478bdstevel@tonic-gate	add	%o3,1,%o3
16217c478bdstevel@tonic-gate	std	%f42,[%o4+160-8]
16227c478bdstevel@tonic-gate	faddd	%f48,%f50,%f48
16237c478bdstevel@tonic-gate!53
16247c478bdstevel@tonic-gate	cmp	%o3,31
16257c478bdstevel@tonic-gate	std	%f48,[%o4+192-8]
16267c478bdstevel@tonic-gate	fsubd	%f12,%f4,%f0
16277c478bdstevel@tonic-gate!54
16287c478bdstevel@tonic-gate	faddd	%f52,%f56,%f52
16297c478bdstevel@tonic-gate	ble,pt	%icc,.L99999999
16307c478bdstevel@tonic-gate	std	%f52,[%o4+224-8]
16317c478bdstevel@tonic-gate!55
16327c478bdstevel@tonic-gate	std %f8,[%o4]
16337c478bdstevel@tonic-gate
16347c478bdstevel@tonic-gate
16357c478bdstevel@tonic-gate	                       .L77000285:
16367c478bdstevel@tonic-gate/* 0x07a8	 279 */		sll	%g1,4,%g2
16377c478bdstevel@tonic-gate                       .L900000651:
16387c478bdstevel@tonic-gate/* 0x07ac	 279 */		ldd	[%g5+%g2],%f0
16397c478bdstevel@tonic-gate/* 0x07b0	     */		add	%g5,%g2,%i1
16407c478bdstevel@tonic-gate/* 0x07b4	     */		or	%g0,0,%o4
16417c478bdstevel@tonic-gate/* 0x07b8	 206 */		ld	[%fp+68],%o0
16427c478bdstevel@tonic-gate/* 0x07bc	 279 */		or	%g0,0,%i0
16437c478bdstevel@tonic-gate/* 0x07c0	     */		cmp	%g1,0
16447c478bdstevel@tonic-gate/* 0x07c4	     */		fdtox	%f0,%f0
16457c478bdstevel@tonic-gate/* 0x07c8	     */		std	%f0,[%sp+120]
16467c478bdstevel@tonic-gate/* 0x07cc	 275 */		sethi	%hi(0xfc00),%o1
16477c478bdstevel@tonic-gate/* 0x07d0	 206 */		or	%g0,%o0,%o3
16487c478bdstevel@tonic-gate/* 0x07d4	 275 */		sub	%g1,1,%g4
16497c478bdstevel@tonic-gate/* 0x07d8	 279 */		ldd	[%i1+8],%f0
16507c478bdstevel@tonic-gate/* 0x07dc	     */		or	%g0,%o0,%g5
16517c478bdstevel@tonic-gate/* 0x07e0	     */		add	%o1,1023,%o1
16527c478bdstevel@tonic-gate/* 0x07e4	     */		fdtox	%f0,%f0
16537c478bdstevel@tonic-gate/* 0x07e8	     */		std	%f0,[%sp+112]
16547c478bdstevel@tonic-gate/* 0x07ec	     */		ldx	[%sp+112],%o5
16557c478bdstevel@tonic-gate/* 0x07f0	     */		ldx	[%sp+120],%o7
16567c478bdstevel@tonic-gate/* 0x07f4	     */		ble,pt	%icc,.L900000649
16577c478bdstevel@tonic-gate/* 0x07f8	     */		sethi	%hi(0xfc00),%g2
16587c478bdstevel@tonic-gate/* 0x07fc	 275 */		or	%g0,-1,%g2
16597c478bdstevel@tonic-gate/* 0x0800	 279 */		cmp	%g1,3
16607c478bdstevel@tonic-gate/* 0x0804	 275 */		srl	%g2,0,%o2
16617c478bdstevel@tonic-gate/* 0x0808	 279 */		bl,pn	%icc,.L77000286
16627c478bdstevel@tonic-gate/* 0x080c	     */		or	%g0,%i1,%g2
16637c478bdstevel@tonic-gate/* 0x0810	     */		ldd	[%i1+16],%f0
16647c478bdstevel@tonic-gate/* 0x0814	     */		and	%o5,%o1,%o0
16657c478bdstevel@tonic-gate/* 0x0818	     */		add	%i1,16,%g2
16667c478bdstevel@tonic-gate/* 0x081c	     */		sllx	%o0,16,%g3
16677c478bdstevel@tonic-gate/* 0x0820	     */		and	%o7,%o2,%o0
16687c478bdstevel@tonic-gate/* 0x0824	     */		fdtox	%f0,%f0
16697c478bdstevel@tonic-gate/* 0x0828	     */		std	%f0,[%sp+104]
16707c478bdstevel@tonic-gate/* 0x082c	     */		add	%o0,%g3,%o4
16717c478bdstevel@tonic-gate/* 0x0830	     */		ldd	[%i1+24],%f2
16727c478bdstevel@tonic-gate/* 0x0834	     */		srax	%o5,16,%o0
16737c478bdstevel@tonic-gate/* 0x0838	     */		add	%o3,4,%g5
16747c478bdstevel@tonic-gate/* 0x083c	     */		stx	%o0,[%sp+128]
16757c478bdstevel@tonic-gate/* 0x0840	     */		and	%o4,%o2,%o0
16767c478bdstevel@tonic-gate/* 0x0844	     */		or	%g0,1,%i0
16777c478bdstevel@tonic-gate/* 0x0848	     */		stx	%o0,[%sp+112]
16787c478bdstevel@tonic-gate/* 0x084c	     */		srax	%o4,32,%o0
16797c478bdstevel@tonic-gate/* 0x0850	     */		fdtox	%f2,%f0
16807c478bdstevel@tonic-gate/* 0x0854	     */		stx	%o0,[%sp+136]
16817c478bdstevel@tonic-gate/* 0x0858	     */		srax	%o7,32,%o4
16827c478bdstevel@tonic-gate/* 0x085c	     */		std	%f0,[%sp+96]
16837c478bdstevel@tonic-gate/* 0x0860	     */		ldx	[%sp+136],%o7
16847c478bdstevel@tonic-gate/* 0x0864	     */		ldx	[%sp+128],%o0
16857c478bdstevel@tonic-gate/* 0x0868	     */		ldx	[%sp+104],%g3
16867c478bdstevel@tonic-gate/* 0x086c	     */		add	%o0,%o7,%o0
16877c478bdstevel@tonic-gate/* 0x0870	     */		ldx	[%sp+112],%o7
16887c478bdstevel@tonic-gate/* 0x0874	     */		add	%o4,%o0,%o4
16897c478bdstevel@tonic-gate/* 0x0878	     */		ldx	[%sp+96],%o5
16907c478bdstevel@tonic-gate/* 0x087c	     */		st	%o7,[%o3]
16917c478bdstevel@tonic-gate/* 0x0880	     */		or	%g0,%g3,%o7
16927c478bdstevel@tonic-gate                       .L900000632:
16937c478bdstevel@tonic-gate/* 0x0884	     */		ldd	[%g2+16],%f0
16947c478bdstevel@tonic-gate/* 0x0888	     */		add	%i0,1,%i0
16957c478bdstevel@tonic-gate/* 0x088c	     */		add	%g5,4,%g5
16967c478bdstevel@tonic-gate/* 0x0890	     */		cmp	%i0,%g4
16977c478bdstevel@tonic-gate/* 0x0894	     */		add	%g2,16,%g2
16987c478bdstevel@tonic-gate/* 0x0898	     */		fdtox	%f0,%f0
16997c478bdstevel@tonic-gate/* 0x089c	     */		std	%f0,[%sp+104]
17007c478bdstevel@tonic-gate/* 0x08a0	     */		ldd	[%g2+8],%f0
17017c478bdstevel@tonic-gate/* 0x08a4	     */		fdtox	%f0,%f0
17027c478bdstevel@tonic-gate/* 0x08a8	     */		std	%f0,[%sp+96]
17037c478bdstevel@tonic-gate/* 0x08ac	     */		and	%o5,%o1,%g3
17047c478bdstevel@tonic-gate/* 0x08b0	     */		sllx	%g3,16,%g3
17057c478bdstevel@tonic-gate/* 0x08b4	     */		stx	%g3,[%sp+120]
17067c478bdstevel@tonic-gate/* 0x08b8	     */		and	%o7,%o2,%g3
17077c478bdstevel@tonic-gate/* 0x08bc	     */		stx	%o7,[%sp+128]
17087c478bdstevel@tonic-gate/* 0x08c0	     */		ldx	[%sp+120],%o7
17097c478bdstevel@tonic-gate/* 0x08c4	     */		add	%g3,%o7,%g3
17107c478bdstevel@tonic-gate/* 0x08c8	     */		ldx	[%sp+128],%o7
17117c478bdstevel@tonic-gate/* 0x08cc	     */		srax	%o5,16,%o5
17127c478bdstevel@tonic-gate/* 0x08d0	     */		add	%g3,%o4,%g3
17137c478bdstevel@tonic-gate/* 0x08d4	     */		srax	%g3,32,%o4
17147c478bdstevel@tonic-gate/* 0x08d8	     */		stx	%o4,[%sp+112]
17157c478bdstevel@tonic-gate/* 0x08dc	     */		srax	%o7,32,%o4
17167c478bdstevel@tonic-gate/* 0x08e0	     */		ldx	[%sp+112],%o7
17177c478bdstevel@tonic-gate/* 0x08e4	     */		add	%o5,%o7,%o7
17187c478bdstevel@tonic-gate/* 0x08e8	     */		ldx	[%sp+96],%o5
17197c478bdstevel@tonic-gate/* 0x08ec	     */		add	%o4,%o7,%o4
17207c478bdstevel@tonic-gate/* 0x08f0	     */		and	%g3,%o2,%g3
17217c478bdstevel@tonic-gate/* 0x08f4	     */		ldx	[%sp+104],%o7
17227c478bdstevel@tonic-gate/* 0x08f8	     */		ble,pt	%icc,.L900000632
17237c478bdstevel@tonic-gate/* 0x08fc	     */		st	%g3,[%g5-4]
17247c478bdstevel@tonic-gate                       .L900000635:
17257c478bdstevel@tonic-gate/* 0x0900	     */		ba	.L900000649
17267c478bdstevel@tonic-gate/* 0x0904	     */		sethi	%hi(0xfc00),%g2
17277c478bdstevel@tonic-gate                       .L77000286:
17287c478bdstevel@tonic-gate/* 0x0908	     */		ldd	[%g2+16],%f0
17297c478bdstevel@tonic-gate                       .L900000648:
17307c478bdstevel@tonic-gate/* 0x090c	     */		and	%o7,%o2,%o0
17317c478bdstevel@tonic-gate/* 0x0910	     */		and	%o5,%o1,%g3
17327c478bdstevel@tonic-gate/* 0x0914	     */		fdtox	%f0,%f0
17337c478bdstevel@tonic-gate/* 0x0918	     */		add	%o4,%o0,%o0
17347c478bdstevel@tonic-gate/* 0x091c	     */		std	%f0,[%sp+104]
17357c478bdstevel@tonic-gate/* 0x0920	     */		add	%i0,1,%i0
17367c478bdstevel@tonic-gate/* 0x0924	     */		sllx	%g3,16,%o4
17377c478bdstevel@tonic-gate/* 0x0928	     */		ldd	[%g2+24],%f2
17387c478bdstevel@tonic-gate/* 0x092c	     */		add	%g2,16,%g2
17397c478bdstevel@tonic-gate/* 0x0930	     */		add	%o0,%o4,%o4
17407c478bdstevel@tonic-gate/* 0x0934	     */		cmp	%i0,%g4
17417c478bdstevel@tonic-gate/* 0x0938	     */		srax	%o5,16,%o0
17427c478bdstevel@tonic-gate/* 0x093c	     */		stx	%o0,[%sp+112]
17437c478bdstevel@tonic-gate/* 0x0940	     */		and	%o4,%o2,%g3
17447c478bdstevel@tonic-gate/* 0x0944	     */		srax	%o4,32,%o5
17457c478bdstevel@tonic-gate/* 0x0948	     */		fdtox	%f2,%f0
17467c478bdstevel@tonic-gate/* 0x094c	     */		std	%f0,[%sp+96]
17477c478bdstevel@tonic-gate/* 0x0950	     */		srax	%o7,32,%o4
17487c478bdstevel@tonic-gate/* 0x0954	     */		ldx	[%sp+112],%o7
17497c478bdstevel@tonic-gate/* 0x0958	     */		add	%o7,%o5,%o7
17507c478bdstevel@tonic-gate/* 0x095c	     */		ldx	[%sp+104],%o5
17517c478bdstevel@tonic-gate/* 0x0960	     */		add	%o4,%o7,%o4
17527c478bdstevel@tonic-gate/* 0x0964	     */		ldx	[%sp+96],%o0
17537c478bdstevel@tonic-gate/* 0x0968	     */		st	%g3,[%g5]
17547c478bdstevel@tonic-gate/* 0x096c	     */		or	%g0,%o5,%o7
17557c478bdstevel@tonic-gate/* 0x0970	     */		add	%g5,4,%g5
17567c478bdstevel@tonic-gate/* 0x0974	     */		or	%g0,%o0,%o5
17577c478bdstevel@tonic-gate/* 0x0978	     */		ble,a,pt	%icc,.L900000648
17587c478bdstevel@tonic-gate/* 0x097c	     */		ldd	[%g2+16],%f0
17597c478bdstevel@tonic-gate                       .L77000236:
17607c478bdstevel@tonic-gate/* 0x0980	     */		sethi	%hi(0xfc00),%g2
17617c478bdstevel@tonic-gate                       .L900000649:
17627c478bdstevel@tonic-gate/* 0x0984	     */		or	%g0,-1,%o0
17637c478bdstevel@tonic-gate/* 0x0988	     */		add	%g2,1023,%g2
17647c478bdstevel@tonic-gate/* 0x098c	     */		ld	[%fp+88],%o1
17657c478bdstevel@tonic-gate/* 0x0990	     */		srl	%o0,0,%g3
17667c478bdstevel@tonic-gate/* 0x0994	     */		and	%o5,%g2,%g2
17677c478bdstevel@tonic-gate/* 0x0998	     */		and	%o7,%g3,%g4
17687c478bdstevel@tonic-gate/* 0x099c	     */		sllx	%g2,16,%g2
17697c478bdstevel@tonic-gate/* 0x09a0	     */		add	%o4,%g4,%g4
17707c478bdstevel@tonic-gate/* 0x09a4	     */		add	%g4,%g2,%g2
17717c478bdstevel@tonic-gate/* 0x09a8	     */		sll	%i0,2,%g4
17727c478bdstevel@tonic-gate/* 0x09ac	     */		and	%g2,%g3,%g2
17737c478bdstevel@tonic-gate/* 0x09b0	     */		st	%g2,[%o3+%g4]
17747c478bdstevel@tonic-gate/* 0x09b4	 281 */		sll	%g1,2,%g2
17757c478bdstevel@tonic-gate/* 0x09b8	     */		ld	[%o3+%g2],%g2
17767c478bdstevel@tonic-gate/* 0x09bc	     */		cmp	%g2,0
17777c478bdstevel@tonic-gate/* 0x09c0	     */		bleu,pn	%icc,.L77000241
17787c478bdstevel@tonic-gate/* 0x09c4	     */		or	%g0,-1,%o5
17797c478bdstevel@tonic-gate/* 0x09c8	     */		ba	.L900000647
17807c478bdstevel@tonic-gate/* 0x09cc	     */		cmp	%o5,0
17817c478bdstevel@tonic-gate                       .L77000241:
17827c478bdstevel@tonic-gate/* 0x09d0	     */		subcc	%g1,1,%o5
17837c478bdstevel@tonic-gate/* 0x09d4	     */		bneg,pt	%icc,.L900000647
17847c478bdstevel@tonic-gate/* 0x09d8	     */		cmp	%o5,0
17857c478bdstevel@tonic-gate/* 0x09dc	     */		sll	%o5,2,%g2
17867c478bdstevel@tonic-gate/* 0x09e0	     */		add	%o1,%g2,%o0
17877c478bdstevel@tonic-gate/* 0x09e4	     */		add	%o3,%g2,%o4
17887c478bdstevel@tonic-gate/* 0x09e8	     */		ld	[%o0],%g2
17897c478bdstevel@tonic-gate                       .L900000646:
17907c478bdstevel@tonic-gate/* 0x09ec	     */		ld	[%o4],%g3
17917c478bdstevel@tonic-gate/* 0x09f0	     */		sub	%o0,4,%o0
17927c478bdstevel@tonic-gate/* 0x09f4	     */		sub	%o4,4,%o4
17937c478bdstevel@tonic-gate/* 0x09f8	     */		cmp	%g3,%g2
17947c478bdstevel@tonic-gate/* 0x09fc	     */		bne,pn	%icc,.L77000244
17957c478bdstevel@tonic-gate/* 0x0a00	     */		nop
17967c478bdstevel@tonic-gate/* 0x0a04	     */		subcc	%o5,1,%o5
17977c478bdstevel@tonic-gate/* 0x0a08	     */		bpos,a,pt	%icc,.L900000646
17987c478bdstevel@tonic-gate/* 0x0a0c	     */		ld	[%o0],%g2
17997c478bdstevel@tonic-gate                       .L77000244:
18007c478bdstevel@tonic-gate/* 0x0a10	     */		cmp	%o5,0
18017c478bdstevel@tonic-gate                       .L900000647:
18027c478bdstevel@tonic-gate/* 0x0a14	     */		bl,pn	%icc,.L77000287
18037c478bdstevel@tonic-gate/* 0x0a18	     */		sll	%o5,2,%g2
18047c478bdstevel@tonic-gate/* 0x0a1c	     */		ld	[%o1+%g2],%g3
18057c478bdstevel@tonic-gate/* 0x0a20	     */		ld	[%o3+%g2],%g2
18067c478bdstevel@tonic-gate/* 0x0a24	     */		cmp	%g2,%g3
18077c478bdstevel@tonic-gate/* 0x0a28	     */		bleu,pt	%icc,.L77000224
18087c478bdstevel@tonic-gate/* 0x0a2c	     */		nop
18097c478bdstevel@tonic-gate                       .L77000287:
18107c478bdstevel@tonic-gate/* 0x0a30	     */		cmp	%g1,0
18117c478bdstevel@tonic-gate/* 0x0a34	     */		ble,pt	%icc,.L77000224
18127c478bdstevel@tonic-gate/* 0x0a38	     */		nop
18137c478bdstevel@tonic-gate/* 0x0a3c	 281 */		sub	%g1,1,%o7
18147c478bdstevel@tonic-gate/* 0x0a40	     */		or	%g0,-1,%g2
18157c478bdstevel@tonic-gate/* 0x0a44	     */		srl	%g2,0,%o4
18167c478bdstevel@tonic-gate/* 0x0a48	     */		add	%o7,1,%o0
18177c478bdstevel@tonic-gate/* 0x0a4c	     */		or	%g0,%o1,%o2
18187c478bdstevel@tonic-gate/* 0x0a50	 279 */		or	%g0,0,%o5
18197c478bdstevel@tonic-gate/* 0x0a54	     */		or	%g0,0,%g1
18207c478bdstevel@tonic-gate/* 0x0a58	     */		cmp	%o0,3
18217c478bdstevel@tonic-gate/* 0x0a5c	     */		add	%o1,4,%o0
18227c478bdstevel@tonic-gate/* 0x0a60	     */		bl,pn	%icc,.L77000288
18237c478bdstevel@tonic-gate/* 0x0a64	     */		add	%o3,8,%o1
18247c478bdstevel@tonic-gate/* 0x0a68	     */		ld	[%o0-4],%g3
18257c478bdstevel@tonic-gate/* 0x0a6c	   0 */		or	%g0,%o1,%o3
18267c478bdstevel@tonic-gate/* 0x0a70	     */		or	%g0,%o0,%o2
18277c478bdstevel@tonic-gate/* 0x0a74	 279 */		ld	[%o1-8],%g2
18287c478bdstevel@tonic-gate/* 0x0a78	     */		or	%g0,2,%g1
18297c478bdstevel@tonic-gate/* 0x0a7c	     */		ld	[%o3-4],%o0
18307c478bdstevel@tonic-gate/* 0x0a80	     */		sub	%g2,%g3,%g2
18317c478bdstevel@tonic-gate/* 0x0a84	     */		or	%g0,%g2,%o5
18327c478bdstevel@tonic-gate/* 0x0a88	     */		and	%g2,%o4,%g2
18337c478bdstevel@tonic-gate/* 0x0a8c	     */		st	%g2,[%o3-8]
18347c478bdstevel@tonic-gate/* 0x0a90	     */		srax	%o5,32,%o5
18357c478bdstevel@tonic-gate                       .L900000636:
18367c478bdstevel@tonic-gate/* 0x0a94	     */		ld	[%o2],%g2
18377c478bdstevel@tonic-gate/* 0x0a98	     */		add	%g1,1,%g1
18387c478bdstevel@tonic-gate/* 0x0a9c	     */		add	%o2,4,%o2
18397c478bdstevel@tonic-gate/* 0x0aa0	     */		cmp	%g1,%o7
18407c478bdstevel@tonic-gate/* 0x0aa4	     */		add	%o3,4,%o3
18417c478bdstevel@tonic-gate/* 0x0aa8	     */		sub	%o0,%g2,%o0
18427c478bdstevel@tonic-gate/* 0x0aac	     */		add	%o0,%o5,%o5
18437c478bdstevel@tonic-gate/* 0x0ab0	     */		and	%o5,%o4,%g2
18447c478bdstevel@tonic-gate/* 0x0ab4	     */		ld	[%o3-4],%o0
18457c478bdstevel@tonic-gate/* 0x0ab8	     */		st	%g2,[%o3-8]
18467c478bdstevel@tonic-gate/* 0x0abc	     */		ble,pt	%icc,.L900000636
18477c478bdstevel@tonic-gate/* 0x0ac0	     */		srax	%o5,32,%o5
18487c478bdstevel@tonic-gate                       .L900000639:
18497c478bdstevel@tonic-gate/* 0x0ac4	     */		ld	[%o2],%o1
18507c478bdstevel@tonic-gate/* 0x0ac8	     */		sub	%o0,%o1,%o0
18517c478bdstevel@tonic-gate/* 0x0acc	     */		add	%o0,%o5,%o0
18527c478bdstevel@tonic-gate/* 0x0ad0	     */		and	%o0,%o4,%o1
18537c478bdstevel@tonic-gate/* 0x0ad4	     */		st	%o1,[%o3-4]
18547c478bdstevel@tonic-gate/* 0x0ad8	     */		ret	! Result =
18557c478bdstevel@tonic-gate/* 0x0adc	     */		restore	%g0,%g0,%g0
18567c478bdstevel@tonic-gate                       .L77000288:
18577c478bdstevel@tonic-gate/* 0x0ae0	     */		ld	[%o3],%o0
18587c478bdstevel@tonic-gate                       .L900000645:
18597c478bdstevel@tonic-gate/* 0x0ae4	     */		ld	[%o2],%o1
18607c478bdstevel@tonic-gate/* 0x0ae8	     */		add	%o5,%o0,%o0
18617c478bdstevel@tonic-gate/* 0x0aec	     */		add	%g1,1,%g1
18627c478bdstevel@tonic-gate/* 0x0af0	     */		add	%o2,4,%o2
18637c478bdstevel@tonic-gate/* 0x0af4	     */		cmp	%g1,%o7
18647c478bdstevel@tonic-gate/* 0x0af8	     */		sub	%o0,%o1,%o0
18657c478bdstevel@tonic-gate/* 0x0afc	     */		and	%o0,%o4,%o1
18667c478bdstevel@tonic-gate/* 0x0b00	     */		st	%o1,[%o3]
18677c478bdstevel@tonic-gate/* 0x0b04	     */		add	%o3,4,%o3
18687c478bdstevel@tonic-gate/* 0x0b08	     */		srax	%o0,32,%o5
18697c478bdstevel@tonic-gate/* 0x0b0c	     */		ble,a,pt	%icc,.L900000645
18707c478bdstevel@tonic-gate/* 0x0b10	     */		ld	[%o3],%o0
18717c478bdstevel@tonic-gate                       .L77000224:
18727c478bdstevel@tonic-gate/* 0x0b14	     */		ret	! Result =
18737c478bdstevel@tonic-gate/* 0x0b18	     */		restore	%g0,%g0,%g0
18747c478bdstevel@tonic-gate/* 0x0b1c	   0 */		.type	mont_mulf_noconv,2
18757c478bdstevel@tonic-gate/* 0x0b1c	     */		.size	mont_mulf_noconv,(.-mont_mulf_noconv)
18767c478bdstevel@tonic-gate
18777c478bdstevel@tonic-gate! Begin Disassembling Stabs
18787c478bdstevel@tonic-gate	.xstabs	".stab.index","Xa ; O ; P ; V=3.1 ; R=WorkShop Compilers 5.0 99/02/25 C 5.0 patch 107289-01",60,0,0,0	! (/tmp/acompAAAhNaOly:1)
18797c478bdstevel@tonic-gate	.xstabs	".stab.index","/home/ferenc/venus/userland/rsa; /usr/dist/pkgs/devpro,v5.0/5.x-sparc/SC5.0/bin/cc -fast -xarch=v8plus -xO5 -xstrconst -xdepend -Xa -xchip=ultra2 -KPIC -Wc,-Qrm-Qd -Wc,-Qrm-Qf -Wc,-assembly -V -c proba.il -o mont_mulf.o  mont_mulf.c -W0,-xp",52,0,0,0	! (/tmp/acompAAAhNaOly:2)
18807c478bdstevel@tonic-gate! End Disassembling Stabs
18817c478bdstevel@tonic-gate
18827c478bdstevel@tonic-gate! Begin Disassembling Ident
18837c478bdstevel@tonic-gate	.ident	"cg: WorkShop Compilers 5.0 99/04/15 Compiler Common 5.0 Patch 107357-02"	! (NO SOURCE LINE)
18847c478bdstevel@tonic-gate	.ident	"acomp: WorkShop Compilers 5.0 99/02/25 C 5.0 patch 107289-01"	! (/tmp/acompAAAhNaOly:31)
18857c478bdstevel@tonic-gate! End Disassembling Ident
1886