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

	LEA	music,A0
	LEA	$6fe28,A1
	MOVE.L	#musicend-music,D0
copy:	MOVE.B	(A0)+,(A1)+
	DBF	D0,copy

	jsr	$6fe28

	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	$6fe5e

	rte
***************************************************************************
waitvbl:
	cmpi.w	#1,vbiflag
	bne	waitvbl
	move.w	#0,vbiflag
	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
vbiflag:	dc.w	0
oldvbi:		dc.l	0
music:		incbin	"mon\gfxshow.rel"
musicend:

	end

; Ian N Mic Graphix Slide Show  ( Bob Stevenson, Dokk, Matt etc )
; 
; Music By JT Of MON,  ST Conversion By JH Of TEX

; Ripped & Relocated Using Monst2 By Grazey Of The P.H.F. Of Hull

; If ya use this zak credit us !!!!
 

		
grazey	opt x-					

	clr.l -(sp)				
	move.w #$20,-(sp)			
	trap #1					

	move.l	$70.w,oldvbl
	move.l	$114.w,old114

	lea 6(sp),sp				
	move.l d0,stack
	bclr #0,$484.w				

	LEA	zak,A0
	LEA	$6fe28,A1
	MOVE.L	#zakend-zak,D0
.loop	MOVE.B	(A0)+,(A1)+
	DBF	D0,.loop

	jsr	$6fe28
	move.l	#vbl,$70.w
	
	move.w #7,-(sp)				
	trap #1					
	lea 2(sp),sp				

	move.l	oldvbl,$70.w
	move.l	old114,$114.w

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

	move.l stack,-(sp)			
	move.w #$20,-(sp)			
	trap #1					
	lea 6(sp),sp  				

	clr.w -(sp)				
	trap #1					


vbl	movem.l d0-a6,-(sp)			save registers
	jsr	$6fe5e
	movem.l (sp)+,d0-a6			restore registers
	rte

oldvbl	dc.l 0
old114	dc.l 0
stack	dc.l 0

zak	incbin "\mon\gfxshow.rel"
zakend