File: [local] / OpenXM_contrib / gmp / mpn / cray / cfp / Attic / mulwwj90.s (download)
Revision 1.1.1.1 (vendor branch), Mon Aug 25 16:06:19 2003 UTC (21 years ago) by ohara
Branch: GMP
CVS Tags: VERSION_4_1_2, RELEASE_1_2_3, RELEASE_1_2_2_KNOPPIX_b, RELEASE_1_2_2_KNOPPIX Changes since 1.1: +0 -0
lines
Import gmp 4.1.2
|
* Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP.
* Copyright 1996, 2000 Free Software Foundation, Inc.
* This file is generated from mulww.f in this same directory.
* 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.
IDENT GMPN_MULWW
**********************************************
* Assemble with Cal Version 2.0 *
* *
* Generated by CFT77 6.0.4.19 *
* on 06/27/00 at 04:34:13 *
* *
**********************************************
* ALLOW UNDERSCORES IN IDENTIFIERS
EDIT OFF
FORMAT NEW
@DATA SECTION DATA,CM
@DATA = W.*
CON O'0000000000040000000000
CON O'0435152404713723252514
CON O'0535270000000000000000
CON O'0000000000000001200012
VWD 32/0,32/P.GMPN_MULWW
CON O'0014003000000000001416
CON O'0000000000000000000011
CON O'0000000000000000000215
BSSZ 1
@CODE SECTION CODE
@CODE = P.*
L3 = P.*
A0 A6
A5 6
B03,A5 0,A0
A0 A1+A2
A5 1
0,A0 T00,A5
B02 A2
B66 A3
B01 A6
A7 P.L4
B00 A7
A6 @DATA
J $STKOFEN
GMPN_MULWW = P.*
A0 @DATA+3
B77 A0
A1 13
A0 B66
A2 B66
A4 B67
0,A0 B77,A1
A7 782
A3 A2+A7
A0 A4-A3
JAM L3
A0 A6
A5 6
B03,A5 0,A0
A0 A1+A2
A5 1
0,A0 T00,A5
B02 A2
B66 A3
B01 A6
L4 = P.*
A7 B07
S7 0,A7
A6 B10
S6 0,A6
S5 1
S4 <22
S7 S7-S5
S5 #S7
T00 S6
S6 S6>22
S7 T00
S7 S7>44
S3 T00
S3 S3&S4
S6 S6&S4
S7 S7&S4
S3 S3<24
S6 S6<24
S7 S7<24
S0 S5
S4 S5
S1 S6
S2 S3
S3 S7
JSP L5
L6 = P.*
S7 -S4
A2 S7
VL A2
A3 B06
A5 B05
A4 B04
A1 VL
A2 S4
L7 = P.*
A0 A3
VL A1
V7 ,A0,1
B11 A5
A7 22
B12 A4
V6 V7>A7
B13 A3
S7 <22
A3 B02
V5 S7&V6
A6 24
V4 V5<A6
V3 S1*FV4
V2 S7&V7
V1 V2<A6
V0 S3*FV1
V6 V0+V3
A5 44
V5 V7>A5
V2 S1*FV1
V3 S7&V5
A0 14
B77 A0
A4 B77
A0 A4+A3
,A0,1 V2
V0 V3<A6
V7 S2*FV1
A4 142
A0 A4+A3
,A0,1 V7
V5 V7>A7
V2 S2*FV0
V3 V6+V2
S7 <20
V1 S7&V3
A4 270
A0 A4+A3
,A0,1 V0
A4 14
A0 A4+A3
V7 ,A0,1
V6 V1<A7
V2 S2*FV4
V0 V7+V2
S7 <42
V1 S7&V0
A4 398
A0 A4+A3
,A0,1 V0
V7 S3*FV4
V2 V5+V1
V0 V3<A5
A5 526
A0 A5+A3
,A0,1 V0
A5 270
A0 A5+A3
V4 ,A0,1
V5 V2+V6
A5 20
V1 V3>A5
V0 S1*FV4
A5 654
A0 A5+A3
,A0,1 V1
V6 V7+V0
A5 2
V2 V6<A5
V3 S3*FV4
A5 142
A0 A5+A3
V1 ,A0,1
A5 526
A0 A5+A3
V7 ,A0,1
V0 V1+V7
V6 V3<A6
V4 V6+V2
A6 42
V7 V5>A6
A5 654
A0 A5+A3
V1 ,A0,1
A5 398
A0 A5+A3
V3 ,A0,1
V6 V4+V1
V2 V3>A6
V5 V6+V2
A6 B12
V4 V3<A7
A7 B13
A3 A7+A1
A7 B11
A5 A7+A1
A4 A6+A1
A7 A2+A1
A0 A2+A1
A2 64
B13 A0
V1 V0+V4
A0 B11
,A0,1 V1
V6 V5+V7
A0 A6
,A0,1 V6
A0 B13
A1 A2
A2 A7
JAN L7
L8 = P.*
L5 = P.*
S1 0
A0 B02
A2 B02
A1 13
B66 A0
B77,A1 0,A0
A0 A2+A1
A1 1
T00,A1 0,A0
J B00
EXT $STKOFEN:p
ENTRY GMPN_MULWW
END