otomatalabs/furnace
7
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

Add asm comments

Browse source
This commit is contained in:
Natt Akuma 2024-02-01 22:16:04 +07:00
parent d7bdf82cc6
commit 17d8258d2e
1 changed files with 33 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

53
extern/ESFMu/esfm.c vendored
View file

@ -1751,7 +1751,7 @@ ESFM_process_feedback(esfm_chip *chip)
uint32 basefreq, phase_offset; uint32 basefreq, phase_offset;
uint3 block; uint3 block;
uint10 f_num; uint10 f_num;
int32_t in1 = 0, in2 = 0, wave_out; int32_t wave_out, wave_last;
int32_t phase_feedback; int32_t phase_feedback;
uint19 regressed_phase; uint19 regressed_phase;
int iter_counter; int iter_counter;
@ -1792,55 +1792,68 @@ ESFM_process_feedback(esfm_chip *chip)
"movl %%r11d, %k[out] \n\t" "movl %%r11d, %k[out] \n\t"
"movw $29, %%dx \n" "movw $29, %%dx \n"
"1: \n\t" "1: \n\t"
"movl %k[p_acc], %%eax \n\t" // phase_feedback = (wave_out + wave_last) >> 2;
"shrl $9, %%eax \n\t"
"movl %k[out], %k[p_fb] \n\t" "movl %k[out], %k[p_fb] \n\t"
"addl %%r11d, %k[p_fb] \n\t" "addl %%r11d, %k[p_fb] \n\t"
"sarl $2, %k[p_fb] \n\t" "sarl $2, %k[p_fb] \n\t"
// wave_last = wave_out
"movl %k[out], %%r11d \n\t"
// phase = phase_feedback >> mod_in_shift;
"movl %k[p_fb], %%ebx \n\t" "movl %k[p_fb], %%ebx \n\t"
"movb %b[mod_in], %%cl \n\t" "movb %b[mod_in], %%cl \n\t"
"sarl %%cl, %%ebx \n\t" "sarl %%cl, %%ebx \n\t"
// phase += phase_acc >> 9;
"movl %k[p_acc], %%eax \n\t"
"shrl $9, %%eax \n\t"
"addl %%ebx, %%eax \n\t" "addl %%ebx, %%eax \n\t"
// lookup = logsinrom[(waveform << 10) | (phase & 0x3ff)];
"andq $0x3ff, %%rax \n\t" "andq $0x3ff, %%rax \n\t"
"movl %k[out], %%r11d \n\t"
"movl $0x1fff, %%ecx \n\t"
"movzwl (%%r8, %%rax, 2), %%ebx \n\t" "movzwl (%%r8, %%rax, 2), %%ebx \n\t"
"movl %%ebx, %%eax \n\t" "movl %%ebx, %%eax \n\t"
// level = (lookup & 0x1fff) + (envelope << 3);
"movl $0x1fff, %%ecx \n\t"
"andl %%ecx, %%eax \n\t" "andl %%ecx, %%eax \n\t"
"addl %%r10d, %%eax \n\t" "addl %%r10d, %%eax \n\t"
// if (level > 0x1fff) level = 0x1fff;
"cmpl %%ecx, %%eax \n\t" "cmpl %%ecx, %%eax \n\t"
"cmoval %%ecx, %%eax \n\t" "cmoval %%ecx, %%eax \n\t"
// wave_out = exprom[level & 0xff] >> (level >> 8);
"movb %%ah, %%cl \n\t" "movb %%ah, %%cl \n\t"
"movzbl %%al, %%eax \n\t" "movzbl %%al, %%eax \n\t"
"movzwl (%%r9, %%rax, 2), %k[out] \n\t" "movzwl (%%r9, %%rax, 2), %k[out] \n\t"
"shrl %%cl, %k[out] \n\t" "shrl %%cl, %k[out] \n\t"
// if (lookup & 0x8000) wave_out = -wave_out;
// in other words, lookup is negative
"movl %k[out], %%ecx \n\t" "movl %k[out], %%ecx \n\t"
"negl %%ecx \n\t" "negl %%ecx \n\t"
"testw %%bx, %%bx \n\t" "testw %%bx, %%bx \n\t"
"cmovsl %%ecx, %k[out] \n\t" "cmovsl %%ecx, %k[out] \n\t"
// phase_acc += phase_offset
"addl %k[p_off], %k[p_acc] \n\t" "addl %k[p_off], %k[p_acc] \n\t"
// loop
"decw %%dx \n\t" "decw %%dx \n\t"
"jne 1b \n\t" "jne 1b \n\t"
: [p_fb] "+r" (phase_feedback), : [p_fb] "=&r" (phase_feedback),
[p_acc] "+r" (phase_acc), [p_acc] "+r" (phase_acc),
[out] "+r" (wave_out) [out] "+r" (wave_out)
: [p_off] "g" ((uint32_t)phase_offset), : [p_off] "g" ((uint32_t)phase_offset),
[mod_in] "g" ((uint8_t)mod_in_shift), [mod_in] "g" ((uint8_t)mod_in_shift),
[wave] "g" ((uint8_t)waveform), [wave] "g" ((uint8_t)waveform),
[eg_out] "g" ((uint32_t)eg_output), [eg_out] "g" ((uint32_t)eg_output),
[sinrom] "m" (logsinrom), [sinrom] "m" (logsinrom),
[exprom] "m" (exprom) [exprom] "m" (exprom)
: "cc", "ax", "bx", "cx", "dx", "r8", "r9", "r10", "r11" : "cc", "ax", "bx", "cx", "dx", "r8", "r9", "r10", "r11"
); );
#else #else
wave_out = 0;
wave_last = 0;
for (iter_counter = 28; iter_counter >= 0; iter_counter--) for (iter_counter = 28; iter_counter >= 0; iter_counter--)
{ {
phase = phase_acc >> 9; phase_feedback = (wave_out + wave_last) >> 2;
phase_feedback = (in1 + in2) >> 2; wave_last = wave_out;
phase += phase_feedback >> mod_in_shift; phase = phase_feedback >> mod_in_shift;
phase += phase_acc >> 9;
wave_out = ESFM_envelope_wavegen(waveform, phase, eg_output); wave_out = ESFM_envelope_wavegen(waveform, phase, eg_output);
in2 = in1;
in1 = wave_out;
phase_acc += phase_offset; phase_acc += phase_offset;
} }
#endif #endif