BEEP (freq, ms) для бипера, AY и даже Windows

[Eagle]

С длительностью всё гораздо сложнее. Не пойму зачем Мутель варьирует длительность звука в зависимости от его частоты (умножает на fr*6).

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

[Destr]

Ежели исходники откопаю, надо?

Надо!

[Eagle]

Что делают команды КР580ВМ80А забыл напрочь.
Кое-что откопалось с кассет :

BEEP:MVI A,0FH
STA FREQU
LXI H,250H
SHLD DLITB
MVI A,1FH
LBEEP1:INR A
CPI 70H
STA FREQU
PUSH PSW
CALL BPBEEP
POP PSW
JNZ LBEEP1
RET
BPBEEP:LHLD DLITB
LDA FREQU
MOV B,A
MOV C,A
MVI D,0
MVI E,0FFH
LBEEP2:MOV C,B
EI
MVI A,7
STA PORT
CALL PBEEP
CMP D
RZ
MOV C,B
DI
MVI A,0
STA PORT
CALL PBEEP
CMP D
JNZ LBEEP2
RET
PBEEP:DCR C
MOV A,C
CMP E
RZ
DCX H
MOV A,L
ORA H
JNZ PBEEP
RET
DLITB:DW 0
FREQU:NOP

[Oleg N. Cher]

Ну что, господа, есть смелые помочь мне с вычислением длительности звука для ZX?

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

Если никто не захочет заморачиваться - придётся оставить как есть. Но тут понадобится знание низкого уровня ПЦ и желание поковыряться.

[Eagle]

Ну что, господа, есть смелые помочь мне с вычислением длительности звука для ZX?

Такты посчитать да перемножить на циклы и частоту процессора? К моей программке применимо, только EI и STA PORT заменить на OUT.

[Oleg N. Cher]

Eagle, я просто не понял пока как вычислить длину звука (в ms) для ПЦ. А перевести в ms для Спека я уже бы как-то осилил (наверно). С этим и прошу помощи.

Видишь, jerri, в основном затыки вот такого плана как этот. Из-за них проект порой откладывается на года. Хотя ещё не написано ни строчки кода на Обероне, камне преткновения.

[Oleg N. Cher]

Найди десять отличий! Оцениваем заставку болдердаша со звуком, не забывая сравнивать с оригиналом. Для смены палитры в ПЦ-версии жмём F1 и F2, в ZX - соответственно просто 1 и 2.

P.S. Люблю заставки портировать.

[jerri]

Видишь, jerri, в основном затыки вот такого плана как этот. Из-за них проект порой откладывается на года. Хотя ещё не написано ни строчки кода на Обероне, камне преткновения.

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

[Oleg N. Cher]

Всё, всё, убедил - ты гораздо круче меня.

[Oleg N. Cher]

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

Но затык с длительностью. Вычитал, что на ПЦ из канала 0 (порт 40H) можно получить значение "тик таймера". Здесь же пишут, что он тикает 1193180 тактов в секунду. На практике у меня получается в два раза быстрее. Вот эта задержка должна работать 10 секунд, отрабатывает за 5. Ау, есть знатоки таймерных тонкостей ПЦ? Тут ведь люди эмули пишут или как?

static unsigned get_timer (void)
{{
 unsigned z;

 outportb (0x43, 0);
 z = inportb (0x40);
 return z = z | (inportb (0x40) << 8);
}}

void snd (unsigned fr, unsigned ln)
{{
 unsigned timing; long LN=1193180*10; /* Делаем 10 сек, отрабатывает за 5 */

 timing = get_timer ();
 while (LN > 0) {
   unsigned time2 = get_timer ();
   LN -= (timing - time2);
   timing = time2;
 }
}}

P.S. Скорость таймера в игре не меняется, она стандартная - 18.2 раза в секунду (точное значение - 1193180/65536 раз в секунду).