/*

シンプルな式４



動作確認用

*/
//------------------------------------------------------------------------------

//↓初期値
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)//鳴らして確認

]

//------------------------------------------------------------------------------