*HISIO

	.INCLUDE	COMMON.INC

	.TEXT
	.EVEN

;USE	{
	m	<r_name	D3,~~x~>,		<r_name	D4,~~y~>
	m	<r_name	D1,~~Pcode~>,	<r_name	D2,~~pri~>
;}

	pea	mysp
	BSR	MAIN_INIT ()

	BSR	PAL_SET

	m	<lea 表示,a1>,	<moveq #1,d1>,	<IOCS _VDISPST>
	clr	__draw_ok
	MAIN_LOOP:
		eor	#1,__2_count

*		m	<moveq #6,d1>,	<IOCS _BITSNS>
*		IFn EQ,	<tst d0>,	<move #1,__change_crtmod>
		m	<moveq #1,d1>,	<IOCS _BITSNS>,	<btst #7,d0>,	<bNE EXIT_MAIN>
		IFn EQ,	<tst.b d0>,	<BSR SCROLL_SPEED>
		m	<moveq #0,d1>,	<IOCS _BITSNS>
		IFn EQ, <tst.b d0>, <BSR PAUSE>

		BSR	MO
		BSR	SCROLL
	~no_scroll__MAIN_LOOP:

		move	#1,__draw_ok
	@@:	M	<tst __draw_ok>,	<bNE @B>
	BRA	MAIN_LOOP
EXIT_MAIN
	m	<clr.l a1>,	<IOCS _VDISPST>
	m	<move #$10,d1>,	<IOCS _CRTMOD>
	DOS	_EXIT
*---------------
MO *()
;	use{
	r_nameS	A2,~~sp_buf~,	<lea __sp_buf_B>
;}
*	BSR	PAL_SET

	move.l	#0,d1
	move.l	#1,d2
	lea	__chr_data1+(100*128),a1
	LP 3,	d7,	<IOCS _SP_DEFCG>,	<add #1,d1>,	<add.l #128,a1>

	BSR	JOY_GET
	m	<move __Jx,~~x~D3>,	<move __Jy,~~y~D4>
	M	<btst #0,__joy_state>,	<bNE @F>	*上か
		sub	#2,~~y~D4
		IFn GE,	<cmp #_Jy_limit1,~~y~D4>,	<move #_Jy_limit1,~~y~D4>
	@@:
	M	<btst #1,__joy_state>,	<bNE @F>	*下か
		add	#2,~~y~D4
		IFn LE,	<cmp #_Jy_limit2,~~y~D4>,	<move #_Jy_limit2,~~y~D4>
	@@:
	M	<btst #2,__joy_state>,	<bNE @F>	*左か
		sub	#2,~~x~D3
		IFn GE,	<cmp #_Jx_limit1,~~x~D3>,	<move #_Jx_limit1,~~x~D3>
	@@:
	M	<btst #3,__joy_state>,	<bNE @F>	*右か
		add	#2,~~x~D3
		IFn LE,	<cmp #_Jx_limit2,~~x~D3>,	<move #_Jx_limit2,~~x~D3>
	@@:
	m	<move ~~x~D3,__Jx>,	<move ~~y~D4,__Jy>	*ワークには新しい仮想座標を戻す

	move	~~x~D3,d0
	sub	#_実x0,d0

	m	<move d0,d1>,	<add d0,d0>,	<add d1,d0>	*d0 = d0 * 3
	m	<move d0,d1>,	<lsl #5,d0>,	<add d1,d0>	*d0 = d0 * 32 + d0
	lsr	#8,d0	*d0 = d0 / 256		*=99/256

	move	#_実x0,d1
	sub	d0,d1
	move	d1,__GNDx

	sub	__GNDx_old,d1
	move	d1,__num__GNDx_scroll		*x方向にスクロールしたドット数-1か0か1が入る

	move	__GNDx,__GNDx_old


	m	<move #(4<<8)+0,~~Pcode~D1>,	<move #3,~~pri~D2>
	LP 1,	d7,	<BSR SP_SET>,	<add #16,~~x~D3>,	<add #1,~~Pcode~D1>
	m	<sub #32,~~x~D3>,	<add #16,~~y~D4>
	LP 1,	d7,	<BSR SP_SET>,	<add #16,~~x~D3>,	<add #1,~~Pcode~D1>

 RTS ()
*---------------
PAL_SET			* *( ~~so~D1 , ~~di~D2 )
*	use	d1, a2, a3

	lea	__d24_1+$8C60,a2	*pal_dataの先頭アドレスをにa2に
	lea	_SP_PAL+2*16,a3

	sSUPER
	LP 256-16-1,	d1,	<move (a2)+,(a3)+>
	sUSER
 RTS ()
*----------------
JOY_GET *()
	PUSH	d0-d1
	move.b	__joy_state,	__joy_old
	m	<clr d1>,	<IOCS _JOYGET>,	<move.b	d0,__joy_state>
	POP	d0-d1
 RTS ()
*---------------
SP_SET *( ~~sp_buf~A2 , d1-d4 )
	PUSH	d3-d4
	m	<sub #_実x0-16,~~x~D3>,	<add __x0,~~x~D3>
	m	<sub #_実y0-16,~~y~D4>,	<add __y0,~~y~D4>
	movem	d1-d4,-(~~sp_buf~A2)
	POP	d3-d4
 RTS ( ~~sp_buf~A2 )
*======================
表示 *()
	IFn EQ,	<tst __change_crtmod>,	<BSR CHANGE_CRTMOD>

	M	<tst __draw_ok>,	<bEQ EXIT__表示>
	clr	__draw_ok
;	use{
	r_nameS	A2,~~sp_buf~,	<lea __sp_buf_B>
	r_nameS	A3,~~sp_reg~,	<move.l #$eb0000>
;}
	move	#127,d0
	@@:
		move.l	-(~~sp_buf~A2),(~~sp_reg~A3)+
		move.l	-(~~sp_buf~A2),(~~sp_reg~A3)+
	dbF	d0,@B

EXIT__表示	RTE ()
__change_crtmod	dc	0
*-------------------
CHANGE_CRTMOD
	clr	__change_crtmod

	lea	__crtmod,a1
	IFn MI,	<move __crt_offs,d2>,	<add.l #2,a1>
	neg	__crt_offs
	m	<move (a1),d1>,	<IOCS _CRTMOD>

	m	<sub d2,_CRTC_GS0_SCx>,	<sub d2,_CRTC_GS1_SCx>
*	sub	d2,__GSxy
RTS ()
*--
__crtmod	dc	$13b,$14b
__crt_offs	dc	512-336/2
*------------------
PAUSE
@@	m	<moveq #0,d1>,	<IOCS _BITSNS>,	<tst.b d0>,	<bNE @B>
@@	m	<moveq #0,d1>,	<IOCS _BITSNS>,	<tst.b d0>,	<bEQ @B>
@@	m	<moveq #0,d1>,	<IOCS _BITSNS>,	<tst.b d0>,	<bNE @B>
 RTS ()
*--------------------
SCROLL_SPEED
	eor	#1,__scroll_speed_flag
 RTS ()
*======================
	.bss

__x0	.ds.w	1
__y0	.ds.w	1

__GNDxy:
__GNDx	.ds.w	1
__GNDy	.ds.w	1

__GNDx_old	.ds.w	1
__num__GNDx_scroll	.ds.w	1	*x方向にスクロールしたドット数-1か0か1が入る

__draw_ok	.ds.w	1
__joy_state	.ds.b	1
__joy_old	.ds.b	1
__2_count	.ds.w	1

__sp_buf_F
	.ds.w	4*128
__sp_buf_B

__no_縦scroll_flag	.ds.w	1
__on_the_GND_flag	.ds.w	1

	.even
__d24_1		.ds.b	$9c00	*967a0+ 9C00= A03A0
__地形table＆	.ds.b	$10000	;data25
__地形pcg_data	.ds.b	$80000	;data26
__chr_data1	.ds.b	131072	;data28
__chr_data2	.ds.b	131072	;data29

*	$70f0,	$1B70,	$800,	$200,	$200,	$3a0


	.data
*	.even
__Jx	dc	_実x0+104
__Jy	dc	_実y0+256



	.stack
	.even
	.comm	mystack,	1024	*スタック領域だよーん
mysp

			.end