Звуковые процессоры YM2612 и Ricoh 2A03 подключенные к компу через LPT порт

Форум » Новые технологии » Звуковые процессоры YM2612 и Ricoh 2A03 подключенные к компу через LPT порт » Ответить

Звуковые процессоры YM2612 и Ricoh 2A03 подключенные к компу через LPT порт

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

Ответов - 12

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

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

Zayka: Музыкальный трек сделанный где-то в 2001 году, на 286 машине с подключенным к ней вместо принтера YM2149, так как звуковая карта была роскошью, a PC Speaker не давал такой возможности. Машина у меня в рабочем состоянии. И умеет очень многое. http://files.gw.kz/kr4t93rrbt.html схема подключения здесь: http://files.gw.kz/jc3dzpezp3.html печатная плата: http://files.gw.kz/tmnvs8ck75.html

Zayka: {$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.

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

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

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

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

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

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

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

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

полная версия страницы