opt c+,d+
	
; labels

dmacon	= $dff096
colour0	= $dff180
colour1	= $dff182
cop1lch	= $dff080
copjmp1	= $dff088

bitsare	= $5432109876543210 ; included to ease i.d. of each bit
dmabits	= %1000001010000000

;

	move.w #$0000,colour0
	move.w #$0fff,colour1
; point copper at copper list
	
	move.l #coplist,cop1lch
	move.w copjmp1,d0
	
; start dma

	move #dmabits,dmacon

	
mouse:
	add.w #0100,a1
	add.w #0100,a2
	btst #6,$bfe001
	bne mouse
	move.w #$0000,dmacon
	rts
	
coplist:
	dc.w $0180,$0000
a1:	dc.w $9601,$ff00
	dc.w $0180,$0666
a2:	dc.w $9701,$ff00
	dc.w $0180,$0000

	
	dc.w $ffff,$fffe