Не компилируется мелодия на ASM

[calypso]

Нашел исходники в инете,может даже на вашем сайте.
Пробовал FASM,MASM и NASM - все они выдают различные ошибки.

;=================
;= сегмент стека =
;=================
mary_stack SEGMENT PARA STACK 'stack'
	db 64 dup('stack')
mary_stack ENDS   
;==================
;= сегмент данных =
;==================
mary_data SEGMENT PARA	PUBLIC 'data'
; время задержки  
mary_time dw 6 dup (25), 50
	  dw 2 dup (25, 25), 50, 25, 25, 50
	  dw 12 dup (25), 100
; цельная нота, это 100 (1 сек), половинная 50, 25 это четверть, и т. д.
;++++++++++++++++++++++
; мелодия мери    
mary_freq dw 330, 294, 262, 293, 3 dup(330)	; 1-2 такт
	  dw 3 dup(294), 330, 2 dup(392)	; 3-4 такт
	  dw 330, 294, 262, 294, 4 dup (330)	; 5-6 такт
	  dw 2 dup (294), 330, 294, 262, 0FFFFh ; 7-8 такт
; нота соответствуют частотам
; до 130,8        
; диез 138,6      
; ре 146,8        
; ми 164,8        
; диез 155,6      
; фа 174,8        
; соль 196        
; диез 185        
; ля 220          
; диез 207,7      
; си 246,9        
; ----------      
; до 261          
; диез 277,2      
; ре 293,7        
; диез 311,1      
; ми 329,6        
; фа 349,2        
; диез 370        
; соль 392        
; диез 415        
; ля 440          
; диез 464,2      
; cи 493,9        
mary_data ENDS	  
;================ 
;= сегмент кода = 
;================ 
mary_code SEGMENT PARA PUBLIC 'code'
		  
mary proc far	  
assume CS: mary_code, DS: mary_data, SS: mary_stack
	push DS   
	xor ax, ax   ; обнуляем ax
	push ax      ; DS:0000 по нему будем выходить в ОС
		  
	mov ax, mary_data ; явно определим сегмент данных
	mov DS, ax
	; подготовим все для проигрыша звука, т. е.
	lea si, mary_freq   ; загрузим в si массив мелодии
	call play	    ; запускаем процедуру play
       ret	  
mary endp	  
		  
; Процедра play проигрывает мелодию
; в регистре si должен находиться адрес массива мелодии
play proc near	  
	push ax 	  ; cохраняем регистры
	push di   
	push si   
	push bp   
       @freq:	  
	 mov di, [si]	  ; загружаем в di следующую ноту
	 cmp di, 0FFFFh   ; сравниваем, не конец ли? (0FFFFh признак окончания)
	 je @end_play	  ; если конец, то заканчиваем проигрывать
			  ; если нет, то воспроизведем звук
	 mov bx, mary_time+bp
	 call sound	  ; вызвав процедуру sound
	 add si, 2	  ; ставим указатель на следующую ноту
	 add bp, 2	  ; и соответственно на следующий такт
	 jmp @freq	  ; прыгаем на следующий проигрыш ноты
		  
       @end_play: 
	 pop bp 	  ; восстанавливаем регистры
	 pop si   
	 pop di   
	 pop ax   
      ret	  
play endp	  
		  
; процедура sound проигрывает звук
; в di соответствущая нота
; в bx задержка   
sound proc near   
	push ax       ; сохраним регистры
	push bx   
	push cs   
	push dx   
	push di   
		  
	mov al, 0BCh
	out 43h, al	   ; запишем в al значение таймера
	mov dx, 14h	   ; делитель времени
	mov ax, 4F33h	   ; 1331000 делить на частоту
	div di	  
	out 42h, al	   ; младший байт счетчика таймера
	mov al, ah
	out 42h, al
	in al, 61h
	mov ah, al
	or al, 3	   ; включаем динамики
	out 61h, al
	@waits: 	   ; делаем задержку
	 mov cx, 10000	   ; в 10 милисекунд
	 loop $   
	 dec bx 	   ; пока не кончиться bx
	 jnz @waits	   ; будем выводить звук
	mov al, ah
	out 61h, al	   ; восстанавливаем порт в начальное состояник
		  
	pop di	      ; восстановим регистры
	pop dx	  
	pop cx	  
	pop bx	  
	pop ax	  
       ret	  
sound endp	  
mary_code ENDS	  
	  END mary

[Serge_Bliznykov]

не знаю, старым антикварным tasm (tasm.zip) всё скомпилировалось и собралось в рабочий EXE вообще без проблем..

[vadimych]

calypso, в таких случаях нужно прежде всего сообщения ассемблера об ошибках показывать, код уже второе.

[_PROGRAMM_]

push ax ; сохраним регистры
push bx
push cs
push dx
push di

А что если заменить на PUSHA/POPA?
Вот точно не помню, но заработает ли такой код в Win7? В ней, если я не ошибаюсь нужно работать через Beep из WinAPI.
---
Вот такой вопрос на засыпку. Можно ли параллельно воспроизводить звуки в спикере? Аккорды, например. Есть конечно предположение, что он не может работать асинхронно, но все же.

[calypso]

Ну к примеру FASM последней версии выдает такую ошибку:

[calypso]

TASM выдает вот что:
Assembling file: OVECHKA_MARY.ASM
**Fatal** Command line: Can't locate file: OVECHKA_MARY.ASM
Error messages: 1
Warning messages: None
Remaining memory: 400k

PS Получилось,делал как тут написано:
http://stilus-doctus.narod.ru/tasm/tasm_2.html
TASM ещё оказывается длинные названия файлов не видит,нужно переименовать в 8 символов или короче

[Serge_Bliznykov]

Сообщение от calypso

TASM ещё оказывается длинные названия файлов не видит,нужно переименовать в 8 символов или короче

ну, вот, если бы сразу сделали, как предлагал vadimych - опубликовали текст ошибки, то и подсказку получили бы сразу.

Разумеется, не видит. TASM - это старая [szie=3]DOS[/size]овская программа, она и не должна длинные имена видеть!


p.s. кстати, не знаю, будет ли для Вас сюрпризом, но полученный вами exeшник тоже является приложением под MS DOS, и поэтому возможны проблемы с работоспособностью на современных Windows (Vista/7/8)

[vadimych]

В строке

	 mov bx, mary_time+bp

желательно скобки поставить.

	 mov bx, [mary_time+bp]