Return to poly_div.S CVS log

Up to [MW Coherent from dump] / coherent / b / kernel / emulator

Annotation of coherent/b/kernel/emulator/poly_div.S, revision 1.1.1.1

1.1       root        1:        .file   "poly_div.S"
                      2: /*---------------------------------------------------------------------------+
                      3:  |  poly_div.S                                                               |
                      4:  |                                                                           |
                      5:  | A set of functions to divide 64 bit integers by fixed numbers.            |
                      6:  |                                                                           |
                      7:  | Copyright (C) 1992    W. Metzenthen, 22 Parker St, Ormond, Vic 3163,      |
                      8:  |                       Australia.  E-mail [email protected]    |
                      9:  |                                                                           |
                     10:  | Call from C as:                                                           |
                     11:  |   void poly_div2(long long *x)                                            |
                     12:  |   void poly_div4(long long *x)                                            |
                     13:  |   void poly_div16(long long *x)                                           |
                     14:  |                                                                           |
                     15:  +---------------------------------------------------------------------------*/
                     16: 
                     17: #include "fpu_asm.h"
                     18: 
                     19: .text
                     20: 
                     21: /*---------------------------------------------------------------------------*/
                     22:        .align 2,144
                     23: .globl poly_div2
                     24: poly_div2:
                     25:        pushl %ebp
                     26:        movl %esp,%ebp
                     27: 
                     28:        movl PARAM1,%ecx
                     29:        movw (%ecx),%ax
                     30: 
                     31:        shrl $1,4(%ecx)
                     32:        rcrl $1,(%ecx)
                     33: 
                     34:        testw $1,%ax
                     35:        je poly_div2_exit
                     36: 
                     37:        addl $1,(%ecx)
                     38:        adcl $0,4(%ecx)
                     39: poly_div2_exit:
                     40: 
                     41:        leave
                     42:        ret
                     43: /*---------------------------------------------------------------------------*/
                     44:        .align 2,144
                     45: .globl poly_div4
                     46: poly_div4:
                     47:        pushl %ebp
                     48:        movl %esp,%ebp
                     49: 
                     50:        movl PARAM1,%ecx
                     51:        movw (%ecx),%ax
                     52: 
                     53:        movl 4(%ecx),%edx
                     54:        shll $30,%edx
                     55: 
                     56:        shrl $2,4(%ecx)
                     57:        shrl $2,(%ecx)
                     58: 
                     59:        orl %edx,(%ecx)
                     60: 
                     61:        testw $2,%ax
                     62:        je poly_div4_exit
                     63: 
                     64:        addl $1,(%ecx)
                     65:        adcl $0,4(%ecx)
                     66: poly_div4_exit:
                     67: 
                     68:        leave
                     69:        ret
                     70: /*---------------------------------------------------------------------------*/
                     71:        .align 2,144
                     72: .globl poly_div16
                     73: poly_div16:
                     74:        pushl %ebp
                     75:        movl %esp,%ebp
                     76: 
                     77:        movl PARAM1,%ecx
                     78:        movw (%ecx),%ax
                     79: 
                     80:        movl 4(%ecx),%edx
                     81:        shll $28,%edx
                     82: 
                     83:        shrl $4,4(%ecx)
                     84:        shrl $4,(%ecx)
                     85: 
                     86:        orl %edx,(%ecx)
                     87: 
                     88:        testw $8,%ax
                     89:        je poly_div16_exit
                     90: 
                     91:        addl $1,(%ecx)
                     92:        adcl $0,4(%ecx)
                     93: poly_div16_exit:
                     94: 
                     95:        leave
                     96:        ret
                     97: /*---------------------------------------------------------------------------*/

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.