path: root/rts/gmp/mpn/cray/mulww.s

*     Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP.

*     Copyright (C) 1996, 2000 Free Software Foundation, Inc.
*     This file is generated from mulww.f in this same directory.

*     This file is part of the GNU MP Library.

*     The GNU MP Library is free software; you can redistribute it and/or
*     modify it under the terms of the GNU Lesser General Public License as
*     published by the Free Software Foundation; either version 2.1 of the
*     License, or (at your option) any later version.

*     The GNU MP Library is distributed in the hope that it will be useful,
*     but WITHOUT ANY WARRANTY; without even the implied warranty of
*     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
*     Lesser General Public License for more details.

*     You should have received a copy of the GNU Lesser General Public
*     License along with the GNU MP Library; see the file COPYING.LIB.  If
*     not, write to the Free Software Foundation, Inc., 59 Temple Place -
*     Suite 330, Boston, MA 02111-1307, USA.

            IDENT           GMPN_MULWW
**********************************************
*      Assemble with Cal Version 2.0         *
*                                            *
* Generated by CFT77   6.0.4.19              *
*           on 06/27/00 at 04:34:13          *
*                                            *
**********************************************
* ALLOW UNDERSCORES IN IDENTIFIERS
            EDIT            OFF
            FORMAT          NEW
@DATA       SECTION         DATA,CM
@DATA       =               W.*
            CON             O'0000000000040000000000
            CON             O'0435152404713723252514        ;GMPN_MUL       1
            CON             O'0535270000000000000000        ;WW             1
            CON             O'0000000000000001200012        ;trbk tbl       1
            VWD             32/0,32/P.GMPN_MULWW            ;trbk tbl       1
            CON             O'0014003000000000001416        ;trbk tbl       1
            CON             O'0000000000000000000011        ;trbk tbl       1
            CON             O'0000000000000000000215        ;trbk tbl       1
            BSSZ            1                               ;trbk tbl       1
@CODE       SECTION         CODE
@CODE       =               P.*
L3          =               P.*                             ;               1
            A0              A6                              ;arg base       1
            A5              6                               ;num Darg       1
            B03,A5          0,A0                            ;load DAs       1
            A0              A1+A2                           ;               1
            A5              1                               ;num Ts         1
            0,A0            T00,A5                          ;               1
            B02             A2                              ;new base       1
            B66             A3                              ;stk top        1
            B01             A6                              ;arg base       1
            A7              P.L4                            ;ofrn rtn       1
            B00             A7                              ;return         1
            A6              @DATA                           ;               1
            J               $STKOFEN                        ;$STKOFEN       1
GMPN_MULWW  =               P.*                             ;               1
            A0              @DATA+3                         ;(trbk)         1
            B77             A0                              ;(trbk)         1
            A1              13                              ;num Bs         1
            A0              B66                             ;stk top        1
            A2              B66                             ;stk tmp        1
            A4              B67                             ;stk limt       1
            0,A0            B77,A1                          ;               1
            A7              782                             ;stk size       1
            A3              A2+A7                           ;               1
            A0              A4-A3                           ;               1
            JAM             L3                              ;overflow       1
            A0              A6                              ;arg base       1
            A5              6                               ;num Darg       1
            B03,A5          0,A0                            ;load DAs       1
            A0              A1+A2                           ;               1
            A5              1                               ;num Ts         1
            0,A0            T00,A5                          ;               1
            B02             A2                              ;new base       1
            B66             A3                              ;new top        1
            B01             A6                              ;arg base       1
L4          =               P.*                             ;ofrn rtn       1
            A7              B07                             ;regs          14
            S7              0,A7                            ;              14
            A6              B10                             ;regs           9
            S6              0,A6                            ;               9
            S5              1                               ;              14
            S4              <22                             ;               9
            S7              S7-S5                           ;              14
            S5              #S7                             ;              14
            T00             S6                              ;regs          10
            S6              S6>22                           ;              10
            S7              T00                             ;regs          11
            S7              S7>44                           ;              11
            S3              T00                             ;regs           9
            S3              S3&S4                           ;               9
            S6              S6&S4                           ;              10
            S7              S7&S4                           ;              11
            S3              S3<24                           ;               9
            S6              S6<24                           ;              10
            S7              S7<24                           ;              11
            S0              S5                              ;regs          14
            S4              S5                              ;regs          14
            S1              S6                              ;regs          14
            S2              S3                              ;regs          14
            S3              S7                              ;regs          14
            JSP             L5                              ;              14
L6          =               P.*                             ;              14
            S7              -S4                             ;              14
            A2              S7                              ;regs          14
            VL              A2                              ;regs          14
            A3              B06                             ;s_bt_sp       14
            A5              B05                             ;s_bt_sp       14
            A4              B04                             ;s_bt_sp       14
            A1              VL                              ;              14
            A2              S4                              ;regs          14
L7          =               P.*                             ;              14
            A0              A3                              ;regs          15
            VL              A1                              ;regs          15
            V7              ,A0,1                           ;              15
            B11             A5                              ;s_bt_sp       15
            A7              22                              ;              17
            B12             A4                              ;s_bt_sp       17
            V6              V7>A7                           ;              17
            B13             A3                              ;s_bt_sp       17
            S7              <22                             ;              17
            A3              B02                             ;s_bt_sp       17
            V5              S7&V6                           ;              17
            A6              24                              ;              17
            V4              V5<A6                           ;              17
            V3              S1*FV4                          ;              22
            V2              S7&V7                           ;              16
            V1              V2<A6                           ;              16
            V0              S3*FV1                          ;              22
            V6              V0+V3                           ;              22
            A5              44                              ;              18
            V5              V7>A5                           ;              18
            V2              S1*FV1                          ;              21
            V3              S7&V5                           ;              18
            A0              14                              ;              34
            B77             A0                              ;regs          34
            A4              B77                             ;regs          34
            A0              A4+A3                           ;              34
            ,A0,1           V2                              ;v_ld_str      34
            V0              V3<A6                           ;              18
            V7              S2*FV1                          ;              20
            A4              142                             ;              34
            A0              A4+A3                           ;              34
            ,A0,1           V7                              ;v_ld_str      34
            V5              V7>A7                           ;              28
            V2              S2*FV0                          ;              22
            V3              V6+V2                           ;              22
            S7              <20                             ;              28
            V1              S7&V3                           ;              28
            A4              270                             ;              34
            A0              A4+A3                           ;              34
            ,A0,1           V0                              ;v_ld_str      34
            A4              14                              ;              34
            A0              A4+A3                           ;              34
            V7              ,A0,1                           ;v_ld_str      34
            V6              V1<A7                           ;              28
            V2              S2*FV4                          ;              21
            V0              V7+V2                           ;              21
            S7              <42                             ;              28
            V1              S7&V0                           ;              28
            A4              398                             ;              34
            A0              A4+A3                           ;              34
            ,A0,1           V0                              ;v_ld_str      34
            V7              S3*FV4                          ;              23
            V2              V5+V1                           ;              28
            V0              V3<A5                           ;              26
            A5              526                             ;              34
            A0              A5+A3                           ;              34
            ,A0,1           V0                              ;v_ld_str      34
            A5              270                             ;              34
            A0              A5+A3                           ;              34
            V4              ,A0,1                           ;v_ld_str      34
            V5              V2+V6                           ;              28
            A5              20                              ;              32
            V1              V3>A5                           ;              32
            V0              S1*FV4                          ;              23
            A5              654                             ;              34
            A0              A5+A3                           ;              34
            ,A0,1           V1                              ;v_ld_str      34
            V6              V7+V0                           ;              23
            A5              2                               ;              32
            V2              V6<A5                           ;              32
            V3              S3*FV4                          ;              24
            A5              142                             ;              34
            A0              A5+A3                           ;              34
            V1              ,A0,1                           ;v_ld_str      34
            A5              526                             ;              34
            A0              A5+A3                           ;              34
            V7              ,A0,1                           ;v_ld_str      34
            V0              V1+V7                           ;              26
            V6              V3<A6                           ;              32
            V4              V6+V2                           ;              32
            A6              42                              ;              28
            V7              V5>A6                           ;              28
            A5              654                             ;              34
            CPW                                             ;cmr_vrsp      34
            A0              A5+A3                           ;              34
            V1              ,A0,1                           ;v_ld_str      34
            A5              398                             ;              34
            A0              A5+A3                           ;              34
            V3              ,A0,1                           ;v_ld_str      34
            V6              V4+V1                           ;              32
            V2              V3>A6                           ;              32
            V5              V6+V2                           ;              32
            A6              B12                             ;s_bt_sp       32
            V4              V3<A7                           ;              26
            A7              B13                             ;regs          34
            A3              A7+A1                           ;              34
            A7              B11                             ;regs          34
            A5              A7+A1                           ;              34
            A4              A6+A1                           ;              34
            A7              A2+A1                           ;              34
            A0              A2+A1                           ;              34
            A2              128                             ;              34
            B13             A0                              ;s_bt_sp       34
            V1              V0+V4                           ;              26
            A0              B11                             ;regs          31
            ,A0,1           V1                              ;              31
            V6              V5+V7                           ;              33
            A0              A6                              ;regs          33
            ,A0,1           V6                              ;              33
            A0              B13                             ;regs          34
            A1              A2                              ;regs          34
            A2              A7                              ;regs          34
            JAN             L7                              ;              34
L8          =               P.*                             ;              34
L5          =               P.*                             ;              34
            S1              0                               ;              35
            A0              B02                             ;              35
            A2              B02                             ;              35
            A1              13                              ;num Bs        35
            B66             A0                              ;              35
            B77,A1          0,A0                            ;              35
            A0              A2+A1                           ;              35
            A1              1                               ;num Ts        35
            T00,A1          0,A0                            ;              35
            J               B00                             ;              35
            EXT             $STKOFEN:p
            ENTRY           GMPN_MULWW
            END