***************************************************************************
*		   Music player coded by OB of Anatomica		  * 
***************************************************************************
	jsr	setsuper
	jsr	setscreen

	move.l	#music,a0
	move.l	#$72000,a1
	move.l	#endmus-music,d0
relo:	move.b	(A0)+,(A1)+
	dbf	d0,relo

	jsr	$72000
	move.l	#0,d0		; olika musikstycken
	jsr	$73556

***************************************************************************
mainloop:

	cmp.b	#57,$fffc02
	beq	slut

	jmp	mainloop
***************************************************************************
slut:

	move.l #$08080000,$ff8800		
	move.l #$09090000,$ff8800		
	move.l #$0a0a0000,$ff8800		

	jsr	$72006

	jsr	endsuper

	clr.w	-(sp)
	trap	#1
***************************************************************************
setsuper:
	clr.l	-(sp)			
	move.w	#$20,-(sp)
	trap	#1
	addq.l	#6,sp
	move.l	d0,savesuper
	rts
***************************************************************************
endsuper:
	move.l	savesuper,-(sp)
	move.w	#$20,-(sp)
	trap	#1
	addq.l	#6,sp
	rts
***************************************************************************
setscreen:
	move.w	#0,-(sp)
	move.l	#$30000,-(sp)
	move.l	#$30000,-(sp)
	move.w	#$5,-(sp)
	trap	#14
	add.l	#12,sp
	rts
***************************************************************************
	section data
savesuper:	dc.l	0
music:		incbin "\hubbard\aufmonty.mus"			
endmus:
	end