SECTION copper_demo,CODE_P
**********************************************
	lea	$dff000,a6
	move.w	#$8280,$96(a6)		;povolit DMA copperu	
	move.l	#copper,$80(a6)		;zapsat pocatek copper listu 
	clr.w	$88(a6)			;restart

loop
	btst	#$6,$bfe001		;cekani na mys
	bne.b	loop
	rts
**********************************************
	SECTION chip_data,DATA_C
copper	
	dc.w	$100,0		;$dff100 = 0 => zadne bitplany
	dc.w	$180,0		;$dff180 = 0 => cerna barva pozadi
	dc.w	$8001,$fffe	;WAIT na radek $80, maskuj x i y
	dc.w	$180,$fff	;$dff180 = $a00 => bila barva pozadi
	dc.w	$9061,$fffe	;WAIT na radek 144 a sloupec 96
	dc.w	$180,$a00	;$dff180 = $a00 => cervena barva pozadi
	dc.w	$9071,$fffe	;WAIT na radek 144 a sloupec 112
	dc.w	$180,$fff	;$dff180 = $a00 => bila barva pozadi

	dc.w	$ffff,$fffe	;konec copper listu (cekani na konec snimku)