* 8 Channel - Test 2 *

org $70000
load $70000

p:		lea	$dff000,a6
		move.w	#$4000,$9a(a6)
		move.w	#$1ff,$96(a6)
		move.l	#Sample,$a0(a6)
		moveq	#1,d1
		move.w	#156*2+1,$a4(a6)
		moveq	#0,d2
		moveq	#0,d3
		lea	Ton2,a1
		lea	Ton,a0
		move.w	#227,$a6(a6)
		move.w	#64,$a8(a6)
		move.w	#$8001,$96(a6)
		move.w	#$0080,$9c(a6)
		move.l	#$08000,d4
		move.l	#$08000,d5
pwait:		btst	#7,$1f(a6)
		beq.s	pwait

		lea	Sample(pc),a2


		move.w	#625,d7
loople:		move.b	(a0,d2.w),d0
		add.b	(a1,d3.w),d0
		eor.b	#$80,d0
		move.b	d0,(a2)+
		swap	d2
		swap	d3
		add.l	d4,d2
		add.l	d5,d3
		swap	d2
		swap	d3
		dbf	d7,loople

		move.w #$80,$9c(a6)



		btst	#6,$bfe001
		beq.s	pex
		btst	#2,$16(a6)
		bne.s	pwait
		addq.w	#1,d1
		move.w	d1,$a4(a6)
		bra.s	pwait
pex:		move.w	#$c000,$9a(a6)
		move.w	#$81f0,$96(a6)
		move.w	#1,$96(a6)
		rts

TonA:		lea	Ton(pc),a0
		lea	$80000,a1
TA:		move.b	(a0),d0
		eor.b	#$80,d0
		lsr.b	#1,d0
		move.b	d0,(a0)+
		cmp.l	a0,a1
		bne.s	TA
		rts



Sample:		blk.b	626,0

org $78000
load $78000
Ton:


org $7c000
load $7c000

Ton2: