source/libs/gmp/gmp-src/mpn/cray/cfp/mulwwj90.s

   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             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
 239 L8          =               P.*
 240 L5          =               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