**************************************************************************
*              Tronic Eagleplayer/DelitrackerReplay                      *
*   Playroutine ripped and made usable for Deli/Eagle by Marley/Infect   *
*    Eagleplayer Adaptions (Vol,Bal,Voices) by Buggs / Defect            *
*        Note by Buggs: Doesn`t look like a "Tracker"                    *
**************************************************************************
	;
	incdir	include:
	include	misc/eagleplayer.i
	;
	SECTION	0,CODE

test	=	0

	ifne	test

	lea	mod,a0
	move.l	a0,tr_data
	bsr	tr_init
wa
	move.b	$dff006,d0
	cmp.b	#$50,d0
	bne	wa

	bsr	tr_music

	btst	#6,$bfe001
	bne	wa
	move.w	#15,$dff096
	illegal

	endc

	Playerheader	Tags
	dc.b	'$VER: TronicTracker(?) replay module V1.1 (12-Apr-93 &'
	dc.b	' 17-Apr-93)',0
Tags
	dc.l	DTP_RequestDTVersion,$ffff
	dc.l	EP_PlayerVersion,4
	dc.l	DTP_Volume,SetVoices
	dc.l	DTP_Balance,SetVoices
	dc.l	EP_Voices,SetVoices
	dc.l	DTP_Playerversion,2
	dc.l	DTP_Playername,Player
	dc.l	DTP_Creator,Creator

	dc.l	DTP_Check2,Checkmod

	dc.l	DTP_InitPlayer,InitPlay
	dc.l	DTP_EndPlayer,EndPlay

	dc.l	DTP_InitSound,TR_Init
	dc.l	DTP_EndSound,TR_End
	dc.l	DTP_Interrupt,TR_Music

	dc.l	EP_flags,EPB_Volvoices!EPB_Packable!EPB_restart!EPB_songend!EPB_Volume!EPB_Balance!EPB_Voices!EPB_Analyzer
	dc.l	EP_StructInit,GetStrucAdr
	dc.l	0
;==========================================================================
TR_Data		dc.l	0
dtbase:		dc.l	0

TR_VolVoice1	dc.w	1
TR_VolVoice2	dc.w	1
TR_VolVoice3	dc.w	1
TR_VolVoice4	dc.w	1


StructAdr:
	ds.b	UPS_SizeOF

Player	dc.b	'TronicTracker(?)',0
Creator	dc.b	'?????, adapted by',$A
	dc.b	'marley/INFECT & Buggs/DEFECT',0,0
	even
;=========================================================================
GetStrucAdr:
	lea	StructAdr(pc),a0
	rts
;==========================================================================
*-----------------------------------------------------------------------*
*		d0 Bit 0-3 = Set Voices Bit=1 Voice on			*
SetVoices:	lea	structadr+UPS_DmaCon(pc),a0
		move.w	EPG_Voices(a5),(a0)				;Voices retten
		lea	TR_VolVoice1(pc),a1
		move.l	EPG_Voice1Vol(a5),(a1)
		move.l	EPG_Voice3Vol(a5),4(a1)

		lea	structadr+UPS_Voice1Vol(pc),a0
		lea	$dff0a0,a1
		moveq	#3,d1
.SetNew		moveq	#0,d0
		move.w	(a0),d0
		bsr.s	TR_SetVoices
		moveq	#UPS_Modulo,d0
		add.l	d0,a0
		addq.l	#8,a1
		addq.l	#8,a1
		dbf	d1,.SetNew
		rts

*-----------------------------------------------------------------------*
TR_SetVoices:	movem.l	a0/d0,-(a7)
		and.w	#$7f,d0
		lea	structadr(pc),a0
		cmp.l	#$dff0a0,a1			;Left Volume
		bne.s	.NoVoice1
		move.w	d0,UPS_Voice1Vol(a0)
		mulu.w	TR_VolVoice1(pc),d0
		bra.b	.SetIt
.NoVoice1:	cmp.l	#$dff0b0,a1			;Right Volume
		bne.s	.NoVoice2
		move.w	d0,UPS_Voice2Vol(a0)
		mulu.w	TR_VolVoice2(pc),d0
		bra.b	.SetIt
.NoVoice2:	cmp.l	#$dff0c0,a1			;Right Volume
		bne.s	.NoVoice3
		move.w	d0,UPS_Voice3Vol(a0)
		mulu.w	TR_VolVoice3(pc),d0
		bra.b	.SetIt
.NoVoice3:	move.w	d0,UPS_Voice4Vol(a0)
		mulu.w	TR_VolVoice4(pc),d0
.SetIt:		lsr.w	#6,d0
		move.w	d0,8(a1)
.Return:	movem.l	(a7)+,a0/d0
		rts

;==========================================================================
Checkmod
	movem.l	d1-d4,-(sp)
	move.l	DTG_ChkData(a5),a0
	moveq	#-1,d0
	movem.l	(a0)+,d1-d4
	add.w	d1,a0
	add.w	d2,a0
	add.w	d3,a0
	add.w	d4,a0
	move.l	a0,d1
	btst	#0,d1
	bne.s	.fail
	add.w	(a0),d1
	btst	#0,d1
	bne.s	.fail
	move.l	d1,a0
	cmp.l	#$5800b0,4(a0)
	bne.s	.fail
	moveq	#0,d0
.fail
	movem.l	(sp)+,d1-d4
	rts
;==========================================================================
InitPlay
	moveq	#0,d0
	move.l	DTG_GetListData(a5),a0
	jsr	(a0)
	move.l	a0,TR_Data
	move.l	a5,dtbase
	move.l	DTG_AudioAlloc(a5),a0
	jmp	(a0)
;==========================================================================
EndPlay
	move.l	DTG_AudioFree(a5),a0
	jmp	(a0)
;==========================================================================
Getadr
	move.l	a2,-(sp)
	lea	Structadr(pc),a2	;1.Kanal
	cmp.l	#$dff0a0,a1
	beq.s	.yes
	lea	Structadr+ups_modulo(pc),a2	;2.Kanal
	cmp.l	#$dff0b0,a1
	beq.s	.yes
	lea	Structadr+ups_modulo*2(pc),a2	;3.Kanal
	cmp.l	#$dff0c0,a1
	beq.s	.yes
	lea	Structadr+ups_modulo*3(pc),a2	;4.Kanal
.yes
	move.l	a4,UPS_Voice1adr(a2)
	move.l	(sp)+,a2
	rts
getper
	move.l	a2,-(sp)
	lea	structadr(pc),a2	;1.kanal

	cmp.l	#$dff0a0,a1
	beq.s	.yes
	lea	structadr+ups_modulo(pc),a2	;2.kanal
	cmp.l	#$dff0b0,a1
	beq.s	.yes
	lea	structadr+ups_modulo*2(pc),a2	;3.kanal
	cmp.l	#$dff0c0,a1
	beq.s	.yes
	lea	structadr+ups_modulo*3(pc),a2	;4.kanal
.yes
	move.w	d0,ups_voice1per(a2)
	move.l	(sp)+,a2
	rts
GetLen
	move.l	a2,-(sp)
	lea	structadr(pc),a2	;1.kanal

	cmp.l	#$dff0a0,a1
	beq.s	.yes
	lea	structadr+ups_modulo(pc),a2	;2.kanal
	cmp.l	#$dff0b0,a1
	beq.s	.yes
	lea	structadr+ups_modulo*2(pc),a2	;3.kanal
	cmp.l	#$dff0c0,a1
	beq.s	.yes
	lea	structadr+ups_modulo*3(pc),a2	;4.kanal
.yes
	move.w	d0,ups_voice1len(a2)
	move.l	(sp)+,a2
	rts
;==========================================================================
TR_Init
	movem.l	d1-d7/a0-a6,-(sp)
	lea	$dff000,a2
	move.w	#15,$96(a2)

;	bset	#1,$bfe001

	lea	TR_EmptyWave(pc),a0
	move.l	a0,$a0(a2)
	move.l	a0,$b0(a2)
	move.l	a0,$c0(a2)
	move.l	a0,$d0(a2)
	move.w	#4,$a4(a2)
	move.w	#4,$b4(a2)
	move.w	#4,$c4(a2)
	move.w	#4,$d4(a2)
	moveq	#0,d0
	move.l	d0,$a6(a2)
	move.l	d0,$b6(a2)
	move.l	d0,$c6(a2)
	move.l	d0,$d6(a2)

	move.l	tr_data(pc),a0
	lea	TR_7de(pc),a1
	move.w	#$8000,(a1)
	move.b	#$3f,$2e(a1)

	move.l	(a0)+,$3e(a1)
	move.l	(a0)+,$42(a1)
	move.l	(a0)+,$46(a1)
	move.l	(a0)+,$4a(a1)

	move.l	a0,10(a1)
	add.w	$40(a1),a0
	move.l	a0,14(a1)
	add.w	$44(a1),a0
	move.l	a0,$12(a1)
	add.w	$48(a1),a0
	move.l	a0,$16(a1)
	add.w	$4c(a1),a0
	moveq	#0,d0
	move.w	(a0)+,d0
	move.l	a0,$3a(a1)
	add.w	d0,a0
	move.w	(a0)+,d0
	move.l	a0,6(a1)
	add.w	d0,a0
	move.l	a0,2(a1)
	move.w	-2(a0),d0
	add.l	#$58,d0
	add.w	d0,a0
	move.w	(a0)+,d0
	move.l	a0,$4e(a1)
	add.w	d0,a0
	move.w	(a0)+,d0
	move.l	a0,$52(a1)
	add.w	d0,a0
	move.l	(a0)+,d0
	move.l	a0,$1a(a1)
	add.l	d0,a0
	move.l	a0,$26(a1)
	lea	$20(a0),a0
	move.l	a0,$22(a1)
	move.b	#5,$2f(a1)
	clr.b	$30(a1)

	lea	TR_83c(pc),a2

	lea	TR_Voice1(pc),a0
	move.l	10(a1),10(a0)
	move.l	$3e(a1),$36(a0)
	bsr.s	TR_InitVoice

	lea	TR_Voice2(pc),a0
	move.l	14(a1),10(a0)
	move.l	$42(a1),$36(a0)
	bsr.s	TR_InitVoice

	lea	TR_Voice3(pc),a0
	move.l	$12(a1),10(a0)
	move.l	$46(a1),$36(a0)
	bsr.s	TR_InitVoice

	lea	TR_Voice4(pc),a0
	move.l	$16(a1),10(a0)
	move.l	$4a(a1),$36(a0)
	bsr.s	TR_InitVoice

	movem.l	(sp)+,d1-d7/a0-a6
	moveq	#0,d0
	rts

TR_InitVoice
	MOVE.L	A2,6(A0)
	MOVE.L	$3A(A1),$2C(A0)
	MOVE.B	#$3F,$1D(A0)
	CLR.L	14(A0)
	CLR.L	$12(A0)
	CLR.L	$16(A0)
	CLR.W	$1A(A0)
	CLR.B	$1C(A0)
	CLR.L	$1E(A0)
	CLR.L	$22(A0)
	CLR.L	$26(A0)
	CLR.W	$2A(A0)
	CLR.L	$30(A0)
	CLR.W	$34(A0)
	RTS

tr_end
	MOVE.L	A2,-(SP)

	LEA	$DFF000,A2
	MOVE.W	#15,$96(A2)
	MOVEQ	#0,D0
	MOVE.L	D0,$A6(A2)
	MOVE.L	D0,$B6(A2)
	MOVE.L	D0,$C6(A2)
	MOVE.L	D0,$D6(A2)

;	BCLR	#1,$BFE001

	lea	structadr(pc),a2
	move.w	d0,UPS_Flags(a2)
	move.l	d0,ups_voice1adr(a2)
	move.l	d0,ups_voice2adr(a2)
	move.l	d0,ups_voice3adr(a2)
	move.l	d0,ups_voice4adr(a2)
	move.w	#1,ups_enabled(a2)

	MOVE.L	(SP)+,A2
	MOVEQ	#0,D0
	RTS

TR_Music
	MOVEM.L	D1-D7/A0-A6,-(SP)

	lea	StructAdr(pc),a0
	move.w	#-1,UPS_Enabled(a0)
	move.w	#UPSB_Adr!UPSB_LEN!UPSB_Per!UPSB_Vol!UPSB_DMACON,UPS_Flags(a0)
	clr.w	UPS_Voice1Per(a0)
	clr.w	UPS_Voice2Per(a0)
	clr.w	UPS_Voice3Per(a0)
	clr.w	UPS_Voice4Per(a0)

	LEA	TR_7DE(PC),A6
	CLR.B	1(A6)
	SUBQ.B	#1,$30(A6)
	BPL.S	TR_2DC
	MOVE.B	$2F(A6),$30(A6)
TR_2DC
	LEA	TR_Voice1(PC),A0
	BSR.S	TR_302
	LEA	TR_Voice2(PC),A0
	BSR.S	TR_302
	LEA	TR_Voice3(PC),A0
	BSR.S	TR_302
	LEA	TR_Voice4(PC),A0
	BSR.S	TR_302

	MOVE.W	(A6),$DFF096

	lea	StructAdr(pc),a1
	clr.w	UPS_Enabled(a1)

	MOVEM.L	(SP)+,D1-D7/A0-A6
	MOVEQ	#0,D0
	RTS

TR_302
	MOVE.L	(A0),A1
	MOVE.L	6(A0),A2
	TST.B	$33(A0)
	BPL.S	TR_33A
	CLR.B	$33(A0)
	MOVEQ	#0,D0
	MOVE.L	$26(A6),A3
	MOVE.B	$27(A2),D0
	ADD.W	D0,D0
	ADD.W	D0,D0
	ADD.W	D0,A3
	MOVE.L	(A3),A4
	ADD.L	$22(A6),A4

	MOVE.W	4(A2),d0
	move.w	d0,4(A1)		;Len
	bsr	getlen

	MOVEQ	#0,D0
	MOVE.W	2(A2),D0
	CLR.W	(A4)
	ADD.W	D0,A4
	MOVE.L	A4,(A1)			;Adr
	bsr	getadr

TR_33A
	TST.B	$30(A6)
	BNE	TR_484

	TST.W	$14(A0)
	BNE.S	TR_378
	MOVEQ	#0,D0
	MOVE.L	10(A0),A3
	MOVE.W	$12(A0),D1
	MOVE.B	0(A3,D1.W),D0
	MOVE.B	1(A3,D1.W),$2B(A0)
	ASL.L	#6,D0
	ADD.L	$1A(A6),D0
	MOVE.L	D0,14(A0)
	ADDQ.W	#2,D1
	MOVE.W	D1,$12(A0)
	CMP.W	$38(A0),D1
	BMI.S	TR_378
	MOVE.W	$36(A0),$12(A0)

	ifeq	test

	move.l	a2,-(sp)
	move.l	dtbase(pc),a2
	move.l	dtg_songend(a2),a2
	jsr	(a2)
	move.l	(sp)+,a2

	endc

TR_378	MOVEQ	#0,D0
	MOVE.L	14(A0),A3
	MOVE.W	$14(A0),D0
	ADD.L	D0,A3
	MOVEQ	#0,D0
	MOVE.B	(A3),D0
	BEQ	TR_40E
	MOVE.W	4(A0),$DFF096
	MOVE.B	D0,$1C(A0)
	LEA	TR_Periods(PC),A4
	ADD.B	$2B(A0),D0
	ADD.W	D0,D0
	MOVE.W	0(A4,D0.W),$1A(A0)
	MOVEQ	#0,D1
	MOVE.B	1(A3),D1
	ADD.W	D1,D1
	SUBQ.W	#2,D1
	MOVE.L	6(A6),A4
	ADD.W	D1,A4
	MOVEQ	#0,D2
	MOVE.W	(A4),D2
	ADD.L	2(A6),D2
	MOVE.L	D2,6(A0)
	MOVE.L	D2,A2
	MOVE.B	$26(A2),$33(A0)
	BPL.S	TR_3EA
	MOVEQ	#0,D0
	MOVE.L	$26(A6),A4
	MOVE.B	$27(A2),D0
	ADD.W	D0,D0
	ADD.W	D0,D0
	ADD.W	D0,A4
	MOVE.L	(A4),A4
	ADD.L	$22(A6),A4
	MOVE.L	A4,(A1)			;Adr
	bsr	getadr
	move.w	(a2),d0
	MOVE.W	d0,4(A1)		;Len
	bsr	getlen
TR_3EA
	CLR.W	$16(A0)
	CLR.L	$20(A0)
	CLR.B	$24(A0)
	CLR.W	$30(A0)
	CLR.L	$26(A0)
	MOVE.B	$16(A2),$2A(A0)
	CLR.B	$34(A0)
	MOVE.B	$17(A2),$35(A0)
TR_40E
	moveq	#0,d0
	MOVE.B	2(A3),D0
	SUBQ.B	#1,D0
	BMI.S	TR_47A
	MOVE.B	3(A3),D1

	ADD.W	D0,D0
	JMP	TR_420(PC,D0.W)

TR_420
	BRA.S	TR_430

	BRA.S	TR_436

	BRA.S	TR_44E

	BRA.S	TR_456

	BRA.S	TR_45C

	BRA.S	TR_462

	BRA.S	TR_468

	BRA.S	TR_46E

TR_430	MOVE.B	D1,$2F(A6)
	BRA.S	TR_47A

TR_436	TST.B	D1
	BNE.S	TR_444
;	BSET	#1,$BFE001
	BRA.S	TR_47A

TR_444
;	BCLR	#1,$BFE001
	BRA.S	TR_47A

TR_44E	NEG.W	D1
	MOVE.W	D1,$1E(A0)
	BRA.S	TR_47A

TR_456	MOVE.W	D1,$1E(A0)
	BRA.S	TR_47A

TR_45C	MOVE.B	D1,$25(A0)
	BRA.S	TR_47A

TR_462	MOVE.B	D1,$1D(A0)
	BRA.S	TR_47A

TR_468	MOVE.B	D1,$2E(A6)
	BRA.S	TR_47A

TR_46E	ASL.L	#4,D1
	MOVE.L	$3A(A6),A4
	ADD.L	D1,A4
	MOVE.L	A4,$2C(A0)
TR_47A	ADDQ.W	#4,$14(A0)
	AND.W	#$3F,$14(A0)
TR_484	TST.B	$26(A2)
	BMI.S	TR_4E0
	TST.B	$16(A0)
	BEQ.S	TR_496
	SUBQ.B	#1,$16(A0)
	BRA.S	TR_4E0

TR_496	MOVE.B	$27(A2),$16(A0)
	MOVEQ	#0,D0
	MOVEQ	#0,D2
	LEA	$28(A2),A3
	MOVE.B	$17(A0),D0
TR_4A8	MOVE.B	D0,D1
	MOVE.B	0(A3,D0.W),D2
	CMP.B	#$FF,D2
	BNE.S	TR_4C4
	MOVE.B	1(A3,D0.W),D0
	MOVE.B	0(A3,D0.W),D2
	CMP.B	#$FF,D2
	BNE.S	TR_4A8
	BRA.S	TR_4E0

TR_4C4	ADD.W	D2,D2
	ADD.L	$4E(A6),D2
	MOVE.L	D2,A3
	MOVE.W	(A3),D2
	MOVE.L	$52(A6),A3
	ADD.W	D2,A3

	move.l	a4,-(sp)
	move.l	a3,a4
	MOVE.L	A4,(A1)			;Adr
	bsr	getadr
	move.l	(sp)+,a4

	MOVE.W	(A2),d0			;Len
	move.w	d0,4(a1)
	bsr	getlen

	ADDQ.B	#1,D1
	MOVE.B	D1,$17(A0)
TR_4E0	MOVEQ	#0,D0
	LEA	$15(A2),A3
	MOVE.B	$34(A0),D0
	ADD.W	D0,A3
	MOVE.B	(A3),D0
	TST.B	$27(A0)
	BNE.S	TR_4FA
	ADD.W	D0,$28(A0)
	BRA.S	TR_4FE

TR_4FA	SUB.W	D0,$28(A0)
TR_4FE	SUBQ.B	#1,$2A(A0)
	BNE.S	TR_50E
	MOVE.B	1(A3),$2A(A0)
	NOT.B	$27(A0)
TR_50E	TST.B	$35(A0)
	BEQ.S	TR_51A
	SUBQ.B	#1,$35(A0)
	BRA.S	TR_532

TR_51A	ADDQ.B	#3,$34(A0)
	CMP.B	#15,$34(A0)
	BNE.S	TR_52C
	MOVE.B	#12,$34(A0)
TR_52C	MOVE.B	5(A3),$35(A0)
TR_532	TST.B	$24(A0)
	BEQ.S	TR_53E
	SUBQ.B	#1,$24(A0)
	BRA.S	TR_598

TR_53E	MOVEQ	#0,D0
	MOVEQ	#0,D1
	MOVE.W	$22(A0),D0
	LEA	6(A2),A3
	ADD.W	D0,A3
	MOVE.B	(A3),D0
	MOVE.B	1(A3),D1
	CMP.W	$20(A0),D1
	BPL.S	TR_572
	SUB.W	D0,$20(A0)
	CMP.W	$20(A0),D1
	BMI.S	TR_598
	MOVE.W	D1,$20(A0)
	ADDQ.W	#3,$22(A0)
	MOVE.B	2(A3),$24(A0)
	BRA.S	TR_598

TR_572	ADD.W	D0,$20(A0)
	CMP.W	$20(A0),D1
	BPL.S	TR_598
	MOVE.W	D1,$20(A0)
	ADDQ.W	#3,$22(A0)
	CMP.W	#15,$22(A0)
	BNE.S	TR_592
	MOVE.W	#12,$22(A0)
TR_592	MOVE.B	2(A3),$24(A0)
TR_598	MOVEQ	#0,D0
	MOVE.B	$25(A0),D0
	BEQ.S	TR_5C8
	MOVE.W	$1A(A0),D1
	CMP.W	$18(A0),D1
	BPL.S	TR_5BA
	SUB.W	D0,$18(A0)
	CMP.W	$18(A0),D1
	BMI.S	TR_5C8
	MOVE.W	D1,$18(A0)
	BRA.S	TR_5C8

TR_5BA
	ADD.W	D0,$18(A0)
	CMP.W	$18(A0),D1
	BPL.S	TR_5C8
	MOVE.W	D1,$18(A0)
TR_5C8	
	MOVEQ	#0,D0
	MOVE.L	$2C(A0),A3
	MOVE.W	$30(A0),D1
	MOVE.B	0(A3,D1.W),D0
	CMP.B	#$80,D0
	BNE.S	TR_5E2
	CLR.W	$30(A0)
	BRA.S	TR_5C8

TR_5E2
	ADDQ.W	#1,$30(A0)
	AND.W	#15,$30(A0)
	TST.B	$25(A0)
	BEQ.S	TR_5F8
	MOVE.W	$18(A0),D0
	BRA.S	TR_60E

TR_5F8
	LEA	TR_Periods(PC),A3
	ADD.B	$1C(A0),D0
	ADD.B	$2B(A0),D0
	ADD.W	D0,D0
	MOVE.W	0(A3,D0.W),D0
	MOVE.W	D0,$18(A0)
TR_60E
	MOVE.W	$24(A2),D1
	SUB.W	$1E(A0),D1
	SUB.W	D1,$28(A0)
	ADD.W	$28(A0),D0

	MOVE.W	D0,6(A1)		;Per
	bsr	getper
	MOVE.W	$20(A0),D0
	ROR.W	#2,D0
	AND.W	#$3F,D0
	CMP.B	$1D(A0),D0
	BMI.S	TR_636
	MOVE.B	$1D(A0),D0
TR_636
	CMP.B	$2E(A6),D0
	BMI.S	TR_640
	MOVE.B	$2E(A6),D0
TR_640
	bsr	TR_Setvoices
;	MOVE.W	D0,8(A1)		;Vol

	MOVE.W	4(A0),D0
	OR.W	D0,(A6)
	RTS

TR_Voice1
	dc.l	$DFF0A0
	dc.l	$10000
	dc.l	0,0,0,0,0,0,0,0,0,0,0,0
	dc.w	0
TR_Voice2
	dc.l	$DFF0B0
	dc.l	$20000
	dc.l	0,0,0,0,0,0,0,0,0,0,0,0
	dc.w	0
TR_Voice3
	dc.l	$DFF0C0
	dc.l	$40000
	dc.l	0,0,0,0,0,0,0,0,0,0,0,0
	dc.w	0
TR_Voice4
	dc.l	$DFF0D0
	dc.l	$80000
	dc.l	0,0,0,0,0,0,0,0,0,0,0,0
	dc.w	0

TR_Periods
	dc.l	$1AC0,$194017D0,$16801530,$140012E0,$11D010D0,$FE00F00,$E200D60
	dc.l	$CA00BE8,$B400A98,$A000970,$8E80868,$7F00780,$71006B0,$65005F4
	dc.l	$5A0054C,$50004B8,$4740434,$3F803C0,$3880358,$32802FA,$2D002A6
	dc.l	$280025C,$23A021A,$1FC01E0,$1C401AC,$194017D,$1680153,$140012E
	dc.l	$11D010D,$FE00F0,$E200D6,$CA00BE,$B400AA,$A00097,$8F0087,$7F0078
	dc.l	$710071,$710071,$710071,$710071,$710071,$710071,$71
TR_7DE
	dc.l	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
	dc.w	0
TR_EmptyWave
	dc.l	0,0
TR_83C
	dc.l	$40000
	dc.l	1
	dc.l	$FF000000
	dc.l	0
	dc.l	0
	dc.l	$101
	dc.l	$2020202
	dc.l	$2020202
	dc.l	$2020202
	dc.l	$FE
	dc.l	$FF0000

	ifne	test
mod
	incdir	vr0:
	incbin	tron.jetsons

	endc

	END