Return to urem.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / sys / tahoe

Annotation of 43BSDTahoe/sys/tahoe/urem.s, revision 1.1

1.1     ! root        1: /*
        !             2:  *     @(#)urem.s      7.1 (Berkeley) 5/21/88
        !             3:  */
        !             4: 
        !             5: /*
        !             6:  * Unsigned remainder.
        !             7:  *
        !             8:  * urem(dividend, divisor)
        !             9:  */
        !            10: #include "../tahoe/SYS.h"
        !            11: 
        !            12: ASENTRY(urem, 0)
        !            13:        bitl    $0x80000000,8(fp)       #  if (divisor & 0x80000000){
        !            14:        jeql    1f                        
        !            15:        movl    4(fp),r0
        !            16:        cmpl    8(fp),r0                #  if (divisor <= dividend )
        !            17:        jgtru   2f
        !            18:        subl2   8(fp),r0                #       return(dividend-divisor);
        !            19: 2:                                     #  else return(dividend);}
        !            20:        ret
        !            21: 1:
        !            22:        clrl    r2                      #  return(dividend%divisor);
        !            23:        movl    4(fp),r3
        !            24:        ediv    8(fp),r2,r1,r0
        !            25:        ret
        !            26: 
        !            27: /*
        !            28:  * aurem(dividendp, divisor) -- like urem but uses address of dividend.
        !            29:  *     Implements %= avoiding side effects in the dividend expression.
        !            30:  */
        !            31: ASENTRY(aurem, 0)
        !            32:        bitl    $0x80000000,8(fp)       #  if (divisor & 0x80000000){
        !            33:        jeql    1f                        
        !            34:        movl    *4(fp),r0
        !            35:        cmpl    8(fp),r0                #  if (divisor <= dividend )
        !            36:        jgtru   2f
        !            37:        subl2   8(fp),r0                #       return(dividend-divisor);
        !            38:                                        #  else return(dividend);}
        !            39:        jbr     2f
        !            40: 1:
        !            41:        clrl    r2                      #  return(dividend%divisor);
        !            42:        movl    *4(fp),r3
        !            43:        ediv    8(fp),r2,r1,r0
        !            44: 2:
        !            45:        movl    r0,*4(fp)
        !            46:        ret

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