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

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.