OpenWatcom clib and sdk/sound

git-svn-id: svn://kolibrios.org@359 a494cfbc-eb01-0410-851d-a64ba20cac60
2007-02-19 05:35:21 +00:00
parent fb5ddafbe5
commit 3a9b8fb8f9
141 changed files with 18502 additions and 0 deletions
--- a/programs/develop/sdk/trunk/sound/src/sndout.asm
+++ b/programs/develop/sdk/trunk/sound/src/sndout.asm
@@ -0,0 +1,43 @@
+format MS COFF
+
+include "snd.inc"
+include "proc32.inc"
+
+section '.text' align 16 code readable executable
+
+extrn hSound      
+
+public _WaveOut@12
+
+align 4
+proc _WaveOut@12 stdcall,str:dword, src:dword, size: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
+
+           mov [handle], eax
+           mov [io_code], SND_OUT
+           mov [input], ebx
+           mov [inp_size], 12
+           mov [output], ecx
+           mov [out_size], ecx
+
+           mov eax, 68
+           mov ebx, 17
+           lea ecx, [handle]
+           int 0x40
+           pop ecx 
+           pop ebx
+           ret
+endp