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

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

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

;

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com