;****; Reassembler V1.5 1992 ;**********************

;****; Definitionen ;****************************************

_LVOOpenLibrary		EQU	-$228
_LVOLoadView		EQU	-$DE
_LVOWaitTOF		EQU	-$10E
_LVOForbid		EQU	-$84
_LVOPermit		EQU	-$8A
_LVOCloseLibrary	EQU	-$19E
gb_ActiView		EQU	$22
VBlankFrequency		EQU	$212
cop1lc			EQU	$80
copjmp1			EQU	$88
gb_copinit		EQU	$26
_custom 		EQU	$DFF000

;****; Programm ;********************************************

		SECTION "  0",CODE

IntroBegin	BSR.W	ClearSomething
		BSR.W	InitPlanes
		BSR.W	InitText
		JSR	Mt_Init

		MOVEA.L	4.W,A6
		LEA	GfxName,A1
		MOVEQ	#0,D0
		JSR	_LVOOpenLibrary(A6)

		TST.L	D0
		BEQ.W	IntroEnd

		MOVE.L	D0,GfxBase
		MOVEA.L	D0,A6
		MOVE.L	gb_ActiView(A6),OldView
		MOVEA.W	#0,A1
		JSR	_LVOLoadView(A6)
		JSR	_LVOWaitTOF(A6)
		JSR	_LVOWaitTOF(A6)

		MOVE.W	$00DFF07C.L,D0
		CMP.B	#-8,D0
		BNE.B	NoAGA

		MOVE.W	#0,$00DFF1FC.L

NoAGA		MOVEA.L	4.W,A6
		JSR	_LVOForbid(A6)

		CMPI.B	#$0032,VBlankFrequency(A6)
		BNE.W	ReturnSystem

		LEA	$00DFF000.L,A6
		MOVE.L	#CprList,cop1lc(A6)
		CLR.W	copjmp1(A6)

MainLoop	BSR.W	MoveLogo
		JSR	MT_Music
		BSR.W	ClearVector
		BSR.W	Vector
		BSR.W	WriteText
		BSR.W	ColChange
		BSR.W	WCopper
		BSR.W	DoVector

		BTST	#6,$00BFE001.L
		BNE.B	MainLoop

		MOVE.W	#6,PosPtr

EndLoop		BSR.W	DoVector
		BSR.W	MoveLogo
		JSR	MT_Music
		BSR.W	ClearVector
		CLR.W	L_2D2
		BSR.W	Vector
		BSR.W	ColChange
		BSR.W	WCopper
		TST.W	PosPtr
		BNE.W	EndLoop
		JSR	MT_End

ReturnSystem	MOVEA.L	4.W,A6
		JSR	_LVOPermit(A6)

		MOVEA.L	OldView,A1
		MOVEA.L	GfxBase,A6
		JSR	_LVOLoadView(A6)

		MOVE.L	gb_copinit(A6),$00DFF080.L
		MOVEA.L	A6,A1

		MOVEA.L	4.W,A6
		JSR	_LVOCloseLibrary(A6)
		MOVEQ	#0,D0
IntroEnd	RTS	

InitPlanes	MOVEQ	#7,D0
		LEA	SprPtr,A0
		LEA	LogoPtr,A1
PointBpl	MOVE.L	(A1)+,D1
		MOVE.W	D1,6(A0)
		SWAP	D1
		MOVE.W	D1,2(A0)
		ADDQ.L	#8,A0
		DBRA	D0,PointBpl
		RTS	

LogoPtr		DC.L	Data1
		DC.L	Data2
		DC.L	Data3
		DC.L	Data4

		DC.L	Data5
		DC.L	Data6
		DC.L	Data7
		DC.L	Data8

WCopper		LEA	CprList,A0
		MOVE.L	L_1B8,D0
		MOVE.L	D0,D6
		MOVE.W	D0,$00EA(A0)
		SWAP	D0
		MOVE.W	D0,$00E6(A0)
		SWAP	D0
		ADDI.L	#$00000028,D0
		MOVE.W	D0,$00F2(A0)
		SWAP	D0
		MOVE.W	D0,$00EE(A0)
		SWAP	D0
		MOVE.L	#L_829C,D0
		MOVE.W	D0,$00FA(A0)
		SWAP	D0
		MOVE.W	D0,$00F6(A0)
		SWAP	D0
		ADDI.L	#$00000028,D0
		MOVE.W	D0,$0102(A0)
		SWAP	D0
		MOVE.W	D0,$00FE(A0)
		MOVE.L	L_1BC,L_1B8
		MOVE.L	D6,L_1BC
		RTS	

L_1B8		DC.L	L_324C
L_1BC		DC.L	L_5A9C

DoVector	BTST	#0,5(A6)
		BEQ.B	DoVector

L_1C8		BTST	#0,5(A6)
		BNE.B	L_1C8
		MOVE.W	#$00B2,D0
		SUB.W	L_4D0(PC),D0
		LSR.W	#3,D0
		EXT.L	D0
		DIVS	#3,D0
		MOVE.W	D0,D1
		SWAP	D0
		MOVE.W	D1,D2
		SUBQ.W	#1,D0
		BLT.W	L_1EE
		ADDQ.W	#1,D2

L_1EE		LSL.W	#4,D2
		OR.W	D1,D2
		SUBQ.W	#1,D0
		BLT.W	L_1FA
		ADDQ.W	#1,D2

L_1FA		LSL.W	#4,D2
		OR.W	D1,D2
		LEA	Colors,A0
		MOVE.W	#$0FFF,D3
		SUB.W	D2,D3
		ADDI.W	#$0777,D2
		MOVE.W	D2,$000A(A0)
		MOVE.W	D3,6(A0)
		MOVE.W	D3,2(A0)
		SUBI.W	#$0222,D2
		SUBI.W	#$0222,D3
		MOVE.W	D2,L_2DA
		MOVE.W	D3,L_2DC
		MOVE.W	L_2D2(PC),D2
		MOVE.W	L_4D6(PC),D1
		CMP.W	D2,D1
		BLT.W	L_268
		BGT.W	L_264
		LEA	L_2D4(PC),A0
		MOVE.W	L_2D0(PC),D0
		ADDQ.W	#2,D0
		MOVE.W	(A0,D0.W),D2
		BGE.W	L_256
		CLR.W	D0
		MOVE.W	(A0),D2

L_256		MOVE.W	D0,L_2D0
		MOVE.W	D2,L_2D2
		BRA.B	L_270

L_264		SUBQ.W	#1,D1
		BRA.B	L_26A

L_268		ADDQ.W	#1,D1

L_26A		MOVE.W	D1,L_4D6

L_270		LEA	L_954,A0
		MOVE.W	L_2CC(PC),D0
		MOVE.W	L_4D6(PC),D1
		MULU	(A0,D0.W),D1
		SUBQ.W	#6,D0
		BGE.W	L_28C
		MOVE.W	#$00B2,D0

L_28C		MOVE.W	D0,L_2CC
		LSR.L	#4,D1
		LSR.L	#8,D1
		MOVE.W	D1,L_4D8
		LEA	L_954,A0
		MOVE.W	L_2CE(PC),D0
		MOVE.W	L_4DA(PC),D1
		MULU	(A0,D0.W),D1
		SUBI.W	#8,D0
		BGE.W	L_2BA
		MOVE.W	#$00B2,D0

L_2BA		MOVE.W	D0,L_2CE
		LSR.L	#4,D1
		LSR.L	#8,D1
		MOVE.W	D1,L_4DC
		RTS	

L_2CC		DC.W	$B2
L_2CE		DC.W	$3A
L_2D0		DC.W	0
L_2D2		DC.W	$64
L_2D4		DC.W	$96,$96,-1
L_2DA		DC.W	0
L_2DC		DC.W	0

ColChange	BTST	#0,5(A6)
		BEQ.W	ColChange

		LEA	L_874,A0
		MOVE.W	L_2DA(PC),10(A0)
		MOVE.W	L_2DA(PC),6(A0)
		MOVE.W	L_2DC(PC),2(A0)
		RTS	

MoveLogo	MOVE.W	PosPtr(PC),D3
		BEQ.W	L_382
		MOVEQ	#0,D0
		MOVE.W	L_386(PC),D0
		MOVE.W	D0,D2
		MOVE.W	D2,D4
		MOVE.W	#7,D7
		LEA	LogoPtr(PC),A0
		LSL.W	#8,D0
		MOVE.W	D0,D1
		SWAP	D0
		LSL.W	#2,D0
		ADDI.W	#$00E6,D4
		CMP.W	#$0139,D4
		BLE.W	L_334
		MOVE.W	#$019D,D4

L_334		ROL.W	#8,D4
		LSL.B	#1,D4
		OR.W	D4,D0

L_33A		MOVEA.L	(A0)+,A1
		ANDI.W	#$00FF,0(A1)
		OR.W	D1,0(A1)
		ANDI.W	#$0081,2(A1)
		OR.W	D0,2(A1)
		DBRA	D7,L_33A
		ADD.W	D3,D2
		TST.W	D3
		BLT.W	L_36C
		CMP.W	#$010E,D2
		BLE.W	L_37C
		CLR.W	PosPtr
		BRA.B	L_382

L_36C		CMP.W	#$0032,D2
		BGT.W	L_37C
		CLR.W	PosPtr
		BRA.B	L_382

L_37C		MOVE.W	D2,L_386
L_382		RTS	

PosPtr		DC.W	-6
L_386		DC.W	$10E

ClearSomething	LEA	L_31FC,A0
		MOVE.W	#$2999,D0

ClearIt		CLR.L	(A0)+
		DBRA	D0,ClearIt
		RTS	

ClearVector	MOVEA.L	L_1B8(PC),A5
		ADDA.L	#$00002800,A5
		MOVE.W	#$0069,D7
		CLR.L	D0
		CLR.L	D1
		CLR.L	D2
		CLR.L	D3
		CLR.L	D4
		CLR.L	D5
		CLR.L	D6
		MOVEA.L	D0,A0
		MOVEA.L	D0,A1
		MOVEA.L	D0,A2
		MOVEA.L	D0,A3
		MOVEA.L	D0,A4

L_3C0		MOVEM.L	D0-D6/A0-A4,-(A5)
		MOVEM.L	D0-D6/A0-A4,-(A5)
		DBRA	D7,L_3C0
		MOVEM.L	D0-D6/A0-A4,-(A5)
		MOVEM.L	D0-D3,-(A5)
		RTS	

Vector		LEA	L_954,A4
		MOVE.W	L_4CE(PC),D1
		MOVE.W	(A4,D1.W),D0
		SUBQ.W	#2,D1
		BGE.W	L_3EE
		MOVE.W	#$00B2,D1

L_3EE		MOVE.W	D1,L_4CE
		MULU	L_4D8(PC),D0
		LSR.L	#8,D0
		LSR.L	#4,D0
		MOVEA.L	L_1B8(PC),A0
		MOVE.W	L_4DC(PC),D7
		MOVE.W	#$0080,D6
		SUB.W	D7,D6
		MULU	#$0050,D6
		ADDA.L	D6,A0
		MOVE.L	D6,L_4CA
		MOVEA.W	L_4DE(PC),A2
		BSR.W	L_4E2
		MOVEQ	#0,D3
		MOVE.W	L_4D8(PC),D3
		LSL.L	#8,D3
		LSL.L	#4,D3
		DIVS	#$16A0,D3
		LEA	L_8A0,A4
		MOVE.W	L_4D0(PC),D1
		MOVE.W	(A4,D1.W),D0
		SUBQ.W	#2,D1
		BGE.W	L_444
		MOVE.W	#$00B2,D1

L_444		MOVE.W	D1,L_4D0
		MULS	D3,D0
		ASR.L	#8,D0
		ASR.L	#4,D0
		TST.W	D0
		BGE.W	L_462
		MOVE.W	#1,L_5FC
		NEG.W	D0
		BRA.B	L_468

L_462		CLR.W	L_5FC

L_468		MOVEA.L	L_1B8(PC),A0
		ADDA.L	L_4CA(PC),A0
		MOVE.W	L_4DC(PC),D7
		MOVEA.W	L_4DE(PC),A2
		TST.W	L_5FC
		BEQ.W	L_486
		ADDA.W	#1,A2

L_486		BSR.W	L_564

L_48A		BTST	#6,2(A6)
		BNE.B	L_48A
		MOVE.W	#$0080,D1
		MULU	#$0050,D1
		ADDI.L	#$00000026,D1
		MOVEA.L	L_1B8(PC),A0
		ADDA.L	D1,A0
		MOVE.L	#$09F0000A,$0040(A6)
		MOVE.L	#$FFFFFFFF,$0044(A6)
		MOVE.L	A0,$0054(A6)
		MOVE.L	A0,$0050(A6)
		CLR.L	$0064(A6)
		MOVE.W	#$2028,$0058(A6)
		RTS	

L_4CA		DC.L	0
L_4CE		DC.W	$B2
L_4D0		DC.W	$B2,0,0
L_4D6		DC.W	1
L_4D8		DC.W	1
L_4DA		DC.W	$80
L_4DC		DC.W	$80
L_4DE		DC.W	$A0,0

L_4E2		MOVEQ	#0,D1
		ADD.W	D0,D0
		SWAP	D0
		MOVE.W	D7,D2
		MULU	D2,D2
		ADD.L	D7,D2
		TST.W	D2
		BEQ.W	L_562
		DIVU	D2,D0
		SWAP	D0
		CLR.W	D0
		SWAP	D0
		MOVEQ	#0,D2
		SUBQ.W	#1,D7
		MOVEA.L	#$00000050,A1
		MOVE.W	#$000F,D5
		MOVE.W	#-2,D6

L_50E		ADD.L	D0,D1
		ADD.L	D1,D2
		SWAP	D2
		MOVE.W	A2,D3
		ADD.W	D2,D3
		MOVE.W	D3,D4
		LSR.W	#3,D3
		AND.W	D6,D3
		ANDI.W	#$000F,D4
		SUBI.W	#$000F,D4
		BGE.W	L_52C
		NEG.W	D4

L_52C		CLR.W	D5
		BSET	D4,D5
		EOR.W	D5,(A0,D3.W)
		EOR.W	D5,$0028(A0,D3.W)
		MOVE.W	A2,D3
		SUB.W	D2,D3
		MOVE.W	D3,D4
		LSR.W	#3,D3
		AND.W	D6,D3
		ANDI.W	#$000F,D4
		SUBI.W	#$000F,D4
		BGE.W	L_550
		NEG.W	D4

L_550		CLR.W	D5
		BSET	D4,D5
		EOR.W	D5,(A0,D3.W)
		SWAP	D2
		ADDA.L	A1,A0
		ADDA.L	A1,A3
		DBRA	D7,L_50E

L_562		RTS	

L_564		MOVEQ	#0,D1
		ADD.W	D0,D0
		SWAP	D0
		MOVE.W	D7,D2
		MULU	D2,D2
		ADD.L	D7,D2
		BEQ.W	L_5C8
		DIVS	D2,D0
		SWAP	D0
		CLR.W	D0
		SWAP	D0
		MOVEQ	#0,D2
		SUBQ.W	#1,D7
		MOVEA.L	#$00000050,A1
		MOVE.W	#$000F,D5
		MOVE.W	#-2,D6
		TST.W	L_5FC
		BNE.W	L_5CA

L_598		ADD.L	D0,D1
		ADD.L	D1,D2
		SWAP	D2
		MOVE.W	A2,D3
		ADD.W	D2,D3
		MOVE.W	D3,D4
		LSR.W	#3,D3
		AND.W	D6,D3
		ANDI.W	#$000F,D4
		SUBI.W	#$000F,D4
		BGE.W	L_5B6
		NEG.W	D4

L_5B6		CLR.W	D5
		BSET	D4,D5
		EOR.W	D5,$0028(A0,D3.W)
		SWAP	D2
		ADDA.L	A1,A0
		ADDA.L	A1,A3
		DBRA	D7,L_598

L_5C8		RTS	

L_5CA		SUB.L	D0,D1
		ADD.L	D1,D2
		SWAP	D2
		MOVE.W	A2,D3
		ADD.W	D2,D3
		MOVE.W	D3,D4
		LSR.W	#3,D3
		AND.W	D6,D3
		ANDI.W	#$000F,D4
		SUBI.W	#$000F,D4
		BGE.W	L_5E8
		NEG.W	D4

L_5E8		CLR.W	D5
		BSET	D4,D5
		EOR.W	D5,$0028(A0,D3.W)
		SWAP	D2
		ADDA.L	A1,A0
		ADDA.L	A1,A3
		DBRA	D7,L_5CA
		RTS	

L_5FC		DC.W	0

InitText	LEA	Text,A0
		LEA	L_D29C,A1
		LEA	L_1158,A2

L_610		MOVE.B	(A0)+,D0
		BEQ.W	L_634
		EXT.W	D0
		MOVEA.L	A2,A3
		MOVE.W	#$0033,D7

L_61E		CMP.W	(A3),D0
		BEQ.W	L_62E
		ADDQ.L	#4,A3
		DBRA	D7,L_61E
		CLR.W	(A1)+
		BRA.B	L_610

L_62E		MOVE.W	2(A3),(A1)+
		BRA.B	L_610

L_634		MOVE.W	#-1,(A1)+
		RTS	

WriteText	TST.W	L_760
		BLE.W	L_650
		SUBI.W	#1,L_760
		BRA.W	L_756

L_650		TST.W	L_762
		BNE.W	L_720
		LEA	L_D29C,A0
		MOVE.W	L_764(PC),D0

L_664		MOVE.W	(A0,D0.W),D1
		BGE.W	L_6C4
		ADDQ.W	#1,D1
		BNE.W	L_676
		CLR.W	D0
		BRA.B	L_664

L_676		ADDQ.W	#1,D1
		BNE.W	L_694
		MOVE.L	#$0000000B,L_758
		ADDI.L	#$000004B0,L_75C
		BRA.W	L_74E

L_694		MOVE.W	#1,L_762
		MOVE.W	#$00C8,L_760
		MOVE.L	#$0000000B,L_758
		MOVE.L	#$00000190,L_75C
		MOVE.W	#$4B00,L_766
		BRA.W	L_74E

L_6C4		LEA	Font,A2
		EXT.L	D1
		ADDA.L	D1,A2
		LEA	L_829C,A1
		NEG.W	(A1)
		MOVE.L	L_758(PC),D1
		MOVE.L	L_75C(PC),D2
		MOVE.L	D2,D3
		ADD.L	D1,D3
		ADDA.L	D3,A1
		MOVE.W	#$0017,D7
		MOVE.L	#$00000028,D6

L_6EE		MOVE.B	(A2),(A1)
		ADDA.L	D6,A1
		ADDA.L	#$0000001A,A2
		DBRA	D7,L_6EE
		ADDQ.W	#1,D1
		CMP.W	#$0028,D1
		BLT.W	L_712
		MOVE.L	#$0000000B,D1
		ADDI.L	#$000004B0,D2

L_712		MOVE.L	D1,L_758
		MOVE.L	D2,L_75C
		BRA.B	L_74E

L_720		MOVE.W	L_766(PC),D0
		BLT.W	L_746
		EXT.L	D0
		LEA	L_829C,A0
		ADDA.L	D0,A0
		MOVE.W	#$013F,D7

L_736		CLR.L	(A0)+
		DBRA	D7,L_736
		SUBI.W	#$0500,L_766
		BRA.B	L_756

L_746		CLR.W	L_762
		BRA.B	L_756

L_74E		ADDQ.W	#2,D0
		MOVE.W	D0,L_764

L_756		RTS	

L_758		DC.W	0,$B
L_75C		DC.W	0,$190
L_760		DC.W	0
L_762		DC.W	0
L_764		DC.W	0
L_766		DC.W	0

		SECTION "  1",CODE_C

CprList		DC.W	$0106,$0000,$0100,$4200,$008E,$2C81
		DC.W	$0090,$2CC1,$0092,$0038,$0094,$00D0
		DC.W	$0108,$0028,$010A,$0028,$0102,$0000
		DC.W	$0180,$0004

Colors		DC.W	$0182,$0F00,$0188,$0F00,$018A,$000F
		DC.W	$0184,$078F,$0186,$078F,$018C,$078F
		DC.W	$018E,$078F,$0190,$068E,$0192,$068E
		DC.W	$0194,$057E,$0196,$057E,$0198,$068E
		DC.W	$019A,$068E,$019C,$057E,$019E,$057E
		DC.W	$01A0,$0035,$01A2,$0FFF,$01A4,$0DEF
		DC.W	$01A6,$0BDF,$01A8,$0ADF,$01AA,$09CF
		DC.W	$01AC,$08BF,$01AE,$07AE,$01B0,$069D
		DC.W	$01B2,$068C,$01B4,$058B,$01B6,$047A
		DC.W	$01B8,$0469,$01BA,$0358,$01BC,$0257
		DC.W	$01BE,$0246

SprPtr		DC.W	$0120,$0000,$0122,$0000,$0124,$0000
		DC.W	$0126,$0000,$0128,$0000,$012A,$0000
		DC.W	$012C,$0000,$012E,$0000,$0130,$0000
		DC.W	$0132,$0000,$0134,$0000,$0136,$0000
		DC.W	$0138,$0000,$013A,$0000,$013C,$0000
		DC.W	$013E,$0000,$00E0,$0000,$00E2,$0000
		DC.W	$00E8,$0000,$00EA,$0000,$00E4,$0000
		DC.W	$00E6,$0000,$00EC,$0000,$00EE,$0000

		DC.W	$AAE1,$FFFE,$0108,$FF88

L_874		DC.W	$0182,$0F00,$0188,$0F00,$018A,$000F
		DC.W	$FFFF,$FFFE

OldView		DC.L	0
GfxBase		DC.L	0
GfxName		DC.B	'graphics.library',0
		DC.B	0
		DC.W	0

		SECTION "  2",CODE

L_8A0		DC.W	$F001,$F006,$F010,$F01F,$F032,$F04B
		DC.W	$F069,$F08C,$F0B3,$F0DF,$F110,$F146
		DC.W	$F180,$F1BE,$F202,$F249,$F295,$F2E5
		DC.W	$F339,$F391,$F3ED,$F44C,$F4B0,$F517
		DC.W	$F581,$F5EE,$F65F,$F6D3,$F749,$F7C2
		DC.W	$F83E,$F8BC,$F93D,$F9C0,$FA44,$FACA
		DC.W	$FB52,$FBDC,$FC67,$FCF2,$FD7F,$FE0D
		DC.W	$FE9B,$FF2A,$FFB9,$0047,$00D6,$0165
		DC.W	$01F3,$0281,$030E,$0399,$0424,$04AE
		DC.W	$0536,$05BC,$0640,$06C3,$0744,$07C2
		DC.W	$083E,$08B7,$092D,$09A1,$0A12,$0A7F
		DC.W	$0AE9,$0B50,$0BB4,$0C13,$0C6F,$0CC7
		DC.W	$0D1B,$0D6B,$0DB7,$0DFE,$0E42,$0E80
		DC.W	$0EBA,$0EF0,$0F21,$0F4D,$0F74,$0F97
		DC.W	$0FB5,$0FCE,$0FE1,$0FF0,$0FFA,$0FFF

L_954		DC.W	$0B69,$0B9B,$0BCC,$0BFC,$0C2B,$0C59
		DC.W	$0C86,$0CB2,$0CDD,$0D07,$0D30,$0D58
		DC.W	$0D7F,$0DA4,$0DC9,$0DED,$0E10,$0E31
		DC.W	$0E52,$0E71,$0E8F,$0EAC,$0EC8,$0EE3
		DC.W	$0EFD,$0F15,$0F2C,$0F42,$0F57,$0F6B
		DC.W	$0F7E,$0F8F,$0F9F,$0FAE,$0FBB,$0FC8
		DC.W	$0FD3,$0FDD,$0FE6,$0FED,$0FF3,$0FF8
		DC.W	$0FFC,$0FFF,$1000,$1000,$0FFF,$0FFC
		DC.W	$0FF8,$0FF3,$0FED,$0FE6,$0FDD,$0FD3
		DC.W	$0FC8,$0FBB,$0FAE,$0F9F,$0F8F,$0F7E
		DC.W	$0F6B,$0F57,$0F42,$0F2C,$0F15,$0EFD
		DC.W	$0EE3,$0EC8,$0EAC,$0E8F,$0E71,$0E52
		DC.W	$0E31,$0E10,$0DED,$0DC9,$0DA4,$0D7F
		DC.W	$0D58,$0D30,$0D07,$0CDD,$0CB2,$0C86
		DC.W	$0C59,$0C2B,$0BFC,$0BCC,$0B9B,$0B69

Font		INCBIN	"Dh0:Intros/Trsi/Font.raw"

L_1158		DC.W	$0020,$027B,$0061,$0000,$0062,$0001
		DC.W	$0063,$0002,$0064,$0003,$0065,$0004
		DC.W	$0066,$0005,$0067,$0006,$0068,$0007
		DC.W	$0069,$0008,$006A,$0009,$006B,$000A
		DC.W	$006C,$000B,$006D,$000C,$006E,$000D
		DC.W	$006F,$000E,$0070,$000F,$0071,$0010
		DC.W	$0072,$0011,$0073,$0012,$0074,$0013
		DC.W	$0075,$0014,$0076,$0015,$0077,$0016
		DC.W	$0078,$0017,$0079,$0018,$007A,$0019
		DC.W	$0030,$0270,$0031,$0271,$0032,$0272
		DC.W	$0033,$0273,$0034,$0274,$0035,$0275
		DC.W	$0036,$0276,$0037,$0277,$0038,$0278
		DC.W	$0039,$0279,$002F,$04E0,$0021,$04E1
		DC.W	$003F,$04E2,$002D,$04E3,$002E,$04E4
		DC.W	$002C,$04E5,$002B,$04E6,$003A,$04E7
		DC.W	$003D,$04E8,$0023,$04E9,$0028,$04EA
		DC.W	$0029,$04EB,$0060,$04EC,$FFFE,$FFFE
		DC.W	$FFFD,$FFFD

Text		DC.W	-$102
		DC.W	-$1E0
		DC.B	' always for your pleasure'
		DC.B	-2
		DC.B	'  trsi! presents today:'
		DC.B	-2
		DC.W	-$102
		DC.B	'  sternsiedler'
		DC.W	-$102
		DC.B	'  german'
		DC.W	-$102
		DC.B	'  supplied by mcloud'
		DC.W	-$102
		DC.W	-$2E0
		DC.B	' call our boards - now!'
		DC.B	-2
		DC.W	-$1E0
		DC.B	' mortuary whq 6 ndz'
		DC.B	-2
		DC.B	'  +1-312-284-7577'
		DC.B	-2
		DC.W	-$1E0
		DC.B	' boondocks ehq 3 ndz'
		DC.W	-$1E0
		DC.B	' +31-548-040-653'
		DC.W	-$102
		DC.B	'  the hidden ghq 2 ndz'
		DC.W	-$1E0
		DC.B	' +49-ask-for'
		DC.W	-$102
		DC.B	'  trip to nowhere ghq 3 ndz'
		DC.B	-2
		DC.B	'  +49-ask-for'
		DC.B	-2
		DC.W	-$1E0
		DC.B	' asylum hq 2 ndz'
		DC.W	-$1E0
		DC.B	' +46-317-759-378'
		DC.W	-$103
		DC.W	-$1E0
		DC.B	' greetings are going to:'
		DC.W	-$102
		DC.B	'  paradox-delirium'
		DC.W	-$1E0
		DC.B	'     prestige'
		DC.B	-2
		DC.B	'  hoodlum-silents'
		DC.B	-2
		DC.B	'      anthrox'
		DC.B	-2
		DC.B	'      prodigy'
		DC.B	-2
		DC.W	-$1E0
		DC.B	' and all our  '
		DC.W	-$1E0
		DC.B	' friends around the globe'
		DC.B	-2
		DC.W	-$202
		DC.W	-$102
		DC.B	'   credits for this intro: '
		DC.B	-2
		DC.B	'  -------------------------'
		DC.B	-2
		DC.B	'  code:       dream warrior'
		DC.B	-2
		DC.B	'  font:              domino'
		DC.B	-2
		DC.B	'  muzak:               emax'
		DC.B	-2
		DC.B	'  logo:              peachy'
		DC.B	-2
		DC.W	-$1E0
		DC.B	' tristar & red sector inc.'
		DC.W	-$1E0
		DC.B	'  you don'
		DC.B	-$4C
		DC.B	't know what you '
		DC.W	-$1E0
		DC.B	'       dealing with!      '
		DC.W	-$300

		SECTION "  3",CODE_C

Data1		INCBIN	"Dh0:Intros/Trsi/Data01.raw"
Data2		INCBIN	"Dh0:Intros/Trsi/Data02.raw"
Data3		INCBIN	"Dh0:Intros/Trsi/Data03.raw"
Data4		INCBIN	"Dh0:Intros/Trsi/Data04.raw"

Data5		INCBIN	"Dh0:Intros/Trsi/Data05.raw"
Data6		INCBIN	"Dh0:Intros/Trsi/Data06.raw"
Data7		INCBIN	"Dh0:Intros/Trsi/Data07.raw"
Data8		INCBIN	"Dh0:Intros/Trsi/Data08.raw"

		SECTION "  4",BSS_C

L_31FC		BLK.B	80,0
L_324C		BLK.B	10320,0
L_5A9C		BLK.B	10240,0
L_829C		BLK.B	20480,0
L_D29C		BLK.B	1480,0

		SECTION "  5",CODE_C
		INCLUDE	"Dh0:Intros/Trsi/Replayer.s"

		SECTION "  6",CODE_C
MT_Data		INCBIN	"Dh0:Multimedia/Modules/Protracker/Mod.Simply Short"
		END