;*********************************************************************
;*								*
;*	------------------------				*
;*		SAMPLE1 					*
;*	------------------------				*
;*								*
;*	File 		: title.asm				*
;* 	Description	; title SEQ				*
;*	Date		: 1994.8.3				*
;*	Author		: H.Yajima				*
;*								*
;*********************************************************************
;
;
;
;
;---------------------------------------------------------------------
	INCPUB  title
;---------------------------------------------------------------------
;
;
;
;
;
;---------------------------------------------------------------------
	Mprogram
;*********************************************************************
;
;*********************************************************************

	ifeq	1
;------------------------------------------------------------------------
km_dmaXromVRAM	macro	[channel,sbase,dest,length]
MYNARG	=	NARG
	CHK_NARG	4
	km_memchecka8i16
	phb
;* data Bank 0 *
	lda	#0
	pha
	plb

	lda	#$80
	sta	vmainc
	lda	#(vmdatal&$ff)
	sta	ch{channel}addrb

	a16
	lda	#{dest}
	sta	vmaddl

	txa
	clc
	adc	#({sbase})&WM
	sta	ch{channel}addra1tl
	a8
	lda	#({sbase})>>16
	sta	ch{channel}atbank

	lda	#%00000001
	sta	ch{channel}params
	ldx	#{length}
	stx	ch{channel}dataddrl
	lda	#1<<{channel}
	sta	mdmaen

	plb
	endm
;------------------------------------------------------------------------

	endc





;*********************************************************************
;	title process
;*********************************************************************

title_l	rtl
	a8
	rtl
;;	jsl	ramprog_l
;;	blinkB



dec_chr_l	rtl
runmario_l	rtl


	ifeq	1

	Msetppucolor	0,3,3,0

	decrunch_palettes
	dmacgram	0,0,a0_pac,$200
;	jsr	MessagePalette

	decram	a0_ccr,0
	ldx	#0
;	km_dmaXromVRAM	0,($700000+dec_base),0,$100*$20


	Mset	212ch,01h
	MwaitNMI
	Mset	2100h,0fh

	stoploop


;;;	blinkB
	rtl



;*********************************************************************
;
;*********************************************************************

dec_chr_l	php
	a16
	lda	#dec_base
	sta.l	m_decaddr
	a8
	lda	#mdecrunch>>16
	ldx	#mdecrunch&WM
	jsl	runmario_l
	plp
	rtl

;-------------------------------------
; RUN MARIO ROUTINE ------------------
;-------------------------------------
	shorta
	longi
runmario_l
	sta	3034h		; mariocodebank
	stx	mr15	; GO!
.stillgoing2
	lda	mflags
	and	#$20
	bne	.stillgoing2	; wait for our program to stop

	rtl


	endc

;=====================================================================
;=====================================================================
; END END END END END END END END END END END END END END END END END 
;=====================================================================
;=====================================================================