![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to mulwwc90.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 / cfp|
Return to mulwwc90.s CVS log | Up to [local] / OpenXM_contrib / gmp / mpn / cray / cfp |
1.1 ! ohara 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 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
! 38: CON O'0535270000000000000000
! 39: CON O'0000000000000001200012
! 40: VWD 32/0,32/P.GMPN_MULWW
! 41: CON O'0014003000000000001416
! 42: CON O'0000000000000000000011
! 43: CON O'0000000000000000000215
! 44: BSSZ 1
! 45: @CODE SECTION CODE
! 46: @CODE = P.*
! 47: L3 = P.*
! 48: A0 A6
! 49: A5 6
! 50: B03,A5 0,A0
! 51: A0 A1+A2
! 52: A5 1
! 53: 0,A0 T00,A5
! 54: B02 A2
! 55: B66 A3
! 56: B01 A6
! 57: A7 P.L4
! 58: B00 A7
! 59: A6 @DATA
! 60: J $STKOFEN
! 61: GMPN_MULWW = P.*
! 62: A0 @DATA+3
! 63: B77 A0
! 64: A1 13
! 65: A0 B66
! 66: A2 B66
! 67: A4 B67
! 68: 0,A0 B77,A1
! 69: A7 782
! 70: A3 A2+A7
! 71: A0 A4-A3
! 72: JAM L3
! 73: A0 A6
! 74: A5 6
! 75: B03,A5 0,A0
! 76: A0 A1+A2
! 77: A5 1
! 78: 0,A0 T00,A5
! 79: B02 A2
! 80: B66 A3
! 81: B01 A6
! 82: L4 = P.*
! 83: A7 B07
! 84: S7 0,A7
! 85: A6 B10
! 86: S6 0,A6
! 87: S5 1
! 88: S4 <22
! 89: S7 S7-S5
! 90: S5 #S7
! 91: T00 S6
! 92: S6 S6>22
! 93: S7 T00
! 94: S7 S7>44
! 95: S3 T00
! 96: S3 S3&S4
! 97: S6 S6&S4
! 98: S7 S7&S4
! 99: S3 S3<24
! 100: S6 S6<24
! 101: S7 S7<24
! 102: S0 S5
! 103: S4 S5
! 104: S1 S6
! 105: S2 S3
! 106: S3 S7
! 107: JSP L5
! 108: L6 = P.*
! 109: S7 -S4
! 110: A2 S7
! 111: VL A2
! 112: A3 B06
! 113: A5 B05
! 114: A4 B04
! 115: A1 VL
! 116: A2 S4
! 117: L7 = P.*
! 118: A0 A3
! 119: VL A1
! 120: V7 ,A0,1
! 121: B11 A5
! 122: A7 22
! 123: B12 A4
! 124: V6 V7>A7
! 125: B13 A3
! 126: S7 <22
! 127: A3 B02
! 128: V5 S7&V6
! 129: A6 24
! 130: V4 V5<A6
! 131: V3 S1*FV4
! 132: V2 S7&V7
! 133: V1 V2<A6
! 134: V0 S3*FV1
! 135: V6 V0+V3
! 136: A5 44
! 137: V5 V7>A5
! 138: V2 S1*FV1
! 139: V3 S7&V5
! 140: A0 14
! 141: B77 A0
! 142: A4 B77
! 143: A0 A4+A3
! 144: ,A0,1 V2
! 145: V0 V3<A6
! 146: V7 S2*FV1
! 147: A4 142
! 148: A0 A4+A3
! 149: ,A0,1 V7
! 150: V5 V7>A7
! 151: V2 S2*FV0
! 152: V3 V6+V2
! 153: S7 <20
! 154: V1 S7&V3
! 155: A4 270
! 156: A0 A4+A3
! 157: ,A0,1 V0
! 158: A4 14
! 159: A0 A4+A3
! 160: V7 ,A0,1
! 161: V6 V1<A7
! 162: V2 S2*FV4
! 163: V0 V7+V2
! 164: S7 <42
! 165: V1 S7&V0
! 166: A4 398
! 167: A0 A4+A3
! 168: ,A0,1 V0
! 169: V7 S3*FV4
! 170: V2 V5+V1
! 171: V0 V3<A5
! 172: A5 526
! 173: A0 A5+A3
! 174: ,A0,1 V0
! 175: A5 270
! 176: A0 A5+A3
! 177: V4 ,A0,1
! 178: V5 V2+V6
! 179: A5 20
! 180: V1 V3>A5
! 181: V0 S1*FV4
! 182: A5 654
! 183: A0 A5+A3
! 184: ,A0,1 V1
! 185: V6 V7+V0
! 186: A5 2
! 187: V2 V6<A5
! 188: V3 S3*FV4
! 189: A5 142
! 190: A0 A5+A3
! 191: V1 ,A0,1
! 192: A5 526
! 193: A0 A5+A3
! 194: V7 ,A0,1
! 195: V0 V1+V7
! 196: V6 V3<A6
! 197: V4 V6+V2
! 198: A6 42
! 199: V7 V5>A6
! 200: A5 654
! 201: CPW
! 202: A0 A5+A3
! 203: V1 ,A0,1
! 204: A5 398
! 205: A0 A5+A3
! 206: V3 ,A0,1
! 207: V6 V4+V1
! 208: V2 V3>A6
! 209: V5 V6+V2
! 210: A6 B12
! 211: V4 V3<A7
! 212: A7 B13
! 213: A3 A7+A1
! 214: A7 B11
! 215: A5 A7+A1
! 216: A4 A6+A1
! 217: A7 A2+A1
! 218: A0 A2+A1
! 219: A2 128
! 220: B13 A0
! 221: V1 V0+V4
! 222: A0 B11
! 223: ,A0,1 V1
! 224: V6 V5+V7
! 225: A0 A6
! 226: ,A0,1 V6
! 227: A0 B13
! 228: A1 A2
! 229: A2 A7
! 230: JAN L7
! 231: L8 = P.*
! 232: L5 = P.*
! 233: S1 0
! 234: A0 B02
! 235: A2 B02
! 236: A1 13
! 237: B66 A0
! 238: B77,A1 0,A0
! 239: A0 A2+A1
! 240: A1 1
! 241: T00,A1 0,A0
! 242: J B00
! 243: EXT $STKOFEN:p
! 244: ENTRY GMPN_MULWW
! 245: END