copperlist=$78000

start:		move.l	$4,a6
		bsr	init
scan:		cmp.b	#$80,$dff006
		bne.s	scan
		btst	#6,$bfe001
		bne.s	scan
		move.l	#$22f8,$dff080
		move.w	#$c000,$dff09a
		clr.l	d0
		rts

init:		move.w	#$4000,$dff09a
		bsr	makecopper
		move.l	#copper,$dff080
		move.w	$dff088,d0
		rts

makecopper:	lea	copper,a0
		lea	copperlist,a1
mc:		move.l	(a0)+,(a1)+
		cmp.l	#-1,(a0)
		bne.s	mc
		move.l	#$80dffffe,d0
		move.l	#$01800000,d1
mc2:		move.l	d0,(a1)+
		move.l	d1,(a1)+
		add.l	#$00000111,d1
		add.l	#$01000000,d0
		cmp.l	#$80dffffe,d0
		bne.s	mc2
		rts

copper:		dc.w	$0100,$5200,$0102,$0000
		dc.w	$008e,$2c81,$0090,$f4c1
		dc.w	$0092,$0038,$0094,$00d0
bpl:		dc.w	$00e0,$0000,$00e2,$0000
		dc.w	$00e4,$0000,$00e6,$0000
		dc.w	$00e8,$0000,$00ea,$0000
		dc.w	$00ec,$0000,$00ee,$0000
		dc.w	$00f0,$0000,$00f2,$0000	
coppsprites:	dc.w	$0120,$0000,$0122,$0000
		dc.w	$0124,$0000,$0126,$0000
		dc.w	$0128,$0000,$012a,$0000
		dc.w	$012c,$0000,$012e,$0000
		dc.w	$0130,$0000,$0132,$0000
		dc.w	$0134,$0000,$0136,$0000
		dc.w	$0138,$0000,$013a,$0000
		dc.w	$013c,$0000,$013e,$0000
		dc.w	$01df,$fffe
coppcolors:	dc.w	$0180,$0000,$0182,$0000
		dc.w	$0184,$0000,$0186,$0000
		dc.w	$0188,$0000,$018a,$0000
		dc.w	$018c,$0000,$018e,$0000
		dc.w	$0190,$0000,$0192,$0000
		dc.w	$0194,$0000,$0196,$0000
		dc.w	$0198,$0000,$019a,$0000
		dc.w	$019c,$0000,$019e,$0000
		dc.w	$01a0,$0000,$01a2,$0000
		dc.w	$01a4,$0000,$01a6,$0000
		dc.w	$01a8,$0000,$01aa,$0000
		dc.w	$01ac,$0000,$01ae,$0000
		dc.w	$01b0,$0000,$01b2,$0000
		dc.w	$01b4,$0000,$01b6,$0000
		dc.w	$01b8,$0000,$01ba,$0000
		dc.w	$01bc,$0000,$01be,$0000
		dc.l	$ffffffff