BSD 4_3_Tahoe release

[unix-history] / usr / src / usr.lib / libF77 / CCI / hl_ge_s.s

#       "@(#)hl_ge_s.s  5.1 (Berkeley) 11/3/86"

.data
.text
LL0:.align      1
.globl  _hl_ge
.set    MASK__, 0x4
.data
.text
_hl_ge:.word    MASK__
       movl    4(fp),r0                /* a */
       movl    8(fp),r1                /* b */
       cmpl    12(fp),16(fp)           /* if (la <= lb) */
       jgtr    LB
       movl    12(fp), r2              /* compare according to la */
       cmps3
       jlss    out0                    /* if less return(0) */
       jgtr    out1                    /* if greater return(1) */

       cmpl    12(fp),16(fp)           /* if (la == lb) */
       jeql    out1                    /* then equal */

       addl3   8(fp), 16(fp), r2       /* bend */
LOOP1:
       cmpb    (r1), $32               /* if *b != space */
       jneq    out0                    /* then astring < bstring */
       incl    r1                      /* else continue */
       cmpl    r1, r2                  /* till bend */
       jlssu   LOOP1
       jbr     out1

LB:                                     /* else */
       movl    16(fp), r2              /* compare according to lb */
       cmps3
       jlss    out0                    /* if less return(0) */

out1:
       movl    $1, r0
       ret
out0:
       clrl    r0
       ret