***************************************************************************
*		   Music player coded by OB of Anatomica		  * 
***************************************************************************
	jsr	setsuper
	jsr	setscreen
	move.l	$70.w,oldvbi

	move.w	#1,d0
	jsr	music

	move.l	#newvbi,$70.w

***************************************************************************
mainloop:
	jsr	waitvbl

	cmp.b	#57,$fffc02
	beq	slut

	jmp	mainloop
***************************************************************************
slut:
	move.l	oldvbi,$70.w

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

	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
***************************************************************************
newvbi:
	move.w	#1,vbiflag

	jsr	music+8

	rte
***************************************************************************
waitvbl:
	cmpi.w	#1,vbiflag
	bne	waitvbl
	move.w	#0,vbiflag
	rts 
***************************************************************************
setscreen:
	move.w	#0,-(sp)
	move.l	#$70000,-(sp)
	move.l	#$70000,-(sp)
	move.w	#$5,-(sp)
	trap	#14
	add.l	#12,sp
	rts
***************************************************************************
	section data
savesuper:	dc.l	0
vbiflag:	dc.w	0
oldvbi:		dc.l	0
music:		incbin	"big_alec\reality.img"

*			H„r finns det ett antal olika l†tar
*			att v„lja mellan:
*	
*			big1.mus	-A Case For Two-
*			big2.mus	-Judgement day-,fr†n ST-News 
*			big7.mus	-Stand By-,fr†n Maggie 10
*			big8.mus	Fr†n introt till No Second Prize	
*			big9.mus	Fr†n Main menyn p† No Second Prize
*			big10.mus	NSP l†tar, du kan „ndra l†t i D0
*			big11.mus	-Crystal Clear-,fr†n Maggie 10
*			reality.img	Big Alecs f”rsta l†t med SID ljud !