!  
! ***** BEGIN LICENSE BLOCK *****
! Version: MPL 1.1/GPL 2.0/LGPL 2.1
!
! The contents of this file are subject to the Mozilla Public License Version
! 1.1 (the "License"); you may not use this file except in compliance with
! the License. You may obtain a copy of the License at
! http://www.mozilla.org/MPL/
!
! Software distributed under the License is distributed on an "AS IS" basis,
! WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
! for the specific language governing rights and limitations under the
! License.
!
! The Original Code is SPARC hand-optimized Montgomery multiply functions.
!
! The Initial Developer of the Original Code is
! Sun Microsystems Inc.
! Portions created by the Initial Developer are Copyright (C) 1999-2000
! the Initial Developer. All Rights Reserved.
!
! Contributor(s):
!
! Alternatively, the contents of this file may be used under the terms of
! either the GNU General Public License Version 2 or later (the "GPL"), or
! the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
! in which case the provisions of the GPL or the LGPL are applicable instead
! of those above. If you wish to allow use of your version of this file only
! under the terms of either the GPL or the LGPL, and not to allow others to
! use your version of this file under the terms of the MPL, indicate your
! decision by deleting the provisions above and replace them with the notice
! and other provisions required by the GPL or the LGPL. If you do not delete
! the provisions above, a recipient may use your version of this file under
! the terms of any one of the MPL, the GPL or the LGPL.
!
! ***** END LICENSE BLOCK *****

	.section	".text",#alloc,#execinstr
	.file	"montmulf.c"

	.section	".rodata",#alloc
	.global	TwoTo16
	.align	8
!
! CONSTANT POOL
!
	.global TwoTo16
TwoTo16:
	.word	1089470464
	.word	0
	.type	TwoTo16,#object
	.size	TwoTo16,8
	.global	TwoToMinus16
!
! CONSTANT POOL
!
	.global TwoToMinus16
TwoToMinus16:
	.word	1055916032
	.word	0
	.type	TwoToMinus16,#object
	.size	TwoToMinus16,8
	.global	Zero
!
! CONSTANT POOL
!
	.global Zero
Zero:
	.word	0
	.word	0
	.type	Zero,#object
	.size	Zero,8
	.global	TwoTo32
!
! CONSTANT POOL
!
	.global TwoTo32
TwoTo32:
	.word	1106247680
	.word	0
	.type	TwoTo32,#object
	.size	TwoTo32,8
	.global	TwoToMinus32
!
! CONSTANT POOL
!
	.global TwoToMinus32
TwoToMinus32:
	.word	1039138816
	.word	0
	.type	TwoToMinus32,#object
	.size	TwoToMinus32,8

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.register	%g3,#scratch
/* 000000	     */		.register	%g2,#scratch
/* 000000	   0 */		.align	8
!
! SUBROUTINE conv_d16_to_i32
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global conv_d16_to_i32
                       conv_d16_to_i32:
/* 000000	     */		save	%sp,-208,%sp
! FILE montmulf.c

!    1		      !/*
!    2		      ! * The contents of this file are subject to the Mozilla Public
!    3		      ! * License Version 1.1 (the "License"); you may not use this file
!    4		      ! * except in compliance with the License. You may obtain a copy of
!    5		      ! * the License at http://www.mozilla.org/MPL/
!    6		      ! * 
!    7		      ! * Software distributed under the License is distributed on an "AS
!    8		      ! * IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
!    9		      ! * implied. See the License for the specific language governing
!   10		      ! * rights and limitations under the License.
!   11		      ! * 
!   12		      ! * The Original Code is SPARC optimized Montgomery multiply functions.
!   13		      ! *
!   14		      ! * The Initial Developer of the Original Code is Sun Microsystems Inc.
!   15		      ! * Portions created by Sun Microsystems Inc. are 
!   16		      ! * Copyright (C) 1999-2000 Sun Microsystems Inc.  All Rights Reserved.
!   17		      ! * 
!   18		      ! * Contributor(s):
!   19		      ! *	Netscape Communications Corporation
!   20		      ! * 
!   21		      ! * Alternatively, the contents of this file may be used under the
!   22		      ! * terms of the GNU General Public License Version 2 or later (the
!   23		      ! * "GPL"), in which case the provisions of the GPL are applicable 
!   24		      ! * instead of those above.	If you wish to allow use of your 
!   25		      ! * version of this file only under the terms of the GPL and not to
!   26		      ! * allow others to use your version of this file under the MPL,
!   27		      ! * indicate your decision by deleting the provisions above and
!   28		      ! * replace them with the notice and other provisions required by
!   29		      ! * the GPL.  If you do not delete the provisions above, a recipient
!   30		      ! * may use your version of this file under either the MPL or the
!   31		      ! * GPL.
!   32		      ! *
!   33		      ! *  $Id: montmulfv9.s,v 1.5 2006/12/11 09:45:32 gerv%gerv.net Exp $
!   34		      ! */
!   36		      !#define RF_INLINE_MACROS
!   38		      !static const double TwoTo16=65536.0;
!   39		      !static const double TwoToMinus16=1.0/65536.0;
!   40		      !static const double Zero=0.0;
!   41		      !static const double TwoTo32=65536.0*65536.0;
!   42		      !static const double TwoToMinus32=1.0/(65536.0*65536.0);
!   44		      !#ifdef RF_INLINE_MACROS
!   46		      !double upper32(double);
!   47		      !double lower32(double, double);
!   48		      !double mod(double, double, double);
!   50		      !void i16_to_d16_and_d32x4(const double * /*1/(2^16)*/, 
!   51		      !			  const double * /* 2^16*/,
!   52		      !			  const double * /* 0 */,
!   53		      !			  double *       /*result16*/, 
!   54		      !			  double *       /* result32 */,
!   55		      !			  float *  /*source - should be unsigned int*
!   56		      !		          	       converted to float* */);
!   58		      !#else
!   60		      !static double upper32(double x)
!   61		      !{
!   62		      !  return floor(x*TwoToMinus32);
!   63		      !}
!   65		      !static double lower32(double x, double y)
!   66		      !{
!   67		      !  return x-TwoTo32*floor(x*TwoToMinus32);
!   68		      !}
!   70		      !static double mod(double x, double oneoverm, double m)
!   71		      !{
!   72		      !  return x-m*floor(x*oneoverm);
!   73		      !}
!   75		      !#endif
!   78		      !static void cleanup(double *dt, int from, int tlen)
!   79		      !{
!   80		      ! int i;
!   81		      ! double tmp,tmp1,x,x1;
!   83		      ! tmp=tmp1=Zero;
!   84		      ! /* original code **
!   85		      ! for(i=2*from;i<2*tlen-2;i++)
!   86		      !   {
!   87		      !     x=dt[i];
!   88		      !     dt[i]=lower32(x,Zero)+tmp1;
!   89		      !     tmp1=tmp;
!   90		      !     tmp=upper32(x);
!   91		      !   }
!   92		      ! dt[tlen-2]+=tmp1;
!   93		      ! dt[tlen-1]+=tmp;
!   94		      ! **end original code ***/
!   95		      ! /* new code ***/
!   96		      ! for(i=2*from;i<2*tlen;i+=2)
!   97		      !   {
!   98		      !     x=dt[i];
!   99		      !     x1=dt[i+1];
!  100		      !     dt[i]=lower32(x,Zero)+tmp;
!  101		      !     dt[i+1]=lower32(x1,Zero)+tmp1;
!  102		      !     tmp=upper32(x);
!  103		      !     tmp1=upper32(x1);
!  104		      !   }
!  105		      !  /** end new code **/
!  106		      !}
!  109		      !void conv_d16_to_i32(unsigned int *i32, double *d16, long long *tmp, int ilen)
!  110		      !{
!  111		      !int i;
!  112		      !long long t, t1, a, b, c, d;
!  114		      ! t1=0;
!  115		      ! a=(long long)d16[0];

/* 0x0004	 115 */		ldd	[%i1],%f2

!  116		      ! b=(long long)d16[1];
!  117		      ! for(i=0; i<ilen-1; i++)

/* 0x0008	 117 */		sub	%i3,1,%o1
/* 0x000c	 110 */		or	%g0,%i0,%g1
/* 0x0010	 116 */		ldd	[%i1+8],%f4
/* 0x0014	 117 */		cmp	%o1,0
/* 0x0018	 114 */		or	%g0,0,%g5
/* 0x001c	 115 */		fdtox	%f2,%f2
/* 0x0020	     */		std	%f2,[%sp+2247]
/* 0x0024	 117 */		or	%g0,0,%o0
/* 0x0028	 116 */		fdtox	%f4,%f2
/* 0x002c	     */		std	%f2,[%sp+2239]
/* 0x0030	 110 */		sub	%o1,1,%o7
/* 0x0034	     */		or	%g0,%i1,%o4
/* 0x0038	     */		sethi	%hi(0xfc00),%o3
/* 0x003c	     */		or	%g0,-1,%o1
/* 0x0040	     */		or	%g0,2,%i1
/* 0x0044	     */		srl	%o1,0,%g3
/* 0x0048	     */		or	%g0,%o4,%g4
/* 0x004c	 116 */		ldx	[%sp+2239],%i2
/* 0x0050	     */		add	%o3,1023,%o5
/* 0x0054	 117 */		sub	%o7,1,%o2
/* 0x0058	 115 */		ldx	[%sp+2247],%i3
/* 0x005c	 117 */		ble,pt	%icc,.L900000113
/* 0x0060	     */		sethi	%hi(0xfc00),%g2
/* 0x0064	     */		add	%o7,1,%g2

!  118		      !   {
!  119		      !     c=(long long)d16[2*i+2];
!  120		      !     t1+=a&0xffffffff;
!  121		      !     t=(a>>32);
!  122		      !     d=(long long)d16[2*i+3];
!  123		      !     t1+=(b&0xffff)<<16;

/* 0x0068	 123 */		and	%i2,%o5,%i4
/* 0x006c	     */		sllx	%i4,16,%o1
/* 0x0070	 117 */		cmp	%g2,6
/* 0x0074	     */		bl,pn	%icc,.L77000134
/* 0x0078	     */		or	%g0,3,%i0
/* 0x007c	 119 */		ldd	[%o4+16],%f0
/* 0x0080	 120 */		and	%i3,%g3,%o3

!  124		      !     t+=(b>>16)+(t1>>32);

/* 0x0084	 124 */		srax	%i2,16,%i5
/* 0x0088	 117 */		add	%o3,%o1,%i4
/* 0x008c	 121 */		srax	%i3,32,%i3
/* 0x0090	 119 */		fdtox	%f0,%f0
/* 0x0094	     */		std	%f0,[%sp+2231]

!  125		      !     i32[i]=t1&0xffffffff;

/* 0x0098	 125 */		and	%i4,%g3,%l0
/* 0x009c	 117 */		or	%g0,72,%o3
/* 0x00a0	 122 */		ldd	[%g4+24],%f0
/* 0x00a4	 117 */		or	%g0,64,%o4
/* 0x00a8	     */		or	%g0,4,%o1

!  126		      !     t1=t;
!  127		      !     a=c;
!  128		      !     b=d;

/* 0x00ac	 128 */		or	%g0,5,%i0
/* 0x00b0	     */		or	%g0,4,%i1
/* 0x00b4	 119 */		ldx	[%sp+2231],%g2
/* 0x00b8	 122 */		fdtox	%f0,%f0
/* 0x00bc	 128 */		or	%g0,4,%o0
/* 0x00c0	 122 */		std	%f0,[%sp+2223]
/* 0x00c4	     */		ldd	[%g4+40],%f2
/* 0x00c8	 120 */		and	%g2,%g3,%i2
/* 0x00cc	 119 */		ldd	[%g4+32],%f0
/* 0x00d0	 121 */		srax	%g2,32,%g2
/* 0x00d4	 122 */		ldd	[%g4+56],%f4
/* 0x00d8	     */		fdtox	%f2,%f2
/* 0x00dc	     */		ldx	[%sp+2223],%g5
/* 0x00e0	 119 */		fdtox	%f0,%f0
/* 0x00e4	 125 */		st	%l0,[%g1]
/* 0x00e8	 124 */		srax	%i4,32,%l0
/* 0x00ec	 122 */		fdtox	%f4,%f4
/* 0x00f0	     */		std	%f2,[%sp+2223]
/* 0x00f4	 123 */		and	%g5,%o5,%i4
/* 0x00f8	 124 */		add	%i5,%l0,%i5
/* 0x00fc	 119 */		std	%f0,[%sp+2231]
/* 0x0100	 123 */		sllx	%i4,16,%i4
/* 0x0104	 124 */		add	%i3,%i5,%i3
/* 0x0108	 119 */		ldd	[%g4+48],%f2
/* 0x010c	 124 */		srax	%g5,16,%g5
/* 0x0110	 117 */		add	%i2,%i4,%i2
/* 0x0114	 122 */		ldd	[%g4+72],%f0
/* 0x0118	 117 */		add	%i2,%i3,%i4
/* 0x011c	 124 */		srax	%i4,32,%i5
/* 0x0120	 119 */		fdtox	%f2,%f2
/* 0x0124	 125 */		and	%i4,%g3,%i4
/* 0x0128	 122 */		ldx	[%sp+2223],%i2
/* 0x012c	 124 */		add	%g5,%i5,%g5
/* 0x0130	 119 */		ldx	[%sp+2231],%i3
/* 0x0134	 124 */		add	%g2,%g5,%g5
/* 0x0138	 119 */		std	%f2,[%sp+2231]
/* 0x013c	 122 */		std	%f4,[%sp+2223]
/* 0x0140	 119 */		ldd	[%g4+64],%f2
/* 0x0144	 125 */		st	%i4,[%g1+4]
                       .L900000108:
/* 0x0148	 122 */		ldx	[%sp+2223],%i4
/* 0x014c	 128 */		add	%o0,2,%o0
/* 0x0150	     */		add	%i0,4,%i0
/* 0x0154	 119 */		ldx	[%sp+2231],%l0
/* 0x0158	 117 */		add	%o3,16,%o3
/* 0x015c	 123 */		and	%i2,%o5,%g2
/* 0x0160	     */		sllx	%g2,16,%i5
/* 0x0164	 120 */		and	%i3,%g3,%g2
/* 0x0168	 122 */		ldd	[%g4+%o3],%f4
/* 0x016c	     */		fdtox	%f0,%f0
/* 0x0170	     */		std	%f0,[%sp+2223]
/* 0x0174	 124 */		srax	%i2,16,%i2
/* 0x0178	 117 */		add	%g2,%i5,%g2
/* 0x017c	 119 */		fdtox	%f2,%f0
/* 0x0180	 117 */		add	%o4,16,%o4
/* 0x0184	 119 */		std	%f0,[%sp+2231]
/* 0x0188	 117 */		add	%g2,%g5,%g2
/* 0x018c	 119 */		ldd	[%g4+%o4],%f2
/* 0x0190	 124 */		srax	%g2,32,%i5
/* 0x0194	 128 */		cmp	%o0,%o2
/* 0x0198	 121 */		srax	%i3,32,%g5
/* 0x019c	 124 */		add	%i2,%i5,%i2
/* 0x01a0	     */		add	%g5,%i2,%i5
/* 0x01a4	 117 */		add	%o1,4,%o1
/* 0x01a8	 125 */		and	%g2,%g3,%g2
/* 0x01ac	 127 */		or	%g0,%l0,%g5
/* 0x01b0	 125 */		st	%g2,[%g1+%o1]
/* 0x01b4	 128 */		add	%i1,4,%i1
/* 0x01b8	 122 */		ldx	[%sp+2223],%i2
/* 0x01bc	 119 */		ldx	[%sp+2231],%i3
/* 0x01c0	 117 */		add	%o3,16,%o3
/* 0x01c4	 123 */		and	%i4,%o5,%g2
/* 0x01c8	     */		sllx	%g2,16,%l0
/* 0x01cc	 120 */		and	%g5,%g3,%g2
/* 0x01d0	 122 */		ldd	[%g4+%o3],%f0
/* 0x01d4	     */		fdtox	%f4,%f4
/* 0x01d8	     */		std	%f4,[%sp+2223]
/* 0x01dc	 124 */		srax	%i4,16,%i4
/* 0x01e0	 117 */		add	%g2,%l0,%g2
/* 0x01e4	 119 */		fdtox	%f2,%f2
/* 0x01e8	 117 */		add	%o4,16,%o4
/* 0x01ec	 119 */		std	%f2,[%sp+2231]
/* 0x01f0	 117 */		add	%g2,%i5,%g2
/* 0x01f4	 119 */		ldd	[%g4+%o4],%f2
/* 0x01f8	 124 */		srax	%g2,32,%i5
/* 0x01fc	 121 */		srax	%g5,32,%g5
/* 0x0200	 124 */		add	%i4,%i5,%i4
/* 0x0204	     */		add	%g5,%i4,%g5
/* 0x0208	 117 */		add	%o1,4,%o1
/* 0x020c	 125 */		and	%g2,%g3,%g2
/* 0x0210	 128 */		ble,pt	%icc,.L900000108
/* 0x0214	     */		st	%g2,[%g1+%o1]
                       .L900000111:
/* 0x0218	 122 */		ldx	[%sp+2223],%o2
/* 0x021c	 123 */		and	%i2,%o5,%i4
/* 0x0220	 120 */		and	%i3,%g3,%g2
/* 0x0224	 123 */		sllx	%i4,16,%i4
/* 0x0228	 119 */		ldx	[%sp+2231],%i5
/* 0x022c	 128 */		cmp	%o0,%o7
/* 0x0230	 124 */		srax	%i2,16,%i2
/* 0x0234	 117 */		add	%g2,%i4,%g2
/* 0x0238	 122 */		fdtox	%f0,%f4
/* 0x023c	     */		std	%f4,[%sp+2223]
/* 0x0240	 117 */		add	%g2,%g5,%g5
/* 0x0244	 123 */		and	%o2,%o5,%l0
/* 0x0248	 124 */		srax	%g5,32,%l1
/* 0x024c	 120 */		and	%i5,%g3,%i4
/* 0x0250	 119 */		fdtox	%f2,%f0
/* 0x0254	 121 */		srax	%i3,32,%g2
/* 0x0258	 119 */		std	%f0,[%sp+2231]
/* 0x025c	 124 */		add	%i2,%l1,%i2
/* 0x0260	 123 */		sllx	%l0,16,%i3
/* 0x0264	 124 */		add	%g2,%i2,%i2
/* 0x0268	     */		srax	%o2,16,%o2
/* 0x026c	 117 */		add	%o1,4,%g2
/* 0x0270	     */		add	%i4,%i3,%o1
/* 0x0274	 125 */		and	%g5,%g3,%g5
/* 0x0278	     */		st	%g5,[%g1+%g2]
/* 0x027c	 119 */		ldx	[%sp+2231],%i3
/* 0x0280	 117 */		add	%o1,%i2,%o1
/* 0x0284	     */		add	%g2,4,%g2
/* 0x0288	 124 */		srax	%o1,32,%i4
/* 0x028c	 122 */		ldx	[%sp+2223],%i2
/* 0x0290	 125 */		and	%o1,%g3,%g5
/* 0x0294	 121 */		srax	%i5,32,%o1
/* 0x0298	 124 */		add	%o2,%i4,%o2
/* 0x029c	 125 */		st	%g5,[%g1+%g2]
/* 0x02a0	 128 */		bg,pn	%icc,.L77000127
/* 0x02a4	     */		add	%o1,%o2,%g5
/* 0x02a8	     */		add	%i0,6,%i0
/* 0x02ac	     */		add	%i1,6,%i1
                       .L77000134:
/* 0x02b0	 119 */		sra	%i1,0,%o2
                       .L900000112:
/* 0x02b4	 119 */		sllx	%o2,3,%o3
/* 0x02b8	 120 */		and	%i3,%g3,%o1
/* 0x02bc	 119 */		ldd	[%g4+%o3],%f0
/* 0x02c0	 122 */		sra	%i0,0,%o3
/* 0x02c4	 123 */		and	%i2,%o5,%o2
/* 0x02c8	 122 */		sllx	%o3,3,%o3
/* 0x02cc	 120 */		add	%g5,%o1,%o1
/* 0x02d0	 119 */		fdtox	%f0,%f0
/* 0x02d4	     */		std	%f0,[%sp+2231]
/* 0x02d8	 123 */		sllx	%o2,16,%o2
/* 0x02dc	     */		add	%o1,%o2,%o2
/* 0x02e0	 128 */		add	%i1,2,%i1
/* 0x02e4	 122 */		ldd	[%g4+%o3],%f0
/* 0x02e8	 124 */		srax	%o2,32,%g2
/* 0x02ec	 125 */		and	%o2,%g3,%o3
/* 0x02f0	 124 */		srax	%i2,16,%o1
/* 0x02f4	 128 */		add	%i0,2,%i0
/* 0x02f8	 122 */		fdtox	%f0,%f0
/* 0x02fc	     */		std	%f0,[%sp+2223]
/* 0x0300	 125 */		sra	%o0,0,%o2
/* 0x0304	     */		sllx	%o2,2,%o2
/* 0x0308	 124 */		add	%o1,%g2,%g5
/* 0x030c	 121 */		srax	%i3,32,%g2
/* 0x0310	 128 */		add	%o0,1,%o0
/* 0x0314	 124 */		add	%g2,%g5,%g5
/* 0x0318	 128 */		cmp	%o0,%o7
/* 0x031c	 119 */		ldx	[%sp+2231],%o4
/* 0x0320	 122 */		ldx	[%sp+2223],%i2
/* 0x0324	 125 */		st	%o3,[%g1+%o2]
/* 0x0328	 127 */		or	%g0,%o4,%i3
/* 0x032c	 128 */		ble,pt	%icc,.L900000112
/* 0x0330	     */		sra	%i1,0,%o2
                       .L77000127:

!  129		      !   }
!  130		      !     t1+=a&0xffffffff;
!  131		      !     t=(a>>32);
!  132		      !     t1+=(b&0xffff)<<16;
!  133		      !     i32[i]=t1&0xffffffff;

/* 0x0334	 133 */		sethi	%hi(0xfc00),%g2
                       .L900000113:
/* 0x0338	 133 */		or	%g0,-1,%g3
/* 0x033c	     */		add	%g2,1023,%g2
/* 0x0340	     */		srl	%g3,0,%g3
/* 0x0344	     */		and	%i2,%g2,%g2
/* 0x0348	     */		and	%i3,%g3,%g4
/* 0x034c	     */		sllx	%g2,16,%g2
/* 0x0350	     */		add	%g5,%g4,%g4
/* 0x0354	     */		sra	%o0,0,%g5
/* 0x0358	     */		add	%g4,%g2,%g4
/* 0x035c	     */		sllx	%g5,2,%g2
/* 0x0360	     */		and	%g4,%g3,%g3
/* 0x0364	     */		st	%g3,[%g1+%g2]
/* 0x0368	     */		ret	! Result = 
/* 0x036c	     */		restore	%g0,%g0,%g0
/* 0x0370	   0 */		.type	conv_d16_to_i32,2
/* 0x0370	     */		.size	conv_d16_to_i32,(.-conv_d16_to_i32)

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.align	8
!
! CONSTANT POOL
!
                       .L_const_seg_900000201:
/* 000000	   0 */		.word	1127219200,0
/* 0x0008	   0 */		.align	8
/* 0x0008	     */		.skip	24
!
! SUBROUTINE conv_i32_to_d32
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global conv_i32_to_d32
                       conv_i32_to_d32:
/* 000000	     */		or	%g0,%o7,%g3

!  135		      !}
!  137		      !void conv_i32_to_d32(double *d32, unsigned int *i32, int len)
!  138		      !{
!  139		      !int i;
!  141		      !#pragma pipeloop(0)
!  142		      ! for(i=0;i<len;i++) d32[i]=(double)(i32[i]);

/* 0x0004	 142 */		cmp	%o2,0
                       .L900000210:
/* 0x0008	     */		call	.+8
/* 0x000c	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g4
/* 0x0010	 142 */		or	%g0,0,%o3
/* 0x0014	 138 */		add	%g4,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000210-.)),%g4
/* 0x0018	 142 */		sub	%o2,1,%o4
/* 0x001c	 138 */		add	%g4,%o7,%g1
/* 0x0020	 142 */		ble,pt	%icc,.L77000140
/* 0x0024	     */		or	%g0,%g3,%o7
/* 0x0028	     */		sethi	%hi(.L_const_seg_900000201),%g3
/* 0x002c	     */		cmp	%o2,12
/* 0x0030	     */		add	%g3,%lo(.L_const_seg_900000201),%g2
/* 0x0034	     */		or	%g0,%o1,%g5
/* 0x0038	     */		ldx	[%g1+%g2],%g4
/* 0x003c	     */		or	%g0,0,%g1
/* 0x0040	     */		or	%g0,24,%g2
/* 0x0044	     */		bl,pn	%icc,.L77000144
/* 0x0048	     */		or	%g0,0,%g3
/* 0x004c	     */		ld	[%o1],%f13
/* 0x0050	     */		or	%g0,7,%o3
/* 0x0054	     */		ldd	[%g4],%f8
/* 0x0058	     */		sub	%o2,5,%g3
/* 0x005c	     */		or	%g0,8,%g1
/* 0x0060	     */		ld	[%o1+4],%f11
/* 0x0064	     */		ld	[%o1+8],%f7
/* 0x0068	     */		fmovs	%f8,%f12
/* 0x006c	     */		ld	[%o1+12],%f5
/* 0x0070	     */		fmovs	%f8,%f10
/* 0x0074	     */		ld	[%o1+16],%f3
/* 0x0078	     */		fmovs	%f8,%f6
/* 0x007c	     */		ld	[%o1+20],%f1
/* 0x0080	     */		fsubd	%f12,%f8,%f12
/* 0x0084	     */		std	%f12,[%o0]
/* 0x0088	     */		fsubd	%f10,%f8,%f10
/* 0x008c	     */		std	%f10,[%o0+8]
                       .L900000205:
/* 0x0090	     */		ld	[%o1+%g2],%f11
/* 0x0094	     */		add	%g1,8,%g1
/* 0x0098	     */		add	%o3,5,%o3
/* 0x009c	     */		fsubd	%f6,%f8,%f6
/* 0x00a0	     */		add	%g2,4,%g2
/* 0x00a4	     */		std	%f6,[%o0+%g1]
/* 0x00a8	     */		cmp	%o3,%g3
/* 0x00ac	     */		fmovs	%f8,%f4
/* 0x00b0	     */		ld	[%o1+%g2],%f7
/* 0x00b4	     */		fsubd	%f4,%f8,%f12
/* 0x00b8	     */		add	%g1,8,%g1
/* 0x00bc	     */		add	%g2,4,%g2
/* 0x00c0	     */		fmovs	%f8,%f2
/* 0x00c4	     */		std	%f12,[%o0+%g1]
/* 0x00c8	     */		ld	[%o1+%g2],%f5
/* 0x00cc	     */		fsubd	%f2,%f8,%f12
/* 0x00d0	     */		add	%g1,8,%g1
/* 0x00d4	     */		add	%g2,4,%g2
/* 0x00d8	     */		fmovs	%f8,%f0
/* 0x00dc	     */		std	%f12,[%o0+%g1]
/* 0x00e0	     */		ld	[%o1+%g2],%f3
/* 0x00e4	     */		fsubd	%f0,%f8,%f12
/* 0x00e8	     */		add	%g1,8,%g1
/* 0x00ec	     */		add	%g2,4,%g2
/* 0x00f0	     */		fmovs	%f8,%f10
/* 0x00f4	     */		std	%f12,[%o0+%g1]
/* 0x00f8	     */		ld	[%o1+%g2],%f1
/* 0x00fc	     */		fsubd	%f10,%f8,%f10
/* 0x0100	     */		add	%g1,8,%g1
/* 0x0104	     */		add	%g2,4,%g2
/* 0x0108	     */		std	%f10,[%o0+%g1]
/* 0x010c	     */		ble,pt	%icc,.L900000205
/* 0x0110	     */		fmovs	%f8,%f6
                       .L900000208:
/* 0x0114	     */		fmovs	%f8,%f4
/* 0x0118	     */		ld	[%o1+%g2],%f11
/* 0x011c	     */		add	%g1,8,%g3
/* 0x0120	     */		fmovs	%f8,%f2
/* 0x0124	     */		add	%g1,16,%g1
/* 0x0128	     */		cmp	%o3,%o4
/* 0x012c	     */		fmovs	%f8,%f0
/* 0x0130	     */		add	%g1,8,%o1
/* 0x0134	     */		add	%g1,16,%o2
/* 0x0138	     */		fmovs	%f8,%f10
/* 0x013c	     */		add	%g1,24,%g2
/* 0x0140	     */		fsubd	%f6,%f8,%f6
/* 0x0144	     */		std	%f6,[%o0+%g3]
/* 0x0148	     */		fsubd	%f4,%f8,%f4
/* 0x014c	     */		std	%f4,[%o0+%g1]
/* 0x0150	     */		sra	%o3,0,%g1
/* 0x0154	     */		fsubd	%f2,%f8,%f2
/* 0x0158	     */		std	%f2,[%o0+%o1]
/* 0x015c	     */		sllx	%g1,2,%g3
/* 0x0160	     */		fsubd	%f0,%f8,%f0
/* 0x0164	     */		std	%f0,[%o0+%o2]
/* 0x0168	     */		fsubd	%f10,%f8,%f0
/* 0x016c	     */		bg,pn	%icc,.L77000140
/* 0x0170	     */		std	%f0,[%o0+%g2]
                       .L77000144:
/* 0x0174	     */		ldd	[%g4],%f8
                       .L900000211:
/* 0x0178	     */		ld	[%g5+%g3],%f13
/* 0x017c	     */		sllx	%g1,3,%g2
/* 0x0180	     */		add	%o3,1,%o3
/* 0x0184	     */		sra	%o3,0,%g1
/* 0x0188	     */		cmp	%o3,%o4
/* 0x018c	     */		fmovs	%f8,%f12
/* 0x0190	     */		sllx	%g1,2,%g3
/* 0x0194	     */		fsubd	%f12,%f8,%f0
/* 0x0198	     */		std	%f0,[%o0+%g2]
/* 0x019c	     */		ble,a,pt	%icc,.L900000211
/* 0x01a0	     */		ldd	[%g4],%f8
                       .L77000140:
/* 0x01a4	     */		retl	! Result = 
/* 0x01a8	     */		nop
/* 0x01ac	   0 */		.type	conv_i32_to_d32,2
/* 0x01ac	     */		.size	conv_i32_to_d32,(.-conv_i32_to_d32)

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.align	8
!
! CONSTANT POOL
!
                       .L_const_seg_900000301:
/* 000000	   0 */		.word	1127219200,0
/* 0x0008	   0 */		.align	8
/* 0x0008	     */		.skip	24
!
! SUBROUTINE conv_i32_to_d16
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global conv_i32_to_d16
                       conv_i32_to_d16:
/* 000000	     */		save	%sp,-192,%sp
                       .L900000310:
/* 0x0004	     */		call	.+8
/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3

!  143		      !}
!  146		      !void conv_i32_to_d16(double *d16, unsigned int *i32, int len)
!  147		      !{
!  148		      !int i;
!  149		      !unsigned int a;
!  151		      !#pragma pipeloop(0)
!  152		      ! for(i=0;i<len;i++)

/* 0x000c	 152 */		cmp	%i2,0
/* 0x0010	 147 */		add	%g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000310-.)),%g3
/* 0x0014	 152 */		ble,pt	%icc,.L77000150
/* 0x0018	     */		add	%g3,%o7,%o0

!  153		      !   {
!  154		      !     a=i32[i];
!  155		      !     d16[2*i]=(double)(a&0xffff);
!  156		      !     d16[2*i+1]=(double)(a>>16);

/* 0x001c	 156 */		sethi	%hi(.L_const_seg_900000301),%g2
/* 0x0020	 147 */		or	%g0,%i2,%o1
/* 0x0024	 152 */		sethi	%hi(0xfc00),%g3
/* 0x0028	 156 */		add	%g2,%lo(.L_const_seg_900000301),%g2
/* 0x002c	 152 */		or	%g0,%o1,%g4
/* 0x0030	 156 */		ldx	[%o0+%g2],%o5
/* 0x0034	 152 */		add	%g3,1023,%g1
/* 0x0038	 147 */		or	%g0,%i1,%o7
/* 0x003c	 152 */		or	%g0,0,%i2
/* 0x0040	     */		sub	%o1,1,%g5
/* 0x0044	     */		or	%g0,0,%g3
/* 0x0048	     */		or	%g0,1,%g2
/* 0x004c	 154 */		or	%g0,0,%o2
/* 0x0050	     */		cmp	%g4,6
/* 0x0054	 152 */		bl,pn	%icc,.L77000154
/* 0x0058	     */		ldd	[%o5],%f0
/* 0x005c	     */		sub	%o1,2,%o3
/* 0x0060	     */		or	%g0,16,%o2
/* 0x0064	 154 */		ld	[%i1],%o4
/* 0x0068	 156 */		or	%g0,3,%g2
/* 0x006c	     */		or	%g0,2,%g3
/* 0x0070	 155 */		fmovs	%f0,%f2
/* 0x0074	 156 */		or	%g0,4,%i2
/* 0x0078	 155 */		and	%o4,%g1,%o0
/* 0x007c	     */		st	%o0,[%sp+2227]
/* 0x0080	     */		fmovs	%f0,%f4
/* 0x0084	 156 */		srl	%o4,16,%i4
/* 0x0088	 152 */		or	%g0,12,%o4
/* 0x008c	     */		or	%g0,24,%o0
/* 0x0090	 155 */		ld	[%sp+2227],%f3
/* 0x0094	     */		fsubd	%f2,%f0,%f2
/* 0x0098	     */		std	%f2,[%i0]
/* 0x009c	 156 */		st	%i4,[%sp+2223]
/* 0x00a0	 154 */		ld	[%o7+4],%o1
/* 0x00a4	 156 */		fmovs	%f0,%f2
/* 0x00a8	 155 */		and	%o1,%g1,%i1
/* 0x00ac	 156 */		ld	[%sp+2223],%f3
/* 0x00b0	     */		srl	%o1,16,%o1
/* 0x00b4	     */		fsubd	%f2,%f0,%f2
/* 0x00b8	     */		std	%f2,[%i0+8]
/* 0x00bc	     */		st	%o1,[%sp+2223]
/* 0x00c0	 155 */		st	%i1,[%sp+2227]
/* 0x00c4	 154 */		ld	[%o7+8],%o1
/* 0x00c8	 156 */		fmovs	%f0,%f2
/* 0x00cc	 155 */		and	%o1,%g1,%g4
/* 0x00d0	     */		ld	[%sp+2227],%f5
/* 0x00d4	 156 */		srl	%o1,16,%o1
/* 0x00d8	     */		ld	[%sp+2223],%f3
/* 0x00dc	     */		st	%o1,[%sp+2223]
/* 0x00e0	 155 */		fsubd	%f4,%f0,%f4
/* 0x00e4	     */		st	%g4,[%sp+2227]
/* 0x00e8	 156 */		fsubd	%f2,%f0,%f2
/* 0x00ec	 154 */		ld	[%o7+12],%o1
/* 0x00f0	 155 */		std	%f4,[%i0+16]
/* 0x00f4	 156 */		std	%f2,[%i0+24]
                       .L900000306:
/* 0x00f8	 155 */		ld	[%sp+2227],%f5
/* 0x00fc	 156 */		add	%i2,2,%i2
/* 0x0100	     */		add	%g2,4,%g2
/* 0x0104	     */		ld	[%sp+2223],%f3
/* 0x0108	     */		cmp	%i2,%o3
/* 0x010c	     */		add	%g3,4,%g3
/* 0x0110	 155 */		and	%o1,%g1,%g4
/* 0x0114	 156 */		srl	%o1,16,%o1
/* 0x0118	 155 */		st	%g4,[%sp+2227]
/* 0x011c	 156 */		st	%o1,[%sp+2223]
/* 0x0120	 152 */		add	%o4,4,%o1
/* 0x0124	 154 */		ld	[%o7+%o1],%o4
/* 0x0128	 156 */		fmovs	%f0,%f2
/* 0x012c	 155 */		fmovs	%f0,%f4
/* 0x0130	     */		fsubd	%f4,%f0,%f4
/* 0x0134	 152 */		add	%o2,16,%o2
/* 0x0138	 156 */		fsubd	%f2,%f0,%f2
/* 0x013c	 155 */		std	%f4,[%i0+%o2]
/* 0x0140	 152 */		add	%o0,16,%o0
/* 0x0144	 156 */		std	%f2,[%i0+%o0]
/* 0x0148	 155 */		ld	[%sp+2227],%f5
/* 0x014c	 156 */		ld	[%sp+2223],%f3
/* 0x0150	 155 */		and	%o4,%g1,%g4
/* 0x0154	 156 */		srl	%o4,16,%o4
/* 0x0158	 155 */		st	%g4,[%sp+2227]
/* 0x015c	 156 */		st	%o4,[%sp+2223]
/* 0x0160	 152 */		add	%o1,4,%o4
/* 0x0164	 154 */		ld	[%o7+%o4],%o1
/* 0x0168	 156 */		fmovs	%f0,%f2
/* 0x016c	 155 */		fmovs	%f0,%f4
/* 0x0170	     */		fsubd	%f4,%f0,%f4
/* 0x0174	 152 */		add	%o2,16,%o2
/* 0x0178	 156 */		fsubd	%f2,%f0,%f2
/* 0x017c	 155 */		std	%f4,[%i0+%o2]
/* 0x0180	 152 */		add	%o0,16,%o0
/* 0x0184	 156 */		ble,pt	%icc,.L900000306
/* 0x0188	     */		std	%f2,[%i0+%o0]
                       .L900000309:
/* 0x018c	 155 */		ld	[%sp+2227],%f5
/* 0x0190	 156 */		fmovs	%f0,%f2
/* 0x0194	     */		srl	%o1,16,%o3
/* 0x0198	     */		ld	[%sp+2223],%f3
/* 0x019c	 155 */		and	%o1,%g1,%i1
/* 0x01a0	 152 */		add	%o2,16,%g4
/* 0x01a4	 155 */		fmovs	%f0,%f4
/* 0x01a8	     */		st	%i1,[%sp+2227]
/* 0x01ac	 152 */		add	%o0,16,%o2
/* 0x01b0	 156 */		st	%o3,[%sp+2223]
/* 0x01b4	 154 */		sra	%i2,0,%o3
/* 0x01b8	 152 */		add	%g4,16,%o1
/* 0x01bc	 155 */		fsubd	%f4,%f0,%f4
/* 0x01c0	     */		std	%f4,[%i0+%g4]
/* 0x01c4	 152 */		add	%o0,32,%o0
/* 0x01c8	 156 */		fsubd	%f2,%f0,%f2
/* 0x01cc	     */		std	%f2,[%i0+%o2]
/* 0x01d0	     */		sllx	%o3,2,%o2
/* 0x01d4	 155 */		ld	[%sp+2227],%f5
/* 0x01d8	 156 */		cmp	%i2,%g5
/* 0x01dc	     */		add	%g2,6,%g2
/* 0x01e0	     */		ld	[%sp+2223],%f3
/* 0x01e4	     */		add	%g3,6,%g3
/* 0x01e8	 155 */		fmovs	%f0,%f4
/* 0x01ec	 156 */		fmovs	%f0,%f2
/* 0x01f0	 155 */		fsubd	%f4,%f0,%f4
/* 0x01f4	     */		std	%f4,[%i0+%o1]
/* 0x01f8	 156 */		fsubd	%f2,%f0,%f0
/* 0x01fc	     */		bg,pn	%icc,.L77000150
/* 0x0200	     */		std	%f0,[%i0+%o0]
                       .L77000154:
/* 0x0204	 155 */		ldd	[%o5],%f0
                       .L900000311:
/* 0x0208	 154 */		ld	[%o7+%o2],%o0
/* 0x020c	 155 */		sra	%g3,0,%o1
/* 0x0210	     */		fmovs	%f0,%f2
/* 0x0214	     */		sllx	%o1,3,%o2
/* 0x0218	 156 */		add	%i2,1,%i2
/* 0x021c	 155 */		and	%o0,%g1,%o1
/* 0x0220	     */		st	%o1,[%sp+2227]
/* 0x0224	 156 */		add	%g3,2,%g3
/* 0x0228	     */		srl	%o0,16,%o1
/* 0x022c	     */		cmp	%i2,%g5
/* 0x0230	     */		sra	%g2,0,%o0
/* 0x0234	     */		add	%g2,2,%g2
/* 0x0238	     */		sllx	%o0,3,%o0
/* 0x023c	 155 */		ld	[%sp+2227],%f3
/* 0x0240	 154 */		sra	%i2,0,%o3
/* 0x0244	 155 */		fsubd	%f2,%f0,%f2
/* 0x0248	     */		std	%f2,[%i0+%o2]
/* 0x024c	     */		sllx	%o3,2,%o2
/* 0x0250	 156 */		st	%o1,[%sp+2223]
/* 0x0254	     */		fmovs	%f0,%f2
/* 0x0258	     */		ld	[%sp+2223],%f3
/* 0x025c	     */		fsubd	%f2,%f0,%f0
/* 0x0260	     */		std	%f0,[%i0+%o0]
/* 0x0264	     */		ble,a,pt	%icc,.L900000311
/* 0x0268	     */		ldd	[%o5],%f0
                       .L77000150:
/* 0x026c	     */		ret	! Result = 
/* 0x0270	     */		restore	%g0,%g0,%g0
/* 0x0274	   0 */		.type	conv_i32_to_d16,2
/* 0x0274	     */		.size	conv_i32_to_d16,(.-conv_i32_to_d16)

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.align	8
!
! CONSTANT POOL
!
                       .L_const_seg_900000401:
/* 000000	   0 */		.word	1127219200,0
/* 0x0008	   0 */		.align	8
/* 0x0008	     */		.skip	24
!
! SUBROUTINE conv_i32_to_d32_and_d16
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global conv_i32_to_d32_and_d16
                       conv_i32_to_d32_and_d16:
/* 000000	     */		save	%sp,-192,%sp
                       .L900000415:
/* 0x0004	     */		call	.+8
/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000415-.)),%g3

!  157		      !   }
!  158		      !}
!  161		      !void conv_i32_to_d32_and_d16(double *d32, double *d16, 
!  162		      !			     unsigned int *i32, int len)
!  163		      !{
!  164		      !int i = 0;
!  165		      !unsigned int a;
!  167		      !#pragma pipeloop(0)
!  168		      !#ifdef RF_INLINE_MACROS
!  169		      ! for(;i<len-3;i+=4)
!  170		      !   {
!  171		      !     i16_to_d16_and_d32x4(&TwoToMinus16, &TwoTo16, &Zero,
!  172		      !			  &(d16[2*i]), &(d32[i]), (float *)(&(i32[i])));

/* 0x000c	 172 */		sethi	%hi(Zero),%g2
/* 0x0010	 163 */		add	%g3,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000415-.)),%g3
/* 0x0014	     */		or	%g0,%i3,%g5
/* 0x0018	     */		add	%g3,%o7,%o3
/* 0x001c	 172 */		add	%g2,%lo(Zero),%g2
/* 0x0020	     */		ldx	[%o3+%g2],%o0
/* 0x0024	     */		sethi	%hi(TwoToMinus16),%g3
/* 0x0028	 163 */		or	%g0,%i0,%i3
/* 0x002c	 169 */		sub	%g5,3,%o1
/* 0x0030	 172 */		sethi	%hi(TwoTo16),%g4
/* 0x0034	 163 */		or	%g0,%i2,%i0
/* 0x0038	 172 */		add	%g3,%lo(TwoToMinus16),%g2
/* 0x003c	     */		ldx	[%o3+%g2],%o2
/* 0x0040	 169 */		cmp	%o1,0
/* 0x0044	 164 */		or	%g0,0,%i2
/* 0x0048	 169 */		ble,pt	%icc,.L900000418
/* 0x004c	     */		cmp	%i2,%g5
/* 0x0050	     */		ldd	[%o0],%f2
/* 0x0054	 172 */		add	%g4,%lo(TwoTo16),%g3
/* 0x0058	     */		ldx	[%o3+%g3],%o1
/* 0x005c	 169 */		sub	%g5,4,%o4
/* 0x0060	     */		or	%g0,0,%o5
                       .L900000417:
/* 0x0064	 172 */		sra	%i2,0,%g2
/* 0x0068	     */		fmovd	%f2,%f14
/* 0x006c	     */		ldd	[%o2],%f0
/* 0x0070	     */		sllx	%g2,2,%g3
/* 0x0074	     */		fmovd	%f2,%f10
/* 0x0078	     */		ldd	[%o1],%f16
/* 0x007c	     */		ld	[%g3+%i0],%f15
/* 0x0080	     */		add	%i0,%g3,%g3
/* 0x0084	     */		fmovd	%f2,%f6
/* 0x0088	     */		ld	[%g3+4],%f11
/* 0x008c	     */		sra	%o5,0,%g4
/* 0x0090	     */		add	%i2,4,%i2
/* 0x0094	     */		ld	[%g3+8],%f7
/* 0x0098	     */		fxtod	%f14,%f14
/* 0x009c	     */		sllx	%g2,3,%g2
/* 0x00a0	     */		ld	[%g3+12],%f3
/* 0x00a4	     */		fxtod	%f10,%f10
/* 0x00a8	     */		sllx	%g4,3,%g3
/* 0x00ac	     */		fxtod	%f6,%f6
/* 0x00b0	     */		std	%f14,[%g2+%i3]
/* 0x00b4	     */		add	%i3,%g2,%g4
/* 0x00b8	     */		fxtod	%f2,%f2
/* 0x00bc	     */		fmuld	%f0,%f14,%f12
/* 0x00c0	     */		std	%f2,[%g4+24]
/* 0x00c4	     */		fmuld	%f0,%f10,%f8
/* 0x00c8	     */		std	%f10,[%g4+8]
/* 0x00cc	     */		add	%i1,%g3,%g2
/* 0x00d0	     */		fmuld	%f0,%f6,%f4
/* 0x00d4	     */		std	%f6,[%g4+16]
/* 0x00d8	     */		cmp	%i2,%o4
/* 0x00dc	     */		fmuld	%f0,%f2,%f0
/* 0x00e0	     */		fdtox	%f12,%f12
/* 0x00e4	     */		add	%o5,8,%o5
/* 0x00e8	     */		fdtox	%f8,%f8
/* 0x00ec	     */		fdtox	%f4,%f4
/* 0x00f0	     */		fdtox	%f0,%f0
/* 0x00f4	     */		fxtod	%f12,%f12
/* 0x00f8	     */		std	%f12,[%g2+8]
/* 0x00fc	     */		fxtod	%f8,%f8
/* 0x0100	     */		std	%f8,[%g2+24]
/* 0x0104	     */		fxtod	%f4,%f4
/* 0x0108	     */		std	%f4,[%g2+40]
/* 0x010c	     */		fxtod	%f0,%f0
/* 0x0110	     */		std	%f0,[%g2+56]
/* 0x0114	     */		fmuld	%f12,%f16,%f12
/* 0x0118	     */		fmuld	%f8,%f16,%f8
/* 0x011c	     */		fmuld	%f4,%f16,%f4
/* 0x0120	     */		fsubd	%f14,%f12,%f12
/* 0x0124	     */		std	%f12,[%g3+%i1]
/* 0x0128	     */		fmuld	%f0,%f16,%f0
/* 0x012c	     */		fsubd	%f10,%f8,%f8
/* 0x0130	     */		std	%f8,[%g2+16]
/* 0x0134	     */		fsubd	%f6,%f4,%f4
/* 0x0138	     */		std	%f4,[%g2+32]
/* 0x013c	     */		fsubd	%f2,%f0,%f0
/* 0x0140	     */		std	%f0,[%g2+48]
/* 0x0144	     */		ble,a,pt	%icc,.L900000417
/* 0x0148	     */		ldd	[%o0],%f2
                       .L77000159:

!  173		      !   }
!  174		      !#endif
!  175		      ! for(;i<len;i++)

/* 0x014c	 175 */		cmp	%i2,%g5
                       .L900000418:
/* 0x0150	 175 */		bge,pt	%icc,.L77000164
/* 0x0154	     */		nop

!  176		      !   {
!  177		      !     a=i32[i];
!  178		      !     d32[i]=(double)(i32[i]);
!  179		      !     d16[2*i]=(double)(a&0xffff);
!  180		      !     d16[2*i+1]=(double)(a>>16);

/* 0x0158	 180 */		sethi	%hi(.L_const_seg_900000401),%g2
/* 0x015c	     */		add	%g2,%lo(.L_const_seg_900000401),%g2
/* 0x0160	 175 */		sethi	%hi(0xfc00),%g3
/* 0x0164	 180 */		ldx	[%o3+%g2],%g1
/* 0x0168	 175 */		sll	%i2,1,%i4
/* 0x016c	     */		sub	%g5,%i2,%g4
/* 0x0170	 177 */		sra	%i2,0,%o3
/* 0x0174	 175 */		add	%g3,1023,%g3
/* 0x0178	 178 */		ldd	[%g1],%f2
/* 0x017c	     */		sllx	%o3,2,%o2
/* 0x0180	 175 */		add	%i4,1,%g2
/* 0x0184	 177 */		or	%g0,%o3,%o1
/* 0x0188	     */		cmp	%g4,6
/* 0x018c	 175 */		bl,pn	%icc,.L77000161
/* 0x0190	     */		sra	%i2,0,%o3
/* 0x0194	 177 */		or	%g0,%o2,%o0
/* 0x0198	 178 */		ld	[%i0+%o2],%f5
/* 0x019c	 179 */		fmovs	%f2,%f8
/* 0x01a0	 175 */		add	%o0,4,%o3
/* 0x01a4	 177 */		ld	[%i0+%o0],%o7
/* 0x01a8	 180 */		fmovs	%f2,%f6
/* 0x01ac	 178 */		fmovs	%f2,%f4
/* 0x01b0	     */		sllx	%o1,3,%o2
/* 0x01b4	 175 */		add	%o3,4,%o5
/* 0x01b8	 179 */		sra	%i4,0,%o0
/* 0x01bc	 175 */		add	%o3,8,%o4
/* 0x01c0	 178 */		fsubd	%f4,%f2,%f4
/* 0x01c4	     */		std	%f4,[%i3+%o2]
/* 0x01c8	 179 */		sllx	%o0,3,%i5
/* 0x01cc	     */		and	%o7,%g3,%o0
/* 0x01d0	     */		st	%o0,[%sp+2227]
/* 0x01d4	 175 */		add	%i5,16,%o1
/* 0x01d8	 180 */		srl	%o7,16,%g4
/* 0x01dc	     */		add	%i2,1,%i2
/* 0x01e0	     */		sra	%g2,0,%o0
/* 0x01e4	 175 */		add	%o2,8,%o2
/* 0x01e8	 179 */		fmovs	%f2,%f4
/* 0x01ec	 180 */		sllx	%o0,3,%l0
/* 0x01f0	     */		add	%i4,3,%g2
/* 0x01f4	 179 */		ld	[%sp+2227],%f5
/* 0x01f8	 175 */		add	%l0,16,%o0
/* 0x01fc	 180 */		add	%i4,2,%i4
/* 0x0200	 175 */		sub	%g5,1,%o7
/* 0x0204	 180 */		add	%i2,3,%i2
/* 0x0208	 179 */		fsubd	%f4,%f2,%f4
/* 0x020c	     */		std	%f4,[%i1+%i5]
/* 0x0210	 180 */		st	%g4,[%sp+2223]
/* 0x0214	 177 */		ld	[%i0+%o3],%i5
/* 0x0218	 180 */		fmovs	%f2,%f4
/* 0x021c	     */		srl	%i5,16,%g4
/* 0x0220	 179 */		and	%i5,%g3,%i5
/* 0x0224	 180 */		ld	[%sp+2223],%f5
/* 0x0228	     */		fsubd	%f4,%f2,%f4
/* 0x022c	     */		std	%f4,[%i1+%l0]
/* 0x0230	     */		st	%g4,[%sp+2223]
/* 0x0234	 177 */		ld	[%i0+%o5],%g4
/* 0x0238	 179 */		st	%i5,[%sp+2227]
/* 0x023c	 178 */		fmovs	%f2,%f4
/* 0x0240	 180 */		srl	%g4,16,%i5
/* 0x0244	 179 */		and	%g4,%g3,%g4
/* 0x0248	 180 */		ld	[%sp+2223],%f7
/* 0x024c	     */		st	%i5,[%sp+2223]
/* 0x0250	 178 */		ld	[%i0+%o3],%f5
/* 0x0254	 180 */		fsubd	%f6,%f2,%f6
/* 0x0258	 177 */		ld	[%i0+%o4],%o3
/* 0x025c	 178 */		fsubd	%f4,%f2,%f4
/* 0x0260	 179 */		ld	[%sp+2227],%f9
/* 0x0264	 180 */		ld	[%sp+2223],%f1
/* 0x0268	 179 */		st	%g4,[%sp+2227]
/* 0x026c	     */		fsubd	%f8,%f2,%f8
/* 0x0270	     */		std	%f8,[%i1+%o1]
/* 0x0274	 180 */		std	%f6,[%i1+%o0]
/* 0x0278	 178 */		std	%f4,[%i3+%o2]
                       .L900000411:
/* 0x027c	 179 */		ld	[%sp+2227],%f13
/* 0x0280	 180 */		srl	%o3,16,%g4
/* 0x0284	     */		add	%i2,2,%i2
/* 0x0288	     */		st	%g4,[%sp+2223]
/* 0x028c	     */		cmp	%i2,%o7
/* 0x0290	     */		add	%g2,4,%g2
/* 0x0294	 178 */		ld	[%i0+%o5],%f11
/* 0x0298	 180 */		add	%i4,4,%i4
/* 0x029c	 175 */		add	%o4,4,%o5
/* 0x02a0	 177 */		ld	[%i0+%o5],%g4
/* 0x02a4	 179 */		and	%o3,%g3,%o3
/* 0x02a8	     */		st	%o3,[%sp+2227]
/* 0x02ac	 180 */		fmovs	%f2,%f0
/* 0x02b0	 179 */		fmovs	%f2,%f12
/* 0x02b4	 180 */		fsubd	%f0,%f2,%f8
/* 0x02b8	 179 */		fsubd	%f12,%f2,%f4
/* 0x02bc	 175 */		add	%o1,16,%o1
/* 0x02c0	 180 */		ld	[%sp+2223],%f7
/* 0x02c4	 178 */		fmovs	%f2,%f10
/* 0x02c8	 179 */		std	%f4,[%i1+%o1]
/* 0x02cc	 175 */		add	%o0,16,%o0
/* 0x02d0	 178 */		fsubd	%f10,%f2,%f4
/* 0x02d4	 175 */		add	%o2,8,%o2
/* 0x02d8	 180 */		std	%f8,[%i1+%o0]
/* 0x02dc	 178 */		std	%f4,[%i3+%o2]
/* 0x02e0	 179 */		ld	[%sp+2227],%f9
/* 0x02e4	 180 */		srl	%g4,16,%o3
/* 0x02e8	     */		st	%o3,[%sp+2223]
/* 0x02ec	 178 */		ld	[%i0+%o4],%f5
/* 0x02f0	 175 */		add	%o4,8,%o4
/* 0x02f4	 177 */		ld	[%i0+%o4],%o3
/* 0x02f8	 179 */		and	%g4,%g3,%g4
/* 0x02fc	     */		st	%g4,[%sp+2227]
/* 0x0300	 180 */		fmovs	%f2,%f6
/* 0x0304	 179 */		fmovs	%f2,%f8
/* 0x0308	 180 */		fsubd	%f6,%f2,%f6
/* 0x030c	 179 */		fsubd	%f8,%f2,%f8
/* 0x0310	 175 */		add	%o1,16,%o1
/* 0x0314	 180 */		ld	[%sp+2223],%f1
/* 0x0318	 178 */		fmovs	%f2,%f4
/* 0x031c	 179 */		std	%f8,[%i1+%o1]
/* 0x0320	 175 */		add	%o0,16,%o0
/* 0x0324	 178 */		fsubd	%f4,%f2,%f4
/* 0x0328	 175 */		add	%o2,8,%o2
/* 0x032c	 180 */		std	%f6,[%i1+%o0]
/* 0x0330	     */		bl,pt	%icc,.L900000411
/* 0x0334	     */		std	%f4,[%i3+%o2]
                       .L900000414:
/* 0x0338	 180 */		srl	%o3,16,%o7
/* 0x033c	     */		st	%o7,[%sp+2223]
/* 0x0340	 179 */		fmovs	%f2,%f12
/* 0x0344	 178 */		ld	[%i0+%o5],%f11
/* 0x0348	 180 */		fmovs	%f2,%f0
/* 0x034c	 179 */		and	%o3,%g3,%g4
/* 0x0350	 180 */		fmovs	%f2,%f6
/* 0x0354	 175 */		add	%o1,16,%o3
/* 0x0358	     */		add	%o0,16,%o7
/* 0x035c	 178 */		fmovs	%f2,%f10
/* 0x0360	 175 */		add	%o2,8,%o2
/* 0x0364	     */		add	%o1,32,%o5
/* 0x0368	 179 */		ld	[%sp+2227],%f13
/* 0x036c	 178 */		fmovs	%f2,%f4
/* 0x0370	 175 */		add	%o0,32,%o1
/* 0x0374	 180 */		ld	[%sp+2223],%f7
/* 0x0378	 175 */		add	%o2,8,%o0
/* 0x037c	 180 */		cmp	%i2,%g5
/* 0x0380	 179 */		st	%g4,[%sp+2227]
/* 0x0384	     */		fsubd	%f12,%f2,%f8
/* 0x0388	 180 */		add	%g2,6,%g2
/* 0x038c	 179 */		std	%f8,[%i1+%o3]
/* 0x0390	 180 */		fsubd	%f0,%f2,%f0
/* 0x0394	 177 */		sra	%i2,0,%o3
/* 0x0398	 180 */		std	%f0,[%i1+%o7]
/* 0x039c	 178 */		fsubd	%f10,%f2,%f0
/* 0x03a0	 180 */		add	%i4,6,%i4
/* 0x03a4	 178 */		std	%f0,[%i3+%o2]
/* 0x03a8	     */		sllx	%o3,2,%o2
/* 0x03ac	 179 */		ld	[%sp+2227],%f9
/* 0x03b0	 178 */		ld	[%i0+%o4],%f5
/* 0x03b4	 179 */		fmovs	%f2,%f8
/* 0x03b8	     */		fsubd	%f8,%f2,%f0
/* 0x03bc	     */		std	%f0,[%i1+%o5]
/* 0x03c0	 180 */		fsubd	%f6,%f2,%f0
/* 0x03c4	     */		std	%f0,[%i1+%o1]
/* 0x03c8	 178 */		fsubd	%f4,%f2,%f0
/* 0x03cc	 180 */		bge,pn	%icc,.L77000164
/* 0x03d0	     */		std	%f0,[%i3+%o0]
                       .L77000161:
/* 0x03d4	 178 */		ldd	[%g1],%f2
                       .L900000416:
/* 0x03d8	 178 */		ld	[%i0+%o2],%f5
/* 0x03dc	 179 */		sra	%i4,0,%o0
/* 0x03e0	 180 */		add	%i2,1,%i2
/* 0x03e4	 177 */		ld	[%i0+%o2],%o1
/* 0x03e8	 178 */		sllx	%o3,3,%o3
/* 0x03ec	 180 */		add	%i4,2,%i4
/* 0x03f0	 178 */		fmovs	%f2,%f4
/* 0x03f4	 179 */		sllx	%o0,3,%o4
/* 0x03f8	 180 */		cmp	%i2,%g5
/* 0x03fc	 179 */		and	%o1,%g3,%o0
/* 0x0400	 178 */		fsubd	%f4,%f2,%f0
/* 0x0404	     */		std	%f0,[%i3+%o3]
/* 0x0408	 180 */		srl	%o1,16,%o1
/* 0x040c	 179 */		st	%o0,[%sp+2227]
/* 0x0410	 180 */		sra	%g2,0,%o0
/* 0x0414	     */		add	%g2,2,%g2
/* 0x0418	 177 */		sra	%i2,0,%o3
/* 0x041c	 180 */		sllx	%o0,3,%o0
/* 0x0420	 179 */		fmovs	%f2,%f4
/* 0x0424	     */		sllx	%o3,2,%o2
/* 0x0428	     */		ld	[%sp+2227],%f5
/* 0x042c	     */		fsubd	%f4,%f2,%f0
/* 0x0430	     */		std	%f0,[%i1+%o4]
/* 0x0434	 180 */		st	%o1,[%sp+2223]
/* 0x0438	     */		fmovs	%f2,%f4
/* 0x043c	     */		ld	[%sp+2223],%f5
/* 0x0440	     */		fsubd	%f4,%f2,%f0
/* 0x0444	     */		std	%f0,[%i1+%o0]
/* 0x0448	     */		bl,a,pt	%icc,.L900000416
/* 0x044c	     */		ldd	[%g1],%f2
                       .L77000164:
/* 0x0450	     */		ret	! Result = 
/* 0x0454	     */		restore	%g0,%g0,%g0
/* 0x0458	   0 */		.type	conv_i32_to_d32_and_d16,2
/* 0x0458	     */		.size	conv_i32_to_d32_and_d16,(.-conv_i32_to_d32_and_d16)

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.align	8
!
! SUBROUTINE adjust_montf_result
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global adjust_montf_result
                       adjust_montf_result:
/* 000000	     */		save	%sp,-176,%sp
/* 0x0004	     */		or	%g0,%i2,%o1
/* 0x0008	     */		or	%g0,%i0,%i2

!  181		      !   }
!  182		      !}
!  185		      !void adjust_montf_result(unsigned int *i32, unsigned int *nint, int len)
!  186		      !{
!  187		      !long long acc;
!  188		      !int i;
!  190		      ! if(i32[len]>0) i=-1;

/* 0x000c	 190 */		sra	%o1,0,%g2
/* 0x0010	     */		or	%g0,-1,%o2
/* 0x0014	     */		sllx	%g2,2,%g2
/* 0x0018	     */		ld	[%i2+%g2],%g2
/* 0x001c	     */		cmp	%g2,0
/* 0x0020	     */		bleu,pn	%icc,.L77000175
/* 0x0024	     */		or	%g0,%i1,%i0
/* 0x0028	     */		ba	.L900000511
/* 0x002c	     */		cmp	%o2,0
                       .L77000175:

!  191		      ! else
!  192		      !   {
!  193		      !     for(i=len-1; i>=0; i--)

/* 0x0030	 193 */		sub	%o1,1,%o2
/* 0x0034	     */		cmp	%o2,0
/* 0x0038	     */		bl,pn	%icc,.L77000182
/* 0x003c	     */		sra	%o2,0,%g2
                       .L900000510:

!  194		      !       {
!  195		      !	 if(i32[i]!=nint[i]) break;

/* 0x0040	 195 */		sllx	%g2,2,%g2
/* 0x0044	     */		sub	%o2,1,%o0
/* 0x0048	     */		ld	[%i1+%g2],%g3
/* 0x004c	     */		ld	[%i2+%g2],%g2
/* 0x0050	     */		cmp	%g2,%g3
/* 0x0054	     */		bne,pn	%icc,.L77000182
/* 0x0058	     */		nop
/* 0x005c	   0 */		or	%g0,%o0,%o2
/* 0x0060	 195 */		cmp	%o0,0
/* 0x0064	     */		bge,pt	%icc,.L900000510
/* 0x0068	     */		sra	%o2,0,%g2
                       .L77000182:

!  196		      !       }
!  197		      !   }
!  198		      ! if((i<0)||(i32[i]>nint[i]))

/* 0x006c	 198 */		cmp	%o2,0
                       .L900000511:
/* 0x0070	 198 */		bl,pn	%icc,.L77000198
/* 0x0074	     */		sra	%o2,0,%g2
/* 0x0078	     */		sllx	%g2,2,%g2
/* 0x007c	     */		ld	[%i1+%g2],%g3
/* 0x0080	     */		ld	[%i2+%g2],%g2
/* 0x0084	     */		cmp	%g2,%g3
/* 0x0088	     */		bleu,pt	%icc,.L77000191
/* 0x008c	     */		nop
                       .L77000198:

!  199		      !   {
!  200		      !     acc=0;
!  201		      !     for(i=0;i<len;i++)

/* 0x0090	 201 */		cmp	%o1,0
/* 0x0094	     */		ble,pt	%icc,.L77000191
/* 0x0098	     */		nop
/* 0x009c	 198 */		or	%g0,-1,%g2
/* 0x00a0	 201 */		or	%g0,%o1,%g3
/* 0x00a4	 198 */		srl	%g2,0,%g2
/* 0x00a8	     */		sub	%o1,1,%g4
/* 0x00ac	     */		cmp	%o1,9
/* 0x00b0	 201 */		or	%g0,0,%i1
/* 0x00b4	 200 */		or	%g0,0,%g5

!  202		      !       {
!  203		      !	 acc=acc+(unsigned long long)(i32[i])-(unsigned long long)(nint[i]);

/* 0x00b8	 203 */		or	%g0,0,%o1
/* 0x00bc	 201 */		bl,pn	%icc,.L77000199
/* 0x00c0	     */		sub	%g3,4,%o7
/* 0x00c4	 203 */		ld	[%i2],%o1

!  204		      !	 i32[i]=acc&0xffffffff;
!  205		      !	 acc=acc>>32;

/* 0x00c8	 205 */		or	%g0,5,%i1
/* 0x00cc	 203 */		ld	[%i0],%o2
/* 0x00d0	 201 */		or	%g0,8,%o5
/* 0x00d4	     */		or	%g0,12,%o4
/* 0x00d8	 203 */		ld	[%i0+4],%o3
/* 0x00dc	 201 */		or	%g0,16,%g1
/* 0x00e0	 203 */		ld	[%i2+4],%o0
/* 0x00e4	 201 */		sub	%o1,%o2,%o1
/* 0x00e8	 203 */		ld	[%i0+8],%i3
/* 0x00ec	 204 */		and	%o1,%g2,%g5
/* 0x00f0	     */		st	%g5,[%i2]
/* 0x00f4	 205 */		srax	%o1,32,%g5
/* 0x00f8	 201 */		sub	%o0,%o3,%o0
/* 0x00fc	 203 */		ld	[%i0+12],%o2
/* 0x0100	 201 */		add	%o0,%g5,%o0
/* 0x0104	 204 */		and	%o0,%g2,%g5
/* 0x0108	     */		st	%g5,[%i2+4]
/* 0x010c	 205 */		srax	%o0,32,%o0
/* 0x0110	 203 */		ld	[%i2+8],%o1
/* 0x0114	     */		ld	[%i2+12],%o3
/* 0x0118	 201 */		sub	%o1,%i3,%o1
                       .L900000505:
/* 0x011c	     */		add	%g1,4,%g3
/* 0x0120	 203 */		ld	[%g1+%i2],%g5
/* 0x0124	 201 */		add	%o1,%o0,%o0
/* 0x0128	 203 */		ld	[%i0+%g1],%i3
/* 0x012c	 201 */		sub	%o3,%o2,%o1
/* 0x0130	 204 */		and	%o0,%g2,%o2
/* 0x0134	     */		st	%o2,[%o5+%i2]
/* 0x0138	 205 */		srax	%o0,32,%o2
/* 0x013c	     */		add	%i1,4,%i1
/* 0x0140	 201 */		add	%g1,8,%o5
/* 0x0144	 203 */		ld	[%g3+%i2],%o0
/* 0x0148	 201 */		add	%o1,%o2,%o1
/* 0x014c	 203 */		ld	[%i0+%g3],%o3
/* 0x0150	 201 */		sub	%g5,%i3,%o2
/* 0x0154	 204 */		and	%o1,%g2,%g5
/* 0x0158	     */		st	%g5,[%o4+%i2]
/* 0x015c	 205 */		srax	%o1,32,%g5
/* 0x0160	     */		cmp	%i1,%o7
/* 0x0164	 201 */		add	%g1,12,%o4
/* 0x0168	 203 */		ld	[%o5+%i2],%o1
/* 0x016c	 201 */		add	%o2,%g5,%o2
/* 0x0170	 203 */		ld	[%i0+%o5],%i3
/* 0x0174	 201 */		sub	%o0,%o3,%o0
/* 0x0178	 204 */		and	%o2,%g2,%o3
/* 0x017c	     */		st	%o3,[%g1+%i2]
/* 0x0180	 205 */		srax	%o2,32,%g5
/* 0x0184	 203 */		ld	[%o4+%i2],%o3
/* 0x0188	 201 */		add	%g1,16,%g1
/* 0x018c	     */		add	%o0,%g5,%o0
/* 0x0190	 203 */		ld	[%i0+%o4],%o2
/* 0x0194	 201 */		sub	%o1,%i3,%o1
/* 0x0198	 204 */		and	%o0,%g2,%g5
/* 0x019c	     */		st	%g5,[%g3+%i2]
/* 0x01a0	 205 */		ble,pt	%icc,.L900000505
/* 0x01a4	     */		srax	%o0,32,%o0
                       .L900000508:
/* 0x01a8	     */		add	%o1,%o0,%g3
/* 0x01ac	     */		sub	%o3,%o2,%o1
/* 0x01b0	 203 */		ld	[%g1+%i2],%o0
/* 0x01b4	     */		ld	[%i0+%g1],%o2
/* 0x01b8	 205 */		srax	%g3,32,%o7
/* 0x01bc	 204 */		and	%g3,%g2,%o3
/* 0x01c0	 201 */		add	%o1,%o7,%o1
/* 0x01c4	 204 */		st	%o3,[%o5+%i2]
/* 0x01c8	 205 */		cmp	%i1,%g4
/* 0x01cc	 201 */		sub	%o0,%o2,%o0
/* 0x01d0	 204 */		and	%o1,%g2,%o2
/* 0x01d4	     */		st	%o2,[%o4+%i2]
/* 0x01d8	 205 */		srax	%o1,32,%o1
/* 0x01dc	 203 */		sra	%i1,0,%o2
/* 0x01e0	 201 */		add	%o0,%o1,%o0
/* 0x01e4	 205 */		srax	%o0,32,%g5
/* 0x01e8	 204 */		and	%o0,%g2,%o1
/* 0x01ec	     */		st	%o1,[%g1+%i2]
/* 0x01f0	 205 */		bg,pn	%icc,.L77000191
/* 0x01f4	     */		sllx	%o2,2,%o1
                       .L77000199:
/* 0x01f8	   0 */		or	%g0,%o1,%g1
                       .L900000509:
/* 0x01fc	 203 */		ld	[%o1+%i2],%o0
/* 0x0200	 205 */		add	%i1,1,%i1
/* 0x0204	 203 */		ld	[%i0+%o1],%o1
/* 0x0208	     */		sra	%i1,0,%o2
/* 0x020c	 205 */		cmp	%i1,%g4
/* 0x0210	 203 */		add	%g5,%o0,%o0
/* 0x0214	     */		sub	%o0,%o1,%o0
/* 0x0218	 205 */		srax	%o0,32,%g5
/* 0x021c	 204 */		and	%o0,%g2,%o1
/* 0x0220	     */		st	%o1,[%g1+%i2]
/* 0x0224	     */		sllx	%o2,2,%o1
/* 0x0228	 205 */		ble,pt	%icc,.L900000509
/* 0x022c	     */		or	%g0,%o1,%g1
                       .L77000191:
/* 0x0230	     */		ret	! Result = 
/* 0x0234	     */		restore	%g0,%g0,%g0
/* 0x0238	   0 */		.type	adjust_montf_result,2
/* 0x0238	     */		.size	adjust_montf_result,(.-adjust_montf_result)

	.section	".text",#alloc,#execinstr
/* 000000	   0 */		.align	8
/* 000000	     */		.skip	24
!
! SUBROUTINE mont_mulf_noconv
!
! OFFSET    SOURCE LINE	LABEL	INSTRUCTION

                       	.global mont_mulf_noconv
                       mont_mulf_noconv:
/* 000000	     */		save	%sp,-224,%sp
                       .L900000643:
/* 0x0004	     */		call	.+8
/* 0x0008	     */		sethi	/*X*/%hi(_GLOBAL_OFFSET_TABLE_-(.L900000643-.)),%g5
/* 0x000c	     */		ldx	[%fp+2223],%l0

!  206		      !       }
!  207		      !   }
!  208		      !}
!  213		      !/*
!  214		      !** the lengths of the input arrays should be at least the following:
!  215		      !** result[nlen+1], dm1[nlen], dm2[2*nlen+1], dt[4*nlen+2], dn[nlen], nint[nlen]
!  216		      !** all of them should be different from one another
!  217		      !**
!  218		      !*/
!  219		      !void mont_mulf_noconv(unsigned int *result,
!  220		      !		     double *dm1, double *dm2, double *dt,
!  221		      !		     double *dn, unsigned int *nint,
!  222		      !		     int nlen, double dn0)
!  223		      !{
!  224		      ! int i, j, jj;
!  225		      ! int tmp;
!  226		      ! double digit, m2j, nextm2j, a, b;
!  227		      ! double *dptmp, *pdm1, *pdm2, *pdn, *pdtj, pdn_0, pdm1_0;
!  229		      ! pdm1=&(dm1[0]);
!  230		      ! pdm2=&(dm2[0]);
!  231		      ! pdn=&(dn[0]);
!  232		      ! pdm2[2*nlen]=Zero;

/* 0x0010	 232 */		sethi	%hi(Zero),%g2
/* 0x0014	 223 */		fmovd	%f14,%f30
/* 0x0018	     */		add	%g5,/*X*/%lo(_GLOBAL_OFFSET_TABLE_-(.L900000643-.)),%g5
/* 0x001c	 232 */		add	%g2,%lo(Zero),%g2
/* 0x0020	     */		sll	%l0,1,%o3
/* 0x0024	 223 */		add	%g5,%o7,%o4
/* 0x0028	 232 */		sra	%o3,0,%g5
/* 0x002c	     */		ldx	[%o4+%g2],%o7

!  234		      ! if (nlen!=16)
!  235		      !   {
!  236		      !     for(i=0;i<4*nlen+2;i++) dt[i]=Zero;
!  238		      !     a=dt[0]=pdm1[0]*pdm2[0];
!  239		      !     digit=mod(lower32(a,Zero)*dn0,TwoToMinus16,TwoTo16);

/* 0x0030	 239 */		sethi	%hi(TwoToMinus16),%g3
/* 0x0034	     */		sethi	%hi(TwoTo16),%g4
/* 0x0038	     */		add	%g3,%lo(TwoToMinus16),%g2
/* 0x003c	 232 */		ldd	[%o7],%f0
/* 0x0040	 239 */		add	%g4,%lo(TwoTo16),%g3
/* 0x0044	 223 */		or	%g0,%i4,%o0
/* 0x0048	 232 */		sllx	%g5,3,%g4
/* 0x004c	 239 */		ldx	[%o4+%g2],%o5
/* 0x0050	 223 */		or	%g0,%i5,%l3
/* 0x0054	     */		or	%g0,%i0,%l2
/* 0x0058	 239 */		ldx	[%o4+%g3],%o4
/* 0x005c	 234 */		cmp	%l0,16
/* 0x0060	 232 */		std	%f0,[%i2+%g4]
/* 0x0064	 234 */		be,pn	%icc,.L77000279
/* 0x0068	     */		or	%g0,%i3,%l4
/* 0x006c	 236 */		sll	%l0,2,%g2
/* 0x0070	 223 */		or	%g0,%o0,%i5
/* 0x0074	 236 */		add	%g2,2,%o0
/* 0x0078	 223 */		or	%g0,%i1,%i4
/* 0x007c	 236 */		cmp	%o0,0
/* 0x0080	 223 */		or	%g0,%i2,%l1
/* 0x0084	 236 */		ble,a,pt	%icc,.L900000657
/* 0x0088	     */		ldd	[%i1],%f6

!  241		      !     pdtj=&(dt[0]);
!  242		      !     for(j=jj=0;j<2*nlen;j++,jj++,pdtj++)
!  243		      !       {
!  244		      !	 m2j=pdm2[j];
!  245		      !	 a=pdtj[0]+pdn[0]*digit;
!  246		      !	 b=pdtj[1]+pdm1[0]*pdm2[j+1]+a*TwoToMinus16;
!  247		      !	 pdtj[1]=b;
!  249		      !#pragma pipeloop(0)
!  250		      !	 for(i=1;i<nlen;i++)
!  251		      !	   {
!  252		      !	     pdtj[2*i]+=pdm1[i]*m2j+pdn[i]*digit;
!  253		      !	   }
!  254		      ! 	 if((jj==30)) {cleanup(dt,j/2+1,2*nlen+1); jj=0;}
!  255		      !	 
!  256		      !	 digit=mod(lower32(b,Zero)*dn0,TwoToMinus16,TwoTo16);
!  257		      !       }
!  258		      !   }
!  259		      ! else
!  260		      !   {
!  261		      !     a=dt[0]=pdm1[0]*pdm2[0];
!  263		      !     dt[65]=     dt[64]=     dt[63]=     dt[62]=     dt[61]=     dt[60]=
!  264		      !     dt[59]=     dt[58]=     dt[57]=     dt[56]=     dt[55]=     dt[54]=
!  265		      !     dt[53]=     dt[52]=     dt[51]=     dt[50]=     dt[49]=     dt[48]=
!  266		      !     dt[47]=     dt[46]=     dt[45]=     dt[44]=     dt[43]=     dt[42]=
!  267		      !     dt[41]=     dt[40]=     dt[39]=     dt[38]=     dt[37]=     dt[36]=
!  268		      !     dt[35]=     dt[34]=     dt[33]=     dt[32]=     dt[31]=     dt[30]=
!  269		      !     dt[29]=     dt[28]=     dt[27]=     dt[26]=     dt[25]=     dt[24]=
!  270		      !     dt[23]=     dt[22]=     dt[21]=     dt[20]=     dt[19]=     dt[18]=
!  271		      !     dt[17]=     dt[16]=     dt[15]=     dt[14]=     dt[13]=     dt[12]=
!  272		      !     dt[11]=     dt[10]=     dt[ 9]=     dt[ 8]=     dt[ 7]=     dt[ 6]=
!  273		      !     dt[ 5…