Генерация звукого сигнала на встроенном динамике

procedure
 Sound(Frequency, Duration: Integer);
asm

   push edx
   push eax
   mov eax, Win32Platform
   cmp eax, VER_PLATFORM_WIN32_NT
   jne @@9X
   call Windows.Beep
   ret
@@9X:
   pop eax
   pop edx
   push ebx
   push edx
   mov bx, ax
   mov ax, 34DDh
   mov dx, 0012h
   cmp dx, bx
   jnc @@2
   div
 bx
   mov bx, ax
   in
 al, 61h
   test al, 3
   jnz @@1
   or
 al, 3
   out
 61h, al
   mov al, 0B6h
   out
 43h, al
@@1:
   mov al, bl
   out
 42h, al
   mov al, bh
   out
 42h, al
   call Windows.Sleep
   in
 al, 61h
   and
 al, 0FCh
   out
 61h, al
   jmp @@3
@@2:
   pop edx 
@@3:
   pop ebx
end
;

Другое по теме:

• Как воспроизвести wav-файл из ресурса (в EXE)
• Работа с микрофоном
• Изменение громкости