AddBitplaneToCopper MACRO
  MOVE.L \1,D0
  MOVE.W #BPL\2PTL,(A5)+
  MOVE.W D0,(A5)+
  SWAP   D0
  MOVE.W #BPL\2PTH,(A5)+
  MOVE.W D0,(A5)+
  ENDM

  AddBitplaneToCopper #Bitplanes,1
  AddBitplaneToCopper #Bitplanes+(320/8)*256,2
  AddBitplaneToCopper #Bitplanes+(320/8)*256*2,3
  AddBitplaneToCopper #Bitplanes+(320/8)*256*3,4
  AddBitplaneToCopper #Bitplanes+(320/8)*256*4,5