| * Helper for mpn_mul_1, mpn_addmul_1, and mpn_submul_1 for Cray PVP. |
| |
| * Copyright 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 3 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. If not, see http://www.gnu.org/licenses/. |
| |
| 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 |
| CON O'0535270000000000000000 |
| CON O'0000000000000001200012 |
| VWD 32/0,32/P.GMPN_MULWW |
| CON O'0014003000000000001416 |
| CON O'0000000000000000000011 |
| CON O'0000000000000000000215 |
| BSSZ 1 |
| @CODE SECTION CODE |
| @CODE = P.* |
| L3 = P.* |
| A0 A6 |
| A5 6 |
| B03,A5 0,A0 |
| A0 A1+A2 |
| A5 1 |
| 0,A0 T00,A5 |
| B02 A2 |
| B66 A3 |
| B01 A6 |
| A7 P.L4 |
| B00 A7 |
| A6 @DATA |
| J $STKOFEN |
| GMPN_MULWW = P.* |
| A0 @DATA+3 |
| B77 A0 |
| A1 13 |
| A0 B66 |
| A2 B66 |
| A4 B67 |
| 0,A0 B77,A1 |
| A7 782 |
| A3 A2+A7 |
| A0 A4-A3 |
| JAM L3 |
| A0 A6 |
| A5 6 |
| B03,A5 0,A0 |
| A0 A1+A2 |
| A5 1 |
| 0,A0 T00,A5 |
| B02 A2 |
| B66 A3 |
| B01 A6 |
| L4 = P.* |
| A7 B07 |
| S7 0,A7 |
| A6 B10 |
| S6 0,A6 |
| S5 1 |
| S4 <22 |
| S7 S7-S5 |
| S5 #S7 |
| T00 S6 |
| S6 S6>22 |
| S7 T00 |
| S7 S7>44 |
| S3 T00 |
| S3 S3&S4 |
| S6 S6&S4 |
| S7 S7&S4 |
| S3 S3<24 |
| S6 S6<24 |
| S7 S7<24 |
| S0 S5 |
| S4 S5 |
| S1 S6 |
| S2 S3 |
| S3 S7 |
| JSP L5 |
| L6 = P.* |
| S7 -S4 |
| A2 S7 |
| VL A2 |
| A3 B06 |
| A5 B05 |
| A4 B04 |
| A1 VL |
| A2 S4 |
| L7 = P.* |
| A0 A3 |
| VL A1 |
| V7 ,A0,1 |
| B11 A5 |
| A7 22 |
| B12 A4 |
| V6 V7>A7 |
| B13 A3 |
| S7 <22 |
| A3 B02 |
| V5 S7&V6 |
| A6 24 |
| V4 V5<A6 |
| V3 S1*FV4 |
| V2 S7&V7 |
| V1 V2<A6 |
| V0 S3*FV1 |
| V6 V0+V3 |
| A5 44 |
| V5 V7>A5 |
| V2 S1*FV1 |
| V3 S7&V5 |
| A0 14 |
| B77 A0 |
| A4 B77 |
| A0 A4+A3 |
| ,A0,1 V2 |
| V0 V3<A6 |
| V7 S2*FV1 |
| A4 142 |
| A0 A4+A3 |
| ,A0,1 V7 |
| V5 V7>A7 |
| V2 S2*FV0 |
| V3 V6+V2 |
| S7 <20 |
| V1 S7&V3 |
| A4 270 |
| A0 A4+A3 |
| ,A0,1 V0 |
| A4 14 |
| A0 A4+A3 |
| V7 ,A0,1 |
| V6 V1<A7 |
| V2 S2*FV4 |
| V0 V7+V2 |
| S7 <42 |
| V1 S7&V0 |
| A4 398 |
| A0 A4+A3 |
| ,A0,1 V0 |
| V7 S3*FV4 |
| V2 V5+V1 |
| V0 V3<A5 |
| A5 526 |
| A0 A5+A3 |
| ,A0,1 V0 |
| A5 270 |
| A0 A5+A3 |
| V4 ,A0,1 |
| V5 V2+V6 |
| A5 20 |
| V1 V3>A5 |
| V0 S1*FV4 |
| A5 654 |
| A0 A5+A3 |
| ,A0,1 V1 |
| V6 V7+V0 |
| A5 2 |
| V2 V6<A5 |
| V3 S3*FV4 |
| A5 142 |
| A0 A5+A3 |
| V1 ,A0,1 |
| A5 526 |
| A0 A5+A3 |
| V7 ,A0,1 |
| V0 V1+V7 |
| V6 V3<A6 |
| V4 V6+V2 |
| A6 42 |
| V7 V5>A6 |
| A5 654 |
| A0 A5+A3 |
| V1 ,A0,1 |
| A5 398 |
| A0 A5+A3 |
| V3 ,A0,1 |
| V6 V4+V1 |
| V2 V3>A6 |
| V5 V6+V2 |
| A6 B12 |
| V4 V3<A7 |
| A7 B13 |
| A3 A7+A1 |
| A7 B11 |
| A5 A7+A1 |
| A4 A6+A1 |
| A7 A2+A1 |
| A0 A2+A1 |
| A2 64 |
| B13 A0 |
| V1 V0+V4 |
| A0 B11 |
| ,A0,1 V1 |
| V6 V5+V7 |
| A0 A6 |
| ,A0,1 V6 |
| A0 B13 |
| A1 A2 |
| A2 A7 |
| JAN L7 |
| L8 = P.* |
| L5 = P.* |
| S1 0 |
| A0 B02 |
| A2 B02 |
| A1 13 |
| B66 A0 |
| B77,A1 0,A0 |
| A0 A2+A1 |
| A1 1 |
| T00,A1 0,A0 |
| J B00 |
| EXT $STKOFEN:p |
| ENTRY GMPN_MULWW |
| END |