Как улучшить прогу ?

[ALKO]

мне в бошку стукнула идея написать прогу иммитирующую звуки MusicBox(в самом низу закоментированы процедуры компилятора MCoder 48k):

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

[Advertiser]

[jerri]

картинок не вижу

[Sinus]

ALKO, выложи картинку куда-нибудь на нормальный картинко-хостинг, а не на фконтакте. например http://tinypic.com/

[ALKO]

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

---------- Post added at 17:19 ---------- Previous post was at 17:16 ----------

проще говоря через банкомат лазию в инете.

[molodcov_alex]

картинок не вижу

Скрытый текст

это оригинал

[свернуть]

Так видно?
На б/м нормальном хостинге: http://i076.radikal.ru/1001/35/38b2ec82b281.jpg

[jerri]

Скрытый текст

это оригинал

[свернуть]

Так видно?
На б/м нормальном хостинге:

так видно спасибо
по программе

у тебя не очень корректно сделано
правильно менять фронт по другому вот так

ld ix,table

ld c,(ix)
ld b,(ix+1)
ld a,#18

m0
	ld	hl,0	//длительность ноты
	ld e,(ix)
	ld d,(ix+1)
	inc ix
	inc ix
m1
	dec c
	jr	nz,m00
	ld c,e
	out	(#fe),a
	xor	#18
m00
	dec	b	 
	jr	nz,m01
	ld b,d
	out	(#fe),a
	xor	#18
m01
	dec	l
	jr	nz,m1
	dec	h
	jr	nz,m1

//здесь проверяем на окончание музыки
	
	dec	(ix)
	inc	(ix)
	jr	nz,m0
	ret
table
	db	#20,#20,#20,#30,#20,#40,#10,#40,#20,#30,#30,#40
	db	0

[ALKO]

а если я захочу увеличить кол-во войсов, это прийдется прибегнуть к PUSHам & POPам ?

[jerri]

не обязательно
можно чуть переписать код для получения нужного результата

сколько голосов тебе нужно?

вот тебе 4 голоса

ld ix,table

ld c,(ix)
ld b,(ix+1)
ld e,(ix+2)
ld d,(ix+3)


ld a,#18

m0
	ld	hl,0	//длительность ноты
m1
	dec c
	jr	nz,m00
	ld      c,(ix)
	out	(#fe),a
	xor	#18
m00
	dec	b	 
	jr	nz,m01
	ld      b,(ix+1)	
        out	(#fe),a
	xor	#18
m01
	dec e
	jr	nz,m02
	ld      e,(ix+2)
	out	(#fe),a
	xor	#18
m02
	dec d
	jr	nz,m03
	ld      d,(ix+3)
	out	(#fe),a
	xor	#18
m03
	dec	l
	jr	nz,m1
	dec	h
	jr	nz,m1

//здесь проверяем на окончание музыки
       inc ix
       inc ix
       inc ix
       inc ix



	
	dec	(ix)
	inc	(ix)
	jr	nz,m0
	ret
table
	db	#20,#20,#20,#30,#20,#40,#10,#40,#20,#30,#30,#40
	db	0

хотя конечно серьезные плееры делаются не так

[ALKO]

кому нибудь известно об исходниках движков музыки фирмы Code Masters (ATVsim,FastFood,SlotMachine,Soccer)? там задействованы два тона со сменой ширины импульса,по мере звучания верхний фронт уменьшается.


и любопытно как смогли симмитровать звук эл.гитары программеры от HEWSON (stormlord и cybernoid 2)

[jerri]

Берешь эмулятор unreal Speccy
грузишь Fastfood ждешь когда начинает играть музыка
жмешь Escape - и начинаешь реверс инженеринг

в Stormlord и Cybernoid 2 музыка для AY - тут тебе ASM или Soundtracker в помощь