interpol1a?:
; o: r5=frac
; i: r0=idx,
; r4=&table,
; r5=Upperval??

mov     r4, r3
loc_54B6:
mov.b   @(r0,r4), r1
extu.b  r1, r1
cmp/eq  r1, r5
bt      ret_0
cmp/hi  r1, r5
bf      dec_r4
cmp/eq  r4, r3
bt      ret_0
sub     r1, r5
shll16  r5              ; r5=(U-tab(x1))<<16
add     r4, r0
mov.b   @r0, r1         ; r1=tab(x1)
mov.b   @(1,r0), r0     ; r0=tab(x2)
extu.b  r1, r1
extu.b  r0, r0
sts.l   pr, @-r15
mov.w   @(h'16,pc), r2 ; [000054F0] = h'57D4
sub     r1, r0          ; r0=deltatab?
jsr     @r2 ; div32?    ; 32bit div;
                        ; r0=r1/r0
mov     r5, r1
lds.l   @r15+, pr
rts
mov     r0, r5



************

interpol1b?:
mov     r4, r3

loc_5536:
mov.b   @(r0,r4), r1
extu.b  r1, r1
shll2   r1
cmp/eq  r5, r1
bt      loc_5572
cmp/hi  r5, r1
bt      loc_556A
cmp/eq  r4, r3
bt      loc_5572
sub     r1, r5
shll16  r5
mov     r4, r3
add     r0, r3
mov.b   @r3, r1
mov.b   @(1,r3), r0

loc_5554:
extu.b  r1, r1
extu.b  r0, r0
sts.l   pr, @-r15
mov.w   @(h'18,pc), r2 ; [00005576] = h'57D4
sub     r1, r0
shll2   r0
jsr     @r2 ; div32?    ; 32bit div;
                        ; r0=r1/r0
mov     r5, r1
lds.l   @r15+, pr
rts
mov     r0, r5

loc_556A:
add     #-1, r4
cmp/pz  r4
bt      loc_5536
mov     #0, r4

loc_5572:
rts
mov     #0, r5