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