extend
;
			include		label
			include		label_3
			include		doscall.h
			include     ../join/work.def	
;
			ext			file_number1
			glb			FILE_SET1,SAVE_FILE1,LOAD_FILE1
;--------------------------------------------
editer      sect    rel
			mem8
			idx8
;
;============================================
;********************************************
;			SFX_DOS MAINE ROUTINE
;********************************************
;============================================
;-------------------------------------------
SAVE_FILE1	equ		$
			lda		#0
			sta		hdmsw
;
			lda		NMItimen
			sta		1e00h
;-------------------------------------------
									;(FILE NAME SET)
;
			lda		map_number
			asl		a
			tax
			mem16
			rep		#00100000b
			lda		file_number1,x
			sta		<file
			mem8
			sep		#00100000b

			lda		file_cnt		
			asl		a
			asl		a
			asl		a
			tay
			ldx		#0
loop_189	lda		(<file),y
			sta		1ee0h,x
			inx
			iny
			cpx		#08
			bne		loop_189
;----------------------------
									;(SPACE SET)
			lda		#20h			
loop_178	sta		1ee0h,x
			inx
			cpx		#0bh
			bne		loop_178
;-------------------------------------------
			ldx		#0
			lda		#0				;address set.
			sta		1ef0h,x
;
			inx
			lda		#08h
			sta     1ef0h,x
;
			inx		
			lda		#0
			sta     1ef0h,x			
;--------------------------------------------
			ldx		#0				;count
			lda		#0
			sta		1ef4h,x
;
			lda		#04
			inx
			sta     1ef4h,x
			lda		#0
			inx		
			sta     1ef4h,x
;--------------------------------------------	
			cop		16h				;save call
			sta     error_code2
;
			lda		#81h
			sta		>4200h
			lda		#00001110b
			sta		hdmsw
;
			rts
;

;===========================================================
LOAD_FILE1	equ		$
			lda		#0
			sta		hdmsw
;
			lda		NMItimen
			sta		1e00h
;-------------------------------------------
									;(FILE NAME SET)
			lda		map_number
			asl		a
			tax
			mem16
			rep		#00100000b
			lda		file_number1,x
			sta		<file
			mem8
			sep		#00100000b
;
			lda		file_cnt		
			asl		a
			asl		a
			asl		a
			tay
			ldx		#0
loop_289	lda		(<file),y
			sta		1ee0h,x
			inx
			iny
			cpx		#08
			bne		loop_289
;----------------------------
									;(SPACE SET)
			lda		#20h			
loop_278	sta		1ee0h,x
			inx
			cpx		#0bh
			bne		loop_278
;-------------------------------------------
			ldx		#0
			lda		#0				;address set.
			sta		1ef0h,x
;
			inx
			lda		#08
			sta     1ef0h,x
;
			inx		
			lda		#0
			sta     1ef0h,x			
;--------------------------------------------
			ldx		#0				;count
			lda		#0
			sta		1ef4h,x
;
			lda		#04
			inx
			sta     1ef4h,x
			lda		#0
			inx		
			sta     1ef4h,x
;--------------------------------------------	
			cop		15h				;load call
			sta		error_code2
;
			lda		#81h
			sta		>4200h
			lda		#00000110b
			sta		hdmsw
;
			rts
;;===============================================
;***********************************************
;			SFX_DOS ROUTINE
;***********************************************
;===============================================
;**********************************************
;			FILE NAME SET COUNTER
;**********************************************			
FILE_SET1	equ		$
			lda		modeflg
			cmp		#01
			bne		owari_2513
;---------------------------------
			lda		trg_button
			cmp		#20h
			bne		owari_2513		
;----------------------------------
			lda		file_cnt
			inc		a
			cmp		#06
			beq		file_01
			sta		file_cnt
			jmp		disp_num1
;
file_01		stz		file_cnt
			lda		#0
;--------------------------------
disp_num1	ldx		#0a2h
			sta		oamdat,x
owari_2513	rts
;


			END