Subversion Repositories Kolibri OS

Rev

Rev 374 | Blame | Compare with Previous | Last modification | View Log | Download | RSS feed

  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 _GetPan@8
  9.  
  10. extrn hSound
  11.  
  12. align 4
  13. _GetPan@8:           ;str:dword, p_pan:dword
  14.            push ebx
  15.            push ecx
  16.            
  17.            lea eax, [esp+16]
  18.            lea ebx, [esp+12]   ;[stream]
  19.  
  20.            push 4              ;.out_size
  21.            push eax            ;.output
  22.            push 4              ;.inp_size
  23.            push ebx            ;.input
  24.            push SND_GETPAN     ;.code
  25.            push dword [hSound] ;.handle
  26.  
  27.            mov eax, 68
  28.            mov ebx, 17
  29.            mov ecx, esp
  30.            int 0x40
  31.            add esp, 24
  32.            pop ecx
  33.            pop ebx
  34.            ret 8
  35.  
  36.