簡易ＭＭＬによる音楽演奏実験（ＰＩＣ１６Ｆ１７０５）
初期構想
以前、ＰＩＣ１６Ｆ１７０５でＡＦ生成器を製作してみました。
このプログラムをそのまま利用して、音楽演奏もさせてみたいな・・・
と、思ったのが始まりです。
現状のプログラムでは単音の擬似サイン波しか生成できません。
それでも、これで音周波数の近似値を生成してみます。
それを使用して、簡単なＭＭＬで演奏させてみようかな、
と言った軽い感じでプログラム構想が始まりましたが・・・
そこでいきなり大きな問題点が発覚
何と！、当局は楽譜が読めない、ただの素人だった (-_-;)
楽譜については「Piano Fan」と言うサイトを参考に勉強させて頂きました。
MMLについては、シャープ X1BASICのMMLを参考にしました。
ハードウエア
これが申し訳ない程何もありません・・・
ＰＩＣキットのＣＰＵモジュールにオーディオアンプを接続しただけです。
PICは16F1705で8MHZのX'TAL発振で、4xPLLで32MHZクロックとします。
内部８ｂｉｔDACによる音楽出力、内部オペアンプをバッファとして使用。
何かさみしいので、5V駆動の低周波モノラルアンプを作ってみました。
以前、ＰＩＣ１６Ｆ１７０５でＡＦ生成器を製作してみました。
このプログラムをそのまま利用して、音楽演奏もさせてみたいな・・・
と、思ったのが始まりです。
現状のプログラムでは単音の擬似サイン波しか生成できません。
それでも、これで音周波数の近似値を生成してみます。
それを使用して、簡単なＭＭＬで演奏させてみようかな、
と言った軽い感じでプログラム構想が始まりましたが・・・
そこでいきなり大きな問題点が発覚
何と！、当局は楽譜が読めない、ただの素人だった (-_-;)
楽譜については「Piano Fan」と言うサイトを参考に勉強させて頂きました。
MMLについては、シャープ X1BASICのMMLを参考にしました。
ハードウエア
これが申し訳ない程何もありません・・・
ＰＩＣキットのＣＰＵモジュールにオーディオアンプを接続しただけです。
PICは16F1705で8MHZのX'TAL発振で、4xPLLで32MHZクロックとします。
内部８ｂｉｔDACによる音楽出力、内部オペアンプをバッファとして使用。
何かさみしいので、5V駆動の低周波モノラルアンプを作ってみました。
音源と音符、ＭＭＬについて概要
ここではＰＩＣ単体での演奏実験ですので、ピアノ等の楽器の音は当然再現できません Ｈｉ
擬似サイン波のみで、それも1チャンネルだけです。
生成周波数制御（DAC制御）はＡＦ生成器のプログラムをそのまま流用する事にしました。
オクターブは１０段階としましたが、実際はそんなに必要無かったです。
よって、全部で１２０個程の周波数テーブルを用意（ソースファイル参照)
生成周波数は高くなる程、絶対音との周波数ズレが大きくなります。
各音符における音の長さは演奏前に演算し、専用変数に収納しておく事にしました。
これにより、演奏中における時間のかかる演算処理を回避しています。
音符は３２音符～全音符までの１０種類までで、音量の制御はできません。
速さ、ＴＥＭＰＯは１６ｂｉｔで指定しますが、どの位の速さまで追従できるか実験していません・・・
TEMPO=60で4分音符の全長が約1秒となります。
実際の発音時間は全長時間より一定の割合で短くしました。
音符における音長の３／４を発音、後半１／４を消音としています。
今の所、この発音・消音比率の変更はできず、固定値となっています。
ただ、消音をゼロにする事はできます。
このＴＥＭＰＯから１０種類の音符の時間を生成します。
時間はミリセカンドですが、割り切れないので、正確ではないです。
これに関するルーチン群が今回のメインプログラム的な感じです。
ＭＭＬコマンドの種類
Ｃ，Ｄ，Ｅ，Ｆ，Ｇ，Ａ，Ｂ、＃、Ｒ，Ｏ，Ｔ，０～９、を認識（すべて半角大文字）
♭（フラット）コマンドはありません。
Ｃ～Ｂ、＃は１オクターブ内の音程で、例えばＣやＣ＃と続きます。
さらにそれに続く数値、Ｃ５やＣ＃５等で、音符を表現(１２０種)
オクターブはＯとそれに続く数値で表現(１０段階）
休符はＲとそれに続く数値で表現(１０種)
発音／音長比率設定は、３／４（Ｔ４）と４／４（Ｔ０）の２種のみです。
かなり制限がありますが、発音も単純だし、こんなもんでしょうか
プログラマブル メロディＩＣと言った所と思います・・・
ここではＰＩＣ単体での演奏実験ですので、ピアノ等の楽器の音は当然再現できません Ｈｉ
擬似サイン波のみで、それも1チャンネルだけです。
生成周波数制御（DAC制御）はＡＦ生成器のプログラムをそのまま流用する事にしました。
オクターブは１０段階としましたが、実際はそんなに必要無かったです。
よって、全部で１２０個程の周波数テーブルを用意（ソースファイル参照)
生成周波数は高くなる程、絶対音との周波数ズレが大きくなります。
各音符における音の長さは演奏前に演算し、専用変数に収納しておく事にしました。
これにより、演奏中における時間のかかる演算処理を回避しています。
音符は３２音符～全音符までの１０種類までで、音量の制御はできません。
速さ、ＴＥＭＰＯは１６ｂｉｔで指定しますが、どの位の速さまで追従できるか実験していません・・・
TEMPO=60で4分音符の全長が約1秒となります。
実際の発音時間は全長時間より一定の割合で短くしました。
音符における音長の３／４を発音、後半１／４を消音としています。
今の所、この発音・消音比率の変更はできず、固定値となっています。
ただ、消音をゼロにする事はできます。
このＴＥＭＰＯから１０種類の音符の時間を生成します。
時間はミリセカンドですが、割り切れないので、正確ではないです。
これに関するルーチン群が今回のメインプログラム的な感じです。
ＭＭＬコマンドの種類
Ｃ，Ｄ，Ｅ，Ｆ，Ｇ，Ａ，Ｂ、＃、Ｒ，Ｏ，Ｔ，０～９、を認識（すべて半角大文字）
♭（フラット）コマンドはありません。
Ｃ～Ｂ、＃は１オクターブ内の音程で、例えばＣやＣ＃と続きます。
さらにそれに続く数値、Ｃ５やＣ＃５等で、音符を表現(１２０種)
オクターブはＯとそれに続く数値で表現(１０段階）
休符はＲとそれに続く数値で表現(１０種)
発音／音長比率設定は、３／４（Ｔ４）と４／４（Ｔ０）の２種のみです。
かなり制限がありますが、発音も単純だし、こんなもんでしょうか
プログラマブル メロディＩＣと言った所と思います・・・
プログラム概要
（１）ＤＡＣ制御ルーチン
ＡＦ生成器のルーチンを変更なくそのまま使用しています。
割り込みルーチンに存在し、TIMER0によって駆動されます。
詳細は「DAC制御ルーチン解説」を参照して下さい
（２）生成波形テーブル
これもＡＦ生成器のデータをそのまま使用しています。
（３）音長設定ルーチン(「ONPBASE」サブルーチン）
事前に変数「TEMPOx」を設定し呼び出す事で演算します。
設定できる音長は32分音符用～全音符用の10種類です。（付点は１つのみ対応）
各音符の音長時間の演算結果は、下記の専用変数に保存
さらに各音長時間を発音時間と消音時間とに分割
それらもすべて専用変数に保存（ソースコード参照)
演算部も含め、だらだらと長いルーチン集団になってしまいました。
１）音長
倍率 全音長変数 16bit(ms) 発音変数 消音変数
出力 ３２分音符 OX=1 ONP0L、ONP0H GON0L/GON0H GOF0L/GOF0H
１６分音符 OX=2 ONP1L、ONP1H GON1L/GON1H GOF1L/GOF1H
付点１６分音符 OX=3 ONP2Ｌ、ONP2H GON2L/GON2H GOF2L/GOF2H
８分音符 OX=4 ONP3L、ONP3H GON3L/GON3H GOF3L/GOF3H
付点８分音符 OX=6 ONP4Ｌ、ONP4H GON4L/GON4H GOF4L/GOF4H
４分音符 OX=8 ONP5L、ONP5H GON5L/GON5H GOF5L/GOF5H
付点４分音符 OX=12 ONP6Ｌ、ONP6H GON6L/GON6H GOF6L/GOF6H
２分音符 OX=16 ONP7L、ONP7H GON7L/GON7H GOF7L/GOF7H
付点２分音符 OX=24 ONP8Ｌ、ONP8H GON8L/GON8H GOF8L/GOF8H
全音符 OX=32 ONP9L、ONP9H GON9L/GON9H GOF9L/GOF9H
２）計算式
ONPxx(ms) = (７５００ * OX) ÷ TEMPOx
GONxx(ms) = ONPxx * ３ ÷ ４
GOFxx(ms) = ONPxx ÷ ４
※ 式に各種処理時間の補正分は含まれません
（４）演奏ルーチン(「MUSIC」サブルーチン)
擬似命令(HIGH、LOW)でＭＭＬが記載されているアドレス（ラベル）を指定して呼び出します。
ＭＭＬのエンドコード「00H」を取得すると終了します。
ここは意外と簡単な構成（手抜きとも言う）となっています。
１）プログラムの流れ
①音符等に対応するＭＭＬコードブロックを取得
１つのＭＭＬコードブロックは下記の３バイトで構成されます
ａ）１次コマンド(MLC0)＝Ｃ，Ｄ，Ｅ，Ｆ，Ｇ，Ａ，Ｂ，Ｒ，Ｏ，Ｔ
ｂ）２次コマンド(MLC1)＝NULL、＃
ｃ）３次コマンド(MLC2)＝０、１、２、３、４、５、６、７、８、９
②音周波数表から対応する生成周波数データを取得
③ＤＡＣ書き込みデータテーブル番号、ＴＭＲ０リスタート値、プリスケーラ値の展開、専用変数に収納
④TEMPOx値から展開された発音時間を設定、ミュートOFF、可変ウエイトルーチン実行
⑤同様に、消音時間値（ミリセカンド）を設定、ミュートON、可変ウエイトルーチン実行
⑥ ①に戻る
２）ＭＭＬの配置場所
データ以外の処理プログラムでメモリのBANK0の殆どを使用しています。
それ故、DACデータや音周波数データはBANK1内固定アドレスに存在します。
よって、MMLコードはそれらの後の領域の指定アドレス以降に記述する必要があります。
直接アドレス指定では無く、ラベルによるアドレス取得となります。
BANK0領域に長いMMLを置くとアッセンブルエラーが発生します。
以上を踏まえれば、かなり広いＭＭＬデータ領域を確保できます。
（５）ミュート処理
簡単な処理だと思っていたら、意外とこれが曲者でした・・・
これがうまくできないと、音楽になりませんしね
最初はＦＶＲのＯＮ／ＯＦＦでの制御にしてみたら、大きくボツボツ雑音パルスが入り、まさに没
次にオペアンプのＯＮ／ＯＦＦ制御、そしてＤＡＣ制御でも、同じく雑音が入り、没
色々レジスタを弄ってみたが、ＤＡＣ関連レジスタでの制御はどうやら上手くない事が判明
単純に割り込み禁止／許可によるミュート制御が最も雑音発生が少なかったです。
とは言え、良く聞いていると、常に雑音が入るのでは無く、入る場所が決まっている感じです。
今度は視点を変え、ミュートON/OFF信号をPICから出力、アンプ側でミュートを掛けてみる事に。
で、ミュート付ミニアンプを即効で製作、実験してみました。
回路はLM386を使用した、入力バイアスに電圧を加えてミュートするものです。
すると、PIC出力のボツボツ雑音は削除できるみたいですが、こんどは別の問題が発生、
少々入るミュートON/OFF時のノイズが１音符ごとに入るので意外とうるさいのです。
無線機でのスケルチ回路等のミュート制御ならまったく問題無いのですが、ここではまるでだめでした・・・
今度はアンプのＡＦ入力ラインにダイオードSW回路を挿入、スイッチングノイズが・・・
これではシンプルなハードウエアを標榜している当局の方針から、どんどん離れていきそう
う～ん、どうしよう・・・
結局、元のプログラムでの対処に戻り、オシロで生成している波形をしばらく漠然と観察していると・・・
TMR0の変更は問題無く、プリスケーラの変更では、大きな不定パルスは発生しません。
ＴＢＬを変えた刹那に波形が一番乱れ、大きな不定パルスが発生しています。
うん、ＴＢＬを変えなきゃ良いんだな、と結論付け、TBL=64で88鍵分の音域をカバーと言う暴挙に出る事に。
さすがにTBL64で全音域はカバーできませんが、88鍵以上の音域は、まず使用しないと思われます。
ここからは、TBL64の各PS値の不足データ取得、発音データの修正と言う、地道な作業を開始
一番よく使う、オクターブ４～５近辺はなるべくPSも変更しない等、工夫してみました。
その甲斐あって、小さいポツポツ音は残るものの、耳障りな大きなボツボツ音は無くなりました。
今回はここが一番のハマりポイントでしたが、何とか聞いていられるので、これで良しとします。
（６）可変ウエイト（「Ｄｅｌａｙ」サブルーチン）
ＸＣ８の「Ｄｅｌａｙ＿ｍｓ」関数と同じ様なサブルーチンで１６ｂｉｔ整数でｍｓ数を指定します。
やっつけ仕事で作っていますので、正確ではありません・・・ (^_^;)
（７）エラー処理およびその他
ＭＭＬ構文エラーに対して、まったく救済処理をしていません
エラー発生で、即演奏終了となります。
デバッグ用にエラーコードおよびエラー発生時のコマンドブロック（最大３バイト）を記録するのみです。
楽譜の再現性も低く、本来の楽譜から、かなり単純化した１パートの楽譜を起こして、MML化する事になります。
もともと発音が単音なのと、当局自体が音楽関連能力が皆無なので、この辺はご容赦願います。
（８）サンプルＭＭＬ
①愛のロマンス
②大きな古時計
③コンドルは飛んで行く
④春の小川（解説用）
基本的にネットで音楽を探し、「ＭｕｓｅＳｃｏｒｅ２」で１パートのみの単純化楽譜を作り、MML化しています。
音符をビジュアルに配置しながら、発音も確認でき、半端な状態でも演奏できるので超便利です。
しばらくPICプログラムやMMLの事など忘れて、弄って遊んでしまいました、意外と楽しい～
とは言え、楽譜超初心者の当局にとって、「ＭｕｓｅＳｃｏｒｅ２」はかなり敷居が高かったです・・・ (-_-;)
それも単純なメロディの１パートのみを記述するだけなのに、悪戦苦闘。
「できる」人にとっては、何の問題も無く記述できるのでしょうけどね。
我々無線家にとって、回路図やプリントパターン等の記述みたいなものなのでしょうか？
そこで１つ気が付いた事があります
音楽の元になっている音や音階は物理学だな、と言う事でした・・・
（１）ＤＡＣ制御ルーチン
ＡＦ生成器のルーチンを変更なくそのまま使用しています。
割り込みルーチンに存在し、TIMER0によって駆動されます。
詳細は「DAC制御ルーチン解説」を参照して下さい
（２）生成波形テーブル
これもＡＦ生成器のデータをそのまま使用しています。
（３）音長設定ルーチン(「ONPBASE」サブルーチン）
事前に変数「TEMPOx」を設定し呼び出す事で演算します。
設定できる音長は32分音符用～全音符用の10種類です。（付点は１つのみ対応）
各音符の音長時間の演算結果は、下記の専用変数に保存
さらに各音長時間を発音時間と消音時間とに分割
それらもすべて専用変数に保存（ソースコード参照)
演算部も含め、だらだらと長いルーチン集団になってしまいました。
１）音長
倍率 全音長変数 16bit(ms) 発音変数 消音変数
出力 ３２分音符 OX=1 ONP0L、ONP0H GON0L/GON0H GOF0L/GOF0H
１６分音符 OX=2 ONP1L、ONP1H GON1L/GON1H GOF1L/GOF1H
付点１６分音符 OX=3 ONP2Ｌ、ONP2H GON2L/GON2H GOF2L/GOF2H
８分音符 OX=4 ONP3L、ONP3H GON3L/GON3H GOF3L/GOF3H
付点８分音符 OX=6 ONP4Ｌ、ONP4H GON4L/GON4H GOF4L/GOF4H
４分音符 OX=8 ONP5L、ONP5H GON5L/GON5H GOF5L/GOF5H
付点４分音符 OX=12 ONP6Ｌ、ONP6H GON6L/GON6H GOF6L/GOF6H
２分音符 OX=16 ONP7L、ONP7H GON7L/GON7H GOF7L/GOF7H
付点２分音符 OX=24 ONP8Ｌ、ONP8H GON8L/GON8H GOF8L/GOF8H
全音符 OX=32 ONP9L、ONP9H GON9L/GON9H GOF9L/GOF9H
２）計算式
ONPxx(ms) = (７５００ * OX) ÷ TEMPOx
GONxx(ms) = ONPxx * ３ ÷ ４
GOFxx(ms) = ONPxx ÷ ４
※ 式に各種処理時間の補正分は含まれません
（４）演奏ルーチン(「MUSIC」サブルーチン)
擬似命令(HIGH、LOW)でＭＭＬが記載されているアドレス（ラベル）を指定して呼び出します。
ＭＭＬのエンドコード「00H」を取得すると終了します。
ここは意外と簡単な構成（手抜きとも言う）となっています。
１）プログラムの流れ
①音符等に対応するＭＭＬコードブロックを取得
１つのＭＭＬコードブロックは下記の３バイトで構成されます
ａ）１次コマンド(MLC0)＝Ｃ，Ｄ，Ｅ，Ｆ，Ｇ，Ａ，Ｂ，Ｒ，Ｏ，Ｔ
ｂ）２次コマンド(MLC1)＝NULL、＃
ｃ）３次コマンド(MLC2)＝０、１、２、３、４、５、６、７、８、９
②音周波数表から対応する生成周波数データを取得
③ＤＡＣ書き込みデータテーブル番号、ＴＭＲ０リスタート値、プリスケーラ値の展開、専用変数に収納
④TEMPOx値から展開された発音時間を設定、ミュートOFF、可変ウエイトルーチン実行
⑤同様に、消音時間値（ミリセカンド）を設定、ミュートON、可変ウエイトルーチン実行
⑥ ①に戻る
２）ＭＭＬの配置場所
データ以外の処理プログラムでメモリのBANK0の殆どを使用しています。
それ故、DACデータや音周波数データはBANK1内固定アドレスに存在します。
よって、MMLコードはそれらの後の領域の指定アドレス以降に記述する必要があります。
直接アドレス指定では無く、ラベルによるアドレス取得となります。
BANK0領域に長いMMLを置くとアッセンブルエラーが発生します。
以上を踏まえれば、かなり広いＭＭＬデータ領域を確保できます。
（５）ミュート処理
簡単な処理だと思っていたら、意外とこれが曲者でした・・・
これがうまくできないと、音楽になりませんしね
最初はＦＶＲのＯＮ／ＯＦＦでの制御にしてみたら、大きくボツボツ雑音パルスが入り、まさに没
次にオペアンプのＯＮ／ＯＦＦ制御、そしてＤＡＣ制御でも、同じく雑音が入り、没
色々レジスタを弄ってみたが、ＤＡＣ関連レジスタでの制御はどうやら上手くない事が判明
単純に割り込み禁止／許可によるミュート制御が最も雑音発生が少なかったです。
とは言え、良く聞いていると、常に雑音が入るのでは無く、入る場所が決まっている感じです。
今度は視点を変え、ミュートON/OFF信号をPICから出力、アンプ側でミュートを掛けてみる事に。
で、ミュート付ミニアンプを即効で製作、実験してみました。
回路はLM386を使用した、入力バイアスに電圧を加えてミュートするものです。
すると、PIC出力のボツボツ雑音は削除できるみたいですが、こんどは別の問題が発生、
少々入るミュートON/OFF時のノイズが１音符ごとに入るので意外とうるさいのです。
無線機でのスケルチ回路等のミュート制御ならまったく問題無いのですが、ここではまるでだめでした・・・
今度はアンプのＡＦ入力ラインにダイオードSW回路を挿入、スイッチングノイズが・・・
これではシンプルなハードウエアを標榜している当局の方針から、どんどん離れていきそう
う～ん、どうしよう・・・
結局、元のプログラムでの対処に戻り、オシロで生成している波形をしばらく漠然と観察していると・・・
TMR0の変更は問題無く、プリスケーラの変更では、大きな不定パルスは発生しません。
ＴＢＬを変えた刹那に波形が一番乱れ、大きな不定パルスが発生しています。
うん、ＴＢＬを変えなきゃ良いんだな、と結論付け、TBL=64で88鍵分の音域をカバーと言う暴挙に出る事に。
さすがにTBL64で全音域はカバーできませんが、88鍵以上の音域は、まず使用しないと思われます。
ここからは、TBL64の各PS値の不足データ取得、発音データの修正と言う、地道な作業を開始
一番よく使う、オクターブ４～５近辺はなるべくPSも変更しない等、工夫してみました。
その甲斐あって、小さいポツポツ音は残るものの、耳障りな大きなボツボツ音は無くなりました。
今回はここが一番のハマりポイントでしたが、何とか聞いていられるので、これで良しとします。
（６）可変ウエイト（「Ｄｅｌａｙ」サブルーチン）
ＸＣ８の「Ｄｅｌａｙ＿ｍｓ」関数と同じ様なサブルーチンで１６ｂｉｔ整数でｍｓ数を指定します。
やっつけ仕事で作っていますので、正確ではありません・・・ (^_^;)
（７）エラー処理およびその他
ＭＭＬ構文エラーに対して、まったく救済処理をしていません
エラー発生で、即演奏終了となります。
デバッグ用にエラーコードおよびエラー発生時のコマンドブロック（最大３バイト）を記録するのみです。
楽譜の再現性も低く、本来の楽譜から、かなり単純化した１パートの楽譜を起こして、MML化する事になります。
もともと発音が単音なのと、当局自体が音楽関連能力が皆無なので、この辺はご容赦願います。
（８）サンプルＭＭＬ
①愛のロマンス
②大きな古時計
③コンドルは飛んで行く
④春の小川（解説用）
基本的にネットで音楽を探し、「ＭｕｓｅＳｃｏｒｅ２」で１パートのみの単純化楽譜を作り、MML化しています。
音符をビジュアルに配置しながら、発音も確認でき、半端な状態でも演奏できるので超便利です。
しばらくPICプログラムやMMLの事など忘れて、弄って遊んでしまいました、意外と楽しい～
とは言え、楽譜超初心者の当局にとって、「ＭｕｓｅＳｃｏｒｅ２」はかなり敷居が高かったです・・・ (-_-;)
それも単純なメロディの１パートのみを記述するだけなのに、悪戦苦闘。
「できる」人にとっては、何の問題も無く記述できるのでしょうけどね。
我々無線家にとって、回路図やプリントパターン等の記述みたいなものなのでしょうか？
そこで１つ気が付いた事があります
音楽の元になっている音や音階は物理学だな、と言う事でした・・・
専用ＭＭＬの記述方法
例として、言わずと知れた唱歌、「春の小川」を演奏させてみます
初期設定
ＴＥＭＰＯ＝１００
Ｔ＝４（デフォルト）
歌詞
春の小川は さらさら行くよ
岸のすみれや れんげの花に
すがたやさしく 色うつくしく
咲けよ咲けよと ささやきながら
楽譜からＭＭＬへ変換
は あ る の お が わ は さ ら さ ら ゆ く よ
ミ ソ ラ ソ ミ ソ ド ド ラ ラ ソ ミ ド レ ミ ４分休符
Ｏ４Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ａ５ Ａ５ Ｇ５ Ｅ５ Ｃ５ Ｄ５ Ｅ５ Ｒ５
き い し の す み れ や れ ん げ の は な に
ミ ソ ラ ソ ミ ソ ド ド ラ ラ ソ ミ レ ミ ド ４分休符
Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ａ５ Ａ５ Ｇ５ Ｅ５ Ｄ５ Ｅ５ Ｃ５ Ｒ５
す う が た や さ し く い ろ う つ く し く
レ ミ レ ソ ラ ラ ソ ラ ド ド シ ラ ソ ソ ド ４分休符
Ｄ５ Ｅ５ Ｄ５ Ｇ５ Ａ５ Ａ５ Ｇ５ Ａ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ｂ５ Ａ５ Ｇ５ Ｇ５ Ｅ５ Ｒ５
さ あ け よ さ け よ と さ さ や き な が ら
ミ ソ ラ ラ ミ ソ ド ド ラ ラ ソ ミ レ ミ ド ４分休符
Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ａ５ Ａ５ Ｇ５ Ｅ５ Ｄ５ Ｅ５ Ｃ５ Ｒ５
プログラム
；メインループ
ｍｌｏｏｐ ＭＯＶＬＷ ＬＯＷ Ｈａｒｕｎｏｏｇａｗａ
ＭＯＶＷＦ ＭＭＬ＿ＰＴ０
ＭＯＶＬＷ ＨＩＧＨ Ｈａｒｕｎｏｏｇａｗａ ；ＭＭＬ＿ＰＴｘにアドレスセット
ＭＯＶＷＦ ＭＭＬ＿ＰＴ１
ＭＯＶＬＷ ．１００ ；Ｗレジスタに１００(１０進数）セット
ＭＯＶＷＦ ＴＥＭＰＯＬ
ＣＬＲＦ ＴＥＭＰＯＨ ；ＴＥＭＰＯｘに１００をセット
ＣＡＬＬ ＯＮＰＢＡＳＥ ；音符生成
ＣＡＬＬ ＭＵＳＩＣ ；演奏
ＣＡＬＬ ｗａｉｔ１ｓ
ＣＡＬＬ ｗａｉｔ１ｓ ；２秒ウエイト
ＧＯＴＯ ｍｌｏｏｐ ；繰り返し
；ＭＭＬ用データ領域
Ｈａｒｕｎｏｏｇａｗａ；;TEMPO=100
DT "O4E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 C5D5E5R5"
DT "E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 D5E5C5R5"
DT "D5E5D5G5 A5A5G5A5 O5C5C5O4B5A5 G5G5E5R5"
DT "E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 D5E5C5R5"
DW 0
例として、言わずと知れた唱歌、「春の小川」を演奏させてみます
初期設定
ＴＥＭＰＯ＝１００
Ｔ＝４（デフォルト）
歌詞
春の小川は さらさら行くよ
岸のすみれや れんげの花に
すがたやさしく 色うつくしく
咲けよ咲けよと ささやきながら
楽譜からＭＭＬへ変換
は あ る の お が わ は さ ら さ ら ゆ く よ
ミ ソ ラ ソ ミ ソ ド ド ラ ラ ソ ミ ド レ ミ ４分休符
Ｏ４Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ａ５ Ａ５ Ｇ５ Ｅ５ Ｃ５ Ｄ５ Ｅ５ Ｒ５
き い し の す み れ や れ ん げ の は な に
ミ ソ ラ ソ ミ ソ ド ド ラ ラ ソ ミ レ ミ ド ４分休符
Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ａ５ Ａ５ Ｇ５ Ｅ５ Ｄ５ Ｅ５ Ｃ５ Ｒ５
す う が た や さ し く い ろ う つ く し く
レ ミ レ ソ ラ ラ ソ ラ ド ド シ ラ ソ ソ ド ４分休符
Ｄ５ Ｅ５ Ｄ５ Ｇ５ Ａ５ Ａ５ Ｇ５ Ａ５ Ｏ５Ｃ５ Ｃ５ Ｏ４Ｂ５ Ａ５ Ｇ５ Ｇ５ Ｅ５ Ｒ５
さ あ け よ さ け よ と さ さ や き な が ら
ミ ソ ラ ラ ミ ソ ド ド ラ ラ ソ ミ レ ミ ド ４分休符
Ｅ５ Ｇ５ Ａ５ Ｇ５ Ｅ５ Ｇ５ Ｏ５Ｃ５ Ｃ５ Ａ５ Ａ５ Ｇ５ Ｅ５ Ｄ５ Ｅ５ Ｃ５ Ｒ５
プログラム
；メインループ
ｍｌｏｏｐ ＭＯＶＬＷ ＬＯＷ Ｈａｒｕｎｏｏｇａｗａ
ＭＯＶＷＦ ＭＭＬ＿ＰＴ０
ＭＯＶＬＷ ＨＩＧＨ Ｈａｒｕｎｏｏｇａｗａ ；ＭＭＬ＿ＰＴｘにアドレスセット
ＭＯＶＷＦ ＭＭＬ＿ＰＴ１
ＭＯＶＬＷ ．１００ ；Ｗレジスタに１００(１０進数）セット
ＭＯＶＷＦ ＴＥＭＰＯＬ
ＣＬＲＦ ＴＥＭＰＯＨ ；ＴＥＭＰＯｘに１００をセット
ＣＡＬＬ ＯＮＰＢＡＳＥ ；音符生成
ＣＡＬＬ ＭＵＳＩＣ ；演奏
ＣＡＬＬ ｗａｉｔ１ｓ
ＣＡＬＬ ｗａｉｔ１ｓ ；２秒ウエイト
ＧＯＴＯ ｍｌｏｏｐ ；繰り返し
；ＭＭＬ用データ領域
Ｈａｒｕｎｏｏｇａｗａ；;TEMPO=100
DT "O4E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 C5D5E5R5"
DT "E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 D5E5C5R5"
DT "D5E5D5G5 A5A5G5A5 O5C5C5O4B5A5 G5G5E5R5"
DT "E5G5A5G5 E5G5O5C5C5 O4A5A5G5E5 D5E5C5R5"
DW 0
ソースファイルおよびその他
PIC16F1705_DAC_MML01.asm
感想
さて、「とりあえず動きました」感が半端無いです・・・
何よりも発音が単純過ぎるのが最初の問題点なのは重々承知しております (-_-;)
改良は何時になるのか不明です・・・
PIC16F1705_DAC_MML01.asm
感想
さて、「とりあえず動きました」感が半端無いです・・・
何よりも発音が単純過ぎるのが最初の問題点なのは重々承知しております (-_-;)
改良は何時になるのか不明です・・・
実験・製作の記録TOPへ戻る