;		digiplay by SPARK of XXX International

main:	move.w	#$0f,$dff096		;stop DMA

	move.l	#$00,$dff0a0		;turn		voice1
	move.l	#$00,$dff0b0		;off		voice2
	move.l	#$00,$dff0c0		;all		voice3
	move.l	#$00,$dff0d0		;voices		voice4
	move.l	#$00,d0
        
wait1:	cmpi.b	#$70,$dff006		;wait for raster position
	bne.l	wait1

wait2:	cmpi.b	#$80,$dff006		;wait for raster again!!!
	bne.l	wait2

	lea	$5ba50,a0		;start		voice1
	lea	$5ba50,a1		;addresses      voice2
	lea	$5ba50,a2		;for		voice3
	lea	$5ba50,a3		;digi		voice4
	adda.l	#$08,a0
	move.l	a0,$dff0a0
	move.l	a1,$dff0b0
	move.l	a2,$dff0c0
	move.l	a3,$dff0d0

	move.w	#$9770,$dff0a4		;length		voice1
	move.w	#$9770,$dff0b4		;of		voice2
	move.w	#$9770,$dff0c4		;digi		voice3
	move.w	#$9770,$dff0d4		;		voive4

	move.w	#$166,$dff0a6		;speed		voice1
	move.w	#$166,$dff0b6		;of		voice2	
	move.w	#$166,$dff0c6		;each		voice3
	move.w	#$166,$dff0d6		;digi		voice4	
	
	move.w	#$0040,$dff0a8		;volume		voice1	
	move.w	#$0040,$dff0b8		;of		voice2
	move.w	#$0040,$dff0c8		;each		voice3
	move.w	#$0040,$dff0d8		;voice		voice4
	
	move.w	#$820f,$dff096		;GO FOR IT!!!!
	rts