2656行目 GCOPY 5,(BLOCKD[CRAFT[I, I2]]MOD 32)*6..... のところの*6を*16にすると治ります。