AY-микросхемы

[Robus]

Это продолжение текста программы для C51F120:
Если что, то он лежит в архиве ...

        MOV DPTR,#NoiTab

        PnDec Ch_NC,R_AY07
        SWAP A
        MOV B,A
        ANL B,#00001111B


        MOV DPTR,#EnvTab
        INC DPH

        MOV A,R_AY13
        SWAP A
        ANL A,#11110000B
        ADD A,DPL
        MOV DPL,A
        CLR A
        ADDC A,DPH
        MOV DPH,A

        PzDec Ch_EC,R_AY11
        MOV R0,A

        MOV DPTR,#VolTab

        PxDec Ch_AC,R_AY00,R_AY08,R_AY07.0
        MOV R1,A

        PxDec Ch_BC,R_AY02,R_AY09,R_AY07.1
        MOV R2,A
        ADD A,R1
        MOV R1,A
        MOV SFRPAGE,#01H
        MOV DAC1L,#0
        MOV DAC1H,A
        MOV SFRPAGE,#00H

        PxDec Ch_CC,R_AY04,R_AY10,R_AY07.2
        ADD A,R2
        MOV DAC0L,#0
        MOV DAC0H,A


        POP B
        POP R2
        POP R1
        POP R0
        POP DPTR
        POP PSW
        POP ACC
        POP SFRPAGE

        CLR P1.6

        RETI

EnvTab  DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;00
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;01
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;02
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;03

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;04
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;05
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;06
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;09
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;10
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;13
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;14
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;15





        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;00
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;01
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;02
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;03

        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;04
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;05
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;06
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;09
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;10
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;13
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;14
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;15


        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;00
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;01
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;02
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;03

        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;04
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;05
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;06
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;07

        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;08
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;09
        DB 15,14,13,12,11,10,09,08,07,06,05,04,03,02,01,00  ;10
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;11

        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;12
        DB 15,15,15,15,15,15,15,15,15,15,15,15,15,15,15,15  ;13
        DB 00,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15  ;14
        DB 00,00,00,00,00,00,00,00,00,00,00,00,00,00,00,00  ;15

... Продолжение следует ...

[Advertiser]

[Robus]

Это продолжение текста программы для C51F120:

VolTab                  ;0EVVVVPS
        DB 16           ;00000000 V=00
        DB 00           ;00000001
        DB 16           ;00000010
        DB 00           ;00000011

        DB 15           ;00000100 V=01
        DB 02           ;00000101
        DB 17           ;00000110
        DB 02           ;00000111

        DB 14           ;00001000 V=02
        DB 04           ;00001001
        DB 18           ;00001010
        DB 04           ;00001011

        DB 13           ;00001000 V=03
        DB 06           ;00001001
        DB 19           ;00001010
        DB 06           ;00001011

        DB 12           ;00001000 V=04
        DB 08           ;00001001
        DB 20           ;00001010
        DB 08           ;00001011

        DB 11           ;00001000 V=05
        DB 10           ;00001001
        DB 21           ;00001010
        DB 10           ;00001011

        DB 10           ;00001000 V=06
        DB 12           ;00001001
        DB 22           ;00001010
        DB 12           ;00001011

        DB 09           ;00001000 V=07
        DB 14           ;00001001
        DB 23           ;00001010
        DB 14           ;00001011

        DB 08           ;00001000 V=08
        DB 16           ;00001001
        DB 24           ;00001010
        DB 16           ;00001011

        DB 07           ;00001000 V=09
        DB 18           ;00001001
        DB 25           ;00001010
        DB 18           ;00001011

        DB 06           ;00001000 V=10
        DB 20           ;00001001
        DB 26           ;00001010
        DB 20           ;00001011

        DB 05           ;00001000 V=11
        DB 22           ;00001001
        DB 27           ;00001010
        DB 22           ;00001011

        DB 04           ;00001000 V=12
        DB 24           ;00001001
        DB 28           ;00001010
        DB 24           ;00001011

        DB 03           ;00001000 V=13
        DB 26           ;00001001
        DB 29           ;00001010
        DB 26           ;00001011

        DB 02           ;00001000 V=14
        DB 28           ;00001001
        DB 30           ;00001010
        DB 28           ;00001011

        DB 01           ;00001000 V=15
        DB 30           ;00001001
        DB 31           ;00001010
        DB 30           ;00001011







        DB 16           ;00000000 V=00
        DB 16           ;00000001
        DB 16           ;00000010
        DB 16           ;00000011

        DB 15           ;00000100 V=01
        DB 15           ;00000101
        DB 17           ;00000110
        DB 15           ;00000111

        DB 14           ;00001000 V=02
        DB 14           ;00001001
        DB 18           ;00001010
        DB 14           ;00001011

        DB 13           ;00001000 V=03
        DB 13           ;00001001
        DB 19           ;00001010
        DB 13           ;00001011

        DB 12           ;00001000 V=04
        DB 12           ;00001001
        DB 20           ;00001010
        DB 12           ;00001011

        DB 11           ;00001000 V=05
        DB 11           ;00001001
        DB 21           ;00001010
        DB 11           ;00001011

        DB 10           ;00001000 V=06
        DB 10           ;00001001
        DB 22           ;00001010
        DB 10           ;00001011

        DB 09           ;00001000 V=07
        DB 09           ;00001001
        DB 23           ;00001010
        DB 09           ;00001011

        DB 08           ;00001000 V=08
        DB 08           ;00001001
        DB 24           ;00001010
        DB 08           ;00001011

        DB 07           ;00001000 V=09
        DB 07           ;00001001
        DB 25           ;00001010
        DB 07           ;00001011

        DB 06           ;00001000 V=10
        DB 06           ;00001001
        DB 26           ;00001010
        DB 06           ;00001011

        DB 05           ;00001000 V=11
        DB 05           ;00001001
        DB 27           ;00001010
        DB 05           ;00001011

        DB 04           ;00001000 V=12
        DB 04           ;00001001
        DB 28           ;00001010
        DB 04           ;00001011

        DB 03           ;00001000 V=13
        DB 03           ;00001001
        DB 29           ;00001010
        DB 03           ;00001011

        DB 02           ;00001000 V=14
        DB 02           ;00001001
        DB 30           ;00001010
        DB 02           ;00001011

        DB 01           ;00001000 V=15
        DB 01           ;00001001
        DB 31           ;00001010
        DB 01           ;00001011







.0
        DB 00           ;00000000 V=00
        DB 00           ;00000001
        DB 00           ;00000010
        DB 00           ;00000011

        DB 00           ;00000100 V=01
        DB 00           ;00000101
        DB 01           ;00000110
        DB 00           ;00000111

        DB 00           ;00001000 V=02
        DB 00           ;00001001
        DB 02           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=03
        DB 00           ;00001001
        DB 03           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=04
        DB 00           ;00001001
        DB 04           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=05
        DB 00           ;00001001
        DB 05           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=06
        DB 00           ;00001001
        DB 06           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=07
        DB 00           ;00001001
        DB 07           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=08
        DB 00           ;00001001
        DB 08           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=09
        DB 00           ;00001001
        DB 09           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=10
        DB 00           ;00001001
        DB 10           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=11
        DB 00           ;00001001
        DB 11           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=12
        DB 00           ;00001001
        DB 12           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=13
        DB 00           ;00001001
        DB 13           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=14
        DB 00           ;00001001
        DB 14           ;00001010
        DB 00           ;00001011

        DB 00           ;00001000 V=15
        DB 00           ;00001001
        DB 15           ;00001010
        DB 00           ;00001011
..




NoiTab  INCBIN "Noise.bin"






SPMAX   EQU DSEG$-1

        SaveHEX    'ay8912.hex',0,$,96
        SaveBIN    'ay8912.bin',0,$
        SaveLabels 'ay8912.txt'

;        ExecFile "C:\INTEL51\FlashU.exe download -R ay8912.hex 1 0 1",1

Пользуйтесь. Плеер напишу позже, тут придётся попотеть !!!

[ZEK]

Гы. весело. Однозначно кульно.

[DVS]

2 Robus

Респект. Такую бы фичу в мой FlashTaper сделать, но можно расчитывать только на PWM 8bit @ 16kHz.

Я на досуге с PWM поэспериментировал (PWM выходы через ФНЧ подключил к УЗЧ):

1) такого качества (8 bit @ 16kHz при ZQ 8MHz) для голосовых сообщений хватает, но вот чтобы AY файлы играть... не очень то. может в режиме fast PWM можно что-то ещё выжать, пока не ясно

2) у AVR в моём проекте 14MIPS. Хватит, чтобы твой модуль в AVR заработал?

[CHRV]

Это продолжение текста программы для C51F120:

Пользуйтесь. Плеер напишу позже, тут придётся попотеть !!!

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

Конечно с огибающими и главное с шумом трудности наверно будут (шум генерится на основе полинома Жегалкина, т.е. генерящую случайную последовательность - можно посмотреть в одной из версий кода для ФПГА).

Рад что послужил мотивацией, с меня там что нить разливное полагается при встрече .

[Robus]

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

Если честно, то я то же люблю поговорить, но это от того, что хочется сделать вообще всё подрят, а времени совсем нет. Вот бы придумали какой-нибудь аппарат, чтоб нажал кнопку и выспался =)
А вообще-то, с удовольвствием "ворочил бы мешки", дай только волю и микроконтроллер, ну или процессор, что на сегодняшний современный век почти одно и то же ...

Конечно с огибающими и главное с шумом трудности наверно будут (шум генерится на основе полинома Жегалкина, т.е. генерящую случайную последовательность - можно посмотреть в одной из версий кода для ФПГА).

Огибающие нужно ещё сильно править ... Я вообще не понял в чём лажа. У меня в пик (громкость 15) и минимум (громкость 0) повторяется дважды, может в этом лажа ??? Да и не могу найти описание в какой момент записи в команды происходит сбрасывание огибающей ? И не могу понять должна ли огибающая совпадать с пилой на тоне каждого из каналов ? Кстати и какая частота выборки на AY'ке ? А то я подбирал по слуху ... Я имею в виду ежели значение тона на первый канал, например, 3, то с какой частотой должен происходить декремент таймера ? Вообщем, почти всё что было написано, сделано лишь пробуя методом втыка и сравнений на слух с эмулятором.

Рад что послужил мотивацией, с меня там что нить разливное полагается при встрече

Лучше давай развидём схему для плеера, всё же идей неплохая. Я в электронике далеко не монстр. А пиво, надеюсь, обязательно попьём ...

[Robus]

2 Robus

Респект. Такую бы фичу в мой FlashTaper сделать, но можно расчитывать только на PWM 8bit @ 16kHz.

Ссори, я всё же до корней мозгов всегда был программистом, и некоторые термины не всегда ясно понимал ... PWM это Pulse Wave Modulator ??? Что ли программируемый ???

Я на досуге с PWM поэспериментировал (PWM выходы через ФНЧ подключил к УЗЧ):

1) такого качества (8 bit @ 16kHz при ZQ 8MHz) для голосовых сообщений хватает, но вот чтобы AY файлы играть... не очень то. может в режиме fast PWM можно что-то ещё выжать, пока не ясно

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

2) у AVR в моём проекте 14MIPS. Хватит, чтобы твой модуль в AVR заработал?

У AVR'а команды-то по 5-6 тактов, не все конечно, но это факт. Поэтому таким методом, каким я сделал на SILabs'е, можно не мечтать ... Будут дикие искажения. Но 14-ти мипсов точно хватит генерировать звук на 44000 герцах. Я ещё в 1998-ом году ради развлечения на Atmel'е 24 мегагерца делал плеер модов, просто прибр был с этим микроконтроллером, вот и решил пофраериться. Но на AVR'е при такой скорости нужно много памяти, ведь нужно создать кучу табличек, так что ещё один не маловажный параметр это количество FLASH'а ???

А вообще-то мы жвём в таких малоразвитых странах, что страшно становится. Приходится выбирать плохие процессоры из-за того, что просто невозможно более лучшие впаять. Есть у японцев целая куча процессоров под 100-200 мипсов за копейки, но всё на шариках.

[Robus]

Да ...

шум генерится на основе полинома Жегалкина, т.е. генерящую случайную последовательность

А можно по точнее ? Что рандом я понял, но регистр AY_R6 [0..31] как конкретно влияет ??? Как я придумал сам себе, то если значение, паример, 5, это проиграть 6-ть раз один и тот же рандомный звук за один такт ??? Да ??? И можно по точнее по поводу самого метода Жегалкина ? Хотя я, думаю, можно будет сделать рандом самому... Вообщем много неясностей ...

[DVS]

У AVR'а команды-то по 5-6 тактов, не все конечно, но это факт

Извини конечно, но с AVR ты видимо дело не имел, так же как и я C51F120:

Вот выдержка из pdf:

High-performance, Low-power AVR® 8-bit Microcontroller
• Advanced RISC Architecture
– 131 Powerful Instructions – Most Single-clock Cycle Execution
– 32 x 8 General Purpose Working Registers
– Fully Static Operation
– Up to 16 MIPS Throughput at 16 MHz

5-6 циклов это у C51 предыдущего поколения, так сказать, например AT89C51ED2 (RD2), на котором я сначала хотел сделать свой FlashTaper
А у обычного C51 все 12 циклов.

PWM ты правильно расшифровал т.е. это широтно-импульсный модулятор или модуляция.

PS: Не понимаю почему такое отношение к AVR? В линейке есть и 128Кб Flash и 256Кб, RAM 4Кб и 8 ещё и внешнюю можно вешать вплоть до 64Кб. Не думаю, что это только моё мнение, но C51 ядро которое использует silabs (пусть даже 1 цикловое) было создано много раньше AVR RISC.

[DVS]

2 Robus

Напиши разрешение ЦАП в твоём uC и частоту сэмплирования.