*	スタークルーザーのセーブデータを「ファイルにする/戻す」ツール	v1.00
*
*				'93/3/21	written by Seisei Yamaguchi

	include	doscall.mac
	include	iocscall.mac
	include	naw.mac

_data_size	equ	$800+$1400*20


	PRINT	__mes__title
	m	<PRINT __mes__1or2?>,	<DOS _GETCHAR>
	M	<cmp.b #'1',d0>,	<bEQ IMAGE2FILE>
	M	<cmp.b #'2',d0>,	<bEQ FILE2IMAGE>
ABORT
	pea	__mes__abort
EXIT
	m	<DOS _PRINT>,	<add.l #4,sp>,	<PRINT __CR>
	DOS	_EXIT
*--------------------
IMAGE2FILE
	BSR	物理アクセス
	m	<BSR CREATE>,	<BSR FWRITE>,	<BSR FCLOSE>
	pea	__mes__complete
 BRA	EXIT
*-------------------
FILE2IMAGE
	IFn2 GE,<BSR FOPEN>,	<tst.l d0>,	<pea __mes__cannot_open>,	<BRA EXIT>
	m	<BSR FREAD>,	<BSR FCLOSE>
	move.l	#__mes__write,	__ptr__mes__read／write
	move.l	#物理WRITE,	__ptr__物理READ／WRITEルーチン
	BSR	物理アクセス
	pea	__mes__complete
 BRA	EXIT
*----
物理アクセス

	m	<move.l	__ptr__mes__read／write,-(sp)>,	<DOS _PRINT>,	<add.l #4,sp>
	m	<PRINT __mes__which_unit>,	<DOS _GETCHAR>
	M	<cmp.b #'0',d0>,	<bMI ABORT>
	M	<cmp.b #'3',d0>,	<bPL ABORT>

	m	<sub.b #'0',d0>,	<add.b d0,__pda_FD>,	<move __pda_FD,d1>

	m	<PRINT __mes__realy?>,	<DOS _GETCHAR>
	M	<cmp.b #'',d0>,	<bEQ ABORT>

	m	<move.l #$300_0001,d2>,	<move.l #$800,d3>
	lea	__main_buf,a1
	m	<move.l	__ptr__物理READ／WRITEルーチン,a2>,	<JSR (a2)>

	m	<moveq #1,d2>
	m	<move.l	#$1400,d3>
	@@:
		m	<PUSH	d2-d3>,	<JSR (a2)>,	<POP d2-d3>
	M	<add #1,d2>,	<cmp #21,d2>,	<bNE @B>

 RTS ()
*----
物理READ *( a1, d1-d3 )
	IFn EQ,	<cmp.l #$0300_0001,d2>,	<BSR FDSEEK_DATAHEAD>
	IOCS	_B_READ
	add.l	d3,a1
 RTS ( a1 )
*----
物理WRITE *( a1, d1-d3 )
	IFn EQ,	<cmp.l #$300_0001,d2>,	<BSR FDSEEK_DATAHEAD>
	IOCS	_B_WRITE
	add.l	d3,a1
 RTS ( a1 )
*---
FDSEEK_DATAHEAD
	m	<swap d2>,	<move #0,d2>,	<or.l #$300_0001,d2>
*	move.l	#$1400,d3
 RTS ( d2 )
*----
CREATE
	m	<move #%100010,-(sp) *advshr>,	<pea __filename>,	<DOS _CREATE>
	m	<addq.l	#6,sp>,	<move d0,__fn>
 RTS ()
*----
FWRITE
	m	<move.l	#_data_size,-(sp)>,	<pea __main_buf>,	<move __fn,-(sp)>
	m	<DOS _WRITE>,	<lea 10(sp),sp>
 RTS ()
*--------------------
FREAD
	m	<move.l	#_data_size,-(sp)>,	<pea __main_buf>,	<move __fn,-(sp)>
	m	<DOS _READ>,	<lea 10(sp),sp>
 RTS ()
*--------------------
FOPEN
	m	<move #2,-(sp)>,	<pea __filename>,	<DOS _OPEN>
	m	<addq.l	#6,sp>,	<move d0,__fn>
 RTS ()
*-------------------
FCLOSE
	m	<move __fn,-(sp)>,	<DOS _CLOSE>,	<addq.l	#2,sp>
 RTS ()
*====================

	data

__mes__title
	dc.b	13,10,'	スタークルーザーのセーブデータを「ファイルにする/戻す」ツール	v1.00',13,10
	dc.b	'				',39,'93/3/21	written by S.Yamaguchi',13,10,13,10,0
__mes__1or2?
	dc.b	'	セーブデータを	ファイルにする……１	データディスクに戻す……２	>',0
__mes__read
	dc.b	13,10,'	読み込みに',0
__mes__write
	dc.b	13,10,'	書き出しに',0
__mes__which_unit
	dc.b	'「FDDユニット」０〜３の内、どれ使うん？	>',0
__mes__realy?
	dc.b	13,10,13,10,'	こんでええな？あかんかったら[ESC]キー（キーボードの左端にある）で中止や。',0
__mes__abort
	dc.b	13,10,13,10,'		──────中断したで。',13,10,0
__mes__complete
	dc.b	13,10,13,10,'		よっしゃコンプリートや。',13,10,0
__mes__cannot_open
	dc.b	13,10,'		ファイルがオープンでけへんかったわ。',13,10,0
__CR	dc.b	13,10,0

__fn	dc	0
__filename	dc.b	'savedata',0

__pda_FD	dc	$9070

__ptr__mes__read／write		dc.l	__mes__read
__ptr__物理READ／WRITEルーチン	dc.l	物理READ


	bss
	even

__main_buf	ds.b	_data_size

	end