_GRAM		equ	$C00000
_GPAGE1		equ	$C80000
_TRAM0		equ	$E00000
_CRTC_GS0_SC	equ	$E80018
_CRTC_GS1_SC	equ	$E8001C
_G_PAL		equ	$E82000
_SP_PAL		equ	$E82200
_SP_PAL1	equ	$E82220
_SP_REG		equ	$EB0000
_BG0_SC		equ	$EB0800
_SP_PCG		equ	$EB8000
_BG1_PCG	equ	$EBE000


80000	.dc.l	$32000
G0004	.dc.l	$80236,$80000,$80000
	.dc.l	$80000,$80000,$80000,$80000
	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
80040	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
	.dc.l	$80000,$80000,$80000,$80000
80070	.dc.l	$80100,$80000,$80000
	.dc.l	$80236
80080	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
800E0	.dc.l	$80000,$80000,$80000,$80000,$80000,$80000,$80000,$80000
*------------------
80100
	move.b	#0,__垂直帰線期間毎にCLR
	PUSH	D0-D7/A0-A6
	m	<tst.b __V_DISP_FLAG>	<bNE EXIT__80100>
	m	<tst.b G80234>	<bNE EXIT__80100>	*1ループ分の処理が終わったか

	move.b	#-1,G80234
	m	<tst.b __ON_THE_GND_FLAG?>	<bNE @F>
		m	<move.b	g8675E,D0>	<addq.b	#1,D0>	<move.b	D0,g8675E>
		IFn NE	<and.b #%111,D0 *7>	<move.b	__JOY_STATE,__JOY0>
		move.b	__JOY_STATE,__JOY_OLD
		JSR	JOY
@@;
	m	<move.l	__GSxy,_CRTC_GS0_SC>	<move.l	__GSxy,_CRTC_GS1_SC>
	move.l	__BG_X,_BG0_SC

	m	<tst.b __J_DEADING>	<bNE @F>
	m	<eor.b #1,__2_COUNT>	<tst.b __2_COUNT>	<bNE @F>
		m	<move #3,$B0626>	<move #3,$B062E>
		m	<move #3,$B0636>	<move #3,$B063E>
		BRA	END_影__80100

@@:		m	<move #0,$B0626>	<move #0,$B062E>
		m	<move #0,$B0636>	<move #0,$B063E>
END_影__80100
	m	<lea $B0600,A0>	<lea _SP_REG,A1>
	LP $F,D0	<REPT 16>	<move.l	(A0)+,(A1)+>	ENDM

	addq.b	#1,__256_COUNT
	IFn EQ	<tst.b __復活時の手加減期間COUNTER>	<subq.b	#1,__復活時の手加減期間COUNTER>
	move.b	#-1,__V_DISP_FLAG
	move.b	#0,G80234
EXIT__80100	m	<POP D0-D7/A0-A6> RTE
*-----
G80234	.dc.b	0,0
*--------------------
G0236				*ゲームルーチン？
	lea	$32000,A7
	JSR	INIT	*only?
	m	<lea $B1000,A6>	<BSR 生存登録抹消>
	move	#0,__影LOCAL
	move.l	#5,__866AE
	move	#$118,__Fy_J	*\280
	BSR	J_PUT2
	BSR	幕閉め
	m	<BSR TEXT_ON>	<BSR SP_ON>	<BSR GS01_ON>
	BSR	幕開け
	move.b	#-1,__ON_THE_GND_FLAG?
	move.b	#-1,__866B2_FLG
	m	<move.l	#$6408,A0 *65DC>	<move.l	(A0),A0>
	m	<move.b	#1,D0>	<move.b	D0,__BGM_CODE>	<JSR (A0)>	*1面前置きBGM?
	move	#0,__1面始めのFADE_OUT_COUNTER

LOOPの先頭?		*802AA
	lea	$32000,A7
@@	M	<tst.b __V_DISP_FLAG>	<bEQ @B>
	m	<BSR 80D20>	<move D7,__何かの生存数?>
	M	<tst.b __NO_縦SCROLL_FLAG>	<bNE @F>
		BSR	縦SCROLL
		BSR	地形その他	*ここだけ?
@@;
	JSR	BOMBER廻り		*   〃
	BSR	MV_JIKI			*   〃
	JSR	MV_色々			*   〃
	BSR	HANTEI?			*   〃
	BSR	MK?＆PUT_TEKI		*   〃
	JSR	SP座標整え
	JSR	GAME_OVER		*ここだけ?
	M	<cmp.b #1,__BGM_CODE>	<bNE @F>
		addq.w	#1,__1面始めのFADE_OUT_COUNTER
		m	<cmp #$168,__1面始めのFADE_OUT_COUNTER *\360>	<bEQ.s 80322>
		m	<cmp #$294,__1面始めのFADE_OUT_COUNTER *\660>	<bEQ.s 80336>

@@;
8031A
	clr.b	__V_DISP_FLAG
	BRA	LOOPの先頭?


80322
	m	<move.l	#$6410,A0>	<move.l	(A0),A0 *67DE>	<move.b	#0,D0>	<move #$30,D1>
	JSR	(A0)	*FADE_OUT?
	BRA.s	8031A

80336
	m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>
	m	<move.b	#2,D0>	<move.b	D0,__BGM_CODE>	<JSR (A0)>	*1面BGM
	BRA.s	8031A
*--------------
縦SCROLL	*only( MAIN 〜 )	8034C
	m	<subq.b	#1,__1or2>	<bNE @F>
		move.b	__常に2,__1or2	*常に1〜2
		BSR	DRAW_GR	*ここだけ?
		BSR	SCROLLに合わせて敵のy座標を＋1__その1	*初期化を除けばonly
		subq.w	#1,__GS_y
@@;
 RTS
*---------
地形その他	*only( MAIN 〜 )	8036E
	move	D0,-(A7)
	m	<subq.b	#1,__1or2__その2>	<bNE EXIT__地形その他>
		IFn2 NE	<move.b	#1,D0>	<btst #1,__bg1関係のstat_1>	<move.b	#2,D0>
		move.b	D0,__1or2__その2
		BSR	DRAW_BG	*only?
		m	<btst #2,__bg1関係のstat_1>	<bNE @F>
			subq.w	#1,__BG_Y
			BSR	SCROLLに合わせて敵のy座標を＋1__その2
			BRA	EXIT__地形その他

@@:		addq.w	#1,__BG_Y
		BSR	敵のy座標を−1	*only?
EXIT__地形その他	m	<move (A7)+,D0>	RTS
*-------------------
MV_JIKI	*only( MAIN 〜 )	803B8
	M	<tst.b __J_DEAD_FLAG>	<bNE EXIT__MV_JIKI>
	M	<tst.b __866B2_FLG>	<bNE.s ~TAKEOFF__MV_JIKI>
	M	<tst.b __NO_縦SCROLL_FLAG>	<bNE.s 803F8>

	M	<tst.b __ON_THE_GND_FLAG?>	<bNE @F>
		BRA.s	8041E

@@:	BSR	LANDING__自機を真ん中辺りに	*only?
	M	<tst __LANDING開始まで2秒待つCOUNTER>	<bNE @F>
		M	<BSR LANDING_縮小 *only?>	<BRA EXIT__MV_JIKI>

@@:	M	<subq.w	#1,__LANDING開始まで2秒待つCOUNTER>	<BRA.s 80436>

803F8
	m	<move.l	#$640C,A0>	<move.l	(A0),A0 *6752>	<move.b	#0,D0>
	JSR	(A0)	*OPM_STOP?
	BSR	残りBOMBER_BONUS	*only?
	move.b	#-1,__866B2_FLG
	BRA	EXIT__MV_JIKI

~TAKEOFF__MV_JIKI	m	<BSR TAKEOFF *only?>	<BRA EXIT__MV_JIKI>
*~---
8041E
	m	<MOVE #0,D1>	<IOCS _BITSNS>	<btst #1,D0>	<bEQ @F>
		BSR	PAUSE	*ESC
@@:	move.b	__JOY_STATE,D0
80436
	m	<btst #0,D0>	<bNE @F>	*上
	m	<cmp #$10,$B0602>	<bEQ @F>
		m <subq	#2,$B0602> <subq #2,$B060A> <subq #2,$B0612> <subq #2,$B061A>	;.w 自機
		m <subq	#2,$B0622> <subq #2,$B062A> <subq #2,$B0632> <subq #2,$B063A>	;   影
@@;
	m	<btst #1,D0>	<bNE @F>	*下
	m	<cmp #$F0,$B0602>	<bEQ @F>
		m <addq	#2,$B0602> <addq #2,$B060A> <addq #2,$B0612> <addq #2,$B061A>	;.w
		m <addq #2,$B0622> <addq #2,$B062A> <addq #2,$B0632> <addq #2,$B063A>	;
@@;
	m	<btst #2,D0>	<bNE ~右>	*左

	m	<move.b	g8675E,D1>	<and.b #7,D1 *%111>	<bNE @F>
	m	<btst #2,__JOY0>	<bNE @F>
		lea	$807EC,A0	*1?
		m	<move.l	g86698,D1>	<lsl.b #2,D1>	<add.l D1,A0>
		move.l	(A0),g86698
		m	<move $B0600,D1>	<move $B0602,D2>
		m	<sub #$10,D1>		<sub #$10,D2>
		m	<move D1,__Fx_J>	<move D2,__Fy_J>
		m	<lea $B1000,A6>	<BSR 生存登録抹消>
		BSR	J_PUT1
@@;
	m	<cmp #$18,$B0600>	<bEQ ~右>

	m	<cmp #$CE,$B0600>	<bCC @F>
	m	<cmp #$FFF8,__BG_X>	<bEQ @F>
		m	<subq.w	#1,__GSxy>	<subq.w	#1,__BG_X>
		m	<move #1,D1>	<BSR 地面の左右移動に伴う敵の座標調整>
		addq.w	#1,__GNDx
@@;
	m <subq #2,$B0600>	<subq #2,$B0608>	<subq #2,$B0610>	<subq #2,$B0618>
	m <subq	#2,$B0620>	<subq #2,$B0628>	<subq #2,$B0630>	<subq #2,$B0638>
	*	.w
~右
	m	<btst #3,D0>	<bNE ~NOT右_AND_NOT左>	*右

	m	<move.b	g8675E,D1>	<and.b #7,D1 *%111>	<bNE @F>
	m	<btst #3,__JOY0>	<bNE @F>
		lea	$80800,A0
		m	<move.l	g86698,D1>	<lsl.b #2,D1>	<add.l D1,A0>
		move.l	(A0),g86698
		m	<move $B0600,D1>	<move $B0602,D2>
		m	<sub #$10,D1>		<sub #$10,D2>
		m	<move D1,__Fx_J>	<move D2,__Fy_J>
		m	<lea $B1000,A6>	<BSR 生存登録抹消>
		BSR	J_PUT1
@@;
	m	<cmp #$E8,$B0600 *\232>	<bEQ ~NOT右_AND_NOT左>

	m	<cmp #$30,$B0600>	<bCS @F>
	m	<cmp #$48,__BG_X>	<bEQ @F>
		m	<addq.w	#1,__GSxy>	<addq.w	#1,__BG_X>
		m	<move #-1,D1>	<BSR 地面の左右移動に伴う敵の座標調整>
		subq.w	#1,__GNDx
@@;
	m <addq #2,$B0600>	<addq #2,$B0608>	<addq #2,$B0610>	<addq #2,$B0618>
	m <addq	#2,$B0620>	<addq #2,$B0628>	<addq #2,$B0630>	<addq #2,$B0638>
	*	.w
~NOT右_AND_NOT左
	m	<tst.b $8669B>							<bEQ @F>
	m	<move.b	D0,D1>	<neg.b D1>	<and.b #$C,D1>			<bNE @F>
	m	<move.b	g8675E,D1>	<and.b #7,D1 *%111>			<bNE @F>
	m	<move.b	__JOY0,D1>	<neg.b D1>	<and.b #$C,D1 *%1100>	<bNE @F>
		lea	$80814,A0
		m	<move.l	g86698,D1>	<lsl.b #2,D1>	<add.l D1,A0>
		move.l	(A0),g86698
		m	<move $B0600,D1>	<move $B0602,D2>
		m	<sub #$10,D1>		<sub #$10,D2>
		m	<move D1,__Fx_J>	<move D2,__Fy_J>
		m	<lea $B1000,A6>	<BSR 生存登録抹消>
		BSR	J_PUT1
@@;
	m	<btst #6,D0>	<bNE @F>	*B(shot)
	m	<btst #6,__JOY_OLD>	<bEQ @F>
	m	<move.b	$866A0,D1>	<and.b $866A1,D1>	<and.b $866A2,D1>	<bNE @F>
		m	<moveq #0,D1>	<move.b	__自弾P段階?,D1>	<lsl.b #2,D1>
		m	<lea __自弾x座標他TBL,A5>	<add.l D1,A5>	<move.l	(A5),A5>
		BSR	PUT?_自弾
		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#3,D0>
			JSR	(A0)	*ショット音?
		POP	D0/A0

@@:						*A(bomber)
	m	<btst #5,D0>	<bNE EXIT__MV_JIKI>
	m	<btst #5,__JOY_OLD>	<bEQ EXIT__MV_JIKI>
	m	<tst.b __BOMBER使用中FLAG>	<bNE EXIT__MV_JIKI>
	m	<tst.b __NUM_BOMBER>	<bEQ EXIT__MV_JIKI>

	move.b	#-1,__BOMBER使用中FLAG
	move.b	#0,__BOMBER爆発中FLAG
	m	<move.b	__NUM_BOMBER,D7>	<BSR SUB_BOMBER>	<move.b	D7,__NUM_BOMBER>
	PUSH	D0
	moveq	#3,D0	*爆発前のBOMBER	1
	m	<move $B0600,D1>	<move $B0602,D2>
	add	#$10,D2
	m	<BSR 爆発前のBOMBER_DPSPSET>	<bEQ @F>
		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#9,D0>
			JSR	(A0)	*BOMBER発射音?
		POP	D0/A0
		move.l	#$20000000,$E(A6)
		POP	D0
		BRA	EXIT__MV_JIKI

@@:
	POP	D0
	JSR	890A4
	PUSH	D0
		moveq	#3,D0	*爆発前のBOMBER	1
		m	<move $B0600,D1>	<move $B0602,D2>
		add	#$10,D2
		M	<BSR 爆発前のBOMBER_DPSPSET>	<bNE @F>
			move.b	#0,__BOMBER使用中FLAG
			movem.l	(A7)+,D0
			BRA	EXIT__MV_JIKI

@@:		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#9,D0>
			JSR	(A0)	*BOMBER爆発音?
		POP	D0/A0
		move.l	#$20000000,$E(A6)
	POP	D0
EXIT__MV_JIKI	RTS
807EC	.dc.l	1,2,2,0, 3,3,0,1,	4,4,0,0, 1,0,3
*---------------------
HANTEI?	*only( MAIN 〜 )	80828
	m	<tst.b __ON_THE_GND_FLAG?>	<bNE 80848>
	m	<EOR.b #1,__2_COUNT__HANTEI?>	<bEQ @F>
		JSR	判定_E?
		BRA	80848

@@:		JSR	判定_J
80848
 RTS
*----------------
MK_敵弾 *( D0	)	8084A
	PUSH	D0-D7/A0-A6
	m	<tst.b __J_DEAD_FLAG>	<bNE.s 808C0>
	m	<lea __爆発とか色々,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ.s 808C0>

	move	#$9800,(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>

	JSR	8440A	*only?
	M	<cmp #-1,D0>	<bEQ.s 808C8>
	M	<move D0,D2>	<or D1,D2>	<bEQ.s 808C8>

	m	<move D0,$E(A6)>	<move D1,$10(A6)>
	m	<move #0,$E6(A6)>	<move #0,$E8(A6)>
	m	<move #0,$EA(A6)>	<move #0,$EC(A6)>
	moveq	#$FF,D0
	POP	D0-D7/A0-A6
 RTS
808C0	moveq	#0,D0
	POP	D0-D7/A0-A6
 RTS
808C8	BSR	生存登録抹消
	moveq	#0,D0
	POP	D0-D7/A0-A6
 RTS
*--------------------
PAUSE
@@	M	<MOVE #0,D1>	<IOCS _BITSNS>	<btst #1,D0>	<bNE @B>
@@	M	<MOVE #0,D1>	<IOCS _BITSNS>	<btst #1,D0>	<bEQ @B>
@@	M	<MOVE #0,D1>	<IOCS _BITSNS>	<btst #1,D0>	<bNE @B>
 RTS
*---------------------
BOMBER_DPSPSET	*MV_BOMBERからのみ	80900	p
	PUSH	A0
	m	<lea __爆発とか色々,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ.s 8096C>

	move	#$8800,(A6)
	move.l	#0,$E(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<lea $82416,A4>	<lsl.b #2,D3>	<add.l D3,A4>
	move.l	(A4),A4		*何かのデータエリア
	move	#$B,D4
80940		movem.w	D4,-(A7)
		move	#$B,D3
@@			movem.w	D3,-(A7)
			m	<tst.b (A4)+>	<bEQ.s 80972>

80950
			add	#$10,D1
			movem.w	(A7)+,D3
		dbF	D3,@B
		sub	#$C0,D1
		add	#$10,D2
		movem.w	(A7)+,D4
	dbF	D4,80940
8096C
	POP	A0
 RTS
80972	m	<move #3,D6>	<moveq #$F8,D3>	<moveq #8,D4>	<BSR SP_SET>
	PUSH	A6
		move.l	$8BE64,A6
		move	$FFFA(A2),(A6)+
		move	$FFFC(A2),(A6)+
		move.l	A6,$8BE64
	POP	A6
	m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #$F8,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #8,D3>	<moveq #$18,D4>	<BSR SP_SET>
	BRA.s	80950
*----------------------
爆発前のBOMBER_DPSPSET	*809B4
	PUSH	A0
	m	<lea __爆発とか色々,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ @F>
		move	#$8800,(A6)
		move.l	#0,$E(A6)
		m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
		m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
		m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
@@;
	POP	A0
 RTS
*-------------------
PUT?_自弾	*809F6
	PUSH	D0
	move	__何かの生存数?,D7
	m	<moveq #0,D6>	<move.b	__自弾P段階?,D6>	<addq.w	#1,D6>
	m	<cmp D6,D7>	<bCC.s 80A2E>

	JSR	890A4

	move	__何かの生存数?,D7
	m	<moveq #0,D6>	<move.b	__自弾P段階?,D6>	<addq.w	#1,D6>
	m	<cmp D6,D7>	<bCC.s 80A2E>

	POP	D0
 RTS
80A2E	moveq	#0,D7
	lea	$866A0,A0
@@		m	<tst.b (A0)>	<bEQ @F>
		m	<addq.b	#1,D7>	<addq.l	#1,A0>
	BRA	@B

@@:	move.b	#-1,(A0)
	m	<lea $866A4,A0>	<add.l D7,A0>	<move.b	__自弾P段階?,(A0)>	<addq.b	#1,(A0)>
	move.b	D7,D3
	m	<moveq #0,D7>	<move.b	__自弾P段階?,D7>
	LOOP D7	<BSR.s 自弾_DPSPSET (A5,A6)>
	POP	D0
 RTS
*--
自弾_DPSPSET *( A5, A6 )	*only( PUT?_自弾 〜 )	80A6A
	movem.w	D3,-(A7)
	move	(A5)+,D1
	m	<add $B0600,D1>		<subq.w	#8,D1>
	m	<move $B0602,D2>	<add #$10,D2>
	m	<lea __爆発とか色々,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__inc>	<bEQ @F>
		move	#$9000,(A6)
		move.l	(A5)+,$E(A6)
		move.b	D3,$F(A6)
		m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
		m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
		m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
@@;
	movem.w	(A7)+,D3
 RTS ( A5 )
*-----------------------
生存登録抹消	*( A6 ) 	80AC2
	PUSH	D0/A1/A6
	M	<cmp #-1,(A6)>	<bEQ EXIT__生存登録抹消>

	move	#$FFFF,(A6)
	move.l	#0,$A(A6)

	move.l	#$B0500,D0	*sp_paletの奴
		 move.b	2(A6),D0
	m	<lsl.b #2,D0>	<addq.b	#2,D0>	<move.l	D0,A1>	<subq.w	#1,(A1)>

	M	<move.b	3(A6),D0>	<bMI @F>
	m	<lsl.b #2,D0>	<addq.b	#2,D0>	<move.l	D0,A1>	<subq.w	#1,(A1)>

	M	<move.b	4(A6),D0>	<bMI @F>
	m	<lsl.b #2,D0>	<addq.b	#2,D0>	<move.l	D0,A1>	<subq.w	#1,(A1)>

	M	<move.b	5(A6),D0>	<bMI @F>
	m	<lsl.b #2,D0>	<addq.b	#2,D0>	<move.l	D0,A1>	<subq.w	#1,(A1)>

@@;
	add.l	#$12,A6
@@		lea	$B0A02,A1
		M	<moveq #0,D0>	<move.b	(A6)+,D0>	<bMI EXIT__生存登録抹消>
		m	<lsl #2,D0>	<add D0,A1>	<subq.w	#1,(A1)>
		m	<move.l	#$B0C00,D0>	<move.b	$6D(A6),D0>	<move.l	D0,A1>
		move.b	#0,(A1)
		addq.w	#1,__何かの生存数?
		m	<and.l #$FF,D0>	<lsl #3,D0>	<add.l #$B0606,D0>	<move.l	D0,A1>
		move	#0,(A1)
	BRA	@B
EXIT__生存登録抹消	m	<POP D0/A1/A6>	RTS
*------------------
SPDEF＆SETPAL__inc *( D0 , A0	)	80B60
	PUSH	D0-D2/D4-D7/A0-A1/A5
	m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),A0>
	move	__何かの生存数?,D7
	m	<move #0,D6>	<move.b	(A0)+,D6>	<cmp D6,D7>	<bCS 80C2E>

	sub	D6,__何かの生存数?
	BSR	B1000〜100毎にFFFFかCHECK
	move	#0,(A6)
	m	<move.b	#-1,3(A6)>	<move.b	#-1,4(A6)>	<move.b	#-1,5(A6)>

	m	<moveq	#0,D2>	<move.b	(A0),D2>
	m	<BSR SET__SP_PAL>	<move.b	D5,2(A6)>

	m	<move.b	1(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,3(A6)>

	m	<move.b	2(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,4(A6)>

	m	<move.b	3(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,5(A6)>

@@;
	addq.l	#5,A0
	m	<moveq #0,D7>	<move.b	$FFFA(A0),D7>	<subq.b	#1,D7>
	m	<move.l	A6,A1>	<add.l #$12,A1>	<lea $B0C00,A5>	<move.b	#-1,D6>
G80BFA		move	(A0)+,D1
		JSR	SPDEF_その2
		move.b	D4,(A1)+
@@			addq.b	#1,D6
			m	<tst.b (A5)+>	<bEQ @F>

		BRA	@B
@@;
		move.b	#-1,$FFFF(A5)
		move.b	D6,$6D(A1)
	dbF	D7,G80BFA
	move.b	#-1,(A1)
	move.b	#-1,$6E(A1)
	move.b	#1,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
80C2E	move.b	#0,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
*--------------------
SPDEF＆SETPAL__dec *( D0, A0	)	80C38	p
	PUSH	D0-D2/D4-D7/A0-A1/A5
	m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),A0>
	move	__何かの生存数?,D7
	m	<move #0,D6>	<move.b	(A0)+,D6>	<cmp D6,D7>	<bCS 80D00>

	sub	D6,__何かの生存数?
	BSR	B1000〜100毎にFFFFかCHECK
	move	#0,(A6)
	m	<move.b	#-1,3(A6)>	<move.b	#-1,4(A6)>	<move.b	#-1,5(A6)>

	m	<moveq #0,D2>	<move.b	(A0),D2>
	m	<BSR SET__SP_PAL>	<move.b	D5,2(A6)>

	m	<move.b	1(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,3(A6)>

	m	<move.b	2(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,4(A6)>

	m	<move.b	3(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<BSR SET__SP_PAL>	<move.b	D5,5(A6)>

@@;
	addq.l	#5,A0
	m	<moveq #0,D7>	<move.b	$FFFA(A0),D7>	<subq.b	#1,D7>
	m	<move.l	A6,A1>	<add.l #$12,A1>	<lea $B0C80,A5>	<move.b	#$80,D6>
G80CD2		move	(A0)+,D1
		BSR.s	SPDEF_その2
		move.b	D4,(A1)+
@@			subq.b	#1,D6
			m	<tst.b -(A5)>	<bEQ @F>
		BRA	@B

@@:		move.b	#-1,(A5)
		move.b	D6,$6D(A1)
	dbF	D7,G80CD2
	move.b	#-1,(A1)
	move.b	#-1,$6E(A1)
	move.b	#1,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
80D00	move.b	#0,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
*------------------
B1000〜100毎にFFFFかCHECK	*80D0A
	lea	$B1000,A6
@@	M	<cmp #$FFFF,(A6)>	<bEQ @F>	<add.l #$100,A6>	<BRA @B>
@@;
 RTS
*--------------------
80D20 *()
	m	<lea $B0C00,A6>	<move #0,D7>
	LP $7F,D6	<IFn NE	<tst.b (A6)+> <addq.w #1,D7>>
 RTS ( D7=(__何かの生存数?.w) )
*-----------------
SPDEF_その2 *( D1	)	only( ( SPDEF＆SETPAL__inc) & (同dec) 〜 )	80D3A
	PUSH	D0-D1/D3/A0-A1
	and.l	#$FFFF,D1
	m	<lea $B0A00,A0>	<moveq #0,D3>	<move #$7F,D0>
@@		m	<cmp (A0),D1>	<bEQ 80DEE>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0A02,A0>	<moveq #0,D3>	<move #$7F,D0>
@@		m	<cmp #-1,$FFFE(A0)>	<bEQ G80D8C>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0A02,A0>	<moveq #0,D3>
@@		m	<tst (A0)>		<bEQ G80D8C>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	BRA	@B

G80D8C
	move	D1,$FFFE(A0)
	addq.w	#1,(A0)

	lea	$EBA000,A0	*SP64_PCG
	move	D3,D4
	m	<lsl #7,D3>	<add.l D3,A0>
	m	<lea $C0000,A1>	<lsl.l #7,D1>	<add.l D1,A1>
	m	<REPT 31>	<move.l	(A1)+,(A0)+>	ENDM,	<move.l	(A1),(A0)>	*計32
	POP	D0-D1/D3/A0-A1
 RTS ( D4 )
80DEE	addq.w	#1,2(A0)
	move	D3,D4
	POP	D0-D1/D3/A0-A1
 RTS ( D4 )
*----------------------
SET__SP_PAL *( D2	)	80DFA
	PUSH	D0/D2-D4/A0-A1
	m	<and.l #$FFFF,D2>	<add #$100,D2>
	m	<lea $B0500,A0>	<moveq #0,D3>	<move #$E,D0>
@@		M	<cmp (A0),D2>	<bEQ 80E6E>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0502,A0>	<moveq #0,D3>	<move #$E,D0>
@@		m	<tst (A0)>	<bEQ @F>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

@@:	move	D2,$FFFE(A0)
	addq.w	#1,(A0)

	m	<lea _SP_PAL1,A0>	<move D3,D5>	<lsl #5,D3>	<add.l D3,A0>
	m	<lea $9F400,A1>		<sub #$100,D2>	<lsl.l #5,D2>	<add.l D2,A1>
	m	<REPT 7>	<move.l	(A1)+,(A0)+>	ENDM,	<move.l	(A1),(A0)>	*計8
	POP	D0/D2-D4/A0-A1
 RTS
80E6E	addq.w	#1,2(A0)
	move	D3,D5
	POP	D0/D2-D4/A0-A1
 RTS
*-------------------
MK?_TEKI *( A0	)	初期化を除けばMAIN 〜 MK?＆PUT_TEKIからのみ	80E7A	p
	PUSH	A0
	m	<move.l	(A0),D0>	<move.l	D0,D1>
	m	<move #0,D1>	<swap D1>	<and #$3F,D1>	<lsl.b #2,D1>
	m	<lea $80EA0,A1>	<add.l D1,A1>	<move.l	(A1),A1>	<JSR (A1)>
	POP	A0
 RTS
80EA0	.dc.l	$80F0C,$80F1C,$80F2C,$80F3C,	$80F4C,$80F5C,$80F70,$80F72
	.dc.l	$80F94,$80FA4,$80FBA,$80FDE,	$80FFA,$8102E,$81054,$81088
	.dc.l	$810AE,$810D4,$810FA,$81120,	$8119A,$811AA,$811BA,$811C8
	.dc.l	$811DA,$811F0,$81204
*----
80F0C	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_1面ボス *only?>		RTS
*----
80F1C	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_レールボス2? *only?>	RTS
*----
80F2C	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_レールボス1? *only?>	RTS
*----
80F3C	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_2面中ボス1? *only?>	RTS
*----
80F4C	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_2面中ボス2? *only?>	RTS
*----
80F5C
	BSR	Bマークを持たせるかどうか
	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_TANK_BASE＆TOP *only?>	RTS
80F70:	 RTS
*----
80F72
	m	<move $B0600,D1>	<sub #$10,D1>
	move	#$19F,D2	*\415
	moveq	#8,D0
	lea	$0,A1
	m	<add __GNDx,D1>	<BSR MK_戦闘機3	*only?>
 RTS
*----
80F94	m	<BSR EN_y座標SET?>	<add __GNDx,D1>	<BSR MK_戦闘機2 *only?>	RTS
*----
80FA4
	BSR	EN_y座標SET?
	JSR	8B1E4 → D0	*only?	D0は(7〜9).w
	m	<add __GNDx,D1>	<BSR MK_戦闘機1>
 RTS
*----
80FBA
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>	<addq.w	#8,D1>
	IFn EQ	<btst #1,__bg1関係のstat_1>	<sub #$7E,D2 *\126>
	m	<add __GNDx,D1>	<BSR MK_小砲台?>
 RTS
*----
80FDE
	BSR	ITEM戦闘機の前置き	*only?
	m	<moveq #0,D0>	<move.b	__ITEM戦闘機の持ち物,D0>	<lsl.b #4,D0>
	m	<subq.w	#8,D1>	<add __GNDx,D1>	<BSR MK_ITEM戦闘機 *only?>
 RTS
*----
80FFA
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	IFn EQ	<btst #2,__bg1関係のstat_1>	<add #$2E,D2 *\46>
	m	<moveq #$B,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,__2_COUNT__80FFA>	<move.b	__2_COUNT__80FFA,$E6(A6)>
 RTS
*----
8102E
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	m	<moveq #$C,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$84177>	<move.b	$84177,$E6(A6)>
 RTS
*----
81054
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	IFn EQ	<btst #1,__bg1関係のstat_1>	<sub #$88,D2 *\136>
	m	<moveq #$D,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$84178>	<move.b	$84178,$E6(A6)>
 RTS
*----
81088
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	m	<moveq #$E,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$84179>	<move.b	$84179,$E6(A6)>
 RTS
*----
810AE
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	m	<moveq #$F,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$8417A>	<move.b	$8417A,$E6(A6)>
 RTS
*----
810D4
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	m	<moveq #$10,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$8417B>	<move.b	$8417B,$E6(A6)>
 RTS
*----
810FA
	m	<BSR Bマークを持たせるかどうか>	<BSR EN_y座標SET?>
	m	<moveq #$11,D3>	<add __GNDx,D1>	<BSR MK_丸い砲台1>
	m	<eor.b #1,$8417C>	<move.b	$8417C,$E6(A6)>
 RTS
*----
81120 *( D0	)
	BSR	Bマークを持たせるかどうか
	m	<move.b	D0,D1>	<and.b #$F,D1>	<bNE @F>
		m	<lsr #7,D0>	<move D0,D1>
		move	#$121,D2	*\289
		moveq	#0,D0
		move	#3,D3
		m	<lea $0,A1>	<add __GNDx,D1>	<BSR MK_耐久力1の地上物>
	 RTS

@@:	m	<moveq #0,D7>	<move.b	D0,D7>	<and.b #$F,D7>
	m	<btst #6,D0>	<bEQ @F>
		m	<lsr #7,D0>	<move D0,D1>
		move	#$19F,D2	*\415
		move.l	D7,D0
		move	#1,D3
		m	<lea $FFFFFFFF,A1>	<add __GNDx,D1>	<BSR MK_耐久力1の地上物>
	 RTS

@@:	m	<lsr #7,D0>	<move D0,D1>
	move	#$19F,D2	*\415
	move.l	D7,D0
	move	#1,D3
	m	<lea $0,A1>	<add __GNDx,D1>	<BSR MK_耐久力1の地上物>
 RTS
*----
8119A	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_小型挺 *only>	RTS
*----
811AA	m <BSR READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_下から出て3WAYの? *only> RTS
*----
811BA	m <BSR.s READ__EN_出現PARAM?>	<add __GNDx,D1>	<BSR MK_上から出て3WAYの? *only> RTS
*----
811C8
	m	<BSR.s READ__EN_出現PARAM?>	<sub #$30,D1>
	m	<add __GNDx,D1>	<BSR MK_5WAYの? *only>
 RTS
*----
811DA
	BSR.s	EN_y座標SET?
	m	<addq.w	#8,D1>	<add #$27,D2>	<moveq #$17,D3>	<add __GNDx,D1>
	BSR	MK_艦橋砲台?
 RTS
*----
811F0
	BSR.s	EN_y座標SET?
	m	<addq.w	#8,D1>	<subq.w	#6,D2>	<moveq #$18,D3>	<add __GNDx,D1>
	BSR	MK_艦橋砲台?
 RTS
*----
81204
	m	<BSR.s READ__EN_出現PARAM?>	<sub #$58,D1>
	m	<add __GNDx,D1>	<BSR MK_5面ボス? *only?>
 RTS
*----------
Bマークを持たせるかどうか	*81216
	IFn2 EQ	<move.b	#0,__Bマーク持たせFLAG>	<btst #7,1(A0)>	<move.b	#-1,__Bマーク持たせFLAG>
 RTS
*-----------
READ__EN_出現PARAM? *( D0	)	81230	p
	m	<moveq #0,D1>	<move D0,D1>	<lsl #2,D1>
	m	<lea $9D890,A1>	<add.l D1,A1>	<move.l	(A1),A1>	*90000台
	m	<move (A1)+,D1>	<lsr #7,D1>
	m	<move (A1)+,D2>	<lsr #7,D2>
	m	<move.b	#-1,D0>	<sub.b D2,D0>	<move.b	D0,D2>
	m	<moveq #0,D0>	<move (A1)+,D0>	<lsr #3,D0>
 RTS ( D0 , D1 , D2 , A1	)?
*--------------
EN_y座標SET? *( D0	)	81258
	m	<btst #0,D0>	<bEQ @F>
		m	<lsr #7,D0>	<move D0,D1>
		move	#$11F,D2	*\287
		moveq	#8,D0
		lea	0,A1
	 RTS

@@:	m	<lsr #7,D0>	<move D0,D1>
	move	#$19F,D2	*\415
	moveq	#8,D0
	lea	0,A1
 RTS
*-------------
ITEM戦闘機の前置き	*only?	81282
	m	<moveq #0,D1>	<move D0,D1>	<lsl #2,D1>
	m	<lea $9EDE0,A1>	<add.l D1,A1>	<move.l	(A1),A1>	*90000台
	m	<move (A1)+,D1>	<lsr #7,D1>
	m	<move (A1)+,D2>	<lsr #7,D2>
	move	D0,-(A7)
		m	<move.b	#-1,D0>	<sub.b D2,D0>	<move.b	D0,D2>
	move	(A7)+,D0
	addq.l	#2,A1
	IFn2	<lsr #8,D0>	<btst #7,D0>	<move (A1),$86758>
	addq.l	#2,A1
	JSR	どのITEMにしようかな	*only?
 RTS
*-----------------
MK_5面ボス?	*only?	812C0
	m	<lea $840FA,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2019,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$B4,D0 *\180>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	m	<move.b	$8C(A6),$76(A6)>	<move.b	$8E(A6),$77(A6)>
	m	<move.b	$90(A6),$78(A6)>	<move.b	$92(A6),$79(A6)>
	m	<move.b	$94(A6),$7A(A6)>	<move.b	$95(A6),$7B(A6)>
	move.b	#$FF,$7C(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#3,D6
	m	<moveq #$48,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #$58,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$10,D4>
	LP 2,D5	<LP $A,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	m	<moveq #$48,D3>	<moveq #$40,D4>
	LP 2,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #$48,D3>	<add #$10,D4>
	m	<move #$38,D3>	<move #$68,D4>	<BSR SP_SET>
	m	<move #$48,D3>	<move #$70,D4>	<BSR SP_SET>
	m	<move #$58,D3>	<move #$70,D4>	<BSR SP_SET>
	m	<move #$68,D3>	<move #$68,D4>	<BSR SP_SET>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #$24,D3>	<moveq #$1C,D4>	<BSR SP_SET>
	m	<moveq #$24,D3>	<moveq #$2C,D4>	<BSR SP_SET>
	m	<moveq #$68,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$68,D3>	<moveq #$40,D4>	<BSR SP_SET>
	m	<moveq #$40,D3>	<moveq #$24,D4>	<BSR SP_SET>
	m	<moveq #$40,D3>	<moveq #$34,D4>	<BSR SP_SET>
	m	<move.l	#$84,D3>	<moveq #$1C,D4>	<BSR SP_SET>
	m	<move.l	#$84,D3>	<moveq #$2C,D4>	<BSR SP_SET>
	m	<moveq #$50,D3>	<moveq #$44,D4>	<BSR SP_SET>
	m	<moveq #$50,D3>	<moveq #$54,D4>	<BSR SP_SET>
 RTS
*--------------
MK_艦橋砲台?	*81426
	m	<lea $840D2,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	m	<add #$6000,D3>	<move D3,(A6)>
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$50,D0 *\80>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$86(A6),$76(A6)
	move.b	$87(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 2,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #$1C,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #$1C,D3>	<moveq #$28,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #4,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$14,D4>	<BSR SP_SET>
 RTS
*---------------------
MK_5WAYの?	*only?	814EC
	m	<lea $84094,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2016,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$1E,D0 *\30>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$8A(A6),$76(A6)
	move.b	$8C(A6),$77(A6)
	move.b	$8E(A6),$78(A6)
	move.b	#-1,$79(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#0,D6
	m	<moveq #$A,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$A,D3>	<moveq #$1A,D4>	<BSR SP_SET>
	m	<moveq #$46,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$46,D3>	<moveq #$1A,D4>	<BSR SP_SET>
	m	<moveq #$1A,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$1A,D3>	<moveq #$1A,D4>	<BSR SP_SET>
	m	<moveq #$34,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$34,D3>	<moveq #$1A,D4>	<BSR SP_SET>
	m	<moveq #$28,D3>	<moveq #$1C,D4>	<BSR SP_SET>
	m	<moveq #$28,D3>	<moveq #$2C,D4>	<BSR SP_SET>

	m	<move #3,D6>	<addq.l	#1,A3>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 5,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>

	m	<moveq #$20,D3>	<moveq #$20,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #$20,D3>	<add #$10,D4>
 RTS
*----------------
MK_上から出て3WAYの?	*only	815F8
	m	<lea $84074,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2015,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b	#$14,D0	*\20>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$85(A6),$76(A6)
	move.b	$86(A6),$77(A6)
	move.b	#$FF,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3
	move	#0,D6
	m	<moveq #4,D3>	<moveq #$14,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #4,D4>	<BSR SP_SET>
	m	<moveq #$1C,D3>	<moveq #$14,D4>	<BSR SP_SET>
	m	<moveq #$1C,D3>	<moveq #4,D4>	<BSR SP_SET>
	move	#3,D6
	addq.l	#1,A3
	m	<moveq #$10,D3>	<moveq #0,D4>	<BSR SP_SET>

	m	<moveq #0,D3>	<moveq #$10,D4>
	LP 1,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*------------------
MK_下から出て3WAYの?	*only	816B4
	M	<lea $84054,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2014,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$14,D0 *\20>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$84(A6),$76(A6)
	move.b	$85(A6),$77(A6)
	move.b	#$FF,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#0,D6
	m	<moveq #4,D3>	<moveq #4,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #$14,D4>	<BSR SP_SET>
	m	<moveq #$1C,D3>	<moveq #4,D4>	<BSR SP_SET>
	m	<moveq #$1C,D3>	<moveq #$14,D4>	<BSR SP_SET>

	m	<move #3,D6>	<addq.l	#1,A3>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>

	m	<moveq #$10,D3>	<moveq #$20,D4>	<BSR SP_SET>
 RTS
*--------------------
MK_小型挺	*only	81770
	m	<lea $83FCC,A0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A013,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#2,$10(A6)
	move.b	#8,$11(A6)
	eor.b	#1,$84175
	move.b	$84175,$E6(A6)
	move.b	$80(A6),$76(A6)
	move.b	#$-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>

	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<M <LP 1,D0 <BSR SP_SET> <add #$10,D3>> <moveq #0,D3> <add #$10,D4>>
	m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #8,D3>	<moveq #$18,D4>	<BSR SP_SET>
 RTS
*----------------
MK_耐久力1の地上物	*81804
	m	<lea $83EF0,A0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	move.l	A1,06(A6)
	move	#$A012,(A6)
	IFn EQ	<cmp #1,D3>	<move #$6012,(A6)>
	move	#$800,$E(A6)
	move.b	#1,$10(A6)
	move.b	#0,$11(A6)
	IFn2 EQ	<bclr.b	#6,$E(A6)>	<tst.b __Bマーク持たせFLAG>	<bset.b	#6,$E(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>

	m	<move D3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*----------------
MK_丸い砲台1	*81890
	m	<lea $83CB0,A0>	<moveq #$A,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	m	<add #$6000,D3>	<move D3,(A6)>
	move.b	#$A,$E(A6)
	move.b	#0,$F(A6)
	move.b	#7,$10(A6)
	move.b	#0,$11(A6)
	move	#3,$E8(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	IFn2 EQ	<bclr.b	#6,$E(A6)>	<tst.b __Bマーク持たせFLAG>	<bset.b	#6,$E(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*---------------------
MK_ITEM戦闘機 *( D0	)	only	81924
	m	<lea $83950,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$200A,(A6)
	m	<and.b #$F,D0>	<move.b	D0,$E(A6)>
	move.b	#0,$F(A6)
	move.b	#1,$10(A6)
	move.b	__ITEM戦闘機の持ち物,$11(A6)
	move.b	D0,$E6(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*----------------
MK_小砲台? *( D0	)	819A2
	m	<lea $83870,A0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$6009,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#1,$10(A6)
	move.b	#0,$11(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	IFn2 EQ	<bclr #6,$E(A6)>	<tst.b __Bマーク持たせFLAG>	<bset.b	#6,$E(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<lea $81A22,A2>	<lsl #2,D0>	<add.l D0,A2>
	m	<move (A2)+,D3>	<move (A2),D4>	<BSR SP_SET>
81A20 RTS
81A22	0000FFF0 0008FFF8 0008FFF8 00100000	00100000 00080008 00080008 00080008
	00000010 00000010 FFF80008 FFF80008	FFF00000 FFF00000 FFF8FFF8 0000FFF0
*----
MK_戦闘機1 *( D0	)	only?	81A62
	M	<lea $83750,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2008,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#1,$10(A6)
	move.b	#0,$11(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*----
MK_戦闘機2	*only?	81AD6
	m	<lea $83630,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2007,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#1,$10(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	IFn2 CC	<move.b	#1,$11(A6)>	<cmp #$80,D1>	<move.b	#-1,$11(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*----
MK_戦闘機3	*only?	81B56
	m	<lea $83510,A0>	<BSR SPDEF＆SETPAL__inc>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$2006,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#1,$10(A6)
	move.b	#0,$11(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
 RTS
*----
MK_TANK_BASE＆TOP	*only?	81BCA
	m	<lea $833B0,A0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A005,(A6)
	move.b	D0,$E(A6)
	move.b	#0,$F(A6)
	move.b	#2,$10(A6)
	move.b	#8,$11(A6)
	eor.b	#1,$84174
	move.b	$84174,$E6(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	IFn2 EQ	<bclr.b	#6,$E(A6)>	<tst.b __Bマーク持たせFLAG>	<bset.b	#6,$E(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #8,D3>	<moveq #$18,D4>	<BSR SP_SET>
 RTS
*----
MK_2面中ボス2?	*only?	81C72
	m	<lea $8337A,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A004,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$96,D0 *\150>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$86(A6),$76(A6)
	move.b	$87(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 3,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$1A,D4>	<BSR SP_SET>
 RTS
*-------------
MK_2面中ボス1?	*only?	81D56
	m	<lea $83344,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A003,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$96,D0 *\150>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$86(A6),$76(A6)
	move.b	$87(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 3,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$1A,D4>	<BSR SP_SET>
 RTS
*--------------
MK_レールボス1?	*only?	81E3A
	m	<lea $832FE,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A002,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$A0,D0 *\160>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$8C(A6),$76(A6)
	move.b	$8E(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 4,D5	<LP 3,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$1A,D4>	<BSR SP_SET>
 RTS
*----
MK_レールボス2?	*only?	81F1E
	m	<lea $832B8,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A001,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$A0,D0 *\160>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$8C(A6),$76(A6)
	move.b	$8E(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 4,D5	<LP 3,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	addq.l	#1,A3
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #8,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #$18,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #4,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$A,D4>	<BSR SP_SET>
	m	<moveq #$10,D3>	<moveq #$1A,D4>	<BSR SP_SET>
 RTS
*----
MK_1面ボス	*only?	82002
	m	<lea $83286,A0>	<moveq #0,D0>	<BSR SPDEF＆SETPAL__dec>	<bEQ EXIT__MK?_TEKI_>

	move.l	A1,06(A6)
	move	#$A000,(A6)
	move	#0,$E(A6)
	PUSH	D0
		moveq	#0,D0
		m	<move.b	__自弾P段階?,D0>	<mulu #$A,D0>	<add.b #$78,D0 *\120>
		move.b	D0,$10(A6)
	POP	D0
	move.b	#0,$11(A6)
	move.b	$86(A6),$76(A6)
	move.b	$87(A6),$77(A6)
	move.b	#-1,$78(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 3,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	move	#0,D6
	m	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<moveq #$20,D3>	<moveq #0,D4>	<BSR SP_SET>
	addq.l	#1,A3
	m	<moveq #0,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #0,D3>	<moveq #$30,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$10,D4>	<BSR SP_SET>
	m	<moveq #$18,D3>	<moveq #$20,D4>	<BSR SP_SET>
	m	<moveq #8,D3>	<moveq #4,D4>	<BSR SP_SET>
	m	<moveq #8,D3>	<moveq #$14,D4>	<BSR SP_SET>
 RTS
*---
EXIT__MK?_TEKI_	RTS
*------------
SP_SET *( A1 , A3 , D1-D6 )	820C6	p
	movem.w	D0/D3-D5,-(A7)
	m	<moveq #0,D0>	<lea $B0600,A2>
	m	<move.b	(A1)+,D0>	<lsl #3,D0>	<add D0,A2>
	m	<moveq #0,D5>	<move.b	(A3),D5>	<addq.b	#1,D5>	<lsl #8,D5>
	m	<move.b	(A0)+,D5>	<add #$40,D5>
	m	<addq.w	#8,D3>	<add D1,D3>
	m	<subq.w	#8,D4>	<add D2,D4>

	m	<move D3,(A2)+>	<move D4,(A2)+>	<move D5,(A2)+>	<move D6,(A2)>
	movem.w	(A7)+,D0/D3-D5
 RTS
*-------------------
820FC *only?( MAIN 〜 MV_色々 〜 )
	86C70 86E4E 87180 874B2 87802 MV_TANK 89B1E 89CBA
	89E36 MV_小砲台 89F1A 8A0A0 8A2EE 8A5AA 8A7DC 8AA0E
	8AC40 8AE72 87F5A MV_小型挺 88284 88428 885C0 MV_上がり艦橋砲台
	MV_下がり艦橋砲台 88C64
*------------
MV?_敵弾 *only?( MAIN 〜 MV_色々 〜 )	82164
	moveq	#0,D0
	move.b	$E(A0),D0
	lsl.b	#2,D0
	lea	$821E2,A1
	add.l	D0,A1
	moveq	#0,D0
	move.b	$80(A0),D0
	lsl	#3,D0
	m	<lea $B0600,A2>	<add D0,A2>
	move.l	$8BE60,A6
	m	<subq.b	#1,$10(A0)>	<bNE @F>
		m	<move.b	(A1),$10(A0)>	<move 2(A1),D0>	<add D0,(A2)>
@@:	m	<move (A2)+,(A6)>	<subq.w	#8,(A6)+>
	subq.w	#8,(A2)
	m	<move (A2),(A6)>	<subq.w	#8,(A6)+>
	move.l	A0,(A6)+
	move.l	A6,$8BE60
	m	<cmp #$110,$FFFE(A2)>	<bCC @F>
		m	<cmp #$FFE0,(A2)>	<bCS 82D48>	*EXIT__

@@:	move.l	A0,A6
	m	<moveq #0,D0>	<move.b	$F(A6),D0>
	m	<lea $866A4,A1>	<add.l D0,A1>	<subq.b	#1,(A1)>	<bNE @F>
		m	<lea $866A0,A1>	<add.l D0,A1>	<move.b	#0,(A1)>
@@;
	BSR	生存登録抹消
 RTS
821E2  FF00 0000 0200 FFFF 0200 0001 0200 FFFE	0200 0002
*---------------------
MV_BOMBER *( A0	)	only?( MAIN 〜 MV_色々 〜 )	821F6
	M	<tst.b __BOMBER爆発中FLAG>	<bNE 82326>
	m	<moveq #0,D0>	<move.b	$80(A0),D0>	<lsl #3,D0>
	m	<lea $B0600,A1>	<add D0,A1>	<subq.w	#3,2(A1)>

	m	<subq.b	#1,$E(A0)>	<bEQ.s 82288>
	m	<cmp.b #1,$E(A0)>	<bEQ.s 8226C>
	m	<cmp.b #$A,$E(A0)>	<bEQ.s 82250>
	m	<cmp.b #$14,$E(A0)>	<bEQ.s 82234>
 RTS
82234	m	<move.l	A0,A6>	<BSR 生存登録抹消>
	moveq	#4,D0
	m	<move (A1)+,D1>	<subq.w	#8,D1>
	m	<move (A1),D2>	<addq.w	#8,D2>
	BSR	爆発前のBOMBER_DPSPSET	*爆発前のBOMBER	2
	move.b	#$14,$E(A6)
 RTS
82250	m	<move.l	A0,A6>	<BSR 生存登録抹消>
	moveq	#5,D0
	m	<move (A1)+,D1>	<subq.w	#8,D1>
	m	<move (A1),D2>	<addq.w	#8,D2>
	BSR	爆発前のBOMBER_DPSPSET	*爆発前のBOMBER	3
	move.b	#$A,$E(A6)
 RTS
8226C	m	<move.l	A0,A6>	<BSR 生存登録抹消>
	moveq	#6,D0
	m	<move (A1)+,D1>	<subq.w	#8,D1>
	m	<move (A1),D2>	<addq.w	#8,D2>
	BSR	爆発前のBOMBER_DPSPSET	*爆発前のBOMBER	4
	move.b	#1,$E(A6)
 RTS
82288			*BOMBER爆発
	move.l	A0,A6
	BSR	生存登録抹消
	move.b	#-1,__BOMBER爆発中FLAG
	moveq	#1,D0
	m	<move (A1)+,D1>	<sub #$58,D1 *\88>	<move D1,__BOMBERx>
	m	<move (A1),D2>	<sub #$68,D2 *\104>	<move D2,__BOMBERy>
	moveq	#0,D3
	PUSH	D0-D3
		BSR	BOMBER_DPSPSET
	POP	D0-D3
	bEQ	@F
		move.l	#0,$E(A6)
	 RTS

@@:	JSR	890A4
	BSR	890D8	*only?
	M	<PUSH D0-D3>	<BSR BOMBER_DPSPSET>	<POP D0-D3>	<bEQ @F>
		move.l	#0,$E(A6)
	 RTS

@@:	m	<move.b	#0,__BOMBER使用中FLAG>	<move.b	#0,__BOMBER爆発中FLAG>
	m	<move.l	#0,$8B7F0>	<move.l #0,$8B7F4>
	m	<move.l	#0,$8B7F8>	<move.l #0,$8B7FC>
 RTS
82326			*BOMBER爆発中
	JSR	890A4
	m	<move.b	$F(A0),D0>	<addq.b	#1,D0>	<move.b	D0,$F(A0)>
	m	<and.b #1,D0>	<bNE 82D48>	*EXIT__
	move.l	A0,A6
	BSR	生存登録抹消
	m	<move __BOMBERx,D1>	<move __BOMBERy,D2>
	m	<moveq #0,D3>	<move.b	$E(A0),D3>	<addq.b	#1,D3>	<move.b	D3,$E(A0)>
	M	<cmp.b #$F,D3>	<bEQ.s 8239C>

	lea	$823DA,A1
	lsl.b	#2,D3
	add.l	D3,A1
	move.l	(A1),D3
	move.b	D3,D5
	m	<moveq #2,D0>	<and.b #$F0,D5>	<bEQ @F>
	m	<moveq #1,D0>	<btst #7,D3>	<bNE @F>
		moveq	#7,D0
@@;
	and.b	#$F,D3
	move.l	$E(A0),D5
	PUSH	D5
		BSR	BOMBER_DPSPSET
	POP	D5
	move.l	D5,$E(A6)
 RTS
8239C	m	<move.b	#0,__BOMBER使用中FLAG>	<move.b	#0,__BOMBER爆発中FLAG>
	m	<move.l	#0,$8B7F0>	<move.l #0,$8B7F4>
	m	<move.l	#0,$8B7F8>	<move.l #0,$8B7FC>
 RTS

__BOMBERx	.dc.w	0	*823D6
__BOMBERy	.dc.w	0	*823D8
823DA	.dc.l	$80,$41,$82,$03,$44,$85,$06,$47,$88,$09,$4a,$8b,$0c,$4d,$4e

82416	.dc.l	$82452,$824e2,$82572,$82602,$82692,$82722,$827b2,$82842
	.dc.l	$828d2,$82962,$829f2,$82a82,$82b12,$82ba2,$82c32

82452	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff
	.dc.l	$00ff00ff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff
824E2	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$00ff00ff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$00ff00ff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff
82572	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00
	.dc.l	$ffffff00,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff
82602	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffff00,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff,$ffffffff,$00ffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
	.dc.l	$ffffffff,$ffffffff,$ffffffff,$ffffffff
,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$00ffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffff00,$ffffffff,$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$00ffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff
.dc.l$ffff00ff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$00ffffff,$ffffff00
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$00ffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$00ffffff,$ffffffff,$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff
.dc.l$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffff00,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$00ffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffff00,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$00ffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffff00ff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff
.dc.l$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ff00ffff,$ffffffff
.dc.l$ff00ffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffff00ff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$00ffffff,$ffffffff,$ffffffff,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffffff,$ffffff00,$ffffffff
.dc.l$ffffffff,$ffffffff,$ffffffff
*--------------------
MV?_自弾	*only?( MAIN 〜 MV_色々 〜 )	82CC2
	m	<move.l	A0,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bEQ @F>
		move.l	A0,A6
		BSR	生存登録抹消
	 RTS

@@:	m	<moveq #0,D0>	<move.b	$80(A0),D0>	<lsl #3,D0>
	lea	$B0600,A2
	add	D0,A2
	moveq	#8,D2
	IFn CS	<cmp #5,$86688>	<moveq #$A,D2>
	m	<move $E(A0),D0>	<bEQ @F>
		muls	D2,D0
		move	$E6(A0),D1
		add	D0,D1
		move	D1,$E6(A0)
		ext.l	D1
		divs	#$A,D1
		move	$EA(A0),D0
		move	(A2),D3
		sub	D0,D3
		add	D1,D3
		move	D3,(A2)
		move	D1,$EA(A0)
@@;
	M	<move $10(A0),D0>	<bEQ.s 82D48>	*EXIT__
	muls	D2,D0
	move	$E8(A0),D1
	add	D0,D1
	move	D1,$E8(A0)
	ext.l	D1
	divs	#$A,D1
	move	$EC(A0),D0
	addq.l	#2,A2
	move	(A2),D3
	sub	D0,D3
	add	D1,D3
	move	D3,(A2)
	move	D1,$EC(A0)
82D48 RTS
*-------------------
__自機TBL	*82D4A
	.dc.l	$82d6e,$82d84,$82d9a,$82db0,$82dc6,$82ddc,$82df2,$82e08,$82e1e
82D6E	.dc.w	$0803,$ffff,$ff00,	$064,$065,$066,$067,$1b8,$1b9,$1ba,$1bb	*自機と影
82D84	.dc.w	$0803,$ffff,$ff00,	$068,$069,$06a,$06b,$1bc,$1bd,$1be,$1bf
82D9A	.dc.w	$0803,$ffff,$ff00,	$06c,$06d,$06e,$06f,$1c0,$1c1,$1c2,$1c3
82DB0	.dc.w	$0803,$ffff,$ff00,	$070,$071,$072,$073,$1c4,$1c5,$1c6,$1c7
82DC6	.dc.w	$0803,$ffff,$ff00,	$074,$075,$076,$077,$1c8,$1c9,$1ca,$1cb
82DDC	.dc.w	$0803,$ffff,$ff00,	$384,$385,$386,$387,$1b8,$1b9,$1ba,$1bb	*小さめの奴
82DF2	.dc.w	$0803,$ffff,$ff00,	$388,$389,$38a,$38b,$1b8,$1b9,$1ba,$1bb
82E08	.dc.w	$0803,$ffff,$ff00,	$38c,$38d,$38e,$38f,$1b8,$1b9,$1ba,$1bb
82E1E	.dc.w	$0803,$ffff,$ff00,	$064,$065,$066,$067,$1b8,$1b9,$1ba,$1bb	*これはnormal
	*	 ~T~T			 ~~~~~~~~~~~~~~~~~~~T~~~~~~~~~~~~~~~~~~
		  | +-	パレットデータ番号?		    +-	キャラデータ番号
		  +-	データ数
__爆発とか色々	*82E34
	.dc.l	$82ecc,$82ed4,$82efa,$82f46,$82f4e,$82f56,$82f5e,$82f20
	.dc.l	$82f66,$82f6e,$82fa6,$82fde,$83016,$8304e,$83086,$830be
	.dc.l	$830f6,$8312e,$83146,$8315e,$83176,$8318e,$831a6,$831be
	.dc.l	$831d6,$831ee,$831fc,$8320a,$83218,$83226,$83234,$83242
	.dc.l	$83250,$8325e,$83266,$8326e,$83276,$8327e
82ECC	.dc.w	$0109,$ffff,$ff00,	$1a1	*自弾
82ED4	.dc.w	$100a,$ffff,$ff00		*BOMBER
	.dc.l	$2c202c3,$2c402c5,$2da02db,$2dc02dd,$2ca02cb,$2cc02cd,$2d202d3,$2d402d5
82EFA	.dc.w	$100a,$ffff,$ff00		*  〃
	.dc.l	$2c602c7,$2c802c9,$2de02df,$2e002e1,$2ce02cf,$2d002d1,$2d602d7,$2d802d9
82F20	.dc.w	$100a,$ffff,$ff00		*  〃
	.dc.l	$2de02df,$2e002e1,$2c602c7,$2c802c9,$2d602d7,$2d802d9,$2ce02cf,$2d002d1
82F46	.dc.w	$010b,$ffff,$ff00,	$2e2	*爆発前のBOMBER	1
82F4E	.dc.w	$010b,$ffff,$ff00,	$2e3	*      〃	2
82F56	.dc.w	$010b,$ffff,$ff00,	$2e4	*      〃	3
82F5E	.dc.w	$010b,$ffff,$ff00,	$2e5	*      〃	4
82F66	.dc.w	$0109,$ffff,$ff00,	$1a7	*敵弾（1）
82F6E	.dc.w	$191c,$ffff,$ff00		*5×5?爆発 1
	.dc.l	$5010502,$5030504,$5050506,$5070508,$509050a,$50b050c,$50d050e,$50f0510
	.dc.l	$5110512,$5130514,$5150516,$5170518
	.dc.w	$519
82FA6	.dc.w	$191c,$ffff,$ff00		*    〃	   2
	.dc.l	$51a051b,$51c051d,$51e051f,$5200521,$5220523,$5240525,$5260527,$5280529
	.dc.l	$52a052b,$52c052d,$52e052f,$5300531
	.dc.w	$532
82FDE	.dc.w	$191c,$ffff,$ff00		*    〃	   3
	.dc.l	$5330534,$5350536,$5370538,$539053a,$53b053c,$53d053e,$53f0540,$5410542
	.dc.l	$5430544,$5450546,$5470548,$549054a
	.dc.l	$54b
83016	.dc.w	$191c,$ffff,$ff00		*    〃	   4
	.dc.l	$54c054d,$54e054f,$5500551,$5520553,$5540555,$5560557,$5580559,$55a055b
	.dc.l	$55c055d,$55e055f,$5600561,$5620563
	.dc.w	$564
8304E	.dc.w	$191c,$ffff,$ff00		*    〃	   5
	.dc.l	$5650566,$5670568,$569056a,$56b056c,$56d056e,$56f0570,$5710572,$5730574
	.dc.l	$5750576,$5770578,$579057a,$57b057c
	.dc.w	$57d
83086	.dc.w	$191c,$ffff,$ff00		*    〃	   6
	.dc.l	$57e057f,$5800581,$5820583,$5840585,$5860587,$5880589,$58a058b,$58c058d
	.dc.l	$58e058f,$5900591,$5920593,$5940595
	.dc.l	$596
830BE	.dc.w	$191c,$ffff,$ff00		*    〃	   7
	.dc.l	$5970598,$599059a,$59b059c,$59d059e,$59f05a0,$5a105a2,$5a305a4,$5a505a6
	.dc.l	$5a705a8,$5a905aa,$5ab05ac,$5ad05ae
	.dc.w	$5af
830F6	.dc.w	$191c,$ffff,$ff00		*    〃	   8
	.dc.l	$5b005b1,$5b205b3,$5b405b5,$5b605b7,$5b805b9,$5ba05bb,$5bc05bd,$5be05bf
	.dc.l	$5c005c1,$5c205c3,$5c405c5,$5c605c7
	.dc.w	$5c8
8312E	.dc.w	$0909,$ffff,$ff00,	$158,$159,$15a,$15b,$15c,$15d,$15e,$15f,$160	*3×3爆1
83146	.dc.w	$0909,$ffff,$ff00,	$161,$162,$163,$164,$165,$166,$167,$168,$169	*  〃  2
8315E	.dc.w	$0909,$ffff,$ff00,	$16a,$16b,$16c,$16d,$16e,$16f,$170,$171,$172	*  〃  3
83176	.dc.w	$0909,$ffff,$ff00,	$173,$174,$175,$176,$177,$178,$179,$17a,$17b	*  〃  4
8318E	.dc.w	$0909,$ffff,$ff00,	$17c,$17d,$17e,$17f,$180,$181,$182,$183,$184	*  〃  5
831A6	.dc.w	$0909,$ffff,$ff00,	$185,$186,$187,$188,$189,$18a,$18b,$18c,$18d	*  〃  6
831BE	.dc.w	$0909,$ffff,$ff00,	$18e,$18f,$190,$191,$192,$193,$194,$195,$196	*  〃  7
831D6	.dc.w	$0909,$ffff,$ff00,	$197,$198,$199,$19a,$19b,$19c,$19d,$19e,$19f	*    8
831EE	.dc.w	$0409,$ffff,$ff00,	$237,$238,$239,$23a	*2×2爆発（GAME中の）	1
831FC	.dc.w	$0409,$ffff,$ff00,	$23b,$23c,$23d,$23e	*	  〃		2
8320A	.dc.w	$0409,$ffff,$ff00,	$23f,$240,$241,$242	*	  〃		3
83218	.dc.w	$0409,$ffff,$ff00,	$243,$244,$245,$246	*	  〃		4
83226	.dc.w	$0409,$ffff,$ff00,	$247,$248,$249,$24a	*	  〃		5
83234	.dc.w	$0409,$ffff,$ff00,	$24b,$24c,$24d,$24e	*	  〃		6
83242	.dc.w	$0409,$ffff,$ff00,	$24f,$250,$251,$252	*	  〃		7
83250	.dc.w	$0409,$ffff,$ff00,	$253,$254,$255,$256	*	  〃		8
8325E	.dc.w	$0107,$ffff,$ff00,	$2c1	*Bマーク
83266	.dc.w	$0107,$ffff,$ff00,	$2bd	*Sマーク
8326E	.dc.w	$0127,$ffff,$ff00,	$2f9	*1UPマーク
83276	.dc.w	$0109,$ffff,$ff00,	$1b4	*丸い爆発跡1×1
8327E	.dc.w	$0107,$ffff,$ff00,	$442	*1000点マーク

83286	.dc.l	$8328a	*1面ボス
8328A	.dc.w	$141d,$09ff,$ff00
	.dc.l	$6c006c1,$6c206c3,$6c406c5,$6c606c7,$6c806c9,$6ca06cb,$6cc06cd,$3e703e8
	.dc.l	$3e903ea,$3e703e8

832B8	.dc.l	$832bc	*レールボス?
832BC	.dc.w	$1e06,$09ff,$ff00
	.dc.l	$1d001d5,$1da01df,$1cf01d4,$1d901de,$1ce01e4,$1d801dd,$1cd01d2,$1d701dc
	.dc.l	$1cc01d1,$1d601db,$3e703e8,$3e903ea,$3e703e8,$3e903ea,$3e703e8

832FE	.dc.l	$83302	*レールボス?
83302	.dc.w	$1e04,$09ff,$ff00
	.dc.l	$1d001d5,$1da01df,$1cf01d4,$1d901de,$1ce01e4,$1d801dd,$1cd01d2,$1d701dc
	.dc.l	$1cc01d1,$1d601db,$3e703e8,$3e903ea,$3e703e8,$3e903ea,$3e703e8

83344	.dc.l	$83348	*2面中ボス1?
83348	.dc.w	$1606,$09ff,$ff00
	.dc.l	$1ee01f2,$1f601ed,$1f701f5,$1ec01f0,$1f401eb,$1ef01f3,$3e703e8,$3e903ea
	.dc.l	$3e703e8,$3e903ea,$3e703e8

8337A	.dc.l	$8337e	*2面中ボス2?
8337E	.dc.w	$1604,$09ff,$ff00
	.dc.l	$1ee01f2,$1f601ed,$1e001f5,$1ec01f0,$1f401eb,$1ef01f3,$3e703e8,$3e903ea
	.dc.l	$3e703e8,$3e903ea,$3e703e8

833B0	.dc.l	$833f0,$83402,$83414,$83426,$83438,$8344a,$8345c,$8346e	*TANK_BASE&TOP
	.dc.l	$83480,$83492,$834a4,$834b6,$834c8,$834da,$834ec,$834fe
833F0	.dc.w	$061d,$09ff,$ff00,	$600,$601,$602,$603,$6e8,$6e9
83402	.dc.w	$061d,$09ff,$ff00,	$604,$605,$606,$607,$6e8,$6e9
83414	.dc.w	$061d,$09ff,$ff00,	$608,$609,$60a,$60b,$6e8,$6e9
83426	.dc.w	$061d,$09ff,$ff00,	$60c,$60d,$60e,$60f,$6e8,$6e9
83438	.dc.w	$061d,$09ff,$ff00,	$610,$611,$612,$613,$6e8,$6e9
8344A	.dc.w	$061d,$09ff,$ff00,	$614,$615,$616,$617,$6e8,$6e9
8345C	.dc.w	$061d,$09ff,$ff00,	$618,$619,$61a,$61b,$6e8,$6e9
8346E	.dc.w	$061d,$09ff,$ff00,	$61c,$61d,$61e,$61f,$6e8,$6e9
83480	.dc.w	$061d,$09ff,$ff00,	$620,$621,$622,$623,$6e8,$6e9
83492	.dc.w	$061d,$09ff,$ff00,	$624,$625,$626,$627,$6e8,$6e9
834A4	.dc.w	$061d,$09ff,$ff00,	$628,$629,$62a,$62b,$6e8,$6e9
834B6	.dc.w	$061d,$09ff,$ff00,	$62c,$62d,$62e,$62f,$6e8,$6e9
834C8	.dc.w	$061d,$09ff,$ff00,	$630,$631,$632,$633,$6e8,$6e9
834DA	.dc.w	$061d,$09ff,$ff00,	$634,$635,$636,$637,$6e8,$6e9
834EC	.dc.w	$061d,$09ff,$ff00,	$638,$639,$63a,$63b,$6e8,$6e9
834FE	.dc.w	$061d,$09ff,$ff00,	$63c,$63d,$63e,$63f,$6e8,$6e9

83510	.dc.l	$83550,$8355e,$8356c,$8357a,$83588,$83596,$835a4,$835b2	*戦闘機
	.dc.l	$835c0,$835ce,$835dc,$835ea,$835f8,$83606,$83614,$83622
83550	.dc.w	$0420,$ffff,$ff00,	$078,$079,$07a,$07b
8355E	.dc.w	$0420,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
8356C	.dc.w	$0420,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
8357A	.dc.w	$0420,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
83588	.dc.w	$0420,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
83596	.dc.w	$0420,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
835A4	.dc.w	$0420,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
835B2	.dc.w	$0420,$ffff,$ff00,	$09c,$09d,$09e,$09f
835C0	.dc.w	$0420,$ffff,$ff00,	$098,$099,$09a,$09b
835CE	.dc.w	$0420,$ffff,$ff00,	$094,$095,$096,$097
835DC	.dc.w	$0420,$ffff,$ff00,	$090,$091,$092,$093
835EA	.dc.w	$0420,$ffff,$ff00,	$08c,$08d,$08e,$08f
835F8	.dc.w	$0420,$ffff,$ff00,	$088,$089,$08a,$08b
83606	.dc.w	$0420,$ffff,$ff00,	$084,$085,$086,$087
83614	.dc.w	$0420,$ffff,$ff00,	$080,$081,$082,$083
83622	.dc.w	$0420,$ffff,$ff00,	$07c,$07d,$07e,$07f

83630	.dc.l	$83670,$8367e,$8368c,$8369a,$836a8,$836b6,$836c4,$836d2	*戦闘機
	.dc.l	$836e0,$836ee,$836fc,$8370a,$83718,$83726,$83734,$83742
83670	.dc.w	$0401,$ffff,$ff00,	$078,$079,$07a,$07b
8367E	.dc.w	$0401,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
8368C	.dc.w	$0401,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
8369A	.dc.w	$0401,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
836A8	.dc.w	$0401,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
836B6	.dc.w	$0401,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
836C4	.dc.w	$0401,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
836D2	.dc.w	$0401,$ffff,$ff00,	$09c,$09d,$09e,$09f
836E0	.dc.w	$0401,$ffff,$ff00,	$098,$099,$09a,$09b
836EE	.dc.w	$0401,$ffff,$ff00,	$094,$095,$096,$097
836FC	.dc.w	$0401,$ffff,$ff00,	$090,$091,$092,$093
8370A	.dc.w	$0401,$ffff,$ff00,	$08c,$08d,$08e,$08f
83718	.dc.w	$0401,$ffff,$ff00,	$088,$089,$08a,$08b
83726	.dc.w	$0401,$ffff,$ff00,	$084,$085,$086,$087
83734	.dc.w	$0401,$ffff,$ff00,	$080,$081,$082,$083
83742	.dc.w	$0401,$ffff,$ff00,	$07c,$07d,$07e,$07f

83750	.dc.l	$83790,$8379e,$837ac,$837ba,$837c8,$837d6,$837e4,$837f2	*戦闘機
	.dc.l	$83800,$8380e,$8381c,$8382a,$83838,$83846,$83854,$83862
83790	.dc.w	$0405,$ffff,$ff00,	$078,$079,$07a,$07b
8379E	.dc.w	$0405,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
837AC	.dc.w	$0405,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
837BA	.dc.w	$0405,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
837C8	.dc.w	$0405,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
837D6	.dc.w	$0405,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
827E4	.dc.w	$0405,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
837FE	.dc.w	$0405,$ffff,$ff00,	$09c,$09d,$09e,$09f
837F2	.dc.w	$0405,$ffff,$ff00,	$098,$099,$09a,$09b
83800	.dc.w	$0405,$ffff,$ff00,	$094,$095,$096,$097
8380E	.dc.w	$0405,$ffff,$ff00,	$090,$091,$092,$093
8381C	.dc.w	$0405,$ffff,$ff00,	$08c,$08d,$08e,$08f
8382A	.dc.w	$0405,$ffff,$ff00,	$088,$089,$08a,$08b
83838	.dc.w	$0405,$ffff,$ff00,	$084,$085,$086,$087
83846	.dc.w	$0405,$ffff,$ff00,	$080,$081,$082,$083
83854	.dc.w	$0405,$ffff,$ff00,	$07c,$07d,$07e,$07f

83870	.dc.l	$838b0,$838ba,$838c4,$838ce,$838d8,$838e2,$838ec,$838f6	*小砲台?
	.dc.l	$83900,$8390a,$83914,$8391e,$83928,$83932,$8393c,$83946
838B0	.dc.w	$0217,$ffff,$ff00,	$3c0,$3c1
838BA	.dc.w	$0217,$ffff,$ff00,	$3c2,$3c3
838C4	.dc.w	$0217,$ffff,$ff00,	$3c4,$3c5
838CE	.dc.w	$0217,$ffff,$ff00,	$3c6,$3c7
838D8	.dc.w	$0217,$ffff,$ff00,	$3c8,$3c9
838E2	.dc.w	$0217,$ffff,$ff00,	$3ca,$3cb
838EC	.dc.w	$0217,$ffff,$ff00,	$3cc,$3cd
838F6	.dc.w	$0217,$ffff,$ff00,	$3ce,$3cf
83900	.dc.w	$0217,$ffff,$ff00,	$3d0,$3d1
8390A	.dc.w	$0217,$ffff,$ff00,	$3d2,$3d3
83914	.dc.w	$0217,$ffff,$ff00,	$3d4,$3d5
8391E	.dc.w	$0217,$ffff,$ff00,	$3d6,$3d7
83928	.dc.w	$0217,$ffff,$ff00,	$3d8,$3d9
83932	.dc.w	$0217,$ffff,$ff00,	$3da,$3db
8393C	.dc.w	$0217,$ffff,$ff00,	$3dc,$3dd
83946	.dc.w	$0217,$ffff,$ff00,	$3de,$3df

83950	.dc.l	$83a10,$83a1e,$83a2c,$83a3a,$83a48,$83a56,$83a64,$83a72
	.dc.l	$83a80,$83a8e,$83a9c,$83aaa,$83ab8,$83ac6,$83ad4,$83ae2
	.dc.l	$83af0,$83afe,$83b0c,$83b1a,$83b28,$83b36,$83b44,$83b52
	.dc.l	$83b60,$83b6e,$83b7c,$83b8a,$83b98,$83ba6,$83bb4,$83bc2
	.dc.l	$83bd0,$83bde,$83bec,$83bfa,$83c08,$83c16,$83c24,$83c32
	.dc.l	$83c40,$83c4e,$83c5c,$83c6a,$83c78,$83c86,$83c94,$83ca2
83A10	.dc.w	$0402,$ffff,$ff00,	$078,$079,$07a,$07b	*戦闘機?
83A1E	.dc.w	$0402,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
83A2C	.dc.w	$0402,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
83A3A	.dc.w	$0402,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
83A48	.dc.w	$0402,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
83A56	.dc.w	$0402,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
83A64	.dc.w	$0402,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
83A72	.dc.w	$0402,$ffff,$ff00,	$09c,$09d,$09e,$09f
83A80	.dc.w	$0402,$ffff,$ff00,	$098,$099,$09a,$09b
83A8E	.dc.w	$0402,$ffff,$ff00,	$094,$095,$096,$097
83A9C	.dc.w	$0402,$ffff,$ff00,	$090,$091,$092,$093
83AAA	.dc.w	$0402,$ffff,$ff00,	$08c,$08d,$08e,$08f
83AB8	.dc.w	$0402,$ffff,$ff00,	$088,$089,$08a,$08b
83AC6	.dc.w	$0402,$ffff,$ff00,	$084,$085,$086,$087
83AD4	.dc.w	$0402,$ffff,$ff00,	$080,$081,$082,$083
83AE2	.dc.w	$0402,$ffff,$ff00,	$07c,$07d,$07e,$07f
83AF0	.dc.w	$0423,$ffff,$ff00,	$078,$079,$07a,$07b	*  〃  ()
83AFE	.dc.w	$0423,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
83B0C	.dc.w	$0423,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
83B1A	.dc.w	$0423,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
83B28	.dc.w	$0423,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
83B36	.dc.w	$0423,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
83B44	.dc.w	$0423,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
83B52	.dc.w	$0423,$ffff,$ff00,	$09c,$09d,$09e,$09f
83B60	.dc.w	$0423,$ffff,$ff00,	$098,$099,$09a,$09b
83B6E	.dc.w	$0423,$ffff,$ff00,	$094,$095,$096,$097
83B7C	.dc.w	$0423,$ffff,$ff00,	$090,$091,$092,$093
83B8A	.dc.w	$0423,$ffff,$ff00,	$08c,$08d,$08e,$08f
83B98	.dc.w	$0423,$ffff,$ff00,	$088,$089,$08a,$08b
83BA6	.dc.w	$0423,$ffff,$ff00,	$084,$085,$086,$087
83BB4	.dc.w	$0423,$ffff,$ff00,	$080,$081,$082,$083
83BC2	.dc.w	$0423,$ffff,$ff00,	$07c,$07d,$07e,$07f
83BD0	.dc.w	$0422,$ffff,$ff00,	$078,$079,$07a,$07b	*  〃  ()
83BDE	.dc.w	$0422,$ffff,$ff00,	$0b4,$0b5,$0b6,$0b7
83BEC	.dc.w	$0422,$ffff,$ff00,	$0b0,$0b1,$0b2,$0b3
83BFA	.dc.w	$0422,$ffff,$ff00,	$0ac,$0ad,$0ae,$0af
83C08	.dc.w	$0422,$ffff,$ff00,	$0a8,$0a9,$0aa,$0ab
83C16	.dc.w	$0422,$ffff,$ff00,	$0a4,$0a5,$0a6,$0a7
83C24	.dc.w	$0422,$ffff,$ff00,	$0a0,$0a1,$0a2,$0a3
83C32	.dc.w	$0422,$ffff,$ff00,	$09c,$09d,$09e,$09f
83C40	.dc.w	$0422,$ffff,$ff00,	$098,$099,$09a,$09b
83C4E	.dc.w	$0422,$ffff,$ff00,	$094,$095,$096,$097
83C5C	.dc.w	$0422,$ffff,$ff00,	$090,$091,$092,$093
83C6A	.dc.w	$0422,$ffff,$ff00,	$08c,$08d,$08e,$08f
83C78	.dc.w	$0422,$ffff,$ff00,	$088,$089,$08a,$08b
83C86	.dc.w	$0422,$ffff,$ff00,	$084,$085,$086,$087
83C94	.dc.w	$0422,$ffff,$ff00,	$080,$081,$082,$083
83CA2	.dc.w	$0422,$ffff,$ff00,	$07c,$07d,$07e,$07f

83CB0	.dc.l	$83d30,$83d3e,$83d4c,$83d5a,$83d68,$83d76,$83d84,$83d92
	.dc.l	$83da0,$83dae,$83dbc,$83dca,$83dd8,$83de6,$83df4,$83e02
	.dc.l	$83e10,$83e1e,$83e2c,$83e3a,$83e48,$83e56,$83e64,$83e72
	.dc.l	$83e80,$83e8e,$83e9c,$83eaa,$83eb8,$83ec6,$83ed4,$83ee2
83D30	.dc.w	$0408,$ffff,$ff00,	$300,$301,$302,$303	*丸い砲台
83D3E	.dc.w	$0408,$ffff,$ff00,	$304,$305,$306,$307
83D4C	.dc.w	$0408,$ffff,$ff00,	$308,$309,$30a,$30b
83D5A	.dc.w	$0408,$ffff,$ff00,	$30c,$30d,$30e,$30f
83D68	.dc.w	$0408,$ffff,$ff00,	$310,$311,$312,$313
83D76	.dc.w	$0408,$ffff,$ff00,	$314,$315,$316,$317
83D84	.dc.w	$0408,$ffff,$ff00,	$318,$319,$31a,$31b
83D92	.dc.w	$0408,$ffff,$ff00,	$31c,$31d,$31e,$31f
83DA0	.dc.w	$0408,$ffff,$ff00,	$320,$321,$322,$323
83DAE	.dc.w	$0408,$ffff,$ff00,	$324,$325,$326,$327
83DBC	.dc.w	$0408,$ffff,$ff00,	$328,$329,$32a,$32b
83DCA	.dc.w	$0408,$ffff,$ff00,	$32c,$32d,$32e,$32f
83DD8	.dc.w	$0408,$ffff,$ff00,	$330,$331,$332,$333
83DE6	.dc.w	$0408,$ffff,$ff00,	$334,$335,$336,$337
83DF4	.dc.w	$0408,$ffff,$ff00,	$338,$339,$33a,$33b
83E02	.dc.w	$0408,$ffff,$ff00,	$33c,$33d,$33e,$33f
83E10	.dc.w	$0413,$ffff,$ff00,	$340,$341,$342,$343	*   〃	 (Damaged)
83E1E	.dc.w	$0413,$ffff,$ff00,	$344,$345,$346,$347
83E2C	.dc.w	$0413,$ffff,$ff00,	$348,$349,$34a,$34b
83E3A	.dc.w	$0413,$ffff,$ff00,	$34c,$34d,$34e,$34f
83E48	.dc.w	$0413,$ffff,$ff00,	$350,$351,$352,$353
83E56	.dc.w	$0413,$ffff,$ff00,	$354,$355,$356,$357
83E64	.dc.w	$0413,$ffff,$ff00,	$358,$359,$35a,$35b
83E72	.dc.w	$0413,$ffff,$ff00,	$35c,$35d,$35e,$35f
83E80	.dc.w	$0413,$ffff,$ff00,	$360,$361,$362,$363
83E8E	.dc.w	$0413,$ffff,$ff00,	$364,$365,$366,$367
83E9C	.dc.w	$0413,$ffff,$ff00,	$368,$369,$36a,$36b
83EAA	.dc.w	$0413,$ffff,$ff00,	$36c,$36d,$36e,$36f
83EB8	.dc.w	$0413,$ffff,$ff00,	$370,$371,$372,$373
83EC6	.dc.w	$0413,$ffff,$ff00,	$374,$375,$376,$377
83ED4	.dc.w	$0413,$ffff,$ff00,	$378,$379,$37a,$37b
83EF2	.dc.w	$0413,$ffff,$ff00,	$37c,$37d,$37e,$37f

83EF0	.dc.l	$83f24,$83f32,$83f40,$83f4e,$83f5c,$83f6a,$83f78,$83f86
	.dc.l	$83f94,$83fa2,$83fb0,$83fbe,$83fbe
83F24	.dc.w	$0403,$ffff,$ff00,	$394,$395,$396,$397	*空母上の戦闘機
83F32	.dc.w	$040b,$ffff,$ff00,	$29f,$2a0,$2a1,$2a2	*横向き車
83F40	.dc.w	$040e,$ffff,$ff00,	$267,$268,$269,$26a	*トラック
83F4E	.dc.w	$040e,$ffff,$ff00,	$257,$258,$259,$25a	*上向きトラック
83F5C	.dc.w	$040e,$ffff,$ff00,	$287,$288,$289,$28a	*トラック
83F6A	.dc.w	$040e,$ffff,$ff00,	$277,$278,$279,$27a	*トラック
83F78	.dc.w	$040c,$ffff,$ff00,	$29b,$29c,$29d,$29e	*Classic_car?
83F86	.dc.w	$040b,$ffff,$ff00,	$297,$298,$299,$29a	*ワーゲン?
83F94	.dc.w	$0404,$ffff,$ff00,	$0f8,$0f9,$0fa,$0fb	*下向き固定TANK
83FA2	.dc.w	$0424,$ffff,$ff00,	$458,$459,$45a,$45b	*BOMBER列車
830B0	.dc.w	$0424,$ffff,$ff00,	$45c,$45d,$45e,$45f	*    〃
830BE	.dc.w	$0424,$ffff,$ff00,	$464,$465,$466,$467	*列車2?

83FCC	.dc.l	$8400c,$8401e,$8401e,$8401e,$8401e,$84030,$84030,$84030	*小型挺
	.dc.l	$84030,$84042,$84042,$84042,$84042,$8400c,$8400c,$8400c
8400C	.dc.w	$0619,$09ff,$ff00,	$680,$681,$682,$683,$3d0,$3d1
8401E	.dc.w	$0619,$09ff,$ff00,	$688,$689,$68a,$68b,$3d0,$3d1
84030	.dc.w	$0619,$09ff,$ff00,	$690,$691,$692,$693,$3d0,$3d1
84042	.dc.w	$0619,$09ff,$ff00,	$698,$699,$69a,$69b,$3d0,$3d1

84054	.dc.l	$84058	*下から出て3WAYの?
84058	.dc.w	$0b09,$17ff,$ff00,	$3e7,$3e8,$3e9,$3ea, $3ad,$3ae,$3af,$398, $399,$39a,$39e
84074	.dc.l	$84078	*上から出て3WAYの?
84078	.dc.w	$0b09,$18ff,$ff00,	$3eb,$3ec,$3ed,$3ee, $406,$400,$401,$402, $415,$416,$417
84094	.dc.l	$84098	*5WAYの?
84098	.dc.w	$1a09,$19ff,$ff00
	.dc.l	$3e703e8,$3e903ea,$3e703e8,$3e903ea,$3e703e8,$4370438,$439043a,$43b043c
	.dc.l	$42d042e,$42f0430,$4310432,$4330434,$4350436
840D2	.dc.l	$840d6	*艦橋砲台?
840D6	.dc.w	$0f19,$09ff,$ff00
	.dc.w	$44c,$44d,$44e,$44f, $450,$451,$453,$452, $454,$3e7,$3e8,$3e9, $3ea,$3e7,$3e8
840FA	.dc.l	$840fe	*5面ボス?
840FE	.dc.w	$3719,$09ff,$ff00
	.dc.l	$4800481,$4870486,$4af04ae,$4ad0482,$4b004b1,$4b2049c,$49d048c,$48b048a
	.dc.l	$4890488,$492049e,$49f04a0,$4a104a2,$4910490,$48f048e,$48d0493,$4a304a4
	.dc.l	$4a504a6,$4a70494,$4a80495,$4a90496,$4aa0498,$49704ab,$4ac03e7,$3e803e9
	.dc.l	$3ea03e7,$3e803e9,$3ea03e7
	.dc.w	$3e8

__何かの生存数?
	.dc.b	0	;84172
84173	.dc.b	0	;

84174	.dc.w	0
__2_COUNT__80FFA	.dc.b	0	*84176
84177	.dc.b	0
84178	.dc.b	0
84179	.dc.b	0
8417A	.dc.b	0
8417B	.dc.b	0
8417C	.dc.b	0
8417D	.dc.b	0

*----------------
INIT	*only( MAINから1回のみ? )	8417E
	m	<tst.b __垂直同期割り込みセットFLAG>	<bNE @F>
		m	<move #1,D1>	<lea $80100,A1>	<IOCS _VDISPST>
		move.b	#-1,__垂直同期割り込みセットFLAG
@@;
	BSR	TEXT_OFF
	BSR	SP_OFF
	BSR	GS01_OFF
	LP $3B,D0	<BSR WAIT_VDISP>	*1sec
	BSR	CLR__GRAM0
	BSR	CLR__TEXT0
	BSR	CLR__SP0~63
	BSR	CLR__BG1
	BSR	CLR__SP64~BG0
	BSR	CLR__SP_REG
	BSR	INIT__BG_PAL	*only?
	BSR	INIT__SP_PAL	* 〃
	BSR	SET__SPAL0_
	BSR	SET__G_PAL_	*only
	moveq	#0,D0
	m	<move.b	D0,__area2?>,	<move.b	D0,__area3?>,	<move.b	D0,__area?>
841F0	move.b	#0,__1UP_ITEMが既に出たか
841F8	move.l	#0,__面COUNTER
	move	#0,$86688
	m	<move $42000,D0>,	<and #7,D0>,	<move D0,__CREDIT>
	BSR	INIT__NUM_JIKI
	BSR	残機表示?
84222	BSR.s	INIT0
84224	move.b	#-1,__幕etc_FLAG
8422C RTS
*------
INIT0	*8422E
	moveq	#0,D0
	move.b	D0,__NO_縦SCROLL_FLAG
	move.b	D0,__ON_THE_GND_FLAG?
	move.b	#-1,__V_DISP_FLAG
	move.b	#2,__1or2
	move.b	#2,__常に2
84254	move.b	#2,__1or2__その2
8425C	move	#0,__GNDx
84264	move	#$70,__Fx_J
8426C	move	#$80,__Fy_J
	move.l	#0,g86698
	m	<move.b	#-1,__JOY0>	<move.b	#-1,__LOY_LAND>	<move.b	#-1,__JOY_OLD>
	move.b	#0,__自弾P段階?
	move.l	#0,$866A0
	move.l	#0,$866A4
	move.b	#0,__BOMBER使用中FLAG
	move.b	#0,__BOMBER爆発中FLAG
	move	#$78,__LANDING開始まで2秒待つCOUNTER
	move.b	#$20,$866AC
	move.l	#8,__866AE
	move.b	#0,__866B2_FLG
	move.b	#0,__J_DEAD_FLAG

	move	#$1C,__影LOCAL	*\28
	move.b	#0,__J_DEADING
	move.b	#0,__2_COUNT

	move.l	#0,$8B7F0
	move.l	#0,$8B7F4
84318	move.l	#0,$8B7F8
	move.l	#0,$8B7FC

	move.b	#$96,__復活時の手加減期間COUNTER	*\150
84334	move.b	#0,__Bマーク存在FLAG
8433C	move.b	#0,__bg1関係のstat_1
84344	move.b	#0,__bg1関係のstat_2

8434C	BSR	CLR__GRAM0
	BSR	CLR__SP0~63
	BSR	CLR__BG1
	BSR	CLR__SP64~BG0
	BSR	CLR__SP_REG
	BSR	左右T塗り	*only?
	BSR	GND__INIT	* 〃	地面のGRの
	BSR	855AA__INIT	* 〃
	BSR	8BD14__INIT	* 〃	敵パラメータとかのINIT?
	m	<BSR 80D20>	<move D7,__何かの生存数?>
	BSR	J_PUT1
	BSR	84ED4__INIT	* 〃
	BSR	INIT__NUM_BOMBER
	clr.b	__V_DISP_FLAG
	m	<tst.b __幕etc_FLAG>	<bEQ @F>
		BSR	幕閉め
		m	<BSR TEXT_ON>	<BSR SP_ON>	<BSR GS01_ON>
		BSR	幕開け
@@;
	move.b	#0,__幕etc_FLAG
 RTS
*-----------------------
BOMBER廻り	*only( MAIN 〜 )	843B2
	PUSH	D0/A6
	m	<lea $B1000,A6>	<moveq #$7F,D0>
@@		M	<cmp #$8800,(A6)>	<bEQ EXIT__BOMBER廻り>	*BOMBERが生きてるか
		add	#$100,A6
	dbF	D0,@B
	m	<move.b	#0,__BOMBER使用中FLAG>	<move.b	#0,__BOMBER爆発中FLAG>
	m	<move.l	#0,$8B7F0>	<move.l	#0,$8B7F4>
	m	<move.l	#0,$8B7F8>	<move.l	#0,$8B7FC>
EXIT__BOMBER廻り	m	<POP D0/A6>	RTS
*----------------------
8440A *( A6	)	only( MK_敵弾 〜 )
	PUSH	D2-D4/A5-A6,
	m	<moveq #0,D0>	<move.b	$80(A6),D0>	<lsl #3,D0>
	m	<lea $B0600,A6>	<add D0,A6>
	m	<moveq #0,D0>	<move.l	D0,D1>	<move.l	D0,D2>	<move.l	D0,D3>	*CLR
	m	<move (A6)+,D0>	<move (A6),D1>
	m	<move $B0600,D2>	<add __SA？_J_X,D2>
	m	<move $B0602,D3>	<add __SA？_J_Y,D3>

	m	<sub D0,D2>	<ext.l D2>	<move.l	D2,D0>
	m	<sub D1,D3>	<ext.l D3>	<move.l	D3,D1>
	IFn EQ	<and.l D2,D2>	<divs #$10,D2>
	IFn PL	<muls D2,D2>	<neg.l D2>
	IFn EQ	<and.l D3,D3>	<divs #$10,D3>
	IFn PL	<muls D3,D3>	<neg.l D3>

	m	<add.l D2,D3>	<bEQ @F>
	m	<cmp.l #$200,D3>	<bCC @F>
		moveq	#0,D4
		m	<lea $867E6,A5>	<add.l D3,D3>	<add.l D3,A5>
		m	<move (A5),D4>	<mulu #$10,D4>	<muls #$64,D0>	<muls #$64,D1>
		m	<and.l D0,D0>	<bEQ @F>
			IFn2 EQ	<divs D4,D0>	<and.l D1,D1>	<divs D4,D1>
			POP	D2-D4/A5-A6
		 RTS

@@:	move	#-1,D0
	POP	D2-D4/A5-A6
 RTS
*------------------
DIR_弾 *( A5 )	844AC
	m	<move.b	(A5),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>		<lsr #4,D1>
	m	<move (A5),D2>		<lsr #4,D2>
	m	<move $B0600,D3>	<lsr #4,D3>
	m	<move $B0602,D4>	<lsr #4,D4>
	moveq	#$10,D0
	m	<cmp D1,D3>	<bNE @F>
		m	<cmp D2,D4>		<bEQ EXIT__DIR_弾>

@@:	m	<cmp D1,D3>	<bNE.s 844EA>
		m	<cmp D2,D4>	<bCC @F>
			m	<moveq #0,D0>	<BRA EXIT__DIR_弾>

@@:		m	<moveq #8,D0>		<BRA EXIT__DIR_弾>

844EA	m	<cmp D2,D4>	<bNE.s 844FA>
		m	<cmp D1,D3>	<bCC @F>
			m	<moveq #$C,D0>	<BRA EXIT__DIR_弾>

@@:		m	<moveq #4,D0>		<BRA EXIT__DIR_弾>

844FA
	m	<cmp D1,D3>	<bCC.s 84532>
	m	<cmp D2,D4>	<bCC.s 8451A>
	m	<sub D3,D1>	<sub D4,D2>	<cmp D1,D2>	<bNE @F>
		m	<moveq #$E,D0>		<BRA EXIT__DIR_弾>

@@:	m	<cmp D1,D2>	<bCC @F>
		m	<moveq #$D,D0>		<BRA EXIT__DIR_弾>

@@:	m	<moveq #$F,D0>			<BRA EXIT__DIR_弾>

8451A	m	<sub D3,D1>	<sub D2,D4>	<cmp D1,D4>	<bNE @F>
		m	<moveq #$A,D0>		<BRA EXIT__DIR_弾>

@@:	m	<cmp D1,D4>	<bCC @F>
		m	<moveq #$B,D0>		<BRA EXIT__DIR_弾>

@@:	m	<moveq #9,D0>			<BRA EXIT__DIR_弾>

84532
	m	<cmp D2,D4>	<bCC.s 8454E>
	m	<sub D1,D3>	<sub D4,D2>	<cmp D3,D2>	<bNE @F>
		m	<moveq #2,D0>		<BRA EXIT__DIR_弾>

@@:	m	<cmp D3,D2>	<bCC @F>
		m	<moveq #3,D0>		<BRA EXIT__DIR_弾>

@@:	m	<moveq #1,D0>			<BRA EXIT__DIR_弾>

8454E	m	<sub D1,D3>	<sub D2,D4>	<cmp D3,D4>	<bNE @F>
		m	<moveq #6,D0>		<BRA EXIT__DIR_弾>

@@:	m	<cmp D3,D4>	<bCC @F>
		m	<moveq #5,D0>		<BRA EXIT__DIR_弾>

@@:	m	<moveq #7,D0>			<BRA EXIT__DIR_弾>
EXIT__DIR_弾	RTS ( D0 )
*-------------------
はみ出たか *( A5	)	8456A	p
	m	<move.b	(A5),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$108,(A5)>	<bCC @F>
	m	<cmp #8,(A5)>		<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
	m	<cmp #$10,2(A5)>	<bCS @F>
		moveq	#0,D0
	 RTS ( D0 )

@@:	moveq	#$FF,D0
 RTS ( D0 )
*--------------------
84592
	m	<add D1,D1>	<subq.w	#3,D1>
	m	<move.b	(A0),D0>	<BSR PTRSETinSPREGBUF>	<move 4(A5),$845E4>
	m	<move.b	$FFFF(A0),D0>	<BSR PTRSETinSPREGBUF>	<move 4(A5),$845E6>
@@		m	<move.b	(A0),D0>	<BSR PTRSETinSPREGBUF>	<move.l	A5,A1>
		m	<move.b	$FFFE(A0),D0>	<BSR PTRSETinSPREGBUF>	<move 4(A5),4(A1)>
	M	<subq.l	#1,A0>	<dbF D1,@B>
	m	<move.b	(A0),D0>	<BSR PTRSETinSPREGBUF>	<move $845E4,4(A5)>
	subq.l	#1,A0
	m	<move.b	(A0),D0>	<BSR PTRSETinSPREGBUF>	<move $845E6,4(A5)>
845E2 RTS
845E4	.dc.w	*,*
*-------------------
PTRSETinSPREGBUF	*845E8	p
	m	<and.l #$FF,D0>	<lsl #3,D0>	<lea $B0600,A5>	<add D0,A5>
 RTS ( A5 )
*-------------------
E_MOVE *( D0	)	845FA
	m	<subq.b	#1,D0>	<lsl #6,D0>	*×64
	m	<moveq #0,D1>	<move.b	$E(A6),D1>	<and.b #$F,D1>	<lsl.b #2,D1>
	m	<lea $8463E,A5>	<add D1,D0>	<add.l D0,A5>
	m	<move (A5)+,D6>	<move (A5),D7>
	m	<move.l	A6,A4>	<add.l #$80,A4>
	lea	$B0600,A3
@@		M	<moveq #0,D2>	<move.b	(A4)+,D2>	<cmp.b #-1,D2>	<bEQ @F>
		m	<lsl #3,D2>	<add D6,0(A3,D2)>	<add D7,2(A3,D2)>
	BRA	@B
@@
 RTS
8463E	0000FFFF 0001FFFE 0001FFFF 0002FFFF	00010000 00020001 00010001 00010002
	00000001 FFFF0002 FFFF0001 FFFE0001	FFFF0000 FFFEFFFF FFFFFFFF FFFFFFFE

8467E	0000FFFE 0001FFFE 0002FFFE 0002FFFF	00020000 00020001 00020002 00010002
	00000002 FFFF0002 FFFE0002 FFFE0001	FFFE0000 FFFEFFFF FFFEFFFE FFFFFFFE

	0000FFFD 0003FFFC 0003FFFD 0004FFFD	00030000 00040003 00030003 00030004
	00000003 FFFD0004 FFFD0003 FFFC0003	FFFD0000 FFFCFFFD FFFDFFFD FFFDFFFC

	0000FFFC 0002FFFC 0004FFFC 0004FFFE	00040000 00040002 00040004 00020004
8471E	00000004 FFFE0004 FFFC0004 FFFC0002	FFFC0000 FFFCFFFE FFFCFFFC FFFEFFFC
*--------------------
敵の?属性等変更? *( A6	)	8473E
	moveq	#$A,D7
	IFn NE	<move.l	0(A6,D7),D0>	<moveq #6,D7>	<move.l	0(A6,D7),D0>
	move.l	D0,A5

8474E
	move	(A5)+,D0
	m	<moveq #0,D1>	<move D0,D1>	<and #$F000,D1>
	m	<rol #4,D1>	<lsl #2,D1>
	m	<lea $84768,A4>	<add.l D1,A4>	<move.l	(A4),A4>	<JMP (A4)>

84768	.dc.l	$847A8,$847CA,$847DA,$847E2,$847EA,$847F4,$847FE,$84804
	.dc.l	$84812,$84824,$84828,$84828,$84828,$84828,$84828,$8482C

847A8
	bset.b	#7,$E(A6)	*今だ動け！?
	m	<move D0,D1>	<and #$F00,D1>	<lsr #8,D1>	;
	m	<and.b	#$F0,$E(A6)>	<or.b D1,$E(A6)>	;方向
	move.b	D0,$F(A6)
	move.l	A5,0(A6,D7)
 RTS

847CA
	bclr.b	#7,$E(A6)	*まだ動くな?
	move.b	D0,$F(A6)
	move.l	A5,0(A6,D7)
 RTS

847DA	M	<bclr.b	#5,(A6)>	<BRA 8474E>
847E2	M	<bset.b	#5,(A6)>	<BRA 8474E>
847EA	M	<bset.b	#5,$E(A6)>	<BRA 8474E>
847F4	M	<bclr.b	#5,$E(A6),	<BRA 8474E>
847FE	M	<move.l	(A5),A5>	<BRA 8474E>

84804
	move.l	(A5)+,A4
	move.l	A5,0(A6,D7)
	moveq	#$A,D7
	move.l	A4,A5
	BRA	8474E

84812
	move.l	#0,0(A6,D7)
	moveq	#6,D7
	move.l	0(A6,D7),A5
	BRA	8474E

84824	BRA	8474E
84828	BRA	8474E

8482C
	bset.b	#4,$E(A6)	*ここで止まれ?
 RTS
*----------------
残りBOMBER_BONUS	*only( MAIN 〜 MV_JIKI 〜 )?	84834
	move.l	#0,$8674A
	BSR	84AC4	*only?
	move.b	#0,D7
@@		LP $1D,D0	<BSR WAIT_VDISP>	*.5sec
		movem.w	D7,-(A7)
			M	<move.b	__NUM_BOMBER,D7>	<bEQ @F>	*break
			m	<BSR SUB_BOMBER>	<move.b	D7,__NUM_BOMBER>
		movem.w	(A7)+,D7
		BSR	84954	*only?	TEXT
		addq.b	#1,D7
		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#5,D0>
			JSR	(A0)	*BOMBER数え音?
		POP	D0/A0
		movem.w	D7,-(A7)
			m	<move.l	$8674A,D7>	<add.l #300,D7> <move.l D7,$8674A>
			BSR	SCORE表示__残りBOMBER_BONUS
		movem.w	(A7)+,D7
	BRA	@B

@@:	movem.w	(A7)+,D7
@@		BSR	WAIT_VDISP
		M	<tst.l $8674A>	<bEQ @F>

		m	<move #$2D,D0>	<lea $E03807,A0>
		LP 7,D1	<BSR WR_TEXT>	<addq.l	#1,A0>
		m	<move.l	$8674A,D7>	<sub.l #$A,D7>	<move.l	D7,$8674A>
		BSR	SCORE表示__残りBOMBER_BONUS
		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#5,D0>
			JSR	(A0)	*BOMBER_BONUS加算音?
		POP	D0/A0
		m	<move.l	__SCORE,D7>	<add.l #$A,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
	BRA	@B

@@:	LP $78,D0	<BSR WAIT_VDISP>	*2sec
	m	<move #$2D,D0>	<lea $E02808,A0>	<move #9,D2>
@@		PUSH	A0
			LP $F,D1	<BSR WR_TEXT>	<addq.l	#1,A0>
		POP	A0
		add.l	#$400,A0
	dbF	D2,@B
	BSR	INIT__NUM_BOMBER
 RTS
*--
84954 *( D7	)	only( MAIN 〜 MV_JIKI 〜 残りBOMBER_BONUS 〜 )?
	PUSH	D0-D1/D7/A0
	m	<moveq #0,D1>	<move.b	D7,D1>
	addq.b	#1,D7
	lsl.b	#2,D1
	m	<lea $84982,A0>	<add.l D1,A0>
	m	<move.l	(A0),A0>	<move #$3B1,D0>	<BSR WR_TEXT>
	m	<subq.l	#1,A0>		<move #$3B0,D0>	<BSR WR_TEXT>
	POP	D0-D1/D7/A0
 RTS
84982	E0400A E0400D E04010 E04013	E04016 E0440A E0440D E04410
	E04413 E04416 E0480A E0480D	E04810 E04813 E04816 E04C0A
849C2	E04C0D E04C10 E04C13 E04C16
*--
SCORE表示__残りBOMBER_BONUS	*849D2
	PUSH	D0/D7A0-A1
	moveq	#0,D0
@@	M	<sub.l #$989680,D7 *\10000000>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$8674E>	<add.l #$989680,D7>	<moveq #0,D0>
@@	M	<sub.l #$F4240,D7 *\1000000>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$8674F>	<add.l #$F4240,D7>	<moveq #0,D0>
@@	M	<sub.l #$186A0,D7 *\100000>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86750>	<add.l #$186A0,D7>	<moveq #0,D0>
@@	M	<sub.l #$2710,D7 *\10000>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86751>	<add.l #$2710,D7>	<moveq #0,D0>
@@	M	<sub.l #$3E8,D7 *\1000>		<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86752>	<add.l #$3E8,D7>	<moveq #0,D0>
@@	M	<sub.l #$64,D7 *\100>		<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86753>	<add.l #$64,D7>	<moveq #0,D0>
@@	M	<sub.l #$A,D7 *\10>		<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	move.b	D0,$86754
	m	<add.l #$A,D7>	<move.b	D7,$86755>
	m	<lea $8674E,A1>	<lea $E03807,A0>	<moveq #8,D7>
@@		M	<tst.b (A1)>	<bNE @F>
		m	<addq.l	#1,A1>	<addq.l	#1,A0>
	m	<subq.b	#1,D7>	<bNE @B>
	BRA.s	84ABE

@@:	m	<moveq #0,D0>	<subq.b	#1,D7>
@@		m	<move.b	(A1)+,D0>	<BSR WR_TEXT>	<addq.l	#1,A0>
	dbF	D7,@B

84ABE	POP	D0/D7/A0-A1
 RTS
*--
84AC4	*only( MAIN 〜 MV_JIKI 〜 残りBOMBER_BONUS 〜 )
	PUSH	D0/A0-A1
	m	<lea $86C18,A1>	<lea $E02808,A0>
84AD4		PUSH	A0
@@			move	(A1)+,D0
			M	<cmp #$FFFE,D0>	<bEQ.s 84AEE>
			M	<cmp #$FFFF,D0>	<bEQ.s 84AFA>
			BSR	WR_TEXT
			addq.l	#1,A0
		BRA	@B
84AEE		m	<POP A0>	<add.l #$800,A0>
	BRA.s	84AD4
84AFA
	POP	A0
	POP	D0/A0-A1
 RTS
*-----------------
LANDING_自機を真ん中辺りに	*only( MAIN 〜 MV_JIKI 〜 )	84B04
	M	<cmp.b #4,__BGM_CODE>	<bEQ @F>
		m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>
		m	<move.b	#4,D0>	<move.b	D0,__BGM_CODE>	<JSR (A0)>
@@;
	m	<move.b	g8675E,D0>	<addq.b	#1,D0>	<move.b	D0,g8675E>
	IFn NE	<and.b #7,D0 *%111>	<move.b	__LOY_LAND,__JOY0>

	move.b	#$FF,D0			*自機が真ん中に来たか
	M	<cmp #$80,$B0600>	<bEQ.s 84B5E>	<bCC @F>
		M	<bclr.l	#3,D0>	<BRA 84B5E>

@@:		M	<bclr.l	#2,D0>	<*BRA 84B5E>
84B5E

	M	<cmp #$C0,$B0602>	<bEQ.s 84B74>	<bCC @F>
		M	<bclr.l	#1,D0>	<BRA.s 84B74>

@@:		bclr.l	#0,D0
84B74
	move.b	D0,__LOY_LAND
 RTS
*-----------------
LANDING_縮小	*only?	84B7C
	m	<move.b	$866AC,D0>	<addq.b	#1,D0>	<move.b	D0,$866AC>
	M	<tst __影LOCAL>	<bEQ @F>
	M	<and.b #7,D0>	<bNE @F>
		subq.w	#1,__影LOCAL
		m	<subq.w	#1,$B0620>	<subq.w	#1,$B0622>
		m	<subq.w	#1,$B0628>	<subq.w	#1,$B062A>
		m	<subq.w	#1,$B0630>	<subq.w	#1,$B0632>
		m	<subq.w	#1,$B0638>	<subq.w	#1,$B063A>
@@;
	M	<move.b	$866AC,D0>	<and.b #$3F,D0 *%11_1111>	<bNE @F>
	M	<cmp.l #5,__866AE>	<bEQ @F>
		subq.l	#1,__866AE
		m	<move $B0600,D1>	<move $B0602,D2>
		m	<sub #$10,D1>		<sub #$10,D2>
		m	<move D1,__Fx_J>	<move D2,__Fy_J>
		m	<lea $B1000,A6>	<BSR 生存登録抹消>
		BSR	J_PUT2
@@;
 RTS
*-------------------
TAKEOFF	*only?	84C1C
	M	<cmp.b #1,__BGM_CODE>	<bEQ.s 84C68>	*1面前置きBGMか
	M	<cmp.b #4,__BGM_CODE>	<bNE.s 84C68>	*LANDING_BGMか
@@			move.l	__面COUNTER,D0
			lea	$84D82,A0
			add.l	D0,A0
			move.b	(A0),D0
			M	<cmp.b #-1,D0>	<bNE @F>	*break
		M	<move.l	#0,__面COUNTER>	<BRA @B>

@@:		addq.l	#1,__面COUNTER
		m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>	<move.b	D0,__BGM_CODE>
		JSR	(A0)
84C68;
	m	<cmp #$90,$B0602 *\144>	<bEQ @F>
		m	<subq.w	#1,$B0602>	<subq.w	#1,$B060A>	*y座標
		m	<subq.w	#1,$B0612>	<subq.w	#1,$B061A>
		m	<subq.w	#1,$B0622>	<subq.w	#1,$B062A>
		m	<subq.w	#1,$B0632>	<subq.w	#1,$B063A>
		BRA	EXIT__TAKEOFF

@@:	move.b	#0,__NO_縦SCROLL_FLAG
	m	<move.b	$866AC,D0>	<addq.b	#1,D0>	<move.b	D0,$866AC>
	m	<and.b #7,D0>	<bNE @F>
		addq.w	#1,__影LOCAL
		m	<addq.w	#1,$B0620>	<addq.w	#1,$B0622>	*影xy
		m	<addq.w	#1,$B0628>	<addq.w	#1,$B062A>
		m	<addq.w	#1,$B0630>	<addq.w	#1,$B0632>
		m	<addq.w	#1,$B0638>	<addq.w	#1,$B063A>
@@;
	m	<move.b	$866AC,D0>	<and.b #$3F,D0 *%11_1111>	<bNE EXIT__TAKEOFF>
	m	<cmp.l #8,__866AE>	<bEQ.s 84D46>
		addq.l	#1,__866AE
		m	<move $B0600,D1>	<move $B0602,D2>
		m	<sub #$10,D1>		<sub #$10,D2>
		m	<move D1,__Fx_J>	<move D2,__Fy_J>
		m	<lea $B1000,A6>	<BSR 生存登録抹消>
		BSR	J_PUT2
EXIT__TAKEOFF	RTS
84D46	move.b	#-1,__LOY_LAND
	move	#$78,__LANDING開始まで2秒待つCOUNTER	*\120
	move.b	#$20,$866AC
	move.l	#8,__866AE
	move.b	#0,__866B2_FLG
	move.b	#0,__ON_THE_GND_FLAG?
	move.b	#0,__NO_縦SCROLL_FLAG
 RTS
84D82  0306 0907 FF00
*-----------------
J_PUT1	*84D88
	PUSH	D0
	move.l	g86698,D0
	m	<move __Fx_J,D1>	<move __Fy_J,D2>
	m	<addq.w	#8,D1>		<add #$18,D2>
	m	<lea __自機TBL,A0>	<BSR 8B59C>
	move	#0,(A6)
	move.l	#0,$E(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>

	m	<moveq #$1C,D3>	<moveq #$1C,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #$1C,D3>	<add #$10,D4>
	POP	D0
 RTS
*-----------------
J_PUT2
	move.l	__866AE,D0
	m	<move __Fx_J,D1>	<move __Fy_J,D2>
	m	<addq.w	#8,D1>		<add #$18,D2>
	m	<lea __自機TBL,A0>	<BSR 8B59C>
	move	#0,(A6)
	move.l	#0,$E(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#3,D6
	IFn NE	<cmp.l #5,__866AE>	<move #1,D6>
	m	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
	m	<moveq #0,D3>	<move __影LOCAL,D3>
	m	<moveq #0,D4>	<move __影LOCAL,D4>
	move	#1,D5
@@		LP 1,D0	<BSR SP_SET>	<add #$10,D3>
		m	<moveq #0,D3>	<move __影LOCAL,D3>
		m	<moveq #0,D4>	<move __影LOCAL,D4>
		add.l	#$10,D4
	dbF	D5,@B
 RTS
*-------------------
84ED4__INIT	*only( INIT0 〜 )
	lea	$ACF00,A0
	m	<moveq #0,D0>	<move.b	__area?,D0>	<lsl #2,D0>
	add.l	D0,A0
	move.l	(A0),__EN_出現パターン関係のADRS
	move.b	#0,__（＋1／8dot）and63
	M	<btst #1,__bg1関係のstat_1>	<bNE.s 84F22>
@@			BSR.s	84F50
			LP 7,D5	{
				<BSR SCROLLに合わせて敵のy座標を＋1__その1>
				<BSR SCROLLに合わせて敵のy座標を＋1__その2>
			}
			M	<cmp.b #$2C,__（＋1／8dot）and63 *\44>	<bEQ.s 84F4A>

			addq.b	#1,__（＋1／8dot）and63	*初期化時は別
		BRA	@B
84F22;
@@			BSR.s	84F50
			LP 7,D5	{
				<BSR SCROLLに合わせて敵のy座標を＋1__その1>
				<BSR SCROLLに合わせて敵のy座標を＋1__その2>
				<BSR SCROLLに合わせて敵のy座標を＋1__その2>
			}
			M	<cmp.b #$2C,__（＋1／8dot）and63 *\44>	<bEQ.s 84F4A>

			addq.b	#1,__（＋1／8dot）and63
		BRA	@B
84F4A;	~}
	BSR	SP座標整え
 RTS
*--
84F50	*INIT0 〜 84ED4__INITからのみ
	m	<cmp.b #$40,__（＋1／8dot）and63 *\64>	<bNE @F>
		move.b	#0,__（＋1／8dot）and63
		m	<lea $ACF00,A0>	<moveq #0,D0>	<move.b	__area?,D0>
		m	<addq.b	#1,D0>	<move.b	D0,__area?>
		m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),__EN_出現パターン関係のADRS>
@@;
	move.l	__EN_出現パターン関係のADRS,A0
@@		m	<move.l	(A0),D0>	<cmp.l #-1,D0>	<bEQ @F>
		swap	D0
		m	<lsr #8,D0>	<lsr #2,D0>	<cmp.b __（＋1／8dot）and63,D0>	<bNE @F>
		IFn EQ	<btst #$18,(A0)>	<BSR MK?_TEKI>
		addq.l	#4,A0
	BRA	@B

@@:	move.l	A0,__EN_出現パターン関係のADRS
 RTS
*------------------
MK?＆PUT_TEKI	*only?( MAIN 〜 )	*84FB6	p
	m	<cmp.b #$40,__（＋1／8dot）and63 *\64>	<bNE @F>
		move.b	#0,__（＋1／8dot）and63
		lea	$ACF00,A0
		m	<moveq #0,D0>	<move.b	__area?,D0>	<addq.b	#1,D0>
		IFn NE	<cmp.b #$32,D0 *\50>	<move.b	#8,D0>
		m	<move.b	D0,__area?>	<lsl #2,D0>
		m	<add.l D0,A0>	<move.l	(A0),__EN_出現パターン関係のADRS>
@@;
	move.l	__EN_出現パターン関係のADRS,A0
@@		M	<move.l	(A0),D0>	<cmp.l #-1,D0>	<bEQ @F>
		m	<swap D0>	<lsr #8,D0>	<lsr #2,D0>
		M	<cmp.b __（＋1／8dot）and63,D0>	<bNE @F>
		IFn NE	<tst.b __ON_THE_GND_FLAG?>	<BSR MK?_TEKI>
		addq.l	#4,A0
	BRA	@B

@@:	move.l	A0,__EN_出現パターン関係のADRS
 RTS
*--------------------
幕閉め	*85028
	m	<lea $E60001,A1>	<lea $E6001E,A2>	<move.b	#-1,D0>	<move #$E,D2>
@@		BSR	WAIT_VDISP
		m	<move.l A1,A0>	<BSR.s 85086>
		m	<move.l	A2,A0>	<BSR.s 85086>
		m	<addq.l	#1,A1>	<subq.l	#1,A2>
	dbF	D2,@B
 RTS
*-------------------
幕開け	*85052
	LP $3B,D2	<BSR WAIT_VDISP>	*1sec
	m	<lea $E6000F,A1>	<lea $E60010,A2>	<move.b	#0,D0>	<move #$E,D2>
@@		BSR	WAIT_VDISP
		m	<move.l	A1,A0>	<BSR.s 85086>
		m	<move.l	A2,A0>	<BSR.s 85086>
		m	<subq.l	#1,A1>	<addq.l	#1,A2>
	dbF	D2,@B
 RTS
* - -
85086			*幕閉め,幕開け内からしか呼ばれない
	PUSH	D0-D1/A0
	LP $1F,D1	<REPT 8>	<move.b	D0,(A0)>	<add.l	#$80,A0>	ENDM
	POP	D0-D1/A0
 RTS
*-----------------
WAIT_VDISP	*850D8
	move.b	#-1,__垂直帰線期間毎にCLR
@@	M	<tst.b __垂直帰線期間毎にCLR>	<bNE @B>
 RTS
*-----------------
SCORE表示 *( (__SCORE.l)=D7 )	850EA
	PUSH	D0/D7/A0-A1
	moveq	#0,D0
@@	M	<sub.l #$989680,D7>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86742>	<add.l #$989680,D7>	<moveq #0,D0>
@@	M	<sub.l #$F4240,D7>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86743>	<add.l #$F4240,D7>	<moveq #0,D0>
@@	M	<sub.l #$186A0,D7>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86744>	<add.l #$186A0,D7>	<moveq #0,D0>
@@	M	<sub.l #$2710,D7>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86745>	<add.l #$2710,D7>	<moveq #0,D0>
@@	M	<sub.l #$3E8,D7 *\1000>	<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86746>	<add.l #$3E8,D7>	<moveq #0,D0>
@@	M	<sub.l #$64,D7>		<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	m	<move.b	D0,$86747>	<add.l #$64,D7>	<moveq #0,D0>
@@	M	<sub.l #$A,D7>		<bCS @F>	<addq.b	#1,D0>	<BRA @B>
@@;
	move.b	D0,$86748
	add.l	#$A,D7
	move.b	D7,$86749
	lea	$86742,A1
	lea	$E00002,A0
	moveq	#8,D7
@@		m	<tst.b (A1)>	<bNE @F>
		m	<addq.l	#1,A1>	<addq.l	#1,A0>
	m	<subq.b	#1,D7>	<bNE @B>
	BRA.s	851D6

@@:	m	<moveq #0,D0>	<subq.b	#1,D7>
@@		m	<move.b	(A1)+,D0>	<BSR WR_TEXT>	<addq.l	#1,A0>
	dbF	D7,@B
851D6
	POP	D0/D7/A0-A1
 RTS
*------------------
残機表示?	*851DC
	PUSH	D0-D1/A0
	lea	$E00002,A0	*TRAM0中
	m	<move #$2D,D0>	<LP 7,D1 <BSR WR_TEXT>	<addq.l	#1,A0>>
	m	<move #0,D0>		 <BSR WR_TEXT>
	move.l	#0,__SCORE
	POP	D0-D1/A0
 RTS
*-------------------
INIT__NUM_JIKI	*85210
	PUSH	D0/D7
	m	<move.b	#$A,D7>	<LP 9,D0 <BSR SUB_JIKI>>	*E07C0A	TRAM3中
	m	<move.b	#0,D7>		<LP 1,D0 <BSR ADD_JIKI>>
	move.b	#2,__NUM_JIKI
	POP	D0/D7
 RTS
*-------------------
INIT__NUM_BOMBER	*8523E
	PUSH	D0/D7
	m	<move.b	#$A,D7>	<LP 9,D0 <BSR SUB_BOMBER>>
	m	<move.b	#0,D7>	<LP 2,D0 <BSR ADD_BOMBER>>
	move.b	#3,__NUM_BOMBER
	POP	D0/D7
 RTS
*------------------
ADD_JIKI	*85270
	PUSH	D0-D1/A0
	m	<cmp.b #$A,D7>	<bEQ.s 852B8>	*break

	m	<moveq #0,D1>	<move.b	D7,D1>	<addq.b	#1,D7>	<lsl.b #2,D1>
	m	<lea $852BE,A0>	<add.l D1,A0>
	m	<move.l	(A0),A0>	<move #$2F,D0>	<BSR WR_TEXT>
	BRA.s	852B8
*------------
SUB_JIKI	*85296
	PUSH	D0-D1/A0
	m	<tst.b D7>	<bEQ 852B8>	*break

	m	<moveq #0,D1>	<subq.b	#1,D7>	<move.b	D7,D1>	<lsl.b #2,D1>
	m	<lea $852BE,A0>	<add.l D1,A0>
	m	<move.l	(A0),A0>	<move #$2D,D0>	<BSR WR_TEXT>
852B8
	POP	D0-D1/A0
 RTS
*-----
852BE	.dc.l	$E07C01,$E07C02,$E07C03,$E07C04
	.dc.l	$E07C05,$E07C06,$E07C07,$E07C08
	.dc.l	$E07C09,$E07C0A,$48E7C080,$BE3C000A
*----------------
ADD_BOMBER	*852E6
	PUSH	D0-D1/A0
	m	<cmp.b #$A,D7>	<bEQ EXIT__ADD＆SUB_BOMBER>

	m	<moveq #0,D1>	<move.b	D7,D1>	<addq.b	#1,D7>	<lsl.b #2,D1>
	m	<lea $85340,A0>	<add.l D1,A0>
	m	<move.l	(A0),A0>	<move #$3B1,D0>	<BSR WR_TEXT>
	m	<subq.l	#1,A0>		<move #$3B0,D0>	<BSR WR_TEXT>
	BRA	EXIT__ADD＆SUB_BOMBER
*-------
SUB_BOMBER	*85312
	PUSH	D0-D1/A0
	m	<tst.b D7>	<bEQ EXIT__ADD＆SUB_BOMBER>

	m	<moveq #0,D1>	<subq.b	#1,D7>	<move.b	D7,D1>	<lsl.b #2,D1>
	m	<lea $85340,A0>	<add.l D1,A0>
	m	<move.l	(A0),A0>	<move #$2D,D0>	<BSR WR_TEXT>
	m	<subq.l	#1,A0>		<move #$2D,D0>	<BSR WR_TEXT>
EXIT__ADD＆SUB_BOMBER	m	<POP D0-D1/A0>	<RTS>
*-------
85340	E07C1E E07C1C E07C1A E07C18	E07C16 E07C14 E07C12 E07C10
	E07C0E E07C0C 48E7 C0C0 D040 D040
*----------------
WR_TEXT	*( D0	)	85368
	PUSH	D0-D1/A0-A1
	m	<add D0,D0>	<add D0,D0>	<move D0,D1>	<add D0,D0>	<add D1,D0>
	add	D0,D0	;D0=D0*24
	m	<lea $7A000,A1>	<add D0,A1>
	REPT	2
		m	<move.b	(A1)+,(A0)>	<move.b	(A1)+,$80(A0)>
		m	<move.b	(A1)+,$100(A0)>	<move.b	(A1)+,$180(A0)>
		m	<move.b	(A1)+,$200(A0)>	<move.b	(A1)+,$280(A0)>
		m	<move.b	(A1)+,$300(A0)>	<move.b	(A1)+,$380(A0)>
		add.l	#$20000,A0
	ENDM
	m	<move.b	(A1)+,(A0)>	<move.b	(A1)+,$80(A0)>
	m	<move.b	(A1)+,$100(A0)>	<move.b	(A1)+,$180(A0)>
	m	<move.b	(A1)+,$200(A0)>	<move.b	(A1)+,$280(A0)>
	m	<move.b	(A1)+,$300(A0)>	<move.b	(A1)+,$380(A0)>
	POP	D0-D1/A0-A1
 RTS
*---------------------
__B0000からのBGtable?のどれを使うか、に細工	*only( MAIN 〜 地形その他 〜 DRAW_BG 〜 )	853EC
	move	D0,-(A7)
	move.b	__B0000からのBGtable?のどれを使うか,D0
	M	<btst #2,__bg1関係のstat_1>	<bNE @F>
		subq.b	#1,D0						*　普通のスクロール?
		M	<cmp.b #-1,D0>		<bNE.s 85418>
		M	<move.b	#$11,D0 *\17>	<BRA.s 85418>
@@:
		IFn2 NE	<addq.b	#1,D0>	<cmp.b #$12,D0>	<move.b	#0,D0>	*　逆向きスクロール?
85418
	move.b	D0,__B0000からのBGtable?のどれを使うか
	move	(A7)+,D0
 RTS
*||
DRAW_BG	*only( MAIN 〜 地形その他 〜 )	85422
	M	<subq.b	#1,__16dot_ctr2>	<bNE @F>
		BSR.s	__B0000からのBGtable?のどれを使うか、に細工	*only?
		BSR	8573A
		IFn EQ	<cmp.b #1,__16dot毎のctr2>	<BSR READ_地形2CODE>
		move.b	#$A,__BACK2を10回に分けて描くctr
		move.b	#$10,__16dot_ctr2
		M	<subq.b	#1,__16dot毎のctr2>	<bNE @F>
			PUSH	D0/A0
				lea	$967A0,A0	*90000台
				m	<moveq #0,D0>	<move.b	__area3?,D0>	<addq.b	#1,D0>
				IFn NE	<cmp.b #$32,D0>	<move.b	#8,D0>
				m	<move.b	D0,__area3?>	<lsl #2,D0>
				m	<add.l D0,A0>	<move.l	(A0),A0>
				m	<move.l	A0,__ptr_地形2table>	<BSR READ_地形2CODE>

				move.b	#$20,__16dot毎のctr2
				IFn EQ	<btst #1,__bg1関係のstat_1>	{
					move.b	#$40,__16dot毎のctr2	*\64
				}
			POP	D0/A0
@@;
	M	<tst.b __BACK2を10回に分けて描くctr>	<bEQ.s 85506>
		PUSH	D0/D4-D5/A0-A2,
			m	<BSR.s SUB__DRAW_BG>	<BSR.s SUB__DRAW_BG>	;ここだけ
			M	<subq.b	#1,__BACK2を10回に分けて描くctr>	<bNE.s 85502>
			move.l	__bg_pointer,A0
			M	<btst #2,__bg1関係のstat_1>	<bNE @F>
				sub.l	#$150,A0
				M	<cmp.l #$EBDF00,A0>	<bNE.s 854FC>	*BG0_PCG内
				M	<move.l	#$EBFF00,A0>	<BRA.s 854FC>	*BG1_PCG内

@@:			IFn2 NE	<add.l #$B0,A0>	<cmp.l #$EC0000,A0>	<move.l	#_BG1_PCG,A0>
854FC
			move.l	A0,__bg_pointer
85502
		POP	D0/D4-D5/A0-A2
85506
 RTS
*--
SUB__DRAW_BG	*DRAW_BGからのみ	85508
	moveq	#0,D0
	move.l	$8670A,A0

	lea	$B0402,A1
	m	<move.b	(A0)+,D0>	<lsl.b #2,D0>	<add.l D0,A1>	<subq.w	#1,(A1)>
	lea	$B0502,A1
	m	<move.b	(A0)+,D0>	<lsl.b #2,D0>	<add.l D0,A1>	<subq.w	#1,(A1)>

	move.l	A0,$8670A

	m	{
		<move.l	__bg_pointer,A0>	<move.l	__地形2code_buf内のpointer?,A1>
		<move.l	$86706,A2>
	}
		m	<move (A1)+,D0>	<BSR 地形のPCG定義 → ( D4:bg_pcg_code?,D5:pal_code? )>
		m	<move.b	D4,(A2)+>	<move.b	D5,(A2)+>
		lsl #2,D4
		m	<addq.w	#1,D5>	<lsl #8,D5>
		m	<or D5,D4>	<move D4,(A0)>
		m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
		m	<addq.b	#1,D4>	<move D4,(A0)>
		m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
	m	{
		<move.l	A0,__bg_pointer>	<move.l	A1,__地形2code_buf内のpointer?>
		<move.l	A2,$86706>
	}
 RTS
*------------------
85580 *( A1 )	only( 855AA__INIT 〜 )
	movem.w	D0-D2,-(A7)
	move	#$153,D0	*\339
@@		M	<move (A1)+,D1>	<btst #1,D1>	<bNE @B>
		M	<btst #0,D1>	<bEQ SK1__85580>
			move	(A1)+,D2
			m	<lsr #2,D1>	<sub D1,D0>	<bCS EXIT__85580>
			BRA	@B

SK1__85580;
	dbF	D0,@B

EXIT__85580	m	<movem.w (A7)+,D0-D2> <RTS ( (A1) )>
*||
855AA__INIT	*only?
	BSR	85990__INIT	*only?
	m	<lea _BG0_SC,A1>	<move.l	#$200100,(A1)>	<move.l	#$200100,__BG_X>
	lea	$967A0,A0	*90000台
	m	<moveq #0,D0>	<move.b	__area3?,D0>	<lsl #2,D0>
	add.l	D0,A0
	move.l	(A0),A1
	move	(A1),D0
	M	<lsr #2,D0>	<btst #1,D0>	<bEQ @F>
		m	<move.b	D0,__bg1関係のstat_1>	<move.b	D0,__bg1関係のstat_2>
		BSR.s	85580	*only?
@@:	lea	$EBFF00,A0
	lea	$B02A8,A2
	move	#$F,D7
	BSR	一画面分のBG1_DEF_CHR
	m	<lea _BG1_PCG,A0>	<lea $B0000,A2>
	move.b	#1,__B0000からのBGtable?のどれを使うか
	move.l	#$EBE100,__bg_pointer
	m	<btst #2,__bg1関係のstat_1>	<bNE @F>	*1ならBG1を逆スクロール?
		m	<lea $EBEF00,A0>	<lea $B0028,A2>
		move.b	#0,__B0000からのBGtable?のどれを使うか
		move.l	#$EBEE00,__bg_pointer
@@;
	m	<move #0,D7>	<BSR.s 一画面分のBG1_DEF_CHR>
	move.l	A1,__ptr_地形2table
	BSR	READ_地形2CODE
	BSR	8573A
	move.b	#$A,__BACK2を10回に分けて描くctr
	move.b	#$10,__16dot_ctr2
	move.b	#$1E,__16dot毎のctr2
	IFn NE	<btst #1,__bg1関係のstat_1>	<move.b	#$F,__16dot毎のctr2>
	m	<move.l	$8670A,A2>	<*move #$13,D1>	<move #$3FC,D0>
	LP $13,D1	<BSR 地形のPCG定義>	<move.b	D4,(A2)+>	<move.b	D5,(A2)+>
 RTS
*--
一画面分のBG1_DEF_CHR ?	*( A0 , A1 )	856A4
~LOOP1__一画面分のBG1_DEF_CHR
		move	#$13,D6
~~LOOP2__一画面分のBG1_DEF_CHR
			move	(A1)+,D0
			M	<btst #1,D0>	<bNE ~~~CONTINUEもどき_LOOP2__一画面分のBG1_DEF_CHR>
			M	<btst #0,D0>	<bNE @F>
				BSR	地形のPCG定義 → ( D4:bg_pcg_code? , D5:pal_code? )
				m	<move.b	D4,(A2)+>	<move.b	D5,(A2)+>
				lsl	#2,D4
				m	<addq.w	#1,D5>	<lsl #8,D5>
				m	<or D5,D4>	<move D4,(A0)>
				m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
				m	<addq.b	#1,D4>	<move D4,(A0)>
				m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
				BRA	~~END_LOOP2__一画面分のBG1_DEF_CHR

@@:			m	<lsr #2,D0>	<subq.w	#1,D0>	<move D0,D3>
			move	(A1)+,D0
@@				BSR	地形のPCG定義 → ( D4:bg_pcg_code? , D5:pal_code? )

				m	<move.b	D4,(A2)+>	<move.b	D5,(A2)+>
				lsl	#2,D4
				m	<addq.w	#1,D5>	<lsl #8,D5>
				m	<or D5,D4>	<move D4,(A0)>
				m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
				m	<addq.b	#1,D4>	<move D4,(A0)>
				m	<addq.b	#1,D4>	<move D4,$80(A0)>	<addq.w	#2,A0>
				m	<subq.w	#1,D6>	<bCS ~END_~LOOP1__一画面分のBG1_DEF_CHR>

			dbF	D3,@B
			BRA	~~LOOP2__一画面分のBG1_DEF_CHR

~~~CONTINUEもどき_LOOP2__一画面分のBG1_DEF_CHR
			M	<btst #0,D0>	<bNE.s ~~LOOP2__一画面分のBG1_DEF_CHR>
			m	<lsr #2,D0>	<move.b	D0,__bg1関係のstat_1>
			BRA	~~LOOP2__一画面分のBG1_DEF_CHR

~~END_LOOP2__一画面分のBG1_DEF_CHR
		dbF	D6,~~LOOP2__一画面分のBG1_DEF_CHR
~END_LOOP1__一画面分のBG1_DEF_CHR
	M	<sub.l #$150,A0>	<sub #$50,A2>	<dbF D7,~LOOP1__一画面分のBG1_DEF_CHR>

 RTS
*-----------------
8573A	*初期化を除けばMAIN 〜 地形その他 〜 DRAW_BGからのみ
	PUSH	D0/A0
	m	<lea $85762,A0>	<moveq #0,D0>
	m	<move.b	__B0000からのBGtable?のどれを使うか,D0>	<lsl.b #2,D0>	<add.l D0,A0>
	m	<move.l	(A0),$86706>	<move.l	(A0),$8670A>
	POP	D0/A0
 RTS
85762	.dc.l	$B0000,$B0028,$B0050,$B0078,	$B00A0,$B00C8,$B00F0,$B0118	*\40ずつ?
	.dc.l	$B0140,$B0168,$B0190,$B01B8,	$B01E0,$B0208,$B0230,$B0258
	.dc.l	$B0280,$B02A8
*----------------------
READ_地形2CODE	*初期化を除けばMAIN 〜 地形その他 〜 DRAW_BGからのみ	857AA
	PUSH	D0-D2/A0-A1
	m	<move.l	__ptr_地形2table,A1>	<lea __buf_地形2code?,A0>	<move #$13,D1>
~LOOP__READ_地形2CODE
@@		move	(A1)+,D0
		m	<btst #1,D0>	<bNE.s 857E4>
		m	<btst #0,D0>	<bNE.s 857D4>
		move	D0,(A0)+
	dbF	D1,@B
	BRA	EXIT__READ_地形2CODE

857D4	lsr	#2,D0
	move	(A1)+,D2
@@		move	D2,(A0)+
		M	<subq.w	#1,D1>	<bCS EXIT__READ_地形2CODE>
	M	<subq.w	#1,D0>	<bNE @B>
	BRA.s	~LOOP__READ_地形2CODE

857E4	m	<btst #0,D0>	<bNE.s ~LOOP__READ_地形2CODE>
	move.b	__bg1関係のstat_1,__bg1関係のstat_2
	m	<lsr #2,D0>	<move.b	D0,__bg1関係のstat_1>
	BSR.s	BG1のySCROLL方向変更に因るADRS_ADJ	*only?
	BRA.s	~LOOP__READ_地形2CODE

EXIT__READ_地形2CODE
	move.l	#__buf_地形2code?,__地形2code_buf内のpointer?
	move.l	A1,__ptr_地形2table
	POP	D0-D2/A0-A1
 RTS
*--
BG1のySCROLL方向変更に因るADRS_ADJ	*only?	85816
	PUSH	D0-D1/A0
	m	<move.b	__bg1関係のstat_1,D0>	<and.b #4,D0 *%100>
	M	<move.b	__bg1関係のstat_2,D1>	<and.b #4,D1>	<cmp.b D0,D1>	<bEQ EXIT__85816>

	move.l	__bg_pointer,A0
	M	<btst #2,D0>	<bNE @F>
		M	<sub.l #$1300,A0>	<cmp.l #_BG1_PCG,A0>	<bCC.s 85874>
		M	<sub.l #_BG1_PCG,A0>	<add.l #$EC0000,A0>	<BRA.s 85874>

@@:		M	<add.l #$1300,A0>	<cmp.l #$EC0000,A0>	<bCS.s 85874>
		m	<sub.l #$EC0000,A0>	<add.l #_BG1_PCG,A0>
85874;	~}

	move.l	A0,__bg_pointer
EXIT__85816	m	<POP D0-D1/A0> RTS
*-----------------
地形のPCG定義 *( D0	)	85880
	PUSH	D0-D3/A0-A1
	m	<moveq #0,D1>	<move D0,D1>	<and #$FFC,D1>	<lsr #2,D1>
	m	<moveq #0,D2>	<move D0,D2>	<and #$F000,D2>	<rol #4,D2>
	m	<lea $B0400,A0>	<moveq #0,D3>	<move #$3F,D0>
@@		M	<cmp (A0),D1>	<bEQ.s 85920>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0402,A0>	<moveq #0,D3>
@@		M	<tst (A0)>	<bEQ @F>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	BRA	@B
@@;
	m	<move D1,$FFFE(A0)>	<addq.w	#1,(A0)>
	m	<lea _SP_PCG,A0>	<move D3,D4>	<lsl #7,D3>	<add.l D3,A0>
	m	<lea $10000,A1>	<lsl.l #7,D1>	<add.l D1,A1>	*地形
	m	<REPT 31>	<move.l	(A1)+,(A0)+>	ENDM,	<move.l	(A1),(A0)>	*計32
	BRA.s	85926

85920
	addq.w	#1,2(A0)
	move	D3,D4	*このD4は返り値

85926
	m	<lea $B0500,A0>	<moveq #0,D3>	<move #$E,D0>
@@		M	<cmp (A0),D2>	<bEQ.s 85984>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0502,A0>	<moveq #0,D3>	<move #$E,D0>
@@		m	<tst (A0)>	<bEQ F>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B
@@;
	move	D2,$FFFE(A0)
	addq.w	#1,(A0)
	m	<lea _SP_PAL1,A0>	<move D3,D5>	<lsl #5,D3>	<add.l D3,A0>
	m	<lea $9FE00,A1>	<lsl.l #5,D2>	<add.l D2,A1>
	m	<REPT 7>	<move.l	(A1)+,(A0)+>	ENDM,	<move.l	(A1),(A0)>	*計8
	BRA.s	EXIT__地形のPCG定義

85984
	addq.w	#1,2(A0)
	move	D3,D5	*このD5は返り値
EXIT__地形のPCG定義	m	<POP D0-D3/A0-A1> <RTS ( D4:bg_pcg_code? , D5:pal_code? )>
*----------------
85990__INIT	*only?( 855AA__INIT〜 )
	PUSH	D0-D1/A0,
	m	<lea $B0000,A0>	<moveq #$FF,D1>	<LP $C7,D0 <move.l D1,(A0)+ *\199>>
	m	<lea $B0400,A0>	<move.l	#$FFFF0000,D1>	<LP $3F,D0 <move.l D1,(A0)+>>
	m	<lea $B0500,A0>	<move.l	#$FFFF0000,D1>	<LP $0F,D0 <move.l D1,(A0)+>>
	POP	D0-D1/A0
 RTS
*-------------------
DRAW_GR	*only( MAIN 〜 縦SCROLL 〜 )	859D8
	move	D0,-(A7)
	IFn2 NE	<move.b	__16dot_ctr,D0>	<and.b #7,D0>	<addq.b	#1,__（＋1／8dot）and63>
	move	(A7)+,D0
	M	<subq.b	#1,__16dot_ctr>	<bNE @F>
		BSR	READ_地形CODE?
		move.b	#$A,__BACKを10回に分けて描くCOUNTER	*6回は休み
		move.b	#$10,__16dot_ctr
		M	<subq.b	#1,__16dot毎のctr>	<bNE @F>
			move.b	#$20,__16dot毎のctr
			PUSH	D0/A0
				lea	$A0000,A0
				m	<moveq #0,D0>	<move.b	__area2?,D0>	<addq.b	#1,D0>
				IFn NE	<cmp.b #$32,D0>	<move.b	#8,D0>
				move.b	D0,__area2?
				m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),A0>
				m	<move.l	A0,__ptr_地形table>	<BSR READ_地形CODE?>
			POP	D0/A0
@@;
	m	<tst.b __BACKを10回に分けて描くCOUNTER>	<bEQ.s 85AB2>	*EXIT
	PUSH	D0-D1/A0-A1
		m	<move.l	__地形code_buf内のpointer?,A1>	<move.l	__gr_pointer,A0>
		m	<BSR.s SUB__DRAW_GR>	<add.l #$20,A0>
		m	<BSR.s SUB__DRAW_GR>	<add.l #$20,A0>
		m	<move.l	A1,__地形code_buf内のpointer?>	<move.l	A0,__gr_pointer>
		M	<subq.b	#1,__BACKを10回に分けて描くCOUNTER>	<bNE @F>
			m	<move.l	__gr_pointer,A0>	<sub.l #$4280,A0 *\17024>
			IFn CC	<cmp.l #_GRAM,A0>	<lea $C7C000,A0>
			move.l	A0,__gr_pointer
@@;
	POP	D0-D1/A0-A1
85AB2	RTS
*--
SUB__DRAW_GR *( A0:__gr_pointer , A1	)	85AB4
	move	(A1)+,D1
	m	<moveq #0,D0>	<move D1,D0>	<and #$FFC,D0>	<lsr #2,D0>
	m	<rol #4,D1>	<and.b #$F,D1>
	BSR	DRAW_GR_16×16DOT
 RTS
*-----------------
GND__INIT	*only?
	lea	_CRTC_GS0_SC,A1
	move.l	#$200100,D0	*32,256
	m	<move.l	D0,(A1)+>	<move.l	D0,(A1)+>
	m	<move.l	D0,(A1)+>	<move.l	D0,(A1)>
	move.l	D0,__GSxy

	lea	$A0000,A0
	m	<moveq #0,D0>	<move.b	__area2?,D0>	*初期化時に0にされて……
	m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),A1>
	lea	$C7C000,A0	*G_PAGE1の半分の所
	move	#$10,D7
~LOOP1__GND__INIT
		move	#$13,D6
~~LOOP2_GND__INIT	;
				move	(A1)+,D1
			M	<btst #1,D1>	<bNE ~~LOOP2_GND__INIT>	*continue
			M	<btst #0,D1>	<bNE.s 85B2E>	*別の内容のLOOPへ

			m	<BSR.s SUB__GND__INIT>	<add.l #$20,A0>
		dbF	D6,~~LOOP2_GND__INIT
		sub.l	#$4280,A0
	dbF	D7,~LOOP1__GND__INIT
	BRA	EXIT__GND__INIT		*break

85B2E
			m	<lsr #2,D1>	<move D1,D5>	<subq.w	#1,D5>
			move	(A1)+,D1
@@				m	<BSR.s SUB__GND__INIT>	<add.l #$20,A0>
				M	<subq.w	#1,D6>	<bCS.s 85B48>	*break

			dbF	D5,@B
		BRA.s	~~LOOP2_GND__INIT
85B48
		sub.l	#$4280,A0
	dbF	D7,~LOOP1__GND__INIT
*	BRA	EXIT__GND__INIT
EXIT__GND__INIT
	m	<move.l	A1,__ptr_地形table>	<BSR.s READ_地形CODE?>
	move.l	A0,__gr_pointer
	move.b	#$A,__BACKを10回に分けて描くCOUNTER
	move.b	#$10,__16dot_ctr
	move.b	#$F,__16dot毎のctr
 RTS
*--
SUB__GND__INIT	*85B7E
	move	D1,-(A7)
	m	<moveq #0,D0>	<move D1,D0>	<and #$FFC,D0>	<lsr #2,D0>
	m	<rol #4,D1>	<and.b #$F,D1>
	BSR	DRAW_GR_16×16DOT
	move	(A7)+,D1
 RTS
*----------
READ_地形CODE?	*初期化を除けばMAIN 〜 縦SCROLL 〜 DRAW_GRからのみ	85B98	p
	PUSH	D0-D2/A0-A1
	m	<move.l	__ptr_地形table,A1>	<lea __buf_地形code?,A0>	<move #$13,D1>
85BAC
@@			move	(A1)+,D0
			M	<btst #1,D0>	<bNE.s 85BD2>
			M	<btst #0,D0>	<bNE @F>
			move	D0,(A0)+
		dbF	D1,@B
		BRA	EXIT__READ_地形CODE?

@@:		lsr	#2,D0					*　最下位bitが1の時
		move	(A1)+,D2
@@			move	D2,(A0)+			*　loop{
			M	<subq.w	#1,D1>	<bCS EXIT__READ_地形CODE?> *　　dbF代わり&break
		M	<subq.w	#1,D0>	<bNE @B>		*　}
	BRA.s	85BAC

85BD2;								*　第一bitが1の時
	M	<btst #$E,D0>	<bNE @F>
		move.b	#-1,__NO_縦SCROLL_FLAG
		BRA.s	85BAC					*　　　continue

@@:		move.b	#-1,__ON_THE_GND_FLAG?
		addq.w	#1,$86688
		BRA.s	85BAC					*　　　continue
*~}

EXIT__READ_地形CODE?
	move.l	#__buf_地形code?,__地形code_buf内のpointer?
	move.l	A1,__ptr_地形table
	POP	D0-D2/A0-A1
 RTS
*---------------
左右T塗り	*only?	85C08
	PUSH	D0/A0
	move	#$3F0,$E8002A
	m	<lea _TRAM0,A0>	<LP $FF,D0 <move.b #-1,(A0)> <add.l #$80,A0>>
	m	<lea $E0001F,A0>	<LP $FF,D0 <move.b #-1,(A0)> <add.l #$80,A0>>
	move	#0,$E8002A
	POP	D0/A0
 RTS
*-----------------
INIT__BG_PAL	*only?	85C52
	m	<tst.b __SP＆BG_PAL_INIT__FLAG>	<bNE 85C98>	*break

	PUSH	D0-D3/A0-A1
	m	<lea $9FE00,A0>	<lea $9FE00,A1>	<move #$FF,D3>	*90000台
@@		move	(A1)+,D0
		m	<lsl #1,D0>	<move D0,D1>	<move D0,D2>
		m	<and #$F800,D0>	<and #$7C0,D1>	<and #$3E,D2>
		m	<lsl #5,D1>	<lsl #5,D2>
		m	<lsr #5,D0>	<lsr #5,D0>	<or D1,D0>	<or D2,D0>
		move	D0,(A0)+
	dbF	D3,@B
	POP	D0-D3/A0-A1
85C98 RTS
*------------------
INIT__SP_PAL	*only?	85C9A
	m	<tst.b __SP＆BG_PAL_INIT__FLAG>	<bNE 85C98>	*break

	PUSH	D0-D3/A0-A1
	m	<lea $9F400,A0>	<lea $9F400,A1>	<move #$3FF,D3>	*90000台
@@		move	(A1)+,D0
		m	<lsl #1,D0>	<move D0,D1>	<move D0,D2>
		m	<and #$F800,D0>	<and #$7C0,D1>	<and #$3E,D2>
		m	<lsl #5,D1>	<lsl #5,D2>
		m	<lsr #5,D0>	<lsr #5,D0>	<or D1,D0>	<or D2,D0>
		move	D0,(A0)+
	dbF	D3,@B
	POP	D0-D3/A0-A1
	move.b	#-1,__SP＆BG_PAL_INIT__FLAG
 RTS
*------------------
SET__SPAL0_
	PUSH	D0-D2/A0-A1
	m	<lea _SP_PAL,A0>	<lea $85D1E,A1>	<move #$F,D2>
@@		move	(A1)+,D0
		move	D0,D1
		lsl	#6,D0
		m	<lsr #8,D1>	<lsr #1,D1>	<or D1,D0>
		move	D0,(A0)+
	dbF	D2,@B
	move	#2,$E8221E	*P0の15
	POP	D0-D2/A0-A1
 RTS
*----
85D1E	.dc.w	$0000,$7FFF,$7FE0,$7F40,$7EC0,$7E40,$0318,$035A
  	.dc.w	$3C00,$3C00,$3C00,$3C00,$3C00,$3C00,$3C00,$0800
*-------------------
SET__G_PAL_	*only	85D3E
	PUSH	D0-D3/A0-A1
	m	<lea _G_PAL,A0>	<lea $9FC00,A1>	<move #$FF,D3>	*90000台
@@		move	(A1)+,D0
		lsl	#1,D0
		m	<move D0,D1>	<move D0,D2>
		m	<and #$F800,D0>	<and #$7C0,D1>	<and #$3E,D2>
		m	<lsl #5,D1>	<lsl #5,D2>
		m	<lsr #5,D0>	<lsr #5,D0>	<or D1,D0>	<or D2,D0>
		move	D0,(A0)+
	dbF	D3,@B
	POP	D0-D3/A0-A1
 RTS
*----------------------
DRAW_GR_16×16DOT *( A0:__gr_pointer , D0 , D1	)	85D7E
	PUSH	D0-D1/A0-A1
	m	<lsl.l #8,D0>	<add.l D0,D0>	<lea _GPAGE1,A1>	<add.l D0,A1>
	lsl.b	#4,D1

	REPT	15
		m	<move (A1)+,D0>	<add.b D1,D0>	<move D0,(A0)+>
	ENDM
	m		<move (A1)+,D0>	<add.b D1,D0>	<move D0,(A0)>	*計16

	REPT	15
		add.l	#$3E2,A0
		REPT	15
			m	<move (A1)+,D0>	<add.b D1,D0>	<move D0,(A0)+>
		ENDM
		m		<move (A1)+,D0>	<add.b D1,D0>	<move D0,(A0)>
	ENDM								*計16*16

	POP	D0-D1/A0-A1
 RTS
*-------------
CLR__GRAM0
	PUSH	D0-D2/A0
863F4	lea	_GRAM,A0
863FA	move.l	#$2F002F,D0
	LP 1,D2	<LP $FFFF,D1 <MOVE.l D0,(A0)+>>
	POP	D0-D2/A0
 RTS
*-----------------
CLR__TEXT0	*86418
	movem.l	D0-D1/A0,-(A7)
	move	#$3F0,$E8002A	*TEXT高速アクセスON
		m	<lea _TRAM0,A0>	<moveq #0,D0>
		LP $7FFF,D1	<MOVE.l	D0,(A0)+>
	move	#0,$E8002A	*OFF
	POP	D0-D1/A0
 RTS
*------------------
CLR__SP0~63	*86444
	PUSH	D0-D1/A0
	m	<lea _SP_PCG,A0>	<moveq #0,D0>
	LP $7FF,D1	<MOVE.l	D0,(A0)+>
	POP	D0-D1/A0
 RTS
*---------------
CLR__BG1	*86460
	PUSH	D0-D1/A0
	m	<lea _BG1_PCG,A0>	<moveq #0,D0>
	LP $7FF,D1	<move.l	D0,(A0)+>
	POP	D0-D1/A0
 RTS
*-----------------
CLR__SP64~BG0	*8647C
	PUSH	D0-D1/A0
	m	<lea $EBA000,A0>	<moveq #0,D0>
	LP $FFF,D1	<MOVE.l	D0,(A0)+>
	POP	D0-D1/A0
 RTS
*------------------
CLR__SP_REG	*86498
	PUSH	D0-D2/A0
	m	<lea _SP_REG,A0>	<moveq #0,D0>	<move.l	#$800000,D2>
	LP $7F,D1	<MOVE.l	D0,(A0)+>	<MOVE.l	D2,(A0)+>

	m	<lea $B0600,A0>	<moveq #0,D0>	<move.l	#$800000,D2>
	LP $7F,D1	<MOVE.l	D0,(A0)+>	<MOVE.l	D2,(A0)+>
	POP	D0-D2/A0
 RTS
*---------------
TEXT_ON		m	<bset #5,$E82601>	RTS	*864D6
TEXT_OFF	m	<bclr #5,$E82601>	RTS	*864E0
SP_ON		m	<bset #6,$E82601>	RTS	*864EA
SP_OFF		m	<bclr #6,$E82601>	RTS	*864F4
GS01_ON		m	<or #3,$E82600>		RTS	*864FE
GS01_OFF	m	<and #$FFFC,$E82600>	RTS	*86508
*----------------
JOY
	m	<move #0,D1>	<IOCS _JOYGET>
	M	<cmp.b #-1,D0>	<bEQ @F>
		move.b	D0,__JOY_STATE
		 RTS

@@:	move.b	#-1,D2
	m	<move #8,D1>	<IOCS _BITSNS>
	IFn EQ	<btst #4,D0>	<BCLR #0,D2>	*8
	IFn EQ	<btst #7,D0>	<BCLR #2,D2>	*4

	m	<move #9,D1>	<IOCS _BITSNS>
	IFn EQ	<btst #1,D0>	<BCLR #3,D2>	*6
	IFn EQ	<btst #4,D0>	<BCLR #1,D2>	*2

	m	<move #$A,D1>	<IOCS _BITSNS>
	IFn EQ	<btst #5,D0>	<BCLR #5,D2>	*XF1
	IFn EQ	<btst #6,D0>	<BCLR #6,D2>	*XF2

	move.b	D2,__JOY_STATE
 RTS
*-----------------
地面の左右移動に伴う敵の座標調整 *( D1	)	MAIN 〜 MV_JIKIからのみ	86588
	PUSH	D0/D7/A0-A2
	lea	$B1100,A0
	move	#$7E,D7
@@		m	<cmp #$FFFF,(A0)>	<bEQ.s 8659E>
			BRA.s	865AC

8659E
		add	#$100,A0
	dbF	D7,@B
	POP	D0/D7/A0-A2
 RTS
865AC	m	<move.l	A0,A1>	<add #$80,A1>
@@		lea	$B0600,A2
		M	<moveq #0,D0>	<move.b	(A1)+,D0>	<cmp.b #-1,D0>	<bEQ.s 8659E>
		m	<lsl #3,D0>	<add D0,A2>	<add D1,(A2)>
	BRA	@B
*---------------
SCROLLに合わせて敵のy座標を＋1__その2 *( A1	)
*	初期化を除けばonly( MAIN 〜 地形その他 〜 )	865CA
	m	<lea $B1000,A0>	<move #$7F,D7>
865D4		M	<cmp #-1,(A0)>	<bEQ.s 865FE>
		M	<btst #6,(A0)>	<bEQ.s 865FE>
		m	<move.l	A0,A1>	<add #$80,A1>
@@			lea	$B0602,A2
			m	<moveq #0,D0>	<move.b	(A1)+,D0>
			M	<cmp.b #-1,D0>	<bEQ.s 865FE>

			m	<lsl #3,D0>	<add D0,A2>	<addq.w	#1,(A2)>
		BRA	@B

865FE		add	#$100,A0
	dbF	D7,865D4
 RTS
*------------------
敵のy座標を−1	*only( MAIN 〜 地形その他 〜 )	86608
	m	<lea $B1000,A0>	<move #$7F,D7>
86612		m	<cmp #-1,(A0)>	<bEQ.s 8663C>
		m	<btst #6,(A0)>	<bEQ.s 8663C>
		m	<move.l	A0,A1>	<add #$80,A1>
@@			lea	$B0602,A2
			m	<moveq #0,D0>	<move.b	(A1)+,D0>
			M	<cmp.b #-1,D0>	<bEQ.s 8663C>

			m	<lsl #3,D0>	<add D0,A2>	<subq.w	#1,(A2)>
		BRA	@B

8663C		add	#$100,A0
	dbF	D7,86612
 RTS
*----------------------
SCROLLに合わせて敵のy座標を＋1__その1	*初期化を除けばonly( MAIN 〜 縦SCROLL 〜 )	86646
	m	<lea $B1000,A0>	<move #$7F,D7>
86650		M	<cmp #$FFFF,(A0)>	<bEQ ~END_LOOP2__SCROLLに合わせて敵のy座標を＋1__その1>
		M	<btst #7,(A0)>		<bEQ ~END_LOOP2__SCROLLに合わせて敵のy座標を＋1__その1>
		m	<move.l	A0,A1>	<add #$80,A1>
@@			lea	$B0602,A2
			m	<moveq #0,D0>	<move.b	(A1)+,D0>
			M	<cmp.b #-1,D0>	<bEQ ~END_LOOP2__SCROLLに合わせて敵のy座標を＋1__その1>

			m	<lsl #3,D0>	<add D0,A2>	<addq.w	#1,(A2)>
		BRA	@B
~END_LOOP2__SCROLLに合わせて敵のy座標を＋1__その1
		add	#$100,A0
	dbF	D7,86650
86682 RTS
*====================
__area2?	.dc.b	0		;86684
__area3?	.dc.b	0		;86685
__area?		.dc.b	0		;86686	→__面COUNTER
__1UP_ITEMが既に出たか	.dc.b	0	;86687
86688	.dc.w	0			;
__CREDIT	.dc.w	0	*8668A
__NO_縦SCROLL_FLAG	.dc.b	0	*8668C
__ON_THE_GND_FLAG?	.dc.b	0	*8668D
__V_DISP_FLAG	.dc.b	-1	*8668E
__1or2		.dc.b	2	*8668F
__常に2		.dc.b	2	*86690
__1or2__その2	.dc.b	2	*86691
__GNDx	.dc.w	0	*86692
__Fx_J	.dc.w	$70	*\112	自機のフィールドx座標?	86694
__Fy_J	.dc.w	$80	*\128			y	86696
g86698	.dc.l	0
__JOY0		.dc.b	$ff	*8669C
__LOY_LAND	.dc.b	$ff	*8669D
__JOY_OLD	.dc.b	$ff	*8669E
__自弾P段階?	.dc.b	0	*8669F
866A0	.dc.l	$ff
866A4	.dc.l	$ff
__BOMBER使用中FLAG	.dc.b	0	*866A8
__BOMBER爆発中FLAG		.dc.b	0	*866A9
__LANDING開始まで2秒待つCOUNTER	.dc.w	$78	*866AA
866AC	.dc.b	$20
866AD	.dc.b	00
__866AE	.dc.l	8
__866B2_FLG		.dc.b	0
__J_DEAD_FLAG		.dc.b	0	*866B3
__復活時の手加減期間COUNTER	.dc.b	$96	*\150	g866B4
__Bマーク存在FLAG		.dc.b	0	*866B5
__JOY_STATE			.dc.b	$ff	*866B6
__SP＆BG_PAL_INIT__FLAG		.dc.b	0	*866B7
__垂直同期割り込みセットFLAG	.dc.b	0	*866B8
866B9	.dc.b	0

__ptr_地形table			.dc.l	0	*866BA
__地形code_buf内のpointer?	.dc.l	0	*866BE
__gr_pointer			.dc.l	0	*866C2

__GSxy	*866C6
	.dc.w	0	*GPAGE	0
__GS_y	.dc.w	0	*	1の座標???
__BACKを10回に分けて描くCOUNTER	.dc.b	0	*866CA
__16dot_ctr			.dc.b	0	*866CB
__16dot毎のctr			.dc.b	0	*max=$20	866CC
__（＋1／8dot）and63		.dc.b	0	*866CD

__buf_地形code?	*866CE
	.dc.w	0,0,0,0, 0,0,0,0,	0,0,0,0, 0,0,0,0,	0,0,0,0

__BG_X
	.dc.w	0	*BG0?	866F6
__BG_Y	.dc.w	0	*866F8
__ptr_地形2table		.dc.l	0	*866FA
__地形2code_buf内のpointer?	.dc.l	0	*866FE
__bg_pointer			.dc.l	0	*86702
86706	.dc.l	0
8670A	.dc.w	0
8670C	.dc.w	0
__B0000からのBGtable?のどれを使うか	.dc.b	0	*8670E
__BACK2を10回に分けて描くctr		.dc.b	0	*8670F
__16dot_ctr2				.dc.b	0	*86710
__16dot毎のctr2				.dc.b	0	*86711
__bg1関係のstat_1	.dc.b	0	*0000_0000	86712
			*		       TT
			*		       |+-
			*		1ならBG1を逆スクロール?
__bg1関係のstat_2	.dc.b	0	*86713
__buf_地形2code?
	.dc.w	0,0,0,0, 0,0,0,0,	0,0,0,0, 0,0,0,0,	0,0,0,0	*86714

__NUM_BOMBER	.dc.b	0	*8673C
__NUM_JIKI	.dc.b	0	*8673D
__SCORE	.dc.l	0	*8673E
86742	.dc.w	0
86744	.dc.l	0,0,0,0
86754	.dc.w	0
__垂直帰線期間毎にCLR	.dc.b	0	*86756
86757	.dc.b	0
86758	.dc.w	0
__EN_出現パターン関係のADRS	.dc.l	0	*8675A
g8675E	.dc.b	0	*自機移動の間引き用?
__幕etc_FLAG	.dc.b	0	*8675F
__256_COUNT	.dc.b	0	*86760
86761		.dc.b	0
__ITEM戦闘機の持ち物	.dc.b	0	*86762
__BGM_CODE		.dc.b	0	*86763
__1面始めのFADE_OUT_COUNTER	.dc.w	0	*86764
__面COUNTER		.dc.l	0	*86766
__2_COUNT__HANTEI?	.dc.b	0	*8676A
8676B	.dc.b	0
__影LOCAL	.dc.w	$1c	*8676C
__J_DEADING	.dc.b	0	*8676E
__2_COUNT	.dc.b	0	*8676F
86770	.dc.l	0
__SA？_J_X	.dc.w	0	*86774
__SA？_J_Y	.dc.w	0	*86776

__自弾x座標他TBL	*86778
	.dc.l	$8678c,$86792,$8679e,$867b0,$867c8
8678C	.dc.w	$08,0,0
86792	.dc.w	$00,0,0,$10,0,0
8679E	.dc.w	$08,0,0	.dc.l$00000100,$01ff0010,$2000101,
867B0	$00000000,$00000010,$00000000,$00000100,$01ff0010	.dc.l$2000101
867C8	,$80000,$00000008,$010001ff,$80200,$01010000,$30001ff,$00100400
867E4.dc.l$01010000,$0014001c,$00230028,$002d0031,$00350039,$003c003f,$00420045,$0048004b
.dc.l$004d0050,$00520055,$00570059,$005c005e,$00600062,$00640066,$0068006a,$006c006e
.dc.l$006f0071,$00730075,$00760078,$007a007b,$007d007e,$00800082,$00830085,$00860088
.dc.l$0089008b,$008c008d,$008f0090,$00920093,$00940096,$00970098,$009a009b,$009c009d
86864.dc.l$009f00a0,$00a100a2,$00a400a5,$00a600a7,$00a900aa,$00ab00ac,$00ad00ae,$00af00b1
.dc.l$00b200b3,$00b400b5,$00b600b7,$00b800b9,$00bb00bc,$00bd00be,$00bf00c0,$00c100c2
.dc.l$00c300c4,$00c500c6,$00c700c8,$00c900ca,$00cb00cc,$00cd00ce,$00cf00d0,$00d100d2
.dc.l$00d300d4,$00d500d6,$00d600d7,$00d800d9,$00da00db,$00dc00dd,$00de00df,$00e000e0
868E4.dc.l$00e100e2,$00e300e4,$00e500e6,$00e700e8,$00e800e9,$00ea00eb,$00ec00ed,$00ed00ee
.dc.l$00ef00f0,$00f100f2,$00f200f3,$00f400f5,$00f600f7,$00f700f8,$00f900fa,$00fb00fb
.dc.l$00fc00fd,$00fe00ff,$00ff0100,$01010102,$01020103,$01040105,$01060106,$01070108
.dc.l$01090109,$010a010b,$010c010c,$010d010e,$010f010f,$01100111,$01110112,$01130114
86964.dc.l$01140115,$01160117,$01170118,$01190119,$011a011b,$011c011c,$011d011e,$011e011f
.dc.l$01200120,$01210122,$01230123,$01240125,$01250126,$01270127,$01280129,$0129012a
.dc.l$012b012b,$012c012d,$012d012e,$012f012f,$01300131,$01310132,$01330133,$01340135
.dc.l$01350136,$01360137,$01380138,$0139013a,$013a013b,$013c013c,$013d013d,$013e013f
869E4.dc.l$013f0140,$01410141,$01420142,$01430144,$01440145,$01460146,$01470147,$01480149
.dc.l$0149014a,$014a014b,$014c014c,$014d014d,$014e014f,$014f0150,$01500151,$01520152
.dc.l$01530153,$01540155,$01550156,$01560157,$01580158,$01590159,$015a015a,$015b015c
.dc.l$015c015d,$015d015e,$015e015f,$01600160,$01610161,$01620162,$01630164,$01640165
86A64.dc.l$01650166,$01660167,$01670168,$01690169,$016a016a,$016b016b,$016c016c,$016d016e
.dc.l$016e016f,$016f0170,$01700171,$01710172,$01720173,$01730174,$01750175,$01760176
.dc.l$01770177,$01780178,$01790179,$017a017a,$017b017b,$017c017d,$017d017e,$017e017f
.dc.l$017f0180,$01800181,$01810182,$01820183,$01830184,$01840185,$01850186,$01860187
.dc.l$01870188,$01880189,$0189018a,$018a018b,$018b018c,$018c018d,$018d018e,$018e018f
.dc.l$018f0190,$01900191,$01910192,$01920193,$01930194,$01940195,$01950196,$01960197
.dc.l$01970198,$01980199,$0199019a,$019a019b,$019b019c,$019c019d,$019d019e,$019e019f
.dc.l$019f01a0,$01a001a1,$01a101a2,$01a201a3,$01a301a4,$01a401a4,$01a501a5,$01a601a6
.dc.l$01a701a7,$01a801a8,$01a901a9,$01aa01aa,$01ab01ab,$01ac01ac,$01ac01ad,$01ad01ae
.dc.l$01ae01af,$01af01b0,$01b001b1,$01b101b2,$01b201b3,$01b301b3,$01b401b4,$01b501b5
.dc.l$01b601b6,$01b701b7,$01b801b8,$01b801b9,$01b901ba,$01ba01bb,$01bb01bc,$01bc01bd
.dc.l$01bd01bd,$01be01be,$01bf01bf,$01c001c0,$01c101c1,$01c101c2,$01c201c3,$01c301c4
.dc.b$01,$c4
86BE6.dc.l$01010103,$03050606,$06090a0b,$0b0d0d0d,$10101213,$14141616,$1619191b,$1c1c1c1f
.dc.l$21222222,$22252626,$27292a2b,$2c2d2d2f,$2f2f03b0,$03b1002d,$0028002d,$00030000
.dc.l$00000000,$002d0019,$00180012,$0017001d,$001cfffe,$002d002d,$002d002d,$002d000b
.dc.l$00180017,$001e001c,$fffe002d,$002d002d,$002d002d,$002d002d,$0000002d,$00190018
.dc.l$00120017,$001d001c
.dc.b$ff,$ff
*=======================
*----
86C70
	M	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	M	<cmp #$110,2(A5)>	<bCS @F>
	M	<cmp #$120,2(A5)>	<bCC @F>
		M	<JSR 生存登録抹消>	<BRA EXIT__86C70>

@@:	M	<tst.b $10(A6)>	<bEQ 86E00>

	M	<btst #4,$E(A6)>	<bNE @F>
		IFn NE	<move.b	$F(A6),D0>	<BSR 敵の?属性等変更?>	<BRA EXIT__86C70>
		subq.b	#1,$F(A6)
		M	<btst #7,$E(A6)>	<bEQ @F>
		M	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
			m	<moveq #1,D0>	<BSR E_MOVE>
			m	<move.b	$8C(A6),D0>	<BSR PTRSETinSPREGBUF>	<eor #1,6(A5)>
			m	<move.b	$8D(A6),D0>	<BSR PTRSETinSPREGBUF>	<eor #1,6(A5)>
@@;
	M	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$93,A0>	<move #3,D1>	<BSR 84592>
@@;
	M	<cmp.b #$2D,$10(A6) *\45>	<bCC @F>
	m	<move.b	$8E(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$8F(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	M	<cmp.b #$1E,$10(A6) *\30>	<bCC @F>
	m	<move.b	$90(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$91(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	M	<cmp.b #$F,$10(A6) *\15>	<bCC @F>
	m	<move.b	$92(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$93(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

@@;
	M	<move.l	A6,A5>	<add.l #$8A,A5>	<BSR はみ出たか>	<bNE EXIT__86C70>
	M	<addq.b	#1,$11(A6)>	<cmp.b #$A,$11(A6)>	<bEQ @F>
		M	<cmp.b #$32,$11(A6)>	<bNE EXIT__86C70>
		M	<move.b	#0,$11(A6)>	<BRA EXIT__86C70>

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<subq.w	#8,D1>
	m	<move (A5),D2>	<subq.w	#4,D2>
	moveq	#8,D0
	M	<JSR MK_敵弾>	<bEQ EXIT__86C70>

	m	<add.l #$8A,A6>	<move.l	A6,$8984C>	<moveq #0,D0>	<BSR 8976C>
	BRA	EXIT__86C70

86E00:	m	<move.l	__SCORE,D7>	<add.l #$1F4,D7 *\500>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	隠れ爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>,	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__86C70	RTS
*----
86E4E
	m	<btst	#6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		JSR	生存登録抹消
		BRA	EXIT__86E4E

@@:	M	<tst.b $10(A6)>	<bEQ 87132>

	M	<btst	#4,$E(A6)>	<bNE.s 86ECC>
	M	<move.b	$F(A6),D0>	<bNE @F>
		BSR	敵の?属性等変更?
		BRA	EXIT__86E4E

@@:	subq.b	#1,$F(A6)
	m	<btst	#7,$E(A6)>	<bEQ @F>
	m	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
86ECC
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l	#$9D,A0>	<move #5,D1>	<BSR 84592>
@@;
	m	<cmp.b #$50,$10(A6) *\80>	<bCC @F>
	m	<move.b	$94(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$95(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$41,$10(A6) *\65>	<bCC @F>
	m	<move.b	$96(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$97(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$32,$10(A6) *\50>	<bCC @F>
	m	<move.b	$98(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$99(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$23,$10(A6) *\35>	<bCC @F>
	m	<move.b	$9A(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$9B(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$14,$10(A6) *\20>	<bCC @F>
	m	<move.b	$9C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$9D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

@@;
	m	<addq.b	#1,$11(A6)>	<moveq #0,D1>	<move.b	$11(A6),D1>
	M	<move.l	D1,D0>	<and.b #$C0,D1>	<bNE EXIT__86E4E>
	m	<move.b	D0,D1>	<lsl #2,D1>
	lea	$86FC4,A1
	add.l	D1,A1
86FC0	move.l	(A1),A1
86FC2	JMP	(A1)

86FC4	8710A,8710A,8710A,8710A,8710A,8710A,8710A,8710A
	8710A,8710A,8710A,8710A,870C4,8711A,8711A,8711A
	8711A,8711A,8711A,8711A,870C4,8711A,8711A,8711A
	8711A,8711A,8711A,8711A,870C4,8711A,8711A,8711A
	8711A,8711A,8711A,8711A,870C4,8711C,8711C,8711C
	8711C,8711C,8711C,8711C,8711C,8711C,8711C,8711C
	8711C,8711C,8711C,8711C,8711C,8711C,8711C,8711C
	8711C,8711C,8711C,8711C,8711C,8711C,8711C,8711C

870C4
	M	<btst	#5,$E(A6)>	<bNE EXIT__86E4E>
	M	<move.l	A6,A5>	<add.l #$91,A5>	<BSR はみ出たか>	<bNE EXIT__86E4E>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__86E4E

8710A
	m	<lsr #2,D0>	<add #$1E5,D0>	<move.b	$89(A6),D1>	<BSR SP_DEF>
	BRA	EXIT__86E4E

8711A	BRA	EXIT__86E4E

8711C	*ボスの弾発射口(パタパタ)
	m	<move.l	#$1E4,D0>	<move.b	$89(A6),D1>	<BSR SP_DEF>
	move.b	#0,$11(A6)
	BRA	EXIT__86E4E

87132
	m	<move.l	__SCORE,D7>	<add.l #$5DC,D7 *\1500>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	隠れ爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__86E4E	RTS
*----
87180
	m	<btst	#6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		m	<JSR 生存登録抹消>	<BRA EXIT__87180>

@@;
	m	<tst.b $10(A6)>	<bEQ 87464>
	m	<btst	#4,$E(A6)>	<bNE.s 871FE>
	m	<move.b	$F(A6),D0>	<bNE @F>
		m	<BSR 敵の?属性等変更?>	<BRA EXIT__87180>
@@;
	subq.b	#1,$F(A6)
	m	<btst	#7,$E(A6)>	<bEQ @F>
	m	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
871FE
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$9D,A0>	<move #5,D1>	<BSR 84592>
@@;
	m	<cmp.b #$50,$10(A6)>	<bCC @F>
	m	<move.b	$94(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$95(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$41,$10(A6)>	<bCC @F>
	m	<move.b	$96(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$97(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$32,$10(A6)>	<bCC @F>
	m	<move.b	$98(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$99(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$23,$10(A6)>	<bCC @F>
	m	<move.b	$9A(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$9B(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$14,$10(A6)>	<bCC @F>
	m	<move.b	$9C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$9D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

@@;
	m	<addq.b	#1,$11(A6)>	<moveq #0,D1>	<move.b	$11(A6),D1>
	M	<move.l	D1,D0>	<and.b #$C0,D1>	<bNE EXIT__87180>
	m	<move.b	D0,D1>	<lsl #2,D1>
	lea	$872F6,A1
872F0	add.l	D1,A1
872F2	move.l	(A1),A1
872F4	JMP	(A1)

872F6	8743C,8743C,8743C,8743C,8743C,8743C,8743C,8743C
	8743C,8743C,8743C,8743C,873F6,8744C,8744C,8744C
	8744C,8744C,8744C,8744C,873F6,8744C,8744C,8744C
	8744C,8744C,8744C,8744C,873F6,8744C,8744C,8744C
87376	8744C,8744C,8744C,8744C,873F6,8711C,8711C,8711C
	8744E,8744E,8744E,8744E,8744E,8744E,8744E,8744E
	8744E,8744E,8744E,8744E,8744E,8744E,8744E,8744E
	8744E,8744E,8744E,8744E,8744E,8744E,8744E,8744E

873F6
	m	<btst	#5,$E(A6)>	<bNE EXIT__87180>
	m	<move.l	A6,A5>	<add.l #$91,A5>	<BSR はみ出たか>	<bNE EXIT__87180>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__87180

8743C
	m	<lsr #2,D0>	<add #$1E5,D0>	<move.b	$89(A6),D1>	<BSR SP_DEF>
	BRA	EXIT__87180

8744C	BRA	EXIT__87180

8744E	*ボスの弾発射口(パタパタ)
	m	<move.l	#$1E4,D0>	<move.b	$89(A6),D1>	<BSR SP_DEF>
	move.b	#0,$11(A6)
	BRA	EXIT__87180

87464
	m	<move.l	__SCORE,D7>	<add.l #$5DC,D7	*\1500>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	隠れ爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__87180	RTS
*----
874B2
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		JSR	生存登録抹消
		BRA	EXIT__874B2

@@:	m	<tst.b $10(A6)>	<bEQ 877B4>

	m	<btst #4,$E(A6)>	<bNE.s 87530>
	m	<move.b	$F(A6),D0>	<bNE @F>
		BSR	敵の?属性等変更?
		BRA	EXIT__874B2

@@:	subq.b	#1,$F(A6)
	m	<btst #7,$E(A6)>	<bEQ @F>
	m	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
87530
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$95,A0>	<move #5,D1>	<BSR 84592>
@@;
	m	<cmp.b #$3C,$10(A6) *\60>	<bCC @F>
	m	<move.b	$8C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$8D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$32,$10(A6) *\50>	<bCC @F>
	m	<move.b	$8E(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$8F(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$28,$10(A6) *\40>	<bCC @F>
	m	<move.b	$90(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$91(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$1E,$10(A6) *\30>	<bCC @F>
	m	<move.b	$92(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$93(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$14,$10(A6) *\20>	<bCC @F>
	m	<move.b	$94(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$95(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

@@;
	m	<addq.b	#1,$11(A6)>	<moveq #0,D1>	<move.b	$11(A6),D1>
	M	<move.l	D1,D0>	<and.b #$C0,D1>	<bNE EXIT__874B2>
	m	<move.b	D0,D1>	<lsl #2,D1>
	M	<lea $87628,A1>	<add.l D1,A1>	<move.l	(A1),A1>	<JMP (A1)>

87628	.dc.l	$8778C,$8778C,$8778C,$8778C,$8778C,$8778C,$8778C,$8778C
	.dc.l	$8778C,$8778C,$8778C,$8778C,$8778C,$8778C,$8778C,$8778C
	.dc.l	$87728,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C
	.dc.l	$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C
	.dc.l	$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C
	.dc.l	$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C
	.dc.l	$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C
	.dc.l	$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779C,$8779E

87728	*1箇所だけ
	m	<btst #5,$E(A6)>	<bNE EXIT__874B2>
	m	<move.l	A6,A5>	<add.l #$8A,A5>	<BSR はみ出たか>	<bNE EXIT__874B2>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<add.l #$84,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	m	<moveq #1,D0>	<BSR 8976C>
	m	<moveq #2,D0>	<BSR 8976C>
	BRA	EXIT__874B2

8778C
	m	<lsr #2,D0>	<add #$1F8,D0>	<move.b	$84(A6),D1>	<BSR SP_DEF>
	BRA	EXIT__874B2

8779C	BRA	EXIT__874B2

8779E	*ボスの弾発射口(2door)
	m	<move.l	#$1F7,D0>	<move.b	$84(A6),D1>	<BSR SP_DEF>
	move.b	#0,$11(A6)
	BRA	EXIT__874B20

877B4
	m	<move.l	__SCORE,D7>	<add.l #$3E8,D7	*\1000>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	隠れ爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__874B2	RTS
*----
87802
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		m	<JSR 生存登録抹消>	<BRA EXIT__87802>

@@:	M	<tst.b $10(A6)>	<bEQ 87B04>

	M	<btst #4,$E(A6)>	<bNE @F>
		IFn NE	<move.b	$F(A6),D0>	<BSR 敵の?属性等変更?>	<BRA EXIT__87802>
		subq.b	#1,$F(A6)
		M	<btst #7,$E(A6)>	<bEQ @F>
		M	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
			m	<moveq #1,D0>	<BSR E_MOVE>
@@;	~}
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$95,A0>	<move #5,D1>	<BSR 84592>
@@;
	m	<cmp.b #$3C,$10(A6)>	<bCC @F>
	m	<move.b	$8C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$8D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$32,$10(A6)>	<bCC @F>
	m	<move.b	$8E(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$8F(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$28,$10(A6)>	<bCC @F>
	m	<move.b	$90(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$91(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$1E,$10(A6)>	<bCC @F>
	m	<move.b	$92(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$93(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

	m	<cmp.b #$14,$10(A6)>	<bCC @F>
	m	<move.b	$94(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>
	m	<move.b	$95(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #1,6(A5)>

@@;
	m	<addq.b	#1,$11(A6)>	<moveq #0,D1>	<move.b	$11(A6),D1>
	M	<move.l	D1,D0>	<and.b #$C0,D1>	<bNE EXIT__87802>
	m	<move.b	D0,D1>	<lsl #2,D1>
	M	<lea $87978,A1>	<add.l D1,A1>	<move.l	(A1),A1>	<JMP (A1)>

87978	$87ADC,$87ADC,$87ADC,$87ADC,$87ADC,$87ADC,$87ADC,$87ADC
	$87ADC,$87ADC,$87ADC,$87ADC,$87A78,$87AEC,$87AEC,$87AEC
	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC
	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC
879F8	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC
	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC
	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC
	$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEC,$87AEE

87A78	*1箇所だけ
	M	<btst #5,$E(A6)>	<bNE EXIT__87802>
	M	<move.l	A6,A5>	<add.l #$8A,A5>	<BSR はみ出たか>	<bNE EXIT__87802>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<add.l #$84,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	m	<moveq #1,D0>	<BSR 8976C>
	m	<moveq #2,D0>	<BSR 8976C>
	BRA	EXIT__87802

87ADC
	m	<lsr #2,D0>	<add #$1E1,D0>	<move.b	$84(A6),D1>	<BSR SP_DEF>
	BRA	EXIT__87802

87AEC	BRA	EXIT__87802

87AEE	*ボスの弾発射口(shutter)
	m	<move.l	#$1E0,D0>	<move.b	$84(A6),D1>	<BSR SP_DEF>
	move.b	#0,$11(A6)
	BRA	EXIT__87802

87B04
	m	<move.l	__SCORE,D7>	<add.l #$3E8,D7>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	隠れ爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__87802	RTS
*----
MV_TANK	*87B52
	IFn EQ	<tst.b $F(A6)>	<subq.b	#1,$F(A6)>
	IFn NE	<eor.b #1,$E6(A6)>	RTS
	move.b	#6,$899D6	*TANK
	IFn NE	<cmp.b #1,$10(A6)>	<move.b	#5,$899D6>	*食らってる
	M	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<add.l #$10,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	M	<cmp #$110,2(A5)>	<bCS @F>
	M	<cmp #$120,2(A5)>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	M	<tst.b $10(A6)>	<bEQ BROKEN__MV_TANK>	*死んだか？	カニ	ニンジン

	M	<btst #4,$E(A6)>	<bNE.s 87BEC>
		M	<move.b	$F(A6),D0>	<bNE @F>
			M	<BSR 敵の?属性等変更?>	<BRA.s 87BEC>

@@:		M	<btst #7,$E(A6)>	<bEQ.s 87BEC>
			m	<moveq #1,D0>	<BSR E_MOVE>
87BEC;	~}

	lea	$899E8,A0	*TANK
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>	<lsl.b #3,D0>
	add.l	D0,A0
	m	<move (A0)+,$899DC>	<move (A0)+,$899DE>	*TANK
	m	<move (A0)+,$899E0>	<move (A0),$899E2>

	M	<cmp.b #1,$10(A6)>	<bEQ 87D50>

	M	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<cmp.b #6,D0>	<bEQ @F>
		M	<cmp.b #7,D0>	<bNE 87D50>

@@:	m	<move.l	A6,A5>	<add.l #$84,A5>	<BSR DIR_弾>
	M	<btst	#4,D0>	<bNE 87D50>
	M	<move.b	$11(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 87C78>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<move.b	D3,$11(A6)>
		BRA	87D50

@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<move.b	D3,$11(A6)>
		BRA	87D50

87C78:		M	<tst.b __復活時の手加減期間COUNTER>	<bNE 87D50>
		m	<move.b	$E7(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$E7(A6)>
		M	<and.b #3,D0>		<bNE 87D50>
		M	<btst #5,$E(A6)>	<bNE 87D50>
		M	<move.l	A6,A5>	<add.l #$84,A5>	<BSR はみ出たか>	<bNE 87D50>

		m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
		m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #8,D0>	<JSR MK_敵弾>
		BRA.s	87D50

*~}
BROKEN__MV_TANK
	m	<move.l	__SCORE,D7>	<add.l #$18,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	M	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #$19,D0>	<JSR 生存登録抹消>
		BSR	隠れ爆発2×2_DPSPSET
		PUSH	D0/A0						*爆発音?
		m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
		POP	D0/A0
	 RTS

*~}
87D50	m	<cmp.b #1,$10(A6)>	<bNE @F>
		m	<move #$1B4,$899E4>	<move #0,$899E6>	*砲筒破壊跡
		BRA.s	87D86

@@:		lea	$89A68,A0	*TANKの砲筒
		m	<moveq #0,D0>	<move.b	$11(A6),D0>	<lsl.b #2,D0>
		add.l	D0,A0
		m	<move (A0)+,$899E4>	<move (A0),$899E6>	*TANKの砲筒
87D86;	~}

	m	<lea $899DC,A0>	<move.l	A6,A1>	<add.l #$F4,A1>	*TANK
	LP 5,D0	<cmp (A0)+,(A1)+>	<bNE @F>
	 RTS

@@:	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<move.l	06(A6),A1>	<move.l	$A(A6),A2>	;
	m	<move.l	$E(A6),D7>	<move.b	$E6(A6),D6>	;一時待避?
	move	(A6),$87DEA
	JSR	生存登録抹消
	BSR	TANK	*only?
	m	<lea $899DC,A0>	<move.l	A6,A1>	<add.l #$F4,A1>	*TANK
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
87DEA	.dc.w	0
*----
MV_小砲台	*87DEC
	move.b	$80(A6),D0
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$118,2(A5)>	<bCC @F>
		JSR	生存登録抹消
		BRA	EXIT__MV_小砲台

@@:	m	<tst.b $10(A6)>	<bEQ 87EE4>
	m	<move.b	$F(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$F(A6)>	<and.b #3,D0>
	bNE	EXIT__MV_小砲台
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 87E88>	<bCC @F>
			subq.b	#1,D3
			BRA.s	87E48
@@:
			addq.b	#1,D3
87E48;		~~}

		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<and.b #$F,D3>	<moveq #0,D0>	<move.b	D3,D0>
		move.b	#0,__Bマーク持たせFLAG
		IFn EQ	<btst #6,$E(A6)>	<move.b	#-1,__Bマーク持たせFLAG>
		JSR	生存登録抹消
		BSR	MK_小砲台?
		BRA	EXIT__MV_小砲台

87E88;	~}

	addq.b	#1,$11(A6)
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE EXIT__MV_小砲台>
	m	<cmp.b #3,$11(A6)>	<bEQ @F>
		m	<cmp.b #$A,$11(A6)>	<bNE EXIT__MV_小砲台>
		m	<move.b	#0,$11(A6)>	<BRA EXIT__MV_小砲台>

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__MV_小砲台

87EE4
	m	<move.l	__SCORE,D7>	<add.l #$14,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
		BRA	EXIT__MV_小砲台

@@:	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF0,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__MV_小砲台	RTS
*----
87F5A
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$118,2(A5)>	<bCC @F>
		m	<JSR 生存登録抹消>	<BRA EXIT__87F5A>

@@:	M	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
	M	<tst.l 06(A6)>	<bEQ @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
	M	<tst.b $10(A6)>	<bNE EXIT__87F5A>

	m	<move.l	__SCORE,D7>	<add.l #$A,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<tst.b __Bマーク存在FLAG>	<bNE @F>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
		BRA	EXIT__87F5A

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #$19,D0>	<JSR 生存登録抹消>
		BSR	隠れ爆発2×2_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__87F5A	RTS
*----
MV_小型挺	*88018
	IFn EQ	<tst.b $F(A6)>	<subq.b	#1,$F(A6)>
	m	<eor.b #1,$E6(A6)>	<bNE @F>
	 RTS

@@:	move.b	#6,$89AAC	*小型挺のスプライト使用数
	IFn NE	<cmp.b #1,$10(A6)>	<move.b	#5,$89AAC>	*食らってる
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<add.l #$C,D7>	<move.l	D7,__SCORE>
8805E		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$150,2(A5)>	<bCS @F>
	m	<cmp #$160,2(A5)>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	m	<tst.b $10(A6)>	<bEQ 881A4>
	m	<btst #4,$E(A6)>	<bNE.s 880C0>
	IFn NE	<move.b	$F(A6),D0>	<BSR 敵の?属性等変更?>	<BRA.s 880C0>

	M	<move.b	$E(A6),D0>	<and.b #$F,D0>	<cmp.b #8,D0>	<bNE @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
		BRA.s	880C0

@@:	m	<moveq #2,D0>	<BSR E_MOVE>
880C0	lea	$89ABE,A0	*小型挺
	moveq	#0,D0
	m	<move.b	$E(A6),D0>	<and.b #$F,D0>	<lsr.b #2,D0>	<lsl.b #3,D0>
	add.l	D0,A0
	m	<move (A0)+,$89AB2>	<move (A0)+,$89AB4>
	m	<move (A0)+,$89AB6>	<move (A0),$89AB8>

	m	<cmp.b #1,$10(A6)>	<bEQ 881F0>
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<cmp.b #6,D0>	<bEQ @F>
		m	<cmp.b #7,D0>	<bNE 881F0>

@@:	m	<move.l	A6,A5>	<add.l #$84,A5>	<BSR DIR_弾>
	m	<btst	#4,D0>	<bNE 881F0>
	m	<move.b	$11(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8814E>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<move.b	D3,$11(A6)>	<BRA 881F0>

@@:	m	<addq.b	#1,D3>	<and.b #$F,D3>	<move.b	D3,$11(A6)>	<BRA 881F0>

8814E	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 881F0>

	m	<move.b	$E7(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$E7(A6)>
	m	<and.b #3,D0>	<bNE 881F0>
	m	<move.l	A6,A5>	<add.l #$84,A5>	<BSR はみ出たか>	<bNE.s 881F0>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	881F0

881A4
	m	<move.l	__SCORE,D7>	<add.l #$12,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
881F0	m	<cmp.b #1,$10(A6)>	<bNE @F>
		m	<move #$1B4,$89ABA>	<move #0,$899E6>	*丸いクレータ
		BRA.s	88226

@@:		lea	$89ADE,A0	*小型挺の砲筒
		m	<moveq #0,D0>	<move.b	$11(A6),D0>	<lsl.b #2,D0>
		add.l	D0,A0
		m	<move (A0)+,$89ABA>	<move (A0),$89ABC>	*小型挺の砲筒
88226	*~}

	m	<lea $89AB2,A0>	<move.l	A6,A1>	<add.l #$F4,A1>	*小型挺
	LP 5,D0	<cmp (A0)+,(A1)+>	<bNE.s 88242>
 RTS
88242	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<move.l	06(A6),A1>	<move.l	$A(A6),A2>	;
	m	<move.l	$E(A6),D7>	<move.b	$E6(A6),D6>	;一時待避?
	JSR	生存登録抹消
	BSR	小型挺	*only?
	m	<lea $89AB2,A0>	<move.l	A6,A1>	<add.l #$F4,A1>	*小型挺
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
88284
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$1F0,2(A5)>	<bCC @F>
	m	<cmp #$1E0,2(A5)>	<bCS @F>
		JSR	生存登録抹消
		BRA	EXIT__88284

@@:	M	<tst.b $10(A6)>	<bEQ 883DC>

	M	<btst #4,$E(A6)>	<bNE.s 88302>
	M	<move.b	$F(A6),D0>	<bNE @F>
		BSR	敵の?属性等変更?
		BRA	EXIT__88284

@@:	subq.b	#1,$F(A6)
	m	<btst #7,$E(A6)>	<bEQ.s 88302>
	m	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE.s 88302>
		m	<moveq #1,D0>	<BSR E_MOVE>

88302
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$83,A0>	<move #2,D1>	<BSR 84592>
@@;
	m	<cmp.b #$F,$10(A6)>	<bCC @F>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$81(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #5,$10(A6)>	<bCC @F>
	m	<move.b	$82(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$83(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@;
	m	<tst.b $11(A6)>	<bNE EXIT__88284>
	m	<btst #5,$E(A6)>	<bNE EXIT__88284>
	m	<move.l	A6,A5>	<add.l #$8A,A5>	<BSR はみ出たか>	<bNE EXIT__88284>

	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$50,2(A5)>	<bCC EXIT__88284>

	bset.b	#5,$E(A6)
	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$88(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<subq.w	#8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<add.l #$88,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	BRA.s	EXIT__88284

883DC
	m	<move.l	__SCORE,D7>	<add.l #$96,D7 *\150>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$11,D0>	<JSR 生存登録抹消>
	BSR	爆発3×3_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__88284	RTS
*----
88428
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		M	<JSR 生存登録抹消>	<BRA EXIT__88428

@@:	m	<tst.b $10(A6)>	<bEQ 88574>
	m	<btst #4,$E(A6)>	<bNE.s 8849A>
	m	<move.b	$F(A6),D0>	<bNE @F>
		M	<BSR 敵の?属性等変更?>	<BRA EXIT__88428>

@@:	subq.b	#1,$F(A6)
	M	<btst #7,$E(A6)>	<bEQ @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
8849A
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$83,A0>	<move #2,D1>	<BSR 84592>
@@;
	m	<cmp.b #$F,$10(A6)>	<bCC @F>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$81(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #5,$10(A6)>	<bCC @F>
	m	<move.b	$82(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$83(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@;
	m	<tst.b $11(A6)>	<bNE EXIT__88428>
	m	<btst #5,$E(A6)>	<bNE EXIT__88428>
	m	<move.l	A6,A5>	<add.l #$8A,A5>	<BSR はみ出たか>	<bNE EXIT__88428>

	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$50,2(A5)>	<bCS EXIT__88428>
	bset.b	#5,$E(A6)
	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$86(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<subq.w	#8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	m	<add.l #$86,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	BRA	EXIT__88428

88574
	m	<move.l	__SCORE,D7>	<add.l #$96,D7 *\150>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$11,D0>	<JSR 生存登録抹消>
	BSR	爆発3×3_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__88428	RTS
*----
885C0
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$150,2(A5)>	<bCS @F>
	m	<cmp #$160,2(A5)>	<bCC @F>
		JSR	生存登録抹消
		BRA	EXIT__885C0

@@:	M	<tst.b $10(A6)>	<bEQ 88790>

	m	<btst #4,$E(A6)>	<bNE.s 8863E>
		m	<move.b	$F(A6),D0>	<bNE @F>
			BSR	敵の?属性等変更?
			BRA	EXIT__885C0

@@:		subq.b	#1,$F(A6)
		M	<btst #7,$E(A6)>	<bEQ @F>
		M	<move.b	__256_COUNT,D0>	<and.b #1,D0>	<bNE @F>
			m	<moveq #1,D0>	<BSR E_MOVE>
@@;
8863E;	~}

	m	<move.b	__256_COUNT,D0>	<and.b #7,D0 *%111>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$89,A0>	<move #5,D1>	<BSR 84592>
@@;
	m	<cmp.b #$19,$10(A6)>	<bCC @F>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$81(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$14,$10(A6)>	<bCC @F>
	m	<move.b	$82(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$83(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$F,$10(A6)>	<bCC @F>
	m	<move.b	$84(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$85(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$A,$10(A6)>	<bCC @F>
	m	<move.b	$86(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$87(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #5,$10(A6)>	<bCC @F>
	m	<move.b	$88(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@:	addq.b	#1,$11(A6)
	m	<btst #5,$E(A6)>	<bNE EXIT__885C0>
	m	<move.l	A6,A5>	<add.l #$92,A5>
	m	<BSR はみ出たか>	<bNE EXIT__885C0>
	m	<cmp.b #$A,$11(A6)>	<bEQ @F>
		m	<cmp.b #$3C,$11(A6)>	<bNE EXIT__885C0>
		move.b	#0,$11(A6)
		BRA	EXIT__885C0

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$92(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<addq.w	#4,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<add.l #$92,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	m	<moveq #1,D0>	<BSR 8976C>
	BRA	EXIT__885C0

88790
	m	<move.l	__SCORE,D7>	<add.l #$1F4,D7 *500>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #0,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__885C0	RTS
*----
MV_上がり艦橋砲台	*887DE
	m	<btst	#6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#7,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$87(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$1F0,2(A5)>	<bCC @F>
	m	<cmp #$1E0,2(A5)>	<bCS @F>
		JSR	生存登録抹消
		BRA	EXIT__MV_上がり艦橋砲台

@@:	m	<tst.b $10(A6)>	<bEQ 88976>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>	<bNE.s G8888A>

	m	<move.b	$889C2,D0>	<addq.b	#1,D0>	<move.b	D0,$889C2>
	IFn NE	<cmp.b #3,D0>	<move.b	#0,D0>	<move.b	D0,$889C2>
	m	<tst.b D0>	<bNE @F>
		m	<move.l	#$452,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
		BRA.s	G8888A

@@:	m	<cmp.b #1,D0>	<bNE @F>
		m	<move.l	#$455,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
		BRA.s	G8888A

@@:	m	<move.l	#$456,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
G8888A
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0 *111>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$8E,A0>	<move #3,D1>	<BSR 84592>
@@;
	m	<cmp.b #$32,$10(A6)>	<bCC @F>
	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$23,$10(A6)>	<bCC @F>
	m	<move.b	$8B(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$14,$10(A6)>	<bCC @F>
	m	<move.b	$8D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8E(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@:	addq.b	#1,$11(A6)
	m	<btst #5,$E(A6)>	<bNE EXIT__MV_上がり艦橋砲台>
	m	<move.l	A6,A5>	<add.l #$87,A5>	<BSR はみ出たか>	<bNE EXIT__MV_上がり艦橋砲台>
	m	<cmp.b #$A,$11(A6)>	<bEQ @F>
		m	<cmp.b #$28,$11(A6)>	<bNE EXIT__MV_上がり艦橋砲台>
		move.b	#0,$11(A6)
		BRA	EXIT__MV_上がり艦橋砲台

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$87(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__MV_上がり艦橋砲台

88976	m	<move.l	__SCORE,D7>	<add.l #$12C,D7 *300>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$11,D0>	<JSR 生存登録抹消>
	BSR	爆発3×3_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__MV_上がり艦橋砲台	RTS
889C2	.dc.b	0,0
*----
MV_下がり艦橋砲台	*889C4
	m	<btst	#6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#7,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<cmp.b #$16,__area2?>	<bEQ.s 88A4C>

	m	<cmp.b #$19,__area2?>	<bNE @F>
	m	<cmp.b #$10,__16dot毎のctr>	<bNE @F>
		BRA.s	88A42	*生存登録抹消?

@@:	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #0,2(A5)>		<bCS.s 88A4C>
	m	<cmp #$10,2(A5),	<bCC.s 88A4C>
	m	<cmp.b #$18,__area2?>	<bCC.s 88A42>	*生存登録抹消?
	m	<move.l	A6,A0>	<add.l #$80,A0>
	LP $E,D1	<move.b	(A0)+,D0>	<BSR PTRSETinSPREGBUF>	<subq.w	#1,2(A5)>
	BRA.s	88A4C

88A42
	JSR	生存登録抹消
	BRA	88C48

88A4C
	m	<tst.b $10(A6)>	<bEQ 88BFC>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *11>	<bNE.s 88AB6>
	m	<move.b	$88C62,D0>	<addq.b	#1,D0>	<move.b	D0,$88C62>
	IFn NE	<cmp.b #3,D0>	<move.b	#0,D0>	<move.b	D0,$88C62>
	m	<tst.b D0>	<bNE @F>
		m	<move.l	#$452,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
		BRA.s	88AB6

@@:	m	<cmp.b #1,D0>	<bNE @F>
		m	<move.l	#$455,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
		BRA.s	88AB6

@@:		m	<move.l	#$456,D0>	<move.b	$87(A6),D1>	<BSR SP_DEF>
88AB6	*~}

	m	<move.b	__256_COUNT,D0>	<and.b #7,D0 *111>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$8E,A0>	<move #3,D1>	<BSR 84592>
@@;
	m	<cmp.b #$32,$10(A6)>	<bCC @F>
	m	<move.b	$89(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8A(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$23,$10(A6)>	<bCC @F>
	m	<move.b	$8B(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8C(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	m	<cmp.b #$14,$10(A6)>	<bCC @F>
	m	<move.b	$8D(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$8E(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@:	IFn NE	<cmp.b #$17,__area2?>	<cmp.b #$10,__16dot毎のctr>	<bCS 88B74>
		m	<move.l	A6,A0>	<add.l #$80,A0>
		LP 8,D1	<move.b	(A0)+,D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
		bset.b	#5,(A6)
		BRA.s	88B98

88B74
	m	<move.l	A6,A0>	<add.l #$80,A0>
	LP $E,D1	<move.b	(A0)+,D0>	<BSR PTRSETinSPREGBUF>	<move #0,6(A5)>
	bclr.b	#5,(A6)
	BRA	88C48

88B98
	addq.b	#1,$11(A6)
	m	<btst #5,$E(A6)>	<bNE 88C48>
	m	<move.l	A6,A5>	<add.l #$87,A5>	<BSR はみ出たか>	<bNE 88C48>
	m	<cmp.b #$A,$11(A6)>	<bEQ @F>
		m	<cmp.b #$28,$11(A6)>	<bNE 88C48>

		move.b	#0,$11(A6)
		BRA.s	88C48

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$87(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	88C48

88BFC
	m	<move.l	__SCORE,D7>	<add.l #$12C,D7 *\300>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$11,D0>	<JSR 生存登録抹消>
	BSR	爆発3×3_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
88C48	M	<cmp.b #$18,__area2? *\24>	<bCC @F>
	M	<cmp.b #$33,$10(A6) *\51>	<bCC @F>
		move.b	#$33,$10(A6)
@@;
 RTS
88C62	0000
*----
88C64	*1面ボス??
	M	<btst.b	#6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#3,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		JSR	生存登録抹消
		BRA	EXIT__88C64

@@:	M	<tst.b $10(A6)>	<bEQ 88E88>
	M	<btst #4,$E(A6)>	<bNE.s 88CE2>
	M	<move.b	$F(A6),D0>	<bNE @F>
		BSR	敵の?属性等変更?
		BRA	EXIT__88C64

@@:	M	<subq.b	#1,$F(A6)>	<btst #7,$E(A6)>	<bEQ @F>
	M	<move.b	__256_COUNT,D0>	<and.b #1,D0>		<bNE @F>
		m	<moveq #1,D0>	<BSR E_MOVE>
@@;
88CE2
	m	<move.b	__256_COUNT,D0>	<and.b #7,D0>	<bNE @F>
		m	<move.l	A6,A0>	<add.l #$B6,A0>	<move #5,D1>	<BSR 84592>
@@;
	M	<cmp.b #$7D,$10(A6)>	<bCC @F>
	m	<move.b	$AD(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$AE(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	M	<cmp.b #$64,$10(A6)>	<bCC @F>
	m	<move.b	$AF(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$B0(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	M	<cmp.b #$4B,$10(A6)>	<bCC @F>
	m	<move.b	$B1(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$B2(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	M	<cmp.b #$32,$10(A6)>	<bCC @F>
	m	<move.b	$B3(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$B4(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

	M	<cmp.b #$19,$10(A6)>	<bCC @F>
	m	<move.b	$B5(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>
	m	<move.b	$B6(A6),D0>	<BSR PTRSETinSPREGBUF>	<move #3,6(A5)>

@@:	addq.b	#1,$11(A6)
	M	<btst #5,$E(A6)>	<bNE EXIT__88C64>
	M	<move.l	A6,A5>	<add.l #$A3,A5>	<BSR はみ出たか>	<bNE EXIT__88C64>
	M	<cmp.b #$A,$11(A6)>	<bEQ @F>
		M	<cmp.b #$3C,$11(A6)>			<bNE EXIT__88C64>
		move.b	#0,$11(A6)
		BRA	EXIT__88C64

@@:	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$A3(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<addq.w	#4,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<add.l #$A3,A6>	<move.l	A6,$8984C>
	m	<moveq #0,D0>	<BSR 8976C>
	m	<moveq #1,D0>	<BSR 8976C>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$9A(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$A0(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__88C64

88E88
	m	<move.l	__SCORE,D7>	<add.l #$BB8,D7	*\3000>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFE0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #9,D0>	<JSR 生存登録抹消>
	BSR	爆発5×5_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__88C64	RTS
*-----------------
TANK	*only?	88ED6
	m	<lea __TANK,A0>	<moveq #0,D0>	<JSR SPDEF＆SETPAL__dec>
	m	<move.l	A1,06(A6)>	<move.l	A2,$A(A6)>	*一時待避?してたのを復活
	move	$87DEA,(A6)
	m	<move.l	D7,$E(A6)>	<move.b	D6,$E6(A6)>	*	    〃
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>
	m	<addq.l	#2,A3>	<move #1,D6>

	m	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<add #$10,D3>			<BSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<BSR SP_SET>
	m	<add #$10,D3>			<BSR SP_SET>

	m	<cmp.b #1,$10(A6)>	<bNE @F>
		addq.l	#1,A3
		m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	 RTS

@@:	m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	lea	$88F7E,A2
	m	<moveq #0,D0>	<move.b	$11(A6),D0>	<and.b #$F,D0>	<lsl #2,D0>
	add.l	D0,A2
	m	<move (A2)+,D3>	<addq.w	#8,D3>
	m	<move (A2),D4>	<addq.w	#8,D4>
	BSR	SP_SET
 RTS
88F7E	0000FFF0 0008FFF8 0008FFF8 0008FFF8	00100000 00080008 00080008 00080008
	00000010 FFF80008 FFF80008 FFF80008	FFF00000 FFF8FFF8 FFF8FFF8 FFF8FFF8
*--------------------
小型挺	*only?	88FBE
	m	<lea __小型挺,A0>	<moveq #0,D0>	<JSR SPDEF＆SETPAL__dec>
	m	<move.l	A1,06(A6)>	<move.l	A2,$A(A6)>	*一時待避?してたのを復活
	move	#$A013,(A6)
	m	<move.l	D7,$E(A6)>	<move.b	D6,$E6(A6)>	*	    〃
	move.b	$80(A6),$76(A6)
	move.b	#$FF,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#1,D6
	m	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
	m	<add #$10,D3>			<BSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<BSR SP_SET>
	m	<add #$10,D3>			<BSR SP_SET>

	m	<cmp.b #1,$10(A6)>	<bNE @F>
		addq.l	#1,A3
		m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	 RTS

@@:	m	<moveq #8,D3>	<moveq #8,D4>	<BSR SP_SET>
	lea	$89064,A2
	m	<moveq #0,D0>	<move.b	$11(A6),D0>	<and.b #$F,D0>	<lsl #2,D0>
	add.l	D0,A2
	m	<move (A2)+,D3>	<addq.w	#8,D3>
	m	<move (A2),D4>	<addq.w	#8,D4>
	BSR	SP_SET
 RTS
89064	0000FFF0 0008FFF8 0008FFF8 00100000	00100000 00080008 00080008 00080008
	00000010 00000010 FFF80008 FFF80008	FFF00000 FFF00000 FFF8FFF8 0000FFF0
*-------------------
890A4	*自弾ルーチンとBOMBERルーチンからしか呼ばれない
	PUSH	D0-D1/A6
	m	<lea $B1100,A6>	<move #$7E,D1>
890B2		M	<cmp #-1,(A6)>		<bEQ @F>
		m	<move.b	(A6),D0>	<and.b #$18,D0 *%1_1000>	<cmp.b #$18,D0>
		bNE	@F
			JSR	生存登録抹消
@@;
		add	#$100,A6
	dbF	D1,890B2
	POP	D0-D1/A6
 RTS
*----------------
890D8	*only( MAIN 〜 MV_色々 〜 MV_BOMBER 〜 )
	PUSH	D0-D1/A6
	m	<lea $B1100,A6>	<move #$7E,D1>
890E6		M	<cmp #$FFFF,(A6)>	<bEQ @F>
		m	<move.b	(A6),D0>	<and.b #$18,D0 *%1_1000>
		M	<cmp.b #$10,D0 *%1_0000>	<bNE @F>
			JSR	生存登録抹消
@@:		add	#$100,A6
	dbF	D1,890E6
	move.l	#0,$866A0
	POP	D0-D1/A6
 RTS
*-----------------
SP_DEF	*89116
	PUSH	D0-D1/A0-A1
	m	<lea $C0000,A0>	<lsl.l #7,D0>	<add.l D0,A0>
	m	<and.l #$FF,D1>	<lsl #3,D1>	<lea $B0604,A1>	<add D1,A1>
	m	<moveq #0,D1>	<move (A1),D1>	<and #$FF,D1>
	m	<lea _SP_PCG,A1>	<lsl.l #7,D1>	<add.l D1,A1>
	m	<REPT 31>	<move.l	(A0)+,(A1)+>	ENDM,	<move.l	(A0),(A1)>	*計32
	POP	D0-D1/A0-A1
 RTS
*------------------
Ｂマーク他DPSPSET	*8918C
	PUSH	A6
	m	<tst.b __Bマーク存在FLAG>	<bNE EXIT__Ｂマーク他DPSPSET>
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ EXIT__Ｂマーク他DPSPSET>

	m	<move #$4200,(A6)>	<move.l	#0,$E(A6)>
	m	<move.b	$80(A6),$76(A6)>	<move.b	#-1,$77(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>

	move.b	#-1,__Bマーク存在FLAG
EXIT__Ｂマーク他DPSPSET	m	<POP A6> RTS
*----------------
隠れ爆発5×5_DPSPSET	*891EC
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ EXIT__隠れ爆発5×5_DPSPSET>

	m	<move #$8020,(A6)>	<move.b	#0,$E(A6)>
	m	<move.b	D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 4,D5	<LP 4,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
EXIT__隠れ爆発5×5_DPSPSET	m	<POP A6>	RTS
*----------------
爆発5×5_DPSPSET	*89252
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ EXIT__爆発5×5_DPSPSET>

	m	<move #$8020,(A6)>	<move.b	#2,$E(A6)>
	m	<move.b	D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 4,D5	<LP 4,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
EXIT__爆発5×5_DPSPSET	m	<POP A6>	RTS
*----------------
爆発3×3_DPSPSET	*892B8
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ EXIT__爆発3×3_DPSPSET>

	m	<move #$4020,(A6)>	<move.b	#1,$E(A6)>
	m	<move.b	D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 2,D5	<LP 2,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
EXIT__爆発3×3_DPSPSET	m	<POP A6>	RTS
*---------------
隠れ爆発2×2_DPSPSET	*8931E
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ EXIT__隠れ爆発2×2_DPSPSET>
	m	<move #$8020,(A6)>	<move.b	#3,$E(A6)>
	m	<D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
EXIT__隠れ爆発2×2_DPSPSET	m	<POP A6>	RTS
*-------------
爆発2×2_DPSPSET	*89384
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<BSR 8B59C>	<bEQ EXIT__爆発2×2_DPSPSET>

	move	#$8020,(A6)
	m	<move.b	#4,$E(A6)>	<move.b	D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>
	LP 1,D5	<LP 1,D0 <BSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
EXIT__爆発2×2_DPSPSET	m	<POP A6>	RTS
*-------------
丸い爆発跡1×1	*only?	893E8
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<moveq #$24,D0>	<JSR SPDEF＆SETPAL__dec> <bEQ EXIT__丸い爆発跡1×1>

	move	#$8020,(A6)
	m	<move.b	#5,$E(A6) *%0000_1001>	<move.b	D0,$F(A6)>	<move #0,$10(A6)>
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #1,D6>	<moveq #0,D3>	<moveq #0,D4>	<BSR SP_SET>
EXIT__丸い爆発跡1×1	m	<POP A6>	RTS
*-------------------
MV_S＆1UP	*89436
	m	<tst.b $E(A6)>	<bEQ @F>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>	<subq.b	#1,D0>
		IFn NE	<cmp.b #-1,D0>	<move.b	#$93,D0>
		move.b	D0,$F(A6)
		m	<lea $89494,A4>	<lsl #2,D0>	<add.l D0,A4>
		m	<move (A4)+,D0>	<sub D0,(A5)>
		m	<move (A4),D0>	<sub D0,2(A5)>
	 RTS

@@:	m	<moveq #0,D0>	<move.b	$F(A6),D0>	<addq.b	#1,D0>
	IFn NE	<cmp.b #$94,D0>	<move.b	#0,D0>
	move.b	D0,$F(A6)
	m	<lea $89494,A4>	<lsl #2,D0>	<add.l D0,A4>
	m	<move (A4)+,D0>	<add D0,(A5)>
	m	<move (A4),D0>	<add D0,2(A5)>
 RTS
89494  0000 0000 0002 0000 0002 0000 0002 0000	0002 0000 0002 0001 0002 0000 0002 0001
894B4  0002 0000 0002 0002 0002 0000 0002 0001	0002 0001 0002 0001 0002 0002 0002 0001
894D4  0001 0001 0001 0001 0002 0002 0001 0001	0001 0001 0001 0002 0002 0002 0001 0002
894F4  0001 0002 0001 0002 0000 0002 0002 0002	0000 0002 0001 0002 0000 0002 0001 0002
-D
89514  0000 0002 0000 0002 0000 0002 0000 0002	0000 0002 0000 0002 0000 0002 0000 0002
89534  0000 0002 0000 0002 FFFF 0002 0000 0002	FFFF 0002 0000 0002 FFFE 0002 0000 0002
89554  FFFF 0002 FFFF 0002 FFFF 0002 FFFE 0002	FFFF 0002 FFFF 0001 FFFF 0001 FFFE 0002
89574  FFFF 0001 FFFF 0001 FFFE 0001 FFFE 0002	FFFE 0001 FFFE 0001 FFFE 0001 FFFE 0000
-D
89594  FFFE 0002 FFFE 0000 FFFE 0001 FFFE 0000	FFFE 0001 FFFE 0000 FFFE 0000 FFFE 0000
895B4  FFFE 0000 FFFE 0000 FFFE 0000 FFFE 0000	FFFE 0000 FFFE 0000 FFFE 0000 FFFE FFFF
895D4  FFFE 0000 FFFE FFFF FFFE 0000 FFFE FFFE	FFFE 0000 FFFE FFFF FFFE FFFF FFFE FFFF
895F4  FFFE FFFE FFFE FFFF FFFF FFFF FFFF FFFF	FFFE FFFE FFFF FFFF FFFF FFFF FFFF FFFE
-D
89614  FFFE FFFE FFFF FFFE FFFF FFFE FFFF FFFE	0000 FFFE FFFE FFFE 0000 FFFE FFFF FFFE
89634  0000 FFFE FFFF FFFE 0000 FFFE 0000 FFFE	0000 FFFE 0000 FFFE 0000 FFFE 0000 FFFE
89654  0000 FFFE 0000 FFFE 0000 FFFE 0000 FFFE	0001 FFFE 0000 FFFE 0001 FFFE 0000 FFFE
89674  0002 FFFE 0000 FFFE 0001 FFFE 0001 FFFE	0001 FFFE 0002 FFFE 0001 FFFE 0001 FFFF
-D
89694  0001 FFFF 0002 FFFE 0001 FFFF 0001 FFFF	0002 FFFF 0002 FFFE 0002 FFFF 0002 FFFF
896B4  0002 FFFF 0002 0000 0002 FFFE 0002 0000	0002 FFFF 0002 0000 0002 FFFF 0002 0000
896D4  0002 0000 0002 0000 0002 0000 0002 0000
*-------------------
MV?_1000pts表示	*only( MAIN 〜 MV_色々 〜 )	896E4
	m	<addq.b	#1,$11(A6)>	<cmp.b #$96,$11(A6) *\150>	<bNE @F>	*寿命?
		JSR	生存登録抹消
@@;
 RTS
*-------------------
MV?_B	*only?( MAIN 〜 MV_色々 〜 )	896F8
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5) *\272>	<bCS @F>
	m	<cmp #$120,2(A5) *\288>	<bCC @F>
		JSR	生存登録抹消
		move.b	#0,__Bマーク存在FLAG
@@;
 RTS
*---------------------
MV?_1UP	*only?( MAIN 〜 MV_色々 〜 )	89720
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5) *\272>	<bCS @F>
	m	<cmp #$120,2(A5) *\288>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	BSR	MV_S＆1UP
 RTS
*--------------------
MV?_S	*only?	89746
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5) *\272>	<bCS @F>
	m	<cmp #$120,2(A5) *\288>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	BSR	MV_S＆1UP
 RTS
*-----------------------
8976C *( D0
	PUSH	D0-D7/A0-A6
	m	<lea $89834,A0>	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move.l	(A0)+,D0>	<move.l	D0,D2>
	m	<move.l	(A0),D1>	<move.l	D1,D3>
	move.l	$8984C,A5
	m	<move.b	(A5),D4>	<and.l #$FF,D4>	<lsl #3,D4>
	m	<lea $B0600,A5>	<add D4,A5>
	m	<move $B0600,D4>	<sub (A5)+,D4>
	m	<move $B0602,D5>	<sub (A5),D5>
	BSR.s	897B8
	m	<neg.l D1>	<neg.l D3>	<BSR.s 897B8>
	POP	D0-D7/A0-A6
 RTS
*--
897B8
	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>

	m	<muls D4,D0>	<muls D5,D1>	<add.l D1,D0>	<bEQ @F>
		divs	#$2710,D0	*\10000
		m	<subq.l	#2,A5>	<add (A5),D0>
		m	<sub $B0600,D0>	<move D0,__SA？_J_X>
@@;
	m	<move.l	D2,D0>	<move.l	D3,D1>	<muls D4,D1>	<neg.l D1>
	m	<muls D5,D0>	<add.l D1,D0>	<bEQ @F>
		divs	#$2710,D0	*\10000
		m	<addq.l	#2,A5>	<add (A5),D0>
		m	<sub $B0602,D0>	<move D0,__SA？_J_Y>
@@;
	m	<move.l	D2,D0>	<move.l	D3,D1>	<BSR.s 8980E *only?>
 RTS
*--
8980E	*only?
	PUSH	D0-D2/A5
	m	<move.l	$8984C,A5>	<move.b	(A5),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<subq.w	#8,D1>
	m	<move (A5),D2>	<subq.w	#4,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	POP	D0-D2/A5
89832 RTS
89834  000021D4 00001388 00001388 000021D4	000006D0 0000270E 00000000
*==================
*----
MV_隠れ爆発5×5	*89850
	m	<move.b	$10(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$10(A6)>
	m	<and.b #7,D0>	<bNE @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<subq.w	#8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>
		M	<cmp.b #$10,D0>	<bEQ.s 8988A>

		m	<addq.b	#1,D0>	<JSR 生存登録抹消>
		BSR	隠れ爆発5×5_DPSPSET
@@;
 RTS
8988A	JSR	生存登録抹消
 RTS
*----
MV_爆発5×5	*89892
	m	<move.b	$10(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$10(A6)>
	m	<and.b #7,D0>	<bNE @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<subq.w	#8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>
		M	<cmp.b #$10,D0>	<bEQ.s 898CC>

		m	<addq.b	#1,D0>	<JSR 生存登録抹消>
		BSR	爆発5×5_DPSPSET
@@;
 RTS
898CC	JSR	生存登録抹消
 RTS
*----
MV_爆発3×3	*898D4
	m	<move.b	$10(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$10(A6)>
	m	<and.b #3,D0>	<bNE @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<subq.w	#8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>	<cmp.b #$18,D0>	<bEQ.s 8990E>

		m	<addq.b	#1,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
@@;
 RTS
8990E	JSR	生存登録抹消
 RTS
*----
MV_隠れ爆発2×2	*89916
	m	<move.b	$10(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$10(A6)>
	m	<and.b #3,D0>	<bNE.s 8994E>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<subq.w	#8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>	<cmp.b #$20,D0>	<bEQ @F>

		m	<addq.b	#1,D0>	<JSR 生存登録抹消>
		BSR	隠れ爆発2×2_DPSPSET
8994E;
 RTS
@@	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	JSR	生存登録抹消
	BSR	丸い爆発跡1×1	*only?
 RTS
*----
MV_爆発2×2	*89970
	m	<move.b	$10(A6),D0>	<addq.b	#1,D0>	<move.b	D0,$10(A6)>
	m	<and.b #3,D0>	<bNE @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<subq.w	#8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		m	<moveq #0,D0>	<move.b	$F(A6),D0>
		m	<cmp.b #$20,D0>	<bEQ.s 899AA>

		m	<addq.b	#1,D0>	<JSR 生存登録抹消>
		BSR	爆発2×2_DPSPSET
@@;
 RTS
899AA	JSR	生存登録抹消
 RTS
*----
899B2
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5) *\272>	<bCS @F>
	m	<cmp #$120,2(A5) *\288>	<bCC @F>
		JSR	生存登録抹消
@@;
 RTS
*----
__TANK
	.dc.l	$899D6
899D6	.dc.w	$061D,$09FF,$FF00
899DC	0,0,0,0
899E4	0,0
899E8	06000601 06020603 06040605 06060607 06080609 060A060B 060C060D 060E060F
	06100611 06120613 06140615 06160617 06180619 061A061B 061C061D 061E061F
	06200621 06220623 06240625 06260627 06280629 062A062B 062C062D 062E062F
	06300631 06320633 06340635 06360637 06380639 063A063B 063C063D 063E063F
89A68	06D806D9 06DA06DB 06DC06DD 06DE06DF 06E006E1 06E206E3 06E406E5 06E606E7
	06E806E9 06EA06EB 06EC06ED 06EE06EF 06F006F1 06F206F3 06F406F5 06F606F7

__小型挺
	.dc.l	$89AAC
89AAC	.dc.w	$0619,$09FF,$FF00
89AB2	.dc.w	0,0,0,0
89ABA	.dc.w	0,0
89ABE	06800681 06820683 06880689 068A068B 06900691 06920693 06980699 069A069B	*小型挺
89ADE	03C003C1 03C203C3 03C403C5 03C603C7 03C803C9 03CA03CB 03CC03CD 03CE03CF *砲筒
	03D003D1 03D203D3 03D403D5 03D603D7 03D803D9 03DA03DB 03DC03DD 03DE03DF
*-------------------
89B1E
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		m	<JSR 生存登録抹消>	<BRA EXIT__89B1E>

@@:	m	<tst.b $10(A6)>	<bEQ 89C6E>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$50,2(A5)>	<bCS 89BFE>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%11111>	<bNE 89BFE>

	m	<move $B0600,D1>	<lsr #5,D1>
	m	<move (A5),D2>	<subq.w	#8,D2>	<lsr #5,D2>
	m	<cmp D1,D2>	<bEQ @F>	<bCC.s 89BB8>
		move.b	#7,D1
		m	<move.b	$E(A6),D0>	<and.b #$F,D0>
		M	<cmp.b D0,D1>	<bEQ.s 89BFE>
		m	<and.b	#$F0,$E(A6)>	<ori.b #7,$E(A6)>
		BRA.s	89BD4

@@:		move.b	#8,D1
		m	<move.b	$E(A6),D0>	<and.b #$F,D0>
		M	<cmp.b D0,D1>	<bEQ.s 89BFE>
		m	<and.b	#$F0,$E(A6)>	<ori.b #8,$E(A6)>
		BRA.s	89BD4

89BB8:		move.b	#9,D1
		m	<move.b	$E(A6),D0>	<and.b #$F,D0>
		M	<cmp.b D0,D1>	<bEQ.s 89BFE>
		m	<and.b	#$F0,$E(A6)>	<ori.b #9,$E(A6)>

89BD4
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>	<JSR 生存登録抹消>
	BSR	戦闘機1_DPSPSET	*only?
89BFE
	m	<moveq #2,D0>	<BSR E_MOVE>

	M	<tst.b __復活時の手加減期間COUNTER>	<bNE EXIT__89B1E>
	M	<btst #5,$E(A6)>	<bNE EXIT__89B1E>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	M	<cmp #$50,2(A5)>	<bCS EXIT__89B1E>
	M	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE EXIT__89B1E>

	bset.b	#5,$E(A6)
	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__89B1E

89C6E
	m	<move.l	__SCORE,D7>	<add.l #$14,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__89B1E	RTS
*----
89CBA
	m	<move.b	$E(A6),D0>	<and.b #$F,D0>	<cmp.b #8,D0>	<bEQ @F>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$1F0,2(A5)>	<bCC @F>
	m	<cmp #$1E0,2(A5)>	<bCS @F>
		m	<JSR 生存登録抹消>	<BRA EXIT__89CBA>

@@:	m	<tst.b $10(A6)>	<bEQ 89DEA>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>	<bNE.s 89D7A>
	m	<tst.b $F(A6)>	<bNE @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>	<move 2(A5),D0>
		m	<move $B0602,D1>	<sub D0,D1>	<cmp #$50,D1>	<bCS @F>
			BRA.s	89D7A

@@:	move.b	#-1,$F(A6)
	m	<move.b	$E(A6),D0>	<and.b #$F,D0>	<cmp.b #1,D0>	<bEQ @F>
	m	<cmp.b #$F,D0>						<bEQ @F>
		m	<add.b $11(A6),D0>	<and.b	#$F0,$E(A6)>	<or.b D0,$E(A6)>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		move.l	$E(A6),D7
		m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
		JSR	生存登録抹消
		BSR	戦闘機2_DPSPSET	*only?
		m	<moveq #2,D0>	<BSR E_MOVE>
		BRA.s	89D92

@@;	}{
89D7A		m	<moveq #2,D0>	<BSR E_MOVE>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<cmp #$50,2(A5)>	<bCS EXIT__89CBA>

89D92;

	m	<tst.b __復活時の手加減期間COUNTER>	<bNE EXIT__89CBA>
	m	<btst #5,$E(A6)>	<bNE EXIT__89CBA>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE EXIT__89CBA>

	bset.b	#5,$E(A6)
	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__89CBA

89DEA	m	<move.l	__SCORE,D7>	<add.l #$14,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__89CBA	RTS
*----
89E36
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5)>	<bCS @F>
	m	<cmp #$120,2(A5)>	<bCC @F>
		m	<JSR 生存登録抹消>		<BRA EXIT__89E36>

@@:	m	<tst.b $10(A6)>	<bEQ @F>
		m	<moveq #2,D0>	<BSR E_MOVE>
		M	<tst.b __復活時の手加減期間COUNTER>		<bNE EXIT__89E36>
		m	<btst #5,$E(A6)>	<bNE EXIT__89E36>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<cmp #$50,2(A5)>	<bCC EXIT__89E368>
		m	<move.l	A6,A5>	<add.l #$80,A5>
		m	<BSR はみ出たか>	<bNE EXIT__89E36>
		bset.b	#5,$E(A6)
		m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #8,D0>	<JSR MK_敵弾>	<BRA EXIT__89E36>

@@:	m	<move.l	__SCORE,D7>	<add.l #$14,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__89E36 RTS
*----
89F1A	*ITEM戦闘機
	IFn EQ	<btst #4,$E(A6)>	<JSR 生存登録抹消>	<BEXIT__89F1A>
	m	<tst.b $10(A6)>	<bEQ 89FF8>
	IFn NE	<move.b	$F(A6),D0>	<BSR 8B392 *only>	<BRA EXIT__89F1A>
	subq.b	#1,$F(A6)
	m	<move.b	$E(A6),D0>	<and.b #$F,D0>	<move.b	$E6(A6),D1>
	m	<cmp.b D0,D1>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF8,D1>
		m	<move (A5),D2>	<addq.w	#8,D2>
		move.l	$E(A6),D7
		m	<moveq #0,D0>	<move.b	$11(A6),D0>	<lsl.b #4,D0>
		m	<move.b	$E(A6),D6>	<and.b #$F,D6>	<move.b	D6,$E6(A6)>
		add.b	D6,D0
		move.b	$E6(A6),D3
		m	<move.l	06(A6),A1>	<move.l	$A(A6),A2>	*一時待避?
		JSR	生存登録抹消
		BSR	ITEM戦闘機_DPSPSET	*only?
@@;
	m	<moveq #2,D0>	<BSR E_MOVE>
	m	<tst.b __復活時の手加減期間COUNTER>		<bNE EXIT__89F1A>
	m	<btst #5,$E(A6)>	<bEQ EXIT__89F1A>
	bclr.b	#5,$E(A6)
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE EXIT__89F1A>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA	EXIT__89F1A

89FF8
	m	<move.l	__SCORE,D7>	<add.l #$14,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<subq.w	#1,$86758>	<bNE.s 8A06A>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	JSR	生存登録抹消

	m	<tst.b __ITEM戦闘機の持ち物>	<bNE @F>
		m	<BSR ＳITEM_DPSPSET *only>	<BRA EXIT__89F1A>

@@:	m	<cmp.b #1,__ITEM戦闘機の持ち物>	<bNE @F>
		BSR	全滅1000_DPSPSET	*only
		m	<move.l	__SCORE,D7>	<add.l #$64,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		BRA	EXIT__89F1A

@@:	m	<BSR EXTEND_DPSPSET *only>	<BRA EXIT__89F1A>

8A06A
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	m	<moveq #$19,D0>	<JSR 生存登録抹消>
	BSR	爆発2×2_DPSPSET
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
EXIT__89F1A	RTS
*----
8A0A0	*丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<btst #2,__bg1関係のstat_1>	<bEQ @F>
		m	<cmp #$1F2,2(A5)>	<bCC.s 8A114>
		m	<cmp #$1F0,2(A5)>	<bCS.s 8A114>
		BRA.s	8A10C

@@:		m	<cmp #$10E,2(A5)>	<bCS.s 8A114>
		m	<cmp #$110,2(A5)>	<bCC.s 8A114>
8A10C

	JSR	生存登録抹消
 RTS
8A114	m	<tst.b $10(A6)>	<bEQ 8A21C>
	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A1C6>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8A294>
	m	<eor.b #1,$E6(A6)>					<bNE 8A294>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A1C6>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A294
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A294

;~}
8A1C6
	M	<tst.b __復活時の手加減期間COUNTER>	<bNE 8A294>
	M	<move.b	__256_COUNT,D0>	<and.b #$3F,D0 *%11_1111>	<bNE 8A294>
	M	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8A294>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	8A294

8A21C
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7 *30>	<move.l	D7,__SCORE>
	BSR	SCORE表示
	m	<btst #6,$E(A6)>	<bEQ.s 8A25C>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8A294	lea	$8BE72,A0	*丸い砲台
	move.l	A6,A1
	add.l	#$F8,A1
	move	#3,D0
@@		m	<cmp (A0)+,(A1)+>	<bNE.s 8A2B0>

	dbF	D0,@B
 RTS
8A2B0	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
8A2EE	*丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<cmp.b #$19,__area2?>	<bCC.s 8A3A6>

	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	M	<cmp #$150,2(A5) *\336>	<bCS 8A3C6>
	M	<cmp #$160,2(A5) *\352>	<bCC 8A3C6>
	M	<btst #2,__bg1関係のstat_1>	<bEQ @F>
		move	#3,$E8(A6)
		bclr.b	#5,$E(A6)
		bset.b	#5,(A6)
		m	<move.l	A6,A0>	<add.l	#$F8,A0>
		m	<move.l	#-1,(A0)+>	<move.l	#-1,(A0)>
		sub	#$40,2(A5)
		BRA.s	8A3C6

@@:		move	#0,$E8(A6)
		bset.b	#5,$E(A6)
		bclr.b	#5,(A6)
		m	<move.l	A6,A0>	<add.l #$F8,A0>
		m	<move.l	#-1,(A0)+>	<move.l	#-1,(A0)>
		BRA.s	8A3C6

*~}
8A3A6
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$110,2(A5) *\272>	<bCS.s 8A3C6>
	m	<cmp #$1C8,2(A5) *\456>	<bCC.s 8A3C6>
		JSR	生存登録抹消
	 RTS

8A3C6
	m	<tst.b $10(A6)>	<bEQ 8A4D8>

	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A478>

	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8A550>
	m	<eor.b #1,$E6(A6)>					<bNE 8A550>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A478>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A550
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A550

;~}
8A478
	m	<tst.b __復活時の手加減期間COUNTER>			<bNE 8A550>
	m	<btst #5,$E(A6)>					<bNE 8A550>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8A550>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8A550>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	8A550

8A4D8
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8A550	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	move	#3,D0
@@		m	<cmp (A0)+,(A1)+>	<bNE.s 8A56C>

	dbF	D0,@B
 RTS
8A56C	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move.b	$E6(A6),D6
	move	$E8(A6),D5
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
8A5AA	*丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$10E,2(A5)>	<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
			JSR	生存登録抹消
		 RTS

@@:	m	<tst.b $10(A6)>	<bEQ 8A70A>

	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A6B4>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8A782>
	m	<eor.b #1,$E6(A6)>					<bNE 8A782>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>

	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A6B4>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A782
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A782

*~}
8A6B4
	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 8A782>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8A782>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8A782>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	8A782

8A70A
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8A782	lea	$8BE72,A0	*丸い砲台
	m	<move.l	A6,A1>	<add.l #$F8,A1>
	move	#3,D0
@@		m	<cmp (A0)+,(A1)+>	<bNE.s 8A79E>

	dbF	D0,@B
 RTS
8A79E	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>		<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
8A7DC	*丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$10E,2(A5)>	<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
			JSR	生存登録抹消
		 RTS

@@:	m	<tst.b $10(A6)>	<bEQ 8A93C>
	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	M	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A8E6>
	M	<move.b	__256_COUNT,D0>	<and.b #3,D0>			<bNE 8A9B4>
	M	<eor.b #1,$E6(A6)>					<bNE 8A9B4>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	M	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8A8E6>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A9B4
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8A9B4

*~}
8A8E6
	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 8A9B4>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8A9B4>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8A9B4>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	8A9B4

8A93C
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS
@@;
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8A9B4	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	move	#3,D0
@@		M	<cmp (A0)+,(A1)+>	<bNE.s 8A9D0>
	dbF	D0,@B
 RTS
8A9D0	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
8AA0E	*丸い砲台
	move.b	#8,$8BE6D
	IFn	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	M	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$10E,2(A5)>	<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	M	<tst.b $10(A6)>	<bEQ 8AB6E>
	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AB18>

	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8ABE6>
	m	<eor.b #1,$E6(A6)>					<bNE 8ABE6>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>

	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AB18>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8ABE6
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8ABE6

;~}
8AB18
	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 8ABE6>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8ABE6>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>		<bNE 8ABE6>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>
	BRA.s	8ABE6

8AB6E
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8ABE6	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	move	#3,D0
@@		m	<cmp (A0)+,(A1)+>	<bNE 8AC02>

	dbF	D0,@B
 RTS
8AC02	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*----
8AC40	丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$10E,2(A5)>	<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	m	<tst.b $10(A6)>	<bEQ 8ADA0>

	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AD4A>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8AE18>
	m	<eor.b #1,$E6(A6)>					<bNE 8AE18>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>
	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AD4A>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8AE18
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8AE18

;~}
8AD4A
	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 8AE18>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8AE18>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8AE18>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<JSR MK_敵弾>	<BRA.s 8AE18>

8ADA0
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0	*6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8AE18	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	move	#3,D0
@@		m	<cmp (A0)+,(A1)+>	<bNE @F>

	dbF	D0,@B
 RTS
@@:	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	*丸い砲台
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*--------------------
8AE72	*丸い砲台
	move.b	#8,$8BE6D
	IFn EQ	<cmp.b #7,$10(A6)>	<move.b	#$13,$8BE6D>
	m	<btst #6,1(A6)>	<bEQ @F>
		m	<move.l	__SCORE,D7>	<addq.l	#2,D7>	<move.l	D7,__SCORE>
		BSR	SCORE表示
		bclr.b	#6,1(A6)
@@;
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<cmp #$10E,2(A5)>	<bCS @F>
	m	<cmp #$110,2(A5)>	<bCC @F>
		JSR	生存登録抹消
	 RTS

@@:	m	<tst.b $10(A6)>	<bEQ 8AFD2>

	lea	$8BE7A,A0	*丸い砲台
	m	<moveq #0,D0>	<move.b	$E(A6),D0>	<and.b #$F,D0>
	IFn EQ	<cmp.b #7,$10(A6)>	<add.b #$10,D0>
	m	<lsl.b #3,D0>	<add.l D0,A0>
	m	<move (A0)+,$8BE72>	<move (A0)+,$8BE74>
	m	<move (A0)+,$8BE76>	<move (A0),$8BE78>

	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>

	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AF7C>
	m	<move.b	__256_COUNT,D0>	<and.b #3,D0 *%11>		<bNE 8B04A>
	m	<eor.b #1,$E6(A6)>					<bNE 8B04A>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR DIR_弾>

	m	<move.b	$E(A6),D3>	<and.b #$F,D3>	<cmp.b D3,D0>	<bEQ.s 8AF7C>	<bCC @F>
		m	<subq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8B04A
	*方向
@@:		m	<addq.b	#1,D3>	<and.b #$F,D3>	<and.b	#$F0,$E(A6)>	<or.b D3,$E(A6)>
		BRA	8B04A

;~}
8AF7C
	m	<tst.b __復活時の手加減期間COUNTER>	<bNE 8B04A>
	m	<move.b	__256_COUNT,D0>	<and.b #$1F,D0 *%1_1111>	<bNE 8B04A>
	m	<move.l	A6,A5>	<add.l #$80,A5>	<BSR はみ出たか>	<bNE 8B04A>

	m	<move #0,__SA？_J_X>	<move #0,__SA？_J_Y>
	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #0,D1>
	m	<move (A5),D2>	<add #$10,D2>
	m	<moveq #8,D0>	<BSR MK_敵弾>
	BRA.s	8B04A

8AFD2
	m	<move.l	__SCORE,D7>	<add.l #$1E,D7>	<move.l	D7,__SCORE>	<BSR SCORE表示>
	m	<btst #6,$E(A6)>	<bEQ @F>
		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #0,D1>
		m	<move (A5),D2>	<add #$10,D2>
		m	<moveq #$21,D0>	<JSR 生存登録抹消>
		BSR	Ｂマーク他DPSPSET
	 RTS

@@:		m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
		m	<move (A5)+,D1>	<add #$FFF0,D1>
		m	<move (A5),D2>	<add #0,D2>
		m	<moveq #$11,D0>	<JSR 生存登録抹消>
		BSR	爆発3×3_DPSPSET
*~}
	PUSH	D0/A0						*爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#7,D0>	<JSR (A0)>
	POP	D0/A0
 RTS
8B04A	m	<lea $8BE72,A0>	<move.l	A6,A1>	<add.l #$F8,A1>	<move #3,D0>	*丸い砲台
@@		m	<cmp (A0)+,(A1)+>	<bNE.s 8B066>

	dbF	D0,@B
 RTS
8B066	m	<move.b	$80(A6),D0>	<BSR PTRSETinSPREGBUF>
	m	<move (A5)+,D1>	<add #$FFF8,D1>
	m	<move (A5),D2>	<addq.w	#8,D2>
	move.l	$E(A6),D7
	move	(A6),D3
	move	#3,D5
	move.b	$E6(A6),D6
	JSR	生存登録抹消
	BSR	丸い砲台_DPSPSET
	lea	$8BE72,A0	*丸い砲台
	m	<move.l	A6,A1>	<add.l #$F8,A1>
	m	<move.l	(A0)+,(A1)+>	<move.l	(A0),(A1)>
 RTS
*=================
ITEM戦闘機_DPSPSET	*only?	8B0A4
	m	<lea $83950,A0>	<JSR SPDEF＆SETPAL__inc>
	m	<move.l	A1,06(A6)>	<move.l	A2,$A(A6)>	*一時待避?してたのを復活
	move	#$200A,(A6)
	move.l	D7,$E(A6)
	move.b	D3,$E6(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#3,D6
	m	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
 RTS
*--------------------
戦闘機2_DPSPSET	*only?	8B114
	m	<lea $83630,A0>	<JSR SPDEF＆SETPAL__inc>
	move.l	A1,06(A6)
	move	#$2007,(A6)
	move.l	D7,$E(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#3,D6
	m	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
 RTS
*-------------------
戦闘機1_DPSPSET	*only?	8B17C
	m	<lea $83510,A0>	<JSR SPDEF＆SETPAL__inc>
	move.l	A1,06(A6)
	move	#$2006,(A6)
	move.l	D7,$E(A6)
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	#3,D6
	m	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
 RTS
*-----------------
8B1E4	*only?	戦闘機1を作るルーチン?から
	PUSH	A0
	moveq	#0,D0
	m	<move.b	__256_COUNT,D0>	<add.b $84173,D0>	<and.b #7,D0>	<add.b D0,D0>
	m	<lea $8B20C,A0>	<add.l D0,A0>	<move (A0),D0>
	POP	A0
 RTS ( D0 )
8B20C	.dc.w	7,7,8,8,8,8,9,9
*------------------
丸い砲台_DPSPSET *( D7:方向	)	8B21C
	m	<lea $8BE68,A0>	<moveq #0,D0>	<JSR SPDEF＆SETPAL__dec>
	move	D3,(A6)
	move.l	D7,$E(A6)
	m	<move.b	D6,$E6(A6)>	<move D5,$E8(A6)>
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	move	$E8(A6),D6
	m	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
	m	<moveq #0,D3>	<add #$10,D4>	<JSR SP_SET>
	m	<add #$10,D3>			<JSR SP_SET>
 RTS
*---------------------
8B288	*呼ばれない?
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<JSR SPDEF＆SETPAL__dec>	<bEQ @F>
		move	#$4020,(A6)
		move.b	#3,$E(A6)
		move.b	D0,$F(A6)
		move	#0,$10(A6)
		m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
		m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
		m	<move #3,D6>	<moveq	#0,D3>	<moveq	#0,D4>
		LP 1,D5	<LP 1,D0 <JSR SP_SET> <add #$10,D3>>	<moveq #0,D3>	<add #$10,D4>
@@:	POP	A6
 RTS
*-------------------
SPDEF_その1 *only( ((自機,自機の爆発表示)ルーチン) 〜 8B59C 〜 )	8B2F0
	PUSH	D0-D1/D3/A0-A1
	and.l	#$FFFF,D1
	m	<lea $B0A00,A0>	<moveq #0,D3>	<move #$7F,D0>
@@		m	<cmp (A0),D1>	<bEQ 8B386>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	dbF	D0,@B

	m	<lea $B0A02,A0>	<moveq #0,D3>
@@		m	<tst (A0)>	<bEQ @F>
		m	<addq.w	#4,A0>	<addq.b	#1,D3>
	BRA	@B
@@;
	move	D1,$FFFE(A0)
	addq.w	#1,(A0)
	lea	$EBA000,A0	*SP64_PCG
	move	D3,D4
	m	<lsl #7,D3>	<add.l D3,A0>
	m	<lea $C0000,A1>	<lsl.l #7,D1>	<add.l D1,A1>
	m	<REPT 31>	<move.l	(A1)+,(A0)+>	ENDM,	<move.l	(A1),(A0)>	*計32
	POP	D0-D1/D3/A0-A1
 RTS
8B386	addq.w	#1,2(A0)
	move	D3,D4
	POP	D0-D1/D3/A0-A1
 RTS
*-----------------
8B392	*only( 89F1A（ITEM戦闘機） 〜 )
	m	<moveq #6,D7>	<move.l	0(A6,D7),D0>	<move.l	D0,A5>
8B39A
	move	(A5)+,D0
	m	<moveq #0,D1>	<move D0,D1>	<and #$F000,D1>	*%1111_0000_0000_0000
	m	<rol #4,D1>	<lsl #2,D1>
	M	<lea $8B3B4,A4>	<add.l D1,A4>	<move.l	(A4),A4>	<JMP (A4)>

8B3B4	.dc.l	$8B3F4,$8B3F4,$8B3F4,$8B416,$8B420,$8B426,$8B434,$8B446
	.dc.l	$8B44A,$8B44A,$8B44A,$8B44A,$8B44A,$8B44A,$8B44A,$8B44E

8B3F4
	bset.b	#7,$E(A6)
	m	<move D0,D1>	<and #$F00,D1>	<lsr #8,D1>
	m	<and.b #$F0,$E(A6)>	<or.b D1,$E(A6)>
	move.b	D0,$F(A6)
	move.l	A5,0(A6,D7)
 RTS

8B416	M	<bset.b	#5,$E(A6)>	<BRA 8B39A>
8B420	M	<move.l	(A5),A5>	<BRA 8B39A>

8B426
	move.l	(A5)+,A4
	move.l	A5,0(A6,D7)
	moveq	#$A,D7
	move.l	A4,A5
	BRA	8B39A

8B434
	move.l	#0,0(A6,D7)
	m	<moveq #6,D7>	<move.l	0(A6,D7),A5>
	BRA	8B39A

8B446	BRA	8B39A
8B44A	BRA	8B39A

8B44E
	bset.b	#4,$E(A6)
 RTS
*----------------
どのITEMにしようかな	*only?	8B456
	movem.w	D0,-(A7)
	m	<cmp.b #1,__NUM_JIKI>	<bNE @F>
	m	<tst.b __1UP_ITEMが既に出たか>	<bNE @F>
		m	<move.b	#2,D0>	<BRA.s 8B486>

@@:	m	<cmp.b #4,__自弾P段階?>	<bNE @F>
		m	<move.b	#1,D0>	<BRA.s 8B486>

@@:	move.b	#0,D0

8B486
	move.b	D0,__ITEM戦闘機の持ち物	*2or1or0
	movem.w	(A7)+,D0
 RTS
*------------------
全滅1000_DPSPSET	*only	1000点マーク	8B492
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<moveq #$25,D0>	<JSR SPDEF＆SETPAL__dec>
	move	#$8100,(A6)
	move.l	#0,$E(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	POP	A6
 RTS
*------------------
ＳITEM_DPSPSET	*only	Sマーク	8B4D8
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<moveq #$22,D0>	<JSR SPDEF＆SETPAL__dec>
	move	#$8400,(A6)
	move.l	#0,$E(A6)
	IFn CS	<cmp #$80,D1>	<move.b	#1,$E(A6)>
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	POP	A6
 RTS
*-------------------
EXTEND_DPSPSET	*only	1UPマーク	8B536
	PUSH	A6
	m	<lea __爆発とか色々,A0>	<moveq #$23,D0>	<JSR SPDEF＆SETPAL__dec>
	move	#$8600,(A6)
	move.l	#0,$E(A6)
	IFn CS	<cmp #$80,D1 *%1000_0000>	<move.b	#1,$E(A6)>
	move.b	$80(A6),$76(A6)
	move.b	#-1,$77(A6)
	m	<move.l	A6,A0>	<move.l	A6,A1>	<move.l	A6,A3>
	m	<add.l #$12,A0>	<add.l #$80,A1>	<addq.l	#2,A3>
	m	<move #3,D6>	<moveq #0,D3>	<moveq #0,D4>	<JSR SP_SET>
	move.b	#-1,__1UP_ITEMが既に出たか
	POP	A6
 RTS
*------------------
8B59C *( D0, A0		)	自機と自機の爆発表示ルーチンからのみ
	PUSH	D0-D2/D4-D7/A0-A1/A5
	m	<lsl #2,D0>	<add.l D0,A0>	<move.l	(A0),A0>
	move	__何かの生存数?,D7
	move	#0,D6
	move.b	(A0)+,D6
	m	<cmp D6,D7>	<bCS 8B674>

	sub	D6,__何かの生存数?
	JSR	B1000〜100毎にFFFFかCHECK
	move	#0,(A6)
	m	<move.b	#-1,3(A6)>	<move.b	#-1,4(A6)>	<move.b	#-1,5(A6)>
	moveq	#0,D2
	move.b	(A0),D2
	m	<JSR SET__SP_PAL>	<move.b	D5,2(A6)>

	m	<move.b	1(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<JSR SET__SP_PAL>	<move.b	D5,3(A6)>

	m	<move.b	2(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<JSR SET__SP_PAL>	<move.b	D5,4(A6)>

	m	<move.b	3(A0),D2>	<cmp.b #-1,D2>	<bEQ @F>
	m	<JSR SET__SP_PAL>	<move.b	D5,5(A6)>

@@;
	addq.l	#5,A0
	m	<moveq #0,D7>	<move.b	$FFFA(A0),D7>	<subq.b	#1,D7>
	m	<move.l	A6,A1>	<add.l #$12,A1>
	lea	$B0C00,A5
	move.b	#-1,D6
8B640		m	<move (A0)+,D1>	<JSR SPDEF_その1 *only>	<move.b	D4,(A1)+>
@@			addq.b	#1,D6
			m	<tst.b (A5)+>	<bEQ @F>

		BRA	@B

@@:		move.b	#-1,$FFFF(A5)
		move.b	D6,$6D(A1)
	dbF	D7,8B640
	move.b	#-1,(A1)
	move.b	#-1,$6E(A1)
	move.b	#1,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
8B674	move.b	#0,D0
	POP	D0-D2/D4-D7/A0-A1/A5
 RTS
*----------------------
判定_E?		*only( MAIN 〜 HANTEI? 〜 )	8B67E
	m	<lea $B1100,A6>	<moveq #$FF,D6>	<move #$7E,D7>
8B68A		move	(A6),D0
		M	<cmp D6,D0>	<bEQ.s 8B69C>
		M	<btst #$D,D0>	<bEQ.s 8B69C>
			m	<and #$1FE0,D0>	<bEQ.s 8B6A6>
			*ここに8B6A6からの処理が入る
8B69C
		add	#$100,A6
	dbF	D7,8B68A
 RTS
8B6A6	m	<move.l	A6,A2>	<add #$76,A2>
8B6AC		m	<moveq #0,D0>	<move.b	(A2)+,D0>	<bMI.s 8B69C>	*ret?

		m	<lsl #3,D0>	<lea $B0600,A5>	<add D0,A5>
		m	<lea $8B7F0,A0>	<moveq #$20,D2>	<moveq #3,D1>
8B6C6			M	<tst (A0)>	<bEQ.s 8B6F6>
			IFn2 PL	<move (A5),D0>	<sub (A0),D0>	<neg D0>
			M	<cmp D2,D0>	<bCC.s 8B6F6>
			IFn2 PL	<move 2(A5),D0>	<sub 2(A0),D0>	<neg D0>
			M	<cmp D2,D0>	<bCC.s 8B6F6>
			bset.b	#6,1(A6)
			M	<tst.b $10(A6)>	<bEQ.s 8B69C>	*ret?
			subq.b	#1,$10(A6)
8B6F6
			addq.l	#4,A0
		dbF	D1,8B6C6
		m	<lea $8B778,A0>	<moveq #$15,D2>	<moveq #$E,D5>
8B706			M	<tst (A0)>	<bEQ.s 8B76E>
			IFn2 PL	<move 2(A5),D0>	<sub 2(A0),D0>	<neg D0>
			M	<cmp D2,D0>	<bCC.s 8B76E>
			IFn2 PL	<move (A5),D0>	<sub (A0),D0>	<neg D0>
			M	<cmp D2,D0>	<bCC.s 8B76E>
			bset.b	#6,1(A6)
			M	<tst.b $10(A6)>	<bEQ 8B69C>	*ret?
			subq.b	#1,$10(A6)
			PUSH	A6
				m	<moveq #0,D0>	<move D0,(A0)>
				move.l	4(A0),A6
				move.b	$F(A6),D0
				move.l	#$866A4,D1
				move.l	D1,A4
				M	<subq.b	#1,0(A4,D0)>	<bNE @F>
					move.l	#$866A0,D1
					move.l	D1,A4
					move.b	#0,0(A4,D0)
@@;
				JSR	生存登録抹消
			POP	A6
8B76E
			addq.l	#8,A0
8B770		dbF	D5,8B706
8B774	BRA	8B6AC
*---------------------
8B778	.dc.l	-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0
8B7B8	.dc.l	-1,0,-1,0,-1,0,-1,0,-1,0,-1,0,-1,0
8B7F0	.dc.l	-1,-1,-1,-1
*-------------------
判定_J		*only( MAIN 〜 HANTEI? 〜 )
	m	<tst.b __J_DEAD_FLAG>	<bNE EXIT__判定_J>
	m	<lea $B1100,A6>	<move #$7E,D7>
8B812		m	<move (A6),D0>	<cmp #-1,D0>	<bEQ.s 8B838>
			m	<move D0,D1>	<and #$600,D1>	<bNE.s 8B842>

				m	<move D0,D1>	<and #$1800,D1>	*%1_1000_0000_0000
				m	<cmp #$1800,D1>	<bEQ 8B90A>
				m	<and #$DFE0,D0>	<bEQ 8B986>
8B838
		add	#$100,A6
	dbF	D7,8B812
EXIT__判定_J	RTS
8B842	m	<moveq #0,D0>	<move.b	$80(A6),D0>	<lsl #3,D0>
	m	<lea $B0600,A5>	<add D0,A5>
	m	<move (A5)+,D0>	<subq.w	#8,D0>
	m	<move (A5),D1>	<subq.w	#8,D1>
	M	<IFn PL	<sub $B0600,D0>	<neg D0>>	<cmp #$18,D0>	<bCC 8B838>	*ret?
	M	<IFn PL	<sub $B0602,D1>	<neg D1>>	<cmp #$18,D1>	<bCC 8B838>	*ret?

	move.b	(A6),D0
	M	<and.b #6,D0 *%110>	<cmp.b #6,D0>	<bEQ.s 8B8BC>
	M	<btst	#2,D0>	<bNE.s 8B8E4>

	PUSH	D0/A0						*ITEM拾い音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#5,D0>	<JSR (A0)>
	POP	D0/A0
	move.b	#0,__Bマーク存在FLAG
	m	<move.b	__NUM_BOMBER,D7>	<BSR ADD_BOMBER>	<move.b	D7,__NUM_BOMBER>
	BRA.s	8B900

8B8BC
	PUSH	D0/A0						*ITEM拾い音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#5,D0>	<JSR (A0)>
	POP	D0/A0
	m	<move.b	__NUM_JIKI,D7>	<BSR ADD_JIKI>	<move.b	D7,__NUM_JIKI>
	BRA.s	8B900

8B8E4
	PUSH	D0/A0						*ITEM拾い音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#5,D0>	<JSR (A0)>
	POP	D0/A0
	addq.b	#1,__自弾P段階?
8B900
	JSR	生存登録抹消
	BRA	8B838

8B90A	*敵弾との判定
	m	<moveq #0,D0>	<move.b	$80(A6),D0>	<lsl #3,D0>
	m	<lea $B0600,A5>	<add D0,A5>
	m	<move (A5)+,D0>	<subq.w	#8,D0>
	m	<move (A5),D1>	<subq.w	#8,D1>
	M	<IFn PL	<sub $B0600,D0>	<neg D0>>	<cmp #$10,D0>	<bCC 8B838>	*ret?
	M	<IFn PL	<sub $B0602,D1>	<neg D1>>	<cmp #8,D1>	<bCC 8B838>	*ret?

	PUSH	D0/A0						*自機専用爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#2,D0>	<JSR (A0)>
	POP	D0/A0
	move.b	#-1,__J_DEAD_FLAG
	m	<move.l	#$640C,A0>	<move.l	(A0),A0 *6752>	<move.b	#0,D0>
	JSR	(A0)	*OPM_STOP?
	IFn NE	<cmp.b #1,__BGM_CODE>	<move.b	#2,__BGM_CODE>	*無理矢利1面BGM
 RTS
8B986
	m	<move.l	A6,A1>	<add #$76,A1>
8B98C
	m	<moveq #0,D0>	<move.b	(A1)+,D0>	<bMI 8B838>	*ret?

	m	<lsl #3,D0>	<lea $B0600,A5>	<add D0,A5>
	m	<move $B0602,D1>	<sub 2(A5),D1>	<bPL @F>
		neg	D1
@@:	m	<cmp #$15,D1>	<bCC.s 8B98C>
	m	<move $B0600,D1>	<sub (A5),D1>	<bPL @F>
		neg	D1
@@:	m	<cmp #$15,D1>	<bCC.s 8B98C>

	PUSH	D0/A0						*自機専用爆発音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#2,D0>	<JSR (A0)>
	POP	D0/A0
	move.b	#-1,__J_DEAD_FLAG
	m	<move.l	#$640C,A0>	<move.l	(A0),A0 *6752>	<move.b	#0,D0>
	JSR	(A0)	*OPM_STOP?
	IFn NE	<cmp.b #1,__BGM_CODE>	<move.b	#2,__BGM_CODE>	*無理矢利1面BGM
 RTS
*-----------------
GAME_OVER		*only( MAIN 〜 )	8BA04
	M	<tst.b __J_DEAD_FLAG>	<bEQ EXIT__GAME_OVER>
	move.b	#-1,__J_DEADING
	M	<tst.b __180からCOUNT_DOWN>	<bEQ 8BC02>
	M	<subq.b	#1,__180からCOUNT_DOWN>	<bNE EXIT__GAME_OVER>
	M	<tst.b __NUM_JIKI>	<bNE 8BB96>
	M	<tst __CREDIT>		<bEQ 8BC46>

	m	<lea $E03809,A0>	<lea $8BCB4,A1>
	LP $C,D1	<move (A1)+,D0>	<JSR WR_TEXT>	<addq.l	#1,A0>
	move	__CREDIT,$8BCE0
	m	<lea $E04C09,A0>	<lea $8BCCE,A1>
	LP 9,D1	<move (A1)+,D0>	<JSR WR_TEXT>	<addq.l	#1,A0>
	m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>	<move.b	#8,D0>	<JSR (A0)>
	move	#9,$8BCE2
8BA9A		m	<lea $E04010,A0>	<move $8BCE2,D0>	<JSR WR_TEXT>
		move	#$EF,D0		*4sec
@@			JSR	WAIT_VDISP
			move.b	#0,__V_DISP_FLAG
			move.b	__JOY_STATE,D1
			m	<btst #6,D1>	<bEQ @F>	*B
			m	<btst #5,D1>	<bEQ @F>	*A
		dbF	D0,@B
		PUSH	D0/A0
			m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#$C,D0>
			JSR	(A0)	*COUNT_DOWN音?
		POP	D0/A0
	m	<subq.w	#1,$8BCE2>	<cmp #-1,$8BCE2>	<bNE 8BA9A>

	BSR	幕閉め
	move.b	#3,D0
	JMP	$2400

@@;		*コンティニュー決定
	subq.w	#1,__CREDIT
	PUSH	D0/A0						*CONTINUE決定音?
	m	<move.l	#$6418,A0>	<move.l	(A0),A0 *6656>	<move.b	#$B,D0>	<JSR (A0)>
	POP	D0/A0
	m	<move.l	#$640C,A0>	<move.l	(A0),A0 *6752>	<move.b	#0,D0>
	JSR	(A0)	*OPM_STOP?
	BSR	幕閉め
	move	#$2D,D0
	m	<lea $E03809,A0>	<LP $C,D1 <JSR WR_TEXT> <addq.l #1,A0>>
	m	<lea $E04009,A0>	<LP $C,D1 <JSR WR_TEXT> <addq.l #1,A0>>
	m	<lea $E04C09,A0>	<LP  9,D1 <JSR WR_TEXT>	<addq.l	#1,A0>>
	BSR	INIT__NUM_JIKI
	m	<move.b	__NUM_JIKI,D7>	<BSR ADD_JIKI>	<move.b	D7,__NUM_JIKI>
	BSR	残機表示?
	BRA.s	8BB9A

8BB96
	BSR	幕閉め
8BB9A
	m	<moveq #0,D0>	<move.b	__area2?,D0>
	M	<lea $86BE6,A0>	<add.l D0,A0>	<move.b	(A0),D0>	<cmp.b #6,D0>	<bNE @F>
	M	<cmp #2,$86688>	<bCS @F>
		move.b	#$2F,D0	*\47
@@:	m	<move.b	D0,__area2?>	<move.b	D0,__area3?>	<move.b	D0,__area?>
	JSR	INIT0
	m	<move.b	__NUM_JIKI,D7>	<BSR SUB_JIKI>	<move.b	D7,__NUM_JIKI>
	BSR	幕開け
	m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>	<move.b	__BGM_CODE,D0>
	JSR	(A0)
	JMP	LOOPの先頭?

8BC02
	m	<move $B0600,D1>	<add #$FFF0,D1>
	m	<move $B0602,D2>	<add #0,D2>
	moveq	#$11,D0	*3×3爆発
	m	<move #0,$B0606>	<move #0,$B060E>	*影を消す
	m	<move #0,$B0616>	<move #0,$B061E>
	BSR	爆発3×3_DPSPSET
	move.b	#$B4,__180からCOUNT_DOWN	*\180
EXIT__GAME_OVER	RTS
8BC46			*CREDITが尽きた
	m	<lea $E0380A,A0>	<move #$26C,D0>	<move #5,D1>
@@		m	<JSR WR_TEXT>	<addq.w	#1,D0>	<addq.l	#1,A0>
		m	<JSR WR_TEXT>	<addq.w	#1,D0>	<add.l #$3FF,A0>
		m	<JSR WR_TEXT>	<addq.w	#1,D0>	<addq.l	#1,A0>
		m	<JSR WR_TEXT>	<addq.w	#1,D0>	<sub.l #$3FF,A0>
	dbF	D1,@B
	m	<move.l	#$6408,A0>	<move.l	(A0),A0 *65DC>	<move.b	#5,D0>	<JSR (A0)>
	LP $167,D0	<JSR WAIT_VDISP>	*6sec
	BSR	幕閉め
	move.b	#3,D0
	JMP	$2400		*メニューに戻る

__180からCOUNT_DOWN	.dc.b	0	*8BCB2
8BCB3	.dc.b	0
8BCB4	.dc.w	$0C,$18,$17,$1D,$12,$17,$1E,$0E,	$2D,$19,$15,$0A,$22,$2D,$2D,$0C
8BCD4	.dc.w	$1B,$0E,$0D,$12,$1D,$2D,$03
8BCE2	.dc.w	9
*------------------
SP座標整え	*8BCE4
	m	<lea $B0600,A0>	<move #127,D7>
@@		and.l	#$3FF03FF,(A0)	*%0011_1111_0011_1111	\1023_1023
		IFn EQ	<btst #1,(A0)>	<sub #512,(A0)>
		IFn EQ	<btst #1,2(A0)>	<sub #512,2(A0)>
		addq.w	#8,A0
	dbF	D7,@B
 RTS
*------------------
8BD14__INIT	*only?
	PUSH	D0-D1/A0
	m	<lea $B0A00,A0>	<move.l	#$FFFF0000,D1>	<LP $7F,D0   <move.l D1,(A0)+>>
	m	<lea $B0C00,A0>	<moveq #0,D1>		<LP $1F,D0   <move.l D1,(A0)+>>
	m	<lea $B1000,A0>	<moveq #0,D1>		<LP $1FFF,D0 <move.l D1,(A0)+>>
	m	<lea $B1000,A0>	<move #-1,D1>	<LP $7F,D0 <move D1,(A0)> <add.l #$100,A0>>
	POP	D0-D1/A0
 RTS
*------------------
MV_色々	*MV_JIKIの次に呼ばれる	8BD72
	m	<lea $8B778,A6>	<moveq #0,D0>	<LP $1D,D1 <move.l D0,(A6)+>>
	m	<move.l	#$8B778,$8BE60>	<move.l	#$8B7F0,$8BE64>
	m	<lea $B1100,A6>	<moveq #$7E,D0>
~LP__MV_色々	PUSH	D0/A6
		m	<moveq #0,D0>	<move (A6),D0>	<cmp #$FFFF,D0>	<bEQ ~CONT_LP__MV_色々>
		m	<btst #5,D0>	<bEQ @F>
			m	<moveq #0,D0>	<move.b	$E(A6),D0>	<lsl.b #2,D0>
			lea	__「MV_爆発」ルーチンのアドレスTBL,A0
			m	<add.l D0,A0>	<move.l	(A0),A0>	<JSR (A0)>
			BRA	~CONT_LP__MV_色々

@@:		IFn EQ	<btst #8,D0>	<BSR MV?_1000pts表示 *only> <BRA ~CONT_LP__MV_色々> *{
		m	<btst #$A,D0>	<bNE @F>
			m	<btst #9,D0>	<bEQ.s 8BDFC>		*br
			m	<BSR MV?_B *only?>		<BRA ~CONT_LP__MV_色々>

@@:		IFn EQ	<btst #9,D0>	<BSR MV?_S *only?>	<BRA ~CONT_LP__MV_色々>
		m	<BSR MV?_1UP *only?>			<BRA ~CONT_LP__MV_色々>	*}
*~--
8BDFC
		move.l	A6,A0
		m	<btst #$C,D0>	<bNE @F>					*{
			m	<btst #$B,D0>	<bEQ.s 8BE28>		*br
				m	<JSR MV_BOMBER *only?>	<BRA ~CONT_LP__MV_色々>

@@:		IFn EQ	<btst #$B,D0>	<JSR MV?_自弾 *only?>	<BRA ~CONT_LP__MV_色々>
		m	<JSR MV?_敵弾 *only?>			<BRA ~CONT_LP__MV_色々>	*}

8BE28
		m	<and #$1F,D0 *%1_1111>	<lsl.b #2,D0>
		m	<lea $820FC,A0>	<add.l D0,A0>	<move.l	(A0),A0>
		JSR	(A0)

~CONT_LP__MV_色々
		m	<POP D0/A6>	<add #$100,A6>
	dbF	D0,~LP__MV_色々
 RTS
*------
__「MV_爆発」ルーチンのアドレスTBL	*8BE48
	.dc.l	MV_隠れ爆発5×5,MV_爆発3×3,MV_爆発5×5,MV_隠れ爆発2×2,MV_爆発2×2 899B2
8BE60	.dc.l	0
8BE64	.dc.l	0

8BE68	8BE6C	*丸い砲台
8BE6C	.dc.w	$0408,$FFFF,$FF00
8BE72	.dc.w	0,0,0,0
8BE7A	.dc.l	$3000301,$3020303,$3040305,$3060307,$3080309,$30A030B,$30C030D,$30E030F
	.dc.l	$3100311,$3120313,$3140315,$3160317,$3180319,$31A031B,$31C031D,$31E031F
	.dc.l	$3200321,$3220323,$3240325,$3260327,$3280329,$32A032B,$32C032D,$32E032F
	.dc.l	$3300331,$3320333,$3340335,$3360337,$3380339,$33A033B,$33C033D,$33E033F
	.dc.l	$3400341,$3420343,$3440345,$3460347,$3480349,$34A034B,$34C034D,$34E034F
	.dc.l	$3500351,$3520353,$3540355,$3560357,$3580359,$35A035B,$35C035D,$35E035F
	.dc.l	$3600361,$3620363,$3640365,$3660367,$3680369,$36A036B,$36C036D,$36E036F
	.dc.l	$3700371,$3720373,$3740375,$3760377,$3780379,$37A037B,$37C037D,$37E037F

8BF7A	,$004
8BF7C	0004 0004 0004 0004 0004 0004 0004 0004
8BF8C	0004 0004 0004 0004 0004 0004 0004 0004
8BF9C	0004 0004 0004 0004 0004 0004 0004 0004
8BFAC	0004 0004 0004 0004 0004 0004 0004 0004
8BFBC	0004 0004 0004 0004 0004 0004 0004 0004           ................
8BFCC  0004 0004 0004 0004 0004 0004 0004 0004           ................
8BFDC  0004 0004 0004 0004 0004 0004 0004 0004           ................
-D
8BFEC  0004 0004 0004 0004 0004 0004 0008 000A           ................
8BFFC  000A 000C 0006 0008 0008 000C 0004 0006           ................
8C00C  0004 0006 0006 000A 000A 000A 000A 0006           ................
8C01C  007E 0006 0008 0008 0008 0014 0012 000A           .~..............
8C02C  0008 0020 0008 0012 000A 000C 000C 0006           ... ............
8C03C  0010 000A 000E 0006 0008 0008 0008 000A           ................
8C04C  0008 0028 000A 0008 0004 000E 000A 000E           ...(............
8C05C  000C 000C 0008 000C 000E 000A 0008 0008           ................
-D
8C06C  000E 0010 001C 0024 008E 000E 0008 0006           .......$.�......
8C07C  000A 001A 0006 002A 0008 0006 000E 003E           .......*.......>
8C08C  000E 0008 0006 000A 001A 0006 002A 0008           .............*..
8C09C  0006 000E 0036 0012 000C 000E 0006 000A           .....6..........
8C0AC  001A 0006 001C 0008 0006 0006 000A 0008           ................
8C0BC  002E 000A 000A 000C 0008 0006 000A 004A           ...............J
8C0CC  0024 006C 000A 0008 0008 000C 0008 0030           .$.l...........0
8C0DC  007E 002C 0052 000E 0028 0042 0008 000C           .~.,.R...(.B....
-Q


-----------------------------------------------------------------------
		MicroEMACS PRO-68K ショートマニュアル
-----------------------------------------------------------------------
	このマニュアルの見方

	<ROLL UP>	:次ページ
	<ROLL DOWN>	:前ページ
	<ESC>-K		:(<ESC>を押して次にKを押す) 編集に戻る

	* グローバルキー
	  ^G	:(Ctrl+G)入力のアボート（中止）
	　^L	:(Ctrl+L)画面の再表示
-----------------------------------------------------------------------

	* カーソル移動
<left>	| ^S	:前の文字へ
<right>	| ^D	:後ろの文字へ
<up>	| ^E	:上の行へ
<down>	| ^X	:下の行へ
<rollup>| ^C	:次ページ	<rolldn>| ^R	:前ページ
	  ^A	:前の単語		  ^F	:次の単語
<F1>		:先頭行
<F2>		:最終行
<ESC> number<CR>:指定した行へ
-----------------------------------------------------------------------

	* 削除・挿入

<BS>		:直前の文字の削除
<DEL>		:直後の文字の削除
<ESC>-<BS>	:前の単語の削除
	  ^Y	:一行削除
	  ^K	:行末まで削除



-----------------------------------------------------------------------

	* 特殊な削除と挿入

<RETURN>	:新しい行の挿入 	 ^J :新しい行の挿入とインデント
<TAB>		:次のタブ位置に進む	 ^O :挿入／上書きの切替 [INS]
<F6> (Sel)	:現在位置にマークを付ける
<F7> (Cut)	:マーク（<F6>で付ける）から、カーソル位置まで（領域）を削除
<F8> (Copy)	:領域をキルバッファへ保存
<F9> (Paste)	:キルバッファを現在位置に挿入
<F10>(TagJump)	:タグジャンプ
<shift><F10>	:カーソルとマークの位置を交換
-----------------------------------------------------------------------

	* 検索/置換
<F4>	  	:カーソルの位置から前向きに検索
<shift><F4>     :カーソルの位置から後向きに検索
<F5>		:連続次検索		<shift><F5>	:連続前検索
<F3>		:最初に入力した文字列を次に入力した文字列に置換する
		 文字列の終わりは<ESC>
<shift><F3>	:対話しながら置換。対話コマンドは