Вопрос № 32555: Уавжаемые эксперти, помогите написать прогу для генерации звука на системный динамик. Очень надо, а самому мне не справится.
мыло: radik87@gmail.com
Заранее спасибо и всех с Новым Годом!!!!!
NameLess ...
Вопрос № 32.555
Уавжаемые эксперти, помогите написать прогу для генерации звука на системный динамик. Очень надо, а самому мне не справится.
мыло: radik87@gmail.com
Заранее спасибо и всех с Новым Годом!!!!!
NameLess
Отправлен: 03.01.2006, 01:38
Вопрос задал: NameLess (статус: Посетитель)
Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Евгений Иванов
Здравствуйте, NameLess!
proc sound
push ax ;#
push cx
in al,61h
or al,3
out 61h,al
mov al,0B6h
out 43h,al
mov ax,4000 ;частота,чем > x,тем < частота(F). x=1,193,180/F Гц
out 42h,al
mov al,ah
out 42h,al
xor ax,ax
out 40h,al
mov al,ah
out 40h,al
xor cx,cx
loop $
mov ax,3500
out 42h,al
mov al,ah
out 42h,al
xor cx,cx
loop $
mov ax,1000
out 42h,al
mov al,ah
out 42h,al
xor cx,cx
loop $
mov ax,2500
out 42h,al
mov al,ah
out 42h,al
xor cx,cx
loop $
mov ax,1500
out 42h,al
mov al,ah
out 42h,al
xor cx,cx
loop $
in al,61h
and al,0FCh
out 61h,al
pop cx ax
ret
endp
--------- Что имеем - не храним, потерявши - плачем
Ответ отправил: Евгений Иванов (статус: Профессор)
Отправлен: 03.01.2006, 01:59 Оценка за ответ: 5