;********************************************************************
;*         ExMachina Design Present : The 1st Intro made by         *
;*                         Odo of ExMachina                         *
;*                       Last UpDate 19.06.93                       *
;*       Use SASM v1.4 To Assemble This ExMachina Production!       *
;* To Get This Assembler Call 05067-6863 (Ask For Florian W. Sauer) *
;********************************************************************

	heap	O=200k
	smc+

	rs=	$1300	;Set VarBase Address
scrollx	rs.w	0
scrolly	rs.w	0
scrolly2	rs.w	0
waitcnt	rs.w	0
ScText	Rs.w	0
CharNameBase	Rs.w	0
ScrollLine	Rs.w	0
ScText2	Rs.w	0
CharNameBase2	Rs.w	0
ScrollLine2	Rs.w	0
SpeedChk	Rs.w	0
PageCng	Rs.b	0
Tready	rs.b	0
Tpos	rs.b	0
TwPos	Rs.w	0
Ifin	rs.b	0
TrainPar1	rs.b	0	;Hi, Hier stehen
TrainPar2	rs.b	0	;deine 6 Trainer Parameter drinnen...
TrainPar3	rs.b	0	;$ff = Trainer Option Selected
TrainPar4	rs.b	0	;$00 = Thainer Option Not Selected
TrainPar5	rs.b	0	;
TrainPar6	rs.b	0	;Wenn du Weniger Parameter Brauchst, dann
			;Aendere einfach den cmp wert bei TrainerOpts !

	.include	snes:include/SuperInclude.i

ExMachina:	CLC			;Clear Carry Bit
	XCE			;set 16 bit native mode
	SEI			;set interrupt flag(NO INTS)
	MODE	A8X16
	jsr	InitRegs
Start:	REP	#$10		;X&Y 16 Bit
	SEP	#$20		;Acc  8 Bit
	LDX	#$1ff	;Load Stack Address
	TXS			;Set stack pointer to $1ff
	LDA	#$00		;Clear Accu
	XBA     		;Exchange A and B Accu
	LDA	#$00		;Load Accu With Zero
	PHA			;And push it on the Stack
	PLB			;Set data bank register to 0
	LDA	#$00		;Clear the
	TCD			;Direct Register
	Ldx	#0		;Load Clear Data
	stx	scrollx	;Clear Scroll X Ofset
	Ldx	#$00ff	;Load Initial Data
	stx	scrolly	;Init Scroll Y Ofset
	Ldx	#$000F	;Load Initial Data
	stx	scrolly2	;Init Scroll2 Y Ofset
	Ldx	#$0200	;Init
	Stx	waitcnt	;WaitCounter
	Ldx	#$8300	;Set ScrollLine
	Stx	ScrollLine	;Addresss in Vram
	Ldx	#$1700	;Set CharName
	Stx	CharNameBase	;Base to Get Chars from Vram
	Ldx	#AscText	;Load Ascii ScrollText
	Stx	ScText	;Store it As Text Pointer
	Ldx	#0004	;Initial Wait For No Crap
	Stx	SpeedChk
	Lda	#$00		;Set Start Screen
	Sta	PageCng	;(Display Girl)
	Sta	Tready
	Sta	Tpos
	Sta	TrainPar1	;Clear
	Sta	TrainPar2	;The
	Sta	TrainPar3	;Trainer
	Sta	TrainPar4	;Parameters
	Sta	TrainPar5	;For Reset
	Sta	TrainPar6	;Initializing
	JSR	setup_screen	;copy character & palette data in
	lda	#$81
	Sta	NmiTimEn	;enable NMI + PAD
	LDA	#$0f
	STA	IniDisp	;turn screen on.
	rep	#$20		;Reset Status Bits
	lda	scrolly
	sep	#$20		;set Status Bits
	sta	BG2Vofs
	xba			;Exchange A and B Accu
	sta	BG2Vofs
	rep	#$20		;Reset Status Bits
	lda	scrolly2
	sep	#$20		;set Status Bits
	sta	BG1Vofs
	xba			;Exchange A and B Accu
	sta	BG1Vofs
loop:	Wai			;Wait for Interrupt
joypad	Lda	$4212		
	And	#$01		
	Bne	joypad
	lda	$4219
	CMP	#32
	bne	ChkB
	Lda	#$01
	Sta	PageCng
ChkB:	lda	PageCng
	cmp	#$01
	bne	NoMen
	lda	$4219
	cmp	#$4
	beq	PadDownS
	cmp	#$8
	Beq	PadUpS
	cmp	#$40
	Beq	Togle
NoMen:	lda	$4219
	cmp	#$10
	beq	StartGame
	Lda	Tready
	cmp	#$01
	beq	NoCap
	Lda	PageCng
	Cmp	#01
	Bne	NoCap
	Jsr	PrepText
	Lda	#$8f		;Don't Forget to
	Sta	IniDisp	;Force Blank
	Jsr	Print
	Ldx	#$8180	;Set ScrollLine
	Stx	ScrollLine2	;Addresss in Vram
	Jsr	SetBack_GFX
	Lda	#$01
	Sta	Tready
	Lda	#$0f		;Switch Blank
	Sta	IniDisp	;On Again !!!
	jsr	WaitSel
NoCap:	brl	loop

WaitSel:	Ldx	#$2150
WaitLoop:	jsr	WaitVblank			
	Dex
	cpx	#$0000		
	bne	WaitLoop
	rts

StartGame:	Lda	#$8f
	Sta	IniDisp
	jmp	ExMachina	;Set The GameStart addr Here !!!

PadUpS:	Jmp	PadUp

PadDownS	Jmp	PadDown

Togle:
.Iwait:	Lda	Ifin
	cmp	#01
	bne	.Iwait

	Lda	Tpos
	cmp	#0
	beq	TogleS0
	cmp	#1
	beq	TogleS1
	cmp	#2
	beq	TogleS2
	cmp	#3
	beq	TogleS3
	cmp	#4
	beq	TogleS4
	cmp	#5
	beq	TogleS5
	brl	loop

TogleS0:	Jsr	Togle0
	jsr	WaitSel
	Brl	loop
TogleS1:	Jsr	Togle1
	jsr	WaitSel
	Brl	loop
TogleS2:	Jsr	Togle2
	jsr	WaitSel
	Brl	loop
TogleS3:	Jsr	Togle3
	jsr	WaitSel
	Brl	loop
TogleS4:	Jsr	Togle4
	jsr	WaitSel
	Brl	loop
TogleS5:	Jsr	Togle5
	jsr	WaitSel
	Brl	loop

Togle0:	Lda	TrainPar1
	EOR	#%11111111
	Sta	TrainPar1
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$51d9
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$51d9
	Stx	ScrollLine2
	jsr	Print
	rts
Togle1:	Lda	TrainPar2
	EOR	#%11111111
	Sta	TrainPar2
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$51f9
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$51f9
	Stx	ScrollLine2
	jsr	Print
	rts
Togle2:	Lda	TrainPar3
	EOR	#%11111111
	Sta	TrainPar3
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$5219
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$5219
	Stx	ScrollLine2
	jsr	Print
	rts
Togle3:	Lda	TrainPar4
	EOR	#%11111111
	Sta	TrainPar4
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$5239
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$5239
	Stx	ScrollLine2
	jsr	Print
	rts
Togle4:	Lda	TrainPar5
	EOR	#%11111111
	Sta	TrainPar5
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$5259
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$5259
	Stx	ScrollLine2
	jsr	Print
	rts
Togle5:	Lda	TrainPar6
	EOR	#%11111111
	Sta	TrainPar6
	Cmp	#$00
	beq	.TogleOff
	Ldx	#On
	Stx	ScText2
	Ldx	#$5279
	Stx	ScrollLine2
	jsr	Print
	rts
.TogleOff:	Ldx	#Off
	Stx	ScText2
	Ldx	#$5279
	Stx	ScrollLine2
	jsr	Print
	rts

PadUp:	Lda	Tpos
	cmp	#$00
	beq	UpExit
	sbc	#$01
	Sta	Tpos

.Iwait:	Lda	Ifin
	cmp	#01
	bne	.Iwait

	Lda	Tpos
	cmp	#04
	beq	Upj4
	cmp	#03
	beq	Upj3
	cmp	#02
	beq	Upj2
	cmp	#01
	beq	Upj1
	cmp	#00
	beq	Upj0
UpExit	Brl	loop
Upj4:	Jsr	Up4
	jsr	WaitSel
	brl	loop
Upj3:	Jsr	Up3
	jsr	WaitSel
	brl	loop
Upj2:	Jsr	Up2
	jsr	WaitSel
	brl	loop
Upj1:	Jsr	Up1
	jsr	WaitSel
	brl	loop
Upj0:	Jsr	Up0
	jsr	WaitSel
	brl	loop

PadDown:	Lda	Tpos
TrainOpts:	Cmp	#$05
	Beq	DownExit
	Adc	#$01
	Sta	Tpos

.Iwait:	Lda	Ifin
	cmp	#01
	bne	.Iwait

	Lda	Tpos
	cmp	#01
	beq	Downj1
	cmp	#02
	beq	Downj2
	cmp	#03
	beq	Downj3
	cmp	#04
	beq	Downj4
	cmp	#05
	beq	Downj5
DownExit	Brl	loop
Downj1:	Jsr	Down1
	jsr	WaitSel
	brl	loop
Downj2:	Jsr	Down2
	jsr	WaitSel
	brl	loop
Downj3:	Jsr	Down3
	jsr	WaitSel
	brl	loop
Downj4:	Jsr	Down4
	jsr	WaitSel
	brl	loop
Downj5:	Jsr	Down5
	jsr	WaitSel
	brl	loop

Up4:	Ldx	#$5278	;Yes I Know : This Is LAME,
	Stx	ScrollLine2	;But i'm to LAZY 
	Ldx	#Clear	;For an other Way !!!
	Stx	ScText2
	Jsr	Print
	Ldx	#$5258
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	rts
Up3:	Ldx	#$5258
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	Ldx	#$5238
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	rts
Up2:	Ldx	#$5238
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	Ldx	#$5218
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	rts
Up1:	Ldx	#$5218
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	Ldx	#$51f8
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	rts
Up0:	Ldx	#$51f8
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	Ldx	#$51d8
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	rts

Down1:	Ldx	#$51f8
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	Ldx	#$51d8
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	rts
Down2:	Ldx	#$5218
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	Ldx	#$51f8
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	rts
Down3:	Ldx	#$5238
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	Ldx	#$5218
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	rts
Down4:	Ldx	#$5258
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	Ldx	#$5238
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	rts
Down5:	Ldx	#$5278
	Stx	ScrollLine2
	Ldx	#Left
	Stx	ScText2
	Jsr	Print
	Ldx	#$5258
	Stx	ScrollLine2
	Ldx	#Clear
	Stx	ScText2
	Jsr	Print
	rts

Left:	dc.b	",",0
Clear:	Dc.b	" ",0
On:	dc.b	"ON ",0
Off:	dc.b	"OFF",0

setup_screen:	JSR	WaitVblank	;Force Blank
	STZ	CgAdd	;Clear Address for Cg-Ram Write
	LDX	#$2200	;register $2122 -Colour data
	STX	PmDMA0Tr	;Set as Parameter for DMA 0 Transfer
	LDX	#GirlCol	;address for color data
	STX	TaDMA0L	;Set as Table Address of A-bus DMA 0/L
	LDA	#^GirlCol	;bank for color data
	STA	TaDMA0B	;Set as A-bus DMA 0 Table Bank
	LDX	#32		;set number of bytes to be
	STX	DMA0DaSL	;transfered by general purpose DMA 0
	LDA	#%00000001	;Select DMA 0 for Start Trigger
	STA	mDMAen	;Activate Selected DMA('S)
	Lda	#64		;set Palette Nr.1
	Sta	CgAdd	;Set Address for Cg-Ram Write
	LDX	#$2200	;register $2122 -Colour data
	STX	PmDMA0Tr	;Set as Parameter for DMA 0 Transfer
	LDX	#palette2	;address for color data
	STX	TaDMA0L	;Set as Table Address of A-bus DMA 0/L
	LDA	#^palette2	;bank for color data
	STA	TaDMA0B	;Set as A-bus DMA 0 Table Bank
	LDX	#32		;set number of bytes to be
	STX	DMA0DaSL	;transfered by general purpose DMA 0
	LDA	#%00000001	;Select DMA 0 for Start Trigger
	STA	mDMAen	;Activate Selected DMA('S)
	Lda	#80		;set Palette Nr.2
	Sta	CgAdd	;Set Address for Cg-Ram Write
	LDX	#$2200	;register $2122 -Colour data
	STX	PmDMA0Tr	;Set as Parameter for DMA 0 Transfer
	LDX	#palette	;address for color data
	STX	TaDMA0L	;Set as Table Address of A-bus DMA 0/L
	LDA	#^palette	;bank for color data
	STA	TaDMA0B	;Set as A-bus DMA 0 Table Bank
	LDX	#32		;set number of bytes to be
	STX	DMA0DaSL	;transfered by general purpose DMA 0
	LDA	#%00000001	;Select DMA 0 for Start Trigger
	STA	mDMAen	;Activate Selected DMA('S)

	LDA	#$00		;Select VRAM address
	STA	VmAddL	;Set Address for Vram Read /L
	LDA	#$10		;Select VRAM address to $1000
	STA	VmAddH	;Set Address for Vram Read /H
	LDX	#$1801	;register $2118 - Vram data
	STX	PmDMA1Tr	;Set as Parameter for DMA 1 Transfer
	LDX	#GirlGfx	;address for Gfxdata
	STX	TaDMA1L	;Set as Table Address of A-bus DMA 1/L
	LDA	#^GirlGfx	;bank for Gfxdata
	STA	TaDMA1B	;Set as A-bus DMA 1 Table Bank
	LDX	#$8000	;set number of bytes to be
	STX	DMA1DaSL	;transfered by general purpose DMA 1
	LDA	#%00000010	;Select DMA 1 for Start Trigger
	STA	mDMAen	;Activate Selected DMA('S)
	LDA	#%10000000	;Select H/L Increment
	STA	VmaInc	;Set Vram Increment Value Designation
	LDA	#$50		;Set BG1 SC Base Addr to $5000/Size 0 
	STA	BG1Sc	;Write SC-Data Address & SC Size Desi.
	LDA	#$80		;Set BG2 SC Base Addr to $8000/Size 0 
	STA	BG2Sc	;Write SC-Data Address & SC Size Desi.
	LDA	#$11		;Select Address for BG2&1 CharData
	STA	BG12NBA	;Set The Adresses (4k Word/Segment)
	LDA	#%00000011	;Select BG 1 & 2 Only
	STA	TM		;Turn background 1 & 2 on
	LDA	#%00000000	;Select No Sub-Screen		
	STA	TS 		;Set Sub-Screen Selection
	LDA	#$02		;Select BG Mode & Char Size
	STA	BGmode	;Set the Selected Parameters
	Jsr	setup_GFX	;Copy CharNames to Vram
	RTS

WaitVblank	PHP
	SEP	#$20
wait1	LDA	rRdNMI	;Get NMI flag by VBlank & Version Nr.
	BIT	#%10000000	;Check Blank NMI
	BNE	wait1	;Waiting...
wait2	LDA	rRdNMI	;Get NMI flag by VBlank & Version Nr.
	BIT	#%10000000	;Check Blank NMI
	BEQ	wait2	;If Flag Clear Continue
	PLP
	RTS

setup_GFX	Jsr	WaitVblank	;Wait for VBlank
	Lda	#$00		;Set Vram
	Sta	VmAddL	;addr 
	Lda	#$50		;to
	Sta	VmAddH	;$5000
	Ldx	#CharPosTab	;load the addr of Char Position
.Loop	Lda	$1,x		;get Character Name
	Sta	VmDataL	;Store character in VRAM
	Lda	$0,x		;Get Color 
	Sta	VmDataH	;Store col etc in VRAM
	Inx			;Increment X
	Inx			;Twice
	Cpx	#CharTabEnd	;compare with end of table
	Bne	.Loop	;go and get another char
	Jsr	setup2_GFX	;Setup 2nd Screen
	Rts

setup2_GFX	Jsr	WaitVblank	;Wait for VBlank
	Lda	#$00		;Set Vram
	Sta	VmAddL	;addr 
	Lda	#$80		;to
	Sta	VmAddH	;$8000
	Ldx	#CharPosTab2	;load the addr of Char Position
.Loop	Lda	$1,x		;get Character Name
	Sta	VmDataL	;Store character in VRAM
	Lda	$0,x		;Get Color 
	Sta	VmDataH	;Store col etc in VRAM
	Inx			;Increment X
	Inx			;Twice
	Cpx	#CharTabEnd2	;compare with end of table
	Bne	.Loop	;go and get another char
	Rts

PrepText:	Ldx	#TrainMenu
	Stx	ScText2
	Ldx	#$5120	;Set ScrollLine
	Stx	ScrollLine2	;Addresss in Vram
	Ldx	#$1700	;Set CharName
	Stx	CharNameBase2	;Base to Get Chars from Vram
	rts

Print:	jsr	WaitVblank
PLoop:	Ldx	ScText2
	Lda	$0,x
	cmp	#0
	beq	PrintExit
	cmp	#$20
	beq	SpaceChkT
	SBC	#$22
	ADC	#$80
	jmp	Continue2
SpaceChkT:	sbc	#$21
	adc	#$80
Continue2:	Sta	CharNameBase2
	Inx	
	Stx	ScText2
	Ldy	ScrollLine2	;Set Vram
	Sty	VmAddL	;addr 
	Ldy	CharNameBase2	;get Character Name
	Sty	VmDataL	;Store character in VRAM
	Ldx	ScrollLine2
	Inx
	Stx	ScrollLine2
ScExit2	Jmp	PLoop

PrintExit:	Ldx	ScText2
	Inx
	Stx	ScText2
	rts

SetBack_GFX	jsr	WaitVblank
	Ldx	ScrollLine2	;Set Vram
	Stx	VmAddL	;addr 
	Ldx	#BackGr2	;load the addr of Char Position
.Loop	Lda	$1,x		;get Character Name
	Sta	VmDataL	;Store character in VRAM
	Lda	$0,x		;Get Color 
	Sta	VmDataH	;Store col etc in VRAM
	Inx			;Increment X
	Inx			;Twice
	Cpx	#BackGr2End	;compare with end of table
	Bne	.Loop	;go and get another char
	Rts

VBI:	Lda	#$00
	Sta	Ifin
	rep	#$20		;Reset Status Bits
	lda	scrollx
	sep	#$20		;set Status Bits
	sta	BG2Hofs
	xba			;Exchange A and B Accu
	sta	BG2Hofs
	rep	#$20		;Reset Status Bits
	lda	scrollx
	sec			;Set Carry Bit
	ADC	#1
	sta	scrollx
	sep	#$20		;set Status Bits
Scroll:	Ldx	SpeedChk	;Scroll Sync Delay Check
	cpx	#0		;Wait for Correct Sync
	beq	ScrollIt	;Do Scroll
	Dex			;Count Sync Wait
	Stx	SpeedChk	;Store Sync Position
	jmp	ScExit	;Sync Not Correct ->Exit,No Scroll
ScrollIt:	ldx	#$0003	;Restore Sync Wait
	Stx	SpeedChk	;For next Frames
	Ldx	ScText	;Text Pointer as Index X
	Lda	$0,x		;Get Ascii Char
	cmp	#0		;End of ScrollText ???
	beq	ResetScroll	;If YES Reset to 1st Ascii Char
	cmp	#$20		;Lame Space
	beq	SpaceChk	;Check
	SBC	#$22		;Get Requested Char Position
	ADC	#$40		;Add Address in Vram
	jmp	Continue	;Put it Out
SpaceChk:	sbc	#$21		;Repair my
	adc	#$40		;Demaged Space char
Continue:	Sta	CharNameBase	;Prepare Char For Output
	Inx			;Increment Text Pointer
	Stx	ScText	;Store New Text Pointer
	Ldy	ScrollLine	;Set Vram Address for Write
	Sty	VmAddL	;addr 
	Ldy	CharNameBase	;get Character Name
	Sty	VmDataL	;Store character in VRAM
	Ldx	ScrollLine	;Increment
	Inx			;Vram Address
	Stx	ScrollLine	;For Next Char
	cpx	#$8320	;Check Line End
	beq	ResetLine	;If Yes -> Restart Line
	Lda	#$01
	Sta	Ifin
ScExit	rti

ResetScroll	Ldy	#AscText	;Load Ascii Text StartAddr
	Sty	ScText	;Store it as Text Pointer
	jmp	ScrollIt	;Restart with 1st Ascii Char

ResetLine:	Ldy	#$8300	;Get ScrollPosition StartAddr
	Sty	ScrollLine	;Store it for a Reset
	Lda	#$01
	Sta	Ifin
	rti

		; Don't Use a >!<
AscText:	Dc.b	"E@MACHINA DESIGN "
	Dc.b	"PRESENT : BRAND NEW STUFF (THIS INTRO)... "
	Dc.b	"           CREDITS FOR THIS INTRO/TRAINERMENU : "
	Dc.b	"CODING, GRAPHICS, STYLE AND TEXT WAS MADE BY "
	Dc.b	"ODO OF E@MACHINA DESIGN... "
	dc.b	"TO GET IN THE TRAINERMENU YOU HAVE ONLY TO HIT THE "
	dc.b	"SELECT BUTTON...           "
	Dc.b	"PERSONAL GREETINGS GOES TO : FLO (EVIL ???) - "
	Dc.b	"YOUR >SASM< IS THE BEST SNES ASSEMBLER FOR THE AMIGA ON "
	DC.B	"THIS GLOBE. UPDATE IT LIKE HELL... "
	DC.B	"MAVE/CSL - "
	DC.B	"THANX FOR YOUR UPLOAD'S...  DARYL - I HOPE YOU GET YOUR "
	DC.B	"OWN MAGICOM/WILDCARD SOON................... "
	DC.B	"OK. HERE SOME REGARDS FOR : MAGICAL, ANTHROX, BASELINE, "
	DC.B	"ELITENDO, PARADOX, QUARTEX, CENSOR................ "
	DC.B	"                                      "
	dc.b	"STAY COOL AND BE CLEAR... ODO / E@M 1993                            "
	dc.b	"            PRESS START TO PLAY THE GAME....                                    ",0

TrainMenu:	
	Dc.b	" THE ULTIMATIVE TRAINER EXPERTS "
	Dc.b	"/./././././././././././././././."
	Dc.b	"                                "
	Dc.b	"USE UP AND DOWN TO SELECT OPTION"
	Dc.b	"................................"
	Dc.b	"    UNLIMITED LIVES    :,OFF    "
	Dc.b	"    UNLIMITED POWER    : OFF    "
	Dc.b	"    UNLIMITED TIME     : OFF    "
	Dc.b	"    UNLIMITED WEAPONS  : OFF    "
	Dc.b	"    UNLIMITED MUNITION : OFF    "
	Dc.b	"    UNLIMITED LAMERS   : OFF    "
	Dc.b	"................................"
	Dc.b	"USE ,Y- TO SELECT  ON+OFF STATUS"
	Dc.b	"                                "
	Dc.b	"././././././././././././././././"
	Dc.b	"THE NEXT GENERATION OF THE SCENE",0

InitRegs:	sep	#$20		;This one is The Initial
	lda	rStat77	;Setting routine For the
	lda	rStat78	;Snes CPU & PPU Regs
	lda	#$80		;(Must Be Started First of all)
	sta	$2100
	stz	$2101
	stz	$2102
	stz	$2103
	stz	$2105
	stz	$2106
	stz	$2107
	stz	$2108
	stz	$2109
	stz	$210a
	stz	$210b
	stz	$210c
	stz	$210d
	stz	$210d
	stz	$210e
	stz	$210e
	stz	$210f
	stz	$210f
	stz	$2110
	stz	$2110
	stz	$2111
	stz	$2111
	stz	$2112
	stz	$2112
	stz	$2113
	stz	$2113
	stz	$2114
	stz	$2114
	lda	#$80
	sta	$2115
	stz	$2116
	stz	$2117
	stz	$211a
	lda	#$01
	stz	$211b
	sta	$211b
	stz	$211c
	stz	$211c
	stz	$211d
	stz	$211d
	stz	$211e
	sta	$211e
	stz	$211f
	stz	$211f
	stz	$2120
	stz	$2120
	stz	$2121
	stz	$2122
	stz	$2122
	stz	$2123
	stz	$2124
	stz	$2125
	stz	$2126
	stz	$2127
	stz	$2128
	stz	$2129
	stz	$212a
	stz	$212b
	stz	$212c
	stz	$212d
	stz	$212e
	lda	#$30
	sta	$2130
	stz	$2131
	lda	#$e0
	sta	$2132
	stz	$2133
	stz	$4200
	lda	#$ff
	sta	$4201
	stz	$4202
	stz	$4203
	stz	$4204
	stz	$4205
	stz	$4206
	stz	$4207
	stz	$4208
	stz	$4209
	stz	$420a
	stz	$420b
	stz	$420c
	stz	$420d
	rts

CharPosTab:	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$16a0,$16a1,$16a2,$16a3,$16a4,$16a5,$16a6,$16a7	;
	Dc.w	$16a8,$16a9,$16aa,$16ab,$16ac,$16ad,$16ae,$16af
	Dc.w	$16b0,$16b1,$16b2,$16b3,$16b4,$16b5,$16b6,$16b7
	Dc.w	$16b8,$16b9,$16ba,$16bb,$16bc,$16bd,$16be,$16bf
	Dc.w	$16c0,$16c1,$16c2,$16c3,$16c4,$16c5,$16c6,$16c7	;
	Dc.w	$16c8,$16c9,$16ca,$16cb,$16cc,$16cd,$16ce,$16cf
	Dc.w	$16d0,$16d1,$16d2,$16d3,$16d4,$16d5,$16d6,$16d7
	Dc.w	$16d8,$16d9,$16da,$16db,$16dc,$16dd,$16de,$16df
	Dc.w	$16e0,$16e1,$16e2,$16e3,$16e4,$16e5,$16e6,$16e7	;
	Dc.w	$16e8,$16e9,$16ea,$16eb,$16ec,$16ed,$16ee,$16ef
	Dc.w	$16f0,$16f1,$16f2,$16f3,$16f4,$16f5,$16f6,$16f7
	dc.w	$16f8,$16f9,$16fa,$16fb,$16fc,$16fd,$16fe,$16ff
	Dc.w	$1700,$1701,$1702,$1703,$1704,$1705,$1706,$1707	;
	Dc.w	$1708,$1709,$170a,$170b,$170c,$170d,$170e,$170f
	Dc.w	$1710,$1711,$1712,$1713,$1714,$1715,$1716,$1717
	Dc.w	$1718,$1719,$171a,$171b,$171c,$171d,$171e,$171f
	Dc.w	$1720,$1721,$1722,$1723,$1724,$1725,$1726,$1727	;
	Dc.w	$1728,$1729,$172a,$172b,$172c,$172d,$172e,$172f
	Dc.w	$1730,$1731,$1732,$1733,$1734,$1735,$1736,$1737
	Dc.w	$1738,$1739,$173a,$173b,$173c,$173d,$173e,$173f
	Dc.w	$0000,$0001,$0002,$0003,$0004,$0005,$0006,$0007	;
	Dc.w	$0008,$0009,$000a,$000b,$000c,$000d,$000e,$000f
	Dc.w	$0010,$0011,$0012,$0013,$0014,$0015,$0016,$0017
	Dc.w	$0018,$0019,$001a,$001b,$001c,$001d,$001e,$001f
	Dc.w	$0020,$0021,$0022,$0023,$0024,$0025,$0026,$0027	;
	Dc.w	$0028,$0029,$002a,$002b,$002c,$002d,$002e,$002f
	Dc.w	$0030,$0031,$0032,$0033,$0034,$0035,$0036,$0037
	Dc.w	$0038,$0039,$003a,$003b,$003c,$003d,$003e,$003f
	Dc.w	$0040,$0041,$0042,$0043,$0044,$0045,$0046,$0047	;
	Dc.w	$0048,$0049,$004a,$004b,$004c,$004d,$004e,$004f
	Dc.w	$0050,$0051,$0052,$0053,$0054,$0055,$0056,$0057
	Dc.w	$0058,$0059,$005a,$005b,$005c,$005d,$005e,$005f
	Dc.w	$0060,$0061,$0062,$0063,$0064,$0065,$0066,$0067	;
	Dc.w	$0068,$0069,$006a,$006b,$006c,$006d,$006e,$006f
	Dc.w	$0070,$0071,$0072,$0073,$0074,$0075,$0076,$0077
	Dc.w	$0078,$0079,$007a,$007b,$007c,$007d,$007e,$007f
	Dc.w	$0080,$0081,$0082,$0083,$0084,$0085,$0086,$0087	;
	Dc.w	$0088,$0089,$008a,$008b,$008c,$008d,$008e,$008f
	Dc.w	$0090,$0091,$0092,$0093,$0094,$0095,$0096,$0097
	Dc.w	$0098,$0099,$009a,$009b,$009c,$009d,$009e,$009f
	Dc.w	$00a0,$00a1,$00a2,$00a3,$00a4,$00a5,$00a6,$00a7	;
	Dc.w	$00a8,$00a9,$00aa,$00ab,$00ac,$00ad,$00ae,$00af
	Dc.w	$00b0,$00b1,$00b2,$00b3,$00b4,$00b5,$00b6,$00b7
	Dc.w	$00b8,$00b9,$00ba,$00bb,$00bc,$00bd,$00be,$00bf
	Dc.w	$00c0,$00c1,$00c2,$00c3,$00c4,$00c5,$00c6,$00c7	;
	Dc.w	$00c8,$00c9,$00ca,$00cb,$00cc,$00cd,$00ce,$00cf
	Dc.w	$00d0,$00d1,$00d2,$00d3,$00d4,$00d5,$00d6,$00d7
	Dc.w	$00d8,$00d9,$00da,$00db,$00dc,$00dd,$00de,$00df
	Dc.w	$00e0,$00e1,$00e2,$00e3,$00e4,$00e5,$00e6,$00e7	;
	Dc.w	$00e8,$00e9,$00ea,$00eb,$00ec,$00ed,$00ee,$00ef
	Dc.w	$00f0,$00f1,$00f2,$00f3,$00f4,$00f5,$00f6,$00f7
	dc.w	$00f8,$00f9,$00fa,$00fb,$00fc,$00fd,$00fe,$00ff
	Dc.w	$0100,$0101,$0102,$0103,$0104,$0105,$0106,$0107	;
	Dc.w	$0108,$0109,$010a,$010b,$010c,$010d,$010e,$010f
	Dc.w	$0110,$0111,$0112,$0113,$0114,$0115,$0116,$0117
	Dc.w	$0118,$0119,$011a,$011b,$011c,$011d,$011e,$011f
	Dc.w	$0120,$0121,$0122,$0123,$0124,$0125,$0126,$0127	;
	Dc.w	$0128,$0129,$012a,$012b,$012c,$012d,$012e,$012f
	Dc.w	$0130,$0131,$0132,$0133,$0134,$0135,$0136,$0137
	Dc.w	$0138,$0139,$013a,$013b,$013c,$013d,$013e,$013f
	Dc.w	$0140,$0141,$0142,$0143,$0144,$0145,$0146,$0147	;
	Dc.w	$0148,$0149,$014a,$014b,$014c,$014d,$014e,$014f
	Dc.w	$0150,$0151,$0152,$0153,$0154,$0155,$0156,$0157
	Dc.w	$0158,$0159,$015a,$015b,$015c,$015d,$015e,$015f
	Dc.w	$0160,$0161,$0162,$0163,$0164,$0165,$0166,$0167	;
	Dc.w	$0168,$0169,$016a,$016b,$016c,$016d,$016e,$016f
	Dc.w	$0170,$0171,$0172,$0173,$0174,$0175,$0176,$0177
	Dc.w	$0178,$0179,$017a,$017b,$017c,$017d,$017e,$017f
	Dc.w	$0180,$0181,$0182,$0183,$0184,$0185,$0186,$0187	;
	Dc.w	$0188,$0189,$018a,$018b,$018c,$018d,$018e,$018f
	Dc.w	$0190,$0191,$0192,$0193,$0194,$0195,$0196,$0197
	Dc.w	$0198,$0199,$019a,$019b,$019c,$019d,$019e,$019f
	Dc.w	$01a0,$01a1,$01a2,$01a3,$01a4,$01a5,$01a6,$01a7	;
	Dc.w	$01a8,$01a9,$01aa,$01ab,$01ac,$01ad,$01ae,$01af
	Dc.w	$01b0,$01b1,$01b2,$01b3,$01b4,$01b5,$01b6,$01b7
	Dc.w	$01b8,$01b9,$01ba,$01bb,$01bc,$01bd,$01be,$01bf
	Dc.w	$01c0,$01c1,$01c2,$01c3,$01c4,$01c5,$01c6,$01c7	;
	Dc.w	$01c8,$01c9,$01ca,$01cb,$01cc,$01cd,$01ce,$01cf
	Dc.w	$01d0,$01d1,$01d2,$01d3,$01d4,$01d5,$01d6,$01d7
	Dc.w	$01d8,$01d9,$01da,$01db,$01dc,$01dd,$01de,$01df
	Dc.w	$01e0,$01e1,$01e2,$01e3,$01e4,$01e5,$01e6,$01e7	;
	Dc.w	$01e8,$01e9,$01ea,$01eb,$01ec,$01ed,$01ee,$01ef
	Dc.w	$01f0,$01f1,$01f2,$01f3,$01f4,$01f5,$01f6,$01f7
	dc.w	$01f8,$01f9,$01fa,$01fb,$01fc,$01fd,$01fe,$01ff
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4	;
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$17c0,$17c1,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$17c2,$17c3
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4	;
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4,$17c4
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
CharTabEnd:
CharPosTab2:	
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$1200,$1201,$1202,$1203,$1204,$1205,$1206,$1207	;
	Dc.w	$1208,$1209,$120a,$120b,$120c,$120d,$120e,$120f
	Dc.w	$1210,$1211,$1212,$1213,$1214,$1215,$1216,$1217
	Dc.w	$1218,$1219,$121a,$121b,$121c,$121d,$121e,$121f
	Dc.w	$1220,$1221,$1222,$1223,$1224,$1225,$1226,$1227	;
	Dc.w	$1228,$1229,$122a,$122b,$122c,$122d,$122e,$122f
	Dc.w	$1230,$1231,$1232,$1233,$1234,$1235,$1236,$1237
	Dc.w	$1238,$1239,$123a,$123b,$123c,$123d,$123e,$123f
	Dc.w	$1240,$1241,$1242,$1243,$1244,$1245,$1246,$1247	;
	Dc.w	$1248,$1249,$124a,$124b,$124c,$124d,$124e,$124f
	Dc.w	$1250,$1251,$1252,$1253,$1254,$1255,$1256,$1257
	Dc.w	$1258,$1259,$125a,$125b,$125c,$125d,$125e,$125f
	Dc.w	$1260,$1261,$1262,$1263,$1264,$1265,$1266,$1267	;
	Dc.w	$1268,$1269,$126a,$126b,$126c,$126d,$126e,$126f
	Dc.w	$1270,$1271,$1272,$1273,$1274,$1275,$1276,$1277
	Dc.w	$1278,$1279,$127a,$127b,$127c,$127d,$127e,$127f
	Dc.w	$1280,$1281,$1282,$1283,$1284,$1285,$1286,$1287	;
	Dc.w	$1288,$1289,$128a,$128b,$128c,$128d,$128e,$128f
	Dc.w	$1290,$1291,$1292,$1293,$1294,$1295,$1296,$1297
	Dc.w	$1298,$1299,$129a,$129b,$129c,$129d,$129e,$129f
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
ScollLine:	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000	;
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
	Dc.w	$0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000
CharTabEnd2:

BackGr2:	Dc.w	$1200,$1201,$1202,$1203,$1204,$1205,$1206,$1207	;
	Dc.w	$1208,$1209,$120a,$120b,$120c,$120d,$120e,$120f
	Dc.w	$1210,$1211,$1212,$1213,$1214,$1215,$1216,$1217
	Dc.w	$1218,$1219,$121a,$121b,$121c,$121d,$121e,$121f
	Dc.w	$1220,$1221,$1222,$1223,$1224,$1225,$1226,$1227	;
	Dc.w	$1228,$1229,$122a,$122b,$122c,$122d,$122e,$122f
	Dc.w	$1230,$1231,$1232,$1233,$1234,$1235,$1236,$1237
	Dc.w	$1238,$1239,$123a,$123b,$123c,$123d,$123e,$123f
	Dc.w	$1240,$1241,$1242,$1243,$1244,$1245,$1246,$1247	;
	Dc.w	$1248,$1249,$124a,$124b,$124c,$124d,$124e,$124f
	Dc.w	$1250,$1251,$1252,$1253,$1254,$1255,$1256,$1257
	Dc.w	$1258,$1259,$125a,$125b,$125c,$125d,$125e,$125f
	Dc.w	$1220,$1221,$1222,$1223,$1224,$1225,$1226,$1227	;
	Dc.w	$1228,$1229,$122a,$122b,$122c,$122d,$122e,$122f
	Dc.w	$1230,$1231,$1232,$1233,$1234,$1235,$1236,$1237
	Dc.w	$1238,$1239,$123a,$123b,$123c,$123d,$123e,$123f
	Dc.w	$1240,$1241,$1242,$1243,$1244,$1245,$1246,$1247	;
	Dc.w	$1248,$1249,$124a,$124b,$124c,$124d,$124e,$124f
	Dc.w	$1250,$1251,$1252,$1253,$1254,$1255,$1256,$1257
	Dc.w	$1258,$1259,$125a,$125b,$125c,$125d,$125e,$125f
	Dc.w	$1260,$1261,$1262,$1263,$1264,$1265,$1266,$1267	;
	Dc.w	$1268,$1269,$126a,$126b,$126c,$126d,$126e,$126f
	Dc.w	$1270,$1271,$1272,$1273,$1274,$1275,$1276,$1277
	Dc.w	$1278,$1279,$127a,$127b,$127c,$127d,$127e,$127f
BackGr2End:
;vectors
	ORG		$ffea	;VBI Vector 
	dcr.w	VBI
	ORG		$fffc	;Reset Vector
	dcr.w	$8000

	.pad
GirlGfx:	.bin		ExM:ExM-Intro.Snes/ExM-IntroGFX.Mod1
GirlCol:	.bin		ExM:ExM-Intro.Snes/ExM-IntroGirl.Col
palette	.bin		ExM:ExM-Intro.Snes/ExM-Logo.Col
palette2	.bin		ExM:ExM-Intro.Snes/ExM-IntroColFx.Col