![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mulww.s CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gmp / mpn / cray|
Return to mulww.s CVS log | Up to [local] / OpenXM_contrib / gmp / mpn / cray |
1.1 ! maekawa 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