=== lever-free bodies in main sharing a callee or global with func_80037F3C (3 found; top 6 by shared symbols) — read them for the SHAPE ===
--- func_8003916C (src/800_c.c:3341) shares 1: D_800C6DD0 ---
void func_8003916C(s16 arg0)
{
    extern u8 D_800C6DD0[];
    u8 *a1;
    s32 off;

    a1 = &D_800C6DD0[arg0 * 0x60];
    if (a1[0x5A] != 0) {
        off = *(s16 *)&a1[6] * 26;
        *(u8 *)(*(u32 *)&a1[0x50] + off + arg0 + 0x23) = 0;
        a1[0x5A] = 0;
    }
}

--- func_8003A0E4 (src/800_c.c:3990) shares 1: D_800C6DD0 ---
void func_8003A0E4(void *arg0, s16 arg1) {
    u8 *src;
    u8 *t2;
    u8 *t1;
    u8 *a2;
    u8 *a1;
    s32 i;
    s32 pan;
    u32 vol;
    u32 tmp;
    u32 prod;

    t2 = (u8 *)arg0 + (arg1 * 26 + 26);
    t1 = t2 + 9;
    src = *(u8 **)arg0;
    *(u32 *)arg0 = (u32)src + 1;
    *(s16 *)(t2 + 2) = src[0] & 0x7F;
    for (i = 0; i < 16; i++) {
        if (*t1++ != 0) {
            a2 = D_800C6DD0 + i * 0x60;
            vol = *(s16 *)(a2 + 4) << 8;
            pan = *(s16 *)(t2 + 2);
            if (pan >= 65) {
                vol += (u32)((pan - 64) * a2[0x59] * 4);
            } else if (pan < 64) {
                vol -= (u32)((64 - pan) * a2[0x58] * 4);
            }
            tmp = *(s32 *)(a2 + 0x54) - 0x3C00;
            vol -= tmp;
            a1 = a2 + 0x10;
            if (vol >= 0x5301) {
                *(s16 *)(a2 + 0x24) = 0x3FFF;
            } else {
                prod = D_8006AB30[vol >> 8];
                prod *= D_8006ABD8[(vol & 0xFE) / 2];
                *(s16 *)(a2 + 0x24) = prod >> 15;
            }
            *(u32 *)(a1 + 4) |= 0x10;
            a2[0x5D] = 1;
        }
    }
}

--- func_80039308 (src/800_c.c:3468) shares 1: D_800C6DD0 ---
void func_80039308(u8 **arg0, s16 arg1) {
    u8 *src;
    u8 *s0;
    u8 *t9;
    u8 *a3;
    u8 *t1;
    u8 *a1p;
    u8 *a0p;
    u8 *p;
    u8 *q;
    u8 *r;
    u8 *tb;
    s32 b2;
    s32 b3;
    s16 b4;
    s32 bb;
    u8 t3;
    u8 t5;
    s16 t7;
    s16 cc;
    s32 i;
    s32 cnt;
    s32 a2;
    s32 t0;
    s32 v1;
    s32 res;
    s32 idx1;
    u8 *cb;
    s32 *mm;
    s32 *mp;
    s32 mv2;
    s32 two;
    s32 tmp;
    s32 pan;
    s32 pan1;
    s32 x;
    s32 s17;
    s32 s18;
    s32 v;
    s32 u26;
    s32 n;
    s32 off;
    u32 t2;
    u16 vol;
    u32 vv;
    u32 prod;
    s32 k2;
    u8 *tbl;
    s32 tmp2;
    s32 coff;
    s32 xoff;
    s32 mv;
    s32 j;
    s32 ax;
    s32 ax2;
    u8 *pb;
    s32 c7;
    u32 gx;

    src = *arg0;
    *arg0 = src + 1;
    b2 = src[0];
    *arg0 = src + 2;
    b3 = src[1];

    if (b3 != 0) {
        if ((((u8 *)arg0 + arg1)[0x1BA] & 1) == 0) {
            s0 = (u8 *)arg0 + (arg1 * 26 + 26);
            i = 0;
            b4 = *s0;
            n = b4;
            v = n * 0x10;
            t9 = *(u8 **)((u8 *)arg0 + 0x1E0) + n * 0x200;
            cnt = *(*(u8 **)((u8 *)arg0 + 0x1DC) + v);
            if (cnt != 0) {
                u26 = b2;
                do {
                    if (u26 >= t9[6] && u26 <= t9[7]) {
                        t2 = 0x100;
                        t3 = 0;
                        t5 = 0;
                        t7 = -1;
                        t0 = 0;
                        a3 = D_800C6DDD;
                        a2 = 1;
                        t1 = D_800762B0;
                        do {
                            if (a3[0x4E] != 0) {
                                bb = a3[0];
                                if ((u8)bb < (t2 & 0xFF)) {
                                    t3 = a2;
                                    t2 = bb & 0xFF;
                                } else if ((u8)bb == (t2 & 0xFF)) {
                                    if (D_800762B3[a2] == 0 && *t1 == 2) {
                                        t3 = a2;
                                    }
                                }
                            } else {
                                t5 = 1;
                                t7 = t0;
                                break;
                            }
                            a2++;
                            t1++;
                            t0++;
                            a3 += 0x60;
                        } while (t0 < 0x10);
                        if (t5 == 0) {
                            if (*t9 >= t2) {
                                t7 = t3 - 1;
                            } else {
                                a1p = D_800762B0;
                                a0p = D_800762B4;
                                v1 = 0;
                                while (v1 < 0x10) {
                                    if (*a1p == 2 && *a0p == 0) {
                                        res = v1;
                                        goto found;
                                    }
                                    v1++;
                                    a1p++;
                                    a0p++;
                                }
                                res = -1;
                            found:
                                t7 = res;
                            }
                        }
                        if (t7 >= 0) {
                            p = &D_800C6DD0[t7 * 0x60];
                            q = p + 0x10;
                            p[0xD] = *t9;
                            if (p[0x5C] != 0 && *(s16 *)(p + 8) == b4 && p[0xC] == i &&
                                *(s16 *)(*(u32 *)(p + 0x50) + 0x1EC) == *(s16 *)((u8 *)arg0 + 0x1EC)) {
                                *(s32 *)(p + 0x14) = 0x13;
                            } else {
                                tmp = *(s16 *)(t9 + 0x16) - 1;
                                tbl = *(u8 **)((u8 *)arg0 + 0x1DC) + (tmp >> 1) * 0x10;
                                if (tmp & 1) {
                                    x = *(s16 *)(tbl + 0xE) << 3;
                                } else {
                                    x = *(s16 *)(tbl + 0xC) << 3;
                                }
                                *(s32 *)(q + 0x1C) = x;
                                *(u16 *)(q + 0x3A) = *(u16 *)(t9 + 0x10);
                                *(u16 *)(q + 0x3C) = *(u16 *)(t9 + 0x12);
                                *(s32 *)(q + 4) = 0x6009F;
                            }
                            gx = s0[1];
                            gx -= 0x100;
                            v = b3 * (u8)gx;
                            v >>= 7;
                            v = v * t9[2];
                            v >>= 7;
                            v = D_8006ACD8[v];
                            v = v * *(s16 *)((u8 *)arg0 + 0x1F2);
                            v >>= 7;
                            if (D_800A4F19 != 0) {
                                bb = s0[4];
                                pan1 = bb + t9[3]; pan1 -= 0x40;
                                cc = pan1;
                                if (pan1 < 0) {
                                    cc = 0;
                                } else if (pan1 >= 0x80) {
                                    cc = 0x7F;
                                }
                                if (cc > 0) {
                                    s17 = v * D_8006AF08[0x80 - cc] * 4 >> 16;
                                } else {
                                    s17 = (s16)v;
                                }
                                s18 = v * D_8006AF08[cc] * 4 >> 16;
                            } else {
                                s17 = s18 = v * 0x2D41 >> 14;
                            }
                            *(s16 *)(q + 8) = (u32)((s16)s17 * *(s16 *)((u8 *)arg0 + 0x10)) >> 14;
                            *(s16 *)(q + 0xA) = (u32)((s16)s18 * *(s16 *)((u8 *)arg0 + 0x10)) >> 14;
                            pan = *(s16 *)(s0 + 2);
                            vol = b2 * 0x100;
                            if (pan >= 0x41) {
                                vol = (b2 * 0x100) + (u32)((pan - 0x40) * t9[0xD] * 4);
                            } else if (pan < 0x40) {
                                vol = (b2 * 0x100) - (u32)((0x40 - pan) * t9[0xC] * 4);
                            }
                            tmp2 = t9[4] * 0x100 - t9[5];
                            *(s32 *)(p + 0x54) = tmp2;
                            tmp2 -= 0x3C00;
                            vol -= (u32)tmp2;
                            p[0x58] = t9[0xC];
                            p[0x59] = t9[0xD];
                            vv = (u16)vol;
                            if (vv >= 0x5301) {
                                *(s16 *)(q + 0x14) = 0x3FFF;
                            } else {
                                prod = D_8006AB30[vv >> 8];
                                prod *= D_8006ABD8[(vv & 0xFE) / 2];
                                *(s16 *)(q + 0x14) = prod >> 15;
                            }
                            p[0x5D] = 1;
                            D_800A2B98 &= ~((VMask *)q)->w;
                            D_800C7D20 |= ((VMask *)q)->w;
                            D_800762B4[t7] = 1;
                            if (t9[1] & 4) {
                                D_800A2BA0 &= ~((VMask *)q)->w;
                                D_800C7D2C |= ((VMask *)q)->w;
                            } else {
                                D_800C7D2C &= ~((VMask *)q)->w;
                                D_800A2BA0 |= ((VMask *)q)->w;
                            }
                            idx1 = t7;
                            r = &D_800C6DD0[idx1 * 0x60];
                            p = r;
                            if (r[0x5A] != 0) {
                                coff = *(s16 *)&r[6] * 26;
                                *(u8 *)(*(u32 *)&r[0x50] + coff + idx1 + 0x23) = 0;
                                r[0x5A] = 0;
                            }
                            r = 0;
                            *(s0 + idx1 + 9) = 1;
                            *(s16 *)(p + 4) = b2;
                            *(s16 *)(p + 8) = b4;
                            p[0xC] = i;
                            p[0x5C] = 1;
                            *(s16 *)(p + 0) = s17;
                            *(s16 *)(p + 2) = s18;
                            *(s16 *)(p + 6) = arg1;
                            *(u32 *)(p + 0x50) = (u32)arg0;
                            p[0x5B] = 1;
                            if (*((u8 *)arg0 + 0x1F4) != 0) {
                                p[0x5A] = 2;
                            } else {
                                p[0x5A] = 1;
                            }
                        }
                    }
                    i++;
                    t9 += 0x20;
                } while (i < cnt);
            }
        }
    } else {
        j = 0;
        s17 = (s32)((u8 *)arg0 + arg1 * 26);
        s18 = b2;
        off = 0;
        do {
            if (((u8 *)s17 + j)[0x23] != 0 && *(s16 *)&D_800C6DD4[off] == s18) {
                idx1 = (s16)j;
                xoff = idx1 * 0x60;
                cb = D_800C6DD0;
                r = cb + xoff;
                if (r[0x5A] != 0) {
                    coff = *(s16 *)&r[6] * 26;
                    *(u8 *)(*(u32 *)&r[0x50] + coff + idx1 + 0x23) = 0;
                    r[0x5A] = 0;
                }
                mm = (s32 *)D_80073140;
                D_800C7D20 &= ~mm[j];
                D_800A2B98 |= mm[j];
                pb = D_800762B0 + j;
                two = 2;
                *pb = two;
                D_800762B4[j] = 0;
            }
            cb = 0;
            mm = 0;
            two = 0;
            j++;
            off += 0x60;
        } while (j < 0x10);
    }
}

