	org	$0
	incbin	btdd.bin


	org 	$235EC
	jsr	(new_snd).l
	


	org	$104000


	
	
sound:

	move    sr,-(sp)
	
	ori     #$700,sr



	move.w  #$100,($A11100).l


	move.b	#$2B,($A04000).l
	bset	#7,($A04001).l
	move.b	#$2A,($A04000).l


lenght:

	move.b	(a0)+,($A04001).l
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	nop
	dbf	d0,lenght

	move.b	#$2B,($A04000).l
	bclr	#7,($A04001).l

	move.w  #$0,($A11100).l

	
	move    (sp)+,sr
	movem.l	(sp)+,d0/a0
	rts




new_snd:
	movem.l	d0/a0,-(sp)
	lsr.b   #2,d1
	lea	zvuk_adr+4(pc,d1.w),a0
	move.l	(a0),d0
	movea.l	-4(a0),a0
	sub.l	a0,d0
	bne.w	sound

	jsr	($2363A).l

	movem.l	(sp)+,d0/a0
	rts




zvuk_adr:
	dc.l	sound1
	dc.l	sound2
	dc.l	sound3
	dc.l	sound4
	dc.l	sound5
	dc.l	sound6
	dc.l	sound7
	dc.l	sound8
	dc.l	sound9
	dc.l	sound10
	dc.l	sound11
	dc.l	sound12
	dc.l	sound13
	dc.l	sound14
	dc.l	sound15
	dc.l	sound16
	dc.l	sound17
	dc.l	sound18
	dc.l	sound19
	dc.l	sound20
	dc.l	sound21
	dc.l	sound22
	dc.l	sound23
	dc.l	sound24
	dc.l	sound25
	dc.l	sound26

sound1
	incbin	pcm\1.snd
sound2
	incbin	pcm\2.snd
sound3
	incbin	pcm\3.snd
sound4
	incbin	pcm\4.snd
sound5
	incbin	pcm\5.snd
sound6
	incbin	pcm\6.snd
sound7
	incbin	pcm\7.snd
sound8
	incbin	pcm\8.snd
sound9
	incbin	pcm\9.snd
sound10
	incbin	pcm\10.snd
sound11
	incbin	pcm\11.snd
sound12
	incbin	pcm\12.snd
sound13
	incbin	pcm\13.snd
sound14
	incbin	pcm\14.snd
sound15
	incbin	pcm\15.snd
sound16
	incbin	pcm\16.snd
sound17
	incbin	pcm\17.snd
sound18
	incbin	pcm\18.snd
sound19
	incbin	pcm\19.snd
sound20
	incbin	pcm\20.snd
sound21
	incbin	pcm\21.snd
sound22
	incbin	pcm\22.snd
sound23
	incbin	pcm\23.snd
sound24
	incbin	pcm\24.snd
sound25
	incbin	pcm\25.snd
sound26
