Быстрый проигрыватель AY-музыки (980-1300t)

[Sinus]

а старых аласмах можно заменить на IFDEF ENDIF
а в новом (от alone coder) есть просто IF

[GM BIT]

Откомпилил зацикленную мелодию (4 патерна + 1 пустой). С момента зацикливания проигрывается билиберда.
Мож я чего неправильно накомпилил?
В первом посту ay_zip_play такая же песня

[TmK]

В текущем плеере нет зацикливания.
Надо изменить код примерно так:

	//--- переход на новый паттерн
	LD	A,PATTSIZE	;7
	LD	(HL),A		;7
	LD	HL,(ADR_PATT)	;16
	LD	DE,ADR_A	;10
	DUP	10
	LDI			;16*10=160
	EDUP			;
	LD	(ADR_PATT),HL	;16
	;RET			;10 //226 t=1200..1287

	//--- LOOPER
	LD	HL,(ADR_PATT)
	LD	BC,END_TRACK
	AND	A
	SBC	HL,BC
	RET	NZ
	LD	HL,BEGIN_TRACK+10*XX
	LD	(ADR_PATT),HL
	RET

Где 10*XX - в этой записи XX смещение в нотах * скорость

[GM BIT]

Спасибо помогло.

//--- LOOPER
LD HL,(ADR_PATT) - можно убрать.

[VNN_KCS]

Немного разобравшись, с помощью автора и GM BIT, добился чёткой работы плеера.
Заметил недостаток в том, что при выключении музыки огибающая не выключается и остаются неприятные звуки AY-ка. Немного изменил по метке INIT. Ещё хотелось бы таких нововведений в компилятор: автоопределение адреса, чтоб при ассемблировании не выдавалось ошибки компиляции в ПЗУ. Добавить автоопределение зацикливания мелодии с одновременной вставкой текста в сорцы плеера.
Ну и напоследок - изменил плеер так, что теперь он играет по тактам "ровно" т.е., при проигрывании мелодии занимает одно и то же число тактов. Правда теперь он занимает максимальное число тактов.
Зачем? А попробуйте сделать чё-нить на бордюре, вертикальную полоску например, с обычным плеером. Да так, чтоб она не дёргалась по сторонам.

[GM BIT]

http://psndcj.blogspot.com/2011/08/tbk-psg-squezer.html - Результаты очень даже приличные, psndcj - как всегда красавчик!!! Ждем пакер

[TmK]

Давно в массы пора, еще год назад с ним обсуждали...
Непотребный код и т.п. пофиг... главное алгоритм компиляции и поригрывателя объяснить - кому надо разберется)

[GriV]

Так, автора сюда почему кода не вижу? Сами код причешем, разберёмся.

[GM BIT]

psndcj : "В связи с идеологическим несоответствием меня и окружающих" - он покинул форум
На форуме он не появляется, очень жаль, толковый парень. Его опыт и ум мог бы много дать тем кто не сведует! Ну, что поделать будем хотя-бы его блог смотреть и учиться уму разуму!

[GriV]

Дайте кто нибудь его контакты (icq контакт etc)?