Subversion Repositories Kolibri OS

Rev

Rev 374 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
374 serge 1 
format MS COFF
2 
 
3 
include "snd.inc"
4 
include "proc32.inc"
5 
 
6 
section '.text' align 16 code readable executable
7 
 
8 
public _SetPan@8
9 
 
10 
extrn hSound
11 
 
12 
align 4
376 serge 13 
_SetPan@8:           ;str:dword, pan:dword
374 serge 14 
           push ebx
15 
           push ecx
376 serge 16 
 
17 
           xor eax, eax
18 
           lea ebx, [esp+12]   ;[stream]
374 serge 19 
 
376 serge 20 
           push eax            ;.out_size
21 
           push eax            ;.output
22 
           push 12             ;.inp_size
23 
           push ebx            ;.input
24 
           push SND_SETPAN     ;.code
25 
           push dword [hSound] ;.handle
374 serge 26 
 
27 
           mov eax, 68
28 
           mov ebx, 17
376 serge 29 
           mov ecx, esp
374 serge 30 
           int 0x40
376 serge 31 
           add esp, 24
374 serge 32 
           pop ecx
33 
           pop ebx
376 serge 34 
           ret 8