1# "@(#)hl_ge_s.s 5.1 (Berkeley) 11/03/86" 2 3.data 4.text 5LL0:.align 1 6.globl _hl_ge 7.set MASK__, 0x4 8.data 9.text 10_hl_ge:.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 jlss out0 /* if less return(0) */ 18 jgtr out1 /* if greater return(1) */ 19 20 cmpl 12(fp),16(fp) /* if (la == lb) */ 21 jeql out1 /* then equal */ 22 23 addl3 8(fp), 16(fp), r2 /* bend */ 24LOOP1: 25 cmpb (r1), $32 /* if *b != space */ 26 jneq out0 /* then astring < bstring */ 27 incl r1 /* else continue */ 28 cmpl r1, r2 /* till bend */ 29 jlssu LOOP1 30 jbr out1 31 32LB: /* else */ 33 movl 16(fp), r2 /* compare according to lb */ 34 cmps3 35 jlss out0 /* if less return(0) */ 36 37out1: 38 movl $1, r0 39 ret 40out0: 41 clrl r0 42 ret 43