Return to dodiv.s CVS log

Up to [CSRG BSD Unix] / 3BSD / cmd / lisp

Annotation of 3BSD/cmd/lisp/dodiv.s, revision 1.1

1.1     ! root        1:        .globl _dodiv
        !             2: #
        !             3: #      routine to destructively divide array representation of a bignum by 
        !             4: #      1000000000
        !             5: #
        !             6: #      invocation:
        !             7: #              remainder = dodiv(top,bottom)
        !             8: #              int *top, *bottom;
        !             9: #      where *bottom is the address of the biggning of the array, *top is
        !            10: #      the top of the array.
        !            11: #
        !            12: #      register assignments:
        !            13: #      r0 = carry
        !            14: #      r1 & r2 = 64bit temporary
        !            15: #      r3 = pointer
        !            16: #
        !            17: _dodiv:        .word   0
        !            18:        clrl            r0              #no carry to begin.
        !            19:        movl            8(ap),r3        #get pointer to array.
        !            20: loop:  emul            $0x40000000,r0,(r3),r1
        !            21:        ediv            $1000000000,r1,(r3),r0
        !            22:        acbl            4(ap),$4,r3,loop
        !            23:        ret

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