File: [local] / OpenXM_contrib / gmp / mpn / cray / Attic / mulww.s (download)
Revision 1.1.1.1 (vendor branch), Sat Sep 9 14:12:23 2000 UTC (23 years, 11 months ago) by maekawa
Branch: GMP
CVS Tags: maekawa-ipv6, VERSION_3_1_1, VERSION_3_1, RELEASE_1_2_2, RELEASE_1_2_1, RELEASE_1_1_3 Changes since 1.1: +0 -0
lines
Import gmp 3.1
|
* Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP.
* Copyright (C) 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 ;GMPN_MUL 1
CON O'0535270000000000000000 ;WW 1
CON O'0000000000000001200012 ;trbk tbl 1
VWD 32/0,32/P.GMPN_MULWW ;trbk tbl 1
CON O'0014003000000000001416 ;trbk tbl 1
CON O'0000000000000000000011 ;trbk tbl 1
CON O'0000000000000000000215 ;trbk tbl 1
BSSZ 1 ;trbk tbl 1
@CODE SECTION CODE
@CODE = P.*
L3 = P.* ; 1
A0 A6 ;arg base 1
A5 6 ;num Darg 1
B03,A5 0,A0 ;load DAs 1
A0 A1+A2 ; 1
A5 1 ;num Ts 1
0,A0 T00,A5 ; 1
B02 A2 ;new base 1
B66 A3 ;stk top 1
B01 A6 ;arg base 1
A7 P.L4 ;ofrn rtn 1
B00 A7 ;return 1
A6 @DATA ; 1
J $STKOFEN ;$STKOFEN 1
GMPN_MULWW = P.* ; 1
A0 @DATA+3 ;(trbk) 1
B77 A0 ;(trbk) 1
A1 13 ;num Bs 1
A0 B66 ;stk top 1
A2 B66 ;stk tmp 1
A4 B67 ;stk limt 1
0,A0 B77,A1 ; 1
A7 782 ;stk size 1
A3 A2+A7 ; 1
A0 A4-A3 ; 1
JAM L3 ;overflow 1
A0 A6 ;arg base 1
A5 6 ;num Darg 1
B03,A5 0,A0 ;load DAs 1
A0 A1+A2 ; 1
A5 1 ;num Ts 1
0,A0 T00,A5 ; 1
B02 A2 ;new base 1
B66 A3 ;new top 1
B01 A6 ;arg base 1
L4 = P.* ;ofrn rtn 1
A7 B07 ;regs 14
S7 0,A7 ; 14
A6 B10 ;regs 9
S6 0,A6 ; 9
S5 1 ; 14
S4 <22 ; 9
S7 S7-S5 ; 14
S5 #S7 ; 14
T00 S6 ;regs 10
S6 S6>22 ; 10
S7 T00 ;regs 11
S7 S7>44 ; 11
S3 T00 ;regs 9
S3 S3&S4 ; 9
S6 S6&S4 ; 10
S7 S7&S4 ; 11
S3 S3<24 ; 9
S6 S6<24 ; 10
S7 S7<24 ; 11
S0 S5 ;regs 14
S4 S5 ;regs 14
S1 S6 ;regs 14
S2 S3 ;regs 14
S3 S7 ;regs 14
JSP L5 ; 14
L6 = P.* ; 14
S7 -S4 ; 14
A2 S7 ;regs 14
VL A2 ;regs 14
A3 B06 ;s_bt_sp 14
A5 B05 ;s_bt_sp 14
A4 B04 ;s_bt_sp 14
A1 VL ; 14
A2 S4 ;regs 14
L7 = P.* ; 14
A0 A3 ;regs 15
VL A1 ;regs 15
V7 ,A0,1 ; 15
B11 A5 ;s_bt_sp 15
A7 22 ; 17
B12 A4 ;s_bt_sp 17
V6 V7>A7 ; 17
B13 A3 ;s_bt_sp 17
S7 <22 ; 17
A3 B02 ;s_bt_sp 17
V5 S7&V6 ; 17
A6 24 ; 17
V4 V5<A6 ; 17
V3 S1*FV4 ; 22
V2 S7&V7 ; 16
V1 V2<A6 ; 16
V0 S3*FV1 ; 22
V6 V0+V3 ; 22
A5 44 ; 18
V5 V7>A5 ; 18
V2 S1*FV1 ; 21
V3 S7&V5 ; 18
A0 14 ; 34
B77 A0 ;regs 34
A4 B77 ;regs 34
A0 A4+A3 ; 34
,A0,1 V2 ;v_ld_str 34
V0 V3<A6 ; 18
V7 S2*FV1 ; 20
A4 142 ; 34
A0 A4+A3 ; 34
,A0,1 V7 ;v_ld_str 34
V5 V7>A7 ; 28
V2 S2*FV0 ; 22
V3 V6+V2 ; 22
S7 <20 ; 28
V1 S7&V3 ; 28
A4 270 ; 34
A0 A4+A3 ; 34
,A0,1 V0 ;v_ld_str 34
A4 14 ; 34
A0 A4+A3 ; 34
V7 ,A0,1 ;v_ld_str 34
V6 V1<A7 ; 28
V2 S2*FV4 ; 21
V0 V7+V2 ; 21
S7 <42 ; 28
V1 S7&V0 ; 28
A4 398 ; 34
A0 A4+A3 ; 34
,A0,1 V0 ;v_ld_str 34
V7 S3*FV4 ; 23
V2 V5+V1 ; 28
V0 V3<A5 ; 26
A5 526 ; 34
A0 A5+A3 ; 34
,A0,1 V0 ;v_ld_str 34
A5 270 ; 34
A0 A5+A3 ; 34
V4 ,A0,1 ;v_ld_str 34
V5 V2+V6 ; 28
A5 20 ; 32
V1 V3>A5 ; 32
V0 S1*FV4 ; 23
A5 654 ; 34
A0 A5+A3 ; 34
,A0,1 V1 ;v_ld_str 34
V6 V7+V0 ; 23
A5 2 ; 32
V2 V6<A5 ; 32
V3 S3*FV4 ; 24
A5 142 ; 34
A0 A5+A3 ; 34
V1 ,A0,1 ;v_ld_str 34
A5 526 ; 34
A0 A5+A3 ; 34
V7 ,A0,1 ;v_ld_str 34
V0 V1+V7 ; 26
V6 V3<A6 ; 32
V4 V6+V2 ; 32
A6 42 ; 28
V7 V5>A6 ; 28
A5 654 ; 34
CPW ;cmr_vrsp 34
A0 A5+A3 ; 34
V1 ,A0,1 ;v_ld_str 34
A5 398 ; 34
A0 A5+A3 ; 34
V3 ,A0,1 ;v_ld_str 34
V6 V4+V1 ; 32
V2 V3>A6 ; 32
V5 V6+V2 ; 32
A6 B12 ;s_bt_sp 32
V4 V3<A7 ; 26
A7 B13 ;regs 34
A3 A7+A1 ; 34
A7 B11 ;regs 34
A5 A7+A1 ; 34
A4 A6+A1 ; 34
A7 A2+A1 ; 34
A0 A2+A1 ; 34
A2 128 ; 34
B13 A0 ;s_bt_sp 34
V1 V0+V4 ; 26
A0 B11 ;regs 31
,A0,1 V1 ; 31
V6 V5+V7 ; 33
A0 A6 ;regs 33
,A0,1 V6 ; 33
A0 B13 ;regs 34
A1 A2 ;regs 34
A2 A7 ;regs 34
JAN L7 ; 34
L8 = P.* ; 34
L5 = P.* ; 34
S1 0 ; 35
A0 B02 ; 35
A2 B02 ; 35
A1 13 ;num Bs 35
B66 A0 ; 35
B77,A1 0,A0 ; 35
A0 A2+A1 ; 35
A1 1 ;num Ts 35
T00,A1 0,A0 ; 35
J B00 ; 35
EXT $STKOFEN:p
ENTRY GMPN_MULWW
END