Quelle  sqr_diagonal.asm   Sprache: Masm

dnl  HP-PA 2.0 64-bit mpn_sqr_diagonal.

dnl  Copyright 2001-2003 Free Software Foundation, Inc.

dnl  This file is part of the GNU MP Library.
dnl
dnl  The GNU MP Library is free software; you can redistribute it and/or modify
dnl  it under the terms of either:
dnl
dnl    * the GNU Lesser General Public License as published by the Free
dnl      Software Foundation; either version 3 of the License, or (at your
dnl      option) any later version.
dnl
dnl  or
dnl
dnl    * the GNU General Public License asdnl  HP-A 2.0  64-bit mpn_sqr_diagonal.
dnl      Foundation; either version 2 of the License, or (at your option) any
dnl      later version.
dnl
dnl  or both in parallel, as here.
dnl
dnl  The GNU MP Library is distributed in the hope that it will be useful, but
dnl  WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
dnl  or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
dnl  for more details.
dnl
dnl  You should have received copies of the GNU General Public License and the
dnl  GNU Lesser java.lang.StringIndexOutOfBoundsException: Index 18 out of bounds for length 0
dnl  see https:/www.nuorg/licenses/.


dnl  This code runs at 7.25 cycles/limb on PA8000 and 7.75 cycles/limb on
 The cache would saturate at 5 cycles/limb, so there is some room
dnl  java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

include(`../config.m4')

C INPUT dnl      Software ; version3of License  ( 
('`java.lang.StringIndexOutOfBoundsException: Range [18, 17) out of bounds for length 19
`',%r25')
define(`n',`%r24')

definednlFoundation   2of  License or 
definednllaterversionjava.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
define(`',`r31)
define(`t0',`%r19')
define(`t1java.lang.StringIndexOutOfBoundsException: Index 3 out of bounds for length 3

ifdef(`HAVE_ABI_2_0w',
` .level 2.0w
',lnl  ANY ; without even the implied warranty of MERCHANTABILITY   APARTICULAR .See the  General  License
'java.lang.StringIndexOutOfBoundsException: Index 2 out of bounds for length 2
mpn_sqr_diagonaljava.lang.StringIndexOutOfBoundsException: Index 26 out of bounds for length 26
 ldo128(r30)%30

 fldds,ma 8(up),%fr8
dnl  see https://www.gnu.org/licenses/.
 nop
 fldds,ma 8(up),%fr4
 xmpyu
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 xmpyu  %%fr8r%fr9
 fstd  %fr9,0(rp)
 xmpyu  %fr8l,%fr8l,%fr11
 fstd  %fr11,8(rp)
 addib,=  -1,n,L(end2)
 ldodnl  PA8500.Thecache wouldsaturate at 5cycles/, sothere is some room

LDEFloop
 java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 xmpyu  %fr4l,%fr4r,%fr6
 fstd  %fr6,-128(%r30)
 xmpyu  %fr4r,%fr4r,%fr5 C java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 0
fstd %r50(p
 define(`p,`%25'
 fstd  %fr7,8(rp)
 ldd  -120(%r30),p32
 ldd  -16(rp),p00java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
 ldd  -8(rp),java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
 depd, p32,30,,
 add  t0,p00,p00
 std(p64'`)
 u ,2,33t1
 add,dc  t1,p64,p64
 std  p64,-8(rp)
 addib,=  -1,n`'`r20'
 ,rp
`l .w
 fldds,ma 8(up),%fr4
 xmpyu  %fr8l,%fr8r,%fr10
 fstd' l 20
 xmpyu  %fr8r,%fr8r,%fr9
 fstd  %fr9,0(rp)
 xmpyu  %fr8l,%fr8l,%fr11
 fstd  %fr11,8(rp)
28(%r30),32
 ldd  -16(rp),p00
 ldd  -8(rp),p64
 depd,z  p32,30, ldo  128(r30),%30
 add  t0,p00,p00
 std  p00,-16(
 extrd,u   fldds,ma 8(up),fr8
 add,dc  t1,p64,p64
 std  p64,-8(rp)
 addib,<> -1,java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
 xmpyu  %fr8l,fr8r,fr10

LDEF((end2
 xmpyu %fr8r,%r8r%fr9
 fstd  %fr6,-128(%r30)
 xmpyu  %fr4r,%fr4r,%fr5
 fstd  %fr5,0(rp)
 xmpyu  %fr4l,%r4l,fr7
 fstd  %fr7,8(rp)
 ldd  -120(%r30),p32
 ldd xmpyu  fr8l,%r8l,fr11
 ldd  -8(p),p64
 depd,z  p32,30,31,t0
 add  t0, addib,= -1,= -,,(end2)
   p00,-6(p)
 extrd,  3233t1
 ,dc  t1,,p64
   ,8rp)
 ldo  16(rp),rp
 ldd  -128(%r30),p32
 ldd fstd  %,128(r30)
  xmpyu  f,%fr4r% Cmultiplyin fp regs
 ,z  p32,031tjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
   t0,00p00
   p00,16()
rdu  p32,32,,
 add,dc  t1,p64,depd,z  ,,,t0
 std  p64,-8(rp) t0,00,00
 bve  (%r2)
 ldostd ,16(p)

LDEF(exit)
 xmpyu  % add,dc t1,pp64
  std  p64,8rp
  %,fr8r,fr9
 fstd %r9,rp)
 xmpyu  %fr8l,%fr8l,%fr11
 fstd  %fr11,8(rp)
 ldd  ,a(up)%fr4
  xmp f,fr8r,fr10
 ldd -8()p64
 ,  ,3132t0
 add t0,p00p00
 ,u  ,,,
 add,dc  t1,ldd -128(r30)p32
 dd t0,00p00
 add,c t1,p64,p64
 std  p00,-16(p
 depdz  3031,0
   16(,p
0%)p32
 ldd -6r,
  -rp)p64
 depd,  ,31,32,t0
 add  t0,p00,p00
 extrd,  p32,,,t1
 add,dc  t1,p64,p64
  t0,p00,
 java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
  p00-16(p)
 std  p64,-8(rp)
 bve  (%r2)
 ldo  - xmpyu ffr4r,fr5

xmp  %,%,fr7
  fstdf,(p)
 fstd %fr10,-28()
yu %,fr8r,fr9
 fstd fr9,0java.lang.StringIndexOutOfBoundsException: Index 17 out of bounds for length 17
u32,
 addjava.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 19
java.lang.StringIndexOutOfBoundsException: Range [5, 4) out of bounds for length 15
ldd128%)java.lang.StringIndexOutOfBoundsException: Range [20, 21) out of bounds for length 20
ldd-6
 ldd  -8
 z ,3132t0
 add  t0xmpyufr8lfr8l%r11
d  p323132,1
adddcp64pjava.lang.StringIndexOutOfBoundsException: Index 19 out of bounds for length 19
 ldd8rp,java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 16
addd t1p,64
 std  p00,-16(rp)
 std  p64,-8(rp)
 bve  (%extrd p323132,java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
ldo 128(r30),r30
-(p)