;============== バンク０ ================================================
BANK0		GROUP	0
		EXTERN	RNDSUB,PLPSRV,MSGCHK,MSGCHK2,DUSHCL,OBJBG,KNCSET
		EXTERN	KNFLSH,PLSHST,MVCALC,FLASHST,DJRMRD,EXIDSH,NXGOTO
		EXTERN	DATA_MOV,PBSET,PBRETN,PLCSET,LDTIM0,CARITMD,PTOBI
		EXTERN	PBULE,PINDR1,POVER,PKEN
;
;============== バンク１ ================================================
BANK1		GROUP	1
		EXTERN	WANWANCK
;
;============== バンク２ ================================================
BANK2		GROUP	2
		EXTERN	SPUNDT,PLBGCK,COINIT,HARTIT,ITEMDP,PWKEND2,PLDMST00
		EXTERN	TAKARST,WTUP,SMK1,HNSM
;
;============== バンク３ ================================================
BANK3		GROUP	3
		EXTERN	ISIBRK,ENIDSH2,PSERCH,PSERCH2,ENIDSH,CRENEN,ENFAIL
		EXTERN	ENFOLE,ENFIRE,ENINIT,ENSTOP,ENCACH,ENSHOT,CRENPS
		EXTERN	ENBGCK,ENBGCK2,CREPKE,CRENPL,CRENPL2,CRKNKN,CRKNEN
		EXTERN	ENITMS,ENMDSTS,ITEMGET,ENMDST,KTFLST,EPBANK,KWUSO
		EXTERN	IKADA,TUKAI,RANEM,HASIR,PYAAAMV,BOMBRMV,PRTBMMV
		EXTERN	KTOBJMV,BLOCKMV,OCTA1MV,OCTAMMV,MORI1MV,MORYAMV
		EXTERN	BOMBOMV,HIPLPMV,BOSS1MV,KWUSOMV,HART1MV,RUPY1MV
		EXTERN	YOSEIMV,KEYSMMV,PLTATMV,HMASKMV,POWERMV,KINOMMV
		EXTERN	KAKERMV,HARTBMV,ALOW1MV,BOMB1MV,GAKKIMV,KINOKMV
		EXTERN	MGPOWMV,KAKINMV,KAIINMV,MSTESFMV
;
;============== バンク４ ==============================================
BANK4		GROUP	4
		EXTERN	YMVSUB,HAYAMIT,HAYABIT,BGKAOIT,BSLIMIT,TBOSSIT
		EXTERN	RIVERMV,GHOSTMV,GHOSBMV,GHOSSMV,HAYAMMV,RENO7MV
		EXTERN	NYAMAMV,CHUNLIMV,UFOCHMV,TEKYUMV,BHOLEMV,BHOL2MV
		EXTERN	FISHGMV,SBOMBMV,OBOMBMV,NINJAMV,NINTMMV,HAYABMV
		EXTERN	BGKAOMV,BSLIMMV,TBOSSMV
;
;============== バンク５ ==============================================
BANK5		GROUP	5
		EXTERN	BSNAKIT,BFIREIT,DDNGOIT,BBIRDIT,BFISHIT,BDCHD10
		EXTERN	BDCHD11,BDCHD20,BDCHD21,GIRL0MV,PAPA0MV,BABA0MV
		EXTERN	BSNAKMV,GORMAMV,DDNGOMV,BFIREMV,BBIRDMV,BFISHMV
		EXTERN	SWTRPMV,IKADAMV,NIWATMV,WANWANMV
;
;============== バンク６ ==============================================
BANK6		GROUP	6
		EXTERN	GKFLSHL,TEKTAMV,KUZUHMV,BABULMV,SPARKMV,SPAR2MV
		EXTERN	PORUSMV,BLBATMV,SKEL0MV,SLIMBMV,SLIMSMV,MUMMYMV
		EXTERN	MOTOSMV,MAGE0MV,SONICMV,LAIKUMV,TRAP0MV,FUKUROMV
		EXTERN	TERSAMV,BTFLYMV,KODOMAMV,KODOMBMV,KODOMCMV,KODOMDMV
		EXTERN	URURIMV,OZWANMV,MSWANMV,KARASMV,TRYCYMV,BHANAMV
		EXTERN	BHFIRMV,SHANAMV,DENWAMV,OBAQMV,OBQBARMV,BEDINMV
		EXTERN	IZUMIMV,HATO0MV,FLYITMV,RANEMMV,NOMOSMV,HINO0MV
		EXTERN	PANELMV,PANEL2MV,SWBLKMV,SWBLK2MV,MIZUBMV,SLOTMV
		EXTERN	KARBYMV,OCHANMV,HEISMMV,RICHDMV,FLYIT2MV
;
;============== バンク７ ==============================================
BANK7		GROUP	7
		EXTERN	TAKARMV,HEIS0MV,INOSIMV,BSKELMV,HEISBMV,DAISUMV
		EXTERN	AMENBMV,YUKABMV,YSLIMMV,BALEEMV,TBEAMMV,KURI0MV
		EXTERN	PIHATMV,LOPEMV,PACKNMV,LIFTXMV,LIFTYMV,LIFTDMV
		EXTERN	LIFTTMV,HASIRMV,TAMA0MV,GESSOMV,MONKYMV,OCTAJMV
		EXTERN	YOSSIMV,AMUSIMV,YUKASMV,HANNYMV,PAPA2MV,KUMA0MV
		EXTERN	PAPALMV,MAMADMV,TURIMV,SHIGEMV
;
;============== バンク８ ==============================================
BANK8		GROUP	8
		EXTERN	GKFLSHL,GRBGCR,DJBGCR
;
;============== バンク１４ ==============================================
BANK14		GROUP	$14
		EXTERN	ENSUB0,SHRVSES,CAOFCKS,ENWAN
;
;============== バンク１５ ==============================================
BANK15		GROUP	$15
		EXTERN	NXOMSB,SADWST,NXOMCL,ENRMCLL,SKEL1MV,R7BEMMV
		EXTERN	EWOODMV,MSPNTMV,IWAGOMV,SWBLKUMV,SWBLKDMV,SWBLKLMV
		EXTERN	SWBLKRMV,ONOFSMV,MVHASMV,AMUSTMV,UNIUNIMV,KANIMV
		EXTERN	BLANKAMV,SARUKMV,MOUSEMV,HODAIMV,SANBOMV,MBOSSMV
		EXTERN	BOSSMV
;
;============== バンク１８ ==============================================
BANK18		GROUP	$18
		EXTERN	FUCKSMV,POWDRMV,HINTOMV,PSCRLMV,HIKUSMV,TANABEMV
		EXTERN	MAMA0MV,MAMA1MV,PAPA1MV,KAMEIMV,NYOROMV,PKURIMV
		EXTERN	TUKAIMV,ARIMAMV,BOXERMV,ZONBIMV,KHIMIMV,GIRL1MV
		EXTERN	GIRL2MV,MAMUUMV,TODDMV,MANBOMV,USAGIMV,ONPUMV
		EXTERN	AKUMAMV,ZORAMV,MAMAD2MV,USAG2MV,KUMASMV,NTORIMV
		EXTERN	GMUSIMV
;
;============== バンク１９ ==============================================
BANK19		GROUP	$19
		EXTERN	ENSCRL,KTFLCS,BUMERMV,COPYAMV,WARPMV,FOXDOGMV
		EXTERN	HEIHOMV,KAERUMV,SWIMPMV,MOAIMV,PUKPKMV,PUKPVMV
		EXTERN	PUKPJMV,WANIMV,GAGEMV,OBAKEMV,NIWAXMV,YTUBOMV
		EXTERN	DOSNSMV,DOSNBMV,TAIATMV,FIREBMV,BABUBMV,KAZAMMV
		EXTERN	BOOKMV,SEIRENMV,KENBMMV
;
;
	EXTERN	SIROSMV
	EXTERN	EDAIMV
;
;========================================================================
	PUBALL
;
BANK0	GROUP	00

	LIB	ZRAM
	LIB	ZBN
;
;;xyz;;;;	 EXTERN	 RNDSUB,PLPSRV,MSGCHK,MSGCHK2,DUSHCL,OBJBG,KNCSET,KNFLSH,ISIBRK
;;xyz;;;;	 EXTERN	 PLSHST,MVCALC,FLASHST,DJRMRD,EXIDSH,ENIDSH2,SPUNDT,NXGOTO,DATA_MOV
;;xyz;;;;	 EXTERN	 PBSET,ENSCRL,ENSUB0,PBRETN,PSERCH,PSERCH2,ENIDSH,PLBGCK,CRENEN
;;xyz;;;;	 EXTERN	 ENFAIL,ENFOLE,ENFIRE,ENINIT,ENSTOP,ENCACH,ENSHOT,CRENPS,NXOMSB
;;xyz;;;;	 EXTERN	 ENBGCK,ENBGCK2,CREPKE,CRENPL,CRENPL2,CRKNKN,CRKNEN,SADWST,NXOMCL
;;xyz;;;;	 EXTERN	 YMVSUB,HAYAMIT,HAYABIT,BGKAOIT,BSLIMIT,TBOSSIT,BSNAKIT,BFIREIT,PLCSET
;;xyz;;;;	 EXTERN	 COINIT,HARTIT,ITEMDP,PWKEND2,DDNGOIT,ENITMS,ENMDSTS,ITEMGET,BBIRDIT
;;xyz;;;;	 EXTERN	 BFISHIT,ENMDST,KTFLST,WANWANCK,LDTIM0
;;xyz;;;;	 EXTERN	 SHRVSES,GKFLSHL,PLDMST00,TAKARST,KTFLCS
;;xyz;;;;	 EXTERN	 CAOFCKS,ENRMCLL
;;xyz;;;;;
;;xyz;;;;	 EXTERN	 CARITMD,GRBGCR,DJBGCR,PTOBI,WTUP,PBULE,SMK1,PINDR1,EPBANK
;;xyz;;;;	 EXTERN	 POVER,HNSM,PKEN,KWUSO,IKADA,TUKAI,RANEM
;;xyz;;;;	 EXTERN	 BDCHD10,BDCHD11,BDCHD20,BDCHD21,HASIR
;;xyz;;;;	 EXTERN	 ENWAN
;;xyz;;;;;
;;xyz;;;;	 EXTERN	 PYAAAMV
;;xyz;;;;	 EXTERN	 BUMERMV
;;xyz;;;;;;	 EXTERN	 TESTMV	 ;BUMERMV
;;xyz;;;;	 EXTERN	 BOMBRMV
;;xyz;;;;	 EXTERN	 FUCKSMV
;;xyz;;;;	 EXTERN	 PRTBMMV
;;xyz;;;;;
;;xyz;;;;	 EXTERN	 KTOBJMV
;;xyz;;;;	 EXTERN	 BLOCKMV
;;xyz;;;;	 EXTERN	 TAKARMV
;;xyz;;;;	 EXTERN	 POWDRMV
;;xyz;;;;;
;;xyz;;;;	 EXTERN	 OCTA1MV
;;xyz;;;;	 EXTERN	 OCTAMMV
;;xyz;;;;	 EXTERN	 MORI1MV
;;xyz;;;;	 EXTERN	 MORYAMV
;;xyz;;;;	 EXTERN	 TEKTAMV
;;xyz;;;;	 EXTERN	 RIVERMV
;;xyz;;;;	 EXTERN	 KUZUHMV
;;xyz;;;;	 EXTERN	 GHOSTMV
;;xyz;;;;	 EXTERN	 GHOSBMV
;;xyz;;;;	 EXTERN	 GHOSSMV
;;xyz;;;;	 EXTERN	 BOMBOMV
;;xyz;;;;	 EXTERN	 HEIS0MV
;;xyz;;;;	 EXTERN	 BABULMV
;;xyz;;;;	 EXTERN	 SPARKMV
;;xyz;;;;	 EXTERN	 SPAR2MV
;;xyz;;;;	 EXTERN	 PORUSMV
;;xyz;;;;	 EXTERN	 BLBATMV
;;xyz;;;;	 EXTERN	 SKEL0MV
;;xyz;;;;	 EXTERN	 SLIMBMV
;;xyz;;;;	 EXTERN	 SLIMSMV
;;xyz;;;;;;	 EXTERN	 BASSFMV
;;xyz;;;;	 EXTERN	 SKEL1MV
;;xyz;;;;	 EXTERN	 MUMMYMV
;;xyz;;;;	 EXTERN	 MOTOSMV
;;xyz;;;;	 EXTERN	 MAGE0MV
;;xyz;;;;	 EXTERN	 SONICMV
;;xyz;;;;	 EXTERN	 LAIKUMV
;;xyz;;;;	 EXTERN	 HIPLPMV
;;xyz;;;;	 EXTERN	 BOSS1MV
;;xyz;;;;	 EXTERN	 KWUSOMV
;;xyz;;;;	 EXTERN	 TRAP0MV
;;xyz;;;;	 EXTERN	 COPYAMV
;;xyz;;;;	 EXTERN	 HAYAMMV
;;xyz;;;;	 EXTERN	 RENO7MV
;;xyz;;;;	 EXTERN	 R7BEMMV
;;xyz;;;;	 EXTERN	 INOSIMV
;;xyz;;;;;
;;xyz;;;;	 EXTERN	 HART1MV
;;xyz;;;;	 EXTERN	 RUPY1MV
;;xyz;;;;	 EXTERN	 YOSEIMV
;;xyz;;;;	 EXTERN	 KEYSMMV
;;xyz;;;;	 EXTERN	 PLTATMV
;;xyz;;;;	 EXTERN	 HMASKMV
;;xyz;;;;	 EXTERN	 POWERMV
;;xyz;;;;	 EXTERN	 KINOMMV
;;xyz;;;;	 EXTERN	 KAKERMV
;;xyz;;;;	 EXTERN	 HARTBMV
;;xyz;;;;	 EXTERN	 ALOW1MV ;MSTESTMV
;;xyz;;;;	 EXTERN	 BOMB1MV
;;xyz;;;;	 EXTERN	 GAKKIMV
;;xyz;;;;	 EXTERN	 KINOKMV
;;xyz;;;;	 EXTERN	 MGPOWMV
;;xyz;;;;	 EXTERN	 KAKINMV
;;xyz;;;;	 EXTERN	 KAIINMV
;;xyz;;;;	 EXTERN	 GIRL0MV
;;xyz;;;;	 EXTERN	 PAPA0MV
;;xyz;;;;	 EXTERN	 BABA0MV
;;xyz;;;;	 EXTERN	 FUKUROMV
;;xyz;;;;	 EXTERN	 HINTOMV
;;xyz;;;;;;	 EXTERN	 00 ;TOBIDMV
;;xyz;;;;	 EXTERN	 EWOODMV
;;xyz;;;;	 EXTERN	 MSPNTMV
;;xyz;;;;	 EXTERN	 IWAGOMV
;;xyz;;;;	 EXTERN	 SWBLKUMV
;;xyz;;;;	 EXTERN	 SWBLKDMV
;;xyz;;;;	 EXTERN	 SWBLKLMV
;;xyz;;;;	 EXTERN	 SWBLKRMV
;;xyz;;;;;- - - - - - - - - - - - - - - - - -
;;xyz;;;;;;	 EXTERN	 STESTMV
;;xyz;;;;	 EXTERN	 MSTESFMV
;;xyz;;;;;;	 EXTERN	 FRBARMV
;;xyz;;;;	 EXTERN	 NYAMAMV
;;xyz;;;;	 EXTERN	 CHUNLIMV
;;xyz;;;;	 EXTERN	 UFOCHMV
;;xyz;;;;	 EXTERN	 TERSAMV
;;xyz;;;;	 EXTERN	 TEKYUMV
;;xyz;;;;	 EXTERN	 BHOLEMV
;;xyz;;;;	 EXTERN	 BHOL2MV
;;xyz;;;;	 EXTERN	 FISHGMV
;;xyz;;;;	 EXTERN	 SBOMBMV
;;xyz;;;;	 EXTERN	 OBOMBMV
;;xyz;;;;	 EXTERN	 NINJAMV
;;xyz;;;;	 EXTERN	 NINTMMV
;;xyz;;;;	 EXTERN	 HAYABMV
;;xyz;;;;	 EXTERN	 BGKAOMV
;;xyz;;;;	 EXTERN	 BSLIMMV
;;xyz;;;;	 EXTERN	 TBOSSMV
;;xyz;;;;	 EXTERN	 BSNAKMV
;;xyz;;;;	 EXTERN	 GORMAMV
;;xyz;;;;	 EXTERN	 BSKELMV
;;xyz;;;;	 EXTERN	 DDNGOMV
;;xyz;;;;	 EXTERN	 WARPMV
;;xyz;;;;	 EXTERN	 BFIREMV
;;xyz;;;;	 EXTERN	 BBIRDMV
;;xyz;;;;	 EXTERN	 PSCRLMV
;;xyz;;;;	 EXTERN	 BFISHMV
;;xyz;;;;	 EXTERN	 ONOFSMV
;;xyz;;;;	 EXTERN	 SWTRPMV
;;xyz;;;;	 EXTERN	 MVHASMV
;;xyz;;;;	 EXTERN	 HIKUSMV
;;xyz;;;;	 EXTERN	 IKADAMV
;;xyz;;;;	 EXTERN	 TANABEMV
;;xyz;;;;	 EXTERN	 NIWATMV
;;xyz;;;;	 EXTERN	 WANWANMV
;;xyz;;;;	 EXTERN	 BTFLYMV
;;xyz;;;;	 EXTERN	 FOXDOGMV
;;xyz;;;;	 EXTERN	 KODOMAMV
;;xyz;;;;	 EXTERN	 KODOMBMV
;;xyz;;;;	 EXTERN	 KODOMCMV
;;xyz;;;;	 EXTERN	 KODOMDMV
;;xyz;;;;	 EXTERN	 MAMA0MV
;;xyz;;;;	 EXTERN	 MAMA1MV
;;xyz;;;;	 EXTERN	 PAPA1MV
;;xyz;;;;	 EXTERN	 URURIMV
;;xyz;;;;	 EXTERN	 OZWANMV
;;xyz;;;;	 EXTERN	 MSWANMV
;;xyz;;;;	 EXTERN	 KARASMV
;;xyz;;;;	 EXTERN	 TRYCYMV
;;xyz;;;;	 EXTERN	 BHANAMV
;;xyz;;;;	 EXTERN	 BHFIRMV
;;xyz;;;;	 EXTERN	 SHANAMV
;;xyz;;;;	 EXTERN	 KAMEIMV
;;xyz;;;;	 EXTERN	 DENWAMV
;;xyz;;;;	 EXTERN	 OBAQMV
;;xyz;;;;	 EXTERN	 OBQBARMV
;;xyz;;;;	 EXTERN	 BEDINMV
;;xyz;;;;	 EXTERN	 IZUMIMV
;;xyz;;;;	 EXTERN	 HATO0MV
;;xyz;;;;	 EXTERN	 FLYITMV
;;xyz;;;;	 EXTERN	 RANEMMV
;;xyz;;;;	 EXTERN	 NOMOSMV
;;xyz;;;;	 EXTERN	 HINO0MV
;;xyz;;;;	 EXTERN	 PANELMV
;;xyz;;;;	 EXTERN	 PANEL2MV
;;xyz;;;;	 EXTERN	 SWBLKMV
;;xyz;;;;	 EXTERN	 SWBLK2MV
;;xyz;;;;	 EXTERN	 MIZUBMV
;;xyz;;;;	 EXTERN	 HEIHOMV
;;xyz;;;;	 EXTERN	 SLOTMV
;;xyz;;;;	 EXTERN	 KARBYMV
;;xyz;;;;	 EXTERN	 OCHANMV
;;xyz;;;;	 EXTERN	 HEISMMV
;;xyz;;;;	 EXTERN	 HEISBMV
;;xyz;;;;	 EXTERN	 RICHDMV
;;xyz;;;;	 EXTERN	 KAERUMV
;;xyz;;;;	 EXTERN	 SWIMPMV
;;xyz;;;;	 EXTERN	 DAISUMV
;;xyz;;;;	 EXTERN	 AMENBMV
;;xyz;;;;	 EXTERN	 YUKABMV
;;xyz;;;;	 EXTERN	 YSLIMMV
;;xyz;;;;	 EXTERN	 BALEEMV
;;xyz;;;;	 EXTERN	 MOAIMV
;;xyz;;;;	 EXTERN	 TBEAMMV
;;xyz;;;;	 EXTERN	 KURI0MV
;;xyz;;;;	 EXTERN	 PIHATMV
;;xyz;;;;	 EXTERN	 LOPEMV
;;xyz;;;;	 EXTERN	 PACKNMV
;;xyz;;;;	 EXTERN	 LIFTXMV
;;xyz;;;;	 EXTERN	 LIFTYMV
;;xyz;;;;	 EXTERN	 LIFTDMV
;;xyz;;;;	 EXTERN	 LIFTTMV
;;xyz;;;;	 EXTERN	 HASIRMV
;;xyz;;;;	 EXTERN	 TAMA0MV
;;xyz;;;;	 EXTERN	 GESSOMV
;;xyz;;;;	 EXTERN	 PUKPKMV
;;xyz;;;;	 EXTERN	 PUKPVMV
;;xyz;;;;	 EXTERN	 PUKPJMV
;;xyz;;;;	 EXTERN	 MONKYMV
;;xyz;;;;	 EXTERN	 OCTAJMV
;;xyz;;;;	 EXTERN	 YOSSIMV
;;xyz;;;;	 EXTERN	 AMUSIMV
;;xyz;;;;	 EXTERN	 YUKASMV
;;xyz;;;;	 EXTERN	 AMUSTMV
;;xyz;;;;	 EXTERN	 HANNYMV
;;xyz;;;;	 EXTERN	 PAPA2MV
;;xyz;;;;	 EXTERN	 KUMA0MV
;;xyz;;;;	 EXTERN	 PAPALMV
;;xyz;;;;	 EXTERN	 MAMADMV
;;xyz;;;;	 EXTERN	 TURIMV
;;xyz;;;;	 EXTERN	 NYOROMV
;;xyz;;;;	 EXTERN	 PKURIMV
;;xyz;;;;	 EXTERN	 SHIGEMV
;;xyz;;;;	 EXTERN	 TUKAIMV
;;xyz;;;;	 EXTERN	 ARIMAMV
;;xyz;;;;	 EXTERN	 BOXERMV
;;xyz;;;;	 EXTERN	 ZONBIMV
;;xyz;;;;	 EXTERN	 KHIMIMV
;;xyz;;;;	 EXTERN	 GIRL1MV
;;xyz;;;;	 EXTERN	 GIRL2MV
;;xyz;;;;	 EXTERN	 MAMUUMV
;;xyz;;;;	 EXTERN	 TODDMV
;;xyz;;;;	 EXTERN	 UNIUNIMV
;;xyz;;;;	 EXTERN	 KANIMV
;;xyz;;;;	 EXTERN	 MANBOMV
;;xyz;;;;	 EXTERN	 USAGIMV
;;xyz;;;;	 EXTERN	 ONPUMV
;;xyz;;;;	 EXTERN	 AKUMAMV
;;xyz;;;;	 EXTERN	 ZORAMV
;;xyz;;;;	 EXTERN	 BLANKAMV
;;xyz;;;;	 EXTERN	 WANIMV
;;xyz;;;;	 EXTERN	 MAMAD2MV
;;xyz;;;;	 EXTERN	 GAGEMV
;;xyz;;;;	 EXTERN	 USAG2MV
;;xyz;;;;	 EXTERN	 KUMASMV
;;xyz;;;;	 EXTERN	 NTORIMV
;;xyz;;;;	 EXTERN	 GMUSIMV
;;xyz;;;;	 EXTERN	 OBAKEMV
;;xyz;;;;	 EXTERN	 NIWAXMV
;;xyz;;;;	 EXTERN	 YTUBOMV
;;xyz;;;;	 EXTERN	 DOSNSMV
;;xyz;;;;	 EXTERN	 DOSNBMV
;;xyz;;;;	 EXTERN	 TAIATMV
;;xyz;;;;	 EXTERN	 FIREBMV
;;xyz;;;;	 EXTERN	 BABUBMV
;;xyz;;;;	 EXTERN	 KAZAMMV
;;xyz;;;;	 EXTERN	 BOOKMV
;;xyz;;;;	 EXTERN	 SEIRENMV
;;xyz;;;;	 EXTERN	 KENBMMV
;;xyz;;;;	 EXTERN	 SARUKMV
;;xyz;;;;	 EXTERN	 MOUSEMV
;;xyz;;;;	 EXTERN	 HODAIMV
;;xyz;;;;	 EXTERN	 SANBOMV
;;xyz;;;;	 EXTERN	 MBOSSMV
;;xyz;;;;	 EXTERN	 FLYIT2MV
;;xyz;;;;	 EXTERN	 BOSSMV
;;xyz;;;;	 EXTERN	 SIROSMV
;;xyz;;;;	 EXTERN	 EDAIMV
;------------------------------
;------------------------------------------------
	KANJI
	PAGE
;
	LIST
	ORG	$37E6
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
WAENCK
	LD	A,$14
	LD	($2100),A
;
	LD	HL,ENWAN
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,$2100
	LD	(HL),$05
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KTFLCSL
	LD	A,$19
	CALL	PBSET
	CALL	KTFLCS
	LD	A,$03
	JP	PBSET
;;	JP	PBRETN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KTFLSTL
	LD	A,$03
	LD	($2100),A
	CALL	KTFLST
	JP	PBRETN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SHRVSE
	LD	A,$14
	LD	($2100),A
;
	CALL	SHRVSES
;
	JP	PBRETN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
WANWANCKL
	LD	A,$01
	CALL	PBSET
;
	CALL	WANWANCK
;
	LD	A,$02
	JP	PBSET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENMDSTL
	LD	A,$03
	LD	($2100),A
	CALL	ENMDST
	JP	PBRETN
;============================
CAOFCKL
	LD	A,$14
	LD	($2100),A
	CALL	CAOFCKS
	LD	A,$03
	LD	($2100),A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENOMDT
	DB	$00,$08,$10,$18
;	DB	$00,$08,$10,$18
;	DB	$00,$08,$10,$18
;	DB	$00,$08,$10,$18
;
;	DB	$00,$10,$20,$30
;	DB	$08,$18,$28,$38
;	DB	$28,$18,$38,$08
;	DB	$18,$28,$38,$18
;
ENEMY
	LD	HL,BSFLSD
	LD	A,(HL)
	AND	A
	JR	Z,ENBOS10
;
	DEC	(HL)
	JR	NZ,ENBOS10
;
	LD	A,$10
	LD	(SOUND2),A	;(S)	ボスやられ音！
ENBOS10
	LD	A,(MSGEFG)
	AND	A
	JR	NZ,EN10E0
;
	LD	A,(ENSTTM)
	LD	(ENSTFG),A
	AND	A
	JR	Z,EN10E0
;
	DEC	A
	LD	(ENSTTM),A
EN10E0
;;	LD	A,$03
;;	CALL	PBSET
;
	LD	A,(PLMODE)
	CP	POVER
	RET	Z
;;	JR	Z,EN1000
;
	XOR	A
	LD	(ENOMIS),A	; OAM set count reset !
;
	LD	A,(DNJNNO)
	CP	DJMAX ;$20
;
	LD	A,(FRCNT)
	JR	C,E00010
	XOR	A
E00010
	AND	$03
;;	AND	$0F
	LD	E,A
	LD	D,$00
	LD	HL,ENOMDT
	ADD	HL,DE
	LD	A,(HL)		; Enemy OAM index set !
	LD	(ENOMID),A	; For 10's over calc !!
;
	LD	A,(FIREBFG)
	LD	(WFIREBFG),A
	XOR	A
	LD	(FIREBFG),A
;;	LD	(SHOPFG),A	; Shop in flag (Not item use)
	LD	(DAMASI),A	; たぬきだましフラグ！
	LD	(IKADAON),A	; Player Ikada on flag !
	LD	(SLIMFG),A	;スライムヒッツキ!
	LD	(WARPFG),A
	LD	(ONLFFG),A	;リフト載りフラグ！
	LD	(PLCANO),A
	LD	(TOBIOF),A
;
	LD	A,(MSGEFG)
	AND	A
	JR	NZ,ENFF00
;
;;	XOR	A
	LD	(MSCRFG),A	; Peaple cros flag (Not item set)
ENFF00
	LD	A,$02
	CALL	PBSET
;
	CALL	PWKEND2	 ; Meter ken flashing
;
;
	LD	B,$0
	LD	C,<ENNO-1
EN0000
	LD	A,C
	LD	(INDEX),A
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,EN0001
;
	LD	(ENMODE2),A
;
	CALL	ENMAIN
EN0001
	DEC	C
	LD	A,C
	CP	$FF
	JR	NZ,EN0000
ENNOTH
	RET
;==============================
ENRMCL
	LD	A,$15
	LD	($2100),A
	CALL	ENRMCLL
	LD	A,$03
	LD	($2100),A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENMAIN
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENMYNO2),A
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENSTAT2),A
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENCHPT2),A
;
	LD	A,$19
	CALL	PBSET
;
	LD	A,(ENMYNO2)
	CP	IKADA
	JR	NZ,ENMA01
;
	LD	A,(IKADAON)
	AND	A
	JR	NZ,ENMA03
ENMA01
	LD	A,(ENMODE2)
	CP	ECACH
	JR	NZ,ENMA10
;
ENMA03
	CALL	ENSCRL
	CALL	ENPSSV
	JR	ENMA20
ENMA10
	CALL	ENPSSV
	CALL	ENSCRL
ENMA20
	LD	A,$14
	CALL	PBSET
;
	CALL	ENSUB0
;
	LD	A,$03
	CALL	PBSET
;	LD	HL,ENMODE
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	(ENMODE2),A
;	AND	A
;	JP	Z,ENNOTH
	LD	A,(ENMODE2)
	CP	EMOVE
	JP	Z,ENMOVE
	RST	0
	DW	ENNOTH
	DW	ENFAIL
	DW	ENFOLE
	DW	ENFIRE
	DW	ENINIT
	DW	ENMOVE ; Dammy
	DW	ENSTOP
	DW	ENCACH
	DW	ENSHOT
;- - - - - - - - - - - -
EFAIL	EQU	1
EFOLE	EQU	2
EFIRE	EQU	3
EINIT	EQU	4
EMOVE	EQU	5
ESTOP	EQU	6
ECACH	EQU	7
ESHOT	EQU	8
;----------------------------
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENMOVEL
	CALL	ENMOVE
;
	LD	A,$03
	JP	PBSET
;- - - - - - - - - - - - - - - - - - - -
ENMOVE
	LD	A,(ENMYNO2)
	LD	E,A
	LD	D,B
	LD	HL,EPBANK
	ADD	HL,DE
	LD	A,(HL)
	CALL	PBSET
;
;;	LD	A,(ENMYNO2)
	LD	A,E
	RST	0
	DW	PYAAAMV
	DW	BUMERMV
	DW	BOMBRMV
	DW	FUCKSMV
	DW	PRTBMMV
;
	DW	KTOBJMV
	DW	BLOCKMV
	DW	TAKARMV
	DW	POWDRMV
;
	DW	OCTA1MV
	DW	OCTAMMV
	DW	MORI1MV
	DW	MORYAMV
	DW	TEKTAMV
	DW	RIVERMV
	DW	KUZUHMV
	DW	GHOSTMV
	DW	GHOSBMV
	DW	GHOSSMV
	DW	BOMBOMV
	DW	HEIS0MV
	DW	BABULMV
	DW	SPARKMV
	DW	SPAR2MV
	DW	PORUSMV
	DW	BLBATMV
	DW	SKEL0MV
	DW	SLIMBMV
	DW	SLIMSMV
	DW	00 ;BASSFMV
	DW	SKEL1MV
	DW	MUMMYMV
	DW	MOTOSMV
	DW	MAGE0MV
	DW	SONICMV
	DW	LAIKUMV
	DW	HIPLPMV
	DW	BOSS1MV
	DW	KWUSOMV
	DW	TRAP0MV
	DW	COPYAMV
	DW	HAYAMMV
	DW	RENO7MV
	DW	R7BEMMV
	DW	INOSIMV
;
	DW	HART1MV
	DW	RUPY1MV
	DW	YOSEIMV
	DW	KEYSMMV
	DW	PLTATMV
	DW	HMASKMV
	DW	POWERMV
	DW	KINOMMV
	DW	KAKERMV
	DW	HARTBMV
	DW	ALOW1MV ;MSTESTMV
	DW	BOMB1MV
	DW	GAKKIMV
	DW	KINOKMV
	DW	MGPOWMV
	DW	KAKINMV
	DW	KAIINMV
	DW	GIRL0MV
	DW	PAPA0MV
	DW	BABA0MV
	DW	FUKUROMV
	DW	HINTOMV
;;DW	00 ;TOBIDMV
	DW	EWOODMV
	DW	MSPNTMV
	DW	IWAGOMV
	DW	SWBLKUMV
	DW	SWBLKDMV
	DW	SWBLKLMV
	DW	SWBLKRMV
;- - - - - - - - - - - - - - - - - -
	DW	00  ;STESTMV
	DW	MSTESFMV
	DW	00 ;FRBARMV
	DW	NYAMAMV
	DW	CHUNLIMV
	DW	UFOCHMV
	DW	TERSAMV
	DW	TEKYUMV
	DW	BHOLEMV
	DW	BHOL2MV
	DW	FISHGMV
	DW	SBOMBMV
	DW	OBOMBMV
	DW	NINJAMV
	DW	NINTMMV
	DW	HAYABMV
	DW	BGKAOMV
	DW	BSLIMMV
	DW	TBOSSMV
	DW	BSNAKMV
	DW	GORMAMV
	DW	BSKELMV
	DW	DDNGOMV
	DW	WARPMV
	DW	BFIREMV
	DW	BBIRDMV
	DW	PSCRLMV
	DW	BFISHMV
	DW	ONOFSMV
	DW	SWTRPMV
	DW	MVHASMV
	DW	HIKUSMV
	DW	IKADAMV
	DW	TANABEMV
	DW	NIWATMV
	DW	WANWANMV
	DW	BTFLYMV
	DW	FOXDOGMV
	DW	KODOMAMV
	DW	KODOMBMV
	DW	KODOMCMV
	DW	KODOMDMV
	DW	MAMA0MV
	DW	MAMA1MV
	DW	PAPA1MV
	DW	URURIMV
	DW	OZWANMV
	DW	MSWANMV
	DW	KARASMV
	DW	TRYCYMV
	DW	BHANAMV
	DW	BHFIRMV
	DW	SHANAMV
	DW	KAMEIMV
	DW	DENWAMV
	DW	OBAQMV
	DW	OBQBARMV
	DW	BEDINMV
	DW	IZUMIMV
	DW	HATO0MV
	DW	FLYITMV
	DW	RANEMMV
	DW	NOMOSMV
	DW	HINO0MV
	DW	PANELMV
	DW	PANEL2MV
	DW	SWBLKMV
	DW	SWBLK2MV
	DW	MIZUBMV
	DW	HEIHOMV
	DW	SLOTMV
	DW	KARBYMV
	DW	OCHANMV
	DW	HEISMMV
	DW	HEISBMV
	DW	RICHDMV
	DW	KAERUMV
	DW	SWIMPMV
	DW	DAISUMV
	DW	AMENBMV
	DW	YUKABMV
	DW	YSLIMMV
	DW	BALEEMV
	DW	MOAIMV
	DW	TBEAMMV
	DW	KURI0MV
	DW	PIHATMV
	DW	LOPEMV
	DW	PACKNMV
	DW	LIFTXMV
	DW	LIFTYMV
	DW	LIFTDMV
	DW	LIFTTMV
	DW	HASIRMV
	DW	TAMA0MV
	DW	GESSOMV
	DW	PUKPKMV
	DW	PUKPVMV
	DW	PUKPJMV
	DW	MONKYMV
	DW	OCTAJMV
	DW	YOSSIMV
	DW	AMUSIMV
	DW	YUKASMV
	DW	AMUSTMV
	DW	HANNYMV
	DW	PAPA2MV
	DW	KUMA0MV
	DW	PAPALMV
	DW	MAMADMV
	DW	TURIMV
	DW	NYOROMV
	DW	PKURIMV
	DW	SHIGEMV
	DW	TUKAIMV
	DW	ARIMAMV
	DW	BOXERMV
	DW	ZONBIMV
	DW	KHIMIMV
	DW	GIRL1MV
	DW	GIRL2MV
	DW	MAMUUMV
	DW	TODDMV
	DW	UNIUNIMV
	DW	KANIMV
	DW	MANBOMV
	DW	USAGIMV
	DW	ONPUMV
	DW	AKUMAMV
	DW	ZORAMV
	DW	BLANKAMV
	DW	WANIMV
	DW	MAMAD2MV
	DW	GAGEMV
	DW	USAG2MV
	DW	KUMASMV
	DW	NTORIMV
	DW	GMUSIMV
	DW	OBAKEMV
	DW	NIWAXMV
	DW	YTUBOMV
	DW	DOSNSMV
	DW	DOSNBMV
	DW	TAIATMV
	DW	FIREBMV
	DW	BABUBMV
	DW	KAZAMMV
	DW	BOOKMV
	DW	SEIRENMV
	DW	KENBMMV
;-
	DW	SARUKMV
	DW	MOUSEMV
	DW	HODAIMV
	DW	SANBOMV
	DW	MBOSSMV
	DW	FLYIT2MV
	DW	BOSSMV
	DW	SIROSMV
;-
	DW	EDAIMV
;------------------------------
ENOJSD
;;		Cnt Lng C   L
;;		 x   x	 y   y
	DB	$08,$05,$08,$05 ;0 Normal
	DB	$08,$0A,$08,$0A ;1 BLOCK
	DB	$08,$0A,$08,$0A ;2 GHOSB,HAYAB
	DB	$08,$10,$04,$0A ;3 OYAJI
	DB	$08,$02,$08,$02 ;4 SLIMS ; Small size
	DB	$08,$13,$08,$13 ;5 BFISH body
	DB	$08,$06,$06,$08 ;6 Speaking people
	DB	$08,$07,$06,$0A ;7 Item
	DB	$08,$06,$10,$30 ;8 OBQBAR
	DB	$08,$07,$04,$0A ;9 MOAI
	DB	$0C,$07,$FC,$04 ;A BSKEL
	DB	$10,$10,$0C,$12 ;B LIFT?
	DB	$08,$08,$02,$08 ;C LIFT短い！
	DB	$10,$0C,$08,$10 ;D クマコック
	DB	$08,$07,$0C,$08 ;E FLYIT
	DB	$08,$08,$02,$08 ;F YTUBO
; - - - - - - - - - - - - -
ENSZST	; Size set !
	LD	HL,ENMOD1
	ADD	HL,BC
	LD	A,(HL)
	AND	%01111100  ;$1F
	LD	E,A
	LD	D,B
	LD	HL,ENOJSD
	ADD	HL,DE
	PUSH	HL
	POP	DE
;
	PUSH	BC
	SLA	C
	SLA	C
	LD	HL,ENOJSZ
	ADD	HL,BC
;- - Obj cross size set ! - -
	LD	C,$4
ENMS02
	LD	A,(DE)
	INC	DE
	LD	(HLI),A
	DEC	C
	JR	NZ,ENMS02
;
	POP	BC
	RET
;-------------------------------------------
;-------------------------------------------
ENPTST
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),A
	RET
;-------------------------------------------
STATINC
	LD	HL,ENSTAT
	ADD	HL,BC
	INC	(HL)
	RET
;============================
PLDMST0 ;プレイヤーダメージセット
	LD	A,$02
	LD	($2100),A
;
	CALL	PLDMST00
	JP	PBRETN
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%						  %
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;EN1CSTL
;	LD	A,$03
;	LD	($2100),A
;	CALL	EN1CST
;	CALL	PBRETN
;	RET
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%						  %
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;EN2CSTL
;	LD	A,$03
;	LD	($2100),A
;	CALL	EN2CST
;	CALL	PBRETN
;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENBGCKL
	LD	A,$03
	LD	($2100),A
	CALL	ENBGCK
	JP	PBRETN
;RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENBGCK2L
	LD	A,$03
	LD	($2100),A
	CALL	ENBGCK2
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CREPKEL
	LD	A,$03
	LD	($2100),A
	CALL	CREPKE
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRENPLL
	LD	A,$03
	LD	($2100),A
	CALL	CRENPL
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRENPL2L
	LD	A,$03
	LD	($2100),A
	CALL	CRENPL2
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRENPSL
	LD	A,$03
	LD	($2100),A
	CALL	CRENPS
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRKNKNL
	LD	A,$03
	LD	($2100),A
	CALL	CRKNKN
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRKNENL
	LD	A,$03
	LD	($2100),A
	CALL	CRKNEN
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRENENL
	LD	A,$03
	LD	($2100),A
	CALL	CRENEN
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENIDSHL
	PUSH	AF
	LD	A,$03
	LD	($2100),A
	POP	AF
	CALL	ENIDSH
	RR	L
	CALL	PBRETN
	RL	L
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENIDSH2L
	PUSH	AF
	LD	A,$03
	LD	($2100),A
	POP	AF
	CALL	ENIDSH2
	RR	L
	CALL	PBRETN
	RL	L
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PSERCHL
	LD	HL,$2100
	LD	(HL),$03
	CALL	PSERCH
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PSERCH2L
	LD	HL,$2100
	LD	(HL),$03
	CALL	PSERCH2
	JP	PBRETN
;;	RET
;- - - - - - - - - - - - - - - - - - - - - - - - -
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						  %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;E2CSRT
;	RET
EN2CST
;	LD	HL,ENWATR
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$02
;	JR	NZ,E2C100	;水浅瀬？
;;				;yes !
;	LD	A,(ENDSYP)
;	ADD	A,$02
;	LD	(ENDSYP),A
;E2C100
	LD	A,(ENCHPT2)
	INC	A
	RET	Z
;;	CP	$FF
;;	JR	Z,E2CSRT
;
	CALL	O2MCHK
;
	PUSH	DE	; Chr data addr push !
;
;;	LD	HL,ENOMID
;;	ADD	HL,BC
;;	LD	A,(HL)
	LD	A,(ENOMID)
	LD	E,A
	LD	D,B ;$0
	LD	HL,ENOAM
	ADD	HL,DE
	PUSH	HL
	POP	DE
;
;	LD	A,(INDEX)
;	LD	C,A
;	LD	B,$0
;
	LD	A,(ENDSYP)  ;(HL)
	LD	(DE),A		; Y L
	INC	DE
;
	LD	A,(TILTXD)
	LD	C,A
;
	LD	A,(ENFLCL)
	AND	%00100000
	RRA
	RRA
;
	LD	HL,ENSVXL
	ADD	A,(HL)
	SUB	C
	LD	(DE),A		; X L
	INC	DE
;
;;	LD	HL,ENCHPT
;;	ADD	HL,BC
	LD	A,(ENCHPT2)  ;HL)
	LD	C,A
	LD	B,$0
	SLA	C
	RL	B
	SLA	C
	RL	B
	POP	HL	; Chrs data addr. !
	ADD	HL,BC
	LD	A,(ENCHNO)
	LD	C,A
	LD	A,(HLI)
	ADD	A,C
	LD	(DE),A		; C L
	AND	$0F
	CP	$0F
	JR	NZ,E1C050	; Space ?
	DEC	DE
	LD	A,$F0
	LD	(DE),A		; yes not set
	INC	DE
E1C050
	INC	DE
	LD	A,(HLI)
	PUSH	HL
;
	LD	HL,ENFLCL
	XOR	(HL)
	LD	(DE),A		; A L
	INC	DE
;
;- - Right - - -
	LD	A,(ENDSYP)   ;(HL)
	LD	(DE),A		; Y R
	INC	DE
;
	LD	A,(TILTXD)
	LD	C,A
;
	LD	A,(ENFLCL)
	AND	%00100000
	XOR	%00100000
	RRA
	RRA
;
	LD	HL,ENSVXL
	SUB	C
	ADD	A,(HL)	 ;$08  ;10
	LD	(DE),A		; X R
	INC	DE
;
	POP	HL
	LD	A,(ENCHNO)
	LD	C,A
	LD	A,(HLI)
	ADD	A,C
	LD	(DE),A		; C R
;
	AND	$0F
	CP	$0F
	JR	NZ,E1C070	; Space ?
	DEC	DE
	LD	A,$F0
	LD	(DE),A		; not set
	INC	DE
E1C070
	INC	DE
	LD	A,(HL)
	LD	HL,ENFLCL
	XOR	(HL)
	LD	(DE),A		; A R
;;	INC	DE
;
ECSSUB
	LD	A,(INDEX)
	LD	C,A
	LD	B,$0
;
	LD	A,$15
;;	LD	A,$03
	LD	($2100),A
;
	CALL	NXOMCL
SDSSB
	CALL	SADWST
;
	JP	PBRETN
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
EN1CST
	LD	A,(ENCHPT2)
	INC	A
	RET	Z
;;	CP	$FF
;;	JP	Z,E2CSRT
;
	CALL	O2MCHK
;
;;	PUSH	BC
	PUSH	DE	; Chr data addr push !
;
	LD	A,(ENOMID)
	LD	L,A
	LD	H,$0
	LD	BC,ENOAM
	ADD	HL,BC
	PUSH	HL
	POP	DE
;
	LD	A,(INDEX)
	LD	C,A
	LD	B,$0
;
	LD	A,(YKFLAG)
	AND	A
	LD	A,(ENDSYP)  ;(HL)
	JR	Z,E1C003
;
	SUB	$4
	LD	(ENDSYP),A
E1C003
	LD	(DE),A		; Y
	INC	DE
;
	LD	A,(TILTXD)
	LD	H,A
;
	LD	A,(ENSVXL)
	ADD	A,$04
	SUB	H
	LD	(DE),A		; X
	INC	DE
;
;;	LD	HL,ENCHPT
;;	ADD	HL,BC
	LD	A,(ENCHPT2)  ;HL)
	LD	C,A
	LD	B,$0
	SLA	C
	RL	B
;;	SLA	C
;;	RL	B
	POP	HL	; Chrs data addr. !
	ADD	HL,BC
	LD	A,(HLI)
	LD	(DE),A		; C
	INC	DE
;
	LD	A,(HLI)
	LD	HL,ENFLCL
	XOR	(HL)
	LD	(DE),A		; A
	INC	DE
;
;;	POP	BC
;
	JR	ECSSUB
;
;	LD	A,(INDEX)
;	LD	C,A
;	LD	B,$00
;;
;	LD	A,$03
;	LD	($2100),A
;;
;	CALL	NXOMCL
;	CALL	SADWST
;;
;	JP	PBRETN
;;	RET
;=======================
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
SADWSTL
	LD	A,$15
;;	LD	A,$03
	LD	($2100),A
	JR	SDSSB
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENOMST2
	PUSH	HL
	LD	HL,OAM
	JR	EOS001
ENOMST
	LD	A,(ENCHPT2)
	INC	A
;;	CP	$FF
	JR	Z,EOS090
;
	PUSH	HL
	LD	A,(ENOMID)
	LD	E,A
	LD	D,$0
	LD	HL,ENOAM
	ADD	HL,DE
EOS001
	PUSH	HL
	POP	DE
;
	POP	HL
;
	LD	A,C
	LD	(WORK0),A
	LD	A,(INDEX)
	LD	C,A
	CALL	O2MCHK
	LD	A,(WORK0)
	LD	C,A
ENOM10
	LD	A,(ENDSYP)
	ADD	A,(HL)
	LD	(DE),A
	INC	HL
	INC	DE
;
	PUSH	BC
;
	LD	A,(TILTXD)
	LD	C,A
;
	LD	A,(ENSVXL)
	ADD	A,(HL)
	SUB	C
	LD	(DE),A
	INC	HL
	INC	DE
;
	LD	A,(ENCHNO)	; Chr bank revise !
	LD	C,A
	LD	A,(HLI)
	PUSH	AF
	ADD	A,C
	LD	(DE),A
;;	POP	BC
;
	POP	AF
;;	AND	$0F
	CP	$FF
	JR	NZ,EOS900
	DEC	DE
	XOR	A
	LD	(DE),A
	INC	DE
EOS900
	POP	BC
	INC	DE
;
	LD	A,(ENFLCL)
	XOR	(HL)
	INC	HL
	LD	(DE),A
	INC	DE
;
	DEC	C
	JR	NZ,ENOM10
;
	LD	A,(INDEX)
	LD	C,A
;
	LD	A,$15
;;	LD	A,$03
	LD	($2100),A
;
	CALL	NXOMCL
;
	JP	PBRETN
EOS090
	LD	A,(INDEX)
	LD	C,A
;
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
O2MCHK
	PUSH	HL
;
	LD	A,(SCRLFG)
	AND	A
	JR	Z,O2CK10
;
;;	LD	A,(ENMYNO2)
;;	CP	HASIR
;;	JR	Z,O2CK10
;
	LD	A,(ENSVXL)
	DEC	A
	CP	$C0
	JR	NC,O2CK08
;
	LD	A,(ENDSYP)
	DEC	A
	CP	$88
;;	CP	$A0
	JR	NC,O2CK08
;
	LD	HL,ENXPSH
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,O2CK08
;
	LD	HL,ENYPSH
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,O2CK10
O2CK08
	POP	AF	; Display out not c set !
O2CK10
	POP	HL
	RET
;===================================
ENSDCL
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),B
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),B
	RET
;===================================
ENPSSV
	LD	HL,ENXPSL	; Enemy old pos save
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENSVXL),A
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENSVYL),A
;
	LD	HL,ENZPSL
	ADD	HL,BC
	SUB	(HL)
	LD	(ENDSYP),A
	RET
;------------------------------
NXOMSBL
	LD	HL,$2100
	LD	(HL),$15
;
	CALL	NXOMSB
;
	JP	PBRETN
;;	RET
;------------------------------
HAYAMITL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	HAYAMIT
;
	JP	PBRETN
;;	RET
;------------------------------
HAYABITL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	HAYABIT
;
	JP	PBRETN
;;	RET
;------------------------------
BGKAOITL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	BGKAOIT
;
	JP	PBRETN
;;	RET
;------------------------------
BSLIMITL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	BSLIMIT
;
	JP	PBRETN
;;	RET
;------------------------------
TBOSSITL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	TBOSSIT
;
	JP	PBRETN
;;	RET
;------------------------------
BSNAKITL
	LD	HL,$2100
	LD	(HL),$05
;
	CALL	BSNAKIT
;
	JP	PBRETN
;;	RET
;------------------------------
DDNGOITL
	LD	HL,$2100
	LD	(HL),$05
;
	CALL	DDNGOIT
;
	JP	PBRETN
;;	RET
;------------------------------
BFIREITL
	LD	HL,$2100
	LD	(HL),$05
;
	CALL	BFIREIT
;
	JP	PBRETN
;;	RET
;------------------------------
BBIRDITL
	LD	HL,$2100
	LD	(HL),$05
;
	CALL	BBIRDIT
;
	JP	PBRETN
;------------------------------
BFISHITL
	LD	HL,$2100
	LD	(HL),$05
;
	CALL	BFISHIT
;
	JP	PBRETN
;;	RET
;------------------------------
PLBGCKL
;;	LD	HL,$2100
;;	LD	(HL),$02
;
	LD	A,(PBANK)
	PUSH	AF
;
	LD	A,$02
	CALL	PBSET
;
	CALL	PLBGCK
;
;;	LD	A,$04	;From ENMY2
	POP	AF
	JP	PBSET
;	JP	PBRETN
;;	RET
;------------------------------
YMVSUBL
	LD	HL,$2100
	LD	(HL),$04
;
	CALL	YMVSUB
;
	JP	PBRETN
;;;	RET
;------------------------------
ISIBRKL
	LD	HL,$2100
	LD	(HL),$03
;
	CALL	ISIBRK
;
	JP	PBRETN
;;	RET
;------------------------------
COHTITL
	LD	HL,$2100
	LD	(HL),$02
;
	CALL	COINIT
	CALL	HARTIT
;
	JP	PBRETN
;;	RET
;------------------------------
TAKARSTL
	LD	A,$02
	CALL	PBSET
;
	CALL	TAKARST
;
	LD	A,$03
	JP	PBSET
;------------------------------
ITEMDPL
	LD	HL,$2100
	LD	(HL),$02
;
	CALL	ITEMDP
;
	JP	PBRETN
;;;	RET
;------------------------------
ITEMGETS
	LD	HL,$2100
	LD	(HL),$03
;
	CALL	ITEMGET
;
	JP	PBRETN
;;	RET
;------------------------------
GKFLSH
	LD	A,$06
	CALL	PBSET
;
	CALL	GKFLSHL
;
	LD	A,$03
	JP	PBSET
;------------------------------
ENALCL
;;	LD	E,$00
	LD	E,ENNO
	LD	HL,ENMODE
EAL010
	XOR	A
	LD	(HLI),A
;
;	INC	E
;	LD	A,E
;	CP	ENNO
	DEC	E
	JR	NZ,EAL010
	RET
;------------------------------
HNSMST
	LD	HL,ENHNMD
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	RET	Z
;;	JR	Z,HSS090
;
	LD	A,(FRCNT)
	XOR	C
	AND	$03
	RET	NZ
;;	JR	NZ,HSS090
;
	LD	A,(ENSVXL)
	LD	(WORK0),A
	LD	A,(ENDSYP)
	LD	(WORK1),A
;
	LD	A,HNSM
	CALL	EXIDSH
;
	LD	HL,EXTIM0
	ADD	HL,DE
	LD	(HL),$0F
HSS090
	RET
;------------------------------
ENHNBC
	LD	HL,ENHNXS
	ADD	HL,BC
	LD	A,(HL)
	BIT	7,A
	JR	Z,EHBC10
	CPL
	INC	A
EHBC10
	LD	(WORK0),A
;
	LD	HL,ENHNYS
	ADD	HL,BC
	LD	A,(HL)
	BIT	7,A
	JR	Z,EHBC20
	CPL
	INC	A
EHBC20
	LD	E,%00000011
	LD	HL,WORK0
	CP	(HL)
	JR	C,EHBC30
	LD	E,%00001100
EHBC30
	LD	A,E
;
	LD	HL,ENCBFG
	ADD	HL,BC
	AND	(HL)
	JR	Z,EHBC40
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),B
EHBC40
	RET
;====================================
;DJBSSD
;	DB	$19 ;1
;	DB	$19 ;2
;	DB	$19 ;3
;	DB	$19 ;4
;	DB	$19 ;5
;	DB	$19 ;6
;	DB	$19 ;7
;	DB	$19 ;8
;	DB	$19 ;9
;
DJBSMS
	DB	$B0 ;1 HAYAB
	DB	$B4 ;2 TUBO
	DB	$B1 ;3 BSLIM
	DB	$B2 ;4 BFISH
	DB	$B3 ;5 BSNAK
	DB	$B6 ;6 BGKAO
	DB	$BA ;7 BBIRD
	DB	$BC ;8 BFIRE
	DB	$B8 ;9
;
BSSDCK
	LD	HL,WNDFLG
	LD	A,(SCRLFG)
;;	AND	A
	OR	(HL)
	RET	NZ
;;	JR	NZ,BSDCK10
;
	LD	A,(BSSDTM)
	AND	A
	JR	Z,BSDCK08
;
	DEC	A
	LD	(BSSDTM),A
	RET
;
BSDCK08
	LD	A,(BSSDFG)
	AND	A
	RET	NZ
;;	JR	NZ,BSDCK10
;
	INC	A
	LD	(BSSDFG),A
;
;;	LD	A,$19
;	LD	A,(DNJNNO)
;	LD	E,A
;	LD	D,B
;	LD	HL,DJBSSD
;	ADD	HL,DE
;	LD	A,(HL)
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000100
	LD	A,$19	;大ボス
	JR	Z,BSDCK02
;
	LD	A,$50	;中ボス
BSDCK02
	LD	(SOUND4),A	;(S)
	LD	(BGMNO2),A
;
	LD	A,(SBHR)
	CP	$04
	RET	NZ
;
	LD	A,(ENMYNO2)
	CP	RANEM
	JR	NZ,BSDCK022
;
	LD	A,$DA
	JR	BSDCK0E
BSDCK022
	CP	TUKAI
	JR	NZ,BSDCK03	;鳥ツカイ！
;
	LD	A,$26
	JR	BSDCK0E
BSDCK03
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000100
	JR	NZ,BSDCK10	;大ボス?
;				;yes !
	LD	A,(DNJNNO)
	CP	$05	;顔ボスメッセージは後で！
	JR	Z,BSDCK10
	LD	E,A
	LD	D,B
	LD	HL,DJBSMS
	ADD	HL,DE
	LD	A,(HL)
BSDCK0E
	CALL	MSGCHK	;戦闘メッセージ！
BSDCK10
	RET
;----------------------------------------------
ENONBT
	DB	%00000001
	DB	%00000010
	DB	%00000100
	DB	%00001000
	DB	%00010000
	DB	%00100000
	DB	%01000000
	DB	%10000000
;
ENFEND
;	LD	A,(ENMYNO2)
;	CP	KWUSO
;	JR	NZ,EFE00E
;;
;	LD	HL,ENMODE
;	ADD	HL,BC
;	LD	(HL),EMOVE
;;
;	CALL	LDTIM0
;	LD	(HL),$20
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	LD	(HL),$08
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),$FF
;
;	LD	A,$03
;	LD	($2100),A
;	CALL	ENMDSTS
;;
;	JP	PBRETN
;;	RET
;
EFE00E
	LD	A,$03
	LD	(EFLFLG),A	; 全部穴落ちフラグ放棄！
	LD	($2100),A
	CALL	ENITMS
	CALL	PBRETN
;
;;	LD	A,$1
;;	LD	(TATLEV),A
;
ENBITON
	LD	HL,ENJYUN
	ADD	HL,BC
	LD	A,(HL)
	CP	$FF
	JR	Z,EFE090	; Data set enemy ?
;				; yes ! fail jyunban count set !(for nazo)
	PUSH	AF
;
	LD	A,(ENFLPT)
	LD	E,A
	LD	D,B
	INC	A
	LD	(ENFLPT),A
;
	LD	A,(HL)
	LD	HL,ENFLBF
	ADD	HL,DE
	LD	(HL),A
;- - - -Data save - - -
	POP	AF
ENDTON
	CP	$08
	JR	NC,EFE090	; Save ok ?
;				; yes !
	LD	E,A
	LD	D,B
	LD	HL,ENONBT
	ADD	HL,DE
;
	LD	A,(GRNDPT)
	LD	E,A
	LD	D,B
;
	LD	A,(HL)
	LD	HL,ENONOF
	ADD	HL,DE
	OR	(HL)
	LD	(HL),A
EFE090
;	LD	E,30
;	LD	A,(HARTMX)
;	CP	07
;	JR	C,EFE091
;	LD	E,50
;	CP	11
;	JR	C,EFE091
;	LD	E,80
;EFE091
;	LD	HL,ENFLCT	; All fail counter for level up !
;	INC	(HL)
;	LD	A,(HL)
;;;	AND	$1F
;	CP	E
;	JR	C,EFE098
;;
;	LD	(HL),B
;;
;	LD	A,$08
;	CALL	MSGCHK
;;
;	LD	A,$01
;	LD	(POWRFG),A
;;
;	XOR	A
;	LD	(POWRCT),A
EFE098
ENCLER
;;	XOR	A
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),B
	RET
;=====================================================
;  Bired boss character chenge
;=====================================================
BDCHT1
	LD	A,$05
	LD	($2100),A
;
	LD	HL,BDCHD10	; 常ちゆうキャラクタ データ
	LD	DE,CHRRAM+$460	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$010		; 個数
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,BDCHD11	; 常ちゆうキャラクタ データ
	JR	BDCHSB
; - - - - - - - - - - - - - -
BDCHT2
	LD	A,$05
	LD	($2100),A
;
	LD	HL,BDCHD20	; 常ちゆうキャラクタ データ
	LD	DE,CHRRAM+$460	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$010		; 個数
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,BDCHD21	; 常ちゆうキャラクタ データ
BDCHSB
	LD	DE,CHRRAM+$480	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$010		; 個数
	CALL	DATA_MOV	; キャラクタ 転送
	XOR	A
;;	LD	(TOURFG),A
	LD	(CHTRF2),A
;
	LD	A,$0C
	LD	($2100),A
	JP	PLCSET
;=========================
	END