Return to s_cmp_s.s CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / usr.lib / libF77 / CCI

Annotation of 43BSDTahoe/usr.lib/libF77/CCI/s_cmp_s.s, revision 1.1

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

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