Thou shalt have no other gods before the ANSI C standard 1557

Is this better

1 hoist: proc(n); 0000 HOIST: C07C 0000 .entry 52 52 F7 0006 cvtlw r2,r2 56 52 32 0009 cvtwl r2,r6 52 56 D0 000C movl r6,r2 5E 52 C2 000F subl2 r2,sp 5E 03 CA 0012 bicl2 #3,sp 54 6E DE 0015 moval (sp),r4 55 D4 0018 clrl r5

2 1 %replace TBLSIZE by 256; Press RETURN to continue

3 1 4 1 dcl (i,n) fixed bin(31), 5 1 hashvalue fixed bin(31) init(0), 6 1 string char(n); 7 1 8 1 do i = 1 to length(string); 53 01 D0 001A movl #1,r3 56 01 D1 001D cmpl #1,r6 1E 14 0020 bgtr sym.2 50 D5 0022 tstl r0 0024 sym.1:

9 2 hashvalue = mod(hashvalue + rank( substr(string,i,1) ), TBLSIZE); 50 FF A443 9B 0024 movzbw -1(r4)r3,r0 52 50 32 0029 cvtwl r0,r2 52 55 C0 002C addl2 r5,r2 52 FFFFFF00 8F CA 002F bicl2 #-256,r2 52 52 F7 0036 cvtlw r2,r2 55 52 32 0039 cvtwl r2,r5

Press RETURN to continue

10 2 end; E4 53 56 F3 003C aobleq r6,r3,sym.1 0040 sym.2:

11 1 end hoist; 04 0040 ret

--