一番上のBGをBGPUTする時に、セットする値に&H8000を足してみてくださいな。