ＪＲ−１００ サウンド、テープ
ＪＲ−１００ではＶＩＡ６５２２のタイマ１、２を使用して方形波を出力します。 Ｔ１（タイマ１）はフリーランイングモード（ＡＣＲ６＝１）にしてＰＢ７を方形波出力 Ｔ２（タイマ２）はパルス計数モードでＰＢ６（ＰＢ７で出力した方形波）をカウントします。
ＢＥＥＰの実行例 １．ＩＦＲ ＄Ｃ８０Ｄに＄００を書き込む ２．ＡＣＲ ＄Ｃ８０Ｂに＄Ｅ０（Ｂｉｔ７−５＝１）を書き込む ３．Ｔ２Ｌ−Ｌ ＄Ｃ８０８に波形を出力する回数の下位を書き込む Ｔ２Ｌ−Ｈ ＄Ｃ８０９に波形を出力する回数の上位を書き込む ４．Ｔ１Ｌ−Ｌ ＄Ｃ８０４に方形波の下位を書き込む Ｔ１Ｌ−Ｈ ＄Ｃ８０５に方形波の上位を書き込む ５．ＩＦＲ ＄Ｃ８０ＤのＢｉｔ５をみてＴ２がタイムアウト（Ｂｉｔ５＝１）になるまで待つ ６．終了 １．ＩＦＲ（＄Ｃ８０Ｄ）に＄００を書き込む 割り込みが起きた事を知らせるレジスタをクリアします。 ＪＲ−１００では割り込みは使用しませんがＴ２の状態を見る為にフラグをクリアします。 ２．ＡＣＲ（＄Ｃ８０Ｂ）に＄Ｅ０を書き込む Ｂｉｔ７−６を１１でＴ１をフリーランニング、ＰＢ７に方形波出力をするようにします。 Ｂｉｔ５を１にしてＰＢ６の入力パルスを設定した分だけカウントします。 ＡＣＲのＢｉｔ７＝１とＤＤＲＢのＢｉｔ７＝１になっていると Ｔ１がＰＢ７をコントロールするのでＯＲＢのＢｉｔ７は無効になります。 ３．Ｔ２の設定を書き込む ＰＢ６へのパルスをカウントするデータを書き込みます。 Ｔ２Ｌ−Ｌ（＄Ｃ８０８）にカウントの下位を書き込み、 Ｔ２Ｌ−Ｈ（＄Ｃ８０９）にカウントの上位を書き込みを行います。 この時、Ｔ２Ｌ−ＬからＴ２Ｌ−Ｈの順に書き込みをするのですがＴ２Ｌ−Ｈに書き込みを行った時に すぐ、カウントダウンする為なのでＴ２Ｌ−Ｈ，Ｔ２Ｌ−Ｌの順に書き込みを行います またＴ２が０（タイムアウト）になると／ＩＲＱ（割り込み）が発生します ＪＲ−１００では割り込みは使用しませんがＩＦＲを覗く事でタイムアウトを知る事が出来ます。 Ｔ２がタイムアウトになって割り込みが発生してもＰＢ６に入力パルスがあればカウンタはダウンされます。 新たにＴ２Ｌ−Ｈを書き込まれないと／ＩＲＱは１になりません。 ＰＢ６はＰＢ７の方形波の出力と直接に繋がっていおり ＰＢ７が１→０に変るとＴ２のカウンタがダウンされます。 ４．Ｔ１の設定を書き込む ＡＣＲで設定したＰＢ７に出力する方形波（周波数）を書き込みます。 Ｔ１Ｌ−Ｌ（＄Ｃ８０４）にカウントの下位を書き込み、 Ｔ１Ｌ−Ｈ（＄Ｃ８０５）にカウントの上位を書き込みを行います。 この時、Ｔ１Ｌ−ＬからＴ１Ｌ−Ｈの順に書き込みをするのですがＴ１Ｌ−Ｈに書き込みを行った時に すぐ、カウントダウンする為なのでＴ１Ｌ−Ｈ，Ｔ１Ｌ−Ｌの順に書き込みを行います Ｔ１はフリーランニングモードなので一定間隔で連続で割り込みが掛かります（ＪＲ−１００では関係ありません） Ｔ１のカウンタが０（タイムアウト）になる度に割り込みフラグがセットされＰＢ７の出力が反転されます。 Ｔ１がタイムアウトになった後はＴ１Ｌ−ＬとＴ１Ｌ−Ｈの内容が 再びカウンタに自動的セットされカウントダウンを行います このように自動的にカウントダウンされ、Ｔ１のタイミングでＰＢ７を反転出力の繰り返しを行います。 割り込みフラグのクリアはＴ１Ｃ−Ｈの書き込みか、Ｔ１Ｃ−Ｌの読み込みか、ＩＥＲに直接書き込みになりますが ＪＲ−１００では割り込みは使用しません （８９４８８６Ｈｚ÷（Ｔ１＋３．５））÷２＝出力する周波数 フリーランニングモードで実行するためＬ ｎｎ＋１．５サイクル、Ｈ ｎｎ＋２サイクルになる ５．ＩＦＲ（＄Ｃ８０Ｄ）のＴ２がタイムアウトになるまで待つ ＰＢ７の方形波（Ｔ１）をどれだけの時間（Ｔ２）だけ鳴らすかのチェックになります。
テープ １ｓ÷８９４８８６Ｈｚ＝０．０００００１１１７４６…ｓ ０．０００００１１１７４６×Ｔ２の値 ９３×２＝０．０００２０７８４５７６ｓ（２０８μｓ） ２０８μｓ×２＝４１６μｓ （２４００Ｈｚ １サイクル） フォーマット ヘッダー部分 スタート ’１’×４０８０ ファイルネーム １６バイト スタートアドレス ２バイト 長さ ２バイト ファイルタイプ １バイト ＄００＝ＢＡＳＩＣ、＄４Ｄ＝マシン語 空き １１バイト チェックサム １バイト プログラム部分 スタート ’１’×２５５ プログラムデータ チェックサム １バイト ＦＳＫ方式の６００ボー ’０’＝１２００Ｈｚ×１サイクル（スペース） ’１’＝２４００Ｈｚ×２サイクル（マーク） １バイト分のデータ ’０’、d0、d1、d2、d3、d4、d5、d6、d7、’１’、’１’
ＪＲ−１００のコーナへ Home へ戻る