; ***********************************************************
; *                                                         *
; *                  B E E T H O V E N                      *
; *                                                         *
; *      R O U T I N E N  zum  E I N F U E G E N und        *
; *                                                         *
; *          A B S P I E L E N  von S O N G S in            *
; *                                                         *
; *          E I G E N E N   P R O G R A M M E N            *
; *                                                         *
; ***********************************************************
; *                                                         *
; *   Assembler-Source-Listing / Assembler: Devpac II       *
; *                                                         *
; *                   (C)Oktober 1990 by                    *
; *                                                         *
; *                   Dan Dark  Software                    *
; *                     Jörg Schließer                      *
; *                   Hasenbergsteige 15                    *
; *                    7000 Stuttgart 1                     *
; *                      West-Germany                       *
; *                                                         *
; ***********************************************************

tasten = $BFEC01

	XREF LOADSONG,GETSONG,STARTMUSIK,STOPMUSIK,DROPSONG

	section Test1,code

Testing:
	move.l	sp,startsp
	lea	liedend,a0
	lea	lied,a1
	sub.l	a1,a0		;Länge der Lieddaten ermitteln
	move.l	a0,d0
	lea	lied,a0		;Zeiger auf Lieddaten
	jsr	GETSONG		;Song initialisieren
	jsr	STARTMUSIK
waiting:
	cmp.b	#$75,tasten	;Auf Escape-Taste warten	
	bne	waiting
	jsr	STOPMUSIK
	moveq	#0,d0
	move.l	startsp,sp
	rts

startsp:	dc.l	0

	section Test1Data,data_C

	;Lieddaten-File direkt als Binärdatei einbinden
lied:
	incbin	"Pumper.song",0
liedend:

 END