Return to 23case.s CVS log

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

Annotation of 40BSD/cmd/px/23case.s, revision 1.1

1.1     ! root        1: #
        !             2: # Copyright (c) 1979 Regents of the University of California
        !             3: #
        !             4: # char sccsid[] = "@(#)23case.s 4.1 10/10/80";
        !             5: #
        !             6: # CASE OPERATORS
        !             7: #
        !             8: _CASE1OP:
        !             9:        cvtbl   (r10)+,r0
        !            10:        bneq    l2401
        !            11:        cvtwl   (r10)+,r0       #r0 has length of case table
        !            12: l2401:
        !            13:        movaw   (r10)[r0],r2    #r2 has pointer to cases
        !            14:        cvtwl   (sp)+,r3        #r3 has case element to find
        !            15:        locc    r3,r0,(r2)      #find case element
        !            16:        beql    caserr          #case not found
        !            17: offset:
        !            18:        mnegl   r0,r0           #calc new lc
        !            19:        cvtwl   (r2)[r0],r1
        !            20:        addl2   r1,r10
        !            21:        jmp     (r8)
        !            22: _CASE2OP:
        !            23:        cvtbl   (r10)+,r0
        !            24:        bneq    l2402
        !            25:        cvtwl   (r10)+,r0       #r0 has length of case table
        !            26: l2402:
        !            27:        movaw   (r10)[r0],r1    #r1 has pointer to cases
        !            28:        movl    r1,r2           #save base pointer
        !            29:        movzwl  (sp)+,r3        #r3 has case element to find
        !            30: l2403:
        !            31:        cmpw    r3,(r1)+        #search for case
        !            32:        beqlu   offset
        !            33:        sobgtr  r0,l2403
        !            34:        brb     caserr          #not found
        !            35: _CASE4OP:
        !            36:        cvtbl   (r10)+,r0
        !            37:        bneq    l2404
        !            38:        cvtwl   (r10)+,r0       #r0 has length of case table
        !            39: l2404:
        !            40:        movaw   (r10)[r0],r1    #r1 has pointer to cases
        !            41:        movl    r1,r2           #save base pointer
        !            42:        movl    (sp)+,r3        #r3 has case element to find
        !            43: l2405:
        !            44:        cmpl    r3,(r1)+        #search for case
        !            45:        beqlu   offset
        !            46:        sobgtr  r0,l2405
        !            47: caserr:
        !            48:        movw    $ECASE,_perrno
        !            49:        jbr     error

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