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.* 56L3 = 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 70GMPN_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 91L4 = 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 117L6 = 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 126L7 = 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 A0 A5+A3 211 V1 ,A0,1 212 A5 398 213 A0 A5+A3 214 V3 ,A0,1 215 V6 V4+V1 216 V2 V3>A6 217 V5 V6+V2 218 A6 B12 219 V4 V3<A7 220 A7 B13 221 A3 A7+A1 222 A7 B11 223 A5 A7+A1 224 A4 A6+A1 225 A7 A2+A1 226 A0 A2+A1 227 A2 64 228 B13 A0 229 V1 V0+V4 230 A0 B11 231 ,A0,1 V1 232 V6 V5+V7 233 A0 A6 234 ,A0,1 V6 235 A0 B13 236 A1 A2 237 A2 A7 238 JAN L7 239L8 = P.* 240L5 = P.* 241 S1 0 242 A0 B02 243 A2 B02 244 A1 13 245 B66 A0 246 B77,A1 0,A0 247 A0 A2+A1 248 A1 1 249 T00,A1 0,A0 250 J B00 251 EXT $STKOFEN:p 252 ENTRY GMPN_MULWW 253 END 254