Return to inewint.s CVS log

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

Annotation of 41BSD/cmd/lisp/inewint.s, revision 1.1.1.1

1.1       root        1:        .asciz  "@(#)inewint.s  34.2    10/9/80"
                      2:        .globl  _inewint
                      3:        .globl  _blzero
                      4:        .data   0
                      5: cntloc:        .long   0
                      6:        .text
                      7: _inewint:.word 0
                      8: #      movab   cntloc,r0               # used when profiling
                      9: #      jsb     mcount
                     10:        movl    4(ap),r0
                     11: #      cvtlb   r0,r0
                     12: #      bvs     nottiny
                     13: #      moval   Fixzero[r0],r0
                     14: #      ret
                     15: # nottiny:
                     16:        cmpl    r0,$1024
                     17:        jgeq    alloc
                     18:        cmpl    r0,$-1024
                     19:        jlss    alloc
                     20:        moval   Fixzero[r0],r0
                     21:        ret
                     22: alloc:
                     23:        calls   $0,_newint
                     24:        movl    4(ap),0(r0)
                     25:        ret
                     26: _blzero:                               # blzero(where,howmuch)
                     27:                                        # char *where;
                     28:                                        # zeroes a block of length howmuch
                     29:                                        # beginning at where.
                     30:        .word   0
                     31:        movc5   $0,*4(ap),$0,8(ap),*4(ap)
                     32:        ret

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