Return to l_ge_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/l_ge_s.s, revision 1.1.1.1

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

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