Subversion Repositories Kolibri OS

Rev

Go to most recent revision | Blame | 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 _SetPan@8
  9. ;public _GetPan@4
  10.  
  11. extrn hSound
  12.  
  13. align 4
  14. proc _SetPan@8 stdcall, str:dword, pan:dword
  15.            locals
  16.              handle     dd ?
  17.              io_code    dd ?
  18.              input      dd ?
  19.              inp_size   dd ?
  20.              output     dd ?
  21.              out_size   dd ?
  22.            endl
  23.            
  24.            push ebx
  25.            push ecx
  26.            mov eax, [hSound]
  27.            lea ebx, [str]
  28.            xor ecx, ecx
  29.  
  30.            mov [handle], eax
  31.            mov [io_code], SND_SETPAN
  32.            mov [input], ebx
  33.            mov [inp_size], 8
  34.            mov [output], ecx
  35.            mov [out_size], ecx
  36.  
  37.            mov eax, 68
  38.            mov ebx, 17
  39.            lea ecx, [handle]
  40.            int 0x40
  41.            pop ecx
  42.            pop ebx
  43.            ret
  44. endp
  45.