Отправлено: 06.09.10 01:14. Заголовок: Звуковые процессоры YM2612 и Ricoh 2A03 подключенные к компу через LPT порт

Здесь будут трэкерная музыка для ПГЗ (Программируемый генератор звука) YM-2612 и Ricoh 2a03

 Отправлено: 06.09.10 01:16. Заголовок: На них тоже можно ис..

На них тоже можно воспроизводить Midi файлы, играть самому на клавиатуре.
схемы их подключения к компу просты.

 Отправлено: 06.09.10 20:00. Заголовок: Также еще для YM2149..

Также еще для YM2149

 Отправлено: 06.09.10 20:18. Заголовок: Музыкальный трек сде..

Музыкальный трек сделанный где-то в 2001 году, на 286 машине с подключенным к ней вместо принтера YM2149, так как звуковая карта была роскошью, a PC Speaker не давал такой возможности. Машина у меня в рабочем состоянии. И умеет очень многое.

http://files.gw.kz/kr4t93rrbt.html<\/u><\/a>
схема подключения здесь: http://files.gw.kz/jc3dzpezp3.html<\/u><\/a>
печатная плата: http://files.gw.kz/tmnvs8ck75.html<\/u><\/a>

 Отправлено: 06.09.10 20:30. Заголовок: Программа на паскале, которая управляет ПГЗ YM2149 через LPT порт (под MS-DOS)

{$I+}

uses CRT;

const LPT=$378;

var YM5f:file;
Name:string;
Buffer:pointer;
InterLeave:boolean;
Volume,Frequency,Loop,K,N,Point:dword;

procedure D(b:byte);
begin
Port[LPT]:=b;
end;

procedure AD(b:byte);
begin
Port[LPT+2]:=Port[LPT+2] and $FB or b shl 2;
end;

procedure R(b:byte);
begin
Port[LPT+2]:=Port[LPT+2] and $F7 or b shl 3;
end;

procedure ResetYM2149;
begin
R(1);
R(0);
R(1);
end;

procedure OutYM2149(Address,Data:byte);
begin
AD(1);
D(Address);
AD(0);
D(Data);
end;

procedure Frame;
var i:dword;
begin
for i:=0 to 13 do if InterLeave then OutYM2149(i,Mem[DWORD(Buffer)+Point+K*i+N]) else OutYM2149(i,Mem[DWORD(Buffer)+Point+N shl 4+i]);
end;

procedure Delay(Time:dword);
assembler;
asm
mov ah,$86
mov cx,WORD PTR Time[2]
mov dx,WORD PTR Time[0]
int $15
end;

procedure OffCursor;
assembler;
asm
mov ah,1
mov ch,$20
int $10
end;

BEGIN
TextMode(CO40);
TextColor(15);
WriteLn('YM2149 Player');
WriteLn('(C) Romanich 2006');
TextColor(9);
Write('YM5:');
TextColor(9);
ReadLn(Name);
OffCursor;
if Name='' then Halt;
Assign(YM5f,Name);
ReSet(YM5f,1);
Volume:=FileSize(YM5f);
GetMem(Buffer,Volume);
BlockRead(YM5f,Buffer^,Volume);
Close(YM5f);
if Mem[DWORD(Buffer)+$13] and 1=1 then InterLeave:=true else InterLeave:=false;
Frequency:=1000000 div Mem[DWORD(Buffer)+$1B];
asm
mov esi,Buffer
add esi,$1C
mov eax,[esi]
bswap eax
mov Loop,eax
mov esi,Buffer
add esi,$0C
mov eax,[esi]
bswap eax
mov K,eax
end;
Point:=Volume-16*K-4;
N:=Loop;
Inline($FA);
ResetYM2149;
repeat
Frame;
Delay(Frequency);
Inc(N);
if N=K then N:=Loop;
until Port[$60]=1;
ResetYM2149;
Inline($FB);
FreeMem(Buffer,Volume);
TextMode(CO80+Font8x8);
END.

 Отправлено: 09.09.10 07:53. Заголовок: вот еще один муз. тр..

вот еще один муз. трэк зделанный 5 лет назад для ПГЗ Ricoh 2a03, который используется в игровой приставке Dendy http://files.gw.kz/6r4hcanu4p.html<\/u><\/a>

 Отправлено: 10.09.10 04:04. Заголовок: хмм как то не понятн..

хмм как то не понятно , я "понимаю" в электронике , но зачем создавать сей девайс если сейчас любой не антикварный комп может все это делать програмно , а самый дешевый синтезатор даже больше .. На базе 486dx2 уже можно установить вин95-98 и сполне комфортно (относительно конечно) писать музу , есть много всяких муз редакторов , вполне удачных . Я никогда не баловался "синтезаторами" звука , потому что как то не живой звук получается , а с звуком работал , в том же WAVElab`e , очень хорошо и удобно , даже на 486ой машине , правда у меня другие задачи были , не создавать , а редактировать , но все же :) .

 Отправлено: 10.09.10 14:21. Заголовок: Tygra пишет: Я нико..

Tygra пишет:

цитата:

Я никогда не баловался "синтезаторами" звука , потому что как то не живой звук получается

Звук он всегда живой, какой бы он небыл. Мне например не нравится обычная музыка, а чиповая по мне, занимаюсь этим с дремучих времён.
В принципе написание трэккерной музыки моя вторая профессия.

 Отправлено: 28.09.10 19:49. Заголовок: КРУТО!!!! Обажаю так..

КРУТО!!!!

Обажаю такую музычку, По крайней мере лучше чем то что по радио крутят. Зайка, тебе респект, молодец, здесь никто такое еще не делал, пиши в личку, может соберемся к тебе придем, покажешь нам что это за оборудование на чём ты делаешь такое. Молодец))))

 Отправлено: 24.10.10 02:12. Заголовок: Походу никто здесь э..

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

 Отправлено: 24.10.10 08:50. Заголовок: да что ж все так люб..

да что ж все так любят советы давать.
Ответ: советчиком в Африке будете. Я сама решаю, какие ветки закрывать, какие -- нет.
Пусть себе висит, мож она мне нравится.

 Отправлено: 24.10.10 17:20. Заголовок: :) зачем закрывать п..

:) зачем закрывать пусть висит , могет кто найдет

 Отправлено: 28.03.11 12:50. Заголовок: Не знаю, не знаю! Я ..

Не знаю, не знаю! Я не пробовал заниматься на внешних синтах, да и в программирование сильно не ухожу)....
Для меня достаточно иметь хороший миди-контроллер, виртуальных синтов сейчас огромное множество.