Return to dsneg.s CVS log

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

Annotation of 3BSD/cmd/lisp/dsneg.s, revision 1.1.1.1

1.1       root        1:        .globl  _dsneg
                      2: #
                      3: #      dsneg(top, bot);
                      4: #      int *top, *bot;
                      5: #
                      6: #      routine to destructively negate a bignum stored in array format
                      7: #      lower order stuff at higher addresses. It is assume that the
                      8: #      result will be positive.
                      9: #      
                     10: _dsneg:        .word   0
                     11:        movl    4(ap),r1        #load up address.
                     12:        clrl    r2              #set carry
                     13: loop:  mnegl   (r1),r0         #negate and take carry into account.
                     14:        addl2   r2,r0
                     15:        extzv   $0,$30,r0,(r1)
                     16:        extv    $30,$2,r0,r2
                     17:        acbl    8(ap),$-4,r1,loop
                     18:                                #decrease r1, and branch back if appropriate.
                     19:        ret

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