![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mulww.s CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpn / cray|
Return to mulww.s CVS log | Up to [local] / OpenXM_contrib / gmp / mpn / cray |
1.1 maekawa 1: * Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP.
2:
3: * Copyright (C) 1996, 2000 Free Software Foundation, Inc.
4: * This file is generated from mulww.f in this same directory.
5:
6: * This file is part of the GNU MP Library.
7:
8: * The GNU MP Library is free software; you can redistribute it and/or
9: * modify it under the terms of the GNU Lesser General Public License as
10: * published by the Free Software Foundation; either version 2.1 of the
11: * License, or (at your option) any later version.
12:
13: * The GNU MP Library is distributed in the hope that it will be useful,
14: * but WITHOUT ANY WARRANTY; without even the implied warranty of
15: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
16: * Lesser General Public License for more details.
17:
18: * You should have received a copy of the GNU Lesser General Public
19: * License along with the GNU MP Library; see the file COPYING.LIB. If
20: * not, write to the Free Software Foundation, Inc., 59 Temple Place -
21: * Suite 330, Boston, MA 02111-1307, USA.
22:
23: IDENT GMPN_MULWW
24: **********************************************
25: * Assemble with Cal Version 2.0 *
26: * *
27: * Generated by CFT77 6.0.4.19 *
28: * on 06/27/00 at 04:34:13 *
29: * *
30: **********************************************
31: * ALLOW UNDERSCORES IN IDENTIFIERS
32: EDIT OFF
33: FORMAT NEW
34: @DATA SECTION DATA,CM
35: @DATA = W.*
36: CON O'0000000000040000000000
37: CON O'0435152404713723252514 ;GMPN_MUL 1
38: CON O'0535270000000000000000 ;WW 1
39: CON O'0000000000000001200012 ;trbk tbl 1
40: VWD 32/0,32/P.GMPN_MULWW ;trbk tbl 1
41: CON O'0014003000000000001416 ;trbk tbl 1
42: CON O'0000000000000000000011 ;trbk tbl 1
43: CON O'0000000000000000000215 ;trbk tbl 1
44: BSSZ 1 ;trbk tbl 1
45: @CODE SECTION CODE
46: @CODE = P.*
47: L3 = P.* ; 1
48: A0 A6 ;arg base 1
49: A5 6 ;num Darg 1
50: B03,A5 0,A0 ;load DAs 1
51: A0 A1+A2 ; 1
52: A5 1 ;num Ts 1
53: 0,A0 T00,A5 ; 1
54: B02 A2 ;new base 1
55: B66 A3 ;stk top 1
56: B01 A6 ;arg base 1
57: A7 P.L4 ;ofrn rtn 1
58: B00 A7 ;return 1
59: A6 @DATA ; 1
60: J $STKOFEN ;$STKOFEN 1
61: GMPN_MULWW = P.* ; 1
62: A0 @DATA+3 ;(trbk) 1
63: B77 A0 ;(trbk) 1
64: A1 13 ;num Bs 1
65: A0 B66 ;stk top 1
66: A2 B66 ;stk tmp 1
67: A4 B67 ;stk limt 1
68: 0,A0 B77,A1 ; 1
69: A7 782 ;stk size 1
70: A3 A2+A7 ; 1
71: A0 A4-A3 ; 1
72: JAM L3 ;overflow 1
73: A0 A6 ;arg base 1
74: A5 6 ;num Darg 1
75: B03,A5 0,A0 ;load DAs 1
76: A0 A1+A2 ; 1
77: A5 1 ;num Ts 1
78: 0,A0 T00,A5 ; 1
79: B02 A2 ;new base 1
80: B66 A3 ;new top 1
81: B01 A6 ;arg base 1
82: L4 = P.* ;ofrn rtn 1
83: A7 B07 ;regs 14
84: S7 0,A7 ; 14
85: A6 B10 ;regs 9
86: S6 0,A6 ; 9
87: S5 1 ; 14
88: S4 <22 ; 9
89: S7 S7-S5 ; 14
90: S5 #S7 ; 14
91: T00 S6 ;regs 10
92: S6 S6>22 ; 10
93: S7 T00 ;regs 11
94: S7 S7>44 ; 11
95: S3 T00 ;regs 9
96: S3 S3&S4 ; 9
97: S6 S6&S4 ; 10
98: S7 S7&S4 ; 11
99: S3 S3<24 ; 9
100: S6 S6<24 ; 10
101: S7 S7<24 ; 11
102: S0 S5 ;regs 14
103: S4 S5 ;regs 14
104: S1 S6 ;regs 14
105: S2 S3 ;regs 14
106: S3 S7 ;regs 14
107: JSP L5 ; 14
108: L6 = P.* ; 14
109: S7 -S4 ; 14
110: A2 S7 ;regs 14
111: VL A2 ;regs 14
112: A3 B06 ;s_bt_sp 14
113: A5 B05 ;s_bt_sp 14
114: A4 B04 ;s_bt_sp 14
115: A1 VL ; 14
116: A2 S4 ;regs 14
117: L7 = P.* ; 14
118: A0 A3 ;regs 15
119: VL A1 ;regs 15
120: V7 ,A0,1 ; 15
121: B11 A5 ;s_bt_sp 15
122: A7 22 ; 17
123: B12 A4 ;s_bt_sp 17
124: V6 V7>A7 ; 17
125: B13 A3 ;s_bt_sp 17
126: S7 <22 ; 17
127: A3 B02 ;s_bt_sp 17
128: V5 S7&V6 ; 17
129: A6 24 ; 17
130: V4 V5<A6 ; 17
131: V3 S1*FV4 ; 22
132: V2 S7&V7 ; 16
133: V1 V2<A6 ; 16
134: V0 S3*FV1 ; 22
135: V6 V0+V3 ; 22
136: A5 44 ; 18
137: V5 V7>A5 ; 18
138: V2 S1*FV1 ; 21
139: V3 S7&V5 ; 18
140: A0 14 ; 34
141: B77 A0 ;regs 34
142: A4 B77 ;regs 34
143: A0 A4+A3 ; 34
144: ,A0,1 V2 ;v_ld_str 34
145: V0 V3<A6 ; 18
146: V7 S2*FV1 ; 20
147: A4 142 ; 34
148: A0 A4+A3 ; 34
149: ,A0,1 V7 ;v_ld_str 34
150: V5 V7>A7 ; 28
151: V2 S2*FV0 ; 22
152: V3 V6+V2 ; 22
153: S7 <20 ; 28
154: V1 S7&V3 ; 28
155: A4 270 ; 34
156: A0 A4+A3 ; 34
157: ,A0,1 V0 ;v_ld_str 34
158: A4 14 ; 34
159: A0 A4+A3 ; 34
160: V7 ,A0,1 ;v_ld_str 34
161: V6 V1<A7 ; 28
162: V2 S2*FV4 ; 21
163: V0 V7+V2 ; 21
164: S7 <42 ; 28
165: V1 S7&V0 ; 28
166: A4 398 ; 34
167: A0 A4+A3 ; 34
168: ,A0,1 V0 ;v_ld_str 34
169: V7 S3*FV4 ; 23
170: V2 V5+V1 ; 28
171: V0 V3<A5 ; 26
172: A5 526 ; 34
173: A0 A5+A3 ; 34
174: ,A0,1 V0 ;v_ld_str 34
175: A5 270 ; 34
176: A0 A5+A3 ; 34
177: V4 ,A0,1 ;v_ld_str 34
178: V5 V2+V6 ; 28
179: A5 20 ; 32
180: V1 V3>A5 ; 32
181: V0 S1*FV4 ; 23
182: A5 654 ; 34
183: A0 A5+A3 ; 34
184: ,A0,1 V1 ;v_ld_str 34
185: V6 V7+V0 ; 23
186: A5 2 ; 32
187: V2 V6<A5 ; 32
188: V3 S3*FV4 ; 24
189: A5 142 ; 34
190: A0 A5+A3 ; 34
191: V1 ,A0,1 ;v_ld_str 34
192: A5 526 ; 34
193: A0 A5+A3 ; 34
194: V7 ,A0,1 ;v_ld_str 34
195: V0 V1+V7 ; 26
196: V6 V3<A6 ; 32
197: V4 V6+V2 ; 32
198: A6 42 ; 28
199: V7 V5>A6 ; 28
200: A5 654 ; 34
201: CPW ;cmr_vrsp 34
202: A0 A5+A3 ; 34
203: V1 ,A0,1 ;v_ld_str 34
204: A5 398 ; 34
205: A0 A5+A3 ; 34
206: V3 ,A0,1 ;v_ld_str 34
207: V6 V4+V1 ; 32
208: V2 V3>A6 ; 32
209: V5 V6+V2 ; 32
210: A6 B12 ;s_bt_sp 32
211: V4 V3<A7 ; 26
212: A7 B13 ;regs 34
213: A3 A7+A1 ; 34
214: A7 B11 ;regs 34
215: A5 A7+A1 ; 34
216: A4 A6+A1 ; 34
217: A7 A2+A1 ; 34
218: A0 A2+A1 ; 34
219: A2 128 ; 34
220: B13 A0 ;s_bt_sp 34
221: V1 V0+V4 ; 26
222: A0 B11 ;regs 31
223: ,A0,1 V1 ; 31
224: V6 V5+V7 ; 33
225: A0 A6 ;regs 33
226: ,A0,1 V6 ; 33
227: A0 B13 ;regs 34
228: A1 A2 ;regs 34
229: A2 A7 ;regs 34
230: JAN L7 ; 34
231: L8 = P.* ; 34
232: L5 = P.* ; 34
233: S1 0 ; 35
234: A0 B02 ; 35
235: A2 B02 ; 35
236: A1 13 ;num Bs 35
237: B66 A0 ; 35
238: B77,A1 0,A0 ; 35
239: A0 A2+A1 ; 35
240: A1 1 ;num Ts 35
241: T00,A1 0,A0 ; 35
242: J B00 ; 35
243: EXT $STKOFEN:p
244: ENTRY GMPN_MULWW
245: END