Return to l_le_s.s CVS log

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

Annotation of 43BSDTahoe/usr.lib/libF77/CCI/l_le_s.s, revision 1.1.1.1

1.1       root        1: #      "@(#)l_le_s.s   5.1 (Berkeley) 11/3/86"
                      2: 
                      3: .data
                      4: .text
                      5: LL0:.align     1
                      6: .globl _l_le
                      7: .set   MASK__,0x4
                      8: .data
                      9: .text
                     10: _l_le:.word    MASK__
                     11:        movl    4(fp),r0                /* a */
                     12:        movl    8(fp),r1                /* b */
                     13:        cmpl    12(fp),16(fp)           /* if (la <= lb) */
                     14:        jgtr    LB
                     15:        movl    12(fp), r2              /* compare according to la */
                     16:        cmps3
                     17:        jleq    out1                    /* if less or equal return(1) */
                     18:        jbr     out0                    /* else greater: return(0) */
                     19: 
                     20: LB:                                    /* else */
                     21:        movl    16(fp), r2              /* compare according to lb */
                     22:        cmps3
                     23:        jlss    out1                    /* if less return(1) */
                     24:        jgtr    out0                    /* if greater return(0) */
                     25: 
                     26:        addl3   4(fp), 12(fp), r2       /* aend */
                     27: LOOP2:
                     28:        cmpb    (r0), $32               /* if *a != space */
                     29:        jneq    out0                    /* then astring > bstring */
                     30:        incl    r0                      /* else continue */
                     31:        cmpl    r0, r2                  /* till aend */
                     32:        jlssu   LOOP2
                     33: out1:
                     34:        movl    $1, r0                  /* else return(1) */
                     35:        ret
                     36: out0:
                     37:        clrl    r0
                     38:        ret

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