.function gaudi_orc_burn .so urce 4 src guint32 .param 4 adj gint .const 1 c255 255 .const 1 c7 7 .const 1 c1 1 x4 copyb tmp, src # tmp <- src x4 convubw tmp2, tmp # convert from size 1 to 2 x4 addw a2, tmp2, adj # a = tmp + adjustment x4 shruw a2, a2, c1 # a = a / 2 x4 subb tmp, c255, tmp # tmp = 255 - tmp #x4 mulubw tmp2, tmp, c127 # tmp = tmp * 127 x4 convubw tmp2, tmp # convert from size 1 to 2 x4 shlw tmp2, tmp2, c7 # tmp = tmp * 128 x4 divluw tmp2, tmp2, a2 # tmp = tmp / a x4 subw tmp2, c255, tmp2 # tmp = 255 - tmp x4 convwb tmp, tmp2 # convert from size 2 to 1 storel dest, tmp