![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 80386.s CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [PGP] / pgp / src|
Return to 80386.s CVS log | Up to [PGP] / pgp / src |
1.1 ! root 1: /* ! 2: ** ! 3: ** 80386 assembly primitives for RSA library ! 4: ** GNU gas syntax, tested with gcc v1.39 ! 5: ** ! 6: ** Compile with UNIT32 defined, MULTUNIT must be unsigned long ! 7: ** assemble this file with gcc -c (file should have .S suffix) ! 8: ** ! 9: ** Written by Branko Lankester ([email protected]) 11/18/91 ! 10: ** Last revised: 03/04/91 ! 11: ** ! 12: */ ! 13: ! 14: #if defined(__GNUC__) || defined(__ASSEMBLER__) ! 15: #ifdef __STDC__ ! 16: #define ENTRY(name) .align 4 ; .globl _##name ; _##name: ! 17: #else ! 18: #define ENTRY(name) .align 4 ; .globl _/**/name ; _/**/name: ! 19: #endif ! 20: #else /* !__GNUC__ */ ! 21: #define ENTRY(name) .align 4 ; .globl name ; name: ! 22: #endif ! 23: ! 24: .text ! 25: ! 26: /* ! 27: ********************* set precision ******************** ! 28: */ ! 29: ENTRY (P_SETP) ! 30: pushl %ebp ! 31: movl %esp,%ebp ! 32: pushl %ebx ! 33: pushl %ecx ! 34: pushl %edx ! 35: movl 8(%ebp),%eax ! 36: addl $0x1f,%eax ! 37: shrl $5,%eax ! 38: movl %eax,%ebx ! 39: shrl $3,%eax ! 40: movl %eax,prec8 ! 41: andl $7,%ebx ! 42: ! 43: movl $add_ref,%eax ! 44: movl %eax,%ecx ! 45: subl $add_1ref,%eax ! 46: mul %ebx ! 47: subl %eax,%ecx ! 48: movl %ecx,addp ! 49: movl $sub_ref,%ecx ! 50: subl %eax,%ecx ! 51: movl %ecx,subp ! 52: ! 53: movl $rot_ref,%eax ! 54: movl %eax,%ecx ! 55: subl $rot_1ref,%eax ! 56: mul %ebx ! 57: subl %eax,%ecx ! 58: movl %ecx,rotp ! 59: ! 60: movl $mul_ref,%eax ! 61: movl %eax,%ecx ! 62: subl $mul_1ref,%eax ! 63: mul %ebx ! 64: subl %eax,%ecx ! 65: movl %ecx,mulp ! 66: ! 67: popl %edx ! 68: popl %ecx ! 69: popl %ebx ! 70: leave ! 71: ret ! 72: ! 73: ! 74: ! 75: /* ! 76: ********************* mpi add with carry ******************** ! 77: */ ! 78: ! 79: #define ADDU lodsl ; adcl %eax,(%ebx,%esi) ! 80: ! 81: ENTRY (P_ADDC) ! 82: pushl %ebp ! 83: movl %esp,%ebp ! 84: pushl %ebx ! 85: pushl %ecx ! 86: pushl %esi ! 87: pushl %edi ! 88: movl 12(%ebp),%esi ! 89: movl 8(%ebp),%ebx ! 90: subl %esi,%ebx ! 91: subl $4,%ebx ! 92: cld ! 93: movl 16(%ebp),%eax ! 94: movl prec8,%ecx ! 95: orl %ecx,%ecx ! 96: rcrl $1,%eax /* set the carry flag */ ! 97: jz add_units /* z-flag set by orl %ecx,%ecx */ ! 98: add_8u: ! 99: ADDU ; ADDU ; ADDU ; ADDU ; ADDU ; ADDU ; ADDU ; ADDU ! 100: loop add_8u ! 101: add_units: ! 102: jmp *addp ! 103: ADDU ; ADDU ; ADDU ; ADDU ; ADDU ; ADDU ! 104: add_1ref: /* label to compute size of codes */ ! 105: ADDU ! 106: add_ref: ! 107: rcll $1,%eax ! 108: andl $1,%eax ! 109: ! 110: popl %edi ! 111: popl %esi ! 112: popl %ecx ! 113: popl %ebx ! 114: leave ! 115: ret ! 116: ! 117: ! 118: /* ! 119: ********************* mpi subtract with borrow ******************** ! 120: */ ! 121: ! 122: #define SUBU lodsl ; sbbl %eax,(%ebx,%esi) ! 123: ! 124: ENTRY (P_SUBB) ! 125: pushl %ebp ! 126: movl %esp,%ebp ! 127: pushl %ebx ! 128: pushl %ecx ! 129: pushl %esi ! 130: pushl %edi ! 131: movl 12(%ebp),%esi ! 132: movl 8(%ebp),%ebx ! 133: subl %esi,%ebx ! 134: subl $4,%ebx ! 135: cld ! 136: movl 16(%ebp),%eax ! 137: movl prec8,%ecx ! 138: orl %ecx,%ecx ! 139: rcrl $1,%eax ! 140: jz sub_units ! 141: sub_8u: ! 142: SUBU ; SUBU ; SUBU ; SUBU ; SUBU ; SUBU ; SUBU ; SUBU ! 143: loop sub_8u ! 144: sub_units: ! 145: jmp *subp ! 146: SUBU ; SUBU ; SUBU ; SUBU ; SUBU ; SUBU ; SUBU ! 147: sub_ref: ! 148: rcll $1,%eax ! 149: andl $1,%eax ! 150: ! 151: popl %edi ! 152: popl %esi ! 153: popl %ecx ! 154: popl %ebx ! 155: leave ! 156: ret ! 157: ! 158: ! 159: ! 160: /* ! 161: ********************* mpi rotate left ******************** ! 162: */ ! 163: ! 164: #define ROTU rcll $1,(%ebx,%esi,4) ; incl %esi ! 165: ! 166: ENTRY (P_ROTL) ! 167: pushl %ebp ! 168: movl %esp,%ebp ! 169: pushl %ebx ! 170: pushl %ecx ! 171: pushl %esi ! 172: movl 8(%ebp),%ebx ! 173: movl 12(%ebp),%eax ! 174: xorl %esi,%esi ! 175: movl prec8,%ecx ! 176: orl %ecx,%ecx ! 177: rcrl $1,%eax /* set the carry flag */ ! 178: jz rot_units /* z-flag set by orl %ecx,%ecx */ ! 179: rot_8u: ! 180: rcll $1,(%ebx) ! 181: rcll $1,4(%ebx) ! 182: rcll $1,8(%ebx) ! 183: rcll $1,12(%ebx) ! 184: rcll $1,16(%ebx) ! 185: rcll $1,20(%ebx) ! 186: rcll $1,24(%ebx) ! 187: rcll $1,28(%ebx) ! 188: leal 32(%ebx),%ebx ! 189: loop rot_8u ! 190: rot_units: ! 191: jmp *rotp ! 192: ROTU ; ROTU ; ROTU ; ROTU ; ROTU ; ROTU ; ROTU ! 193: rot_1ref: ! 194: ROTU ! 195: rot_ref: ! 196: rcll $1,%eax ! 197: andl $1,%eax ! 198: ! 199: popl %esi ! 200: popl %ecx ! 201: popl %ebx ! 202: leave ! 203: ret ! 204: ! 205: /* ! 206: ********************* mpi multiply ******************** ! 207: */ ! 208: #define MULU \ ! 209: lodsl ; \ ! 210: mull %ebp ; \ ! 211: addl %ebx,%eax ; \ ! 212: adcl $0,%edx ; \ ! 213: addl (%edi),%eax ; \ ! 214: adcl $0,%edx ; \ ! 215: movl %edx,%ebx ; \ ! 216: stosl ! 217: ! 218: ENTRY (P_SMUL) ! 219: pushl %ebp ! 220: movl %esp,%ebp ! 221: pushl %ebx ! 222: pushl %ecx ! 223: pushl %edx ! 224: pushl %esi ! 225: pushl %edi ! 226: ! 227: xorl %ebx,%ebx ! 228: movl prec8,%ecx ! 229: movl 8(%ebp),%edi ! 230: movl 12(%ebp),%esi ! 231: movl 16(%ebp),%ebp ! 232: cld ! 233: orl %ecx,%ecx ! 234: jz mul_units ! 235: mul_8u: ! 236: MULU ; MULU ; MULU ; MULU ; MULU ; MULU ; MULU ; MULU ! 237: decl %ecx ! 238: jnz mul_8u /* offset too big for loop */ ! 239: mul_units: ! 240: jmp *mulp ! 241: MULU ; MULU ; MULU ; MULU ; MULU ; MULU ! 242: mul_1ref: ! 243: MULU ! 244: mul_ref: ! 245: movl %ebx,(%edi) ! 246: ! 247: popl %edi ! 248: popl %esi ! 249: popl %edx ! 250: popl %ecx ! 251: popl %ebx ! 252: popl %ebp ! 253: ret ! 254: ! 255: .lcomm prec8,4 ! 256: .lcomm addp,4 ! 257: .lcomm subp,4 ! 258: .lcomm rotp,4 ! 259: .lcomm mulp,4 ! 260:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.