Return to s_cmp_s.s CVS log

Up to [Power 6/32 Unix Tahoe 4.2BSD] / cci / usr / src / usr.lib / libF77

Annotation of cci/usr/src/usr.lib/libF77/s_cmp_s.s, revision 1.1

1.1     ! root        1: .data
        !             2: .text
        !             3: LL0:.align     1
        !             4: .globl _s_cmp
        !             5: .set   MASK__,0x1004
        !             6: .data
        !             7: .text
        !             8: _s_cmp:.word   MASK__
        !             9: movl   4(fp),r0                /* a */
        !            10: movl   8(fp),r1                /* b */
        !            11: movl   12(fp),r12              /* la */
        !            12: cmpl   r12,16(fp)              /* if (la <= lb) */
        !            13: jgtr   L17
        !            14: movl   r12, r2                 /* compare according to la */
        !            15: cmps3
        !            16: jeql   L2                      /* if not equal */
        !            17: 
        !            18: L20:
        !            19: cvtbl  (r0), r0                /* return(*a - *b) */
        !            20: cvtbl  (r1), r1
        !            21: subl2  r1,r0
        !            22: ret
        !            23: 
        !            24: L2:
        !            25: cmpl   r12,16(fp)              /* if (la == lb) */
        !            26: jneq   L50
        !            27: clrl   r0                      /* then strings are equal */
        !            28: ret
        !            29: 
        !            30: L50:
        !            31: addl3  8(fp), 16(fp), r12      /* r12 = bend */
        !            32: 
        !            33: L3:
        !            34: cmpb   (r1), $32               /* if *b != space */
        !            35: jeql   L4
        !            36: cvtbl  (r1), r1
        !            37: movl   $32, r0                 /* return(' ' - *b) */
        !            38: subl2  r1, r0
        !            39: ret
        !            40: 
        !            41: L4:                            /* else loop */
        !            42: incl   r1
        !            43: cmpl   r1, r12
        !            44: jlssu  L3                      /* till bend */
        !            45: clrl   r0
        !            46: ret                            /* strings equal: return(0) */
        !            47: 
        !            48: 
        !            49: L17:                           /* else */
        !            50: movl   16(fp), r2              /* compare according to lb */
        !            51: cmps3
        !            52: jneq   L20                     /* if not equal */
        !            53:                                /* return(*a - *b) */
        !            54: addl3  4(fp), 12(fp), r12      /* r12 = aend */
        !            55: 
        !            56: L30:
        !            57: cmpb   (r0), $32               /* if *a != space */
        !            58: jeql   L40
        !            59: cvtbl  (r0), r0
        !            60: movl   $32, r1                 /* return(*a - ' ') */
        !            61: subl2  r1, r0
        !            62: ret
        !            63: 
        !            64: L40:                           /* else loop */
        !            65: incl   r0
        !            66: cmpl   r0, r12
        !            67: jlssu  L30                     /* till bend */
        !            68: clrl   r0
        !            69: ret                            /* strings equal: return(0) */
        !            70: 

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