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