Raspberry PI でYMF825を鳴らす

YMF825をRaspberry PI(PI 3 model B)につないて、サンプルプログラムを動作させてみました。YMF825はFM音源です。

接続

3.3V でも動作するかと思ったのですが、今は5Vでないと動作しませんでした。

サンプルプログラム

動作させたサンプルプログラムはこちら です。

コンパイルするには、
1. common の下の全ファイル
2. raspi の下のfmsd1_raspi.c
3. main 関数 ( fm825test.cと名前を付けました。　)
4. bcm2835 ライブラリ
が必要です。1,2,3 は全部まとめて同じフォルダーにコピーしました。

makefile

OBJS= fmasgn.o fmif.o fmnote.o\
    fmpart.o fmtone.o fmvoice.o fmsd1_raspi.o\
    fm825test.o

fm825test: $(OBJS)
    gcc -o fm825test $(OBJS) -l bcm2835

fmasgn.o:   fmasgn.c fmasgn.h fmtype.h
fmif.o:     fmif.c fmif.h 
fmnote.o:   fmnote.c fmnote.h fmtype.h
fmpart.o:   fmpart.c fmpart.h fmtype.h
fmtone.o:   fmtone.c fmtone.h fmtype.h
fmvoice.o:  fmvoice.c fmvoice.h fmtype.h
fmsd1_raspi.o:  fmsd1_raspi.c
fm825test.o:    fm825test.c fmif.h fmsd1.h  

.c.o:
    gcc -c $<

Main 関数

fm825test.c

#include <stdio.h>
#include <time.h>
#include <sys/time.h>
#include <unistd.h> 
#include <bcm2835.h>

#include "fmif.h"
#include "fmsd1.h"

int main()
{
    int note=0x3c;

    if (!bcm2835_init()) return 1;

    initSPI();
    initSD1();
    Fmdriver_init();

    while(1){
        Fmdriver_sendMidi(0x90);
        Fmdriver_sendMidi(note);
        Fmdriver_sendMidi(0x7f);
        sleep(2);

        Fmdriver_sendMidi(0x80);
        Fmdriver_sendMidi(note);
        Fmdriver_sendMidi(0x7f);
        sleep(2);

        note++;
        if(note>0x48){ note=0x3c; }
    }
}

fmsd1_raspi.cにコード追加

一行だけ、fmsd1_raspi.cにプログラムを追加しました。Reset にGPIO 16（36番ピン）がアサインされていますが、GPIO 16 を出力モードにセットする、という行がないと動作しませんでした。

fmsd1_raspi.c

void initSD1( void )
{
    //  set Output Mode
    bcm2835_gpio_fsel(RST,BCM2835_GPIO_FSEL_OUTP);　// <- 追加

バグかも

fmtone.cの中の、void Tone_sendTone( void )の中で、以下コメントアウトした行は、

        riPtr[0] = (td->voiceCommon & 0x60)>>5;
//      riPtr[1] = ((td->voiceCommon & 0xc0)>>3) | (td->voiceCommon & 0x07);
        riPtr[1] = ((td->voiceCommon & 0x18)<<3) | (td->voiceCommon & 0x07);

        for ( j=0; j<MAX_FM_OPERATOR; j++ ){
//          riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+0] = (td->opPrm[j][3] << 4) | (td->opPrm[j][0] & 0x08) | ((td->opPrm[j][0] & 0x01)<<2);
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+0] = (td->opPrm[j][3] << 4) | (td->opPrm[j][0] & 0x08) | ((td->opPrm[j][0] & 0x04)>>2);
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+1] = (td->opPrm[j][4] << 4) | td->opPrm[j][2];
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+2] = (td->opPrm[j][1] << 4) | td->opPrm[j][5];
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+3] = (td->opPrm[j][6] << 2) | (td->opPrm[j][0] & 0x03);
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+4] = td->opPrm[j][7];
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+5] = ((td->opPrm[j][8] & 0x0f) << 4) | ((td->opPrm[j][8] & 0xf0) >> 4);
            riPtr[MAX_ELEMENT_PRM+OPERATOR_PRM_REG_SZ*j+6] = (td->opPrm[j][9] << 3) | ((td->opPrm[j][0] & 0x70) >> 4);
        }

だと思われます。