@@ -680,8 +680,8 @@ begin |
| 680 |
SampleBuffers[I].Cursor := (SampleBuffers[I].Cursor + 1) mod SAMPLE_BUFFER_SIZE; |
680 |
SampleBuffers[I].Cursor := (SampleBuffers[I].Cursor + 1) mod SAMPLE_BUFFER_SIZE; |
| 681 |
end; |
681 |
end; |
| 682 |
|
682 |
|
| 683 |
l := ls[1] + ls[2] + ls[3] + ls[4]; |
683 |
l := Trunc((ls[1] + ls[2] + ls[3] + ls[4]) * (((m_iram[$FF24] and 7)+1) / 8)); |
| 684 |
r := rs[1] + rs[2] + rs[3] + rs[4]; |
684 |
r := Trunc((rs[1] + rs[2] + rs[3] + rs[4]) * ((((m_iram[$FF24] shr 4) and 7)+1) / 8)); |
| 685 |
|
685 |
|
| 686 |
SampleBuffers[0].BufferL[SampleBuffers[0].Cursor] := l; |
686 |
SampleBuffers[0].BufferL[SampleBuffers[0].Cursor] := l; |
| 687 |
SampleBuffers[0].BufferR[SampleBuffers[0].Cursor] := r; |
687 |
SampleBuffers[0].BufferR[SampleBuffers[0].Cursor] := r; |