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

1.1       root        1: .data
                      2: .text
                      3: LL0:.align     1
                      4: .globl _hl_le
                      5: .set   MASK__,0x4
                      6: .data
                      7: .text
                      8: _hl_le:.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:        jleq    out1                    /* if less or equal return(1) */
                     16:        jbr     out0                    /* else greater: return(0) */
                     17: 
                     18: LB:                                    /* else */
                     19:        movl    16(fp), r2              /* compare according to lb */
                     20:        cmps3
                     21:        jlss    out1                    /* if less return(1) */
                     22:        jgtr    out0                    /* if greater return(0) */
                     23: 
                     24:        addl3   4(fp), 12(fp), r2       /* aend */
                     25: LOOP2:
                     26:        cmpb    (r0), $32               /* if *a != space */
                     27:        jneq    out0                    /* then astring > bstring */
                     28:        incl    r0                      /* else continue */
                     29:        cmpl    r0, r2                  /* till aend */
                     30:        jlssu   LOOP2
                     31: out1:
                     32:        movl    $1, r0                  /* else return(1) */
                     33:        ret
                     34: out0:
                     35:        clrl    r0
                     36:        ret

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