; Programm : Sound Effect Machin
	; Modul    : Test Start, Load & Play
	; by       : Dan Dark Software / Jörg Schließer
	; Version  : V 1.0 / Dezember 1989
	; Assembler: Kick-Ass V1.20


	; Test-Modul, das zusammen mit den Modulen: Start, Load und
	; Play einen beliebigen IFF-8SVX-Sound läd und abspielt.
	; Der Pfadname des Sounds wird beim Aufruf vom CLI hinter
	; dem Programmnamen und beim Aufruf von der Workbench im
	; Tool-Types-Feld des Icons angegeben.

	; Konstanten

Execbase	=	4

	; Betriebsystem-Routinen

FreeMem	=	-210

Teststart:
	bsr	startmodul        ; Startmodul aufrufen
	tst.l	d0                ; Prüfen, ob ein Parameter übergeben
	beq	errornout         ; wurde, sonst Ende des Programms

	lea	parameter,a0      ; Zeiger auf Parameter nach a0
	move.l	#$10003,d0        ; Speichertyp ( = Chip&Clear ) nach d0
	bsr	loadfile          ; und Loadfile-Modul aufrufen
	tst.l	d0                ; Prüfen, ob File geladen wurde
	beq	errornout         ; sonst ... Ende des Programms

	move.l	d0,soundlänge     ; Länge des Sounds sichern
	move.l	a0,soundmem       ; Adresse des Sounds sichern

	moveq	#0,d0             ; Nummer der Audio-Stimme = 0
	moveq	#1,d1             ; Zahl der Wiederholungen = 1
	bsr	playsound         ; Playsound-Modul aufrufen

	; Sondertaste abfragen

wartaufctrl:
	cmp.b	#$39,$BFEC01      ; Prüfen, ob CTRL-Taste gedrückt ist
	bne	wartaufctrl       ; nein ... weiter warten

	move.l	Execbase,a6       ; Exec-Basisadresse nach a6
	move.l	soundlänge,d0     ; Soundlänge nach d0
	move.l	soundmem,a1       ; Zeiger auf Speicherblock nach a1
	jsr	FreeMem(a6)       ; Speicher wieder freigeben

errornout:
	rts ; Fertig !

	; Zwischenspeicher für Soundlänge und Addresse

soundlänge:	dc.l	0
soundmem:	dc.l	0