github.com/aergoio/aergo@v1.3.1/libtool/src/gmp-6.1.2/mpn/cray/cfp/mulwwc90.s (about) 1 * Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP. 2 3 * Copyright 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 modify 9 * it under the terms of either: 10 * 11 * * the GNU Lesser General Public License as published by the Free 12 * Software Foundation; either version 3 of the License, or (at your 13 * option) any later version. 14 * 15 * or 16 * 17 * * the GNU General Public License as published by the Free Software 18 * Foundation; either version 2 of the License, or (at your option) any 19 * later version. 20 * 21 * or both in parallel, as here. 22 * 23 * The GNU MP Library is distributed in the hope that it will be useful, but 24 * WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY 25 * or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License 26 * for more details. 27 * 28 * You should have received copies of the GNU General Public License and the 29 * GNU Lesser General Public License along with the GNU MP Library. If not, 30 * see https://www.gnu.org/licenses/. 31 32 IDENT GMPN_MULWW 33 ********************************************** 34 * Assemble with Cal Version 2.0 * 35 * * 36 * Generated by CFT77 6.0.4.19 * 37 * on 06/27/00 at 04:34:13 * 38 * * 39 ********************************************** 40 * ALLOW UNDERSCORES IN IDENTIFIERS 41 EDIT OFF 42 FORMAT NEW 43 @DATA SECTION DATA,CM 44 @DATA = W.* 45 CON O'0000000000040000000000 46 CON O'0435152404713723252514 47 CON O'0535270000000000000000 48 CON O'0000000000000001200012 49 VWD 32/0,32/P.GMPN_MULWW 50 CON O'0014003000000000001416 51 CON O'0000000000000000000011 52 CON O'0000000000000000000215 53 BSSZ 1 54 @CODE SECTION CODE 55 @CODE = P.* 56 L3 = P.* 57 A0 A6 58 A5 6 59 B03,A5 0,A0 60 A0 A1+A2 61 A5 1 62 0,A0 T00,A5 63 B02 A2 64 B66 A3 65 B01 A6 66 A7 P.L4 67 B00 A7 68 A6 @DATA 69 J $STKOFEN 70 GMPN_MULWW = P.* 71 A0 @DATA+3 72 B77 A0 73 A1 13 74 A0 B66 75 A2 B66 76 A4 B67 77 0,A0 B77,A1 78 A7 782 79 A3 A2+A7 80 A0 A4-A3 81 JAM L3 82 A0 A6 83 A5 6 84 B03,A5 0,A0 85 A0 A1+A2 86 A5 1 87 0,A0 T00,A5 88 B02 A2 89 B66 A3 90 B01 A6 91 L4 = P.* 92 A7 B07 93 S7 0,A7 94 A6 B10 95 S6 0,A6 96 S5 1 97 S4 <22 98 S7 S7-S5 99 S5 #S7 100 T00 S6 101 S6 S6>22 102 S7 T00 103 S7 S7>44 104 S3 T00 105 S3 S3&S4 106 S6 S6&S4 107 S7 S7&S4 108 S3 S3<24 109 S6 S6<24 110 S7 S7<24 111 S0 S5 112 S4 S5 113 S1 S6 114 S2 S3 115 S3 S7 116 JSP L5 117 L6 = P.* 118 S7 -S4 119 A2 S7 120 VL A2 121 A3 B06 122 A5 B05 123 A4 B04 124 A1 VL 125 A2 S4 126 L7 = P.* 127 A0 A3 128 VL A1 129 V7 ,A0,1 130 B11 A5 131 A7 22 132 B12 A4 133 V6 V7>A7 134 B13 A3 135 S7 <22 136 A3 B02 137 V5 S7&V6 138 A6 24 139 V4 V5<A6 140 V3 S1*FV4 141 V2 S7&V7 142 V1 V2<A6 143 V0 S3*FV1 144 V6 V0+V3 145 A5 44 146 V5 V7>A5 147 V2 S1*FV1 148 V3 S7&V5 149 A0 14 150 B77 A0 151 A4 B77 152 A0 A4+A3 153 ,A0,1 V2 154 V0 V3<A6 155 V7 S2*FV1 156 A4 142 157 A0 A4+A3 158 ,A0,1 V7 159 V5 V7>A7 160 V2 S2*FV0 161 V3 V6+V2 162 S7 <20 163 V1 S7&V3 164 A4 270 165 A0 A4+A3 166 ,A0,1 V0 167 A4 14 168 A0 A4+A3 169 V7 ,A0,1 170 V6 V1<A7 171 V2 S2*FV4 172 V0 V7+V2 173 S7 <42 174 V1 S7&V0 175 A4 398 176 A0 A4+A3 177 ,A0,1 V0 178 V7 S3*FV4 179 V2 V5+V1 180 V0 V3<A5 181 A5 526 182 A0 A5+A3 183 ,A0,1 V0 184 A5 270 185 A0 A5+A3 186 V4 ,A0,1 187 V5 V2+V6 188 A5 20 189 V1 V3>A5 190 V0 S1*FV4 191 A5 654 192 A0 A5+A3 193 ,A0,1 V1 194 V6 V7+V0 195 A5 2 196 V2 V6<A5 197 V3 S3*FV4 198 A5 142 199 A0 A5+A3 200 V1 ,A0,1 201 A5 526 202 A0 A5+A3 203 V7 ,A0,1 204 V0 V1+V7 205 V6 V3<A6 206 V4 V6+V2 207 A6 42 208 V7 V5>A6 209 A5 654 210 CPW 211 A0 A5+A3 212 V1 ,A0,1 213 A5 398 214 A0 A5+A3 215 V3 ,A0,1 216 V6 V4+V1 217 V2 V3>A6 218 V5 V6+V2 219 A6 B12 220 V4 V3<A7 221 A7 B13 222 A3 A7+A1 223 A7 B11 224 A5 A7+A1 225 A4 A6+A1 226 A7 A2+A1 227 A0 A2+A1 228 A2 128 229 B13 A0 230 V1 V0+V4 231 A0 B11 232 ,A0,1 V1 233 V6 V5+V7 234 A0 A6 235 ,A0,1 V6 236 A0 B13 237 A1 A2 238 A2 A7 239 JAN L7 240 L8 = P.* 241 L5 = P.* 242 S1 0 243 A0 B02 244 A2 B02 245 A1 13 246 B66 A0 247 B77,A1 0,A0 248 A0 A2+A1 249 A1 1 250 T00,A1 0,A0 251 J B00 252 EXT $STKOFEN:p 253 ENTRY GMPN_MULWW 254 END