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

[Oleg N. Cher]

Здравия всем.

Вот, подталкиваемый jerri, я решил таки стряхнуть пыль с болдердаша. В связи с чем возник такой вопрос: в игре используются простые звуки на бипер, притом не в фоне, а занимающие время процессора. Сходу нарисовалось вот такое решение эпохи Hisoft Pascal:

static void BEEPER (unsigned int a, unsigned int b) {
  __asm
    PUSH IX
    LD   IX,#4
    ADD  IX,SP
    LD   E,0(IX)
    LD   D,1(IX)
    LD   L,2(IX)
    LD   H,3(IX)
    CALL #0x3B5
    POP  IX
__endasm;
}

void Sound_Beep (unsigned int freq, unsigned int ms) {
/*
  DE = freq * time        ; freq (Hz), time (sec) = ms/1000
  HL = 437500/freq-30.125
*/
  BEEPER(freq*ms/1000, 437500/freq-30);
}

В лоб, быстро, однако работает. Но тянет за собой длинное умножение, длинное деление, от чего хотелось бы избавиться. Есть соображения?

Также было бы полезно увидеть реализацию BEEP (freq, ms) для AY и даже для Windows (или SDL). Сам я ничего лучше не придумал, чем генерировать в памяти wav'ку и потом воспроизводить.

[Advertiser]

[shurik-ua]

и даже для Windows

https://msdn.microsoft.com/en-us/lib...=vs.85%29.aspx

[Oleg N. Cher]

Переделать в beeper(tone, ms), и использовать табличку.

tone - как я понимаю, это не частота в герцах, а высота звука, подобная ZX-бейсиковскому BEEP? Не, боюсь, мне такое решение не подойдёт. Смотрите как выглядит генерация типичного звука:

 unsigned p = 0;

 while (1) {
  unsigned m = p, k;

  m = ++ p;
  for (k = 0; m; m >>= 1)
   if (m & 1)
    k ++;
  snd (30 + (k << 4), 30);
 }

Т.е. здесь нужна именно частота. В герцах. В тон такое даже спьяну не конвертирую.

shurik-ua, начнём с того, что ф-ция винапи Beep пикает именно на встроенный динамик, а на некоторые компы его сейчас даже не устанавливают. До такого решения я и сам бы додумался. Если бы оно меня устраивало...

[jerri]

Есть еще вариант использовать процедуру Стива Тернера
вешается на прерывания занимает 1/7 фрейма
при этом можно получать довольно сложные звуки

результат работы можно увидеть в играх
RanaRama, Quazatron/Magnetron

вот здесь лежит плеер звуков

вот здесь лежит редактор звуков

вызов производится по номеру заранее созданного звука.

[Oleg N. Cher]

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

[Oleg N. Cher]

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

void cdecl sndoff (void)
{{
 outportb (0x61, inportb (0x61) & 0xFC);
}}

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 = get_timer ();
 long LN = ln;

 LN *= fr *= 6;
 outportb (0x43, 0xB6);
 outportb (0x42, ((unsigned char *)&fr)[0]);
 outportb (0x42, ((unsigned char *)&fr)[1]);
 outportb (0x61, inportb (0x61) | 0x3);
 while (LN > 0) {
  unsigned time2 = get_timer ();

  LN -= (timing - time2);
  timing = time2;
   }
 sndoff ();
}}

[jerri]

Если хочешь коллекцию звуков для игры вот тебе еще
https://shiru.untergrund.net/software.shtml#zxspectrum

---------- Post added at 18:39 ---------- Previous post was at 18:32 ----------

мой интерес уже исполнен, я увидел что хотел.
у меня к конверсии игр подход абсолютно другой.

[Andrew771]

Наиболее простой способ получения звука определенной длительности и высоты - обратиться к подпрограмме ПЗУ, ответственной за выполнение оператора Бейсика BEEP. Мы уже упоминали о ней в шестой главе, но тем не менее напомним, что располагается она по адресу 949 и требует определения регистровых пар HL и DE. Например:
LD DE,440
LD HL,964
CALL 949
RET
Таким способом можно получить звук практически любой высоты и продолжительности - ограничения Бейсика здесь отсутствуют. Однако при этом отсутствуют и удобства, предоставляемые интерпретатором. Чтобы написать даже очень коротенькую музыкальную фразу, придется немало попотеть, рассчитывая значения задаваемых параметров. А рассчитываются они так. В регистровую пару DE заносится число, определяемое как fxt, где f - частота, измеряемая в герцах, а t - время в секундах (при извлечении звука ЛЯ первой октавы, который имеет частоту 440 Гц, длительностью в 1 секунду получится 440x1=440). Пара HL на входе должна содержать число, равное 437500/f-30.125 (если выполнить указанные вычисления, то получим величину 964). Таким образом, приведенная выше программа делает то же самое, что и оператор Бейсика
BEEP 1,9

Из книги "Как написать игру на ассемблере".

Я бы через таблицу сделал, благо нот и длительностей не так много.

[Alex Rider]

Если во время игры BASIC жив, можно попробовать выполнить прямо опертор BEEP по адресу #03f8. Требует параметров на стеке калькулятора, положить можно через #2d3b.

---------- Post added at 18:18 ---------- Previous post was at 18:08 ----------

BEEP (freq, ms) для AY

Могу поделиться идеями, но нужны взодные данные:
1. BEEP нужен блокирующий или нет? Если нет, то есть ли IM2, можно ли подцепиться в обработчик и устроить ли точность в 1/50 секунды?
2. Можно ли таблицы нот положить в ОЗУ? Если нет, то устроит ли такое оганичение: на 48К + AY или при запуске из 48К-Бейсика будет играть ахинею (можно сделать проверку и не играть совсем).

[Sergey]

в игре используются простые звуки на бипер, притом не в фоне, а занимающие время процессора.

Процедура из книги "Как написать игру на ассемблере", стр.278.
Так что, АБСОЛЮТНО, рабочая.
RET не используется, т.к. последняя в п/п процедура 1016 сама заканчивается RET, а на стэке у нас адрес возврата.

Semitone - номер полутона, len - длительность в сотых секунды.

void beep(char semitone, char len) __naked
{ semitone, len;
__asm
	pop  af
	pop  bc
	push bc
	push af
    ld a,b
    ld b,#0
	push bc
	call 11560
	ld   a,#100
	call 11560
	rst 40
	.db 5, 56
	pop bc
	ld  a,c
	and a
	jp  m,1$
	call 11560
	jp 1016

1$:	neg
	call 11560
	rst 40
	.db  27,56
	jp  1016
__endasm;
}