![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to fprims.asm CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [PGP] / pgp / src|
Return to fprims.asm CVS log | Up to [PGP] / pgp / src |
1.1 ! root 1: TITLE fprims ! 2: ! 3: ; Fast 8086 assembly primitives for add, subtract, rotate left, ! 4: ; and set precision bits for multiprecision integers. ! 5: ; Callable from Microsoft C or Turbo C. ! 6: ; Implemented Jan 1987 by Zhahai Stewart. ! 7: ; Used by Philip Zimmermann's RSA public key cryptography library. ! 8: ! 9: ; Much faster primitives that implement a combined multiply/modulo ! 10: ; operation are available by contacting Philip Zimmermann, ! 11: ; at Boulder Software Engineering, phone (303)444-4541 ! 12: ! 13: ; Static Name Aliases ! 14: ; ! 15: _TEXT SEGMENT BYTE PUBLIC 'CODE' ! 16: _TEXT ENDS ! 17: CONST SEGMENT WORD PUBLIC 'CONST' ! 18: CONST ENDS ! 19: _BSS SEGMENT WORD PUBLIC 'BSS' ! 20: _BSS ENDS ! 21: _DATA SEGMENT WORD PUBLIC 'DATA' ! 22: _DATA ENDS ! 23: DGROUP GROUP CONST, _BSS, _DATA ! 24: ASSUME CS: _TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP ! 25: PUBLIC _P_SETP ;set global precision, maximum of 1024 bits ! 26: PUBLIC _P_ADDC ;multiprecision add with carry ! 27: PUBLIC _P_SUBB ;multiprecision subtract with borrow ! 28: PUBLIC _P_ROTL ;multiprecision rotate left 1 bit ! 29: _DATA SEGMENT ! 30: _DATA ENDS ! 31: _TEXT SEGMENT ! 32: ! 33: mswoff dw (?) ! 34: adcx dw (?) ! 35: sbbx dw (?) ! 36: rclx dw (?) ! 37: ! 38: ;-------------------------------------------------------------- ! 39: ; precision=bp+4 precision in bits ! 40: ; prec means precision in wds ! 41: ! 42: PUBLIC _P_SETP ! 43: _P_SETP PROC NEAR ! 44: push bp ! 45: mov bp,sp ! 46: mov ax,[bp+4] ! 47: ! 48: ; add ax,15 round up ! 49: ; shr ax,4 number of words ! 50: ; dec ax number - 1 ! 51: ; shl ax,4 back to number of bits: 16 * (prec - 1) ! 52: dec ax ; faster alternate way to do same thing ! 53: and al,0F0h ! 54: ! 55: cmp ax,1008 ; 16 * (64-1) ! 56: jg x_setp ; out of range ! 57: ! 58: shr ax,1 ; ax = 8 * (prec - 1) ! 59: shr ax,1 ; ax = 4 * (prec - 1) ! 60: ! 61: mov bx,offset adc01 ! 62: sub bx,ax ! 63: mov cs:[adcx],bx ; adcx = &adc01 - 4 * (prec - 1) ! 64: ! 65: mov bx,offset sbb01 ! 66: sub bx,ax ! 67: mov cs:[sbbx],bx ; sbbx = &sbb01 - 4 * (prec - 1) ! 68: ! 69: mov bx,offset rcl01 ! 70: shr ax,1 ; ax = 2 * (prec - 1) ! 71: mov cs:[mswoff],ax ; mswoff = 2 * (prec-1) = msword offset ! 72: sub bx,ax ! 73: shr ax,1 ; ax = prec - 1 ! 74: sub bx,ax ! 75: mov cs:[rclx],bx ; rclx = &rcl01 - 3 * (prec - 1) ! 76: ! 77: x_setp: pop bp ! 78: ret ! 79: _P_SETP ENDP ! 80: ! 81: ! 82: ;-------------------------------------------------------------- ! 83: ; r1=bp+4 ! 84: ; r2=bp+6 ! 85: ; carry=bp+8 ! 86: ! 87: PUBLIC _P_ADDC ! 88: _P_ADDC PROC NEAR ! 89: push bp ! 90: mov bp,sp ! 91: push si ! 92: push di ! 93: ! 94: mov di,[bp+4] ; r1 ! 95: mov si,[bp+6] ; r2 ! 96: add di,cs:[mswoff] ; offset to msw ! 97: cld ; go fwd ! 98: ! 99: mov al,0FFh ; set cy flag if carry non-zero ! 100: add al,[bp+8] ; carry in ! 101: call cs:[adcx] ! 102: mov ax,0 ; don't affect flags ! 103: rcl ax,1 ; set ax = 0 if no borrow, 1 if borrow out ! 104: ! 105: pop di ! 106: pop si ! 107: mov sp,bp ! 108: pop bp ! 109: ret ! 110: _P_ADDC ENDP ! 111: ! 112: ;-------------------------------------------------------------- ! 113: ; r1=bp+4 ! 114: ; r2=bp+6 ! 115: ; borrow=bp+8 ! 116: ! 117: PUBLIC _P_SUBB ! 118: _P_SUBB PROC NEAR ! 119: push bp ! 120: mov bp,sp ! 121: push si ! 122: push di ! 123: ! 124: mov di,[bp+4] ; r1 ! 125: mov si,[bp+6] ; r2 ! 126: add di,cs:[mswoff] ; offset to msw ! 127: cld ; go fwd ! 128: ! 129: mov al,0FFh ; set cy flag if borrow non-zero ! 130: add al,[bp+8] ; borrow ! 131: call cs:[sbbx] ! 132: mov ax,0 ; don't affect flags ! 133: rcl ax,1 ; set ax = 0 if no borrow, 1 if borrow out ! 134: ! 135: pop di ! 136: pop si ! 137: mov sp,bp ! 138: pop bp ! 139: ret ! 140: _P_SUBB ENDP ! 141: ! 142: ;-------------------------------------------------------------- ! 143: ; r1=bp+4 ! 144: ; c=bp+6 ! 145: ! 146: PUBLIC _P_ROTL ! 147: _P_ROTL PROC NEAR ! 148: push bp ! 149: mov bp,sp ! 150: push di ! 151: ! 152: mov di,[bp+4] ; r1 ! 153: add di,cs:[mswoff] ; offset to msw ! 154: mov al,0FFh ! 155: add al,[bp+6] ; c (carry) ! 156: call cs:[rclx] ! 157: mov ax,0 ; don't affect flags ! 158: rcl ax,1 ; set ax = 0 if no carry, 1 if carry out ! 159: ! 160: pop di ! 161: mov sp,bp ! 162: pop bp ! 163: ret ! 164: _P_ROTL ENDP ! 165: ! 166: ;======================================================================== ! 167: dummy proc near ! 168: ! 169: adc64: lodsw ! 170: adc [di-126],ax ! 171: lodsw ! 172: adc [di-124],ax ! 173: lodsw ! 174: adc [di-122],ax ! 175: lodsw ! 176: adc [di-120],ax ! 177: lodsw ! 178: adc [di-118],ax ! 179: lodsw ! 180: adc [di-116],ax ! 181: lodsw ! 182: adc [di-114],ax ! 183: lodsw ! 184: adc [di-112],ax ! 185: lodsw ! 186: adc [di-110],ax ! 187: lodsw ! 188: adc [di-108],ax ! 189: lodsw ! 190: adc [di-106],ax ! 191: lodsw ! 192: adc [di-104],ax ! 193: lodsw ! 194: adc [di-102],ax ! 195: lodsw ! 196: adc [di-100],ax ! 197: lodsw ! 198: adc [di-98],ax ! 199: lodsw ! 200: adc [di-96],ax ! 201: lodsw ! 202: adc [di-94],ax ! 203: lodsw ! 204: adc [di-92],ax ! 205: lodsw ! 206: adc [di-90],ax ! 207: lodsw ! 208: adc [di-88],ax ! 209: lodsw ! 210: adc [di-86],ax ! 211: lodsw ! 212: adc [di-84],ax ! 213: lodsw ! 214: adc [di-82],ax ! 215: lodsw ! 216: adc [di-80],ax ! 217: lodsw ! 218: adc [di-78],ax ! 219: lodsw ! 220: adc [di-76],ax ! 221: lodsw ! 222: adc [di-74],ax ! 223: lodsw ! 224: adc [di-72],ax ! 225: lodsw ! 226: adc [di-70],ax ! 227: lodsw ! 228: adc [di-68],ax ! 229: lodsw ! 230: adc [di-66],ax ! 231: lodsw ! 232: adc [di-64],ax ! 233: lodsw ! 234: adc [di-62],ax ! 235: lodsw ! 236: adc [di-60],ax ! 237: lodsw ! 238: adc [di-58],ax ! 239: lodsw ! 240: adc [di-56],ax ! 241: lodsw ! 242: adc [di-54],ax ! 243: lodsw ! 244: adc [di-52],ax ! 245: lodsw ! 246: adc [di-50],ax ! 247: lodsw ! 248: adc [di-48],ax ! 249: lodsw ! 250: adc [di-46],ax ! 251: lodsw ! 252: adc [di-44],ax ! 253: lodsw ! 254: adc [di-42],ax ! 255: lodsw ! 256: adc [di-40],ax ! 257: lodsw ! 258: adc [di-38],ax ! 259: lodsw ! 260: adc [di-36],ax ! 261: lodsw ! 262: adc [di-34],ax ! 263: lodsw ! 264: adc [di-32],ax ! 265: lodsw ! 266: adc [di-30],ax ! 267: lodsw ! 268: adc [di-28],ax ! 269: lodsw ! 270: adc [di-26],ax ! 271: lodsw ! 272: adc [di-24],ax ! 273: lodsw ! 274: adc [di-22],ax ! 275: lodsw ! 276: adc [di-20],ax ! 277: lodsw ! 278: adc [di-18],ax ! 279: lodsw ! 280: adc [di-16],ax ! 281: lodsw ! 282: adc [di-14],ax ! 283: lodsw ! 284: adc [di-12],ax ! 285: lodsw ! 286: adc [di-10],ax ! 287: lodsw ! 288: adc [di-8],ax ! 289: lodsw ! 290: adc [di-6],ax ! 291: lodsw ! 292: adc [di-4],ax ! 293: lodsw ! 294: adc [di-2],ax ! 295: adc01: lodsw ! 296: adc [di],ax ! 297: ret ! 298: ! 299: sbb64: lodsw ! 300: sbb [di-126],ax ! 301: lodsw ! 302: sbb [di-124],ax ! 303: lodsw ! 304: sbb [di-122],ax ! 305: lodsw ! 306: sbb [di-120],ax ! 307: lodsw ! 308: sbb [di-118],ax ! 309: lodsw ! 310: sbb [di-116],ax ! 311: lodsw ! 312: sbb [di-114],ax ! 313: lodsw ! 314: sbb [di-112],ax ! 315: lodsw ! 316: sbb [di-110],ax ! 317: lodsw ! 318: sbb [di-108],ax ! 319: lodsw ! 320: sbb [di-106],ax ! 321: lodsw ! 322: sbb [di-104],ax ! 323: lodsw ! 324: sbb [di-102],ax ! 325: lodsw ! 326: sbb [di-100],ax ! 327: lodsw ! 328: sbb [di-98],ax ! 329: lodsw ! 330: sbb [di-96],ax ! 331: lodsw ! 332: sbb [di-94],ax ! 333: lodsw ! 334: sbb [di-92],ax ! 335: lodsw ! 336: sbb [di-90],ax ! 337: lodsw ! 338: sbb [di-88],ax ! 339: lodsw ! 340: sbb [di-86],ax ! 341: lodsw ! 342: sbb [di-84],ax ! 343: lodsw ! 344: sbb [di-82],ax ! 345: lodsw ! 346: sbb [di-80],ax ! 347: lodsw ! 348: sbb [di-78],ax ! 349: lodsw ! 350: sbb [di-76],ax ! 351: lodsw ! 352: sbb [di-74],ax ! 353: lodsw ! 354: sbb [di-72],ax ! 355: lodsw ! 356: sbb [di-70],ax ! 357: lodsw ! 358: sbb [di-68],ax ! 359: lodsw ! 360: sbb [di-66],ax ! 361: lodsw ! 362: sbb [di-64],ax ! 363: lodsw ! 364: sbb [di-62],ax ! 365: lodsw ! 366: sbb [di-60],ax ! 367: lodsw ! 368: sbb [di-58],ax ! 369: lodsw ! 370: sbb [di-56],ax ! 371: lodsw ! 372: sbb [di-54],ax ! 373: lodsw ! 374: sbb [di-52],ax ! 375: lodsw ! 376: sbb [di-50],ax ! 377: lodsw ! 378: sbb [di-48],ax ! 379: lodsw ! 380: sbb [di-46],ax ! 381: lodsw ! 382: sbb [di-44],ax ! 383: lodsw ! 384: sbb [di-42],ax ! 385: lodsw ! 386: sbb [di-40],ax ! 387: lodsw ! 388: sbb [di-38],ax ! 389: lodsw ! 390: sbb [di-36],ax ! 391: lodsw ! 392: sbb [di-34],ax ! 393: lodsw ! 394: sbb [di-32],ax ! 395: lodsw ! 396: sbb [di-30],ax ! 397: lodsw ! 398: sbb [di-28],ax ! 399: lodsw ! 400: sbb [di-26],ax ! 401: lodsw ! 402: sbb [di-24],ax ! 403: lodsw ! 404: sbb [di-22],ax ! 405: lodsw ! 406: sbb [di-20],ax ! 407: lodsw ! 408: sbb [di-18],ax ! 409: lodsw ! 410: sbb [di-16],ax ! 411: lodsw ! 412: sbb [di-14],ax ! 413: lodsw ! 414: sbb [di-12],ax ! 415: lodsw ! 416: sbb [di-10],ax ! 417: lodsw ! 418: sbb [di-8],ax ! 419: lodsw ! 420: sbb [di-6],ax ! 421: lodsw ! 422: sbb [di-4],ax ! 423: lodsw ! 424: sbb [di-2],ax ! 425: sbb01: lodsw ! 426: sbb [di],ax ! 427: ret ! 428: ! 429: ! 430: rcl64: rcl word ptr [di-126],1 ! 431: rcl word ptr [di-124],1 ! 432: rcl word ptr [di-122],1 ! 433: rcl word ptr [di-120],1 ! 434: rcl word ptr [di-118],1 ! 435: rcl word ptr [di-116],1 ! 436: rcl word ptr [di-114],1 ! 437: rcl word ptr [di-112],1 ! 438: rcl word ptr [di-110],1 ! 439: rcl word ptr [di-108],1 ! 440: rcl word ptr [di-106],1 ! 441: rcl word ptr [di-104],1 ! 442: rcl word ptr [di-102],1 ! 443: rcl word ptr [di-100],1 ! 444: rcl word ptr [di-98],1 ! 445: rcl word ptr [di-96],1 ! 446: rcl word ptr [di-94],1 ! 447: rcl word ptr [di-92],1 ! 448: rcl word ptr [di-90],1 ! 449: rcl word ptr [di-88],1 ! 450: rcl word ptr [di-86],1 ! 451: rcl word ptr [di-84],1 ! 452: rcl word ptr [di-82],1 ! 453: rcl word ptr [di-80],1 ! 454: rcl word ptr [di-78],1 ! 455: rcl word ptr [di-76],1 ! 456: rcl word ptr [di-74],1 ! 457: rcl word ptr [di-72],1 ! 458: rcl word ptr [di-70],1 ! 459: rcl word ptr [di-68],1 ! 460: rcl word ptr [di-66],1 ! 461: rcl word ptr [di-64],1 ! 462: rcl word ptr [di-62],1 ! 463: rcl word ptr [di-60],1 ! 464: rcl word ptr [di-58],1 ! 465: rcl word ptr [di-56],1 ! 466: rcl word ptr [di-54],1 ! 467: rcl word ptr [di-52],1 ! 468: rcl word ptr [di-50],1 ! 469: rcl word ptr [di-48],1 ! 470: rcl word ptr [di-46],1 ! 471: rcl word ptr [di-44],1 ! 472: rcl word ptr [di-42],1 ! 473: rcl word ptr [di-40],1 ! 474: rcl word ptr [di-38],1 ! 475: rcl word ptr [di-36],1 ! 476: rcl word ptr [di-34],1 ! 477: rcl word ptr [di-32],1 ! 478: rcl word ptr [di-30],1 ! 479: rcl word ptr [di-28],1 ! 480: rcl word ptr [di-26],1 ! 481: rcl word ptr [di-24],1 ! 482: rcl word ptr [di-22],1 ! 483: rcl word ptr [di-20],1 ! 484: rcl word ptr [di-18],1 ! 485: rcl word ptr [di-16],1 ! 486: rcl word ptr [di-14],1 ! 487: rcl word ptr [di-12],1 ! 488: rcl word ptr [di-10],1 ! 489: rcl word ptr [di-8],1 ! 490: rcl word ptr [di-6],1 ! 491: rcl word ptr [di-4],1 ! 492: rcl word ptr [di-2],1 ! 493: rcl01: rcl word ptr [di],1 ! 494: ret ! 495: dummy endp ! 496: ! 497: _TEXT ENDS ! 498: END
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.