PUBALL
BANK0	GROUP	00

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