; show copper list, wait for mouse click, then exit

start:	move.l #copper,$dff080

wait:	btst #6,$bfe001
	bne.b wait
exit:	move.l 4,a6
	move.l 156(a6),a1
	move.l 38(a1),$dff080
	moveq #0,d0
	rts

copper:	dc.w $0100,$0200
	dc.w $5007,$fffe,$0180,$00f0
	dc.w $5807,$fffe,$0180,$0f00
	dc.w $6007,$fffe,$0180,$000f
	dc.w $6807,$fffe,$0180,$0000
	dc.w $ffff,$fffe