Return to 24case.s CVS log

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

Annotation of 3BSD/cmd/px/24case.s, revision 1.1.1.1

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

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