*****************************************************
	****    "After Burner" intro - Custom Module	 ****
	****        all adaptions by Wanted Team	 ****
	*****************************************************

	incdir	"dh2:include/"
	include 'misc/eagleplayer2.01.i'
	include 'hardware/intbits.i'
	include 'exec/exec_lib.i'

	SECTION Player,Code_C

AB2_Start
	PLAYERHEADER PlayerTagArray

	dc.b	"$VER: After Burner intro - Custom Module,",10
	dc.b	'adapted by Don Adan/Wanted Team',0
	even

PlayerTagArray
	dc.l	DTP_CustomPlayer,1
	dc.l	DTP_PlayerName,PlayerName
	dc.l	DTP_StartInt,StartInt
	dc.l	DTP_StopInt,StopInt
	dc.l	DTP_InitPlayer,InitPlayer
	dc.l	DTP_EndPlayer,EndPlayer
	dc.l	DTP_InitSound,InitSound
	dc.l	DTP_EndSound,EndSound
	dc.l	EP_GetPositionNr,GetPosition
	dc.l	EP_Get_ModuleInfo,Get_ModuleInfo
	dc.l	TAG_DONE
PlayerName
	dc.b	"CustomPlay",0
Text
	dc.b	10
	dc.b	"           Activision presents",10
	dc.b	10
	dc.b	"             AFTER BURNER tm",10
	dc.b	10
	dc.b	"    This game has been produced under",10
	dc.b	"    licence from SEGA Enterprises ltd.",10
	dc.b	"    Japan.  AFTER BURNER and SEGA are",10
	dc.b	"   Trademarks of Sega Enterprises Ltd.",10
	dc.b	10
	dc.b	"  Programmed by Argonaut Software Ltd.",10
	dc.b	" Code c 1985/1988 Argonaut Software ltd.",10
	dc.b	"  Music and sound effects By Uncle Art",10
	dc.b	"       Artwork by Focus C.E. Ltd.",10
	dc.b	10
	dc.b	"     A Software Studios production in",10
	dc.b	"     association with Marjacq Micros.",10
	dc.b	10
	dc.b	"                Argonaut",10
	dc.b	"                Software",10
	dc.b	"                  Ltd.",0
	even

EagleBase
	dc.l	0

***************************************************************************
***************************** EP_Get_ModuleInfo ***************************
***************************************************************************

Get_ModuleInfo
	lea	InfoBuffer(PC),A0
	rts

InfoBuffer
	dc.l	MI_SpecialInfo,Text
	dc.l	MI_LoadSize,AB2_End-AB2_Start
	dc.l	MI_Length,243
	dc.l	0

***************************************************************************
********************************* EP_GetPosNr *****************************
***************************************************************************

GetPosition
	move.l	Length(PC),D0
	rts

Length
	dc.l	0

***************************************************************************
***************************** DTP_InitPlayer ******************************
***************************************************************************

InitPlayer
	move.l	A5,EagleBase
	move.l	dtg_AudioAlloc(A5),A0
	jmp	(A0)

***************************************************************************
***************************** DTP_EndPlayer *******************************
***************************************************************************

EndPlayer
	move.l	dtg_AudioFree(A5),A0
	jmp	(A0)

***************************************************************************
***************************** DTP_InitSound *******************************
***************************************************************************

InitSound
	clr.l	Length
	move.l	#lbL000178,SONGPOS
	bra.w	Init

***************************************************************************
***************************** DTP_EndSound ********************************
***************************************************************************

EndSound
	bra.w	End

***************************************************************************
***************************** DTP_StartInt ********************************
***************************************************************************

StartInt
	movem.l	D0/A6,-(A7)
	lea	InterruptStruct(PC),A1
	moveq	#INTB_AUD0,D0
	move.l	4.W,A6			; baza biblioteki exec do A6
	jsr	_LVOSetIntVector(A6)
	move.l	D0,Audio0
	movem.l	(A7)+,D0/A6
	move.w	#$8080,$DFF09A
	move.w	#$8003,$DFF096
	rts

InterruptStruct
	dc.l	0
	dc.l	0
	dc.b	NT_INTERRUPT
	dc.b	5			; priority
	dc.l	Name			; ID string
	dc.l	SONGPOS
	dc.l	Interrupt
Name
	dc.b	'AfterBurner Aud0 Interrupt',0
	even

Audio0
	dc.l	0
SONGPOS
	dc.l	0

***************************************************************************
***************************** DTP_StopInt *********************************
***************************************************************************

StopInt
	move.w	#3,$DFF096
	move.l	A6,-(A7)
	moveq	#INTB_AUD0,D0
	move.l	Audio0(PC),A1
	move.l	4.W,A6
	jsr	_LVOSetIntVector(a6)
	move.l	(A7)+,A6
	rts

***************************************************************************
***************************** DTP_Intterrupt ******************************
***************************************************************************

Interrupt
	movem.l	D1-A6,-(SP)
	move.w	#$80,$DFF09A
	move.w	#$80,$DFF09C
	bsr.w	Play
	move.w	#$8080,$DFF09A
	movem.l	(SP)+,D1-A6
	moveq	#0,D0
	rts

SongEnd
	movem.l	A1/A5,-(A7)
	move.l	EagleBase(PC),A5
	move.l	dtg_SongEnd(A5),A1
	jsr	(A1)
	movem.l	(A7)+,A1/A5
	rts

Play
	move.l	A1,A0
	move.l	(A1),A1
	tst.l	(A1)+
	bne.b	.OK
	lea	lbL000178+4(PC),A1
	clr.l	Length
	bsr.w	SongEnd
.OK	move.l	A1,(A0)
	move.l	-(A1),A1
	addq.l	#1,Length
	lea	$DFF0A0,A2
	lea	$DFF0B0,A0
	move.l	(A1),(A2)+
	move.l	(A1)+,(A0)+
	move.w	(A1),(A2)+
	move.w	(A1)+,(A0)+
	move.w	(A1),(A2)+
	move.w	(A1)+,(A0)+
	move.w	(A1),(A2)
	move.w	(A1),(A0)
	rts

***************************************************************************
***************************************************************************
***************************************************************************

; Intro music from "AfterBurner II" (c) 1988 by Software Studios/Argonaut/SEGA/Activision

;	NOP
;	NOP
;	JSR	lbC0000CC
;	LEA	$DFF0A0,A2
;	LEA	$DFF0B0,A5
;lbC000016	LEA	lbL000178,A1
;	MOVE.L	A1,lbL00009E
;lbC000022	MOVEA.L	lbL00009E,A1
;	CMPI.L	#0,(A1)
;	BEQ.L	lbC000016
;	MOVEA.L	(A1)+,A3
;	MOVE.L	A1,lbL00009E
;	JSR	lbC0000A2
;lbC000040	MOVE.W	$DFF01E,D4
;	ANDI.W	#$80,D4
;	CMPI.W	#0,D4
;	BEQ.L	lbC000040
;	JSR	lbC00008A
;lbC000058	TST.B	$7FFE2
;	BNE.S	lbC000084
;	MOVE.W	$DFF01E,D4
;	ANDI.W	#$80,D4
;	CMPI.W	#0,D4
;	BEQ.L	lbC000058
;	MOVE.W	#$180,$DFF09C
;	JSR	lbC00008A
;	BRA.L	lbC000022

;lbC000084	BSR.L	lbC0000CC
;	RTS

;lbC00008A	MOVE.W	$DFF006,D0
;	ANDI.W	#$FF00,D0
;	CMPI.W	#$FF00,D0
;	BNE.L	lbC00008A
;	RTS

;lbL00009E	dc.l	0

;lbC0000A2	MOVE.L	(A3),0(A2)
;	MOVE.L	(A3)+,0(A5)
;	MOVE.W	(A3),4(A2)
;	MOVE.W	(A3)+,4(A5)
;	MOVE.W	(A3),6(A2)
;	MOVE.W	(A3)+,6(A5)
;	MOVE.W	(A3),8(A2)
;	MOVE.W	(A3)+,8(A5)
;	MOVE.W	#$8203,$DFF096
;	RTS

Init
End
;lbC0000CC	MOVE.W	#$180,$DFF09C
;	JSR	lbC00008A
;	JSR	lbC00008A
	MOVE.W	#15,$DFF096
;	MOVE.L	lbL00076E,$DFF0A0
;	MOVE.L	lbL00076E,$DFF0B0
;	MOVE.L	lbL00076E,$DFF0C0
;	MOVE.L	lbL00076E,$DFF0D0
;	MOVE.W	#$3E8,$DFF0A4
;	MOVE.W	#$3E8,$DFF0B4
;	MOVE.W	#$3E8,$DFF0C4
;	MOVE.W	#$3E8,$DFF0D4

	move.l	#lbL00076E,$DFF0A0
	move.l	#lbL00076E,$DFF0B0
	move.l	#lbL00076E,$DFF0C0
	move.l	#lbL00076E,$DFF0D0
	move.w	#24,$DFF0A4
	move.w	#24,$DFF0B4
	move.w	#24,$DFF0C4
	move.w	#24,$DFF0D4

	MOVE.W	#1,$DFF0A6
	MOVE.W	#1,$DFF0B6
	MOVE.W	#1,$DFF0C6
	MOVE.W	#1,$DFF0D6
	MOVE.W	#0,$DFF0A8
	MOVE.W	#0,$DFF0B8
	MOVE.W	#0,$DFF0C8
	MOVE.W	#0,$DFF0D8
;	JSR	lbC00008A
	RTS

lbL000178	dc.l	lbL000552
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000548
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL00055C
	dc.l	lbL00055C
	dc.l	lbL000548
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000656
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000656
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL000732
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000570
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL00055C
	dc.l	lbL000548
	dc.l	lbL0006C4
	dc.l	lbL0006BA
	dc.l	lbL000624
	dc.l	lbL00058E
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000548
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL0005E8
	dc.l	lbL0005FC
	dc.l	lbL000606
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0006A6
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL0005AC
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL0005AC
	dc.l	lbL000674
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL000642
	dc.l	lbL000642
	dc.l	lbL000642
	dc.l	lbL000642
	dc.l	lbL000638
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL000642
	dc.l	lbL000642
	dc.l	lbL000638
	dc.l	lbL000638
	dc.l	lbL000552
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000656
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL000584
	dc.l	lbL000598
	dc.l	lbL0005A2
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000656
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL0005CA
	dc.l	lbL0005D4
	dc.l	lbL0005DE
	dc.l	lbL000548
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL000548
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL000548
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL0005AC
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL0006D8
	dc.l	lbL0006E2
	dc.l	lbL0006EC
	dc.l	lbL0006F6
	dc.l	lbL000700
	dc.l	lbL00070A
	dc.l	lbL000714
	dc.l	lbL00071E
	dc.l	lbL00075A
	dc.l	lbL000732
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000692
	dc.l	lbL000656
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL00055C
	dc.l	lbL000548
	dc.l	lbL00061A
	dc.l	lbL000656
	dc.l	lbL00064C
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL000674
	dc.l	lbL00057A
	dc.l	lbL000566
	dc.l	lbL00064C
	dc.l	lbL00064C
	dc.l	lbL00055C
	dc.l	lbL000566
	dc.l	lbL00064C
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL000674
	dc.l	lbL00067E
	dc.l	lbL00066A
	dc.l	lbL00066A
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL0005B6
	dc.l	lbL000732
	dc.l	lbL0005F2
	dc.l	lbL0005FC
	dc.l	lbL000606
	dc.l	lbL00073C
	dc.l	lbL00073C
	dc.l	lbL00073C
	dc.l	lbL00073C
	dc.l	lbL00064C
	dc.l	lbL000746
	dc.l	lbL000548
	dc.l	lbL000566
	dc.l	lbL00064C
	dc.l	lbL000674
	dc.l	lbL000660
	dc.l	lbL000746
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL000688
	dc.l	lbL00067E
	dc.l	lbL00067E
	dc.l	lbL0005B6
	dc.l	lbL00064C
	dc.l	lbL000746
	dc.l	lbL00064C
	dc.l	lbL0005AC
	dc.l	lbL00055C
	dc.l	lbL000566
	dc.l	lbL00064C
	dc.l	lbL00055C
	dc.l	lbL000548
	dc.l	lbL00061A
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000610
	dc.l	lbL000764
	dc.l	lbL000732
	dc.l	lbL000610
	dc.l	lbL000692
	dc.l	lbL000656
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL000566
	dc.l	lbL00055C
	dc.l	lbL000548
	dc.l	lbL000732
	dc.l	lbL000728
	dc.l	lbL0006CE
	dc.l	lbL0006BA
	dc.l	lbL000624
	dc.l	0
	dc.l	1
lbL000548	dc.l	$6572-$179E+lbW00079E
	dc.l	$266E00DE
	dc.w	$40
lbL000552	dc.l	$6572-$179E+lbW00079E
	dc.l	$266E01BC
	dc.w	$40
lbL00055C	dc.l	$6572-$179E+lbW00079E
	dc.l	$133700DE
	dc.w	$40
lbL000566	dc.l	$6572-$179E+lbW00079E
	dc.l	$99B00DE
	dc.w	$40
lbL000570	dc.l	$6572-$179E+lbW00079E
	dc.l	$99B012C
	dc.w	$40
lbL00057A	dc.l	$6572-$179E+lbW00079E
	dc.l	$99B01BC
	dc.w	$40
lbL000584	dc.l	$44492-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL00058E	dc.l	$44492-$179E+lbW00079E
	dc.l	$753001BC
	dc.w	$40
lbL000598	dc.l	$52EF3-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL0005A2	dc.l	$61952-$179E+lbW00079E
	dc.l	$491000DE
	dc.w	$40
lbL0005AC	dc.l	$322CA-$179E+lbW00079E
	dc.l	$266E00DE
	dc.w	$40
lbL0005B6	dc.l	$322CA-$179E+lbW00079E
	dc.l	$266E01BC
	dc.w	$40
	dc.l	$322CA-$179E+lbW00079E
	dc.l	$266E012C
	dc.w	$40
lbL0005CA	dc.l	$B24E-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL0005D4	dc.l	$19CAF-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL0005DE	dc.l	$2870E-$179E+lbW00079E
	dc.l	$491000DE
	dc.w	$40
lbL0005E8	dc.l	$B24E-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL0005F2	dc.l	$B24E-$179E+lbW00079E
	dc.l	$7530012C
	dc.w	$40
lbL0005FC	dc.l	$19CAF-$179E+lbW00079E
	dc.l	$753000DE
	dc.w	$40
lbL000606	dc.l	$28710-$179E+lbW00079E
	dc.l	$4DDD00DE
	dc.w	$40
lbL000610	dc.l	$36FD0-$179E+lbW00079E
	dc.l	$3989012C
	dc.w	$40
lbL00061A	dc.l	$36FD0-$179E+lbW00079E
	dc.l	$398900DE
	dc.w	$40
lbL000624	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$26EA01BC
	dc.w	$40
	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$26EA00DE
	dc.w	$40
lbL000638	dc.l	$179E-$179E+lbW00079E
	dc.l	$26EA01BC
	dc.w	$40
lbL000642	dc.l	$179E-$179E+lbW00079E
	dc.l	$137501BC
	dc.w	$40
lbL00064C	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD00DE
	dc.w	$40
lbL000656	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD012C
	dc.w	$40
lbL000660	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD01BC
	dc.w	$40
lbL00066A	dc.l	$179E-$179E+lbW00079E
	dc.l	$4DD01BC
	dc.w	$40
lbL000674	dc.l	$179E-$179E+lbW00079E
	dc.l	$4DD00DE
	dc.w	$40
lbL00067E	dc.l	$179E-$179E+lbW00079E
	dc.l	$26E01BC
	dc.w	$40
lbL000688	dc.l	$179E-$179E+lbW00079E
	dc.l	$26E00DE
	dc.w	$40
lbL000692	dc.l	$36FD0-$179E+lbW00079E
	dc.l	$3989012C
	dc.w	$40
	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$137501BC
	dc.w	$40
lbL0006A6	dc.l	$33F9B-$179E+lbW00079E
	dc.l	$133600DE
	dc.w	$40
	dc.l	$36FD0-$179E+lbW00079E
	dc.l	$731012C
	dc.w	$40
lbL0006BA	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$9BA01BC
	dc.w	$40
lbL0006C4	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$9BA00DE
	dc.w	$40
lbL0006CE	dc.l	$3F6BC-$179E+lbW00079E
	dc.l	$9BA012C
	dc.w	$40
lbL0006D8	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD00DE
	dc.w	$40
lbL0006E2	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD00F0
	dc.w	$40
lbL0006EC	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD0104
	dc.w	$40
lbL0006F6	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD0118
	dc.w	$40
lbL000700	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD012C
	dc.w	$40
lbL00070A	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD0140
	dc.w	$40
lbL000714	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD0154
	dc.w	$40
lbL00071E	dc.l	$322CA-$179E+lbW00079E
	dc.l	$4CD0168
	dc.w	$40
lbL000728	dc.l	$3E2E2-$179E+lbW00079E
	dc.l	$9ED012C
	dc.w	$40
lbL000732	dc.l	$3E2E2-$179E+lbW00079E
	dc.l	$9ED00DE
	dc.w	$40
lbL00073C	dc.l	$35C6F-$179E+lbW00079E
	dc.l	$99B00DE
	dc.w	$40
lbL000746	dc.l	$36607-$179E+lbW00079E
	dc.l	$4CD00DE
	dc.w	$40
	dc.l	$3E2E2-$179E+lbW00079E
	dc.l	$9ED00DE
	dc.w	$40
lbL00075A	dc.l	$3E2E2-$179E+lbW00079E
	dc.l	$9ED01BC
	dc.w	$40
lbL000764	dc.l	$3E2E2-$179E+lbW00079E
	dc.l	$9ED012C
	dc.w	$40
lbL00076E	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
	dc.l	0
lbW00079E
	incbin	ram:samples

AB2_End