mpn/cray/cfp/mulwwc90.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
   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.*
  45 L3          =               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
  59 GMPN_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
  80 L4          =               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
 106 L6          =               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
 115 L7          =               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
 229 L8          =               P.*
 230 L5          =               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