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