;
;***************************edit_2.asm******************************
;
				extend
;-------------------------------------------
				include	label
				include label_1
;-------------------------------------------
				ext		INI_SET1,BUFF_SET1,Z_SET11,DSFN_SET2
				ext		SC_SET1,OBJ_SET1,OAM_SET11,COWD_SET1
				ext		INIDOS_SET,DOS_Entry,POINT_SET8,SUM_CHECK2
;------------------------------------------------------------------
				ext		TRG_set1,POSI_MOVE11,POSDSP_SET11,YAKDAT_SET1
				ext		ERASE_SET11,MODECHG_SET1,YAKUSCT_SET1,HOUKOU_SET1
				ext		YAKIDSP_SET1,S.LMODE_SET1,SAVE_SET1,MENU_SET1
				ext		SAVE_CHK1,LOAD_SET1,CLEAR_SET1,FILE_SET2,DISK_LOAD
				ext		FADEIN_SET1,NOW_DSP1,fadein_set1,DISK_SAVE
				ext		KASOL_FLASH,CG1_SET2
;--------------------------------------------------------------------
				ext		NMI_SET1
;----------------------------------------------------------------------
				glb		ED_init_2,ED_main_2,ED_nmi_2
				glb		MOVE_SET1,FADE_IN1
;
				ext		fadein_set1
;----------------------------------------------------
editer		sect	rel

;======================================================
ED_init_2		equ		$
				phb
				phk
				plb
;-----------------------------------
				mem8
				idx8
				sep		#00110000b
;-----------------------------------
;;;;;			jsr		ini
				sei
				stz		!420bh
				stz		!420ch
;-----------------------------------
;(NOT USE "../JOIN")
;				cop		00h
;				jsr		POINT_SET8
;- - - - - - - - - - - - - - - - - - -
				jsr		INI_SET1
				jsr		BUFF_SET1
				jsr		Z_SET11
				jsr		SC_SET1
				jsr		OBJ_SET1
				jsr		OAM_SET11
				jsr		CG1_SET2
				jsr		COWD_SET1
				jsr		DSFN_SET2
;				jsr		SUM_CHECK2
;- - - - - - - - - - - - - - - - - - - -
;(NOT USE "../JOIN")
;				sei
;				stz		!420bh
;				stz		!420ch
;
;		    	jsl		>DOS_Entry
;				sei
;				stz		!420bh
;				stz		!420ch
;
;				jsr		INIDOS_SET
;-----------------------------------
				mem16
				idx16
				rep		#00110000b
				plb
				rtl
;======================================================
ED_main_2		equ		$
				phb
				phk
				plb
;-----------------------------------
				mem8
				idx8
				sep		#00110000b
;-----------------------------------
				lda		32h
				bne		end_main
				ldx		fade_mode
				jmp		(!fadein_set1,x)
;-----------------------------------
MOVE_SET1		equ		$
				jsr		TRG_set1
;
				jsr		POSI_MOVE11
				jsr		POSDSP_SET11
				jsr		YAKDAT_SET1
				jsr		ERASE_SET11
;
				jsr		MODECHG_SET1
				jsr		YAKUSCT_SET1
				jsr		HOUKOU_SET1
				jsr		YAKIDSP_SET1
;
				jsr		S.LMODE_SET1
				jsr		MENU_SET1
				jsr		SAVE_CHK1
				jsr		FILE_SET2
;
				jsr		SAVE_SET1
				jsr		LOAD_SET1
				jsr		DISK_LOAD
				jsr		DISK_SAVE
				jsr		CLEAR_SET1
				jsr		KASOL_FLASH
;

				jmp		end_main 
;-----------------------------------
FADE_IN1		jsr		FADEIN_SET1
;------------------------------------
end_main		mem16
				idx16
				rep		#00110000b
				plb
				rtl
;======================================================
ED_nmi_2		equ		$
				phb
				phk
				plb
;------------------------------------
				mem8
				idx8
				sep		#00110000b
				lda		32h
				bne		end_main1
;-------------------------------------
				JSR		NMI_SET1
;-------------------------------------
end_main1		mem16
				idx16
				rep		#00110000b
				plb
				rtl
				END