;******************* name.asm *************************
;
			extend
;-----------------------------------------------------
			include		../join/rp5c77
			include		../join/buffer.def
			include		../join/rp5a22
			include     ../join/work.def
			include		../join/label.def
;-----------------------------------------------------
			glb		W_SL_init,W_SL_main,W_SL_nmi
;
			ext		Set_DMA
;---------------------------------------------------
;
;-----------------------------------------------------
msbdat			equ		000400h
oamdat			equ		000200h	
;-----------------------------------------------------
bank3      sect    rel         ;(PBR=03)
;==================================================
;**************************************************
;			INITIAL ROUTINE
;**************************************************
;==================================================
W_SL_init		equ		$
				phb
				phk
				plb
				mem8
				idx8
				sep		#00110000b
;
				mem16
				idx16
				rep		#00110000b
				plb
				RTL
;===================================================
;***************************************************
;			MAINE ROUNTINE
;***************************************************
;===================================================
W_SL_main		equ		$
				phb
				phk
				plb
				mem8
				idx8
				sep		#00110000b
;
				mem16
				idx16
				rep		#00110000b
				plb
				RTL
;==============================================
;**********************************************
;			NMI wari komi.			  
;**********************************************
;==============================================
W_SL_nmi		equ		$
				phb
				phk
				plb
;
				plb
				rtl
;=================================================
;*************************************************
;			INITIAL ROUTINE
;*************************************************
;=================================================
NAME_TENSOU		equ		$
				mem8
				idx8
;(SC_1)
				ldx		#10h
				jsr     Set_DMA
;- -- - - - - - - - - - - - - - - - - - - - - - - - - - 
;(SC_2)
				ldx		#12h
				jsr     Set_DMA
;- -- - - - - - - - - - - - - - - - - - - - - - - - - - 
;(SC1_CGX,OBJ_CGX)	
				ldx		#06h
				jsr		Set_DMA
;- -- - - - - - - - - - - - - - - - - - - - - - - - - - 
;(SC2_CGX)	
				ldx		#00h
				jsr		Set_DMA
;----------------------------------------------------------
;(CG_SET)
			 	idx16		        		;8bit mode.
			 	mem8
			 	rep		#00010000b
;
			 	lda		#00000000b			
				sta		Color_address
;
      		 	ldx		#0
loop_col	 	lda		>Name_col,x
			 	sta		Color_write
			 	inx
        	 	lda     >Name_col,x
			 	sta     Color_write
			 	inx
			 	cpx		#200h
			 	bne		loop_col
; 
			    idx8
			 	sep		#00010000b
				rts
;********************************************************
;				PPU&WORK INITIAL SET
;********************************************************
NAME_WOR.PPU	equ		$
;(PPU SET)
				lda		#00000001b
				sta		Screen_size		;BG mode1 set.
;
				lda		#00000011b
				sta		Through_screen		;TM
;
				lda		#00100000b
				sta		Screen_bank
;
				lda		#00100101b
				sta		Screen_bank+1
;
				lda		#00000100b
				sta		Screen_segment
				sta		Screen_segment+1
;
				stz		Scroll_0H
				stz		Scroll_0H+1
				stz		Scroll_0V
				stz		Scroll_0V+1
				stz		Scroll_1V
				stz		Scroll_1V+1
				stz		Scroll_2V
				stz		Scroll_2V+1
				stz		Scroll_3V
				stz		Scroll_3V+1
				rts
				END