| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263 |
- ;! HP-PA __mpn_rshift --
- ;! Copyright (C) 1992, 1994 Free Software Foundation, Inc.
- ;! This file is part of the GNU MP Library.
- ;! The GNU MP Library is free software; you can redistribute it and/or modify
- ;! it under the terms of the GNU Lesser General Public License as published by
- ;! the Free Software Foundation; either version 2.1 of the License, or (at your
- ;! option) any later version.
- ;! The GNU MP Library is distributed in the hope that it will be useful, but
- ;! WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
- ;! or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
- ;! License for more details.
- ;! You should have received a copy of the GNU Lesser General Public License
- ;! along with the GNU MP Library; see the file COPYING.LIB. If not, write to
- ;! the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
- ;! MA 02111-1307, USA.
- ;! INPUT PARAMETERS
- ;! res_ptr gr26
- ;! s_ptr gr25
- ;! size gr24
- ;! cnt gr23
- .text
- .export __mpn_rshift
- __mpn_rshift:
- .proc
- .callinfo frame=64,no_calls
- .entry
- ldws,ma 4(%r25),%r22
- mtsar %r23
- addib,= -1,%r24,L$0004
- vshd %r22,%r0,%r28 ;! compute carry out limb
- ldws,ma 4(%r25),%r29
- addib,= -1,%r24,L$0002
- vshd %r29,%r22,%r20
- L$loop: ldws,ma 4(%r25),%r22
- stws,ma %r20,4(%r26)
- addib,= -1,%r24,L$0003
- vshd %r22,%r29,%r20
- ldws,ma 4(%r25),%r29
- stws,ma %r20,4(%r26)
- addib,<> -1,%r24,L$loop
- vshd %r29,%r22,%r20
- L$0002: stws,ma %r20,4(%r26)
- vshd %r0,%r29,%r20
- bv 0(%r2)
- stw %r20,0(%r26)
- L$0003: stws,ma %r20,4(%r26)
- L$0004: vshd %r0,%r22,%r20
- bv 0(%r2)
- stw %r20,0(%r26)
- .exit
- .procend
|
