Home | History | Annotate | Line # | Download | only in pa32
lshift.asm revision 1.1 
      1  1.1  mrg dnl  HP-PA  mpn_lshift -- Shift a number left.
      2  1.1  mrg 
      3  1.1  mrg dnl  Copyright 1992, 1994, 2000, 2001, 2002 Free Software Foundation, Inc.
      4  1.1  mrg 
      5  1.1  mrg dnl  This file is part of the GNU MP Library.
      6  1.1  mrg 
      7  1.1  mrg dnl  The GNU MP Library is free software; you can redistribute it and/or modify
      8  1.1  mrg dnl  it under the terms of the GNU Lesser General Public License as published
      9  1.1  mrg dnl  by the Free Software Foundation; either version 3 of the License, or (at
     10  1.1  mrg dnl  your option) any later version.
     11  1.1  mrg 
     12  1.1  mrg dnl  The GNU MP Library is distributed in the hope that it will be useful, but
     13  1.1  mrg dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
     14  1.1  mrg dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
     15  1.1  mrg dnl  License for more details.
     16  1.1  mrg 
     17  1.1  mrg dnl  You should have received a copy of the GNU Lesser General Public License
     18  1.1  mrg dnl  along with the GNU MP Library.  If not, see http://www.gnu.org/licenses/.
     19  1.1  mrg 
     20  1.1  mrg include(`../config.m4')
     21  1.1  mrg 
     22  1.1  mrg C INPUT PARAMETERS
     23  1.1  mrg C res_ptr	gr26
     24  1.1  mrg C s_ptr		gr25
     25  1.1  mrg C size		gr24
     26  1.1  mrg C cnt		gr23
     27  1.1  mrg 
     28  1.1  mrg ASM_START()
     29  1.1  mrg PROLOGUE(mpn_lshift)
     30  1.1  mrg 	sh2add		%r24,%r25,%r25
     31  1.1  mrg 	sh2add		%r24,%r26,%r26
     32  1.1  mrg 	ldws,mb		-4(0,%r25),%r22
     33  1.1  mrg 	subi		32,%r23,%r1
     34  1.1  mrg 	mtsar		%r1
     35  1.1  mrg 	addib,=		-1,%r24,L(0004)
     36  1.1  mrg 	vshd		%r0,%r22,%r28		C compute carry out limb
     37  1.1  mrg 	ldws,mb		-4(0,%r25),%r29
     38  1.1  mrg 	addib,=		-1,%r24,L(0002)
     39  1.1  mrg 	vshd		%r22,%r29,%r20
     40  1.1  mrg 
     41  1.1  mrg LDEF(loop)
     42  1.1  mrg 	ldws,mb		-4(0,%r25),%r22
     43  1.1  mrg 	stws,mb		%r20,-4(0,%r26)
     44  1.1  mrg 	addib,=		-1,%r24,L(0003)
     45  1.1  mrg 	vshd		%r29,%r22,%r20
     46  1.1  mrg 	ldws,mb		-4(0,%r25),%r29
     47  1.1  mrg 	stws,mb		%r20,-4(0,%r26)
     48  1.1  mrg 	addib,<>	-1,%r24,L(loop)
     49  1.1  mrg 	vshd		%r22,%r29,%r20
     50  1.1  mrg 
     51  1.1  mrg LDEF(0002)
     52  1.1  mrg 	stws,mb		%r20,-4(0,%r26)
     53  1.1  mrg 	vshd		%r29,%r0,%r20
     54  1.1  mrg 	bv		0(%r2)
     55  1.1  mrg 	stw		%r20,-4(0,%r26)
     56  1.1  mrg 
     57  1.1  mrg LDEF(0003)
     58  1.1  mrg 	stws,mb		%r20,-4(0,%r26)
     59  1.1  mrg 
     60  1.1  mrg LDEF(0004)
     61  1.1  mrg 	vshd		%r22,%r0,%r20
     62  1.1  mrg 	bv		0(%r2)
     63  1.1  mrg 	stw		%r20,-4(0,%r26)
     64  1.1  mrg EPILOGUE()
     65