rts/gmp/mpn/cray/mulww.s

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