Return to 05index.s CVS log

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

Annotation of 3BSD/cmd/px/05index.s, revision 1.1

1.1     ! root        1: #
        !             2: # 05index.s
        !             3: #
        !             4: # OFF, INDEX and NIL
        !             5: #
        !             6: _OFF:
        !             7:        cvtbl   (r10)+,r0
        !             8:        bneq    l0501
        !             9:        cvtwl   (r10)+,r0
        !            10: l0501:
        !            11:        addl2   r0,(sp)
        !            12:        jmp     (r8)
        !            13: _INX2:
        !            14:        cvtbl   (r10)+,r0
        !            15:        bneq    l0502
        !            16:        cvtwl   (r10)+,r0       #r0 has size
        !            17: l0502:
        !            18:        cvtwl   (r10)+,r1       #r1 has lower bound
        !            19:        cvtwl   (r10)+,r2       #r2 has upper bound
        !            20:        cvtwl   (sp)+,r3        #r3 contains subscript
        !            21:        subl2   r1,r3           #r3 has base subscript
        !            22:        index   r3,$0,r2,r0,$0,r1  #r1 has calculated offset
        !            23:        addl2   r1,(sp)         #calculate actual address
        !            24:        jmp     (r8)
        !            25: _INX4:
        !            26:        cvtbl   (r10)+,r0
        !            27:        bneq    l0503
        !            28:        cvtwl   (r10)+,r0       #r0 has size
        !            29: l0503:
        !            30:        cvtwl   (r10)+,r1       #r1 has lower bound
        !            31:        cvtwl   (r10)+,r2       #r2 has upper bound
        !            32:        movl    (sp)+,r3        #r3 contains subscript
        !            33:        subl2   r1,r3           #r3 has base subscript
        !            34:        index   r3,$0,r2,r0,$0,r1  #r1 has calculated offset
        !            35:        addl2   r1,(sp)         #calculate actual address
        !            36:        jmp     (r8)
        !            37: _NIL:
        !            38:        incl    r10
        !            39:        tstl    (sp)
        !            40:        jeql    l0504
        !            41:        jmp     (r8)
        !            42: l0504:
        !            43:        movw    $ENILPTR,_perrno
        !            44:        jbr     error
        !            45: _INX4P2:
        !            46:        cvtbl   (r10)+,r0       #r0 has shift amount
        !            47:        cvtwl   (r10)+,r2       #r2 has lower bound
        !            48:        subl3   r2,(sp)+,r1     #r1 has base subscript
        !            49:        ashl    r0,r1,r1
        !            50:        addl2   r1,(sp)
        !            51:        jmp     (r8)
        !            52: _INX2P2:
        !            53:        cvtbl   (r10)+,r0       #r0 has shift amount
        !            54:        clrl    r1              #clear upper half of r1
        !            55:        subw3   (r10)+,(sp)+,r1 #r1 has base subscript
        !            56:        ashl    r0,r1,r1
        !            57:        addl2   r1,(sp)
        !            58:        jmp     (r8)

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