Subversion Repositories Kolibri OS

Compare Revisions

Regard whitespace Rev 376 → Rev 375

/programs/develop/sdk/trunk/sound/src/sndsetpan.asm
10,25 → 10,34
extrn hSound
 
align 4
_SetPan@8: ;str:dword, pan:dword
proc _SetPan@8 stdcall, str:dword, pan:dword
locals
handle dd ?
io_code dd ?
input dd ?
inp_size dd ?
output dd ?
out_size dd ?
endl
push ebx
push ecx
mov eax, [hSound]
lea ebx, [str]
xor ecx, ecx
xor eax, eax
lea ebx, [esp+12] ;[stream]
mov [handle], eax
mov [io_code], SND_SETPAN
mov [input], ebx
mov [inp_size], 8
mov [output], ecx
mov [out_size], ecx
 
push eax ;.out_size
push eax ;.output
push 12 ;.inp_size
push ebx ;.input
push SND_SETPAN ;.code
push dword [hSound] ;.handle
 
mov eax, 68
mov ebx, 17
mov ecx, esp
lea ecx, [handle]
int 0x40
add esp, 24
pop ecx
pop ebx
ret 8
ret
endp