IPB
ЛогинПароль:

> ПРАВИЛА РАЗДЕЛА!!!

1. Заголовок или название темы должно быть информативным
2. Все тексты программ должны помещаться в теги [CODE=asm] [/CODE]
3. Прежде чем задавать вопрос, см. "FAQ",если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно, такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Ассемблера. Исключение только с согласия модератора.
5. НЕ используйте форум для личного общения! Все, что не относиться к обсуждению темы - на PM!
6. Проверяйте программы перед тем, как выложить их на форум!!

> РАбота с динамиком., Бэн ай нид хелп ! :)
ak159
сообщение 10.01.2006 0:08
Сообщение #1





Группа: Пользователи
Сообщений: 1
Пол: Мужской

Репутация: -  0  +

Нуждаюсь в информации о написании програмы, которая бы издавала бы какую-то заданую мелодию, с помощью динамика.
Вот нашел текст проги, которая издает новогоднию мелодию, только вот вьехать в неё никак не могу sad.gif 


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
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов(1 - 2)
Dark
сообщение 13.01.2006 6:08
Сообщение #2


Знаток
****

Группа: Пользователи
Сообщений: 408
Пол: Мужской

Репутация: -  3  +

что именно не ясно?


--------------------
- Где я?
- Во тьме.
- В какой тьме?
- Во тьме твоего мозга.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
zloy_pes
сообщение 14.01.2006 0:51
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 53
Пол: Мужской
Реальное имя: Веселовский Пётр Николаевич

Репутация: -  0  +

Вот - не мелодия, конечно, но спикер орёт smile.gif :
.model small
.code
start:
mov al,255;ставим...
out 43h,al;...таймер.
mov ax,19000;часто-
out 42h,al;та
in AL,61h;получаем состояние динамика
or AL,3;если 2 бит 0 - то динамик выключен => надо включить
out 61h,AL;включаем
jmp start;...а теперь повтор
mov ax, 4ch
int 21h
end start


--------------------
Money, hoes, cars and clothes
That's how all my niggaz know
Blowin dro, 24's
That's how all my niggaz roll...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
« Предыдущая тема · Assembler · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Линейный · Переключить на: Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 21.06.2025 1:01
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"