SetUpDisplay:
  MOVE.L #Image,BPL1PTH
  MOVE.L #Image+(320/8)*256,BPL2PTH
  ; ...rest of planes
  ; copperlist is in A1
  LEA Palette,A0
  MOVE.L #31,D0
CopyPalette:
  MOVE.W (A0)+,(A1)+
  DBRA D0,CopyPalette

Image INCBIN "my_image.raw"
; copperlist format
Palette INCBIN "my_palette.pal"