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