*	スタークルーザーの中の最初に見付けた'USITEM.X'を'B:USITM.X'に書き換えるプログラム
*					1993/4/21	written by Seisei Yamaguchi


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

	BSR	READ
	M	<BSR SEARCH>,	<tst __found_flag>,	<bEQ CANNOT_FOUND>
	BSR	CHANGE
	BSR	WRITE
EXIT	DOS	_EXIT
CANNOT_FOUND	M	<PRINT __mes__cannot_found>,	<BRA EXIT>
*----------------
READ
	m	<lea __fn__cruiser_x,a1>,	<lea __main_buf,a2>,	<BSR FREAD>
	move.l	d0,__size__cruiser_x
 RTS ()
*----------------
SEARCH
	m	<lea __main_buf,a1>,	<move.l	__size__cruiser_x,d7>,	<add.l a1,d7>
	sub.l	__size__search_data−1,d7	*データサイズ-1分サーチ開始点を（以下略）
	m	<lea __search_data,a2>,	<move.b	(a2),d1>
	L1__SEARCH:
		M	<cmp.l a1,d7>,	<bMI L2__SEARCH>	*終わり
		M	<cmp.b (a1)+,d1>,	<bNE L1__SEARCH>
		add.l	#1,a2
		m	<move.l	a1,d0>,	<sub.l #1,d0>,	<move.l d0,__候補>
		M	<move.l __size__search_data−1,d6>,	<*bEQ L2__SEARCH>
		@@:
			IFn EQ,	<cmp.b (a1)+,(a2)+>,	<lea __search_data,a2>,	<BRA L1__SEARCH>
		M	<sub.l #1,d6>,	<bGT @B>
		move	#1,__found_flag
	L2__SEARCH:
 RTS ()
*------------------
CHANGE
	m	<lea __change_data,a1>,	<move.l	__候補,a2>
	move.l	__size__search_data−1,d7
	LOOP d7,	<move.b	(a1)+,(a2)+>
 RTS ()
*------------------
WRITE
	m	<lea __fn__cruiser_x,a1>,	<lea __main_buf,a2>
	m	<move.l	__size__cruiser_x,d1>,	<BSR FWRITE>
 RTS ()
*-------------------
	data
	even
__size__cruiser_x	dc.l	0
__fn__cruiser_x		dc.b	'CRUISER.X',0
__size__search_data−1	dc.l	__over__search_data-__search_data-1
__search_data		dc.b	'useitem.X'
__over__search_data
__change_data		dc.b	'B:USITM.X'
__mes__cannot_found	dc.b	'		書き換え箇所が見付かれへんかったで',13,10,0
__候補		dc.l	0
__found_flag	dc	0
	bss
	even

__main_buf	ds.b	100000