opt c+,d+
	
; *********** STANDARD EQUATES ************

custom	= $dff000
copjmp1	= $088
dmacon 	= $096
dmacbits	= %0000001010000000
cop1lch	= $080

; *****************************************


; set up the copper list

	move.l #$20000,a1  ; point a1 at copper list destination
	lea copperl,a2     ; point a2 at copper list source
	
;

cloop:	
	move.l (a2),(a1)+  ; move a longword
	cmp.l #$fffffffe,(a2)+ ; check for end of list
	bne cloop          ; loop until entire list is moved

; enable copper

	move.l #$20000,custom+cop1lch
	move.w copjmp1+custom,d0
	move.w dmacbits,dmacon+custom
	
		
check:	bra check


copperl:
	dc.w $0180,$0fff
	dc.w $0182,$0f00
	dc.w $0184,$00f0
	dc.w $0186,$000f
	dc.w $ffff,$fffe