Code:
dbf d0,setbpl ; branch until all bitplanes are copied
; load the copperlist into cop1lc
lea mycopper,a0 ; Copper address into s1
move.l a0,COP1LCL(a6) ; and into the Cop1 register
move.w d0,COPJMP1(a6)
I haven't looked very hard at your code, but that "move.w d0,COPJMP1(a6)" doesn't look right to me (think about what d0 would contain at this point, immediately after finishing a dbf loop)" ?