シンプルな式４

/*
シンプルな式４
動作確認用
*/
//------------------------------------------------------------------------------
//↓初期値
Int Reg=1//ゼロ以外であること（ゼロだとずっとゼロが続く）
Int Bit
ResetGS
TR(1)@81,1 CHO(0) REV(0) l16
[128
Reg=Reg&$FFFF //下位16bitを使用
//ANDやXORをとって、シフトの代わりに乗除算
Bit=(Reg&$0001) ^ ((Reg&$0004)/4) ^ ((Reg&$0008)/8) ^ ((Reg&$0020)/32)
Reg=(Reg/2)|(Bit*32768)//Regの更新
Print(Reg,Bit)//値を確認
n(Reg%128)//鳴らして確認
]
//------------------------------------------------------------------------------

作者からのコメント

動作確認用

お気に入り

ダウンロード数

185

タグ

タグはありません。

感謝のコメント

感謝のコメント募集中です!!

♪

この曲に「ありがとう」を伝えませんか？

ひとことの感想が、作った人にとって何よりの励みになります。
定型文のボタンもあるので、キーボードが苦手でも大丈夫です。