usr/src/usr.bin/f77/libF77/CCI/hl_le_s.s

/*-
 * Copyright (c) 1991 The Regents of the University of California.
 * All rights reserved.
 *
 * This code is derived from software contributed to Berkeley by
 * Computer Consoles Inc.
 *
 * This module is believed to contain source code proprietary to AT&T.
 * Use and redistribution is subject to the Berkeley Software License
 * Agreement and your Software Agreement with AT&T (Western Electric).
 */

#ifndef lint
        .asciz "@(#)hl_le_s.s   5.2 (Berkeley) 4/12/91"
#endif /* not lint */

.data
.text
LL0:.align      1
.globl  _hl_le
.set    MASK__,0x4
.data
.text
_hl_le:.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
        jleq    out1                    /* if less or equal return(1) */
        jbr     out0                    /* else greater: return(0) */

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

        addl3   4(fp), 12(fp), r2       /* aend */
LOOP2:
        cmpb    (r0), $32               /* if *a != space */
        jneq    out0                    /* then astring > bstring */
        incl    r0                      /* else continue */
        cmpl    r0, r2                  /* till aend */
        jlssu   LOOP2
out1:
        movl    $1, r0                  /* else return(1) */
        ret
out0:
        clrl    r0
        ret