VRC7ベーシック専用 FM音源 プリセット音色チェックプログラム

プリセットの音色(15種)を指定しオクターブを変えながらサンプルを流すプログラム。

$9010に対象となるレジスタの番号を書き込んでから$9030に値を書き込むことで

レジスタに数値が反映され発音されます。

250行の「'」を取り除けば繰り返し実行されるようになります。

10 ' VRC7 BASICｾﾝﾖｳ  FMｵﾝｹﾞﾝ  ﾊｯｾｲ  ﾃｽﾄ
100 INPUT "TONE (1-15)";TN:IF TN<1 OR TN>15 THEN 100
110 TN=TN*16:POKE &H9010,&H30:POKE &H9030,TN:WT=350:FN=15
120 FOR OC=0 TO 7:RESTORE:IF OC=7 FN=31
130 FOR I=0 TO FN
140 READ P1
150 IF P1=0 GOTO 200
160 POKE &H9010,&H20:POKE &H9030,0
170 READ P2:P2=P2 OR (OC*2)
180 POKE &H9010,&H10:POKE &H9030,P1
190 POKE &H9010,&H20:POKE &H9030,P2
200 '?P2,P1,OC:WT=80
210 FOR J=0 TO WT:NEXT
220 NEXT
230 NEXT
240 POKE &H9010,&H20:POKE &H9030,0
250 'GOTO 100
260 END
270 DATA 172,48,0,0,129,48,172,48,0,0,129,48
280 DATA 172,48,129,48,172,48,217,48,02,49,0,0,0
290 DATA 230,48,0,0,193,48,230,48,0,0,193,48
300 DATA 230,48,193,48,162,48,193,48,129,48,0,0,0