Return to inewint.s CVS log

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

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

1.1     ! root        1:        .globl  _inewint
        !             2: _inewint:.word 0
        !             3:        cvtlb   4(ap),r0
        !             4:        bvs     nofit
        !             5:        ashl    $2,4(ap),r0
        !             6:        addl2   $1024,r0
        !             7:        ret
        !             8: nofit:
        !             9:        calls   $0,_newint
        !            10:        movl    4(ap),0(r0)
        !            11:        ret

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