summaryrefslogtreecommitdiff
path: root/Build/source/libs/gmp/gmp-6.0.0/mpn/cray/cfp/mulwwj90.s
blob: 1c2c7cddbea437392cf8e6ce0e81412ce22a4681 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
*    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 either:
*
*    * the GNU Lesser General Public License as published by the Free
*      Software Foundation; either version 3 of the License, or (at your
*      option) any later version.
*
*  or
*
*    * the GNU General Public License as published by the Free Software
*      Foundation; either version 2 of the License, or (at your option) any
*      later version.
*
*  or both in parallel, as here.
*
*  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 General Public License
*  for more details.
*
*  You should have received copies of the GNU General Public License and the
*  GNU Lesser General Public License along with the GNU MP Library.  If not,
*  see https://www.gnu.org/licenses/.

            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