extend
;
			include		label
			include		label_1
			include		doscall.h
			include     ../join/work.def	
;
			ext			file_number2,DOS_Entry
			glb			INIDOS_SET,SAVE_FILE2,LOAD_FILE2
			glb			POINT_SET8,FILE_SET2,DOS_INI,DOS_INI_1
;--------------------------------------------
dos_set		equ			90h
;
editer      sect    rel
			mem8
			idx8
;
;============================================
;********************************************
;			SFX_DOS INITIAL ROUTIME
;********************************************
;============================================
INIDOS_SET	equ		$
			cli
;
			lda		#06h				;IRQ INDEX.fe kart
			sta		<0d0h
;
			lda		#0				;drive select set.
			cop		14h
;
			lda		#02				;2DD set.
			cop		0fh
			rts
;-------------------------------------------
			prog					

DOS_INI		equ		$
			phb
			phk
			plb
;
;(NOTUSE "../JOIN"INITIAL)
;--------------------------------------------------
;			mem8
;			idx8
;			sep		#00110000b
;			phb
;			lda		#10h
;			pha
;			plb
;			jsl    >POINT_SET_L8	;(NOTUSE "../JOIN"INITIAL)
;			JSL		>DOS_Entry
;			cop		01h
;			plb
;------------------------------------------------
			mem16
			idx16
			rep		#00110000b
			plb
			rtl
;- - - - - - - - - - - - - - - - - - - 
DOS_INI_1	equ		$
			phb
			phk
			plb
;
;(NOTUSE "../JOIN"INITIAL)
;--------------------------------------------------
;			lda		old_game_index
;			cmp		#1ah
;			beq		Set_dos
;			lda		<dos_set			
;			cmp		#0001
;			bne		owari_DOS
;
;Set_dos		mem8
;			idx8
;			sep		#00110000b
;			ldx		#80h
;loop_198	lda		1d00h,x
;			sta		1f00h,x
;			inx
;			cpx		#0
;			bne		loop_198
;
;			tsc
;			xba
;			lda		#1fh
;			xba
;			tcs
;
;			stz		<dos_set
;owari_DOS	mem16
;			idx16
;			rep		#00110000b
;;--------------------------------------------------
			plb
			rtl


editer      sect    rel					
			mem8
			idx8


;*********************************************
;			POINTER PLACE CHANGE SET
;*********************************************
POINT_SET8	equ		$
			mem8
			idx8
			ldx		#80h
loop_0101	lda		1f00h,x
			sta		1d00h,x
			inx
			cpx		#0
			bne		loop_0101
;
			tsc
			xba
			lda		#1dh
			xba
			tcs
			rts
;
POINT_SET_L8 equ     $
			JSR		POINT_SET8
			rtl			
;============================================
;********************************************
;			SFX_DOS MAINE ROUTINE
;********************************************
;============================================
;-------------------------------------------
SAVE_FILE2	equ		$
			lda		#0
			sta		hdmsw
;
			lda		NMItimen
			sta		1e00h
;-------------------------------------------
									;(FILE NAME SET)
			lda		map_number
			asl		a
			tax
			mem16
			rep		#00100000b
			lda		file_number2,x
			sta		<file
			mem8
			sep		#00100000b
;
			lda		file_cnt		
			asl		a
			asl		a
			asl		a
			tay
			ldx		#0
loop_089	lda		(<file),y
			sta		1ee0h,x
			inx
			iny
			cpx		#08
			bne		loop_089
;----------------------------
									;(SPACE SET)
			lda		#20h			
loop_078	sta		1ee0h,x
			inx
			cpx		#0bh
			bne		loop_078
;-------------------------------------------
			ldx		#0
			lda		#0				;address set.
			sta		1ef0h,x
;
			inx
			lda		#1ch
			sta     1ef0h,x
;
			inx		
			lda		#0
			sta     1ef0h,x			
;--------------------------------------------
			ldx		#0				;count
			lda		#80h
			sta		1ef4h,x
;
			lda		#0
			inx
			sta     1ef4h,x
			inx		
			sta     1ef4h,x
;--------------------------------------------	
			cop		16h				;save call
			sta     error_code1
;
			mem8
			idx8
			sep		#30h

			lda		#81h
			sta		>4200h
			lda		#00111110b
			sta		hdmsw


			rts
;
;-------------------------------------------
LOAD_FILE2	equ		$
			lda		#0
			sta		hdmsw
;
			lda		NMItimen
			sta		1e00h
;-------------------------------------------
									;(FILE NAME SET)
			lda		map_number
			asl		a
			tax
			mem16
			rep		#00100000b
			lda		file_number2,x
			sta		<file
			mem8
			sep		#00100000b
;
			lda		file_cnt		
			asl		a
			asl		a
			asl		a
			tay
			ldx		#0
loop_069	lda		(<file),y
			sta		1ee0h,x
			inx
			iny
			cpx		#08
			bne		loop_069
;----------------------------
									;(SPACE SET)
			lda		#20h			
loop_068	sta		1ee0h,x
			inx
			cpx		#0bh
			bne		loop_068
;-------------------------------------------
			ldx		#0
			lda		#0				;address set.
			sta		1ef0h,x
;
			inx
			lda		#1ch
			sta     1ef0h,x
;
			inx		
			lda		#0
			sta     1ef0h,x			
;--------------------------------------------
			ldx		#0				;count
			lda		#80h
			sta		1ef4h,x
;
			lda		#0
			inx
			sta     1ef4h,x
			inx		
			sta     1ef4h,x
;--------------------------------------------	
			cop		15h				;load call
			sta		error_code1		
;
			lda		#81h
			sta		>4200h
			lda		#00111110b
			sta		hdmsw
;
			rts
;;===============================================
;***********************************************
;			SFX_DOS ROUTINE
;***********************************************
;===============================================

;**********************************************
;			FILE NAME SET COUNTER
;**********************************************			
FILE_SET2	equ		$
			lda		modeflg
			cmp		#01
			bne		owari_2512
;---------------------------------
			lda		trg_button
			cmp		#20h
			bne		owari_2512		
;----------------------------------
adc_file	lda		file_cnt
			inc		a
			cmp		#06
			beq		file_0
			sta		file_cnt
			jmp		disp_num
;
file_0		stz		file_cnt
			lda		#0
;--------------------------------
disp_num	ldx		#0d6h
			sta		oamdat,x
owari_2512	rts
;==========================================

			END