; ***********************************************************
; *                                                         *
; *                    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)April 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	lied,a0		;Zeiger auf Liednamen
	jsr	LOADSONG	;Lied laden
	jsr	STARTMUSIK
waiting:
	cmp.b	#$75,tasten	;Escape-Taste abfragen
	bne	waiting
	jsr	STOPMUSIK
	jsr	DROPSONG
	moveq	#0,d0
	move.l	startsp,sp
	rts

		even
lied:		dc.b	"Invention_J.S.Bach.song",0
		even
startsp:	dc.l	0

 END