 РАбота с динамиком., Бэн ай нид хелп ! :) |
ПРАВИЛА РАЗДЕЛА!!!
1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!
| ak159 |
 10.01.2006 0:08
Сообщение
#1
|
|
Группа: Пользователи Сообщений: 1 Пол: Мужской Репутация:  0   |
Нуждаюсь в информации о написании програмы, которая бы издавала бы какую-то заданую мелодию, с помощью динамика.
Вот нашел текст проги, которая издает новогоднию мелодию, только вот вьехать в неё никак не могу 
sseg segment stack
db 256 dup(?)
sseg ends
dseg segment
pausa1 dw 0
pausa2 dw 0
dseg ends
cseg segment
assume ss:sseg,cs:cseg,ds:dseg
start: jmp main
main: mov ax,dseg
mov ds,ax
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00007h
mov pausa2,0a120h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00007h
mov pausa2,0a120h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0f1h
mov bl,05h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0e8h
mov bl,08h
mov pausa1,00005h
mov pausa2,0b8d8h
call proc1
call proc2
mov bh,0efh
mov bl,07h
mov pausa1,00001h
mov pausa2,0e848h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,0000fh
mov pausa2,04240h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00005h
mov pausa2,0b8d8h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00001h
mov pausa2,0e848h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00001h
mov pausa2,0e848h
call proc1
call proc2
mov bh,11h
mov bl,07h
mov pausa1,00001h
mov pausa2,0e848h
call proc1
call proc2
mov bh,0f1h
mov bl,05h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0f1h
mov bl,05h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0ach
mov bl,06h
mov pausa1,00003h
mov pausa2,0d090h
call proc1
call proc2
mov bh,0e8h
mov bl,08h
mov pausa1,0000fh
mov pausa2,04240h
call proc1
call proc2
mov ax,4c00h
int 21h
proc1 proc near
mov al,10110110b
out 43h,al
mov al,bh
out 42h,al
mov al,bl
out 42h,al
in al,61h
or al,00000011b
out 61h,al
mov cx,pausa1
mov dx,pausa2
mov ah,86h
int 15h
in al,61h
and al,11111100b
out 61h,al
ret
proc1 endp
proc2 proc near
mov al,10110110b
out 43h,al
mov al,00h
out 42h,al
mov al,00h
out 42h,al
in al,61h
mov cx,00000
mov dx,0f424h
mov ah,86h
int 15h
in al,61h
and al,11111100b
out 61h,al
ret
proc2 endp
cseg ends
end start
ПС. Ламер я в асемблере. Сообщение отредактировано: volvo - 3.11.2006 0:25 |
   |
 
|
Сообщений в этой теме
ak159 РАбота с динамиком. 10.01.2006 0:08
Dark что именно не ясно? 13.01.2006 6:08
zloy_pes Вот - не мелодия, конечно, но спикер орёт :) :
.mo... 14.01.2006 0:51  |
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 26.07.2025 6:18 |