ZX Like Pascal

[ALKO]

Vortex tracker.

У него на выходе получаются две функции (инит, и плэй, причём плэй надо самому каждый раз вызывать через CALL с частотой 50 герц). А шоб оно само по себе за счёт тактов прерываний играло, даж не знаю как это делается :\
Выше описанный код я ещё не пробовал переварить.
LastAddr - это уже где массив данных самого модуля заканчивается? И надо ставить эту метку аккурат на последний байт данных? Или где начинается уже первый NOP ? Сложновато.. ух и сложновато.

[Reobne]

У него на выходе получаются две функции (инит, и плэй, причём плэй надо самому каждый раз вызывать через CALL с частотой 50 герц). А шоб оно само по себе за счёт тактов прерываний играло, даж не знаю как это делается :\

Вот, я так и думал!
То что я тебе прислал, оно как раз и будет вызывать плэй.

LastAddr - это уже где массив данных самого модуля заканчивается? И надо ставить эту метку аккурат на последний байт данных?

В самом конце текста, уже после всех данных и кода.
При инициализации IM 2, по классике, нужно сделать таблицу в 257 байт. Вот это как раз для этой таблицы. Она заведётся в свободной памяти, после кода и данных. Так же нужно код поместить по адресу с одинаковым старшим и младшим байтами. Сейчас я просто ставлю JP в следующем секторе памяти, считая и его свободным. Если памяти будет не хватать, а код более менее устаканится, то можно будет переписать, приспособив к существующему коду, менее расточительно.

- - - Добавлено - - -

call MusicPlay

Вот тут не забудь вставить адрес игруна музыки.
Таво самого про которого ты писал:

причём плэй надо самому каждый раз вызывать через CALL с частотой 50 герц

[ALKO]

Тээк-с.
Всё сделал согласно ваших указаний по шаманству над interrupt-музоном.
Работает, но как и прежде - проседает фпс/темп музла именно при обработке клавы.
Наглядно на реале (он у меня даже чутка быстрее эмуля, но даже на нём появляются такие просадки)
https://vk.com/wall-145919754_676

[Dart Alver]

Всё сделал согласно ваших указаний по шаманству над interrupt-музоном.
Работает, но как и прежде - проседает фпс/темп музла именно при обработке клавы.
Наглядно на реале (он у меня даже чутка быстрее эмуля, но даже на нём появляются такие просадки)

Забавно !!! Похожая хрень была у меня на профике. Там был контроллер PC-клавы, который выдавал сигнал wait на шину процессора при обработке нажатия клавиш. Однако твоя клава на писюшную вроде как совсем не похожа... Забавно )))

[ALKO]

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

- - - Добавлено - - -

Подскажите по пресетам ZX-paintbrush. Из него же можно в нужном виде для ZX-паскаля экспортнуть массив данных под спрайты?


- - - Добавлено - - -

можно же как-то выделить даже нужный ректангл для экспорта?

[Dart Alver]

Вряд ли именно графика просаживает.

Не я не про графику говорил. Тут интересно как работает контроллер клавиатуры (если он есть) на твоём реале и как эмулируется на эмуляторе. Тормозит при нажатии любой клавиши или только тех которые используются ? Если есть правый синклер джойстиком, попробуй завести через него [98760] и сравнить через джойстик и клаву.
Если джойстик не тормозит а клава тормозит, значит проблема аппаратная - тормозится сам процессор на момент работы контроллера.

[ALKO]

Контроллер клавиатуры? На Горбатом? Нонсенс.
У меня не АТМ турбо, и не пент-евы. Обычный ленин. Да и эмулятор в режиме обычного 48к.
По-моему там просто крест-накрест линии ввода-вывода Z80 на клавиатуре сидят (грубо говоря. Если не учитывать всякие регистры-буферы для развязки).

[ALKO]

Reobne,

Значит ещё раз, что нужно сделать:
1. Убрать все вызовы музыкального плейера, кроме как в
функции Im2Go
2. Сделать вызов Im2Init после инициализации музыки.

Именно так я и сделал. (фигурные скобочки - это "комментарии" на паскале, если чё).

{Главный цикл}
begin
asm(MUSINIT);
asm(Im2Init);
Color(41);
ClrScr;

game_state:=0;
init_menu_f:=0;

while 1<2 do {бесконечный цикл, условие всегда выполняется}
begin

case game_state of
0 : menu;
1 : init_game;
2 : begin
	drawAlice;
	enemyMove;
	Asm(SCROLL3);
	Asm(SCROLL3);
	drawBarrier;
	{Asm(MUSPLAY);}

	end;
end;


end;
end.

[Andrew771]

asm(MUSINIT);
asm(Im2Init);

Нафига эти оба? Второе только нужно.

[ALKO]

Нафига эти оба? Второе только нужно.

Блен. Там ща такая путаница возникла.
Асм-компилятор EmuZwin не перезатирал старый снапшот, когда я пастил туда обновлённый код.
То что я скинул по мылу Reobne получается это старая версия.

А c Im2Init оно вообще ресетится, оказывается.
Странненько...