;
		onbankgroup
;
;==============	バンク０ ================================================
BANK0		GROUP	0
;-------------<	ZCO >-------------
		extern	RNDSUB,OBJBG,BGMSET,SOUNDCLR,DDNGOITL,DJITRV
		extern	SOUNDOUT
;
;-------------<	ZPL >-------------
		extern	PLPSRV,MSGCHK,MSGCHK2,DUSHCL,KNCSET,KNFLSH,PLSHST
		extern	MVCALC,FLASHST,EXIDSH,NXGOTO,LDTIM0,BG1CHG,NAZOCLR
		extern	BBSDST,OTOSET,NXGOTO3,MSGCH2,LDTIM1,LDTIM3,DUSHCL2
		extern	CARITMD,PTOBI,PBULE,POVER,PINDR1,PTATE,PKEN,PMGIC
		extern	PBOMB,PYAST,PBOXER,PROD,PFOLE,PFUCK,ENDG,GMAP
;
;-------------<	ZBS >-------------
		extern	DJRMRD,BGCRRD,BGCRRD2
;
;-------------<	ZES >-------------
		extern	ENPSSV,TAKARSTL,ENMOVEL,ENPTST,STATINC,EN2CST,EN1CST
		extern	ENHNBC,YMVSUBL,ENOMST,HAYAMITL,HAYABITL,ENMOVE
		extern	BGKAOITL,BSLIMITL,TBOSSITL,BSNAKITL,BFIREITL,ENFEND
		extern	ENCLER,BBIRDITL,ENSZST,BFISHITL,O2MCHK,SHRVSE,GKFLSH
		extern	ENDTON,PSERCH2L,PSERCHL,CAOFCKL,KTFLCSL,SADWSTL
		extern	NXOMSBL,ENRMCL,EFAIL,EFOLE,EFIRE,EINIT,EMOVE,ESTOP
		extern	ECACH,ESHOT,ENSDCL,HNSMST
;
;-------------<	ZNA >-------------
		extern	HIMITSU,PBSET,HRTC1,HRTC2,HRTC3,HRTC4
;
;==============	バンク２ ================================================
BANK2		GROUP	2
;-------------<	ZEX >-------------
		extern	WTUP,SMK1,FLSH,KPWF,HNSM
;
;==============	バンク８ ================================================
BANK8		GROUP	8
;-------------<	ZBD >-------------
		extern	GRBGCR,DJBGCR
;
;==============	バンク１４ ==============================================
BANK14		GROUP	14H
;-------------<	ZDB >-------------
		extern	NOT,DMP,SKY,BKY,KEN,TBO,BMB,KAI,BUL,C01,C10,C20
		extern	C50,GK1,GK5,TAT
;
;========================================================================
	PUBALL
;
BANK3	GROUP	03
;
	LIB	ZRAM
	LIB	ZBN
;
;;;;;;;;	EXTERN	RNDSUB,PLPSRV,MSGCHK,MSGCHK2,DUSHCL,OBJBG,KNCSET,KNFLSH	
;;;;;;;;	EXTERN	PLSHST,MVCALC,FLASHST,DJRMRD,EXIDSH,NXGOTO,ENPSSV,TAKARSTL
;;;;;;;;	EXTERN	ENMOVEL,LDTIM0,ENPTST,STATINC,EN2CST,EN1CST,BG1CHG
;;;;;;;;	EXTERN	ENHNBC,YMVSUBL,ENOMST,HAYAMITL,HAYABITL,ENMOVE,BGKAOITL
;;;;;;;;	EXTERN	BSLIMITL,TBOSSITL,BSNAKITL,BGMSET,SOUNDCLR,DDNGOITL,BFIREITL
;;;;;;;;	EXTERN	ENFEND,ENCLER,BBIRDITL,NAZOCLR,ENSZST,BBSDST,OTOSET,NXGOTO3
;;;;;;;;	EXTERN	BFISHITL,MSGCH2,DJITRV,O2MCHK,SHRVSE,GKFLSH,HIMITSU,ENDTON
;;;;;;;;	EXTERN	LDTIM1,LDTIM3,SOUNDOUT,BGCRRD,BGCRRD2,DUSHCL2     ;TOURST,
;;;;;;;;	EXTERN	PSERCH2L,PSERCHL,PBSET,CAOFCKL
;;;;;;;;	EXTERN	KTFLCSL,SADWSTL,NXOMSBL,ENRMCL
;;;;;;;;;
;;;;;;;;	EXTERN	CARITMD,GRBGCR,DJBGCR,PTOBI,WTUP,PBULE,POVER,SMK1,PINDR1
;;;;;;;;	EXTERN	EFAIL,EFOLE,EFIRE,EINIT,EMOVE,ESTOP,ECACH,ESHOT,FLSH,PTATE
;;;;;;;;	EXTERN	ENSDCL,HNSMST,KPWF,HRTC1,HRTC2,HRTC3,HRTC4,PKEN ;,ONOFBD
;;;;;;;;	EXTERN  NOT,DMP,SKY,BKY,KEN,TBO,BMB,PMGIC,PBOMB,HNSM,PYAST,PBOXER
;;;;;;;;	EXTERN	KAI,BUL,C01,C10,C20,C50,PROD,PFOLE,GK1,GK5,PFUCK,TAT,ENDG
;;;;;;;;	EXTERN	GMAP
;------------------------------------------------
	KANJI
	PAGE
	isdmg
;
	LIST
	ORG	$4000
;---------------------------------------------------------------
EPBANK	; Program bank
	DB	$03 ;PYAAA
;;	DB	$04 ;TEST 
	DB	$19 ;BUMER
	DB	$03 ;BOMBR
	DB	$18 ;FUCKS
	DB	$03 ;PRTBM
;
	DB	$03 ;KTOBJ
	DB	$03 ;BLOCK
	DB	$07 ;TAKAR
	DB	$18 ;POWDR
;
	DB	$03 ;OCTA1
	DB	$03 ;OCTAM
	DB	$03 ;MORI1
	DB	$03 ;MORYA
	DB	$06 ;TEKTA
	DB	$04 ;RIVER
	DB	$06 ;KUZUH
	DB	$04 ;GHOST
	DB	$04 ;GHOSB
	DB	$04 ;GHOSS
	DB	$03 ;BOMBO
	DB	$07 ;HEIS0
	DB	$06 ;BABUL
	DB	$06 ;SPARK
	DB	$06 ;SPAR2
	DB	$06 ;PORUS
	DB	$06 ;BLBAT
	DB	$06 ;SKEL0
	DB	$06 ;SLIMB
	DB	$06 ;SLIMS
	DB	$06 ;BASSF
	DB	$15 ;SKEL1
	DB	$06 ;MUMMY
	DB	$06 ;MOTOS
	DB	$06 ;MAGE0
	DB	$06 ;SONIC
	DB	$06 ;LAIKU
	DB	$03 ;HIPLP
	DB	$03 ;BOSS1
	DB	$03 ;KWUSO
	DB	$06 ;TRAP0
	DB	$19 ;COPYA
	DB	$04 ;HAYAM
	DB	$04 ;RENO7
	DB	$15 ;R7BEM
	DB	$07 ;INOSI
;
	DB	$03 ;HART1
	DB	$03 ;RUPY1
	DB	$03 ;YOSEI
	DB	$03 ;KEYSM
	DB	$03 ;PLTAT
	DB	$03 ;HMASK
	DB	$03 ;POWER
	DB	$03 ;KINOM
	DB	$03 ;KAKER
	DB	$03 ;HARTB
	DB	$03 ;ALOW1 
	DB	$03 ;BOMB1 
	DB	$03 ;GAKKI 
	DB	$03 ;KINOK 
	DB	$03 ;MGPOW 
	DB	$03 ;KAKIN 
	DB	$03 ;KAIIN 
	DB	$05 ;GIRL0 
	DB	$05 ;PAPA0 
	DB	$05 ;BABA0 
	DB	$06 ;FUKURO
	DB	$18 ;HINTO 
	DB	$15 ;EWOOD 
	DB	$15 ;MSPNT 
	DB	$15 ;IWAGO 
	DB	$15 ;SWBLKU
	DB	$15 ;SWBLKD
	DB	$15 ;SWBLKL
	DB	$15 ;SWBLKR
	DB	$03 ;;;STEST 
	DB	$03 ;MSTESF
	DB	$04 ;FRBAR
	DB	$04 ;NYAMA
	DB	$04 ;CHUNLI
	DB	$04 ;UFOCH
	DB	$06 ;TERSA
	DB	$04 ;TEKYU
	DB	$04 ;BHOLE
	DB	$04 ;BHOL2
	DB	$04 ;FISHG
	DB	$04 ;SBOMB
	DB	$04 ;OBOMB
	DB	$04 ;NINJA
	DB	$04 ;NINTM
	DB	$04 ;HAYAB
	DB	$04 ;BGKAO
	DB	$04 ;BSLIM
	DB	$04 ;TBOSS
	DB	$05 ;BSNAK
	DB	$05 ;GORMA
	DB	$07 ;BSKEL
	DB	$05 ;DDNGO
	DB	$19 ;WARP
	DB	$05 ;BFIRE
	DB	$05 ;BBIRD
	DB	$18 ;PSCRL
	DB	$05 ;BFISH
	DB	$15 ;ONOFS
	DB	$05 ;SWTRP
	DB	$15 ;MVHAS
	DB	$18 ;HIKUS
	DB	$05 ;IKADA
	DB	$18 ;TANABE
	DB	$05 ;NIWAT
	DB	$05 ;WANWAN
	DB	$06 ;BTFLY 
	DB	$19 ;FOXDOG
	DB	$06 ;KODOMA
	DB	$06 ;KODOMB
	DB	$06 ;KODOMC
	DB	$06 ;KODOMD
	DB	$18 ;MAMA0 
	DB	$18 ;MAMA1 
	DB	$18 ;PAPA1 
	DB	$06 ;URURI 
	DB	$06 ;OZWAN 
	DB	$06 ;MSWAN 
	DB	$06 ;KARAS 
	DB	$06 ;TRYCY 
	DB	$06 ;BHANA 
	DB	$06 ;BHFIR 
	DB	$06 ;SHANA 
	DB	$18 ;KAMEI 
	DB	$06 ;DENWA 
	DB	$06 ;OBAQ  
	DB	$06 ;OBQBAR  
	DB	$06 ;BEDIN   
	DB	$06 ;IZUMI   
	DB	$06 ;HATO0   
	DB	$06 ;FLYIT   
	DB	$06 ;RANEM   
	DB	$06 ;NOMOS   
	DB	$06 ;HINO0   
	DB	$06 ;PANEL   
	DB	$06 ;PANEL2   
	DB	$06 ;SWBLK    
	DB	$06 ;SWBLK2   
	DB	$06 ;MIZUB 
	DB	$19 ;HEIHO 
	DB	$06 ;SLOT  
	DB	$06 ;KARBY 
	DB	$06 ;OCHAN
	DB	$06 ;HEISM
	DB	$07 ;HEISB
	DB	$06 ;RICHD
	DB	$19 ;KAERU
	DB	$19 ;SWIMP 
;- 7 - -
	DB	$07 ;DAISU 
	DB	$07 ;AMENB 
	DB	$07 ;YUKAB 
	DB	$07 ;YSLIM 
	DB	$07 ;BALEE 
	DB	$19 ;MOAI  
	DB	$07 ;TBEAM 
	DB	$07 ;KURI0 
	DB	$07 ;PIHAT 
	DB	$07 ;LOPE 
	DB	$07 ;PACKN
	DB	$07 ;LIFTX
	DB	$07 ;LIFTY
	DB	$07 ;LIFTD
	DB	$07 ;LIFTT
	DB	$07 ;HASIR
	DB	$07 ;TAMA0
	DB	$07 ;GESSO
	DB	$19 ;PUKPK
	DB	$19 ;PUKPV
	DB	$19 ;PUKPJ
	DB	$07 ;MONKY
	DB	$07 ;OCTAJ
	DB	$07 ;YOSSI
	DB	$07 ;AMUSI
	DB	$07 ;YUKAS
	DB	$15 ;AMUST
	DB	$07 ;HANNY 
	DB	$07 ;PAPA2
	DB	$07 ;KUMA0
	DB	$07 ;PAPAL
	DB	$07 ;MAMAD
	DB	$07 ;TURI 
;-Bank 18-
	DB	$18 ;NYORO
	DB	$18 ;PKURI
	DB	$07 ;SHIGE
	DB	$18 ;TUKAI
	DB	$18 ;ARIMA
	DB	$18 ;BOXER
	DB	$18 ;ZONBI
	DB	$18 ;KHIMI
	DB	$18 ;GIRL1
	DB	$18 ;GIRL2
	DB	$18 ;MAMUU
	DB	$18 ;TODD 
	DB	$15 ;UNIUNI
	DB	$15 ;KANI 
	DB	$18 ;MANBO
	DB	$18 ;USAGI
	DB	$18 ;ONPU 
	DB	$18 ;AKUMA
	DB	$18 ;ZORA 
	DB	$15 ;BLANKA
	DB	$19 ;WANI 
	DB	$18 ;MAMAD2
	DB	$19 ;GAGE   
	DB	$18 ;USAG2
	DB	$18 ;KUMAS
	DB	$18 ;NTORI
	DB	$18 ;GMUSI
;-Bank 19-
	DB	$19 ;OBAKE
	DB	$19 ;NIWAX
	DB	$19 ;YTUBO
	DB	$19 ;DOSNS
	DB	$19 ;DOSNB
	DB	$19 ;TAIAT
	DB	$19 ;FIREB
	DB	$19 ;BABUB
	DB	$19 ;BOOK 
	DB	$19 ;SEIREN
	DB	$19 ;KENBM 
	DB	$19 ;KAZAM
;-Bank 17-
	DB	$15 ;SARUK 
	DB	$15 ;MOUSE 
	DB	$15 ;HODAI 
	DB	$15 ;SANBO 
	DB	$15 ;MBOSS 
	DB	$06 ;FLYIT2  
	DB	$15 ;BOSS  
	DB	$15 ;SIROS
;- - - Ending obj - -
	DB	$17 ;EDAI   
;****************************************
;*      Enemy                           *
;****************************************
;- - Kind of enemy - - 
;-- Player wepon - -
PYAAA	EQU	$0
BUMER	EQU	$1
TEST	EQU	$1
BOMBR	EQU	$2
FUCKS	EQU	$3
PRTBM	EQU	$4
;- - - - - - - - - - 
KTOBJ	EQU	$5
BLOCK	EQU	$6
TAKAR	EQU	$7
POWDR	EQU	$8
;- - - - - - - - - -
OCTA1	EQU	$9
OCTAM	EQU	$A
MORI1	EQU	$B
MORYA	EQU	$C
TEKTA	EQU	$D
RIVER	EQU	$E
KUZUH	EQU	$F
GHOST	EQU	$10
GHOSB	EQU	$11
GHOSS	EQU	$12
BOMBO	EQU	$13
HEIS0	EQU	$14
BABUL	EQU	$15
SPARK	EQU	$16
SPAR2	EQU	$17
PORUS	EQU	$18
BLBAT	EQU	$19
SKEL0	EQU	$1A
SLIMB	EQU	$1B
SLIMS	EQU	$1C
BASSF	EQU	$1D
SKEL1	EQU	$1E
MUMMY	EQU	$1F
MOTOS	EQU	$20
MAGE0	EQU	$21
SONIC	EQU	$22
LAIKU	EQU	$23
HIPLP	EQU	$24
BOSS1	EQU	$25
KWUSO	EQU	$26
TRAP0	EQU	$27
COPYA	EQU	$28
HAYAM	EQU	$29
RENO7	EQU	$2A
R7BEM	EQU	$2B
INOSI	EQU	$2C
;- - - - - - - - - -
HART1	EQU	$2D
RUPY1	EQU	$2E
YOSEI	EQU	$2F
KEYSM	EQU	$30	
PLTAT	EQU	$31
HMASK	EQU	$32
POWER	EQU	$33
KINOM	EQU	$34
KAKER	EQU	$35
HARTB	EQU	$36
ALOW1 	EQU	$37
BOMB1	EQU	$38
GAKKI	EQU	$39
KINOK	EQU	$3A
MGPOW	EQU	$3B
KAKIN	EQU	$3C	;葉っぱ！
KAIIN	EQU	$3D	;貝殻！
GIRL0 	EQU	$3E	;マリン
PAPA0 	EQU	$3F	;タリン
BABA0 	EQU	$40
FUKURO	EQU	$41
HINTO 	EQU	$42
EWOOD 	EQU	$43	;話す木
MSPNT 	EQU	$44	;粉かけると話す！
IWAGO 	EQU	$45	;岩ゴロゴロ
SWBLKU	EQU	$46	;スイッチ引くとウゴク！
SWBLKD	EQU	$47	;
SWBLKL	EQU	$48	;
SWBLKR	EQU	$49	;
;
;;STEST	EQU	$4A
MSTESF	EQU	$4B
;----------------------- BANK 2-------------
FRBAR	EQU	$4C
NYAMA	EQU	$4D
CHUNLI	EQU	$4E
UFOCH	EQU	$4F
TERSA	EQU	$50
TEKYU	EQU	$51
BHOLE	EQU	$52
BHOL2	EQU	$53
FISHG	EQU	$54
SBOMB	EQU	$55
OBOMB	EQU	$56
NINJA	EQU	$57
NINTM	EQU	$58
HAYAB	EQU	$59
BGKAO	EQU	$5A
BSLIM	EQU	$5B
TBOSS	EQU	$5C
BSNAK	EQU	$5D
GORMA	EQU	$5E
BSKEL	EQU	$5F
DDNGO	EQU	$60
WARP	EQU	$61
BFIRE	EQU	$62
BBIRD	EQU	$63
PSCRL	EQU	$64
BFISH	EQU	$65
ONOFS	EQU	$66
SWTRP	EQU	$67
MVHAS	EQU	$68
HIKUS	EQU	$69
IKADA	EQU	$6A
TANABE	EQU	$6B	; メッセージテスト！
NIWAT	EQU	$6C
WANWAN	EQU	$6D
BTFLY	EQU	$6E
FOXDOG	EQU	$6F
KODOMO	EQU	$70 ; SAME
KODOMA	EQU	$70 ; SAME
KODOMB	EQU	$71
KODOMC	EQU	$72
KODOMD	EQU	$73
MAMA0	EQU	$74
MAMA1	EQU	$75
PAPA1	EQU	$76	;Dr.ライト
URURI	EQU	$77
OZWAN	EQU	$78
MSWAN	EQU	$79
KARAS	EQU	$7A
TRYCY	EQU	$7B
BHANA	EQU	$7C
BHFIR	EQU	$7D
SHANA	EQU	$7E 
KAMEI	EQU	$7F
DENWA	EQU	$80
OBAQ	EQU	$81
OBQBAR	EQU	$82
BEDIN	EQU	$83
IZUMI	EQU	$84
HATO0	EQU	$85
FLYIT	EQU	$86	;Flying item
RANEM	EQU	$87
NOMOS	EQU	$88
HINO0	EQU	$89
PANEL	EQU	$8A
PANEL2	EQU	$8B
SWBLK	EQU	$8C
SWBLK2	EQU	$8D
MIZUB	EQU	$8E
HEIHO	EQU	$8F
SLOT	EQU	$90
KARBY	EQU	$91
OCHAN	EQU	$92
HEISM	EQU	$93	;もぐら兵士
HEISB	EQU	$94	;壁兵士
RICHD	EQU	$95
KAERU	EQU	$96
SWIMP	EQU	$97	;地上水潜りポイント
DAISU	EQU	$98	;サイコロ
AMENB	EQU	$99	;あめんぼ
YUKAB	EQU	$9A	;床 ビュン
YSLIM	EQU	$9B	;床スライム
BALEE	EQU	$9C	;バレリーナ
MOAI 	EQU	$9D	;石像
TBEAM	EQU	$9E	;トウロウビーム
KURI0	EQU	$9F	;栗ぼん
PIHAT	EQU	$A0	;ピーハット
LOPE	EQU	$A1	;ロープ
PACKN	EQU	$A2	;パックン花
LIFTX	EQU	$A3	;リフト 横
LIFTY	EQU	$A4	;リフト 縦
LIFTD	EQU	$A5	;リフト 載ったら落ちる！
LIFTT	EQU	$A6	;リフト 天秤！
HASIR	EQU	$A7	;Level 7 柱
TAMA0	EQU	$A8	;柱ぶつける玉
GESSO	EQU	$A9	;ゲッソー
PUKPK	EQU	$AA	;魚(横）
PUKPV	EQU	$AB	;魚(縦）
PUKPJ	EQU	$AC	;魚（ジャンプ）
MONKY	EQU	$AD	;猿
OCTAJ	EQU	$AE	;パタオクタ
YOSSI	EQU	$AF	;わらしべアイテム！
AMUSI	EQU	$B0	;穴虫！
YUKAS	EQU	$B1	;床作りブロック
AMUST	EQU	$B2	;穴わきだすやつ
HANNY	EQU	$B3	;ハチの巣
PAPA2	EQU	$B4	;タリン（ハチの巣）
KUMA0	EQU	$B5	;クマコック
PAPAL	EQU	$B6	;パパール
MAMAD	EQU	$B7	;人魚
TURI	EQU	$B8	;橋の下釣りおやじ
NYOROO	EQU	$B9	;ニョロニョロ
PKURI	EQU	$BA	;パタクリ
SHIGE	EQU	$BB	;しげミン！
TUKAI	EQU	$BC	;鳥使い！
ARIMA	EQU	$BD	;バイア
BOXER	EQU	$BE	;ボクサー
ZONBI	EQU	$BF	;ゾンビ
KHIMI	EQU	$C0	;看板秘密！
GIRL1	EQU	$C1	;海岸マリン！
GIRL2	EQU	$C2	;橋の上マリン！
MAMUU	EQU	$C3	;笛カエル！
TODD	EQU	$C4	;セイウチトッド
UNIUNI	EQU	$C5	;うにうに
KANI	EQU	$C6	;かに！
MANBO	EQU	$C7	;マンボウ
USAGI	EQU	$C8	;マリン呼ぶうさぎ
ONPU 	EQU	$C9	;おんぷ
AKUMA	EQU	$CA	;小悪魔
ZORA	EQU	$CB	;ゾーラ
BLANKA	EQU	$CC	;ピラニア
WANI	EQU	$CD	;ワニ絵かき
MAMAD2	EQU	$CE	;にんぎょ像！
GAGE	EQU	$CF	;剣２もらうとこのやつ！
USAG2	EQU	$D0	;動物村 うさぎ
KUMAS	EQU	$D1	;動物村 小くま
NTORI	EQU	$D2	;動物村 南国鳥
GMUSI	EQU	$D3	;動物村 虫
OBAKE	EQU	$D4	;迷いオバケ（オプション）
NIWAX	EQU	$D5	;ニワトリ（オプション）
YTUBO	EQU	$D6	;横用壷	
DOSNS	EQU	$D7	;ドスン Ｓ	
DOSNB	EQU	$D8	;ドスン Ｌ
TAIAT	EQU	$D9	;体当たりおちる奴！
FIREB	EQU	$DA	;ヨコバブル！
BABUB	EQU	$DB	;大バブル
KAZAM	EQU	$DC	;風見鳥！&ニワトリオヤジ
BOOK	EQU	$DD	;図書館の本
SEIREN	EQU	$DE	;卵山楽器デモ！
KENBM	EQU	$DF	;剣ビーム
;- Bank 15
SARUK	EQU	$E0	;木の上猿！
MOUSE	EQU	$E1	;木の上猿！
HODAI	EQU	$E2	;火のほうだい！
SANBO	EQU	$E3	;さぼてん！
MBOSS	EQU	$E4	;モリブリンボス！
FLYIT2	EQU	$E5	;パタアイテム（矢、ハート）
;------------------------------------
BOSS	EQU	$E6	;ラスト ボス！
SIROS	EQU	$E7	;城スイッチ！
;-- Ending obj - - - -
EDAI	EQU	$E8	;台
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENMDD0
	DB	%01000010 ;PYAAA
	DB	%11000010 ;BUMER
;;	DB	%00000010 ;TEST 
	DB	%11010010 ;BOMBR
	DB	%11000010 ;FUCKS
	DB	%11000010 ;PRTBM
;
	DB	%11010010 ;KTOBJ
	DB	%11000010 ;BLOCK
	DB	%11000010 ;TAKAR
	DB	%11000011 ;POWDR
;
	DB	%00010010 ;OCTA1
	DB	%01000010 ;OCTAM
	DB	%00010010 ;MORI1
	DB	%01000010 ;MORYA
	DB	%00010010 ;TEKTA
	DB	%00010010 ;RIVER
	DB	%10010010 ;KUZUH
	DB	%00010010 ;GHOST
	DB	%00011000 ;GHOSB
	DB	%00010010 ;GHOSS
	DB	%00010001 ;BOMBO
	DB	%00010010 ;HEIS0
	DB	%00000010 ;BABUL
	DB	%00000010 ;SPARK
	DB	%00000010 ;SPAR2
	DB	%00010010 ;PORUS
	DB	%00000010 ;BLBAT
	DB	%00010010 ;SKEL0
	DB	%00010010 ;SLIMB
	DB	%00010001 ;SLIMS
	DB	%00000010 ;BASSF
	DB	%00010010 ;SKEL1
	DB	%00010010 ;MUMMY
	DB	%00010010 ;MOTOS
	DB	%00000010 ;MAGE0
	DB	%01000010 ;SONIC
	DB	%10010010 ;LAIKU
	DB	%00010010 ;HIPLP
	DB	%11100010 ;BOSS1
	DB	%11100010 ;KWUSO
	DB	%00000010 ;TRAP0
	DB	%00010010 ;COPYA
	DB	%00000010 ;HAYAM
	DB	%00000010 ;RENO7
	DB	%01000001 ;R7BEM
	DB	%00010010 ;INOSI
;
	DB	%10110001 ;HART1
	DB	%10110001 ;RUPY1
	DB	%10110001 ;YOSEI
	DB	%10110001 ;KEYSM
	DB	%10110001 ;PLTAT
	DB	%10110010 ;HMASK
	DB	%10110010 ;POWER
	DB	%10110001 ;KINOM
	DB	%10110010 ;KAKER
	DB	%10110010 ;HARTB
	DB	%10110010 ;ALOW1 
	DB	%10110001 ;BOMB1 
	DB	%10010010 ;GAKKI 
	DB	%10110010 ;KINOK 
	DB	%10110001 ;MGPOW
	DB	%10110010 ;KAKIN
	DB	%10110001 ;KAIIN
	DB	%10000010 ;GIRL0 
	DB	%10010010 ;PAPA0 
	DB	%10000100 ;BABA0 
	DB	%10010010 ;FUKURO
	DB	%10000010 ;HINTO 
	DB	%11000000 ;EWOOD 
	DB	%11000000 ;MSPNT 
	DB	%11000010 ;IWAGO 
	DB	%10000010 ;SWBLKU
	DB	%10000010 ;SWBLKD
	DB	%10000010 ;SWBLKL
	DB	%10000010 ;SWBLKR
	DB	%10000010 ;;;STEST
	DB	%10000010 ;MSTESF
	DB	%01000001 ;FRBAR
	DB	%10000010 ;NYAMA
	DB	%10000010 ;CHUNLI
	DB	%10000010 ;UFOCH
	DB	%00010010 ;TERSA
	DB	%00000010 ;TEKYU
	DB	%01000010 ;BHOLE
	DB	%01000010 ;BHOL2
	DB	%11000010 ;FISHG
	DB	%00000010 ;SBOMB
	DB	%00000010 ;OBOMB
	DB	%00000010 ;NINJA
	DB	%01000010 ;NINTM
	DB	%00001000 ;HAYAB
	DB	%01001000 ;BGKAO
	DB	%00000000 ;BSLIM
	DB	%10010001 ;TBOSS
	DB	%00000010 ;BSNAK
	DB	%00000000 ;GORMA
	DB	%00000000 ;BSKEL
	DB	%00000010 ;DDNGO
	DB	%11000010 ;WARP
	DB	%00001000 ;BFIRE
	DB	%00000010 ;BBIRD
	DB	%11000000 ;PSCRL
	DB	%00000000 ;BFISH
	DB	%10000010 ;ONOFS
	DB	%00000010 ;SWTRP
	DB	%11000000 ;MVHAS
	DB	%11000010 ;HIKUS
	DB	%10010010 ;IKADA
	DB	%10000010 ;TANABE
	DB	%10010010 ;NIWAT 
	DB	%00010010 ;WANWAN
	DB	%11000001 ;BTFLY 
	DB	%10010010 ;FOXDOG
	DB	%10010010 ;KODOMA
	DB	%10010010 ;KODOMB
	DB	%10010010 ;KODOMC
	DB	%10010010 ;KODOMD
	DB	%10010011 ;MAMA0 
	DB	%10010010 ;MAMA1 
	DB	%10010010 ;PAPA1 
	DB	%10010010 ;URURI 
	DB	%10010010 ;OZWAN 
	DB	%10010010 ;MSWAN 
	DB	%01010010 ;KARAS 
	DB	%10010010 ;TRYCY 
	DB	%00000000 ;BHANA 
	DB	%01000010 ;BHFIR 
	DB	%00000010 ;SHANA 
	DB	%10000010 ;KAMEI 
	DB	%10010010 ;DENWA 
	DB	%00000000 ;OBAQ  
	DB	%01000010 ;OBQBAR  
	DB	%11000010 ;BEDIN   
	DB	%11010001 ;IZUMI   
	DB	%11010010 ;HATO0   
	DB	%11010001 ;FLYIT   
	DB	%00010010 ;RANEM   
	DB	%10000100 ;NOMOS   
	DB	%00001100 ;HINO0   
	DB	%11000010 ;PANEL   
	DB	%11000010 ;PANEL2   
	DB	%10010010 ;SWBLK    
	DB	%10010010 ;SWBLK2   
	DB	%00001000 ;MIZUB
	DB	%00010010 ;HEIHO
	DB	%00010010 ;SLOT 
	DB	%00010011 ;KARBY
	DB	%00010100 ;OCHAN
	DB	%00010010 ;HEISM
	DB	%10000000 ;HEISB
	DB	%10010010 ;RICHD
	DB	%10010010 ;KAERU
	DB	%11000000 ;SWIMP
	DB	%11010010 ;DAISU
	DB	%00010010 ;AMENB
	DB	%11000000 ;YUKAB
	DB	%11010010 ;YSLIM
	DB	%00010010 ;BALEE
	DB	%10010100 ;MOAI
	DB	%11000000 ;TBEAM
	DB	%00010010 ;KURI0
	DB	%00010010 ;PIHAT
	DB	%00010010 ;LOPE 
	DB	%00010100 ;PACKN
	DB	%11000100 ;LIFTX
	DB	%11000100 ;LIFTY
	DB	%11000100 ;LIFTD
	DB	%11000010 ;LIFTT
	DB	%10001010 ;HASIR
	DB	%10010010 ;TAMA0
	DB	%00000010 ;GESSO
	DB	%00010010 ;PUKPK
	DB	%00010010 ;PUKPV
	DB	%00010010 ;PUKPJ
	DB	%10010010 ;MONKY
	DB	%00010010 ;OCTAJ
	DB	%10110010 ;YOSSI
	DB	%00000010 ;AMUSI
	DB	%10000010 ;YUKAS
	DB	%11000000 ;AMUST
	DB	%10000010 ;HANNY 
	DB	%10010010 ;PAPA2
	DB	%10000010 ;KUMA0
	DB	%10010010 ;PAPAL
	DB	%10010100 ;MAMAD
	DB	%10010101 ;TURI
	DB	%00010010 ;NYORO
	DB	%00010011 ;PKURI
	DB	%00010010 ;SHIGE
	DB	%00010010 ;TUKAI
	DB	%00010011 ;ARIMA
	DB	%00010110 ;BOXER
	DB	%01010010 ;ZONBI
	DB	%11000000 ;KHIMI
	DB	%11010010 ;GIRL1
	DB	%11010010 ;GIRL2
	DB	%10010100 ;MAMUU
	DB	%10011000 ;TODD 
	DB	%00010010 ;UNIUNI 
	DB	%00010010 ;KANI   
	DB	%11010000 ;MANBO   
	DB	%11010010 ;USAGI   
	DB	%11000001 ;ONPU    
	DB	%10001000 ;AKUMA   
	DB	%00000010 ;ZORA    
	DB	%01010010 ;BLANKA    
	DB	%10000101 ;WANI      
	DB	%10000100 ;MAMAD2      
	DB	%11000010 ;GAGE        
	DB	%10000010 ;USAG2
	DB	%10000010 ;KUMAS
	DB	%10000010 ;NTORI
	DB	%11010010 ;GMUSI
	DB	%11010010 ;OBAKE
	DB	%11010010 ;NIWAX
	DB	%10000010 ;YTUBO
	DB	%00000010 ;DOSNS
	DB	%11000010 ;DOSNB
	DB	%11001000 ;TAIAT
	DB	%01000010 ;FIREB
	DB	%01001000 ;BABUB
	DB	%11000100 ;KAZAM
	DB	%11000010 ;BOOK 
	DB	%11000010 ;SEIREN 
	DB	%11000010 ;KENBM
	DB	%11010011 ;SARUK 
	DB	%11010010 ;MOUSE 
	DB	%01000010 ;HODAI 
	DB	%00010010 ;SANBO 
	DB	%00010011 ;MBOSS 
	DB	%11010010 ;FLYIT2   
	DB	%01010000 ;BOSS  	
	DB	%11000000 ;SIROS
;--------
	DB	%00000000 ;EDAI        
;
ENMDD1
	DB	%00000000 ;PYAAA
;;	DB	%00000000 ;TEST
	DB	%00000000 ;BUMER
	DB	%00000001 ;BOMBR
	DB	%00000001 ;FUCKS
	DB	%00000001 ;PRTBM
;
	DB	%00000000 ;KTOBJ
	DB	%00000110 ;BLOCK
	DB	%00000000 ;TAKAR
	DB	%00000000 ;POWDR
;
	DB	%00000000 ;OCTA1
	DB	%00000000 ;OCTAM
	DB	%00000000 ;MORI1
	DB	%00000000 ;MORYA
	DB	%00000000 ;TEKTA
	DB	%00000000 ;RIVER
	DB	%10000000 ;KUZUH
	DB	%00000000 ;GHOST
	DB	%00001000 ;GHOSB
	DB	%00000000 ;GHOSS
	DB	%00000001 ;BOMBO
	DB	%00000000 ;HEIS0
	DB	%00000000 ;BABUL
	DB	%00000011 ;SPARK
	DB	%00000011 ;SPAR2
	DB	%00000000 ;PORUS
	DB	%00000000 ;BLBAT
	DB	%00000000 ;SKEL0
	DB	%00000000 ;SLIMB
	DB	%00010000 ;SLIMS
	DB	%00000010 ;BASSF
	DB	%00000000 ;SKEL1
	DB	%00000000 ;MUMMY
	DB	%00000000 ;MOTOS
	DB	%00000000 ;MAGE0
	DB	%00000000 ;SONIC
	DB	%00000000 ;LAIKU
	DB	%00000000 ;HIPLP
	DB	%10000000 ;BOSS1
	DB	%10000000 ;KWUSO
	DB	%10000010 ;TRAP0
	DB	%00000000 ;COPYA
	DB	%00000000 ;HAYAM
	DB	%10000000 ;RENO7
	DB	%00000000 ;R7BEM
	DB	%10000000 ;INOSI
;
	DB	%00011101 ;HART1
	DB	%00011101 ;RUPY1
	DB	%00011101 ;YOSEI
	DB	%00011101 ;KEYSM
	DB	%00011101 ;PLTAT
	DB	%00000001 ;HMASK
	DB	%00011101 ;POWER
	DB	%00011101 ;KINOM
	DB	%00011101 ;KAKER
	DB	%00011101 ;HARTB
	DB	%00011101 ;ALOW1 
	DB	%00011101 ;BOMB1 
	DB	%10011101 ;GAKKI 
	DB	%00011101 ;KINOK 
	DB	%00011101 ;MGPOW
	DB	%00011101 ;KAKIN
	DB	%00011101 ;KAIIN 
	DB	%10011000 ;GIRL0  
	DB	%10011000 ;PAPA0 
	DB	%10011000 ;BABA0 
	DB	%10011000 ;FUKURO
	DB	%10011000 ;HINTO 
	DB	%10011000 ;EWOOD 
	DB	%10011000 ;MSPNT 
	DB	%00000000 ;IWAGO 
	DB	%10000100 ;SWBLKU 
	DB	%10000100 ;SWBLKD 
	DB	%10000100 ;SWBLKL 
	DB	%10000100 ;SWBLKR 
	DB	%10011000 ;;;STEST 
	DB	%10011000 ;MSTESF
	DB	%00000000 ;FRBAR
	DB	%10011000 ;NYAMA
	DB	%10011000 ;CHUNLI
	DB	%10011000 ;UFOCH
	DB	%00000000 ;TERSA
	DB	%00000000 ;TEKYU
	DB	%00000000 ;BHOLE
	DB	%00000000 ;BHOL2
	DB	%10000000 ;FISHG
	DB	%00000000 ;SBOMB
	DB	%00000000 ;OBOMB
	DB	%00000000 ;NINJA
	DB	%00000000 ;NINTM
	DB	%10001000 ;HAYAB
	DB	%00001000 ;BGKAO
	DB	%00000000 ;BSLIM
	DB	%10000000 ;TBOSS
	DB	%10000000 ;BSNAK
	DB	%10000000 ;GORMA
	DB	%10101000 ;BSKEL
	DB	%10000000 ;DDNGO
	DB	%00000000 ;WARP 
	DB	%00000000 ;BFIRE
	DB	%00000000 ;BBIRD
	DB	%00000000 ;PSCRL
	DB	%00000000 ;BFISH
	DB	%00000000 ;ONOFS
	DB	%10000000 ;SWTRP
	DB	%00000000 ;MVHAS
	DB	%00000000 ;HIKUS
	DB	%10000000 ;IKADA
	DB	%10011000 ;TANABE
	DB	%00000000 ;NIWAT 
	DB	%10000000 ;WANWAN 
	DB	%00000000 ;BTFLY 
	DB	%00000000 ;FOXDOG
	DB	%10011000 ;KODOMA
	DB	%10011000 ;KODOMB
	DB	%10011000 ;KODOMC
	DB	%10011000 ;KODOMD
	DB	%10011000 ;MAMA0 
	DB	%10011000 ;MAMA1 
	DB	%10011000 ;PAPA1 
	DB	%10011000 ;URURI 
	DB	%10000000 ;OZWAN 
	DB	%10011000 ;MSWAN 
	DB	%00000000 ;KARAS 
	DB	%10011000 ;TRYCY 
	DB	%00001000 ;BHANA 
	DB	%00010000 ;BHFIR 
	DB	%00000000 ;SHANA 
	DB	%10000000 ;KAMEI 
	DB	%10011000 ;DENWA 
	DB	%00000000 ;OBAQ  
	DB	%00100000 ;OBQBAR  
	DB	%00000000 ;BEDIN    
	DB	%00000000 ;IZUMI    
	DB	%00000000 ;HATO0    
	DB	%00111000 ;FLYIT    
	DB	%00000000 ;RANEM    
	DB	%10001000 ;NOMOS    
	DB	%00001000 ;HINO0
	DB	%00000100 ;PANEL
	DB	%00000100 ;PANEL2
	DB	%10000100 ;SWBLK 
	DB	%10000100 ;SWBLK2
	DB	%10001000 ;MIZUB
	DB	%00000000 ;HEIHO 
	DB	%00000000 ;SLOT  
	DB	%00000000 ;KARBY 
	DB	%10000000 ;OCHAN
	DB	%00000000 ;HEISM
	DB	%00000000 ;HEISB
	DB	%10000000 ;RICHD
	DB	%10000000 ;KAERU
	DB	%00000000 ;SWIMP
	DB	%00000000 ;DAISU
	DB	%00000000 ;AMENB
	DB	%00000000 ;YUKAB
	DB	%00000000 ;YSLIM
	DB	%00000000 ;BALEE
	DB	%10100100 ;MOAI 
	DB	%00000000 ;TBEAM
	DB	%00000000 ;KURI0
	DB	%00000000 ;PIHAT
	DB	%00000000 ;LOPE 
	DB	%00000000 ;PACKN
	DB	%00101100 ;LIFTX
	DB	%00101100 ;LIFTY 
	DB	%00101100 ;LIFTD 
	DB	%00110000 ;LIFTT 
	DB	%10100100 ;HASIR 
	DB	%10000000 ;TAMA0 
	DB	%00000000 ;GESSO 
	DB	%00000000 ;PUKPK 
	DB	%00000000 ;PUKPV 
	DB	%00000000 ;PUKPJ 
	DB	%10000000 ;MONKY 
	DB	%00000000 ;OCTAJ 
	DB	%00011101 ;YOSSI
	DB	%00000000 ;AMUSI 
	DB	%10011000 ;YUKAS 
	DB	%00000000 ;AMUST 
	DB	%10011000 ;HANNY 
	DB	%10011000 ;PAPA2
	DB	%10110100 ;KUMA0
	DB	%10011000 ;PAPAL
	DB	%10011000 ;MAMAD
	DB	%10011000 ;TURI 
	DB	%00000000 ;NYORO 
	DB	%00000000 ;PKURI 
	DB	%00000000 ;SHIGE 
	DB	%00000000 ;TUKAI 
	DB	%00000000 ;ARIMA 
	DB	%10000000 ;BOXER 
	DB	%00000000 ;ZONBI 
	DB	%00000000 ;KHIMI 
	DB	%00011000 ;GIRL1
	DB	%00011000 ;GIRL2
	DB	%10110100 ;MAMUU
	DB	%10110100 ;TODD 
	DB	%00000110 ;UNIUNI
	DB	%00000000 ;KANI  
	DB	%00110100 ;MANBO
	DB	%10011000 ;USAGI
	DB	%00000000 ;ONPU  
	DB	%10000000 ;AKUMA 
	DB	%00000000 ;ZORA  
	DB	%00000000 ;BLANKA  
	DB	%10011000 ;WANI    
	DB	%10011000 ;MAMAD2  
	DB	%00000000 ;GAGE    
	DB	%10011000 ;USAG2
	DB	%10011000 ;KUMAS
	DB	%10011000 ;NTORI
	DB	%10011000 ;GMUSI
	DB	%00000000 ;OBAKE
	DB	%00011000 ;NIWAX
	DB	%10111101 ;YTUBO
	DB	%10000000 ;DOSNS
	DB	%00101101 ;DOSNB
	DB	%00101101 ;TAIAT
	DB	%00000000 ;FIREB
	DB	%00001010 ;BABUB
	DB	%00000000 ;KAZAM
	DB	%00000000 ;BOOK    
	DB	%00000000 ;SEIREN  
	DB	%00000000 ;KENBM
	DB	%00000000 ;SARUK 
	DB	%00000000 ;MOUSE 
	DB	%00000000 ;HODAI 
	DB	%00000000 ;SANBO 
	DB	%10000100 ;MBOSS 
	DB	%00111000 ;FLYIT2    
	DB	%00000000 ;BOSS  
	DB	%00000000 ;SIROS 
	DB	%00000000 ;EDAI    
ENMDD2
	DB	$00 ;PYAAA
	DB	$00 ;TEST 
	DB	$02 ;BOMBR
	DB	$00 ;FUCKS
	DB	$00 ;PRTBM
;
	DB	$00 ;KTOBJ
	DB	$00 ;BLOCK
	DB	$00 ;TAKAR
	DB	$00 ;POWDR
;
	DB	$00 ;OCTA1
	DB	$0D ;OCTAM
	DB	$01 ;MORI1
	DB	$0D ;MORYA
	DB	$01 ;TEKTA
	DB	$01 ;RIVER
	DB	$08 ;KUZUH
	DB	$13 ;GHOST
	DB	$13 ;GHOSB
	DB	$13 ;GHOSS
	DB	$00 ;BOMBO
	DB	$01 ;HEIS0
	DB	$06 ;BABUL
	DB	$2C ;SPARK
	DB	$2C ;SPAR2
	DB	$0C ;PORUS
	DB	$00 ;BLBAT
	DB	$2A ;SKEL0
	DB	$00 ;SLIMB
	DB	$00 ;SLIMS
	DB	$00 ;BASSF
	DB	$2A ;SKEL1
	DB	$2F ;MUMMY
	DB	$0B ;MOTOS
	DB	$0C ;MAGE0
	DB	$0E ;SONIC
	DB	$01 ;LAIKU
	DB	$01 ;HIPLP
	DB	$06 ;BOSS1
	DB	$06 ;KWUSO
	DB	$09 ;TRAP0
	DB	$04 ;COPYA
	DB	$01 ;HAYAM
	DB	$00 ;RENO7
	DB	$0E ;R7BEM
	DB	$01 ;INOSI
;
	DB	$00 ;HART1
	DB	$00 ;RUPY1
	DB	$00 ;YOSEI
	DB	$00 ;KEYSM
	DB	$00 ;PLTAT
	DB	$00 ;HMASK
	DB	$00 ;POWER
	DB	$00 ;KINOM
	DB	$00 ;KAKER
	DB	$00 ;HARTB
	DB	$00 ;ALOW1 
	DB	$00 ;BOMB1 
	DB	$00 ;GAKKI 
	DB	$00 ;KINOK 
	DB	$00 ;MGPOW 
	DB	$00 ;KAKIN 
	DB	$00 ;KAIIN 
	DB	$00 ;GIRL0 
	DB	$00 ;PAPA0 
	DB	$00 ;BABA0 
	DB	$00 ;FUKURO
	DB	$00 ;HINTO 
	DB	$00 ;EWOOD 
	DB	$00 ;MSPNT 
	DB	$00 ;IWAGO 
	DB	$00 ;SWBLKU 
	DB	$00 ;SWBLKD 
	DB	$00 ;SWBLKL 
	DB	$00 ;SWBLKR 
	DB	$00 ;;;STEST
	DB	$00 ;MSTESF
	DB	$0E ;FRBAR
	DB	$00 ;NYAMA
	DB	$00 ;CHUNLI
	DB	$00 ;UFOCH
	DB	$20 ;TERSA
	DB	$13 ;TEKYU
	DB	$00 ;BHOLE
	DB	$00 ;BHOL2
	DB	$00 ;FISHG
	DB	$0B ;SBOMB
	DB	$0B ;OBOMB
	DB	$30 ;NINJA
	DB	$0E ;NINTM
	DB	$18 ;HAYAB
	DB	$1D ;BGKAO
	DB	$1A ;BSLIM
	DB	$19 ;TBOSS
	DB	$1C ;BSNAK
	DB	$10 ;GORMA
	DB	$11 ;BSKEL
	DB	$12 ;DDNGO
	DB	$00 ;WARP 
	DB	$1F ;BFIRE
	DB	$1E ;BBIRD
	DB	$00 ;PSCRL
	DB	$1B ;BFISH
	DB	$22 ;ONOFS
	DB	$00 ;SWTRP
	DB	$00 ;MVHAS
	DB	$00 ;HIKUS
	DB	$00 ;IKADA
	DB	$00 ;TANABE
	DB	$00 ;NIWAT 
	DB	$00 ;WANWAN
	DB	$00 ;BTFLY 
	DB	$00 ;FOXDOG
	DB	$00 ;KODOMA
	DB	$00 ;KODOMB
	DB	$00 ;KODOMC
	DB	$00 ;KODOMD
	DB	$00 ;MAMA0 
	DB	$00 ;MAMA1 
	DB	$00 ;PAPA1 
	DB	$00 ;URURI 
	DB	$00 ;OZWAN 
	DB	$00 ;MSWAN 
	DB	$21 ;KARAS 
	DB	$00 ;TRYCY 
	DB	$29 ;BHANA 
	DB	$00 ;BHFIR 
	DB	$29 ;SHANA 
	DB	$00 ;KAMEI 
	DB	$00 ;DENWA 
	DB	$13 ;OBAQ  
	DB	$00 ;OBQBAR  
	DB	$00 ;BEDIN   
	DB	$00 ;IZUMI   
	DB	$00 ;HATO0   
	DB	$00 ;FLYIT   
	DB	$13 ;RANEM   
	DB	$15 ;NOMOS   
	DB	$14 ;HINO0   
	DB	$01 ;PANEL   
	DB	$01 ;PANEL2   
	DB	$01 ;SWBLK    
	DB	$01 ;SWBLK2   
	DB	$13 ;MIZUB    
	DB	$24 ;HEIHO    
;;;	DB	$25 ;SLOT     
	DB	$2D ;SLOT     
	DB	$2E ;KARBY    
	DB	$13 ;OCHAN   
	DB	$25 ;HEISM   
	DB	$23 ;HEISB   
	DB	$00 ;RICHD   
	DB	$00 ;KAERU   
	DB	$00 ;SWIMP   
	DB	$00 ;DAISU   
	DB	$00 ;AMENB   
	DB	$00 ;YUKAB   
	DB	$00 ;YSLIM   
	DB	$00 ;BALEE   
	DB	$00 ;MOAI    
	DB	$00 ;TBEAM   
	DB	$00 ;KURI0   
	DB	$00 ;PIHAT   
	DB	$00 ;LOPE    
	DB	$00 ;PACKN   
	DB	$00 ;LIFTX   
	DB	$00 ;LIFTY   
	DB	$00 ;LIFTD   
	DB	$00 ;LIFTT   
	DB	$00 ;HASIR   
	DB	$00 ;TAMA0   
	DB	$00 ;GESSO   
	DB	$00 ;PUKPK   
	DB	$00 ;PUKPV   
	DB	$00 ;PUKPJ   
	DB	$00 ;MONKY   
	DB	$00 ;OCTAJ   
	DB	$00 ;YOSSI
	DB	$02 ;AMUSI
	DB	$00 ;YUKAS
	DB	$00 ;AMUST
	DB	$00 ;HANNY 
	DB	$00 ;PAPA2
	DB	$00 ;KUMA0
	DB	$00 ;PAPAL
	DB	$00 ;MAMAD
	DB	$00 ;TURI 
	DB	$0F ;NYORO
	DB	$2B ;PKURI
	DB	$00 ;SHIGE
	DB	$00 ;TUKAI
	DB	$00 ;ARIMA
	DB	$13 ;BOXER
	DB	$00 ;ZONBI
	DB	$00 ;KHIMI
	DB	$00 ;GIRL1
	DB	$00 ;GIRL2
	DB	$00 ;MAMUU
	DB	$00 ;TODD 
	DB	$00 ;UNIUNI
	DB	$01 ;KANI  
	DB	$00 ;MANBO
	DB	$00 ;USAGI
	DB	$00 ;ONPU 
	DB	$00 ;AKUMA
	DB	$00 ;ZORA 
	DB	$00 ;BLANKA
	DB	$00 ;WANI  
	DB	$00 ;MAMAD2
	DB	$00 ;GAGE  
	DB	$00 ;USAG2
	DB	$00 ;KUMAS
	DB	$00 ;NTORI
	DB	$00 ;GMUSI
	DB	$00 ;OBAKE
	DB	$00 ;NIWAX
	DB	$00 ;YTUBO
	DB	$00 ;DOSNS
	DB	$00 ;DOSNB
	DB	$00 ;TAIAT
	DB	$00 ;FIREB
	DB	$00 ;BABUB
	DB	$00 ;KAZAM
	DB	$00 ;BOOK  
	DB	$00 ;SEIREN
	DB	$00 ;KENBM
	DB	%00000000 ;SARUK 
	DB	%00000000 ;MOUSE 
	DB	$28 ;HODAI 
	DB	%00000000 ;SANBO 
	DB	$13 ;MBOSS
	DB	$00 ;FLYIT2   
	DB	$26 ;BOSS 
	DB	$00 ;SIROS  
	DB	$00 ;EDAI  
ENMDD3
	DB	%00010010 ;PYAAA
;;	DB	%00000000 ;TEST 
	DB	%00010010 ;BUMER
	DB	%00001010 ;BOMBR
	DB	%00010010 ;FUCKS
	DB	%00010010 ;PRTBM
;
	DB	%00001010 ;KTOBJ
	DB	%00000010 ;BLOCK
	DB	%00000010 ;TAKAR 1
	DB	%00000010 ;POWDR 2
;
	DB	%00001000 ;OCTA1  3
	DB	%00010010 ;OCTAM 4
	DB	%00001000 ;MORI1  5
	DB	%00010010 ;MORYA
	DB	%00001000 ;TEKTA
	DB	%00000000 ;RIVER
	DB	%01000000 ;KUZUH
	DB	%00010001 ;GHOST
	DB	%00010001 ;GHOSB
	DB	%00010001 ;GHOSS
	DB	%00000000 ;BOMBO
	DB	%00001000 ;HEIS0
	DB	%00010010 ;BABUL
	DB	%00010010 ;SPARK
	DB	%00010010 ;SPAR2
	DB	%00001000 ;PORUS
	DB	%00010001 ;BLBAT
	DB	%00001000 ;SKEL0
	DB	%00001000 ;SLIMB
	DB	%00001000 ;SLIMS
	DB	%00010000 ;BASSF
	DB	%00001000 ;SKEL1
	DB	%00001000 ;MUMMY
	DB	%00001000 ;MOTOS
	DB	%00001000 ;MAGE0
	DB	%00010010 ;SONIC
	DB	%00001000 ;LAIKU
	DB	%00001000 ;HIPLP
	DB	%00001000 ;BOSS1
	DB	%00001000 ;KWUSO
	DB	%01010010 ;TRAP0
	DB	%00001000 ;COPYA
	DB	%00001000 ;HAYAM
	DB	%00001010 ;RENO7
	DB	%00010010 ;R7BEM
	DB	%00001000 ;INOSI
;
	DB	%00001010 ;HART1
	DB	%00001010 ;RUPY1
	DB	%00010011 ;YOSEI
	DB	%00001010 ;KEYSM
	DB	%00001010 ;PLTAT
	DB	%00001010 ;HMASK
	DB	%00001010 ;POWER
	DB	%00001010 ;KINOM
	DB	%00001010 ;KAKER
	DB	%00001000 ;HARTB
	DB	%00001010 ;ALOW1 
	DB	%00001010 ;BOMB1 
	DB	%00001000 ;GAKKI 
	DB	%00001010 ;KINOK 
	DB	%00001010 ;MGPOW 
	DB	%00011011 ;KAKIN 
	DB	%00011010 ;KAIIN 
	DB	%00000010 ;GIRL0 
	DB	%00000010 ;PAPA0 
	DB	%00000010 ;BABA0 
	DB	%00000010 ;FUKURO
	DB	%00000010 ;HINTO 
	DB	%00000010 ;EWOOD 
	DB	%00000010 ;MSPNT 
	DB	%01000010 ;IWAGO 
	DB	%00000010 ;SWBLKU
	DB	%00000010 ;SWBLKD
	DB	%00000010 ;SWBLKL
	DB	%00000010 ;SWBLKR
	DB	%00000010 ;;;STEST 
	DB	%00000010 ;MSTESF
	DB	%00010010 ;FRBAR
	DB	%00000000 ;NYAMA
	DB	%00000010 ;CHUNLI
	DB	%00000010 ;UFOCH
	DB	%00110000 ;TERSA
	DB	%00001000 ;TEKYU
	DB	%00000010 ;BHOLE
	DB	%00000010 ;BHOL2
	DB	%00000010 ;FISHG
	DB	%00001000 ;SBOMB
	DB	%00001000 ;OBOMB
	DB	%00001000 ;NINJA
	DB	%00010010 ;NINTM
	DB	%11010000 ;HAYAB
	DB	%10010000 ;BGKAO
	DB	%10010000 ;BSLIM
	DB	%11010000 ;TBOSS
	DB	%10010000 ;BSNAK
	DB	%11010100 ;GORMA
	DB	%10000100 ;BSKEL
	DB	%11010100 ;DDNGO
	DB	%00000010 ;WARP 
	DB	%11010000 ;BFIRE
	DB	%10010000 ;BBIRD
	DB	%00000010 ;PSCRL
	DB	%10000000 ;BFISH
	DB	%00000010 ;ONOFS
	DB	%01000010 ;SWTRP
	DB	%00010010 ;MVHAS
	DB	%00000010 ;HIKUS
	DB	%00000010 ;IKADA
	DB	%00000010 ;TANABE
	DB	%00000010 ;NIWAT 
	DB	%01000011 ;WANWAN
	DB	%00000000 ;BTFLY 
	DB	%00000000 ;FOXDOG
	DB	%00000000 ;KODOMA
	DB	%00000000 ;KODOMB
	DB	%00000000 ;KODOMC
	DB	%00000000 ;KODOMD
	DB	%00000000 ;MAMA0 
	DB	%00000000 ;MAMA1 
	DB	%00000000 ;PAPA1 
	DB	%00000000 ;URURI 
	DB	%00000000 ;OZWAN 
	DB	%00000000 ;MSWAN 
	DB	%00100000 ;KARAS 
	DB	%00000000 ;TRYCY 
	DB	%00000010 ;BHANA 
	DB	%00000010 ;BHFIR 
	DB	%00000010 ;SHANA 
	DB	%01000000 ;KAMEI 
	DB	%00000000 ;DENWA 
	DB	%10000100 ;OBAQ  
	DB	%01000000 ;OBQBAR  
	DB	%00000000 ;BEDIN   
	DB	%00000000 ;IZUMI   
	DB	%00000000 ;HATO0   
	DB	%00000010 ;FLYIT   
	DB	%10000100 ;RANEM   
	DB	%11000100 ;NOMOS   
	DB	%10010100 ;HINO0   
	DB	%00000000 ;PANEL   
	DB	%00000000 ;PANEL2   
	DB	%00000000 ;SWBLK    
	DB	%00000000 ;SWBLK2   
	DB	%10000100 ;MIZUB
	DB	%00000000 ;HEIHO   
	DB	%00000000 ;SLOT    
	DB	%00000000 ;KARBY   
	DB	%11000100 ;OCHAN  
	DB	%00010000 ;HEISM  
	DB	%00000000 ;HEISB  
	DB	%00000000 ;RICHD  
	DB	%00000000 ;KAERU  
	DB	%00000000 ;SWIMP  
	DB	%00000000 ;DAISU  
	DB	%00010000 ;AMENB  
	DB	%00000000 ;YUKAB  
	DB	%00000000 ;YSLIM  
	DB	%00000000 ;BALEE  
	DB	%01000010 ;MOAI  
	DB	%00000010 ;TBEAM  
	DB	%00000000 ;KURI0  
	DB	%00000000 ;PIHAT  
	DB	%00000000 ;LOPE   
	DB	%00000000 ;PACKN  
	DB	%00000010 ;LIFTX  
	DB	%00000010 ;LIFTY  
	DB	%00000010 ;LIFTD  
	DB	%00000010 ;LIFTT  
	DB	%01000010 ;HASIR  
	DB	%01000010 ;TAMA0  
	DB	%00000000 ;GESSO  
	DB	%00010000 ;PUKPK  
	DB	%00010000 ;PUKPV  
	DB	%00001000 ;PUKPJ  
	DB	%00011000 ;MONKY  
	DB	%00000000 ;OCTAJ  
	DB	%00010011 ;YOSSI
	DB	%00000000 ;AMUSI  
	DB	%00010010 ;YUKAS  
	DB	%00000000 ;AMUST  
	DB	%00000010 ;HANNY 
	DB	%00000010 ;PAPA2
	DB	%00000010 ;KUMA0
	DB	%00000010 ;PAPAL
	DB	%00000010 ;MAMAD
	DB	%00000010 ;TURI
	DB	%00000000 ;NYORO  
	DB	%00000001 ;PKURI  
	DB	%00000000 ;SHIGE  
	DB	%10000100 ;TUKAI  
	DB	%00010001 ;ARIMA  
	DB	%10000100 ;BOXER  
	DB	%00000000 ;ZONBI  
	DB	%00000000 ;KHIMI  
	DB	%00000011 ;GIRL1
	DB	%00000010 ;GIRL2
	DB	%00000010 ;MAMUU
	DB	%00000010 ;TODD
	DB	%00000010 ;UNIUNI
	DB	%00000010 ;KANI  
	DB	%00000010 ;MANBO 
	DB	%00000010 ;USAGI 
	DB	%00000010 ;ONPU  
	DB	%00000010 ;AKUMA 
	DB	%00000010 ;ZORA  
	DB	%00000010 ;BLANKA  
	DB	%00000010 ;WANI  
	DB	%00000010 ;MAMAD2
	DB	%00000010 ;GAGE  
	DB	$00 ;USAG2
	DB	$00 ;KUMAS
	DB	$00 ;NTORI
	DB	$00 ;GMUSI
	DB	$00 ;OBAKE
	DB	%00000011 ;NIWAX
	DB	%00000010 ;YTUBO  
	DB	%01000010 ;DOSNS  
	DB	%01000010 ;DOSNB  
	DB	%00000010 ;TAIAT  
	DB	%00000010 ;FIREB 
	DB	%00000010 ;BABUB 
	DB	%00000010 ;KAZAM 
	DB	%00000010 ;BOOK  
	DB	%00000010 ;SEIREN
	DB	%00010010 ;KENBM
	DB	%00000010 ;SARUK 
	DB	%00000010 ;MOUSE 
	DB	%00000010 ;HODAI 
	DB	%00000010 ;SANBO
	DB	%00000000 ;MBOSS
	DB	%00000010 ;FLYIT2   
	DB	%00000000 ;BOSS  
	DB	%00000010 ;SIROS  
	DB	%00000010 ;EDAI  
;------------------------------------------------
ITMHITD
;;		0 1 2 3 4 5 6 7 8 9 A B * * * *
	DB	1,1,1,0,0,1,2,1,2,3,3,2,0,0,0,0	;0
	DB	1,1,1,0,0,2,2,2,2,3,3,2,0,0,0,0	;1
	DB	1,1,1,0,0,2,2,2,2,1,3,2,0,0,0,0	;2
	DB	1,1,1,0,0,2,1,2,1,1,3,2,0,0,0,0	;3
	DB	0,3,3,0,0,0,1,0,1,0,0,1,0,0,0,0	;4
	DB	0,0,3,0,0,0,1,0,1,0,0,1,0,0,0,0	;5
	DB	0,0,0,0,0,0,0,0,2,3,0,0,0,0,0,0	;6 BABUL
	DB	0,0,0,0,0,1,3,1,2,3,1,1,0,0,0,0	;7
	DB	0,0,0,0,0,3,1,2,4,0,0,1,0,0,0,0	;8 KUZUH
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;9
	DB	0,0,0,0,0,0,1,1,1,1,3,1,0,0,0,0	;A
	DB	0,0,0,0,0,0,1,3,1,0,0,0,0,0,0,0	;B
	DB	0,0,0,0,0,1,1,3,1,1,1,3,0,0,0,0	;C
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;D
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;E
	DB	1,1,1,1,1,2,1,2,2,2,3,3,0,0,0,0	;F GHOST
;;		0 1 2 3 4 5 6 7 8 9 A B C D E F
	DB	0,0,0,0,0,2,2,2,4,0,1,2,0,0,0,0	;10 柴原 GORMA
	DB	1,2,2,0,0,0,0,3,0,0,0,0,0,0,0,0	;11 柴原 BSKEL
	DB	0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0	;12 DDNGO
	DB	1,1,1,1,2,2,2,2,2,0,2,2,0,0,0,0	;13 OBAQ  
	DB	1,1,1,1,2,2,2,2,4,0,2,2,0,0,0,0	;14 ひ野
	DB	0,1,1,1,2,1,0,0,0,0,1,0,0,0,0,0	;15 NOMOS
	DB	0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0	;16
	DB	0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,0	;17
	DB	1,1,1,1,1,0,0,0,0,0,0,0,0,0,0,0	;18 HAYAB
	DB	1,1,1,1,1,0,0,2,0,0,2,2,0,0,0,0	;19 TBOSS
;;		0 1 2 3 4 5 6 7 8 9 A B C D E F
	DB	1,1,1,1,1,0,0,0,0,0,2,0,0,0,0,0	;1A BSLIM
	DB	1,1,1,1,1,1,0,2,0,0,1,0,0,0,0,0	;1B FISHB
	DB	1,1,1,1,1,0,0,0,0,0,1,0,0,0,0,0	;1C BSNAK
	DB	1,1,1,1,1,0,0,2,0,0,0,0,0,0,0,0	;1D BGKAO
	DB	1,1,1,1,1,1,2,2,0,0,2,0,0,0,0,0	;1E BBIRD
	DB	1,1,1,1,1,0,0,0,0,0,2,0,0,0,0,0	;1F BFIRE
	DB	1,1,1,1,1,1,0,0,0,0,2,1,0,0,0,0	;20 TERSA
	DB	1,1,1,1,1,1,2,1,2,0,1,2,0,0,0,0	;21 KARAS 
	DB	1,1,1,1,1,1,2,1,2,0,1,2,0,0,0,0	;22 ONOFS (Swich) 
	DB	0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0	;23 HEISB ;壁兵士(爆弾に弱い）
	DB	1,1,1,1,1,1,1,2,1,0,3,0,0,0,0,0	;24 HEIHO
	DB	1,1,1,1,1,1,1,0,0,0,1,2,0,0,0,0	;25 HEISM
	DB	1,1,1,1,1,1,2,1,2,0,1,2,0,0,0,0	;26 BOSS 
	DB	1,1,1,1,1,1,2,1,2,0,1,2,0,0,0,0	;27
	DB	0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0	;28 HOADI
;;		0 1 2 3 4 5 6 7 8 9 A B C D E F
	DB	0,0,1,1,1,0,2,0,2,0,3,0,0,0,0,0	;29 SHANA,BHANA
	DB	1,1,1,0,0,2,2,2,2,0,0,2,0,0,0,0	;2A SKEL?
	DB	1,1,1,0,0,2,0,0,5,2,3,3,0,0,0,0	;2B PKURI 
	DB	0,0,0,0,0,0,0,0,5,0,0,0,0,0,0,0	;2C SPARK
	DB	1,1,1,1,1,1,2,1,4,0,1,2,0,0,0,0	;2D SLOT 
	DB	0,0,0,0,0,0,0,2,4,0,2,2,0,0,0,0	;2E KARBY
	DB	1,1,1,1,1,1,1,2,4,0,3,2,0,0,0,0	;2F MUMMY
	DB	1,1,1,1,1,2,2,1,1,0,3,2,0,0,0,0	;30 NINJA
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ITMHITP
;;	 FF:Stop  FE:Fire  FD:Fairy
;;		  0   1   2   3   4   5   6   7
	DB	$00,$01,$02,$40,$00,$00,$00,$00 ;0
	DB	$00,$02,$01,$40,$00,$00,$00,$00 ;1
	DB	$00,$04,$02,$40,$00,$00,$00,$00 ;2
	DB	$00,$08,$04,$40,$00,$00,$00,$00 ;3
	DB	$00,$10,$08,$40,$00,$00,$00,$00 ;4
	DB	$00,$01,$04,$40,$00,$00,$00,$00 ;5
	DB	$00,$FF,$02,$40,$00,$00,$00,$00 ;6
	DB	$00,$01,$04,$40,$00,$00,$00,$00 ;7
	DB	$00,$FF,024,$FE,$02,$FD,$00,$00 ;8
	DB	$00,$FF,$FD,$FE,$00,$00,$00,$00 ;9
	DB	$00,$01,$04,$FE,$00,$00,$00,$00 ;A
	DB	$00,$FF,$02,$40,$00,$00,$00,$00 ;B
	DB	$00,$01,$02,$40,$00,$00,$00,$00 ;C
	DB	$00,$01,$02,$40,$00,$00,$00,$00 ;D
	DB	$00,$01,$02,$40,$00,$00,$00,$00 ;E
	DB	$00,$01,$02,$40,$00,$00,$00,$00 ;F
;- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
LIFEDT	; 体力
;; 		0 1 2 3 4 5 6 7 8 9 A B C D E F 
	DB	1,2,2,4,4,4,4,4,4,4,4,4,4,4,4,4
;; 	        10 11 2 3  4  5 6 7 8 9 A  B C  D  E  F
	DB	12,63,8,8,08,12,0,0,4,6,8,10,4,20,10,24
;; 	        20 21 2 3 4 5  6  7 8 9 A B C D E F
	DB	4,02,08,8,2,4,$FF,0,2,4,2,3,1,1,8,6
;; 	        30 31 2 3 4 5  6  7 8 9 A B C D E F
	DB	2
ATCKDT	; 攻撃力
;; 		0 1 2 3  4 5 6 7  8 9  A B C D E F
	DB	4,4,8,8,24,8,4,8,16,8,16,8,8,4,8,8
;; 	       10 1 2 3 4  5 6 7 8 9  A  B  C  D  E  F
	DB	8,8,8,8,8,12,0,0,8,8,08,12,12,20,16,32
;; 	       20 1 2 3 4 5 6 7  8 9 A B C D E F
	DB	8,8,4,4,4,4,4,0,20,8,4,8,4,4,8,8
;; 	       30 1 2 3 4 5 6 7   8 9 A B C  D  E  F
	DB	4
ITSTDT	; 摘出アイテム
;;	0:00%  1:25%Rupy  2:50%Rupy  3:50%Heart 4:Heart100%
;;	5:25%Alow 6:25%heart 7:25%randam 8:50%randam 9:fairy50%
;;	A:100%Alow B:Bomb100% C:Rupy100% D:25%Fairy E:100%fairy
;
;; 		0 1 2 3 4 5  6 7  8 9 A  B C D E F
	DB	2,6,1,3,3,3,$D,8,$A,2,7,$B,0,4,0,8
;; 	       10  1  2  3  4  5 6 7 8 9 A B C D E F
	DB	4,$E,$E,$E,$E,$E,0,3,3,3,3,3,3,3,3,3
;; 	       20 1 2 3 4 5 6 7 8 9 A  B  C D E F
	DB	3,2,0,0,2,0,0,0,0,6,6,$D,$E,0,9,3
;; 	       30 1 2 3 4 5 6 7 8 9 A B  C D E F
	DB      6	
;- - - - - - - - - - - - - - - - - - - - - -
;-----------------------------------------
ENMDST
	CALL	ENRMCL
;
ENMDSTS
	LD	A,(GRNDPT)
	LD	HL,ENGRPT
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENJYUN
	ADD	HL,BC
	LD	(HL),$FF
;
ENMDSTS2
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	E,(HL)
;
;;;	LD	E,A
	LD	D,B ;$0
;
	LD	HL,ENMDD0
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENMDD1
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENMOD1
	ADD	HL,BC
	LD	(HL),A
;
;;	LD	HL,ENMDD2
;;	ADD	HL,DE
;;	LD	A,(HL)
;;	LD	HL,ENMOD2
;;	ADD	HL,BC
;;	LD	(HL),A
	CALL	ENSTST
;
	LD	HL,ENMDD3
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	(HL),A
;
	JP  	ENSZST	; Hit size set !!
;;	RET
;===============================================
;=	ステータス　セット		       =
;===============================================
ENSTST
	PUSH	DE
;
	LD	HL,ENMDD2
	ADD	HL,DE
	LD	E,(HL)
	LD	HL,ENMOD2
	ADD	HL,BC
	LD	(HL),E
;;	LD	E,A
	LD	D,B
	LD	HL,LIFEDT
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENLIFE
	ADD	HL,BC
	LD	(HL),A
;
	POP	DE
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BSKCLER
	LD	A,$01
	LD	(NAZOCL),A
	JP	ENCLER
;------------------------------------
ENINIT
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%10000000
	JR	Z,EI09010	; Boss ?
;				; Yes !
	LD	A,(DJSVBF)
	AND	%00110000
	JR	Z,EI09008	; Already Boss fail chach ?
;				; yes ! not set
	JP	ENCLER
EI09008
	LD	A,(ENMYNO2)
	CP	BSKEL
	JR	NZ,EI0900A	;逃げるガイコツ？
;				;YES !
	LD	A,(GRNDPT)	;出現順番チェック！
	CP	$95
	JR	Z,EI0900A
	CP	$92
	JR	Z,EI0900A
	CP	$84
	JR	Z,EI0900B
;
	LD	A,(DJRMSV+$84)
	AND	%00110000
	JR	Z,BSKCLER
EI0900B
	LD	A,(DJRMSV+$92)
	AND	%00110000
	JR	Z,BSKCLER
	LD	A,(DJRMSV+$95)
	AND	%00110000
	JR	Z,BSKCLER
EI0900A
	LD	A,(DJFLAG)
	AND	A
	JR	Z,EI090A1
;
	LD	A,(BIRDFG)
	AND	A
	JR	NZ,EI09009
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000100
	JR	Z,EI090A1	;中ボス？
;				;YES !
	LD	(DJSDON),A	;スクロールアウトBGMセットフラグ！
EI090A1
	CALL	SOUNDCLR	;(S)
;
EI09009
	XOR	A
	LD	(BSSDFG),A
;
	INC	A
	LD	(BOSSFG),A
;
	LD	A,$20
	LD	(BSSDTM),A
EI09010
	LD	HL,ENMODE
	ADD	HL,BC
;;	LD	A,EMOVE
	LD	(HL),EMOVE ;A
;
	LD	A,(ENMYNO2)
	RST	0
	DW	ENRET
	DW	ENRET ;IT ;ENRET
	DW	ENRET
	DW	ENRET
	DW	ENRET
	DW	ENRET
	DW	BLOCKIT
	DW	TAKARIT ;1
	DW	ENRET   ;2
;
	DW	OCTA1IT ;3
	DW	ENRET   ;4
	DW	MORI1IT ;5
	DW	ENRET
	DW	ENRET
	DW	RIVERIT
	DW	ENRET
	DW	GHOSTIT
	DW	GHOSBIT
	DW	GHOSSIT
	DW	BOMBOIT
	DW	HEIS0IT
	DW	BABULIT
	DW	SPARKIT
	DW	SPAR2IT
	DW	ENRET
	DW	ENRET
	DW	ENRET
	DW	SLIMBIT
	DW	ENRET
	DW	BASSFIT
	DW	STATINC	;SKEL1IT
	DW	STATINC ;MUMMYIT
	DW	ENRET
	DW	MAGE0IT
	DW	ENRET
	DW	STATINC ;LAIKUIT
	DW	ENRET
	DW	BOSS1IT
	DW	KWUSOIT
	DW	ENRET
	DW	ENRET
	DW	HAYAMITL
	DW	ENRET	; RENO7
	DW	ENRET	; R7BEM
	DW	ENRET	; INOSI
;
	DW	HART1IT ;ENRET
	DW	ITEMIT ;ENRET
	DW	ITEMIT ;ENRET
	DW	KEYSMIT;ENRET
	DW	PLTATIT ; ;PLTAT
	DW	ITEMIT ;HMASK
	DW	ITEMIT ;POWER
	DW	ITEMIT ;KINOM
	DW	ENRET2 ;KAKERIT  ;KAKER
	DW	ITEMIT ;HARTB
	DW	ITEMIT ;ALOW1  
	DW	ITEMIT ;BOMB1  
	DW	GAKKIIT ;GAKKI  
	DW	ENRET2 ;KINOK  
	DW	ANAINIT2 ;MGPOW
	DW	ANAINIT2 ;KAKIN  
	DW	KAIINIT ;ANAINIT2 ;KAIIN  
	DW	GIRL0IT ;GIRL0
	DW	PEOPLIT ;PAPA0
	DW	BABA0IT ;BABA0   
	DW	FUKUROIT ;FUKURO
	DW	ENRET  ;HINTO   
	DW	EWOODIT ;EWOOD
	DW	ENRET2 ;MSPNT   
	DW	ENRET2 ;IWAGO   
	DW	ENRET2 ;SWBLKU
	DW	ENRET2 ;SWBLKD
	DW	ENRET2 ;SWBLKL
	DW	ENRET2 ;SWBLKR
	DW	ENRET  ;;;STESTIT
	DW	ENRET  ;MSTESFIT
	DW	ENRET  ;FRBARIT
	DW	SHOPIT ;NYAMAIT
	DW	ENRET  ;CHUNLIIT
	DW	EVENTIT ;UFOCHIT
	DW	ENRET  ;TERSAIT
   	DW	ENRET  ;TEKYUIT
   	DW	ENRET  ;BHOLEIT
   	DW	ENRET  ;BHOL2IT
   	DW	EVENTIT ;FISHGIT
	DW	ENRET  ;SBOMBIT
	DW	ENRET  ;OBOMBIT
	DW	ENRET  ;NINJAIT
	DW	ENRET  ;NINTMIT
	DW	HAYABITL  ;HAYABIT
	DW	BGKAOITL  
	DW	BSLIMITL  
	DW	TBOSSITL  
	DW	BSNAKITL  
	DW	ENRET  ;GORMAITL
	DW	ENRET  ;BSKELITL
	DW	DDNGOITL
	DW	WARPIT ;STATINC  ;WARP  
	DW	BFIREITL
	DW	BBIRDITL
	DW	PSCRLIT	; Part scroll intial
	DW	BFISHITL
	DW	ENRET  ;ONOFS
	DW	ENRET2  ;SWTRP
	DW	ENRET2  ;MVHAS
	DW	HIKUSIT ;HIKUS
	DW	IKADAIT ;IKADA
	DW	ENRET2	; TANABE
	DW	ENRET2	; NIWAT
	DW	WANWANIT ; WANWAN
	DW	ENRET2	; BTFLY 
	DW	ENRET2	; FOXDOG
	DW	PEOPLIT	; KODOMA
	DW	KODOMBIT ; KODOMB
	DW	KODOMCIT ; KODOMC
	DW	PEOPLIT	; KODOMD
	DW	PEOPLIT ;MAMA0 
	DW	PEOPLIT ;MAMA1 
	DW	PAPA1IT ;PAPA1 
	DW	PEOPLIT ;URURI 
	DW	ENRET2 	; OZWAN 
	DW	MSWANIT ;PEOPLIT	; MSWAN 
	DW	ENRET2 	; KARAS 
	DW	PEOPLIT	; TRYCY 
	DW	BHANAIT	; BHANA 
	DW	ENRET2 	; BHFIR 
	DW	ENRET2 	; SHANA 
	DW	ENRET2 	; KAMEI 
	DW	DENWAIT	; DENWA 
	DW	ENRET2 	; OBAQ  
	DW	ENRET2 	; OBQBAR  
	DW	BEDINIT	; BEDIN   
	DW	IZUMIIT	; IZUMI   
	DW	ENRET2 	; HATO0   
	DW	FLYITIT	; FLYIT   
	DW	RANEMIT ; RANEM   
	DW	ENRET2 	; NOMOS   
	DW	ENRET2 	; HINO0 
	DW	ENRET2 	; PANEL 
	DW	ENRET2 	; PANEL2 
	DW	ENRET2 	; SWBLK 
	DW	ENRET2 	; SWBLK2
	DW	PSADD8 	; MIZUB
	DW	ENRET2 	; HEIHO 
	DW	ENRET2 	; SLOT  
	DW	KARBYIT	; KARBY 
	DW	ENRET2 	; OCHAN
	DW	ENRET2 	; HEISM
	DW	ENRET2 	; HEISB
	DW	RICHDIT	; RICHD
	DW	ENRET2 	; KAERU
	DW	ENRET2 	; SWIMP
	DW	DAISUIT ; DAISU
	DW	ENRET2  ; AMENB  	
	DW	ENRET2  ; YUKAB  	
	DW	ENRET2  ; YSLIM  	
	DW	BALEEIT ; BALEE  	
	DW	ENRET2  ; MOAI
	DW	TBEAMIT ; TBEAM
	DW	ENRET2  ; KURI0
	DW	ENRET2  ; PIHAT
	DW	LOPEIT  ; LOPE 
	DW	ENRET2  ; PACKN
	DW	ENRET2  ; LIFTX
	DW	LIFTYIT ; LIFTY
	DW	ENRET2  ; LIFTD
	DW	ENRET2  ; LIFTT
	DW	ENRET2  ; HASIR
	DW	ENRET2  ; TAMA0
	DW	ENRET2  ; GESSO
	DW	ENRET2  ; PUKPK 
	DW	ENRET2  ; PUKPV 
	DW	ENRET2  ; PUKPJ 
	DW	MONKYIT ; MONKY 
	DW	ENRET   ; OCTAJ 
	DW	YOSSIIT ; YOSSI 
	DW	ENRET2 	; AMUSI
	DW	ENRET2 	; YUKAS
	DW	ENRET2 	; AMUST
	DW	PSADD8	; HANNY
	DW	PAPA2IT	; PAPA2
	DW	ENRET2 	; KUMA0
	DW	ENRET2 	; PAPAL
	DW	ENRET2 	; MAMAD
	DW	TURIIT 	; TURI 
	DW	ENRET2 	; NYORO
	DW	PKURIIT	; PKURI
	DW	SHIGEIT	; SHIGE
	DW	PSADD8 	; TUKAI
	DW	ENRET2 	; ARIMA
	DW	ENRET2 	; BOXER
	DW	ENRET2 	; ZONBI
	DW	ENRET2 	; KHIMI
	DW	GIRL1IT	; GIRL1
	DW	GIRL2IT	; GIRL2
	DW	ENRET2	; MAMUU
	DW	ENRET2 	; TODD 
	DW	ENRET2 	; UNIUNI
	DW	ENRET2 	; KANI
	DW	ENRET2 	; MANBO 
	DW	ENRET2	; USAGI 
	DW	ENRET2 	; ONPU  
	DW	ENRET2 	; AKUMA 
	DW	ENRET2 	; ZORA  
	DW	ENRET2 	; BLANKA 
	DW	ENRET2 	; WANI  
	DW	ENRET2 	; MAMAD2
	DW	ENRET2 	; GAGE
	DW	ENRET2  ; USAG2
	DW	ENRET2  ; KUMAS
	DW	ENRET2  ; NTORI
	DW	ENRET2  ; GMUSI
	DW	ENRET2  ; OBAKE
	DW	ENRET2  ; NIWAX
	DW	ENRET2  ; YTUBO
	DW	ENRET2  ; DOSNS
	DW	ENRET2  ; DOSNB
	DW	ENRET2  ; TAIAT
	DW	ENRET2  ; FIREB
	DW	BABUBIT ; BABUB
	DW	ENRET2  ; KAZAM
	DW	ENRET2  ; BOOK 
	DW	ENRET2  ; SEIREN
	DW	ENRET2  ; KENBM
	DW	ENRET2  ; SARUK
	DW	ENRET2  ; MOUSE
	DW	ENRET2  ; HODAI
	DW	ENRET2  ; SANBO
	DW	ENRET2  ; MBOSS
	DW	FLYIT2IT; FLYIT2   
	DW	BOSSIT  ; BOSS 
	DW	ENRET2 	; SIROS
;- -Ending use --
	DW	ENRET2 	; EDAI
;------------------------------
DAIIPT
	DB	1,4
DAISUIT
	LD	HL,ENJYUN
	ADD	HL,BC
	LD	E,(HL)
;;	INC	A
	LD	D,B
	LD	HL,DAIIPT
	ADD	HL,DE
	LD	A,(HL)
	JP	ENPTST
;------------------------------
GIRL2IT
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$03
	LD	(HL),A
	RET
;------------------------------
LOPEIT
	CALL	LDTIM1
	LD	(HL),$30
	RET
;------------------------------
LIFTYIT
	LD	A,(GRNDPT)
	CP	$65
	RET	NZ
;
	LD	A,(ENDSYP)
	CP	$50
	RET	C
;
	LD	HL,ENWRK0
	ADD	HL,BC
	INC	(HL)
	RET
;------------------------------
SLIMBIT
	LD	HL,ENLIFE
	ADD	HL,BC
	LD	(HL),$02
	RET
;------------------------------
;USAGIIT
;	LD	A,(MARINOF)
;	AND	A
;	JP	Z,ENCLER
;
;ADDCHK
;	LD	A,(ENSVXL)
;	SWAP	A
;	AND	$01
;	LD	E,A
;	LD	A,(ENSVYL)
;	SWAP	A
;	INC	A
;	RLA
;	AND	$02
;	OR	E
;	LD	HL,ENWRK0
;	ADD	HL,BC
;	LD	(HL),A
;	RET	
;------------------------------
GIRL1IT
	LD	HL,MARINOF
	LD	A,(MARINFG)
;;;	AND	A
	OR	(HL)
	JP	NZ,ENCLER
	RET
;------------------------------
PKURIIT
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),$10
;
	CALL	RNDSUB
	LD	HL,ENCONT
	ADD	HL,BC
	LD	(HL),A
;;	RET
;------------------------------
SHIGEIT
;	LD	A,(ENSVXL)
;	RLA
;	RLA
;	AND	%01000000
;	PUSH	AF
;	LD	HL,ENMOD3
;	ADD	HL,BC
;	OR	(HL)
;	LD	(HL),A	;石は剣はねかえり！
;	POP	AF
;	SLA	A
;	LD	HL,ENMOD1
;	ADD	HL,BC
;	OR	(HL)
;	LD	(HL),A
;;
;	LD	A,(ENSVXL)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	%00000001
;	LD	HL,ENWRK3
;	ADD	HL,BC
;	LD	(HL),A	;0:草 1:石
	RET
;------------------------------
PAPA2IT
	CALL	PSADD8
;
	LD	A,$02
	JP	ENPTST
;------------------------------
DENWAIT
	LD	A,$33
	JR	ENBGMST
;------------------------------
RICHDIT
	LD	A,$40
ENBGMST
	LD	E,A
;
	LD	A,(KENLEV)
	AND	A
	RET	Z	;剣を持ってないときは専用BGM!
;
	LD	A,E
ENBGMST2
	LD	(SOUND4),A	;(S)
	LD	(BGMNO),A
	LD	(BGMNO2),A
	LD	(TODYFG),A
	RET
;------------------------------
BOSSIT
	XOR	A
	LD	(BOSSNO),A
;
	CALL	SOUNDCLR	;(S)
	RET
;	LD	A,$23
;	JR	ENBGMST2 ;(S)
;------------------------------
BEDINIT
	LD	A,$24
	JR	ENBGMST2
;;	LD	(SOUND4),A	;(S)
;;	RET
;------------------------------
TURIIT
	LD	A,$3A
	JR	ENBGMST2	;(S)
;-----------------------------
MONKYIT
	XOR	A
	LD	(SARUFG),A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$04
	LD	(HL),A
	RET
;------------------------------
TBEAMIT
	CALL	RNDSUB
	JP	ENPTST
;------------------------------
KARBYIT
	CALL	LDTIM3
;
	CALL	RNDSUB
	AND	$3F
	ADD	A,$10
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
	LD	(HL),A
	RET
;------------------------------
HIKUSIT
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	ADD	A,$0A
	LD	(HL),A
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	(HL),A
	RET
;------------------------------
RANEMIT
;	LD	A,(DJSVBF)
;	AND	%00010000
;	JP	NZ,ENCLER
;;
	XOR	A
	LD	(BGMNO),A
;;	LD	(BSSDFG),A
;
;;	CALL	SOUNDCLR	;(S)
	RET
;------------------------------
FLYIT2IT
	CALL	FII100
;
	LD	A,(ENSVXL)
	SWAP	A
	AND	$01
	ADD	A,$04
	JP  	ENPTST
;------------------------------
FLYITIT
	LD	A,(ENSVXL)
	SWAP	A
	AND	$01
	LD	E,A
	LD	A,(ENSVYL)
	SWAP	A
	INC	A
	RLA
	AND	$02
	OR	E
	CALL	ENPTST
	CP	$01
	JR	NZ,FII100
;
	LD	A,(KINOKFG)
	AND	A
	JP	NZ,ENCLER
FII100
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),$13
;
	RET
;------------------------------
KODOMBIT
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),$02
;
	CALL	STATINC
;
	CALL	LDTIM0
	LD	(HL),$20
KODOMCIT
	RET
;------------------------------
PAPA1IT
;;	LD	A,$??	;TODY
	LD	A,(GRNDPT)
	CP	$D9
	LD	A,$32	;ライト
	JR	NZ,PP1I10
	LD	A,$37	;ヤギ
PP1I10
	JR	ENITSD	;(S)
;------------------------------
;IZHARTD
;;                 3   4   5   6   7   8   9  10  11  12  13  14
;	DB	$18,$20,$28,$30,$38,$40,$48,$50,$58,$60,$68,$70
IZUMIIT
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),$10
;
;	LD	A,(HARTMX)
;	LD	E,A
;	LD	D,B
;	LD	HL,IZHARTD-3
;	ADD	HL,DE
;	LD	A,(HARTCT)
;	CP	(HL)
;	JP	Z,ENCLER
;
	LD	A,(HARTFUL)
	AND	A
	JP	NZ,ENCLER
;
	LD	A,$0C
ENITSD
	CALL	ENBGMST	;(S)
;	LD	(SOUND4),A	;(S)
;	LD	(BGMNO),A
;	LD	(BGMNO2),A
;;PAPA1IT
	LD	DE,ENXPSH
	LD	HL,ENXPSL
	JP	ITI010
;------------------------------
WANWANIT
	LD	A,(GRNDPT)
	CP	$E2
	JR	NZ,WANI08	;モリブリンに捕まっている？
;				; YES !
	LD	A,(WANFLG)
	CP	$80
	JR	Z,WANI0A
	JP	ENCLER
WANI08
	LD	A,(WANFLG)
	AND	A
	JP	NZ,ENCLER
;
WANI0A
	RET
;---------------------------------------
FUKUROIT	;
	LD	A,(DJSVBF)
;;	AND	%00100000
	RRA
	JR	ITSVCHK
;---------------------------------------
PLTATIT	; 浜べの剣
	LD	A,(DJSVBF)
ITSVCHK
	AND	%00010000
	JP	NZ,ENCLER	; Already have -> Not set !
	RET
;----------------------------------------
GIRL0IT
	LD	A,(GRNDPT)
	CP	$C0
	JR	C,GR0I10	; 動物村？
;				; YES !
	LD	A,(MARINOF)
	AND	A
	JP	Z,ENCLER
;
	LD	A,(MARINFG)
	AND	A
	JP	NZ,ENCLER ;GR0I10
;
	INC	A
	LD	(UTAFLG),A
;
;;	LD	A,$2F
;;	LD	(SOUND4),A	;(S)
	LD	A,$2F
	LD	(BGMSTF),A
	LD	(BGMNO),A
	LD	(BGMNO2),A
	CALL	SOUNDOUT  ;CLR	;(S)
GR0I10
	LD	A,(HIMITSU)
	AND	A
	JR	Z,PEOPLIT
;
	LD	A,(NAME)
	AND	A
	JR	NZ,PEOPLIT	; Message test ?
;				; yes !
	LD	A,(NAME+1)
	AND	A
	JR	NZ,GR0I11
;
	LD	(ITMODE),A
	LD	A,ENDG
	LD	(GMMODE),A
	RET
GR0I11	
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	(HL),TANABE
	RET
;----------------------------------------
MSWANIT
	LD	A,(WANFLG)
	CP	$80
	JR	NZ,MSWI10	;逃げられ？
;				; yes !
	LD	A,$0E
	LD	(SOUND4),A	;(S)
MSWI10
	RET
;----------------------------------------
IKADAIT
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,PEOPLIT
;
	LD	A,(IKADAFG)
	AND	A
	RET	NZ	
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$10
	LD	(HL),A
	RET
;
;	LD	A,(IKADAFG)
;	AND	A
;	JP	Z,ENCLER
PEOPLIT
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),$03
;-----------------------------
EVENTIT
;;	LD	A,(DJFLAG)
;;	AND	A
;;	JR	Z,EVI010	; 
;
	LD	A,(TATLEV)
	AND	A
	JR	NZ,EVI008	; First room?
;
;	LD	A,$0A		; Yes !
;EVI008
;;
	LD	A,$1C	;始めのBGM
;	LD	(SOUND4),A	;(S)
;	LD	(BGMNO),A
;	LD	(TODYFG),A	
	CALL	ENBGMST2	;(S)
EVI008
EVI010
	JR	LEFTMS
;;	RET
;-----------------------------
BABA0IT
;;	LD	A,$02
;;	LD	(SOUND4),A	;(S)
	RET
;-----------------------------
SHOPIT
;	CALL	RNDSUB
;	LD	E,$05
;	AND	$01
;	JR	Z,SHI010
;	LD	E,$07
;SHI010
;	LD	A,E
	LD	A,$07
;;	LD	(SOUND4),A	;(S)
	CALL	ENBGMST	;(S)
;
LEFTMS
	LD	A,$01
	JR	ENMKSET
;;	RET
;-----------------------------
ENRET
	CALL	RNDSUB
	AND	$03
ENMKSET
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),A
ENRET2
	RET
;=========================================
PSCRLIT
	LD	A,%00000011
	LD	(IE),A
;
	RET
;=========================================
RIVERIT
	LD	A,$FF
	JP	ENPTST
;----------------------------------------
;KAKERIT
;	LD	A,(DJSVBF)
;	AND	%00010000
;	JP	NZ,ENCLER
;	RET
;
;;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;FRBARIT
;	LD	A,(ENSVXL)
;	ADD	A,$00
;	LD	HL,ENWRK0 ;Center pos
;	ADD	HL,BC
;	LD	(HL),A
;	ADD	A,$06
;	LD	HL,ENXPSL
;	ADD	HL,BC
;	LD	(HL),A
;;
;	AND	%00010000
;	LD	HL,ENMUKI
;	ADD	HL,BC
;	LD	(HL),A
;;
;	LD	A,(ENDSYP)
;	ADD	A,$04
;	LD	HL,ENWRK1 ;Center pos
;	ADD	HL,BC
;	LD	(HL),A
;	ADD	A,$E2
;	LD	HL,ENYPSL
;	ADD	HL,BC
;	LD	(HL),A
;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;GAKKIIT
;	LD	HL,ENXPSL
;	ADD	HL,BC
;	LD	A,(HL)
;	ADD	A,$08
;	LD	(HL),A
;	RET
;=============================
;=============================
;=============================
BOSS1IT
KWUSOIT
;;	CALL	LDTIM0
;;	LD	(HL),$28
;;
;	LD	HL,ENXPSL
;	ADD	HL,BC
;	LD	A,(HL)
;	ADD	A,$08
;	LD	(HL),A
;;
;	CALL	SBPTST
;	RET
;BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
;B					  B
;BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB
;
BOSS1MV
KWUSOMV
;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%					%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%					%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%					%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENFIRECD
	DB	$34,$00,$34,$20
	DB	$34,$10,$34,$30
;;	DB	$34,$00,$36,$00
;;	DB	$36,$20,$34,$20
;- - - - - - - - - - - - - - - - - -
ENFIRE
	CALL	LDTIM0
	JR	Z,ENFRED
;
;;	CALL	ENMOVEL
;
;;	LD	A,(ENCHPT2)
;;	PUSH	AF
;
	LD	A,(FRCNT)
	RRA
	RRA
	RRA
	AND	%00000001
	LD	(ENCHPT2),A
;
;;	LD	A,(ENSVXL)
;;	PUSH	AF
;;	DEC	A
;;	LD	(ENSVXL),A	; Fire yuusen!
;
	LD	DE,ENFIRECD
	CALL	EN2CST
;;	POP	AF
;;	LD	(ENSVXL),A	; Fire yuusen!
;
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENCHPT2),A
	CALL	ENMOVEL
;
;;	POP	AF
;;	LD	HL,ENCHPT
;;	ADD	HL,BC
;;	LD	(HL),A
;
	CALL	ENSTCK2
	CALL	ENHNSB
;
	CALL	ENBDCL
	CALL	ENSDCL
;
	RET
ENFRED
	LD	A,(ENMYNO2)
	CP	MUMMY
	JR	NZ,ENFE090
;
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	(HL),SKEL1
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EMOVE
	JP	ENMDSTS2
;
ENFE090
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	(HL),$1F
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EFAIL
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	(HL),$04
;
	LD	HL,SOUND3	;(S)
	LD	(HL),$13
;;	LD	HL,SOUND1	;(S)
;;	LD	(HL),$06
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
EFOLEYD
	DB	$00,$00,$04,$00
EFOLESD
	DB	$00,$01,$03,$06
;;	DB	$FF,$07,$01,$00
EFOLECD
	DB	$24,$00
	DB	$24,$00
	DB	$3E,$00
;;	DB	$22,$00
EFOLECD2
	DB	$1E,$00,$1E,$60
;
ENFOLE
	CALL	LDTIM0
	JR	NZ,EFO1000
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000010
	JR	NZ,ENFLK0
;
	LD	HL,EFLFLG2
	LD	(HL),$01	;１匹でもおちた！
ENFLK0
	LD	A,(ENMYNO2)
	CP	TAMA0
	JR	NZ,EFO00E0
;
TAMA0ST
	LD	A,$16
	LD	(TAMA0PT),A
;
	LD	A,$50
	LD	(TAMA0XP),A
	LD	A,$27
	LD	(TAMA0YP),A
EFO00E0
	JP	ENCLER
;
EFO1000
	CP	$40
	JR	C,EFO010
;
	LD	A,(ENMYNO2)
	CP	OCTA1
	JR	Z,EFO003
	CP	MORI1
	JR	Z,EFO003
	CP	HEIS0
	JR	NZ,EFO008
;
EFO003
	CALL	MKPTST
	CALL	MKPTST
	CALL	MKPTST
EFO008
	CALL	ENMOVEL
	CALL	ENSTCK2
;
	RET
EFO010
	RRA
	RRA
	RRA
	RRA
	AND	$03
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),A
	LD	(ENCHPT2),A
;
	LD	E,A
	LD	D,B
	LD	HL,EFOLEYD
	ADD	HL,DE
	LD	A,(ENDSYP)
	ADD	A,(HL)
	LD	(ENDSYP),A
;
	LD	A,E
	CP	$03
	JR	NZ,EF0224
;
	XOR	A
	LD	(ENCHPT2),A
;
	LD	DE,EFOLECD2
	CALL	EN2CST
	JR	EF0225
EF0224
	LD	DE,EFOLECD
	CALL	EN1CST
;
EF0225
	CALL	ENSTCK2
;
	CALL	LDTIM0
	CP	$3F
	JR	NZ,EFO033
;
	LD	HL,SOUND1
	LD	(HL),$18	;(S)
EFO033
	RRA
	RRA
	RRA
	RRA
	AND	$03
	LD	E,A
	LD	D,B
	LD	HL,EFOLESD
	ADD	HL,DE
;;	LD	A,(FRCNT)
;;	AND	(HL)
;;	JR	NZ,EFO090
	LD	E,(HL)
;
	LD	A,(PLXPSL)
	PUSH	AF
	LD	HL,ENFLXP
	ADD	HL,BC
	LD	A,(HL)
	LD	(PLXPSL),A
	LD	A,(PLYPSL)
	PUSH	AF
	LD	HL,ENFLYP
	ADD	HL,BC
	LD	A,(HL)
	LD	(PLYPSL),A
;
	LD	A,E  ;$04
	CALL	PSERCH
	POP	AF
	LD	(PLYPSL),A
	POP	AF
	LD	(PLXPSL),A
;	LD	HL,ENHNXS
;	ADD	HL,BC
;	LD	A,(HL)
;	SRA	A
;	SRA	A
;	SRA	A
;;;	SRA	A
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	(HL),A
;;
;	LD	HL,ENHNYS
;	ADD	HL,BC
;	LD	A,(HL)
;	SRA	A
;	SRA	A
;	SRA	A
;;;	SRA	A
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	(HL),A
;;
	CALL	ENMVCL
EFO090
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENSHOT
	CALL	ENMOVEL
	CALL	ENSTCK2
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),$02	; For fole check !!
	CALL	ENBDCL		; Bounds sub & BG check !
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),B		; For fole check Off !!
;
	CALL	TURCHK
;
	CALL	SHBUTCK	;シャッターぶつけチェック！
;
	LD	A,(ENMYNO2)
	CP	TBOSS
	JR	NZ,ESH011
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,ESH011
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	(HL),$20
;
	LD	HL,SOUND2
	LD	(HL),$07	;(S)
;
	LD	HL,ENWRK3
	ADD	HL,BC
	LD	A,(HL)
	INC	A
	LD	(HL),A
	CP	$03
	JR	Z,ESH070
;
ESH011
	LD	A,$B
	LD	(ATCKNO),A
	CALL	CRENEN
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	OR	(HL)
	JR	NZ,ESHT10
;
	CALL	ESTOPST
;
	LD	A,(ENMYNO2)
	CP	TBOSS
	JR	NZ,ESHT10
;
ESH070
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EMOVE
;
	CALL	STATINC
	LD	(HL),$01
;
	CALL	LDTIM0
	LD	(HL),$80
;
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),B	; Center serch !
ESHT10
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ESTPXS
	DB	$10,$F0
;
ENSTOP
	CALL	ENMOVEL		; C set 
	CALL	ENSTCK2
	CALL	ENHNSB
;
	CALL	ENBDCL
	CALL	ENSDCL
;
	CALL	CRKNEN
;=====================================
;- - Cach check - -
	LD	A,(ITEMB)
	CP	PBULE
	JR	NZ,EST900	; Bulesret check !
;
	LD	A,(KEYA2)
	AND	%00100000
	JR	NZ,EST910
	JR	ESTP10
EST900
	LD	A,(ITEMA)
	CP	PBULE
	JR	NZ,ESTP10
;
	LD	A,(KEYA2)
	AND	%00010000
	JR	Z,ESTP10
;
CACHCK
EST910
	LD	A,(WPLCAMD)
	AND	A
	JR	NZ,ESTP10
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	PUSH	HL
	PUSH	AF
	OR	%10000000
	LD	(HL),A
	CALL	CRENPLF
	RL	E
	POP	AF
	POP	HL
	LD	(HL),A
	RR	E
	JR	NC,ESTP10
;
	LD	A,$01
	LD	(WPLCAMD),A
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),ECACH
;
	LD	A,$02
	LD	(SOUND2),A	;(S)
;
	LD	HL,ENCAST
	ADD	HL,BC
	LD	(HL),B ;$00
;
	CALL	LDTIM0
	LD	(HL),$02
;
	LD	A,(PLCMKI)
	LD	(PLCAMK),A
	JP	ENCACH
;;	RET
;
ESTP10
	LD	HL,ENTIM2
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,ESTP20
;
;;;	LD	A,EMOVE
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EMOVE ;A
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	(HL),B
ESTP20
	CP	$3C
	JR	NC,ESTP30
;
	SRL	A
	SRL	A
	AND	$1
	LD	E,A
	LD	D,B ;$0
	LD	HL,ESTPXS
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	CALL	ENXCLC
	CALL	ENSDCL
ESTP30
	RET
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;%				    %
;;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;ENNOTH
;	RET
;===================================
BBIXSD
	DB	$0C,$0C,$F4,$F4
BBIYSD
	DB	$0C,$F4,$0C,$F4
;
BABULIT
BABUBIT
BALEEIT
;;	INITIAL
	CALL	RNDSUB
	AND	$03
	LD	E,A
	LD	D,B ;$0
	LD	HL,BBIXSD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	LD	HL,BBIYSD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
	RET
;===================================
;===================================
;;	INITIAL
SPAR2IT
	LD	HL,ENWRK1
	ADD	HL,BC
;;;	LD	A,$04
	LD	(HL),$04 ;A
;
	LD	A,$03
	JR	SPIT10
;- - - - - - - - - - - - - - - -
SPARKIT
	LD	A,$FD
SPIT10
	LD	HL,ENYPSL
	ADD	HL,BC
	ADD	A,(HL)
	LD	(HL),A
	RET
;===================================
;===================================
;;	INITIAL
BASSFIT
;	LD	HL,ENCONT
;	ADD	HL,BC
;	CALL	RNDSUB
;;
;	AND	$01
;	LD	(HL),A
;	RET
;===================================
;===================================
;===================================
;===================================
;;	INITIAL
;LAIKUIT
;	LD	HL,ENSTAT
;	ADD	HL,BC
;;;;	LD	A,$01
;	LD	(HL),$01 ;A
;	RET
;===================================
;;	INITIAL
;SKEL1IT
;	LD	HL,ENSTAT
;	ADD	HL,BC
;;;;	LD	A,$01
;	LD	(HL),$01 ;A
;	RET
;===================================
;===================================
;===================================
;===================================
;;	INITIAL
;MUMMYIT
;	JP	STATINC
;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;;;;	LD	A,$01
;	LD	(HL),$01 ;A
;	RET
;===================================
MAGE0IT
	CALL	LDTIM0
	LD	(HL),$80
;
	LD	HL,ENCHPT
	ADD	HL,BC
	DEC	(HL)
;;	LD	(HL),$FF
;
	RET
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
;===================================
HEIS0IT 
	LD	A,(ENSVXL)
	AND	$10
	LD	A,$0
	JR	NZ,HEI010
;
	LD	A,$3
HEI010
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),A
	PUSH	HL
;
	CALL	MKPTST
;
	POP	HL
	LD	A,(HL)
	XOR	$1
	LD	(HL),A
	RET
;===============================================
;=					       =
;===============================================
;===============================
KAIINIT
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),$02
;
	LD	A,(GRNDPT)
	CP	$A4
	JR	Z,KAII01
	CP	$D2  ;97
	JR	NZ,KAII10	;体当たり木？
;
KAII01
	DEC	(HL) ;$01
; 
	CALL	PSADD8
KAII10
	CALL	ANI0010
;
	RET
;------------------------------------
ANAINIT
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),$01	;1:Dush check 2:Skop check&Tubo check
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,ANI0010
;--------------------------------------------
HART1IT
ANAINIT2
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),$02	;1:Dush check 2:Skop check&Tubo check
ANI0010
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	OR	%00010001
	LD	(HL),A
	RET
;===============================
KEYSMIT
	LD	A,(GRNDPT)
	CP	$F8
	JR	NZ,KSI000	;流さの下？
;
	LD	A,(DJSVBF)
	BIT	4,A
	JP	NZ,ENCLER
;
	BIT	5,A
	JP	Z,ENCLER
;
	LD	A,$02	;魚のかぎ！
	JP	ENPTST
;
KSI000
	CP	$7A
	JR	NZ,KSI001
;
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	LD	A,$04	;鳥のかぎ！
	JP	ENPTST
;
KSI001
	CP	$7C
	JR	NZ,KSI010	
;
	LD	A,(DJRMSV+$69)
	AND	%00010000
	JP	Z,ENCLER	;上の部屋から落ちた後？
;				; YES !
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER	;取ってへん？
;;	JR	ITEMIT2		; YES !
KSI010
	RET
;------------------------------
YOSSIIT
	LD	A,(MEGAF)
	CP	$0E
	JR	Z,PSADD8	;メガネ！
	RET
;===============================
WARPIT
	LD	A,(DJFLAG)
	AND	A
	RET	Z
;
	CALL	STATINC
	JR	PSADD8
;===============================
ITEMIT
	CALL	ANAINIT
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,ITI028
;
;	LD	HL,ENWRK2
;	ADD	HL,BC
;	INC	(HL)
;;
;	LD	HL,ENMOD3
;	ADD	HL,BC
;	LD	A,(HL)
;	OR	%00010001
;	LD	(HL),A
;;
;=======================================
BHANAIT
PSADD8
	LD	DE,ENXPSH
	LD	HL,ENXPSL
	CALL	ITI010
;
ITI008
	LD	DE,ENYPSH
	LD	HL,ENYPSL
ITI010
	ADD	HL,BC
	LD	A,(HL)
	ADD	A,$08
	LD	(HL),A
;
	RLA
	PUSH	DE
	POP	HL
	ADD	HL,BC
;
	RRA
;
	LD	A,(HL)
	ADC	A,$00
	LD	(HL),A
	RET
;=============================
EWOODIT
GAKKIIT
	LD	DE,ENXPSH
	LD	HL,ENXPSL
	JR  	ITI010
;===============================================
ITI028
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
	CALL	LDTIM3
	LD	(HL),$80
	RET
;===============================================
;=					       =
;===============================================
OCTA1IT
MORI1IT
;	CALL	RNDSUB
;	AND	$F
;	LD	HL,ENTIM0
;	ADD	HL,BC
;	LD	(HL),A
;	AND	$1
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	LD	(HL),A
;
	CALL	LDTIM1
	LD	(HL),$A0
	RET
;===============================================
;=					       =
;===============================================
GHOSTIT
GHOSBIT
GHOSSIT
;	LD	A,(GRNDPT)
;	CP	$48
;	JR	Z,GHI010
;	CP	$49
;	JR	NZ,GHI020
;
GHI010
	LD	A,(ENMYNO2)
	CP	GHOSS
	JR	NZ,GHI018
;
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),$01
GHI020
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),$10
	RET
GHI018
	CALL	STATINC
	RET
;===============================================
;=					       =
;===============================================
;---------------------------------------
;---------------------------------------
;===============================================
;=					       =
;===============================================
;===============================================
;=					       =
;===============================================
;===============================================
;===============================================
;=					       =
;===============================================
HIPLPCD
BOSS1CD
JIJIICD
KWUSOCD
CHUNLICD
	DB	$60,$00,$62,$00     ;下１
	DB	$62,$20,$60,$20     ;下２
;
	DB	$64,$00,$66,$00     ;上１
	DB	$66,$20,$64,$20     ;上２
;
	DB	$68,$00,$6A,$00     ;左１
	DB	$6C,$00,$6E,$00     ;左２
;
	DB	$6A,$20,$68,$20     ;右１
	DB	$6E,$20,$6C,$20     ;右２
;
HIPLP2CD
	DB	$70,$00,$72,$00	   ; MASK OFF
	DB	$72,$20,$70,$20	   ; MASK OFF
;- - - - - - - - - - - - - - - - - - - - - -
HP2XSD
	DB	$0C,$F4,$00,$00
HP2YSD
	DB	$00,$00,$F4,$0C
;-- -- -- -- -- -- -- -- -- -- -- -- --
HIPLPMV
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,HP1010
;
	LD	DE,HIPLP2CD
	CALL	EN2CST
;
	CALL	ENSTCK
	CALL	ENHNSB
;
	CALL	CREPKE
;
	CALL	ENMVCL
	CALL	ENBGCK
;
	CALL	LDTIM0
	JR	NZ,HP0010
;
	CALL	RNDSUB
	AND	$1F
	ADD	A,$20
	LD	(HL),A
;
	AND	$03
	LD	E,A
	LD	D,B
	LD	HL,HP2XSD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	LD	HL,HP2YSD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
HP0010
	LD	A,(FRCNT)
	RRA
	RRA
	RRA
	RRA
	AND	$01
	CALL	ENPTST
	RET
;
HP1010
	LD	DE,HIPLPCD
	CALL	ENMVSB
	RET
;===============================================
;=					       =
;===============================================
;===============================================
;=					       =
;===============================================
;===============================================
;	
;===============================================
;=					       =
;===============================================
; Danjyon Takaramono data 
;
;BUL	EQU	$0 ; Buleslet
;TAT	EQU	$1 ; Seeld
;BOW	EQU	$2 ; Bow
;FUC	EQU	$3 ; Fuck shot
;ROD	EQU	$4 ; Rods
;KTU	EQU	$5 ; Kutsu
;FUE	EQU	$6 ; Okarina
;WNG	EQU	$7 ; Wing
;BOK	EQU	$8 ; Book
;TBO	EQU	$9 ; Tsubo
;BMB	EQU	$A ; Bomb
;KEN	EQU	$B ; Ken  
;HRE	EQU	$C ; Hire 
;MEG	EQU	$D ; Megane
;YSI	EQU	$E ; Yoshi
;VTR	EQU	$F ; Video tape
;BIN	EQU	$10 ; Kushori bin
;;
;GK1	EQU	$11 ; Ground key 1
;GK2	EQU	$12 ; " 2
;GK3	EQU	$13 ; " 3
;GK4	EQU	$14 ; " 4
;GK5	EQU	$15 ; " 5
;;
;DMP	EQU	$16 ; Danjyon map
;KNP	EQU	$17 ; Konpass
;PND	EQU	$18 ; Pendant
;BKY	EQU	$19 ; Boss key
;SKY	EQU	$1A ; Small key
;C01	EQU	$1B ; Coin 50
;C02	EQU	$1C ; Coin 20
;C10	EQU	$1D ; Coin 100
;C20	EQU	$1E ; Coin 200
;C50	EQU	$1F ; Coin 500
;KAI	EQU	$20 ; 貝殻
;NOT	EQU	$21 ; Nothing
;SLM  22
;TAR  23
;;
;;
TAKARBD
	DB	$62,$70,$63,$71
;- - - - - - - - - - - - - - - - - - -
;;TKSTAD
;;	DB	$5,$6,$7,$3,$FF,$FF,$FF,$FF,$FF,$8,$FF
ITGTDT
	DB	3,4,5,6,7,8,9,$A,$B,$C,$2,$1
;- - Coin up data - - 
COUPD1
;;		 50  20 100 200 500
	DB	$00,$00,$00,$00,$01
COUPD2
	DB	$32,$14,$64,$C8,$F4
;
TAKARIT
	LD	A,$2A
	LD	(ENSTTM),A
;
	LD	A,$04
	LD	(SOUND3),A	;(S)
;
	LD	DE,TAKARBD
	LD	B,DTOP0	
	CALL	BLBGST
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$08
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),$FC
;
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	A,(HL)
	LD	(ENHELP),A
	LD	D,B
	CP	GK1
	JR	NZ,TKI0900	;地上鍵１?
;				;YES !
	PUSH	AF
	LD	A,(FKINDX)
	LD	E,A
	LD	HL,ENTIM1
	ADD	HL,DE
	LD	(HL),$38	;ふくろうセット待ち！
	POP	AF
TKI0900
	LD	E,A
	CP	NOT
	JP	NC,TSV058 ;TAKARRT
	CP	KAI
	JR	NZ,TSV003	; Kaigara ?
;				; Yes !
	JP	KAIINC
;	LD	HL,CLC20
;	LD	A,(HL)
;	ADD	A,$01
;	DAA
;	LD	(HL),A
;;
;	JP	SVDTST
TSV003
	CP	C01  ;$04
	JR	C,TSV020
	CP	C50+1  ;$05
	JR	NC,TSV020
TSV012
	LD	HL,COUPD2-$1B  ;CO1  ;$04
	ADD	HL,DE
	LD	A,(HL)
	LD	(COINU2),A
	LD	HL,COUPD1-$1B  ;CO1  ;$04
	ADD	HL,DE
	LD	A,(HL)
	LD	(COINU1),A
;
	LD	A,$18
	LD	(COINWT),A	;メッセージがでるまで待つ！
	JR	SVDTST
;
TSV020
	CP	DMP
	JR	C,TSV030
	CP	SKY+1
	JR	NC,TSV030 ; Danjyon item ?
;				; yes !
;;	PUSH	DE
;
	SUB	DMP
	LD	E,A
	LD	D,$00
	LD	HL,DMAPF	; For display use
	ADD	HL,DE
	INC	(HL)
;
;;	POP	DE
;;;
;;	LD	A,(DNJNNO)
;;	LD	D,A
;;	SLA	D
;;	SLA	D
;;	ADD	A,D	;x5
;;	ADD	A,E
;;	LD	E,A
;;	LD	D,$00
;;;
;;	LD	HL,ITEMB
;;	ADD	HL,DE
;;	INC	(HL)
	CALL	DJITRV	;Display buffer -> Main buffer!
	JR	SVDTST
;
TSV030
	CP	KEN+1
	JR	NC,TSV050	; Slect item ?
;------------------------------------
;	CP	TBO
;	JR	NZ,TSV032	; Yes!
;;
;	LD	HL,TUBOCT
;	LD	A,(HL)
;	ADD	A,$10
;	DAA
;	JR	NC,TBGT10
;	LD	A,$99
;TBGT10
;	LD	(HL),A
;;
;	LD	D,PMGIC
;	CALL	ITEMGETS
;;
;	LD	A,0B
;	LD	(CHTRF2),A
;-----------------------------------
;;	LD	HL,ITEMB
;;	LD	D,12
;;TSV031
;;	LD	A,(HLI)
;;	CP	PMGIC
;;	JR	Z,SVDTST
;;	DEC	D
;;	JR	NZ,TSV031	; Already have ?
;;	JR	TSV035
;				; no !
TSV032
	LD	A,(ENHELP)
	CP	TAT
	JR	NZ,TSV0324	; Yes!
;
	LD	HL,TATLEV
	INC	(HL)
TSV0324
	CP	BUL
	JR	NZ,TSV0325	; Yes!
;
	LD	A,(BULLEV)
	CP	$02
	JR	Z,TSV0325
;
	LD	HL,BULLEV
	INC	(HL)
TSV0325
	LD	A,(ENHELP)
	CP	BMB
	JR	NZ,TSV035	; Yes!
;
	LD	HL,BOMBCT
	LD	A,(HL)
	ADD	A,$01
	DAA
	LD	(HL),A
;
;	LD	HL,ITEMB
;	LD	D,12
;TSV033
;	LD	A,(HLI)
;	CP	PBOMB
;	JR	Z,SVDTST
;	DEC	D
;	JR	NZ,TSV033	; Already have ?
;				; no !
TSV035
	LD	D,B
	LD	HL,ITGTDT
	ADD	HL,DE
	LD	D,(HL)
	CALL	ITEMGET
	JR	SVDTST
TSV050
	LD	HL,ITEMB
	ADD	HL,DE
;;	LD	(HL),$1	; Have !!
	INC	(HL)
TSV058
;- - Save data set - - - -
SVDTST
	CALL	SVDSSB
;
	LD	A,(HL)
	OR	%00010000
	LD	(HL),A
	LD	(DJSVBF),A	; Save data buffer set !
TAKARRT
	RET
;==================================
SVDSSB
	LD	A,(DJFLAG)
	LD	D,A
	LD	HL,GRRMSV
	LD	A,(GRNDPT)
	LD	E,A
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,SVDS11
	CP	DJROOM ;$20
	JR	C,SVDS11
;
	INC	D
SVDS11
;;;;	LD	D,$00
	ADD	HL,DE
	RET
;
;===============================================
;=					       =
;===============================================
BLBGKAI	;かいだん
	DB	$6A,$7A,$6B,$7B
BLBGSP	;ゆか
	DB	$10,$12,$11,$13
BLBGBL	;ブロックBG
	DB	$F8,$F9,$FA,$FB
BLBGHK	;墓BG
	DB	$0E,$1E,$0F,$1F
BLBGGKAI ;地上かいだん！
	DB	$68,$77,$69,$4B
;- - - - - - - - - - - - - - - - - - -
BLOCKIT
	CALL	EPXYCK
;
	LD	D,$00
;
	LD	HL,BLMVXS
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,BLMVYS
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
	CALL	BLOCKMV
;
	CALL	ENBGCK
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,BLS000
;
	JP	ENCLER
BLS000
	LD	A,$11
	LD	(SOUND3),A	;(S)
;
	LD	DE,BLBGGKAI
	LD	B,SINDO	;はか押し！
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,BLBGST
;
	LD	DE,BLBGSP
	LD	B,DTU08
;
	LD	A,(GRNDPT)
	CP	$0C7
	JR	NZ,BLBGST	;リチャード王子部屋？
;				;yes !
	LD	DE,BLBGKAI
	LD	B,DTKD0
BLBGST
	PUSH	DE
	LD	A,B
	PUSH	AF
;
	LD	B,$00
;
	LD	A,(ENSVYL)
	SUB	$10-1
	LD	(OBJYP),A
;
	LD	A,(ENSVXL)
	SUB	$8-1
	LD	(OBJXP),A
;
	SWAP	A
	AND	$0F
	LD	E,A
	LD	A,(OBJYP)
	AND	$F0
	OR	E
	LD	E,A
	LD	D,$0
	LD	HL,BGUNDT+$11
	ADD	HL,DE
;;	LD	A,(WORK0)
	POP	AF
	LD	(HL),A
;	CP	SINDO
;	JR	NZ,UNBGWT	;墓押し？
;;				;YES !
;	LD	A,$01		;階段当たり判定！
;	LD	(EXITFG),A
;	LD	A,(OBJYP)
;	AND	$F0
;	ADD	A,$10
;	LD	(EXITYP),A	
;;
;	LD	A,(OBJXP)
;	AND	$F0
;	ADD	A,$08
;	LD	(EXITXP),A
UNBGWT
	CALL	OBJBG
;
	LD	A,(VRAMD)
	LD	E,A
	LD	D,$00
	LD	HL,VRAMD+1
	ADD	HL,DE
;
	ADD	A,$0A
	LD	(VRAMD),A
;
	POP	DE
;
	LD	A,(VRAMH)
	LD	(HLI),A
	LD	A,(VRAML)
	LD	(HLI),A
	LD	A,$81
	LD	(HLI),A
	LD	A,(DE)
	INC	DE
	LD	(HLI),A
	LD	A,(DE)
	INC	DE
	LD	(HLI),A
;
	LD	A,(VRAMH)
	LD	(HLI),A
	LD	A,(VRAML)
	INC	A
	LD	(HLI),A
	LD	A,$81
	LD	(HLI),A
	LD	A,(DE)
	INC	DE
	LD	(HLI),A
	LD	A,(DE)
	LD	(HLI),A
	XOR	A
	LD	(HL),A
;;	CLC	; For rot beam tourou check !!
	RET
;###############################################
;#					       #
;###############################################
BLOCKCD
	DB	$6E,$00,$6E,$20	;墓！
	DB	$F8,$10,$FA,$10	;ブロック
BLMVXS
	DB	$F8,$08,$00,$00
BLMVYS
	DB	$00,$00,$08,$F8
;
BLOCKMV
	LD	A,(DJFLAG)
	LD	(ENCHPT2),A
	LD	DE,BLOCKCD
	CALL	EN2CST
;
	CALL	ENSTCK
;
	CALL	ENMVCL
;
	CALL	CRBLEN
;
	CALL	CRENPS
	JR	NC,BLM020
;
	CALL	PLPSRV
;
	LD	A,$3
	LD	(PLOSHI),A
BLM020
	LD	A,(GRNDPT)
	CP	$C7
	JR	Z,BLM021	;リチャード部屋？
;			
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,BLM022	;ハカ？
;
BLM021
	LD	A,$02		;YES !
	LD	(PLSTOP),A	;階段出る為プレイヤー止める！
BLM022
	LD	HL,ENCONT
	ADD	HL,BC
;
	LD	A,(HL)
	INC	A
	LD	(HL),A
	CP	$20+1	;5/27
	JR	NZ,BLM090
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),A
;
	CALL	ENBGCK
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
;;	CP	$00  
	AND	A
	JR	Z,BLM090
	CP	EFOLE
	JR	Z,BLM090
;
	CALL	ENCLER
;
	LD	DE,BLBGHK
	LD	B,OHAKA ;	墓復帰？
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,BLM032
;
	LD	DE,BLBGBL
	LD	B,DBL00 ;MV  ;
;
BLM032
	CALL	BLBGST
;
;;	LD	A,(DJSVBF)
;;	AND	%00010000
;;	JR	NZ,BLM090	; Already have ?
;				; no
	LD	A,(NAZOFG)
	AND	%00011111
	CP	$02
	JR	Z,BLM060	; block nazo ?
;;	JR	NZ,BLM022	; block nazo ?
;;				; yes !
;	LD	(NAZOCL),A	; Nazo clear flag !
;	RET
;BLM022
	CP	$7
	JR	NZ,BLM090	; Hit block vs block ?
;				; yes !
	CALL	ENBGCK
	LD	A,(ENBGLR)
	CP	DBLMV
	JR	Z,BLM060
	CP	DBL00
	JR	NZ,BLM090
;	
BLM060
;	LD	A,$01
;	LD	(NAZOCL),A	; Nazo clear flag !
	CALL	NAZOCLR	;(S)
BLM090
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				      %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRBLEN
	LD	E,ENNO-1
	LD	D,B ;$00
BLE000
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	CP	EMOVE
	JR	C,BLE010
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%01000000
	JR	NZ,BLE010
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(ENSVXL)
	SUB	(HL)
	ADD	A,$0C
	CP	$18
	JR	NC,BLE010
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENZPSL
	ADD	HL,DE
	SUB	(HL)
;
	LD	HL,ENDSYP
;;;	LD	A,(ENSVYL)
	SUB	(HL)
	ADD	A,$0C
	CP	$18
	JR	NC,BLE010
;----------------------------------------
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%00100000
	JR	NZ,BLE010	; Item ?
;				; NO,
	PUSH	BC
	PUSH	DE
	POP	BC
;
	PUSH	DE
	LD	A,$08
	CALL	ENHNST
	POP	DE
;
	POP	BC
BLE010
	DEC	E
	LD	A,E
	CP	$FF
	JP	NZ,BLE000
	RET
;###############################################
;#	対話的人物試験処置		       #
;###############################################
MSTESFMV
;	LD	A,$01
;	LD	(WORKA),A
;;
;	LD	DE,JIJIICD
;	CALL	EN2CST
;;
;	CALL	EPXYCK
;;
;	LD	A,(FRCNT)
;	AND	$1F
;	JR	NZ,MST1
;;
;	LD	A,E
;	LD	HL,ENMUKI
;	ADD	HL,BC
;	LD	(HL),A
;MST1
;	CALL	MKPTST
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,MD00F0
;;
;	LD	A,$29   ; 対話号番
;	CALL	MSGCHK
;;
;MD00F0
;;
;	RET
;###############################################
;#					       #
;###############################################
;###############################################
;#					       #
;###############################################
MSTESEMV
;	LD	DE,BOSS1CD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	LD	A,(ENSTAT2)
;	RST	0
;	DW	ME0000
;	DW	ME1000
;	DW	ME2000
;;=======================================
;ME0000
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,ME0090
;
;	LD	A,$18	; 対話号番
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;ME0090
;	RET
;;=======================================
;ME1000
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,ME1090
;;
;	LD	A,(MSANSR)
;	CP	$02
;	JR	Z,ME2000	; cancel !
;;
;	ADD	A,$19
;	CP	$19
;	JR	NZ,ME1222
;;
;	LD	A,(COINC1)
;	CP	$02
;	JR	C,ME1111
;;
;	LD	A,$03
;	LD	(DMAPF),A
;;
;	LD	A,$C8
;	LD	(COIND2),A
;;
;	LD	A,$23
;	JR	ME1222
;ME1111	
;	LD	A,$19
;ME1222
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;ME1090
;	RET
;;=======================================
;ME2000
;	CALL	STATCLR	; 終劇．
;	RET
;###############################################
;#					       #
;###############################################
MSTESDMV
;	LD	DE,BOSS1CD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,MD0090
;;
;	LD	A,$17   ; 対話号番
;	CALL	MSGCHK
;;
;MD0090
;;
;	RET
;###############################################
;#					       #
;###############################################
MSTESCMV
;	LD	DE,SKEL0CD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,MC0090
;;
;	LD	A,$16   ; 対話号番
;	CALL	MSGCHK
;;
;MC0090
;;
;	RET
;###############################################
;#					       #
;###############################################
MSTESBMV
;	LD	DE,SKEL0CD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,MB0090
;;
;	LD	A,$15   ; 対話号番
;	CALL	MSGCHK
;;
;MB0090
;;
;	RET
;###############################################
;#					       #
;###############################################
MSTESAMV
;	LD	DE,CHUNLICD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,MA0090
;;
;	LD	A,$14   ; 対話号番
;	CALL	MSGCHK
;;
;MA0090
;;
;	RET
;###############################################
;#					       #
;###############################################
MSTES9MV
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M90090
;;
;	LD	A,$13   ; 対話号番
;	CALL	MSGCHK
;;
;;;;;	LD	A,$20
;;;;;	LD	(COIND2),A
;M90090
;;
;	RET
;###############################################
;#					       #
;###############################################
;###############################################
;#					       #
;###############################################
MSTES8MV
;	LD	DE,BABULCD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M80090
;
;	LD	HL,ENWRK0
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JR	Z,M80700
;;
;	LD	A,$40
;	LD	(COIND2),A
;;
;	LD	A,$22   ; 対話号番
;	JR	M80800
;
;M80700
;	LD	A,$32
;	LD	(COINU2),A
;;
;	LD	A,$12   ; 対話号番
;;
;M80800
;	CALL	MSGCHK
;
;	LD	HL,ENWRK0
;	ADD	HL,BC
;	INC	(HL)
;;
;M80090
;;
;	RET
;###############################################
;#					       #
;###############################################
;###############################################
;#					       #
;###############################################
;MSTES7MV
;	LD	DE,SKEL0CD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M70090
;;
;	LD	A,(NAZOCL)
;	AND	A
;	LD	A,$11   ; 対話号番
;	JR	Z,M70080
;	LD	A,$1B
;M70080
;	CALL	MSGCHK
;;
;M70090
;;
;	RET
;###############################################
;#					       #
;###############################################
;MSTES6MV
;	LD	DE,MOTOSCD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	LD	A,(ENSTAT2)
;	RST	0
;	DW	M60000
;	DW	M61000
;	DW	M62000
;;=======================================
;M60000
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M60090
;;
;	LD	A,$0E	; 対話号番
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;M60090
;	RET
;;=======================================
;M61000
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,M61090
;;
;	LD	A,(MSANSR)
;	CP	$02
;	JR	Z,M62000	; cancel !
;	ADD	A,$F
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;M61090
;	RET
;;=======================================
;M62000
;	CALL	STATCLR	; 終劇．
;	RET
;###############################################
;#					       #
;###############################################
MSTES5MV
;	LD	DE,BOSS1CD
;	CALL	EN2CST
;;
;	LD	A,(WORKA)
;	AND	A
;	JR	NZ,M50090
;;
;	CALL	EPXYCK
;;
;	LD	A,(FRCNT)
;	AND	$1F
;	JR	NZ,MSTE050
;;
;	LD	A,E
;	LD	HL,ENMUKI
;	ADD	HL,BC
;	LD	(HL),A
;MSTE050
;	CALL	MKPTST
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M50090
;;
;	LD	A,$0C	; 対話号番
;	CALL	MSGCHK
;;;
;;;;	CALL	EPXYCK      ;
;   ;                        ;
;;;;	LD	HL,ENMUKI   ;
;;;;	ADD	HL,BC       ;
;;;;	LD	(HL),A      ;
;   ;                        
;;;;	LD	A,SONIC     ;
;;;;	CALL	ENBMST      ;
;;;;	JR	C,M50090    ;
;;
;;;;	LD 	A,(WORK2)   ;
;;;;	LD	HL,ENCHPT   ;
;;;;	ADD	HL,DE       ;
;;;;	LD	(HL),A      ;
;;
;M50090
;;
;	RET
;###############################################
;#					       #
;###############################################
MSTES4MV
;	LD	DE,SLIMBCD
;	CALL	EN2CST
;;
;	LD	A,(FRCNT)
;	RRA
;	RRA
;	RRA
;	RRA
;	AND	$01
;;
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;;
;	CALL	MSCROS	; 障害物的衝突試験
;;
;	LD	A,(ENSTAT2)
;	RST	0
;	DW	M40000
;	DW	M41000
;	DW	M42000
;;=======================================
;M40000
;	CALL	ENMSCK	; 対話的衝突試験
;	JR	NC,M40090
;;
;	LD	A,$09	; 対話号番
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;M40090
;	RET
;;=======================================
;M41000
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,M41090
;;
;	LD	A,(MSANSR)
;	CP	$02
;	JR	Z,M42000	; cancel !
;	ADD	A,$A
;	CALL	MSGCHK
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;;
;	LD	A,$01
;	LD	(COIND2),A
;;
;M41090
;	RET
;;=======================================
;M42000
;	CALL	STATCLR	; 終劇．
;	RET
;###############################################
;#	メッセージテスト！		       #
;###############################################
;;===========================================
;M2ADDD
;	DB	$00,$01,$FF
;M2ADD2
;	DB	$00,$10,$F0
;GIRL0MV
;MSTES6MV
;TANABEMV
;	LD	DE,CHUNLICD
;	LD	A,(DJFLAG)
;	AND	A
;	JR	NZ,MST001
;;
;	LD	DE,MORI1CD
;MST001
;	CALL	EN2CST
;	CALL	EPXYCK
;;
;	LD	A,(FRCNT)
;	AND	$1F
;	JR	NZ,M2T0D0
;;
;	LD	A,E
;	LD	HL,ENMUKI
;	ADD	HL,BC
;	LD	(HL),A
;M2T0D0
;	CALL	MKPTST
;	CALL	MSCROS
;
;;;	LD	A,(ENSTAT2)
;;;	RST	0
;;	DW	M20000
;;	DW	M21000
;;	DW	M22000
;;	DW	M23000
;;M20000
;;TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
;;	LD	A,(NAME)
;;	CP	$00
;;	JR	NZ,M200002
;;
;	LD	A,$01
;	LD	(CHTRFG),A
;	LD	(PLSTOP),A
;;
;	LD	A,(KEYA2)
;	AND	$03
;	LD	E,A
;	LD	D,B
;	LD	HL,M2ADDD
;	ADD	HL,DE
;	LD	A,(MSTNO)
;	PUSH	AF
;	ADD	A,(HL)
;	AND	$0F
;	LD	E,A
;	POP	AF
;	AND	$F0
;	OR	E
;	LD	(MSTNO),A
;;
;	LD	A,(KEYA2)
;	RRA
;	RRA
;	AND	$03
;	LD	E,A
;	LD	D,B
;	LD	HL,M2ADD2
;	ADD	HL,DE
;	LD	A,(MSTNO)
;	ADD	A,(HL)
;	LD	(MSTNO),A
;;
;;;	CALL	ENMSCK
;;;	JR	NC,M20010
;;
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,M20010
;;
;	LD	A,(KEYA2)
;	AND	%00010000
;	JR	Z,M2000X
;;
;	LD	A,(MSTNO)
;	JP	MSGCHK
;M2000X
;	LD	A,(KEYA2)
;	AND	%00100000
;	JR	Z,M20010
;;
;	LD	A,(MSTNO)
;	JP	MSGCH2
;M20010
;	RET
;TTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTTT
;M200002
;	CALL	ENMSCK
;	JR	NC,M20010
;	LD	A,(DJFLAG)
;	AND	A
;	JR	NZ,M20001
;;
;	LD	A,$00
;	JP	MSGCHK
;M20001
;	LD	A,(HARTMX)
;	CP	$07
;	JR	NC,M20003
;;
;	LD	A,(DJSVBF)	; Save data buffer set !
;	AND	%00010000
;	LD	A,$54
;	JR	Z,M20008
;M20003
;	LD	A,$55
;;
;;	LD	HL,ENWRK3
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	INC	(HL)
;;	ADD	A,$90
;;
;M20008
;	CALL	MSGCHK
;;
;	CALL	STATINC
;M20010
;	RET
;===========================================
;M21000
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,M21010
;
;	LD	A,(HARTMX)
;	CP	$07
;	JR	NC,M21020
;;
;	LD	A,(DJSVBF)
;	AND	%00010000
;	JR	NZ,M21020
;;
;	CALL	LDTIM0
;	LD	(HL),$70
;;
;	LD	A,$01
;	LD	(SOUND1),A	;(S)
;;
;	CALL	STATINC
;M21010
;	RET
;M21020
;	CALL	STATINC
;	LD	(HL),B
;	RET
;;===========================================
;KENCD
;	DB	$84,$10
;	DB	$86,$10
;;
;M22000
;	CALL	LDTIM0
;	JP	Z,STATINC
;	CP	$01
;	JR	NZ,M22010
;;
;	LD	A,(GRNDPT)
;	CP	$A3
;	JR	NZ,M22008
;;
;	LD	D,PTATE
;;;	LD	(ITEMB),A
;	CALL	ITEMGET
;;
;	LD	A,$01
;	LD	(TATLEV),A
;	JR	M2200A
;;
;M22008
;	LD	D,PKEN
;	CALL	ITEMGET
;;;	LD	(ITEMB),A
;;
;	LD	A,$01
;	LD	(KENLEV),A
;;
;M2200A
;	CALL	SVDTST
;;
;	RET
;;	JP	BGMSET
;M22010
;	LD	A,(PLXPSL)
;	LD	(ENSVXL),A
;	LD	A,(PLYPSL)
;	SUB	$0C
;	LD	(ENDSYP),A
;;
;	LD	A,(GRNDPT)
;	CP	$A3
;	LD	A,$00
;	JR	NZ,M22012
;	INC	A
;M22012
;	LD	(ENCHPT2),A
;
;	LD	DE,KENCD
;	CALL	EN1CST
;;
;	CALL	ENPSSV
;;
;	JP	JYANPS	; Player pause set !
;;
;;===========================================
;M23000
;	RET
;
;
;
;CHUNLIMV
;	LD	DE,CHUNLICD
;	CALL	EN2CST
;	JR	MST010
;
;
;MSTESTMV
;	LD	DE,MORI1CD
;	CALL	EN2CST
;MST010
;	CALL	EPXYCK
;;
;MST022
;	LD	A,(FRCNT)
;	AND	$1F
;	JR	NZ,MST0D0
;;
;	LD	A,E
;	LD	HL,ENMUKI
;	ADD	HL,BC
;	LD	(HL),A
;MST0D0
;	CALL	MKPTST
;;
;MST0D8
;	CALL	MSCROS
;
;	LD	A,(ENSTAT2) ;HL)
;	RST	0
;	DW	MS1000
;	DW	MS2000
;	DW	MS3000
;;==========================================
;MS1000
;	CALL	ENMSCK
;	JR	NC,MST0090
;;
;	LD	A,(ENMYNO2)
;	CP	HINTO
;	JR	NZ,MST0058
;;
;	LD	A,(PENDF)
;	AND	A
;	LD	A,$10
;	JR	Z,NST000	;ペンダント持っている？
;;				; yes !
;	LD	A,(DNJNNO)
;	ADD	A,$08
;NST000
;	CALL	MSGCH2
;	RET
;MST0058
;;	CP	MSTES2
;;	JR	NZ,MST0060
;
;	LD	A,$4
;	CALL	MSGCHK
;
;	LD	E,ENNO
;	LD	D,$00
;M2S008
;	LD	HL,ENMODE
;	ADD	HL,DE
;	LD	A,(HL)
;	AND	A
;	JR	Z,M2S010
;;
;	LD	HL,ENMOD0
;	ADD	HL,DE
;	LD	A,(HL)
;	AND	%00100000
;	JR	Z,M2S010
;;
;	LD	HL,ENWRK2
;	ADD	HL,DE
;	LD	A,(HL)
;	AND	A
;	JR	NZ,M2S010
;;
;	LD	A,(SPEKFG)
;	AND	A
;	LD	A,$04
;	JR	Z,M2S010
;;
;	INC	A
;;
;	PUSH	AF		;
;;				;
;	LD	A,$48		;
;	LD	(HARTDW),A	;
;;				;
;	POP	AF		;
;
;M2S010
;	CALL	MSGCHK
;	RET
;M2S010
;	DEC	E
;	LD	A,E
;	CP	$FF
;	JR	NZ,M2S008
;
;	RET
;MST0060
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;;
;	LD	A,$0
;	CALL	MSGCHK
;MST0090
;	RET
;;==========================================
;MS2000
;	LD	A,(MSGEFG)
;	AND	A
;	JR	NZ,MS2010
;;
;	LD	HL,ENSTAT
;	ADD	HL,BC
;	INC	(HL)
;;
;	LD	A,(MSANSR)
;	CP	$02
;	JR	Z,MS3000  ; Cansel ?
;	ADD	A,$1		; no !
;	CALL	MSGCHK2
;;
;MS2010
;	RET
;==========================================
;MS3000
;STATCLR
;	CALL	STATINC
;	LD	(HL),B
;;	XOR	A
;;	LD	HL,ENSTAT
;;	ADD	HL,BC
;	LD	(HL),A
;	RET
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;MSCROS
;	CALL	CRENPS
;	JR	NC,MS20E0
;;
;	CALL	PLPSRV
;;
;	CALL	DUSHCL
;;
;	LD	A,(PFUCKID)
;	AND	A
;	JR	Z,MS20D0
;	
;	LD	E,A
;	LD	D,B
;	LD	HL,ENMYNO-1
;	ADD	HL,DE
;	LD	A,(HL)
;	CP	FUCKS
;	JR	NZ,MS20D0
;;
;	LD	HL,ENSTAT-1	; Fuck return
;	ADD	HL,DE
;	LD	(HL),$00
;MS20D0
;	SCF
;	RET	
;MS20E0
;	AND	A
;	RET
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;ENMSCK
;	LD	A,(PLXPSL)
;	LD	HL,ENSVXL
;	SUB	(HL)
;	ADD	A,$10
;	CP	$20
;	JR	NC,EMC080
;;
;	LD	A,(PLYPSL)
;	LD	HL,ENSVYL
;	SUB	(HL)
;	ADD	A,$14
;	CP	$28
;	JR	NC,EMC080
;;
;	CALL	EPXYCK
;	LD	A,(PLCMKI)
;	XOR	$01
;	CP	E
;	JR	NZ,EMC080
;;
;	LD	HL,MSCRFG
;	INC	(HL)
;;
;	LD	A,(MSGEFG)
;	LD	HL,WNDFLG
;	OR	(HL)	;AND	A
;	LD	HL,MSOFTM
;	OR	(HL)	;AND	A
;	JR	NZ,EMC080
;
;	LD	A,(WNDYPS)
;	CP	$80
;	JR	NZ,EMC080
;;
;	LD	A,(KEYA2)
;	AND	%00010000
;	JR	Z,EMC080
;
;	SCF
;	RET
;EMC080
;	AND	A	; (C) reset !
;	RET
;###############################################
;#					       #
;###############################################
;- - - - - - - - - - - - - - - - - -
;- - - - - - - - - - - - - - - - - -
;- - - - - - - - - - - - - - - - - -
KTISCD
	DB	$16,$00
;
KTOBJMV
	LD	A,C
	LD	(KTINDX),A
;	LD	HL,ENWRK2
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JR	Z,KO0090	; Ishi hahen ?
;;				; yes !
;	LD	DE,KTISCD
;	CALL	EN1CST
;;
;	CALL	ENSTCK
;;
;	CALL	ENMVCL
;	CALL	ENZCLC
;	LD	HL,ENZSPD
;	ADD	HL,BC
;	DEC	(HL)
;	DEC	(HL)
;;
;	LD	HL,ENZPSL
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	%10000000
;	JR	Z,KO0020
;;
;	CALL	ENCLER
;KO0020	
;	RET
;==========================================
KO0090
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM1
	LD	(WORK0),A
;;;	AND	A
	JP	Z,KOM010
;
	CP	$1
	JR	NZ,KOM008
;
	LD	HL,ENWRK4
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,KOM002	;シゲミン草？
;				;YES !
	CALL	RNDSUB		;ランダム妖精セット！
	AND	$03
	JR	NZ,KOM002
;
	LD	A,YOSEI
	CALL	ENIDSH
	JR	C,KOM002
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK3)
	LD	HL,ENZPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENTIM3
	ADD	HL,DE
	LD	(HL),$80 ;A
KOM002
	LD	A,(ENCHPT2)
	AND	A
	JR	NZ,KTO0111	;壷？
;				
	LD	A,(DNJNNO)
	CP	$1E
	JR	Z,KOM003
	CP	$10 ;DJMAX
	JR	NZ,KTO0111
;
KOM003
	LD	A,(MARINFG)	;yes!
	AND	A
	JR	Z,KTO0111	
;
	CALL	RNDSUB
	AND	$3F
	JR	NZ,KTO011M
;
	LD	A,$28
	CALL	MSGCHK	;マリンおこる！
	JP	ENCLER
KTO011M
	LD	A,$99
	CALL	MSGCH2	;マリンおこる！
KTO0111
	JP	ENCLER
;----------------------------------------
KOM008
	CALL	KTFLCSL
	RET
;------------------------------------------------
KTOBJCD
	DB	$F0,$10,$F2,$10
	DB	$F4,$10,$F6,$10
KOM010
	LD	DE,KTOBJCD
	CALL	EN2CST
;
	CALL	ENSTCK
;
;;;	CALL	ENMVCL
	LD	A,$B
	LD	(ATCKNO),A
	CALL	CRENEN
;;	CALL	ENBGCK
	CALL	ENBDCL
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	CP	EFOLE
	JP	Z,KTO090
;
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,KTO010
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,KTO090
;
	CALL	SHBUTCK	;シャッター(なぞ）にぶつけたか？
;;	JR	NC,KTO010
;;;
;;	CALL	NAZOCLR	;(S)	; YES !
;========================================
KTFLST
KTO010
;	PUSH	DE
;
;;	LD	HL,ENCHPT
;;	ADD	HL,BC
;L	LD	A,(ENCHPT2) ;HL)
;L	CP	$01
;L	JR	NZ,ISIBRK
;
	LD	HL,SOUND3
	LD	(HL),$05	;(S)
;
;
	LD	E,$1F	; Kusa break time
;
	LD	A,(ENCHPT2)
	CP	$FF
	JR	Z,KFSS10
	CP	$01
	JR	Z,KFSS10
;
;;	LD	HL,SOUND3
	LD	(HL),$09	;(S)
;
	LD	E,$0F	; Ishi break time 
KFSS10
	LD	HL,ENTIM1
	ADD	HL,BC
	LD	(HL),E  ;$1F
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	ADD	A,$2
	LD	(HL),A
;
;	LD	A,OCTAM
;	LD	HL,ENMYNO
;	ADD	HL,BC
;	LD	(HL),A
;;
;	LD	HL,ENZPSL
;	ADD	HL,BC
;	LD	A,(HL)
;	PUSH	AF
;	PUSH	HL
;;
;	CALL	ENMDST
;;
;	POP	HL
;	POP	AF
;	LD	(HL),A
;;
;	LD	HL,ENTIM0
;	ADD	HL,BC
;	LD	A,$FF
;	LD	(HL),A
;;
;	POP	DE
KTO090
	RET
;=============================================
ISIBRK
	LD	A,KTOBJ
	CALL	ENIDSH
	JR	C,ISB090
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,WORK3
	SUB	(HL)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	(HL),$00
;
	LD	HL,ENTIM1
	ADD	HL,DE
	LD	(HL),$0F
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	(HL),%11000100
;
	LD	A,$09
	LD	(SOUND3),A	;(S)
;
	CALL	ENCLER
ISB090
	RET
; - - - - - - - - - - - - -
;ISBXAD
;	DB	$00-4,$08-4,$00-4,$08-4
;ISBYAD
;	DB	$00-4,$00-4,$08-4,$08-4
;ISBXSD
;	DB	$FC,$04,$FC,$06
;ISBYSD
;	DB	$FC,$FE,$06,$03
;ISBZSD
;	DB	$14,$16,$13,$12
;;- - - - - - - - - - - - - - - - - - - - -
;ISIBRK
;	LD	E,$3
;	LD	D,B
;ISB010
;	PUSH	DE
;	LD	HL,WORKF
;	LD	(HL),E
;;
;	LD	A,KTOBJ
;	CALL	ENIDSH
;	JR	C,ISB090
;;
;	PUSH	BC
;;
;	LD	A,(WORKF)
;	LD	C,A
;;
;	LD	A,(WORK0)
;	LD	HL,ISBXAD
;	ADD	HL,BC
;	ADD	A,(HL)
;	LD	HL,ENXPSL
;	ADD	HL,DE
;	LD	(HL),A
;;
;	LD	A,(WORK1)
;	LD	HL,ISBYAD
;	ADD	HL,BC
;	ADD	A,(HL)
;	LD	HL,WORK3
;	SUB	(HL)
;	LD	HL,ENYPSL
;	ADD	HL,DE
;	LD	(HL),A
;;
;	LD	HL,ISBXSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENXSPD
;	ADD	HL,DE
;	LD	(HL),A
;	LD	HL,ISBYSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENYSPD
;	ADD	HL,DE
;	LD	(HL),A
;	LD	HL,ISBZSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENZSPD
;	ADD	HL,DE
;	LD	(HL),A
;;
;	LD	HL,ENWRK2
;	ADD	HL,DE
;	LD	(HL),$01
;
;	LD	HL,ENMOD0
;	ADD	HL,DE
;	LD	(HL),%11000001
;;
;	POP	BC
;ISB090
;	POP	DE
;	DEC	E
;	LD	A,E
;	CP	$FF
;	JR	NZ,ISB010
;;
;	CALL	ENCLER
;;
;	RET
;=====================================
SHBUTCK
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,SHBC90
;
	LD	A,(NAZOFG)
	AND	%00011111
	CP	$0D
	JR	NZ,SHBC10	;宝箱にぶつける謎？
;				; YES !
	LD	A,(ENBGLR)
	CP	DTRE0
	JR	Z,SHBC08
	LD	A,(ENBGUD)
	CP	DTRE0
	JR	NZ,SHBC90
SHBC08
	LD	A,$30
	LD	(OBJXP),A
	LD	A,$20
	LD	(OBJYP),A
;
	LD	A,BKY
	LD	(WORK8),A
	CALL	TAKARSTL
	JP	NAZOCLR	;(S)
;--------------------------------------
SHBC10
	CP	$0B
	JR	NZ,SHBC90	;シャッターぶつけ謎？
;				; YES !
	LD	A,(ENBGUD)
	CP	DSHI0
	JR	C,SHBC90
	CP	DSHI7+1
	JR	C,SHBC80
;
SHBC70
	LD	A,(ENBGLR)
	CP	DSHI0
	JR	C,SHBC90
	CP	DSHI7+1
	JR	NC,SHBC90
SHBC80
;;	SCF
	CALL	NAZOCLR		;(S)
;;;	RET
SHBC90
;;;	AND	A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENFLCD
	DB	$32,$00,$32,$60
KEMRICD
	DB	$30,$00,$30,$60
;ENFLBCD
;	DB	$F8,$F8,$3E,$00
;	DB	$10,$F8,$3E,$00
;	DB	$F8,$10,$3E,$00
;	DB	$10,$10,$3E,$00
ENFLSCD
;0
	DB	$00,$00,$3C,$00
	DB	$00,$08,$3C,$20
	DB	$FF,$FF,$FF,$FF
	DB	$FF,$FF,$FF,$FF
;1
	DB	$00,$00,$3A,$00
	DB	$00,$08,$3A,$20
	DB	$FF,$FF,$FF,$FF
	DB	$FF,$FF,$FF,$FF
;2
	DB	$FA,$FA,$3A,$00
	DB	$FA,$02,$3A,$20
	DB	$06,$06,$3A,$00
	DB	$06,$0E,$3A,$20
;3
	DB	$04,$FC,$30,$00
	DB	$04,$04,$30,$20
	DB	$FC,$04,$30,$00
	DB	$FC,$0C,$30,$20
;;4
;	DB	$00,$00,$30,$00
;	DB	$00,$08,$30,$20
;	DB	$FF,$FF,$FF,$FF
;	DB	$FF,$FF,$FF,$FF
ENFLBCD
;;0
;	DB	$00,$00,$3A,$00
;	DB	$00,$08,$3A,$20
;	DB	$FF,$FF,$FF,$FF
;	DB	$FF,$FF,$FF,$FF
;;1
;	DB	$F8,$F8,$3A,$00
;	DB	$F8,$00,$3A,$20
;	DB	$08,$08,$3A,$00
;	DB	$08,$10,$3A,$20
;;2
;	DB	$08,$F8,$3A,$00
;	DB	$08,$00,$3A,$20
;	DB	$F8,$08,$3A,$00
;	DB	$F8,$10,$3A,$20
;;3
;	DB	$00,$00,$30,$00
;	DB	$00,$08,$30,$20
;	DB	$FF,$FF,$FF,$FF
;	DB	$FF,$FF,$FF,$FF
;0
	DB	$00,$00,$3A,$00
	DB	$00,$08,$3A,$20
	DB	$FF,$FF,$FF,$FF
	DB	$FF,$FF,$FF,$FF
;1
	DB	$F8,$F8,$3A,$00
	DB	$F8,$00,$3A,$20
	DB	$08,$08,$3A,$00
	DB	$08,$10,$3A,$20
;2
	DB	$08,$F8,$3A,$00
	DB	$08,$00,$3A,$20
	DB	$F8,$08,$3A,$00
	DB	$F8,$10,$3A,$20
;3
	DB	$F8,$F8,$10,$00
	DB	$F8,$00,$12,$00
	DB	$F8,$08,$12,$20
	DB	$F8,$10,$10,$20
	DB	$08,$F8,$10,$40
	DB	$08,$00,$12,$40
	DB	$08,$08,$12,$60
	DB	$08,$10,$10,$60
;---------------------------------------------
ENFAIL
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%10000000
	JR	Z,EF0090
;
	JP	ENMOVE
EF0090
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	Z,ENFEND
;
	PUSH	AF
;
	LD	HL,ENHNMD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENFLSCD
	AND	A
	JR	Z,EF00901
;
	LD	HL,ENFLBCD
EF00901
	POP	AF
;
	CP	$20
	JR	NC,ENFL10
;;	RRA
;;	RRA
;;	RRA
;;	AND	$03
;;	RLA
;;	RLA
;;	RLA
	RLA
	AND	%00110000
	LD	E,A
	LD	D,B
;;	LD	HL,ENFLBCD
	ADD	HL,DE
;
	CP	%00110000
	JR	NZ,EFBIGCK
;
	PUSH	HL
	LD	HL,ENHNMD
	ADD	HL,BC
	LD	A,(HL)
	POP	HL
	AND	A
	JR	NZ,EFBIG3
;
EFBIGCK
	LD	C,$04
	CALL	ENOMST
;
;;	LD	A,$04
;;	CALL	NXOMSB
	JR	ENFL0A
;
EFBIG3
	LD	C,$08
	CALL	ENOMST
;
	LD	A,$08-4
	CALL	NXOMSBL
	JR	ENFL0A
;
EF0091
;	LD	HL,ENTIM4
;	ADD	HL,BC
;	LD	A,(HL)
;	POP	AF
;	AND	A
;	JP	Z,ENFEND
;;
;	CP	$10
;	JR	NC,ENFL10
;	CP	$0F
;	JR	NZ,ENFL111
;;
;	LD	HL,SOUND1	;(S)
;	LD	(HL),$06
;ENFL111
;	SRL	A
;	SRL	A
;	SRL	A
;	CALL	ENPTST
;;
;	LD	DE,ENFLCD
;	CALL	EN2CST
;;------------------------
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$00
;	JR	NZ,ENFL0A
;;
;	LD	HL,ENHNMD
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JR	Z,ENFL0A
;;
;	LD	HL,ENMOD0
;	ADD	HL,BC
;	LD	(HL),%11000100
;;
;	LD	HL,ENFLBCD
;	LD	C,$4
;;
;	CALL	ENOMST
ENFL0A
	CALL	ENSTCK
	CALL	ENHNSB
	RET
ENFL10
	CALL	ENMOVEL	; Only chr set
	CALL	ENSTCK2
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,ENFL11
;
;	LD	HL,ENHNMD
;	ADD	HL,BC
;	LD	A,(HL)
;
	LD	HL,ENTIM4
	ADD	HL,BC
;	LD	(HL),$10
;	AND	A
;	JR	Z,ENFL11	;Hi power ?
;				;yes !
	LD	(HL),$1F
;
	LD	A,(POWRFG)
;;	AND	A
	CP	$01
	JR	NZ,ENFL0C
;
	LD	A,$12
	LD	(SOUND2),A	;(S)
;;	LD	HL,SOUND1	;(S)
;;	LD	(HL),$06
;;	JR	ENFL11
;
ENFL0C
	LD	HL,SOUND3	;(S)
	LD	(HL),$13
ENFL11
	CALL	ENHNSB
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	敵やられアイテムセット	   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;;	0:00%  1:25%Rupy  2:50%Rupy  3:50%Heart 4:Heart100%
;;	5:25%Alow 6:25%heart 7:25%randam 8:50%randam 9:fairy50%
;;	A:100%Alow B:Bomb100% C:Rupy100% D:Fairy25% E:100%fairy
ITMSNO
	DB	RUPY1,RUPY1,HART1,HART1
	DB	ALOW1,HART1,$FF,$FF
	DB	YOSEI,ALOW1,BOMB1,RUPY1,YOSEI,YOSEI
ITMSTD
	DB	$03,$01,$01,$00
	DB	$03,$03,$03,$03
	DB	$01,$00,$00,$00,$03,$00
ITMSTD2
	DB	$01,$01,$01,$00
	DB	$01,$01,$01,$01
	DB	$01,$00,$00,$00,$01,$00
ITRNDDT
	DB	RUPY1
	DB	HART1
	DB	BOMB1
	DB	YOSEI
	DB	RUPY1
	DB	HART1
	DB	BOMB1
	DB	ALOW1
;- - - - - - - - - - - - - - - - - - -
ENITMS
	LD	A,(ENMYNO2)
	CP	LAIKU
	JR	NZ,EITS010
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,EITS010
;
	LD	A,PLTAT
	JP	EITS020
;
EITS010
;	CP	GHOST
;	JR	Z,EITS12
;	CP	GHOSS
;	JR	Z,EITS12
;	CP	GHOSB
;	JR	NZ,EITS18
;;
;EITS12
;	LD	HL,ENWRK2
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JP	Z,RPS090	; Zenmetsu ?
;;				; yes !
;	CALL	RNDSUB		; All item set !
;	AND	$3
;	INC	A
;	LD	E,A
;	LD	D,B
;	JR	EITS1A
;- - - - - - - - - - - - - - - -
EITS18
	LD	HL,ENITMF
	ADD	HL,BC
	LD	A,(HL)
	CP	$FF
	RET 	Z
	AND	A
	JP	NZ,EITS020	;強制アイテムセット
;
	LD	A,(ENFLCT2)
	INC	A
	LD	(ENFLCT2),A	;守りの木のみセットカウント！
;;	CP	$08
	CP	12
	JR	C,KIMIS10
;
	XOR	A
	LD	(ENFLCT2),A
;
	LD	A,(BOSSFG)
	LD	HL,POWRFG
	OR	(HL)
	LD	HL,YKFLAG
	OR	(HL)
	JR	NZ,KIMIS10	;ボスへや or 横画面？
;
	LD	A,KINOM		;木のみ！
	JP	EITS020
;
KIMIS10
	LD	HL,ENMOD2
	ADD	HL,BC
	LD	D,B
	LD	E,(HL)
	LD	HL,ITSTDT
	ADD	HL,DE
	LD	A,(HL)
	AND	A
;;	JP	Z,RPS090	; Item set ok ?
	RET	Z
;				; yes !
	LD	E,A
;
	LD	D,30
	LD	A,(HARTMX)
	CP	07
	JR	C,EFE091
	LD	D,35
	CP	11
	JR	C,EFE091
	LD	D,40
EFE091
	LD	HL,ENFLCT	; All fail counter for level up !
	INC	(HL)
	LD	A,(HL)
	CP	D
	JR	C,EFE0911
;
	LD	(HL),B
;
	LD	A,(BOSSFG)
	LD	HL,YKFLAG
	OR	(HL)
	LD	HL,POWRFG
	OR	(HL)
	JR	NZ,EFE0911	;ボスへや or 横画面？
;				;NO
	LD	A,POWER	;POWER CHIP SET!
	JR	EITS020
EFE0911
	LD	D,B
	LD	HL,ITMSTD-1
	LD	A,(PINCHFG)
	AND	A
	JR	Z,EFE0912
	LD	HL,ITMSTD2-1
EFE0912
	ADD	HL,DE
;;	LD	A,(HL)
;;	CP	$04
;;	JR	Z,EITS1A	; 100%
	CALL	RNDSUB
	AND	(HL)
;;	JR	NZ,RPS090	; 確立当たり？
	RET	NZ
;               		；　ｙｅｓ
;
EITS1A
	LD	HL,ITMSNO-1
	ADD	HL,DE
	LD	A,(HL)
	CP	$FF
	JR	NZ,EITS020
;
	CALL	RNDSUB
	AND	$07
	LD	E,A
	LD	D,B
	LD	HL,ITRNDDT
	ADD	HL,DE
	LD	A,(HL)
EITS020
	CALL	ENIDSH
;;	JR	C,RPS090
	RET	C
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENWRK0	; For PLTAT level !!
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
;;	LD	A,$80
	LD	HL,ENTIM3
	ADD	HL,DE
	LD	(HL),$80 ;A
;
	LD	HL,ENTIM1
	ADD	HL,DE
	LD	(HL),$18	;Hit protect !
;
	LD	HL,ENTIM4
	ADD	HL,DE
	LD	(HL),$03 ;A	; Water up protect !
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,ITMS10
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	KEYSM
	JR	NZ,KSS010	;地上鍵！
;
	LD	A,(ENMYNO2)
	CP	NOMOS
	JR	NZ,KSS010
;
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	(HL),$03
;;	LD	(HL),$04
KSS010
	CP	KAKIN
	JR	NZ,ITMS0C
;
	LD	A,(GRNDPT)
	CP	$58
	JR	Z,ITMS0BB
	CP	$5A
	JR	NZ,ITMS0C
;
ITMS0BB
	PUSH	BC
	PUSH	DE
	PUSH	DE
	POP	BC
;
	LD	A,$10
	CALL	PSERCH
;
	POP	DE
	POP	BC
ITMS0C
	LD	HL,ENZSPD
	ADD	HL,DE
;;      LD	A,$14
	LD	(HL),$18 ;A
	JR	ITMS20
ITMS10
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	(HL),$EC ;A
;;;;	JR	ITMS20
ITMS20
;------------------------------------------
ENZPSR
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENZPSL
	ADD	HL,DE
	LD	(HL),A
RPS090
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENCATM		; Normal speed pik up time !
	DB	$01,$08,$08,$10
ENCATM2		; Hi speed 
	DB	$01,$04,$04,$0A
ENCAPD
	DB	$37,$37,$37,$01
	DB	$39,$39,$39,$01
	DB	$3B,$3B,$3B,$01
	DB	$3D,$3D,$3D,$01
ENCAXD
	DB	$10,$10,$08,$00
	DB	$F0,$F0,$F8,$00
	DB	$00,$00,$00,$00
	DB	$FF,$FF,$FF,$FF
ENCAYD
	DB	$00,$00,$00,$00
	DB	$00,$00,$00,$00
	DB	$00,$00,$00,$00
	DB	$00,$00,$08,$00
ENCAZD
	DB	$00,$00,$08,$0E
	DB	$00,$00,$08,$0E
	DB	$00,$00,$08,$0E
	DB	$00,$00,$00,$0E
;-------------------------------------
ENCACH
	LD	A,(ENMYNO2)
	LD	(PLCANO),A
	CP	BOMBR
	JR	NZ,ECA0F00
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	(HL),B
;
;;	LD	DE,BOMBRCD
;;	CALL	EN1CST
	CALL	BOMBRCS
	JR	ECA0F10
;
ECA0F00
	CALL	ENMOVEL
;
ECA0F10
;;;	CALL	ENSTCK2
;
	LD	HL,ENCAST ;STAT
	ADD	HL,BC
	LD	A,(HL)
;;;	LD	A,(ENSTAT2) ;HL)
	LD	E,A
	LD	D,B ;$0
	CP	$4
	JR	Z,ENCA30
;
	LD	A,(PLCAMK)
	LD	(PLCMKI),A
;
	PUSH	HL
;
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
	POP	HL
	AND	A
	JR	NZ,ENCA30
;
	INC	(HL)
;
	LD	HL,ENCATM
;
	LD	A,(ENMYNO2)
	CP	BOMBR
	JR	Z,ENCA21
;
	LD	A,(BULLEV)
	CP	$02
	JR	NC,ENCA21
;
	LD	A,(POWRFG)
;;	AND	A
	CP	$01
	JR	NZ,ENCA22
;
ENCA21
	LD	HL,ENCATM2	; Hi speed take up !
ENCA22
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENTIM0
	ADD	HL,BC
;;	CALL	LDTIM0
	LD	(HL),A
ENCA30
	LD	A,E
	CP	$00
	JR	NZ,ENCA40
;
	INC	E
ENCA40
	CALL	ENCAPS
;
	CALL	CAOFCK
	RET
;============================================
ENCAPS
	LD	A,(PLCMKI)
	SLA	A
	SLA	A
	ADD	A,E
	LD	E,A
	LD	D,$0
	LD	HL,ENCAPD-1
	ADD	HL,DE
	LD	A,(HL)
	LD	(PLCAMD),A
;
	LD	HL,ENCAXD-1
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,PLXPSL
	ADD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENCAYD-1
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,PLYPSL
	ADD	A,(HL)
	LD	HL,PLDSYD
	ADD	A,(HL)
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(YKFLAG)
	AND	A
	JR	Z,CPS010
;
	PUSH	HL
	LD	HL,ENCAZD-1
	ADD	HL,DE
	LD	E,(HL)
	POP	HL
	LD	A,(HL)
	SUB	E
	LD	(HL),A
	RET
;
CPS010
	LD	HL,ENCAZD-1
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,PLZPSL
	ADD	A,(HL)
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),A
	RET
;
;-------------------------------------
CAOFCK
	CALL	CAOFCKL
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;
;###############################################
;#					       #
;###############################################
OCTA1MV
	LD	DE,OCTA1CD2
	LD	A,(GMMODE)
	CP	ENDG
	JR	Z,OCT1100
;
;;	LD	DE,OCTA1CD
	LD	A,$30
	LD	(ENCHNO),A
OCT1100
;;	CALL	EN2CST
;
	CALL	ENMVSB
	RET
;
;	LD	A,$10
;	CALL	PSERCH
;	CALL	ENMVCL
;	RET
;===============================================
OCTA1CD
;	DB	$60,$00,$60,$20 ;D
;	DB	$62,$00,$62,$20
;	DB	$60,$40,$60,$60 ;U
;	DB	$62,$40,$62,$60
;	DB	$64,$00,$66,$00 ;L
;	DB	$68,$00,$6A,$00
;	DB	$66,$20,$64,$20 ;R
;	DB	$6A,$20,$68,$20
OCTA1CD2
	DB	$30,$00,$30,$20 ;D
	DB	$32,$00,$32,$20
	DB	$30,$40,$30,$60 ;U
	DB	$32,$40,$32,$60
	DB	$34,$00,$36,$00 ;L
	DB	$38,$00,$3A,$00
	DB	$36,$20,$34,$20 ;R
	DB	$3A,$20,$38,$20
;###############################################
;#					       #
;###############################################
MRMVXS
	DB	$08,$F8,$00,$00
MRMVYS
	DB	$00,$00,$F8,$08
MRMVPT
	DB	$06,$04,$02,$00
;
MORI1MV
	LD	A,(DNJNNO)
	CP	$15
	JR	NZ,M0M10E0	;洞窟？
;				;YES !
	LD	A,(WANFLG)
	CP	$80
	JP	NZ,ENCLER
;
M0M10E0
	LD	A,C
	LD	(WAINDX2),A	;ワンワン連れ用インデックス
;
	LD	DE,MORI1CD
ENMVSB
	CALL	EN2CST
;
	CALL	ENSTCK
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,EMVS10	;はねかえりストップ！
;
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	A,$01
	LD	(HL),A
	LD	(ENSTAT2),A
;
	CALL	LDTIM0
	LD	(HL),$40
EMVS10
	CALL	ENHNSB
;
	CALL	CREPKE
;;	CALL	CRENPL
;;	CALL	CRKNEN
;
;;	LD	HL,ENSTAT
;;	ADD	HL,BC
	LD	A,(ENSTAT2) ;HL)
	AND	A
	JR	Z,MR1WLK
;- - STOP - -
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
;;	AND	A
	JR	Z,MR1S02
;
	CP	$0A
	JR	NZ,MR1S01	; Shot chance ?
;				; yes 
	CALL	LDTIM1
	JR	NZ,MR1S01
;
	CALL	EPXYCK
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	A,E
	CP	(HL)
	JR	NZ,MR1S01
;
	LD	A,(ENMYNO2)
	CP	HIPLP
	JR	Z,MR1S01
	CP	OCTA1
	JR	Z,OCTAMSS
;
	CALL	MORYAST
MR1S01
	CALL	ENBGCK
	RET
;--------------------------------
OCTAMSS
	LD	A,(GMMODE)
	CP	ENDG
	RET	Z
;
	CALL	OCTAMST
	RET
;--------------------------------
MR1S02
	CALL	RNDSUB
	AND	$1F
	OR	$20
	LD	(HL),A
;
	LD	HL,ENSTAT
	ADD	HL,BC
;;	LD	A,$0
	LD	(HL),$00 ;A
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	INC	A
	AND	$3
	LD	(HL),A
	CP	$00
	JR	NZ,MR1S08	; 4 move 1 serch !
;
	CALL	EPXYCK
	JR	MR1S0A
MR1S08
	CALL	RNDSUB
MR1S0A
	AND	$03
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),A
;
	LD	E,A
	LD	D,B ;$0
	LD	HL,MRMVXS
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	LD	HL,MRMVYS
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
MR1S10
	RET
;------------------------------------------
;- - WALK - -
MR1WLK
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	%00001111
	JR	NZ,MR1STS
;
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
;;	AND	A	;CP	$00
	JR	NZ,MR1M10
MR1STS
	CALL	RNDSUB
	AND	$0F
	OR	$10
	LD	(HL),A
;
	LD	HL,ENSTAT
	ADD	HL,BC
;;;	LD	A,$1
	LD	(HL),$01 ;A
;
	CALL	ENSDCL
MR1M10
;
	CALL	ENMVCL
	CALL	ENBGCK
;
MKPTST
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	E,(HL)
;;	LD	E,A
	LD	D,B ;$0
	LD	HL,MRMVPT
	ADD	HL,DE
;
	PUSH	HL
	LD	HL,ENCONT
	ADD	HL,BC
	INC	(HL)
;
	LD	A,(HL)  ;(FRCNT)
	RRA	
	RRA	
	RRA	
	POP	HL
	AND	%00000001
	OR	(HL)
;
	CALL	ENPTST
;
	RET
;===============================================
MORI1CD
	DB	$60,$00,$62,$00
	DB	$62,$20,$60,$20
	DB	$64,$00,$66,$00
	DB	$66,$20,$64,$20
	DB	$68,$00,$6A,$00
	DB	$6C,$00,$6E,$00
	DB	$6A,$20,$68,$20
	DB	$6E,$20,$6C,$20
;###############################################
;#					       #
;###############################################
MYSXAD
	DB	$08,$F8,$04,$FC
MYSYAD
	DB	$FC,$FC,$F8,$00
MYSXSD
	DB	$20,$E0,$00,$00
MYSYSD
	DB	$00,$00,$E0,$20
;- - - - - - - - - - - - - - - - -
MORYAST
	LD	A,MORYA
	CALL	ENIDSH
	JR	C,MYS090
;
	PUSH	BC
;
	LD	A,(WORK2)
	LD	C,A
;
	LD	HL,MYSXAD
	ADD	HL,BC
;
	LD	A,(WORK0)
	ADD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,MYSYAD
	ADD	HL,BC
;
	LD	A,(WORK1)
	ADD	A,(HL)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,MYSXSD
	ADD	HL,BC
;
	LD 	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,MYSYSD
	ADD	HL,BC
;
	LD 	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD 	A,(WORK2)
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENMUKI
	ADD	HL,DE
	LD	(HL),A
;
	POP	BC
MYS090
	RET
;###############################################
;#					       #
;###############################################
OTSXAD
	DB	$08,$F8 ;,$00,$00
OTSYAD
	DB	$00,$00,$F8,$08
OTSXSD
	DB	$20,$E0 ;,$00,$00
OTSYSD
	DB	$00,$00,$E0,$20
;- - - - - - - - - - - - - - - - -
OCTAMST
	LD	A,OCTAM
ENBMST
	CALL	ENIDSH
	JR	C,OTS090
;
	PUSH	BC
;
	LD	A,(WORK2)
	LD	HL,ENMUKI
	ADD	HL,DE
	LD	(HL),A
;
	LD	C,A
;
	LD	HL,OTSXAD
	ADD	HL,BC
;
	LD	A,(WORK0)
	ADD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,OTSYAD
	ADD	HL,BC
;
	LD	A,(WORK1)
	ADD	A,(HL)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,OTSXSD
	ADD	HL,BC
;
	LD 	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,OTSYSD
	ADD	HL,BC
;
	LD 	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	(HL),A
;
	POP	BC
	AND	A	; CLC
OTS090
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BOMBOIT
;	PUSH	BC
;;
;	LD	C,$40
;	LD	HL,XMVBUF-1
;	LD	DE,YMVBUF-1
;BBOI10
;	LD	A,(ENSVXL)
;	LD	(HLI),A
;	LD	A,(ENSVYL)
;	LD	(DE),A
;	INC	DE
;	DEC	C
;	JR	NZ,BBOI10
;;
;	POP	BC
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;BBZSAD
;	DB	$01,$FF
;BBZSLM
;	DB	$0C,$F4
;----------------------------------
BOMBOMV
;	LD	HL,ENCONT
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	$3F
;	LD	E,A
;	LD	D,B ;$0
;;
;	LD	A,(ENSVXL)
;;
;	LD	HL,XMVBUF
;	ADD	HL,DE
;	LD	(HL),A
;;
;	LD	A,(ENDSYP)
;;
;	LD	HL,YMVBUF
;	ADD	HL,DE
;	LD	(HL),A
;;
;	LD	L,$08
;NUTS
;	PUSH	HL
;;
;	PUSH	DE
;	LD	DE,BOMBRCD
;	CALL	EN1CST
;;
;	POP	DE
;	LD	A,E
;	SUB	$08
;	AND	$3F
;	LD	E,A
;;
;	LD	HL,XMVBUF
;	ADD	HL,DE
;	LD	A,(HL)
;	LD	(ENSVXL),A
;;
;	LD	HL,YMVBUF
;	ADD	HL,DE
;	LD	A,(HL)
;	LD	(ENDSYP),A
;;
;	POP	HL
;	DEC	L
;	JR	NZ,NUTS
;;------------------------------------
;	CALL	ENSTCK
;	CALL	ENHNSB
;;
;	LD	HL,ENCONT
;	ADD	HL,BC
;	INC	(HL)
;;
;	CALL	CREPKE		;;;;;;;;PLAYER	ATARI CK
;;
;	LD	A,(FRCNT)
;	AND	$0
;	JR	NZ,BBO080
;;
;	LD	HL,ENWRK1
;	ADD	HL,BC
;	PUSH	HL
;	LD	A,(HL)
;	AND	$1
;	LD	E,A
;	LD	HL,BBZSAD
;	ADD	HL,DE
;	LD	A,(HL)
;	LD	HL,ENZSPD
;	ADD	HL,BC
;	ADD	A,(HL)
;	LD	(HL),A
;	LD	HL,BBZSLM
;	ADD	HL,DE
;	CP	(HL)
;	POP	HL
;	JR	NZ,BBO080
;	INC	(HL)
;BBO080
;	CALL	ENZCLC
;;
;	CALL	YMVSUBL
;	XOR	A
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	ハートの器		   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
HARTBCD
	DB	$AA,$10,$AA,$30
HARTBMV
	LD	DE,HARTBCD
	CALL	EN2CST
;
;;	CALL	LDTIM3
	CALL	LDTIM0
	JP	Z,ITEMSUB
;
	DEC	A
	JR	NZ,HARTB10
;
	LD	A,$18
	LD	(SOUND4),A	;(S)
;
;;	CALL	BGMSET
;
;;	LD	A,$0C
;;	LD	(CHTRF2),A	;OBJ 楽器転送！
;
	LD	HL,HARTMX
	INC	(HL)
;
	LD	HL,HARTUP
	LD	(HL),$FF
;
	CALL	SVDSSB
;
	LD	A,(HL)
	OR	%00100000	; Boss fail on !
	LD	(HL),A
	LD	(DJSVBF),A	; Save data buffer set !
;
	LD	A,(DNJNNO)	;横画面のボス部屋！
	LD	HL,DJRMSV+$12E
	CP	$06		;塔
	JR	Z,HBSV10	
	CP	$03		;水
	JR	NZ,HBSV20
;
	LD	HL,DJRMSV+$66
HBSV10
	SET	5,(HL)
HBSV20
;
;
;
;	LD	A,(GRNDPT)
;	CP	$E8  ;1D	; BBIRD room!
;;;;	CP	$FF  ;1D
;	JR	NZ,HTBM10	; Bfish ROOM !
;;
;	LD	A,$20
;	LD	(DJCLTM),A
;HTBM10
	JP	ENCLER
HARTB10
PLJYAN
;	LD	A,(DJFLAG)
;	AND	A
;	JR	NZ,PLJY10
;;
;	LD	A,(GRNDPT)
;	CP	$78
;	JR	Z,JYPS090	;水中？
;;
PLJY10
	LD	A,(PLXPSL)
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(PLYPSL)
	LD	HL,ENYPSL
	ADD	HL,BC
	SUB	$0C
	LD	(HL),A
;
	LD	A,(PLZPSL)
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),A
;
JYANPS
	LD	A,$6C  ;
	LD	(PLCHPT),A
;
	LD	A,$03
	LD	(PLCMKI),A
;
	XOR	A
	LD	(PCUTFG),A
	LD	(WCUTFG),A
	LD	(SPCTWT),A
	LD	(SPCTTM),A
;
	LD	HL,ENWATR
	ADD	HL,BC
	LD	(HL),A
;
JYPS090
	LD	A,$02
	LD	(PLSTOP),A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	ハートのかけら		   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KAKERCD
	DB	$AC,$00,$AC,$20
;- - - - - - - - - - - - - - - - - - -
;KAKINMV
;	CALL	ITCLCK	; In data set see thruu
;;
;	LD	HL,ENMYNO
;	ADD	HL,BC
;	LD	(HL),KAKER
KAKERMV
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	LD	A,(ENSTAT2)
;
	RST	0
	DW	KKM010
;
	DW	KK0600
	DW	KK0800

	DW	KK0900
	DW	KK1000
	DW	KK2000
	DW	KK3000
	DW	KK4000
	DW	KK4100
;===========================================
KK0600
	CALL	PLJYAN
;
	CALL	LDTIM0
	JR	NZ,KK6080
;
	CALL	STATINC
KK6080
	RET
;===========================================
KK0800
	LD	A,HRTC1		; Heart chr tr.
	LD	(BKCHFG),A
;
	CALL	STATINC
;
	RET
;===========================================
KK0900
	LD	A,HRTC2		; Heart chr tr.
	LD	(BKCHFG),A
;
	CALL	STATINC
;
	RET
;===========================================
KK1000
	LD	A,$4F
	CALL	MSGCHK
;
	CALL	STATINC
;
	LD	A,$01
	LD	(MSKYOF),A
;
	RET
;===========================================
KK2000
	CALL	PLJYAN
;
	LD	DE,KAKERCD
	CALL	EN2CST
;
	CALL	KAKERCS
;
	LD	HL,ENCONT
	ADD	HL,BC
	INC	(HL)
	LD	A,(HL)
	CP	$A8
;;	CP	$A0
	JP	Z,STATINC
	CP	$38
	JR	NZ,KK2010
;
	LD	A,(KAKERCT)
	INC	A
	LD	(KAKERCT),A
;	CP	$04
;	JR	NZ,KK2010
;;
;	XOR	A
;	LD	(KAKERCT),A
;;
;	LD	HL,HARTUP
;	LD	(HL),$40
;;
;	LD	HL,HARTMX
;	INC	(HL)
KK2010
	RET
;===========================================
KK3000
	CALL	PLJYAN
	LD	DE,KAKERCD
	CALL	EN2CST
;
	XOR	A
	LD	(MSKYOF),A
;
	CALL	KAKERCS
;
	LD	A,(MSGEFG)
	AND	A
	JR	NZ,KK3020
;
	LD	A,(KAKERCT)
	CP	$04
	JR	NZ,KK3010
;
	LD	A,$19
	LD	(SOUND1),A	;(S)
;
	XOR	A
	LD	(KAKERCT),A
;
	LD	HL,HARTUP
	LD	(HL),$40
;
	LD	HL,HARTMX
	INC	(HL)
;
	LD	A,$50
	CALL	MSGCHK
KK3010
;;	CALL	ENCLER
	CALL	STATINC
KK3020
	RET
;===========================================
KK4000
	CALL	PLJYAN
;
	LD	DE,KAKERCD
	CALL	EN2CST
;
	LD	A,(MSGEFG)
	AND	A
	JR	NZ,KK4080
;
	LD	A,HRTC3
	LD	(BKCHFG),A	; Heart chr revise
;
	CALL	STATINC
KK4080
	RET
;===========================================
KK4100
	LD	A,HRTC4
	LD	(BKCHFG),A	; Heart chr revise
;
	CALL	ENCLER
;
;;	CALL	BGMSET	;(S)
;
;	LD	A,(BGMNO)
;	LD	(SOUND4),A	;(S)
;
	LD	A,$0D
	LD	(CHTRF2),A	
;
	JP    	SVDTST
;;	RET
;===========================================
KAKERCD2
	DB	$9A,$00,$9A,$20
	DB	$9C,$00,$9A,$20
	DB	$9E,$00,$9A,$20
	DB	$9E,$00,$9C,$20
	DB	$9E,$00,$9E,$20
;
KAKERCS
	LD	A,(MSGEFG)
	AND	A
	JR	Z,KKCS90
	AND	%10000000
	LD	A,$23
	JR	Z,KKCS10
	LD	A,$6B
KKCS10
	LD	(ENDSYP),A
;
	LD	A,(KAKERCT)
	LD	(ENCHPT2),A
;
	LD	A,$8B
	LD	(ENSVXL),A
;
	LD	DE,KAKERCD2
	CALL	EN2CST
;
KKCS90
	RET
;
;===========================================
;===========================================
;
;
KKM010
	LD	DE,KAKERCD
	CALL	EN2CST
;
	JP	ITEMSUB
;- - - - - - - - - - - - - - - - - - -
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	守りのかけら		   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KINOMCD
	DB	$AE,$10
;;	DB	$9E,$10
KINOMMV
	LD	DE,KINOMCD
	CALL	EN1CST
;
	JR	ITEMSBS
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	力のかけら		   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
POWERCD
	DB	$14,$00,$14,$20
	DB	$14,$10,$14,$30
;- - - - - - - - - - - - - - - - - - -
POWERMV
	LD	DE,POWERCD
	CALL	EN2CST
;
	LD	A,(FRCNT)
	RRA
	RRA
	RRA
	AND	$01
	CALL	ENPTST
;
ITEMSBS
	JP	ITEMSUB
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
HMASKCD
	DB	$74,$00,$76,$00
	DB	$76,$20,$74,$20
;- - - - - - - - - - - - - - - - - -
HMASKMV
	LD	DE,HMASKCD
	CALL	EN2CST
;
;;;	JP	ITEMSUB
	CALL	ENSTCK
;
	CALL	BUMECK
	RET	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PLTATCD
	DB	$86,$10		; ライクライクからの楯
	DB	$84,$10		; 初めに拾う剣
;
PLTATMV
	LD	DE,PLTATCD
;
	LD	A,(KENLEV)
	AND	A
	JR	NZ,PTMV10
;
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	LD	DE,PLTATCD+2
PTMV10
	CALL	EN1CST
;
	LD	A,(ENSTAT2)
	RST	00
	DW	IKN1000
	DW	IKN2000
	DW	IKN3000
	DW	IKN4000
;======================================
IKN1000
	CALL	LDTIM0
	JP	Z,ITEMSUB	;剣持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,PTMV18
;
	DEC	(HL)
;
	LD	A,$9B
	CALL	MSGCHK
;
	XOR	A
PTMV18
	DEC	A
	JR	NZ,PTMV20
;
	LD	A,$31
	LD	(SOUND4),A	;(S)
	LD	A,$05
	LD	(BGMNO),A
	LD	(TODYFG),A
;
	CALL	LDTIM3
	LD	(HL),$52
;
	CALL	STATINC
;;	JP	ENCLER
PTMV20
	JP	PLJYAN
;======================================
IKN2000
	CALL	PLJYAN
;
	CALL	LDTIM3
	JR	NZ,IKN2020
;
	LD	A,$FF
	CALL	ENPTST
;
	CALL	LDTIM0
	LD	(HL),$20
;
	LD	A,$20
	LD	(SPCTTM),A
;
	LD	A,$03
	LD	(SOUND3),A	;(S)
;
	CALL	STATINC
IKN2020
	RET
;======================================
IKN3000
	CALL	LDTIM0
	JR	NZ,IKN3010
;
	LD	(HL),$20
;
	LD	A,$00
	CALL	ENPTST
;
	CALL	STATINC
IKN3010
	RET
;======================================
IKN4000
	CALL	PLJYAN
;
	LD	A,$6B
	LD	(PLCHPT),A
;
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(PLXPSL)
	SUB	$04
	LD	(HL),A
;
	CALL	LDTIM0
	JR	NZ,IKN4010
;
	LD	(ITEMNOT),A
;
	LD	D,PKEN
	CALL	ITEMGET
;
	LD	A,$01
	LD	(KENLEV),A
;
	CALL	SVDTST
;
	JP	ENCLER
IKN4010
	CP	$1A
	JR	NZ,IKN4030
;
	LD	A,(ENSVYL)
	SUB	$0C
	CALL	EKFLSHS
;
	LD	A,$07
	LD	(SOUND1),A	;(S)
IKN4030
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PFUCKCD
	DB	$8A,$10
;
PFUCKMV
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	LD	DE,PFUCKCD
	CALL	EN1CST
;
	CALL	LDTIM0
	JP	Z,ITEMSUB	;剣持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,PFMV18
;
	DEC	(HL)
;
	LD	A,$93
	CALL	MSGCHK
;
	XOR	A
PFMV18
	DEC	A
	JR	NZ,PFMV20
;
	LD	D,PFUCK
	CALL	ITEMGET
;
	CALL	SVDTST
;
	JP	ENCLER
PFMV20
	JP	PLJYAN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KEYSMCD
	DB	$CA,$10
;
	DB	$C0,$10
	DB	$C2,$10
	DB	$C4,$10
	DB	$C6,$10
	DB	$CA,$10
;----------------------------
GKMSDT
	DB	$00,$A3,$A4,$A5,$00
KEYSMMV
;	LD	A,(ENCHPT2)
;	CP	$02
;	JR	NZ,KSMM100	;砂漠？
;
	CALL	ERCHK
	JR	NC,KSMM100	;流さ落ちた？
;
	LD	HL,GRRMSV+$CE
	SET	4,(HL)
	LD	HL,DJRMSV+$F8
	SET	5,(HL)
	RET	
KSMM100
	LD	A,(GRNDPT)
	CP	$80
	JP	Z,PFUCKMV
;
KSMM190
	LD	DE,KEYSMCD
	CALL	EN1CST
;
	CALL	LDTIM0
	JP	Z,GKMV10 	;持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,GKMV03
;
	DEC	(HL)
;
	LD	A,(ENCHPT2)
	DEC	A
	LD	E,A
	LD	D,B
	LD	HL,GKMSDT
	ADD	HL,DE
	LD	A,(HL)
	CALL	MSGCHK
;
	LD	A,(ENCHPT2)
	DEC	A
	LD	E,A
	LD	D,B
	LD	HL,GRKEY1
	ADD	HL,DE
	LD	(HL),$01
;
;;	CALL	SVDSSB
;;	SET	4,(HL)
	CALL	SVDTST	; Save bit on !
;
	XOR	A
GKMV03
	DEC	A
	JR	NZ,GKMV08
;
	JP	ENCLER
GKMV08
	JP	PLJYAN
;----------------------------
GKMV10
	CALL	ENSTCK
	CALL	BUMECK
;
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,KSMV10
;
	CALL	CRITPL
KSMV10
	JP	ENBDCL
;------------------------------				;YES !
ERCHK
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,ERMM190
;
	LD	A,(GRNDPT)
	CP	$CE
	JR	NZ,ERMM190
;
	LD	A,(ENSVYL)
	SUB	$48
	ADD	A,$03
	CP	$06
	JR	NC,ERMM190
;
	LD	A,(ENSVXL)
	SUB	$50
	ADD	A,$03
	CP	$06
	JR	NC,ERMM190	;流さにはまる！
;
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,ERMM190	;流さにはまる！
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	CP	EMOVE
	JR	NZ,ERMM190	;流さにはまる！
;
	LD	(HL),EFOLE
;
	LD	HL,ENFLXP
	ADD	HL,BC
	LD	(HL),$50
	LD	HL,ENFLYP
	ADD	HL,BC
	LD	(HL),$48
;
	CALL	LDTIM0
	LD	(HL),$2F
;
	LD	A,$18
	LD	(SOUND1),A	;(S)
;
	SCF
	RET
ERMM190
	AND	A
	RET	
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
HART1CD
	DB	$A8,$10
HART1MV
	CALL	ITCLCK	; In data set see thruu
;	LD	HL,ENTIM3
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$1C
;	JR	NC,HTM010
;;
;	AND	A
;	JP	Z,ENCLER
;	AND	$01
;	JR	NZ,HTM020
;HTM010
	CALL	ITTIMCK
;
	LD	DE,HART1CD
	CALL	EN1CST
HTM020
	JP	ITEMSUB
;	CALL	ENSTCK
;;
;	CALL	BUMECK
;	CALL	CRITPL
;;
;	CALL	ENBDCL
;	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KINOKCD
	DB	$5E,$00,$5E,$20
;
KINOKMV
	LD	HL,KINOKFG
	LD	A,(TUBOCT)
;;	AND	A
	OR	(HL)		;キノコ持ってる？
	JP	NZ,ENCLER	;魔法の粉を使い切った？
;				; YES!
	LD	DE,KINOKCD
	CALL	EN2CST
;
	CALL	LDTIM0
	JP	Z,ITEMSUB	;持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,KNMV18
;
	DEC	(HL)
;
	LD	A,$0F
	CALL	MSGCHK
;
	XOR	A
KNMV18
	DEC	A
	JR	NZ,KNMV20
;
	LD	A,$0A
	LD	(CHTRF2),A	;きのこキャラ転送！
;
	LD	D,PMGIC
	CALL	ITEMGET		; アイテム枠表示！
;
	LD	A,$01
	LD	(KINOKFG),A	;きのこを持っている！
;
	JP	ENCLER
KNMV20
	JP	PLJYAN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	楽器			   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
GAKKICD
	DB	$70,$00,$72,$00	;LV 1
	DB	$74,$00,$76,$00	;LV 2
	DB	$78,$00,$7A,$00	;LV 3
	DB	$7C,$00,$7E,$00	;LV 4
;;	DB	$70,$00,$72,$00	;LV 5
;;	DB	$74,$00,$76,$00	;LV 6
;;	DB	$78,$00,$7A,$00	;LV 7
;;	DB	$7C,$00,$7E,$00	;LV 8
;
GAKKIMV
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	RST	00
	DW	GKMAIN	;MAIN control
	DW	GKONPU	;Onpu
	DW	GKFLSHS	;Flash
;
GKBGCD
;0
	DB	%11100100
	DB	%11100100
	DB	%11100100
	DB	%11100100
;4
	DB	%10010000
	DB	%10010000
	DB	%10010000
	DB	%10010000
;8
	DB	%01000000
	DB	%01000000
	DB	%01000000
	DB	%01000000
;C
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
;10
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
;14
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
;18
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
GKOBCD
;0
	DB	%00011100
	DB	%00011100
	DB	%00011100
	DB	%00011100
;4
	DB	%00011100
	DB	%00011100
	DB	%00011100
	DB	%00011100
;8
	DB	%00011100
	DB	%00011100
	DB	%00011100
	DB	%00011100
;C
	DB	%00011100
	DB	%00011100
	DB	%00011100
	DB	%00011100
;10
	DB	%00001000
	DB	%00001000
	DB	%00001000
	DB	%00001000
;14
	DB	%00000100
	DB	%00000100
	DB	%00000100
	DB	%00000100
;18
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
	DB	%00000000
;- - - - - - - - - - - - - -
GKFLSHS
	CALL	GKFLSH
;
	LD	A,$01
	LD	(ITEMNOT),A
;
;;	RET
;
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	A
	CALL	LDTIM3
	JR	NZ,GKFL008
;
	CALL	ENCLER
;
;	LD	A,(DNJNNO)
;	CP	$00
;	JR	NZ,GKFL002	;ダンジョン１クリアー？
;;				;yes !
;	LD	A,$01
;	LD	(FUKUROF),A	;出口ふくろうセット！
GKFL002
	XOR	A
	LD	(PLCHPT),A
;
	LD	A,(BSINDX)
	LD	E,A
	LD	D,B
	LD	HL,ENSTAT
	ADD	HL,DE
	INC	(HL)
;
	CALL	NXGOTO3
;
;-- ダンジョンクリアー後のイベント進行 ---
	LD	A,(DNJNNO)
	RST	00
	DW	DJ1CLR
	DW	DJ2CLR
	DW	DJ3CLR
	DW	DJ4CLR
	DW	DJ5CLR
	DW	DJ6CLR
	DW	DJ7CLR
	DW	DJ8CLR
;=====================================
DJ1CLR
	LD	A,$80
	LD	(WANFLG),A	;ワンワン連れさられる！
	RET
;=====================================
DJ2CLR
	LD	A,$02
	LD	(PAPA0FG),A	;タリンがバナナを食っている！
	RET
;=====================================
DJ3CLR
	RET
;=====================================
DJ4CLR
	LD	A,$02
	LD	(OBAKEFG),A	;オバケ転送セット！
;;	RET
;=====================================
DJ5CLR
;=====================================
DJ8CLR
	RET
;=====================================
DJ6CLR
	XOR	A
	LD	(MARINOF),A
	RET
;=====================================
DJ7CLR
	XOR	A
	LD	(NIWATFG),A	;ニワトリばいばい！
	RET
;
;=====================================
GKFL008
	CP	$50
;;	CP	$30
	JR	NC,GKFL100
;
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	A,(HL)
	CP	$19
	JR	NC,GKFL100
;
	LD	A,(FRCNT)
	AND	$07
;;	AND	$0F
	JR	NZ,GKFL04C
;
	LD	A,(HL)
	AND	A
	JR	NZ,GKFL03C
;
	LD	A,$2C
	LD	(SOUND3),A	;(S)
	XOR	A
GKFL03C
	INC	(HL)
;
	CP	$18
	JR	NZ,GKFL04C
;
	LD	A,KURI0		;BG書き換え＆メッセージ！
	CALL	ENIDSH	
;
	LD	HL,ENWRK0
	ADD	HL,DE
	LD	(HL),$01
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$60
GKFL04C
	LD	A,(FRCNT)
	AND	$03
	LD	HL,ENWRK1
	ADD	HL,BC
	ADD	A,(HL)
	LD	E,A
	LD	D,B
	LD	HL,GKBGCD
	ADD	HL,DE
	LD	A,(HL)
	LD	(BGPFG),A
	LD	HL,GKOBCD
	ADD	HL,DE
	LD	A,(HL)
	LD	(OBP0FG),A
	XOR	A
	LD	(OBP1FG),A
;
;	POP	AF
;	CP	$04
;	JR	NZ,GKFL100
;;
;	LD	A,KURI0		;BG書き換え＆メッセージ！
;	CALL	ENIDSH	
;;
;	LD	HL,ENWRK0
;	ADD	HL,BC
;	LD	(HL),$01
GKFL100
	RET
;GKFL120
;	LD	A,$50
;	CALL	MSGCH2
;	RET
;
;===================================
;=================================
GKONPUCD
	DB	$6C,$00,$FF,$FF
	DB	$6C,$00,$6E,$00
;
GKONPU
	LD	DE,GKONPUCD
	CALL	EN2CST
;
	CALL	ENMVCL
;
	CALL	LDTIM0
	JP	Z,ENCLER
	RET
;==================================
GKMAIN
	LD	A,C
	LD	(BSINDX),A
;
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER	; Already have ?
;				; Yes !
	LD	A,(DNJNNO)
	AND	$03
	LD	(ENCHPT2),A
;
	CALL	SHRVSE	;シャッター無理矢理補正！
;
	LD	DE,GAKKICD
	CALL	EN2CST
;
	LD	A,(ENSTAT2)
	RST	00
	DW	GK1000
	DW	GK2000
	DW	GK3000
	DW	GK4000
	DW	GK5000
;;	CP	$01
;;	JR	Z,GK2000
;;	CP	$02
;;	JR	Z,GK3000
;
GK1000
	CALL	LDTIM0
	JP	Z,ITEMSUB	;持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,GKMV18
;
	DEC	(HL)
;
;;	LD	A,$30
;;	LD	(DJCLTM),A	;自動クリアー！
;;;
;;	CALL	ENCLER
;
;;	LD	A,$FF
;;	CALL	ENPTST
;
;;	CALL	LDTIM0
;;	LD	(HL),$50
;
	CALL	STATINC
;
	LD	A,(DNJNNO)
	ADD	A,$00
	CALL	MSGCH2
;
	LD	A,(DNJNNO)
	LD	E,A
	LD	D,B
	LD	HL,WARPSV
	ADD	HL,DE
	LD	A,(HL)
	OR	%00000010
	LD	(HL),A
;
	CALL	SVDSSB
;
	LD	A,(HL)
	OR	%00010000	; Boss fail on !
	LD	(HL),A
;;;	LD	(DJSVBF),A	; Save data buffer set !
;
	XOR	A
GKMV18
	DEC	A
	JR	NZ,GKMV20
;
;;	JP	ENCLER
GKMV20
	JP	PLJYAN
;------------------------------------------
GKBGMD
;;;	    LEVEL 1   2   3   4   5   6   7   8
	DB	$20,$28,$29,$2A,$2B,$2C,$2D,$2E
GK2000
;;	CALL	LDTIM0
;;	JR	NZ,GK2010
	LD	A,($D369)
	AND	A
	JR	NZ,GK2010	; BGM end ?
;				; yes !
;;	CALL	ENSTCK
	LD	A,(MSGEFG)
	AND	A
	JR	NZ,GK2010
;
	LD	A,(DNJNNO)
	LD	E,A
	LD	D,B
	LD	HL,GKBGMD
	ADD	HL,DE
	LD	A,(HL)
;;	LD	A,$20
	LD	(SOUND4),A	;(S)
;
;;	LD	A,$80
;;	LD	(DJCLTM),A	;自動クリアー！
;
;;	CALL	ENCLER
;
	CALL	STATINC
;
	CALL	LDTIM0
	LD	(HL),$FF
GK2010
	JP	PLJYAN
;------------------------------------------
ONPUXD
	DB	$0A,$FA
ONPUXS
	DB	$04,$FC
;- - - - - - - - - - - - - -
GK3000
	CALL	LDTIM0
	JR	NZ,GK3010
;
	LD	A,$2B
	LD	(SOUND1),A	;(S)
;
	LD	A,GAKKI
	CALL	ENIDSH
;
	LD	A,(WORK0)
	DEC	A
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENWRK0
	ADD	HL,DE
	LD	(HL),$02
;
	LD	HL,ENTIM3
	ADD	HL,DE
	LD	(HL),$80 ;$40
	JP  	STATINC
GK3010	
	LD	HL,ENWRK2
	ADD	HL,BC
	DEC	(HL)
	LD	A,(HL)
	CP	$FF
	JR	NZ,GK3020
;
	LD	(HL),$17
;
	LD	HL,ENWRK3
	ADD	HL,BC
	INC	(HL)
	LD	A,(HL)
	AND	$01
	LD	(ENHELP),A
;
	LD	A,GAKKI
	CALL	ENIDSH
;
	PUSH	BC
;
	LD	HL,ENWRK0
	ADD	HL,DE
	INC	(HL)
;
	LD	A,(ENHELP)
	LD	C,A
;
	LD	HL,ONPUXD
	ADD	HL,BC
	LD	A,(WORK0)
	ADD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ONPUXS
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	ADD	A,$F8
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	(HL),$FD
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$38
;
	CALL	RNDSUB
	AND	$01
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	(HL),A
;
	POP	BC
GK3020
	JP	PLJYAN
;------------------------------------------
GK4000
	JP	PLJYAN
;------------------------------------------
GK5000
	RET
;;;	JP	PLJYAN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BOMB1CD
	DB	$80,$10
BOMB1MV
	CALL	ITCLCK	; In data set see thruu
	CALL	ITTIMCK
;
	LD	DE,BOMB1CD
	CALL	EN1CST
;
	JP	ITEMSUB
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KAIINCD
	DB	$9E,$10
;;	DB	$AE,$10
;
KAIINMV
	LD	A,(KENLEV)
	CP	$02
	JP	NC,ENCLER	;剣レベル２取った後？
;				;NO!
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	LD	A,(GRNDPT)
	CP	$E3
	JR	NZ,KIIM100	;お化けの家？
;				;YES !
	LD	A,(DJSVBF)
	AND	%01000000
	JP	Z,ENCLER    	;おばけが教えた後？
;			  	;YES !
KIIM100
	CALL	ITCLCK	; In data set see thruu
;;;	CALL	ITTIMCK
;
	LD	DE,KAIINCD
	CALL	EN1CST
;
	JP	ITEMSUB
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
KAKINCD
	DB	$CA,$10
;
KAKINMV
	LD	A,(DJSVBF)
	AND	%00010000
	JP	NZ,ENCLER
;
	CALL	ITCLCK	; In data set see thruu
;;;	CALL	ITTIMCK
;
	LD	DE,KAKINCD
	CALL	EN1CST
;
	CALL	LDTIM0
	JP	Z,ITEMSUB	;剣持ち上げ？
;				; ハイ
	CP	$10
	JR	NZ,KKIMV18
;
	DEC	(HL)
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,KKGT10
;
	LD	A,(GRNDPT)
	CP	$C6
	JR	NZ,KKGT10	;鍵 ５ ステージ？
;				;yes !
	LD	A,$06-1
	LD	(GRKEY5),A	;鍵 5 拾う！
KKGT10
	LD	HL,GRKEY5 ;KEYECT	;
	CALL	IUPSUB
;
	CALL	SVDTST
;
	LD	HL,DJSVBF
	RES	4,(HL)	;表示だけはしておく！
;
;;	LD	A,(GRNDPT)
;;	CP	$C6	;はっぱ
	LD	E,$A2
	LD	A,(GRKEY5)
	CP	$06
	JR	Z,KKIMV12
	LD	E,$E8
	CP	$05
	JR	NZ,KKIMV12
	INC	E	;さいごの１枚
KKIMV12
	LD	A,E
	CALL	MSGCHK
;
	XOR	A
KKIMV18
	DEC	A
	JR	NZ,KKIMV20
;
	JP	ENCLER
KKIMV20
	JP	PLJYAN
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
MGPOWCD
	DB	$8E,$10
;
MGPOWMV
	LD	A,(KINOKFG)
	AND	A
	JP	NZ,ENCLER
;
	CALL	ITCLCK	; In data set see thruu
	CALL	ITTIMCK
;
	LD	DE,MGPOWCD
	CALL	EN1CST
;
	JP	ITEMSUB
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ALOW1CD
	DB	$2A,$40
	DB	$2A,$60
;
ALOW1MV
	CALL	ITCLCK	; In data set see thruu
	CALL	ITTIMCK
;
	LD	DE,ALOW1CD
	CALL	EN2CST
;
	JP	ITEMSUB
;======================================
ITTIMCK
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM3
	CP	$1C
	JR	NC,HTM010
;
	AND	A
	JP	Z,ENCLER
	AND	$01
	DEC	A
	CALL	ENPTST
HTM010
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
RUPY1CD
	DB	$A6,$10
;
RUPY1MV
	CALL	ITCLCK	; In data set see thruu
;
;	LD	HL,ENTIM3
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$1C
;	JR	NC,R1M010
;;
;	AND	A
;	JP	Z,ENCLER
;	AND	$01
;	JR	NZ,R1M020
;R1M010
	CALL	ITTIMCK
;
	LD	DE,RUPY1CD
	CALL	EN1CST
ITEMSUB
R1M020
	CALL	ENSTCK
;
	CALL	BUMECK
	CALL	CRITPL
;
;------------------------------------------
ENBDCL
	CALL	ENMVCL
	CALL	ENGCLC
;
	CALL	ENBGCK
;
	LD	A,(YKFLAG)
	AND	A
	JR	Z,EBD010
;
;;;;	CALL	ENBGCK
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	%00001000
	JP	Z,RP1M10
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	$F0
	ADD	A,$5
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	CPL
	SRA	A
	CP	$F8
	JR	C,RP1M08
	JR	EBD012
;
EBD010
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	$80
	JR	Z,RP1M10
;
	XOR	A
	LD	(HL),A
;
	LD	HL,ENWATR
	ADD	HL,BC
	LD	A,(HL)
;
	LD	HL,ENZSPD
;;EBD011
	ADD	HL,BC
	CP	$02
	JR	Z,EBD012	; Asase in -> Not bounds !
	LD	A,(HL)
	SRA	A
	CPL
	CP	$07
	JR	NC,RP1M08
;
EBD012
	XOR	A
;
	PUSH	HL
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
;
	POP	HL
	JR	RP1M081
RP1M08
	PUSH	AF
	PUSH	HL
;
	LD	A,(ENMYNO2)
	CP	KEYSM
	JR	NZ,KYBD10
;
	LD	A,$17
	LD	(SOUND3),A	;(S)
	JR	RP1M080	
KYBD10
	CP	BOMBR
	JR	NZ,RP1M080
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,RP1M080
	CP	EFOLE
	JR	Z,RP1M080
;
	LD	A,$09
	LD	(SOUND1),A	;(S)バウンド音！
RP1M080
	POP	HL
	POP	AF
RP1M081
	LD	(HL),A
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	SRA	A
	CP	$FF
	JR	NZ,RP1M09
	XOR	A
RP1M09
	LD	(HL),A
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,RP1M10
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	SRA	A
	CP	$FF
	JR	NZ,RP1M0B
	XOR	A
RP1M0B
	LD	(HL),A
;
RP1M10
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				   %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
YOSEICD
	DB	$20,$20
	DB	$20,$00
;;	DB	$22,$00
;----------------------------
YOSEIMV
	CALL	ITCLCK	; In data set see thruu
;
;	LD	HL,ENTIM3
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$1C
;	JR	NC,YOM010
;;
;	AND	A
;	JP	Z,ENCLER
;	AND	$01
;	JR	NZ,YOM020
;YOM010
	CALL	ITTIMCK
;
;;	CALL	ENMKST
;
	LD	DE,YOSEICD
	CALL	EN1CST
YOM020
	CALL	ENSTCK
;
	CALL	BUMECK
	CALL	CRITPL
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	RLCA
	AND	$01
	CALL	ENPTST
;
	CALL	ENMVCL
	CALL	YOZCLC
	CALL	ENBGCK
;---------------------------
	CALL	EPXCHK
	LD	A,D
	BIT	7,A
	JR	Z,YI010
;	CPL
;	INC	A
YI010
	CP	$20
	JR	C,YMAIN
;
	CALL	EPYCHK
	LD	A,D
	BIT 	7,A
	JR	Z,YI020
;	CPL
;	INC	A
YI020
	CP	$20
	JR	NC,YEXIT
;---------------------------------------
YMAIN
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
;;	AND	A
	JR	NZ,YFIN
;
;;	LD	A,$30
	LD	(HL),$30 ;A
;
	CALL	RNDSUB
	AND	$0F
	SUB	$08
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	CALL	RNDSUB
	AND	$0F
	SUB	$08
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
	JR	YFIN
;----Nigeru----------------------
YEXIT
	LD	A,$09
	CALL	PSERCH ;2
;	LD	A,(WORK0)
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	(HL),A
;	LD	A,(WORK1)
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	(HL),A
YFIN
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
;	CALL	LDTIM0
;	AND	$01
;	JR	Z,YGUSU
;	XOR	A
;	JR	YFIN2
;YGUSU
;	XOR	A
;;	LD	A,$1
;YFIN2	
;	LD	HL,ENCHPT
;	ADD	HL,BC
;	LD	(HL),A
;============================================
	RET
;============================================
YOZCLC
	LD	A,(FRCNT)
	AND	$03
	JR	NZ,YFLYE
;
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	CP	$10
	JR	Z,YFLYE
;
	BIT	7,A
	JR	Z,YUP
;
	INC	(HL)
	JR	YFLYE
YUP
	CP	$10
	JR	NC,YUP2
	INC	(HL)
	RET
YUP2	
	DEC	(HL)
YFLYE
	RET
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;&			     &
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
ITCLCK
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	Z,ICCK10
;
	LD	A,(SCRLFG)
	AND	A
	JP	NZ,ICCK08
;
	LD	A,(HL)
	CP	$02
	JR	NZ,ICLC010
;
	LD	A,(ENMYNO2)
	CP	KAIIN
	JR	Z,ICLKAI
;
	LD	A,(DJFLAG)
	AND	A
	JP	NZ,ICCK08 
;;	JR	NZ,ICLC010
;
ICLKAI
	CALL	ENCTBC
;
	LD	A,(ENMYNO2)
	CP	HART1
	JR	Z,ICLCHRT
	CP	KAIIN
	JR	NZ,ICCK92	;貝殻？
;				;YES !
	LD	A,(GRNDPT)
	CP	$DA
	JR	Z,ICCK92	;
	CP	$A5
	JR	Z,ICCK92	;
	CP	$74
	JR	Z,ICCK92	;
	CP	$3A
	JR	Z,ICCK92
	CP	$A8
	JR	Z,ICCK92
	CP	$B2
	JR	Z,ICCK92
;
ICLCHRT
	LD	A,(UNITNO)
	CP	KUSA0
	JR	Z,ICCK93	;草切ったら！
	JR	ICCK923
ICCK92
	LD	HL,ENWRK3
	ADD	HL,BC
	LD	(HL),$01
ICCK923
	LD	A,(UNITNO)
	CP	HTANA
	JR	NZ,ICCK08 	;掘った穴!
;
ICCK93
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	(HL),%00001010
	JR	ICLC090
;
ICLC010
;	LD	A,(ENMYNO2)
;	CP	HART1
;	JR	NZ,ICLC011
;;
;	CALL	ENCTBC
;	JR	ICLCHRT
;ICLC011
	LD	A,(TILTCT)
	AND	A
	JR	Z,ICCK08
;
	LD	A,(TLCRTM)
	AND	A
	JR	Z,ICCK08
;
	LD	A,(ENSVXL)
	ADD	A,$08	
	LD	HL,TLCRXL
	SUB	(HL)
	ADD	A,$10
	CP	$20
	JR	NC,ICCK08
;
	LD	A,(ENSVYL)
	ADD	A,$08	
	LD	HL,TLCRYL
	SUB	(HL)
	ADD	A,$10
	CP	$20
	JR	NC,ICCK08
;
ICLC090
	LD	HL,ENWRK2
	ADD	HL,BC
	LD	(HL),B
	LD	HL,ENWRK3
	ADD	HL,BC
	LD	(HL),B
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),$18	;Hit protect !
;
	LD	A,$0C
	CALL	PSERCH2
	LD	A,(WORK1)
	CPL
	INC	A
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(WORK0)
	CPL
	INC	A
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
;
;;	LD	A,$20
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	(HL),$20 ;A
;
;;	LD	A,$80
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
	CALL	LDTIM3
	LD	(HL),$80 ;A
;
;;	LD	(SPEKFG),A
ICCK08
	POP	AF
ICCK10
	RET
;======================================
ITKNHIT
	DB	1 ;HART1GT
	DB	1 ;COIN1GT
	DB	0 ;YOSEIGT
	DB	0 ;KEYSMGT
	DB	1 ;PLTATGT
	DB	0 ;HMASKGT
	DB	1 ;POWERGT
	DB	1 ;KINOMGT
	DB	0 ;KAKERGT
	DB	0 ;HARTBGT
	DB	1 ;ALOW1GT
	DB	1 ;BOMB1GT
	DB	0 ;GAKKIGT
	DB	0 ;KINOKGT
	DB	1 ;MGPOWGT
	DB	0 ;00	;KAKIN->KAKERGT!!
	DB	0 ;KAIINGT
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;&			     &
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
BUMECK
	LD	HL,ENWRK4 ;STAT
	ADD	HL,BC
	LD	A,(HL)
;;	LD	A,(ENSTAT2) ;HL)
	AND	A
	JR	Z,RP1M06	; Bumeran hit ?
;				; yes ! 
	POP	DE	; Not return
;
	DEC	A
	LD	E,A
	LD	D,B ;$00
;
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	Z,ITEMGT ;RP1GET
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	BUMER
	JR	Z,BUCK10
	CP	FUCKS
	JR	NZ,ITEMGT
;
BUCK10
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	(HL),A
;
	XOR	A
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	(HL),A
;
RP1M06
	RET
;======================================
CRITPL
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	A
	CALL	LDTIM1
	JR	NZ,RP1M06
;
	LD	A,(ENMYNO2)
	SUB	HART1
	LD	E,A
	LD	D,B
	LD	HL,ITKNHIT
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	Z,CIP1000	;Item ken hit check ?
;				;Yes !
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	PUSH	AF
	PUSH	HL
	LD	(HL),B
	CALL	CRKNEN
	POP	HL
	POP	AF
	LD	(HL),A
;
CIP1000
	CALL	CRENPL
	JR	NC,RP1M06
;-------------------------------------------
ITEMGT		; Item get sub 
;;	CALL	ENCLER
	LD	HL,ENJYUN
	ADD	HL,BC
	LD	A,(HL)
;
	CALL	ENDTON		;Bit on !
;
	LD	A,(ENMYNO2)
	SUB	HART1
;
	CP	$02
	JR	NC,ITGT00
;
	LD	HL,SOUND1	;(S)
	LD	(HL),$14
	JR	ITGT01
ITGT00
	LD	HL,SOUND2	;(S)
	LD	(HL),$01
ITGT01
	RST	00
	DW	HART1GT
	DW	COIN1GT
	DW	YOSEIGT
	DW	KEYSMGT
	DW	PLTATGT
	DW	HMASKGT
	DW	POWERGT
	DW	KINOMGT
	DW	KAKERGT
	DW	HARTBGT
	DW	ALOW1GT
	DW	BOMB1GT
	DW	GAKKIGT
	DW	KINOKGT
	DW	MGPOWGT
	DW	KAKINGT 	;KAKIN->KAKERGT!!
	DW	KAIINGT
;===========================
MGPOWGT
	LD	A,$0B
	LD	(CHTRF2),A
;
	LD	D,PMGIC
	CALL	ITEMGET
;
	LD	HL,PWMAX
	LD	DE,TUBOCT
;=======================================
MAXSUB
	LD	A,(DE)
	CP	(HL)
	JR	NC,MAXS10
	ADD	A,$01
	DAA
	LD	(DE),A
MAXS10
	RET
;
;
;
;
;;	LD	HL,TUBOCT
;;	JP	IUPSUB
;===========================
;KAKINGT	;はっぱ
;	CALL	JYANGET
;;
;;;	CALL	SVDTST	; BIT ON !
;;
;	LD	A,(DJFLAG)
;	AND	A
;	JR	NZ,KKGT10
;;
;	LD	A,(GRNDPT)
;	CP	$C6
;	JR	NZ,KKGT10	;鍵 ５ ステージ？
;;				;yes !
;	LD	A,$06-1
;	LD	(GRKEY5),A	;鍵 5 拾う！
;KKGT10
;	LD	HL,GRKEY5 ;KEYECT	;
;	JP	IUPSUB
;===========================
KAIINGT	;貝殻
	LD	A,$EF
	CALL	MSGCHK
KAIINC
	CALL	SVDTST	; BIT ON !
;
;;	LD	D,PROD
;;	CALL	ITEMGET
;
	LD	HL,CLC20	;かいがら
;-----------------------------
IUPSUB
	LD	A,(HL)
	CP	$99
	JR	Z,IUP010
	ADD	A,$01
	DAA
	LD	(HL),A
IUP010
	RET
;===========================
;===========================
;===========================
;GRKEYGT
;	LD	A,(ENCHPT2)
;	LD	E,A
;	LD	D,B
;	LD	HL,GRKEY1
;	ADD	HL,DE
;;;	LD	(HL),$01
;	INC	(HL)
;	RET
;===========================
ALOW1GT
	LD	HL,YAMAX
	LD	DE,YAAACT
	JR	MAXSUB
;
;;	LD	D,PYAST
;;	CALL	ITEMGET
;
;	LD	HL,YAAACT
;;;	INC	(HL)
;	JR	IUPSUB
;===========================
BOMB1GT
	LD	D,PBOMB
	CALL	ITEMGET
;
	LD	HL,BOMAX
	LD	DE,BOMBCT
	JR	MAXSUB
;
;	LD	HL,BOMBCT
;	CALL	IUPSUB
;
;	RET
;===========================
;===========================
GAKKIGT
	XOR	A
	LD	(BSFLFG2),A
	LD	(FADEON),A
;
	LD	A,$1B
	LD	(SOUND4),A	;(S)
	LD	(ITEMNOT),A
;
GKFLSHST
	LD	A,(PLXPSL)
	PUSH	AF
	ADD	A,$04
	LD	(PLXPSL),A
	CALL	DEMOFLST
	POP	AF
	LD	(PLXPSL),A
	JR	JG0010
HARTBGT
	XOR	A
	LD	(POWRFG),A
;
	LD	A,$25
	LD	(SOUND4),A	;(S)
	LD	(BSFLFG2),A
;;	LD	(MSSDWT),A
;;	LD	A,$18
;;	LD	(SOUND4),A	;(S)
;;	CALL	LDTIM3
	CALL	LDTIM0
;
	LD	A,$70
;;	LD	A,$9A
;;	LD	A,$9B+1
	LD	(HL),A
	LD	(ENSTTM),A
	JR	GTNEXT
KINOKGT	;キノコ
KAKINGT	;はっぱ
	LD	A,$10
	LD	(SOUND4),A	;(S)
	JR	JG0010
;- - - - -
JYANGET
	LD	A,$01
	LD	(SOUND1),A	;(S)
;
JG0010
	CALL	LDTIM0
;
	LD	A,$68
	LD	(HL),A
	LD	(ENSTTM),A
GTNEXT
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EMOVE
;
;	LD	HL,ENWATR
;	ADD	HL,BC
;	LD	(HL),B
	JP	DUSHCL
;===========================
KAKERGT
	LD	A,$10
;;	LD	A,$25
;;	LD	($D368),A	;(S)
	LD	(SOUND4),A	;(S)
;;	LD	(MSSDWT),A
;
	CALL	STATINC
	JR	GTNEXT
;===========================
KPWFSXD
	DB	$E4,$14,$E4,$14
KPWFSYD
	DB	$D4,$D4,$04,$04
;- - - - - - - - - - - - - - -
KINOMGT
	LD	A,$02	;デフェンスアップ
	LD	E,$05
	JR	PWGT10
;- - - - - - - - - - - - - - -
POWERGT
	LD	A,$01	;剣パワーアップ
	LD	E,$01
PWGT10
	LD	(POWRFG),A
;;	LD	A,$01
	LD	A,E
	LD	(DEMOFG),A
	LD	A,$30
	LD	(DEMOTM),A
	LD	(ENSTTM),A
	XOR	A
	LD	(POWRCT),A
;
	LD	A,$27		;早く持ってきやがれ！
	LD	(SOUND4),A	;(S)
	LD	A,$49
	LD	(BGMNO2),A	;(S)
	LD	(TODYFG),A	;(S)
;-------------------------------------
DEMOFLST
	LD	E,$3
	LD	D,$00
PT0090
	PUSH	DE
;
	LD	HL,KPWFSXD
	ADD	HL,DE
	LD	A,(PLXPSL)
	ADD	A,(HL)
	LD	(WORK0),A
;
	LD	HL,KPWFSYD
	ADD	HL,DE
	LD	A,(PLYPSL)
	ADD	A,(HL)
	LD	(WORK1),A
;
	LD	A,KPWF
	CALL	EXIDSH
;
	LD	HL,EXTIM0
	ADD	HL,DE
	LD	(HL),$18+$A
;
	LD	HL,EXSTAT
	ADD	HL,DE
	POP	DE
	LD	(HL),E
;
	DEC	E
	LD	A,E
	CP	$FF
	JR	NZ,PT0090
;
HMASKGT
	RET
;===========================
PLTATGT
	LD	A,(KENLEV)
	AND	A
	JR	NZ,PTG0120	; 剣まだ持ってない？
;				； はい
;;	LD	A,$01
;;	LD	(SOUND1),A	;(S)
	LD	A,$0F
	LD	(SOUND4),A	;(S)
	LD	(ITEMNOT),A
;;	LD	(MSSDWT),A
	CALL  	GKFLSHST
	CALL	LDTIM0
	LD	(HL),$A0
;
;;;	XOR	A
	LD	A,$FF
	LD	(TODYFG),A	;(S)BGM復帰無し！
	RET
;;	JP	JYANGET
;	LD	D,PKEN
;	CALL	ITEMGET		; 浜べで拾う！
;;
;	LD	A,$01
;	LD	(KENLEV),A
;;
;	JP	SVDTST	; Bit on !
;
PTG0120
	LD	HL,ENWRK0	; ライクライクから返却！
	ADD	HL,BC
	LD	A,(HL)
	LD	(TATLEV),A
;
	LD	D,PTATE
;=====================================
ITEMGET
	LD	HL,ITEMB
	LD	E,$0C
PTG0E0
	LD	A,(HLI)
	CP	D
	JR	Z,PTG030	; Allready have ?
	DEC	E		
	JR	NZ,PTG0E0
;				; no
	LD	HL,ITEMB
;;	LD	E,$00
PTG010
	LD	A,(HL)
	AND	A
	JR	NZ,PTG020
;
	LD	(HL),D  ;$4
	RET
PTG020
	INC	HL
	INC	E
	LD	A,E
	CP	$0C
	JR	NZ,PTG010
PTG030
	RET
;===========================
;- - - - - - - - - - - - - - - - - - -
KEYSMGT
;;	LD	A,(DJFLAG)
;;	AND	A
;;	JP	Z,JYANGET	;猿の棒！
;
	LD	A,(GRNDPT)
	CP	$80
	JR	NZ,KSGT90	;ガイコツボス フックショット！
;
	LD	A,$10
	LD	(SOUND4),A	;(S)
	JP	JG0010
KSGT90
;;	CALL	SVDTST	; Save bit on !
;
	LD	A,(GRNDPT)
	CP	$7C
	JR	NZ,KSG008
;
	LD	HL,DJRMSV+$69
	SET	4,(HL)
KSG008
	LD	A,(ENCHPT2)
	AND	A
	JR	Z,KSG010
;
;	DEC	A
;	LD	E,A
;	LD	D,B
;	LD	HL,GRKEY1
;	ADD	HL,DE
;	LD	(HL),$01
;;
;	LD	HL,GKMSDT
;	ADD	HL,DE
;	LD	A,(HL)
;	CALL	MSGCHK
;;
;	CALL	SVDSSB
;	SET	4,(HL)
;
	LD	A,$10
	LD	(SOUND4),A	;(S)
	JP	JG0010
;
KSG010
	CALL	SVDTST	; Save bit on !
;
	LD	HL,SKEYF
	INC	(HL)	;Display count inc !
;
	CALL	DJITRV	;Display buffer->Main buffer
;
	RET
;===========================
HART1GT
	LD	A,$8
HTUPSUB
	LD	HL,HARTUP
ADDHL
	ADD	A,(HL)  ;$8
	LD	(HL),A
	RET
;===========================
COIN1GT
	LD	A,$1
	LD	HL,COINU2
	JR	ADDHL
;===========================
YOSEIGT
	LD	A,48
	JR	HTUPSUB
;###############################################
;#					       #
;###############################################
ENIDSH
	LD	E,<ENNO-1
ENIDSH2
	PUSH	AF
;
	LD	D,$00
EISH10
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	Z,EISH20
	DEC	E
	LD	A,E
	CP	$FF
	JR	NZ,EISH10
;
	POP	AF
	SCF	; SEC
	RET
;
EISH20
;;;	LD	A,EMOVE
	LD	(HL),EMOVE ;A
	POP	AF
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK0),A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK1),A
;
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK2),A
;
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK3),A
;
	CALL	ENMDST2
;
	LD	HL,ENHNFG
	ADD	HL,DE
	LD	(HL),$01	; Fole check !
;
	LD	HL,ENXPSH
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENXPSH
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENYPSH
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENYPSH
	ADD	HL,DE
	LD	(HL),A
;
	SCF
	CCF	; CLC
	RET
;
;======================================
ENMDST2
	PUSH	BC
	PUSH	DE
	PUSH	DE
	POP	BC
	CALL	ENMDST
	POP	DE
	POP	BC
	RET
;==============================================
;###############################################
;#	PLAYER BOMBER			       #
;###############################################
BOMBRCD
	DB	$80,$10
;;	DB	$18,$00
BOMBKCD
;- -0 - -
	DB	$F8,$F8,$32,$00
	DB	$F8,$00,$32,$20
;
	DB	$F8,$08,$32,$00
	DB	$F8,$10,$32,$20
;
	DB	$08,$F8,$32,$00
	DB	$08,$00,$32,$20
;
	DB	$08,$08,$32,$00
	DB	$08,$10,$32,$20
;- -1 - -
	DB	$F8,$F8,$10,$00
	DB	$F8,$00,$12,$00
;
	DB	$F8,$08,$12,$20
	DB	$F8,$10,$10,$20
;
	DB	$08,$F8,$10,$40
	DB	$08,$00,$12,$40
;
	DB	$08,$08,$12,$60
	DB	$08,$10,$10,$60
;- -2 - -
	DB	$FC,$FC,$30,$10
	DB	$FC,$04,$30,$30
;
	DB	$FC,$04,$30,$10
	DB	$FC,$0C,$30,$30
;
	DB	$04,$FC,$30,$10
	DB	$04,$04,$30,$30
;
	DB	$04,$04,$30,$10
	DB	$04,$0C,$30,$30
;- -3 - -
	DB	$FC,$FC,$30,$00
	DB	$FC,$04,$30,$20
;
	DB	$FC,$04,$30,$00
	DB	$FC,$0C,$30,$20
;
	DB	$04,$FC,$30,$00
	DB	$04,$04,$30,$20
;
	DB	$04,$04,$30,$00
	DB	$04,$0C,$30,$20
;------------------------------------------
BOMBKCS
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	A,(HL)  ;ENCHPT2) ;HL)
	SLA	A
	SLA	A
	SLA	A
	SLA	A
	SLA	A
	LD	E,A
	LD	D,B ;$0
	LD	HL,BOMBKCD
	ADD	HL,DE
	LD	C,$8
;
	CALL	ENOMST
	RET
;
;=======================================
BBRCMD
	DB	0,0,0,0
	DB	0,0,0,0
	DB	1,1,1,1
	DB	1,1,1,1
	DB	2,2,2,2
	DB	3,3,3,3
;
BOMBRBK
	CALL	BBRCS
;
	CALL	ENSTCK
;
	CALL	LDTIM0
	AND	A
	JP	NZ,BBRK10
;
	JP	ENCLER
BBRK10
	LD	E,A
	LD	HL,ENWRK3
	ADD	HL,BC
	LD	A,(HL)
	CP	$4C
	LD	A,E
	JP	Z,BBRK20
;
	CP	$0E
	JR	C,BBRK11
;
	CP	$17
	JR	NC,BBRK11
;
	PUSH	AF
	SUB	$0E
	LD	E,A
	LD	D,B
;
	PUSH	DE
	CALL	BOBGCK2	; KUSA BREAK CHECK 
	POP	DE
	CALL	BOBGCK	; Kabe !!
	POP	AF
BBRK11
	CP	$12
	JR	NZ,BBRK20
;
	LD	HL,ENWRK3
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,BBRK111
;
	CALL	CRBOEN
	JR	BBRK12
;
BBRK111
;;	CP	$4C
;;	JR	Z,BBRK12
;
	LD	A,(ENSVXL)
	LD	HL,PLXPSL
	SUB	(HL)
	ADD	A,$18
	CP	$30
	JR	NC,BBRK12
;
	LD	A,(ENSVYL)
	LD	HL,PLYPSL
	SUB	(HL)
	ADD	A,$18
	CP	$30
	JR	NC,BBRK12
;
	CALL	PLDMST2
;
	LD	HL,PLXSPD
	SLA	(HL)
	LD	HL,PLYSPD
	SLA	(HL)
BBRK12
	LD	A,$4
	LD	(OTOFLG),A	; Oto flag !
;
;;	LD	A,$12
BBRK20
	RET
;============================================
BBRCS
	CALL	LDTIM0
	LD	E,A
	LD	D,B ;$0
	LD	HL,BBRCMD
	ADD	HL,DE
	LD	A,(HL)
	CALL	ENPTST
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	AND	%11110000
	OR	%00001000
	LD	(HL),A
;
	CALL	BOMBKCS
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,BRK100
;
	LD	E,$E4
;
	LD	A,(SCRLFG)
	AND	A
	JR	NZ,BRK088
;
	CALL	LDTIM0
	AND	%00000100
	JR	Z,BRK088
;
	LD	E,$84
BRK088
	LD	HL,BGPFG
	LD	(HL),E
;
BRK100
;;	CALL	ENSTCK
	RET
;==============================================
BOMBRB1
	LD	DE,KEMRICD
	CALL	EN2CST
	CALL	ENSTCK
	RET
;==============================================
BOMBRMV
	LD	A,(ENDSYP)
	ADD	A,$10
	CP	$90+$10
	JP	NC,ENCLER
;
;	LD	A,(BOMBFG)
;	INC	A
;	LD	(BOMBFG),A
;
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
	CP	$18
	JP	C,BOMBRBK
	JR	NZ,BBBB0
;
	DEC	(HL)
;;	LD	HL,SOUND3
;;	LD	(HL),$0C	;(S)
	CALL	BBSDST	;(S)
BBBB0
	LD	HL,BOMBFG
	INC	(HL)		; Bomb use count inc !
;
	CP	$22
	JR	C,BOMBRB1
;
	CP	$48
	JR	NZ,BBRM08
;
	LD	HL,ENFLSH
	ADD	HL,BC
;;	LD	A,$30
	LD	(HL),$30 ;A
BBRM08
;;	LD	DE,BOMBRCD
;;	CALL	EN1CST
	CALL	BOMBRCS
;
	CALL	ERCHK	;りゅうさ？
;
	CALL	ENSTCK
;
;;	CALL	ENMVCL
;;	CALL	ENBGCK
;
	CALL	ENBDCL
;
	LD	HL,ENTIM2
	ADD	HL,BC
	LD	(HL),$FF
;- - Cach check - -
	CALL	LDTIM1
;
	LD	HL,ENWRK3
	ADD	HL,BC
;;;	LD	A,(HL)
;;;;
;;;	LD	HL,ENTIM1
;;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	A
	OR	(HL)
	JR	NZ,BSTP10
;
	LD	A,(ITEMB)
	CP	PBOMB
	JR	NZ,BST900	; Bulesret check !
;
	LD	A,(KEYA2)
	AND	%00100000
	JR	NZ,BST910
	JR	BSTP10
BST900
	LD	A,(ITEMA)
	CP	PBOMB
	JR	NZ,BSTP10
;
	LD	A,(KEYA2)
	AND	%00010000
	JR	Z,BSTP10
;
BST910
	CALL	CACHCK
BSTP10
TURCHK
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000011
	JR	Z,BBRM80
;
	CALL	ENXTUR
BBRM80
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,BBRM90
;
	LD	A,(HL)
	AND	%00001100
	JR	Z,BBRM90
;
	CALL	ENYTUR
BBRM90
	RET
;============================================
BOMBRCS
	LD	HL,ENDSYP
	INC	(HL)
	INC	(HL)
;
;	LD	A,(YKFLAG)
;	AND	A
;	JR	NZ,BBSC10
;;
;	LD	A,(ENMODE2)
;	CP	ECACH
;	JR	Z,BBSC10
;;
;	INC	(HL)
;	INC	(HL)
;BBSC10
	LD	DE,BOMBRCD
	CALL	EN1CST
;
	JP	ENPSSV
;============================================
BBCKXD
	DB	$F8,$08,$18
	DB	$F8,$08,$18
	DB	$F8,$08,$18
BBCKYD
	DB	$F8,$F8,$F8
	DB	$08,$08,$08
	DB	$18,$18,$18
;
BBBRXP
	DB	$48,$48,$00,$90
BBBRYP
	DB	$00,$70,$38,$38
;	
BBBRUN
	DB	DBMUD 
	DB	DBMUD
	DB	DBMLR
	DB	DBMLR 
;;	DB	DHD00 
;;	DB	DHD02
;;	DB	DHD04
;;	DB	DHD06
BBBRCD	; For danjyon
	DB	$72,$72,$73,$73
	DB	$69,$79,$69,$79
BBBRCG	; For ground
	DB	$64,$66,$65,$67
BBBRSV
	DB	%00000100
	DB	%00001000
	DB	%00000010
	DB	%00000001
BBBRSV2
	DB	%00001000
	DB	%00000100
	DB	%00000001
	DB	%00000010
BBBRAD
	DB	$F8
	DB	$08
	DB	$FF
	DB	$01
BBGCDT
	DB	$72,$73,$73,$72
BBGXAD
	DB	$00,$10,$F0,$10
BBGYAD
	DB	$00,$00,$10,$00
;------------------------------------------
BOBGCK	 
	LD	A,(YKFLAG)
	AND	A
	JP	NZ,BOBCRT
;
;-- KABE BREAK CHECK - -
;	CALL	LDTIM0
;	AND	$07
;	LD	E,A
;	LD	D,B
;
	PUSH	BC
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$08
;
	LD	HL,BBCKXD
	ADD	HL,DE
	ADD	A,(HL)
	AND	$F0
	LD	(OBJXP),A
	SWAP	A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	C,A
	LD	A,(HL)
	SUB	$10
	LD	HL,BBCKYD
	ADD	HL,DE
	ADD	A,(HL)
	AND	$F0
	LD	(OBJYP),A
	OR	C
	LD	C,A
;---------------------------------
	LD	B,$0
	LD	HL,BGUNDT+$11
	LD	A,H
	ADD	HL,BC
	LD	H,A
	LD	A,C
	LD	(ENHELP2),A
	LD	A,(HL)
	LD	(UNITNO),A
	LD	E,A
;
	CP	BOMG0
	JR	C,BBG310
	CP	BOMG3+1
	JR	NC,BBG310	; Big sekizoo ?
;				; yes !
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,BBG310
;
	LD	A,$02
	LD	(SOUND1),A	;(S)
;
	LD	A,(OBJYP)
	AND	$E0
	LD	(OBJYP),A
	LD	A,(OBJXP)
	AND	$E0
	LD	(OBJXP),A
;
	CALL	BBGBRST
;
	LD	A,C
	AND	$EE
	LD	C,A
;
	LD	HL,BGUNDT+$11
	ADD	HL,BC
	LD	A,STON2
	LD	(HLI),A
	LD	(HLD),A
	LD	A,L
	ADD	A,$10
	LD	L,A
	LD	A,STON2
	LD	(HLI),A
	LD	(HL),STON2
;
	LD	C,$3
	LD	B,$00
BBG110
	CALL	BBBGSB
;
	LD	HL,BBGXAD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,OBJXP
	ADD	A,(HL)
	LD	(HL),A
	LD	HL,BBGYAD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,OBJYP
	ADD	A,(HL)
	LD	(HL),A
;
	DEC	C
	LD	A,C
	CP	$FF
	JR	NZ,BBG110
;
	JP	BBCK90
;- - - - - - - - - - - - - - - - - - - - -
BBBGSB
	LD	DE,BBGCDT
	JP	BBBGSV
;- - - - - - - - - - - - - - - - - - - - -
BBG310
	LD	A,(DJFLAG)
	LD	D,A
;	LD	HL,GRBGCR
;	ADD	HL,DE
;	LD	A,(HL)
	CALL	BGCRRD
;-----------------------------------
	SUB	$99
	JP	C,BBCK90
	CP	$9D-$99
	JP	NC,BBCK90	; Hibi ware BG ?
;				; yes !
	LD	C,A
;
	LD	A,$02
	LD	(SOUND1),A	;(S)
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,BBGGRD	; Danjyon ?
;- - - -			; Yes !
	POP	BC
;
	LD	A,(ENHELP2)
	LD	E,A
	LD	D,B
	LD	HL,BGUNDT+$11
	ADD	HL,DE
	LD	(HL),ANA00
;
	LD	DE,BBBRCG
;
BBBGSV
	PUSH	DE
;
	LD	HL,GRRMSV
	LD	A,(GRNDPT)
	LD	E,A
	LD	D,$00
	ADD	HL,DE
;
	LD	A,(HL)
	OR	%00000100
	LD	(HL),A
	LD	(DJSVBF),A	; Save data buffer set !
;
	JP	UNBGWT
;----------------------------------------
BBGGRD
;;	LD	HL,BBBRYP
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	LD	(OBJYP),A
;====
	LD	HL,DJRMSV
	LD	A,(GRNDPT)
	LD	E,A
	LD	D,$00
	LD	A,(DNJNNO)
	CP	DJROOM2
	JR	NC,BGBR10
	CP	DJROOM
	JR	C,BGBR10
	INC	D
BGBR10
	ADD	HL,DE
	PUSH	HL
	POP	DE
;
	LD	HL,BBBRSV
	ADD	HL,BC
;
	LD	A,(DE)
	OR	(HL)
	LD	(DE),A
	LD	(DJSVBF),A	; Save data buffer set !
;- -For next room open - -
	LD	HL,BBBRAD
	ADD	HL,BC
	LD	A,(DNJNPT)
	ADD	A,(HL)
	LD	E,A
	LD	D,$0
	CALL	DJRMRD	; In bank 0 FOR BANK 9 DATA READ !
	PUSH	HL
	POP	DE
;
	LD	HL,BBBRSV2
	ADD	HL,BC
;
	LD	A,(DE)
	OR	(HL)
	LD	(DE),A
;====ダンジョン内部爆弾壊れる壁書き換え======
;	LD	HL,BBBRXP
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	(OBJXP),A
;	SWAP	A
;	AND	$0F
;	LD	E,A
;	LD	A,(OBJYP)
;	AND	$F0
;	OR	E
;	LD	E,A
;	LD	D,$0
;--
	LD	A,(OBJXP)
	SWAP	A
	AND	$0F
	LD	E,A
	LD	A,(OBJYP)
	AND	$F0
	OR	E
	LD	E,A
	LD	D,$00
;
	LD	HL,BGUNDT+$11
	ADD	HL,DE
;
	PUSH	HL
	POP	DE
;
	LD	HL,BBBRUN
	ADD	HL,BC
	LD	A,(HL)
	LD	(DE),A
;	LD	A,C
;	CP	$02
;	INC	E
;	JR	C,BBCK50
;;
;	LD	A,E
;	ADD	A,$10-1
;	LD	E,A
;BBCK50
;	LD	A,(HL)
;	INC	A
;	LD	(DE),A
;
	LD	A,C
	RLA
	AND	%00000100	
	LD	C,A
	LD	HL,BBBRCD
	ADD	HL,BC
	POP	BC
	PUSH	HL
;
	JP	UNBGWT
;-----------------------------------
BBCK90
	POP	BC
;
BOBCRT
	RET
;==============================================
BSBXAD
	DB	$08,$18 ;,$18
	DB	$08,$18 ;,$18
;;	DB	$08,$10,$18
BSBYAD
	DB	$10,$10 ;,$10
;;	DB	$18,$18 ;,$18
	DB	$20,$20 ;,$20
;BSBXSD
;	DB	$FD,$FE,$04
;	DB	$FB,$02,$06
;	DB	$FC,$FF,$05
;BSBYSD
;	DB	$FC,$FD,$FC
;	DB	$01,$FF,$00
;	DB	$03,$05,$04
;BSBZSD
;	DB	$14,$13,$15
;	DB	$15,$13,$16
;	DB	$16,$14,$13
;- - - - - - - - - - - - - - - - - - - - -
BBGBRST
	PUSH	BC
;
	LD	C,$3
	LD	B,$0
BSB010
	LD	A,KTOBJ
	CALL	ENIDSH
	JR	C,BSB090
;
	LD	HL,ENTIM1
	ADD	HL,DE
	LD	(HL),$0F
;
	LD	A,(OBJXP)
	LD	HL,BSBXAD
	ADD	HL,BC
	ADD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(OBJYP)
	LD	HL,BSBYAD
	ADD	HL,BC
	ADD	A,(HL)
	LD	HL,WORK3
	SUB	(HL)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
;	LD	HL,BSBXSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENXSPD
;	ADD	HL,DE
;	LD	(HL),A
;	LD	HL,BSBYSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENYSPD
;	ADD	HL,DE
;	LD	(HL),A
;	LD	HL,BSBZSD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENZSPD
;	ADD	HL,DE
;	LD	(HL),A
;
;	LD	HL,ENWRK2
;	ADD	HL,DE
;	LD	(HL),$01
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	(HL),%11000100
;
BSB090
	DEC	C
	LD	A,C
	CP	$FF
	JR	NZ,BSB010
;
	POP	BC
;
	RET
;==============================================
BOBGXD
	DB	$F8,$08,$18
	DB	$F8,$08,$18
	DB	$F8,$08,$18
BOBGYD
	DB	$F8,$F8,$F8
	DB	$08,$08,$08
	DB	$18,$18,$18
;- - - - - - - - - - - - - - - - - - - -
BOBGCK2
;;	LD	A,(DJFLAG)
;;	AND	A
;;	JP	NZ,B2CKF0
;
	PUSH	BC
;
	LD	HL,BOBGXD
	ADD	HL,DE
	LD	A,(ENSVXL)
	ADD	A,(HL)
	SUB	$08
	AND	$F0
	LD	(OBJXP),A
;
	SWAP	A
	LD	C,A
;
	LD	HL,BOBGYD
	ADD	HL,DE
	LD	A,(ENDSYP)
	ADD	A,(HL)
	SUB	$10
	AND	$F0
	LD	(OBJYP),A
;
	OR	C
	LD	E,A
	LD	HL,BGUNDT+$11
	ADD	HL,DE
	LD	A,H
	CP	$D7
	JP	NZ,B2CK80
;
	LD	A,(DJFLAG)
	AND	A
	LD	A,(HL)
	LD	(UNITNO),A
	JR	NZ,B2CK033
;
	LD	(ENHELP2),A
	CP	KUSA2
	JR	Z,B2CK05
	CP	ANFLW
	JR	Z,B2CK05
	CP	FLW00
	JR	Z,B2CK05
	JP	B2CK80
B2CK033
;	CP	DDBLK
;	JR	Z,B2CK05
;;	LD	A,(HL)
;
	CP	DBOMB
	JP	NZ,B2CK80
;
	LD	A,(GRNDPT)
	LD	C,A
	LD	B,$00
	LD	A,(DNJNNO)
	CP	DJROOM2
	JR	NC,B2CK334
	CP	DJROOM
	JR	C,B2CK334
;
	INC	B
B2CK334
	LD	HL,DJRMSV
	ADD	HL,BC
	LD	A,(HL)
	OR	%01000000
;;	OR	%00100000
	LD	(HL),A
	LD	(DJSVBF),A
B2CK05
	CALL	BG1CHG
;
;-- Kusa break --
	LD	A,KTOBJ
;;	CALL	PLSHST
	CALL	ENIDSH
	JR	C,B2CK80
;
	XOR	A
	LD	(POWDRTM),A
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(OBJXP)
	ADD	A,$8
	LD	(HL),A
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(OBJYP)
	ADD	A,$10
	LD	(HL),A
;
;;	LD	HL,ENTIM0
;;	ADD	HL,DE
;;	LD	(HL),$1F ;A
;
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	A,(DJFLAG)
	XOR	$01
;;	LD	A,$1
	LD	(HL),A  ;$01  ;A
	LD	(ENCHPT2),A
;
	LD	A,(ENHELP2)
	CP	KUSA2
	JR	NZ,B2CK78
;
	LD	A,$FF
	LD	(HL),A  ;$01  ;A
	LD	(ENCHPT2),A
B2CK78
	PUSH	DE
	POP	BC
	CALL	KTFLST	
B2CK80
	POP	BC
B2CKF0
	RET
;###############################################
;#					       #
;###############################################
;===============================================
;=					       =
;===============================================
POWDRBD2
	DB	$6C,$74,$6D,$75
;TONDT2	
;	DB	$07,$06,$05
;;- - - - - - - - - - - - - -
;TOUROUOF2
;	LD	A,(TOURCT)
;	DEC	A
;	JR	TON0102
;TOUROUON2
;	LD	A,(TOURCT)
;	INC	A
;TON0102
;	LD	(TOURCT),A
;TRONSUB2
;	LD	E,A
;	LD	D,B
;	LD	HL,TONDT2
;	ADD	HL,DE
;	LD	A,(HL)
;
;	PUSH	BC
;;
;	CALL	TOURST
;;
;	POP	BC
;	RET
;==============================================
PRTBMCD
;;	DB	$A4,$00,$A4,$20
;;	DB	$A4,$10,$A4,$30
	DB	$36,$00,$36,$20
	DB	$36,$10,$36,$30
;- - - - - - - - - - - - - - - - - - - - -
PRTBMMV
	LD	HL,BUMEFG
;;	LD	HL,PFUCKFG
;;	LD	HL,PRTBMFG
	INC	(HL)
;
	LD	A,$A
	LD	(ATCKNO),A
	CALL	CRENEN
;
	LD	A,(FRCNT)
	RRA
	RRA
	RRA
	AND	%00000001
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),A
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	A
	CALL	LDTIM1
	JR	Z,PRT010
;
	DEC	A
	JP	Z,ENCLER
;
	LD	DE,ENFIRECD
	JP	EN2CST
PRT010
	LD	DE,PRTBMCD
	CALL	MYM002
;
	CALL	ENSTCK
;-----------------------------------
RODSUB
	LD	A,(DJFLAG)
	AND	A
	LD	A,(UNITNO)
	JR	Z,PRT076
;
	CP	DHIMI	;氷！
	JR	Z,PRT088
	JR	PRT090
;
PRT076
	CP	ANFLW
	JR	Z,PRT088
	CP	FLW00
	JR	NZ,PRT090
;
PRT088
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	(HL),B
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),B
;
	LD	A,(ENHELP2)
	LD	E,A
	LD	D,B
;
	CALL	BG1CHG
;
	LD	A,(OBJXP)
	ADD	A,$08
	LD	(WORK0),A
	LD	A,(OBJYP)
	ADD	A,$10
	LD	(WORK1),A
;
	LD	A,HNSM
	CALL	EXIDSH
;
	LD	A,$13
	LD	(SOUND3),A	;(S)
;;	LD	A,$06
;;	LD	(SOUND1),A	;(S)
PRT090
	RET
;==============================================
OCTAMCD
	DB	$6C,$00,$6C,$20
	DB	$5C,$00,$5C,$20
;;	DB	$6E,$00,$6E,$20
OCTAMMV
	CALL	LDTIM0
	JR	NZ,OCTM01
;
	CALL	CRENPL2
OCTM01
	LD	DE,OCTAMCD
	JP	MYM002
;==============================================
PYAAAMV
	LD	HL,BUMEFG
	INC	(HL)
;
	LD	A,(ENSTAT2)
	AND	A
	JR	NZ,BMYAAMV	; Bomber alow ?
;				; No
	CALL	LDTIM0
	JP	NZ,MYM001
;
	LD	A,$5
	LD	(ATCKNO),A
	CALL	CRENEN
	CALL	MYM001
;
	LD	A,(ENCHPT2)
	CP	$02
	JR	NZ,PYAM10	;上向き？
;				;YES !
	LD	A,(NAZOFG)
	AND	$1F
	CP	$0F
	JR	NZ,PYAM10	;メダマンは矢に弱い謎？
;				;YES !
	LD	A,(UNITNO)
	CP	DKNHT
	JR	NZ,PYAM10
;
	CALL	NAZOCLR	;(S)
;
	CALL	ENCLER
PYAM10
	RET
;==============================================
BMYAACD
	DB	$80,$10
BMYAXD
	DB	$04,$FC,$00,$00
BMYAYD
	DB	$FE,$FE,$FA,$04
;
BMYAAMV
	CALL	LDTIM0
	JR	Z,BMYA70
;
	LD	A,BOMBR
	CALL	ENIDSH
	JR	C,BMYA68
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$17
;
;;	LD	A,$0C
;;	LD	(SOUND3),A	;(S)
	CALL	BBSDST	;(S)
BMYA68
	JP	ENCLER
;
BMYA70
	LD	A,(ENCHPT2)
	PUSH	AF
	LD	E,A
	LD	D,B
	XOR	A
	LD	(ENCHPT2),A
;
	LD	HL,BMYAXD
	ADD	HL,DE
	LD	A,(ENSVXL)
	ADD	A,(HL)
	LD	(ENSVXL),A
	LD	HL,BMYAYD
	ADD	HL,DE
	LD	A,(ENDSYP)
	ADD	A,(HL)
	LD	(ENDSYP),A
;
	LD	DE,BMYAACD
	CALL	EN1CST
;
	CALL	ENPSSV
;
	POP	AF
	LD	(ENCHPT2),A
;
	LD	DE,MORYACD
	CALL	EN2CST
;
	LD	A,$C
	LD	(ATCKNO),A
	CALL	CRENEN
;
	JR	MYM003
;==============================================
MORYAMV
	CALL	LDTIM0
	JR	NZ,MYM001
;
	CALL	CRENPL2
MYM001
	LD	DE,MORYACD
MYM002
	CALL	EN2CST
;
MYM003
	CALL	ENSTCK
;
	CALL	LDTIM0
	JR	NZ,MYM030
;
	CALL	ENMVCL
	CALL	ENBGCK2
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,MYM010
;
	CALL	LDTIM0
;
	LD	A,(ENMYNO2)
	CP	PRTBM
;;	JP	Z,PRTBMED
;;	CP	OCTAM
	JR	NZ,MYM012
;;;
;;	LD	A,$09
;;	LD	(SOUND3),A	;(S)
;;;
;;	LD	(HL),$FF ;A
;;	RET
;========================================
PRTBMED
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),$30  ;50
	RET
;========================================
MYM012
	LD	(HL),$18 ;A
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	(HL),$10 ;A
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	INC	A
	JR	Z,MYM1112	;FF:Tate hit !!
;				
	LD	A,$07		; BG hit !!
	LD	(SOUND1),A	;(S)
MYM1112
	CALL	OTOSET
;
	LD	A,(ENMYNO2)
	CP	PYAAA
	JR	NZ,ENXYTR
;-----------------------------------
ENXYT2
	CALL	ENYTU2
ENXTU2
	LD	HL,ENXSPD
TRSUB2
	ADD	HL,BC
	LD	A,(HL)
	CPL
	INC	A
	SRA	A
	SRA	A
	LD	(HL),A
	RET
;------------------------------------
ENYTU2
	LD	HL,ENYSPD
	JR	TRSUB2
;------------------------------------
ENXYTR
	CALL	ENYTUR
ENXTUR
	LD	HL,ENXSPD
TRSUB
	ADD	HL,BC
	LD	A,(HL)
	CPL
	INC	A
	SRA	A
	SRA	A
	SRA	A
	LD	(HL),A
MYM010
	RET
;------------------------------------
ENYTUR
	LD	HL,ENYSPD
	JR	TRSUB
;------------------------------------
MYSPDT
	DB	0,3,1,2
;
MYM030
;	CP	$F0
;	JR	Z,MYM033
;	JR	C,MYM032	; OCTAM break ?
;;				; yes !
;	LD	A,$01
;	CALL	ENPTST
;	RET
;MYM032
	CP	$01
	JR	NZ,MYM035
MYM033
	JP	ENCLER
MYM035
	LD	A,(ENMYNO2)
	CP	OCTAM
	JR	Z,MYM037
;
	CALL	LDTIM0
	SRL	A
	SRL	A
	SRL	A
	AND	$03
	LD	E,A
	LD	D,B ;$00
	LD	HL,MYSPDT
	ADD	HL,DE
	LD	A,(HL)
	CALL	ENPTST
MYM037
	CALL	ENMVCL
	JR	ENGCLC
;=====================================
ENGDAT
;;		Nrm Dep Srw Ksa
	DB	$02,$01,$02,$02
ENGMXD
	DB	$40,$08,$40,$40
;--------------------------------------
ENGCLC
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,EGC010
;
	CALL	ENZCLC
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	A,(HL)
	SUB	$2
	LD	(HL),A
	RET
EGC010
	LD	HL,ENWATR
	ADD	HL,BC
	LD	A,(HL)
;;	AND	$01
	LD	E,A
	LD	D,B
;
;;;	LD	A,E
	AND	A
	JR	Z,EGC012
;
	LD	A,(FRCNT)
	AND	$07
	JR	NZ,EGC012
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,EGC012
;
	AND	%10000000
	JR	Z,EGC011
;
	INC	(HL)
	INC	(HL)
EGC011
	DEC	(HL)
EGC012
	LD	HL,ENGDAT
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,ENYSPD
	ADD	HL,BC
	ADD	A,(HL)
	LD	(HL),A
;
	LD	HL,ENGMXD
	ADD	HL,DE
	SUB	(HL)
	AND	%10000000
	JR	NZ,EGC020
;
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
EGC020
	RET
;===============================================
MORYACD
	DB	$2E,$20,$2C,$20
	DB	$2C,$00,$2E,$00
	DB	$2A,$40,$2A,$60
	DB	$2A,$00,$2A,$20
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CPMKCK
	DB	$1,$0,$3,$2
R7BCKD
	DB	$2 ;,$3,$4,$5,$6
	DB	$A ;,$B,$C,$D,$E
	DB	$E ;,$F,$0,$1,$2
	DB	$6 ;,$7,$8,$9,$A
;----------------------------------------
CRENPL2		; Small size hit 
	LD	A,(PLMODE)
	CP	PTOBI
	JR	NC,CEPRET
;
	LD	A,(PLZPSL)
	AND	A
	JR	NZ,CEPRET
;
	LD	HL,ENSVXL
;;	ADD	HL,BC
	LD	A,(PLXPSL)
	SUB	(HL)
	ADD	A,$06
	CP	$0C
	JR	NC,CEPRET
;
	LD	HL,ENDSYP
;;	ADD	HL,BC
	LD	A,(PLYPSL)
	SUB	(HL)
	ADD	A,$06
	CP	$0C
	JR	NC,CEPRET
;
	LD	A,(TATEON)
	AND	A
	JR	Z,CEP0E0	; Seeld with ?
;				; yes !
	LD	A,(ENMYNO2)
	CP	R7BEM
	JR	NZ,CEP0D2
;
	LD	A,(TATLEV)
	CP	$02
	JR	C,CEP0E0
;
;
;K	LD	A,(TATLEV)
;K	CP	$02
;K	JR	C,CEP0E0
;
;;	LD	HL,ENMUKI
;;	ADD	HL,BC
;;	LD	E,(HL)
;
	LD	A,(PLCMKI)
	LD	E,A
	LD	D,B
	LD	HL,R7BCKD
	ADD	HL,DE
	LD	E,(HL)
;
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	A,(HL)
	SUB	E
	AND	$0F
	CP	$05
	JR	NC,CEP0E0
;
;;	LD	A,(PLCMKI)
;;	CP	(HL)
;;	JR	NZ,CEP0E0
;
	LD	HL,ENCBFG
	ADD	HL,BC
;;	LD	A,$1
	LD	(HL),$02 ;Hanekairi
;
	LD	A,$07
	LD	(SOUND1),A	;(S)
;
	LD	A,(ENSVYL)
EKFLSHS
	LD	(WORK1),A
;
	LD	A,(ENSVXL)
	LD	(WORK0),A
;
	LD	A,FLSH
	CALL	EXIDSH
;
;;	CALL	ENCLER
	RET
;
CEP0D2
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	E,(HL)
;;	LD	E,A
	LD	D,B ;$00
;
	LD	HL,CPMKCK
	ADD	HL,DE
	LD	A,(PLCMKI)
	CP	(HL)
	JR	NZ,CEP0E0	; muki -> seeld ?
;				; yes !
	LD	A,$16
	LD	(SOUND1),A	;(S)
CEP0D8
CBFGON
	LD	HL,ENCBFG
	ADD	HL,BC
;;	LD	A,$1
	LD	(HL),$FF ;A
CEPRET
	RET
CEP0E0
	CALL	CEP000
;
	LD	A,(ENMYNO2)
	CP	R7BEM
	JR	Z,CEP0EC
	CP	MORYA
	JR	NZ,CEP0D8
CEP0EC
	JP	ENCLER
;=====================================
CRENPL
	LD	A,(FRCNT)
	XOR	C
	RRA
	JP	NC,CEP010
;
CRENPLF
	LD	A,(PLZPSL)
	AND	A
	JR	NZ,CEPRET
;
CRENPS
	LD	A,(PLMODE)
	CP	PTOBI
	JR	NC,CEPRET
;- - X check - -
	PUSH	BC
;
	SLA	C
	SLA	C
	LD	HL,ENOJSZ
	ADD	HL,BC
;
	POP	BC
;
	LD	A,(ENSVXL)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PLXPSL
	SUB	(HL)
	SUB	$08
	CP	$80
	JR	C,CEP00C
;
	CPL
	INC	A
CEP00C
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,$04
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JP	NC,CEP010
;
	INC	HL
;- - Y check - -
	LD	A,(ENDSYP)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PLYPSL
	SUB	(HL)
	SUB	$08
	CP	$80
	JR	C,CEP00E
;
	CPL
	INC	A
CEP00E
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,$04
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JR	NC,CEP010
;-- OLD --
;	LD	HL,ENXPSL
;	ADD	HL,BC
;	LD	A,(PLXPSL)
;	SUB	(HL)
;	ADD	A,$0A
;	CP	$14
;	JR	NC,CEP010
;;
;	LD	HL,ENDSYP
;;;	ADD	HL,BC
;	LD	A,(PLYPSL)
;	SUB	(HL)
;	ADD	A,$0A
;	CP	$14
;	JR	NC,CEP010
;;----------------------------------------
CEP000
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	AND	%10000000
	JR	Z,CEP008	; Only hit ?
;				; yes !
CEPSCF
	SCF
	RET
CEP010
	AND	A	;CLC
	RET
CEP008
	LD	A,(PLCHPT)
	SUB	$4E
	CP	$4F-$4E+1
	JR	C,CEPSCF
;- - - - - - - - - - - - - - - - - - - - - - -
PLDMST2
	LD	A,(ENMYNO2)
	CP	PUKPJ
	JR	NZ,PDS2100
;
	CALL	EPYCHK
	LD	A,E
	CP	$02
	JR	NZ,PLD201
;
	CALL	STATINC
	LD	(HL),$05
;
	LD	A,$02
	LD	(PLJPFG),A
	LD	A,$F0
	LD	(PLYSPD),A
;
	CALL	ENSDCL
;
	LD	A,$0E
	LD	(SOUND2),A	;(S)
	RET
;- - - - - - - - - - - - - - - - - - - - - - - - -
PDS2100
	LD	A,(ENMYNO2)
	CP	KURI0
	JR	NZ,PLD201	;クリボー上から踏む！
;
	LD	A,(PLJPFG)
	AND	A
	JR	Z,PLD201
;
	LD	A,(PLTIM0)
	AND	A
	JR	NZ,KURCR0C	;踏んだ瞬間？
;				;NO!
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,KURCR08
;
	LD	A,(PLZSPD)
	XOR	%10000000
	JR	KURCR0A
;
KURCR08
	LD	A,(PLYSPD)
KURCR0A
	AND	%10000000
	JR	NZ,PLD201
;
KURCR0C
	LD	A,$02
	LD	(PLTIM0),A
;
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	(HL),$02
;
	CALL	LDTIM0
	LD	(HL),$30
;
	LD	A,$0E
	LD	(SOUND2),A	;(S)
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,KURCR10
;
	LD	A,$10
	LD	(PLZSPD),A
	RET
;
KURCR10
	LD	A,$F0
	LD	(PLYSPD),A
	RET
PLD201
	LD	A,(ENMYNO2)
	CP	SLIMS
	JR	NZ,PLD210	;小スライム？
;				;yes !
	CALL	LDTIM0		;ひっつき！
	LD	(HL),$80
;
	CALL	STATINC
	LD	(HL),$04
	RET
PLD210
	CP	MIZUB
	JR	Z,PDS0112	;オバＱバーは
	CP	OBQBAR
	JR	Z,PDS0112	;オバＱバーは
;				;楯にめりこんでもダメージ！
	LD	A,(HANEFG)
	AND	A
	JP	NZ,CEP010F
;
PDS0112
	LD	A,(ENMYNO2)
	CP	MBOSS
	JR	NZ,PDS0113
;
	LD	A,(ENSTAT2)
	CP	$04	;突撃？
	JR	NZ,PDS0113
;
	CALL	STATINC
	LD	(HL),$08
;
	LD	A,$03
	LD	(SOUND2),A	;(S)
	RET	
;
PDS0113
	LD	A,(PLFLSH)
;;	LD	HL,HANEFG
;;	OR	(HL)
	LD	HL,MUTEKI
	OR	(HL)
	LD	HL,OKARFG
	OR	(HL)
	LD	HL,DEMOFG
	OR	(HL)
	JP	NZ,CEP010F
;===========================================
PLDMST
	LD	A,$03
	LD	(SOUND2),A	;(S)
;
;;	LD	A,$2
;;	LD	(HARTDW),A
;
;;	LD	HL,ENMYNO
;;	ADD	HL,BC
;;	LD	E,(HL)
;;	LD	D,B
;;	LD	HL,ENMDD2
;;	ADD	HL,DE
	LD	HL,ENMOD2
	ADD	HL,BC
	LD	D,B
	LD	E,(HL)
;
	LD	HL,ATCKDT
	ADD	HL,DE
	LD	E,(HL)
;
	LD	A,(POWRFG)
	CP	$02
	JR	NZ,HTDS10
;
	LD	A,E
	CP	$04
	JR	NZ,HTDS08
;
	LD	E,$00
HTDS08
	SRL	E	; 1/2
HTDS10
	LD	A,(HARTDW)
	ADD	A,E
;;	LD	A,E
	LD	(HARTDW),A
;
	LD	A,$50
	LD	(PLFLSH),A
;
	XOR	A
	LD	(ENFLCT2),A	;守りの木のみセットカウントリセット！
;
	LD	A,(POWRFG)
	AND	A
	JR	Z,PDSS12
;
	LD	HL,POWRCT
	INC	(HL)
	LD	A,(HL)
	CP	$03
	JR	C,PDSS12	; Power up cip count !
;				; 3 times fail ?
	XOR	A		; yes ! Power up reset
	LD	(POWRFG),A
;
	LD	A,(BOSSFG)
	AND	A
	JR	NZ,PDSS12	;ボス部屋？
;				;No!
	LD	A,(BGMNO)	;BGM復帰！
	CP	$22
	JR	Z,PDSS11	;フクロウBGM?
;				;NO!
	LD	(SOUND4),A	;(S)
PDSS11
	LD	(TODYFG),A	;(S)
PDSS12
;------------------------------
PLHNST
	CALL	DUSHCL2
;
	LD	A,$10
	LD	(HANEFG),A
;
	LD	A,(ENMYNO2)
	LD	E,$18
	CP	OBQBAR
	JP	Z,OBQHNST
	CP	BGKAO
	JR	NZ,PHS002
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	(HL),$1
PHS002
	CP	HAYAB
	LD	A,$14
	JR	NZ,PDS010
;
	LD	A,$18
PDS010
;	CALL	PSERCH2
;;
;	LD	A,(WORK0)
;	LD	(PLYSPD),A
;	LD	A,(WORK1)
;	LD	(PLXSPD),A
	CALL	PSHST
;
;	LD	A,$02
;	LD	(PLJPFG),A
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,CEP00F
;
;	LD	A,$04
;	LD	(PLZSPD),A
;;
;	LD	A,(PLZPSL)
;	INC	A
;	LD	(PLZPSL),A
;
CEP010F
	SCF
	RET
;----------------------------
PLYKHX
	DB	$0C,$F4
;- - - - - - - - - - - - - - -
CEP00F
	LD	A,(PLSTAT)
	CP	$02
	JR	Z,CEP010F	; In water -> Normal hanekairi
;
	CALL	EPXCHK
	LD	D,B
	LD	HL,PLYKHX
	ADD	HL,DE
	LD	A,(HL)
	LD	(PLXSPD),A
;
	LD	A,$F4
	LD	(PLYSPD),A
;
	XOR	A
	LD	(PLSTAT),A
;
	SCF
	RET
;================================================
CREPKE
	CALL	CRENPL
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;- - - - - - - - - - - - - - - - - -
CRKNEN
	LD	A,(PKCRX1)
	CP	$00
	JP	Z,CKP090
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,CKP0010
;
	CP	$18
	JP	C,CKP090
;;	JR	CKP0020
CKP0010
	LD	A,(KENOFF)
	AND	A
	JR	Z,CKP0020
;
	DEC	A
	CP	C
	JP	Z,CKP090	; Renzoku Hit?
;				; no
CKP0020
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	NZ,CKP090
;- - X check - -
	LD	DE,ENSVXL
;
	PUSH	BC
;
	SLA	C
	SLA	C
	LD	HL,ENOJSZ
	ADD	HL,BC
;
	POP	BC
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PKCRX1
	SUB	(HL)
	CP	$80
	JR	C,CKP020
;
	CPL
	INC	A
CKP020
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,(PKCRX2)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JP	NC,CKP090
;
	INC	HL
;- - Y check - -
	PUSH	HL
;
	LD	DE,ENDSYP
;
	POP	HL
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PKCRY1
	SUB	(HL)
	CP	$80
	JR	C,CKP030
;
	CPL
	INC	A
CKP030
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,(PKCRY2)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JP	NC,CKP090
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	AND	%00100000
	JP	NZ,ITEMGT
;
;	LD	HL,SPCTTM
;	LD	A,(WCUTFG)
;	OR	(HL)
	LD	A,(KENTAT)
	AND	A
	JP	NZ,KNCROS
;- - Tate atack ----
ENHNST2
	LD	A,(DUSHFG)
	LD	(ENHELP2),A
	CALL	DUSHCL2
;
	LD	A,(ENMYNO2)
	CP	HODAI
	JR	NZ,EHS21010
;
	LD	A,(TATLEV)
	CP	$02
	RET	NZ
;
	LD	A,(PLCMKI)
	CP	$02
	RET	NZ
;
	LD	A,$04
	LD	(PLYSPD),A
;
	LD	A,$08
	LD	(HANEFG),A
;
	JP	STATINC
EHS21010
	CP	SBOMB
	JR	NZ,SBCR10
;
	LD	A,(ENSTAT2)
	CP	$02
	JP	NZ,EHS210
;
;;;	CALL	ENXYTR
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	CPL
	INC	A
	LD	(HL),A
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	CPL
	INC	A
	LD	(HL),A
;
	CALL	LDTIM0
	LD	(HL),$40
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),$08
;
	RET
;- - - - - - - - - - - - - - - - -
SBCR10
	CP	TEKYU
	JR	NZ,TYCR10
;
	LD	HL,ENMOD3
	ADD	HL,BC
	AND	%01000000
	JP	Z,EHS210  ; Tekkyu hit ?
;				; yes !
TYCR90
	LD	HL,ENWRK0	; Chane speed turn !
	ADD	HL,BC
	LD	A,(HL)
	CPL
	INC	A
	LD	(HL),A
;
	CALL	EHS201 ; Only player hanekairi !
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),$0C
;
	LD	A,$1
	LD	(PCUTOF),A
;
	XOR	A
	LD	(SPCTWT),A
;
	JP	EFLSST
;=============================================
TYCR10
	CP	NINTM
	JR	NZ,NTCR11
;
TYCR11
	CALL	EHS210
	JP	CBFGON
;
NTCR11
;;;;;;;;;	JR	NZ,EHS200
	CP	INOSI
	JR	NZ,EHS200
;
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	A,(HL)
	CP	$03
	JR	Z,EHS201
;
	LD	(HL),$03
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	(HL),$20
;
	CALL	LDTIM0
	LD	(HL),$FF
;
;;	CALL	ENXYTR
	LD	A,(PLCMKI)
	LD	E,A
	LD	D,B
	LD	HL,INHNXS
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	LD	HL,INHNYS
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
EHS201
	CALL	EHS210
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),B
	RET
;=====================================
INHNXS
	DB	$10,$F0,$00,$00
INHNYS
	DB	$00,$00,$F0,$10
;- - - - - - - - - - - - - - - - - - - - -
EHS200	
	CP	BALEE
	JR	Z,TATMKT	; Balelina !!
	CP	BABUL
	JR	NZ,EHS208	; Babul !!
TATMKT
;-------楯はねかえり向き反転------
;
	LD	A,(PLCMKI)
	AND	$02
	JR	NZ,BAC008
;
	LD	HL,ENXSPD
	ADD	HL,BC
	JR	BAC010
BAC008
	LD	HL,ENYSPD
	ADD	HL,BC
BAC010
	LD	A,(HL)
	CPL	
	INC	A
	LD	(HL),A
;
	CALL	EHS210
;
	LD	(HL),B
	RET
;
;====================================
EHS208
	CP	BGKAO
	JP	Z,TYCR11
;
EHS210
	LD	A,$09
	LD	(SOUND1),A	;(S)
;
	CALL	DUSHCL2
;
	LD	A,$0C
	LD	(HANEFG),A
;
	LD	A,(ENMYNO2)
	CP	OBQBAR
	JR	NZ,EHS180
;
	LD	E,$10
;---------------------------------
OBQHNST
	PUSH	DE
	CALL	EPXCHK
	LD	A,E
	AND	A
	POP	DE
	LD	A,E
	JR	Z,EHS170
	CPL
	INC	A
EHS170
	LD	(PLXSPD),A
	XOR	A
	LD	(PLYSPD),A
	RET
;
EHS180
	LD	A,$12
;	CALL	PSERCH2
;;
;	LD	A,(WORK0)
;	LD	(PLYSPD),A
;	LD	A,(WORK1)
;	LD	(PLXSPD),A
	CALL	PSHST
;
	LD	HL,ENHELP2	;DUSHFG save!
;
	LD	A,(KEYA1)
	AND	$0F
	LD	A,$08
	OR	(HL)
	JR	Z,EHS181	;キーが入ってれば強く跳ね返る！
	LD	A,$20
EHS181
;---------------------------------
ENHNST
	CALL	PSERCH2
;
	LD	A,(WORK0)
	CPL
	INC	A
	LD	HL,ENHNYS
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(WORK1)
	CPL
	INC	A
	LD	HL,ENHNXS
	ADD	HL,BC
	LD	(HL),A
;
;	LD	HL,ENHNFG
;	ADD	HL,BC
;	LD	(HL),$0A ;A
;;
;	LD	HL,ENHNMD
;	ADD	HL,BC
;	LD	(HL),B
;
	CALL	ENDMST4
KNCRRT
	RET
;-------------------------------------
HPMKCK
	DB	$00,$01,$02,$03
;;	DB	$01,$00,$03,$02
KNCROS
;	LD	HL,TATEON
;;	
;	LD	A,(FRCNT)
;	AND	$01
;	AND	(HL)
;	JP	NZ,ENHNST2
;
	LD	A,(ENMYNO2)
	CP	HODAI
	RET	Z
	CP	BOSS	;ラストボス！
	JR	NZ,KCR0B90
;
	LD	A,(BOSSNO)
	RST	00
	DW	ENRET2
	DW	AMBCR	;アメーバ？
	DW	AGNCR	;アグニム
	DW	BHBCR	;ハヤムシ
	DW	GANCR	;ガノン
	DW	KCR0S00 ;BGRCR	;ゴーマ
;===============================================
AMBCR
	CALL	STATINC		;YES !
	LD	(HL),$06
	RET
;===============================================
AGNCR
	LD	A,(SPCTTM)
	AND	A
	JR	NZ,AGNCR10
;
	LD	A,(WCUTFG)
	CP	$04
	RET	NC
;
AGNCR10
	CALL	STATINC
	RET
;===============================================
GANCR
;===============================================
BHBCR
	LD	A,(ENMYNO2)
;================================================
KCR0B90
	CP	NYOROO
	JR	NZ,KCR0S00
;
;	LD	A,(ENSTAT2)
;	AND	A
;	JR	NZ,KCR0S00
;
	LD	A,(ENMODE2)
	CP	EMOVE
	JR	NZ,KCR0S00
;
	CALL	STATINC
	LD	(HL),$01
;
	CALL	LDTIM0
	LD	(HL),$40
	LD	A,$40
	LD	(NYOTIM),A
;
	XOR	A
	LD	(PCUTFG),A
	LD	(WCUTFG),A
	LD	(SPCTTM),A
;
	LD	A,$1C
	LD	(SOUND3),A	;(S)
;
	JP	PLDMST2	
;
KCR0S00
	LD	A,(ENMYNO2)
	CP	SBOMB
	JR	NZ,KCR0F0
;
	LD	A,$30
	CALL	PSERCH2
;
	LD	A,(WORK0)
	CPL
	INC	A
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(WORK1)
	CPL
	INC	A
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	CALL	STATINC
	LD	(HL),$02
;
	CALL	LDTIM0
	LD	(HL),$40
;
;;	LD	HL,ENTIM1
;;	ADD	HL,BC
	CALL	LDTIM1
	LD	(HL),$08
;
	RET	
;=======================================
KCR0F0
	CP	BFISH
	JR	NZ,KCRF01
;
	CALL	PLHNST
;
	LD	A,$08
	LD	(HANEFG),A	; 1/2 power 
	JR	KCR0F1
KCRF01
	CP	BSLIM
	JR	NZ,KCR0F1
;
;;	LD	A,$01
;;	LD	(KENOFF),A	; ONLY 1 COUNT CHECK !!
;
	LD	A,(ENHELP)
	AND	A
	JR	NZ,KCR0F2	; Body hit ?
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	CP	$04
	JP	NZ,KCR0F3	; Chance ?
;				; yes !
	LD	A,(DUSHFG)
	AND	A
	JR	Z,KCR000	; Player dush ?
;				; yes !
;;	CALL	ENCLER	; TEST 
	LD	HL,ENTIM2	; 分身
	ADD	HL,BC
	LD	(HL),$0C
	RET
;
KCR0F3
	LD	A,(DUSHFG)
	AND	A
	JR	Z,KCRF33	; Player dush ?
;
	CALL	PLHNST
	JP	KCR000
;
KCR0F2
	CALL	PLHNST
	RET
KCRF33
	LD	A,$04
	LD	(HANEFG),A
;
	LD	A,$10
;	CALL	PSERCH2
;;
;	LD	A,(WORK0)
;	LD	(PLYSPD),A
;	LD	A,(WORK1)
;	LD	(PLXSPD),A
	CALL	PSHST
	JP	KCR000
;
;				; 
KCR0F1
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%01000000
	JR	Z,KCR000	; Ken hanekairi ?
;				; yes !
	LD	A,(ENMYNO2)
	CP	TEKYU
	JP	Z,TYCR90
;
	CP	TBOSS
	JR	NZ,KCR0F21
;
	LD	A,(POWRFG)
;;	AND	A
	CP	$01
	LD	A,$20
	JR	NZ,KCR0F20
	LD	A,$30
KCR0F20
	CALL	ENHNST
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	(HL),B
KCR0F21
;;	LD	A,$01
	LD	A,C
	INC	A
	LD	(KENOFF),A	; ONLY 1 COUNT CHECK !!
;
;;;	CALL	EFLSST
;	LD	A,(PKCRX1)
;	SUB	$04
;	LD	(WORK0),A
;	LD	A,(PKCRY1)
;	SUB	$04
;	LD	(WORK1),A
;	CALL	FLASHST
	CALL	KNFLSH
;
;;	LD	A,(ENMYNO2)
;;	JP	NZ,EHS210
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),$10	; Ken protect !!
;
	LD	HL,ENHNXS
	ADD	HL,BC
	LD	(HL),B
	LD	HL,ENHNYS
	ADD	HL,BC
	LD	(HL),B
;
	JP	PLHNST
;
;- - - - - - - - - - - - - - -
KCR000
;- - Ken Enemy damege - - 
	LD	A,(ENMYNO2)
	CP	MIZUB
	JR	NZ,CKPMIZ
;
	CALL	DUSHCL2
	JR	CKP012
CKPMIZ
	CP	HIPLP
	JR	NZ,CKP011
;
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,CKP011
;
	LD	A,(PLCMKI)
	LD	E,A
	LD	D,B
	LD	HL,HPMKCK
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENMUKI
	ADD	HL,BC
	CP	(HL)
	JR	Z,CKP012	; Mukai awase ?
;;	JR	NZ,CKP012	; Mukai awase ?
;				; yes !
	CALL	DUSHCL2
	LD	A,$10
	LD	(HANEFG),A
;
	LD	A,$10
;	CALL	PSERCH2
;;
;	LD	A,(WORK0)
;	LD	(PLYSPD),A
;	LD	A,(WORK1)
;	LD	(PLXSPD),A
	CALL	PSHST
;
	LD	A,$10
	CALL	ENHNST
;
EFLSST
	LD	A,(ENSVXL)
	LD	(WORK0),A
	LD	A,(ENDSYP)
	LD	(WORK1),A
	CALL	FLASHST
	RET
;- - - - - - - - - - - - - - - - - - - - -
CKP011
	LD	A,(ENMYNO2)
	CP	BABUL
	JP	Z,CKP090
;
CKP012
	LD	A,$1
	LD	(PCUTOF),A
;
	LD	A,(WCUTFG)
	CP	$04+1
	JR	NZ,KNCR09	; Kamae ?
;
	LD	A,CARITMD
	LD	(CARITM),A	; ken chari time set !
KNCR09
	XOR	A
	LD	(SPCTWT),A
;
	LD	A,$30
	CALL	ENHNST
;
	LD	HL,SOUND1	;(S)
	LD	(HL),$09	;ダメージがないときのための音！
;
	LD	A,(POWRFG)
;;	AND	A
	CP	$01
	JR	NZ,KNCR019	; Ken power up ?
;				; yes !
	CALL	KNCR019
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	(HL),$20
;
	LD	HL,ENHNMD
	ADD	HL,BC
	LD	(HL),$01
;
	LD	A,$11
	LD	(SOUND2),A	;(S)
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	CP	EFAIL
	JR	NZ,KNCR0A
;
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	(HL),$40
KNCR0A
	RET
;----------------------------------
KNCR019
	LD	A,C
	INC	A
	LD	(KENOFF),A
;
	LD	A,(POWRFG)
	AND	$01
	LD	HL,SPCTTM
	OR	(HL)
	LD	HL,DUSHFG
	OR	(HL)
	LD	A,(KENLEV)
	JR	Z,KNCR1A
	INC	A
KNCR1A
	DEC	A
	LD	(ATCKNO),A
;- - - - - - - - - - - - - - - - - - - -
ENDMST2
;;	LD	HL,ENMYNO
;;	ADD	HL,BC
;;	LD	E,(HL)
;;	LD	D,B
;;	LD	HL,ENMDD2
;;	ADD	HL,DE
	LD	HL,ENMOD2
	ADD	HL,BC
	LD	E,(HL)
	LD	D,B
;
	SLA	E
	RL	D
	SLA	E
	RL	D
	SLA	E
	RL	D
	SLA	E
	RL	D
;
;
;
;;	SWAP	A
;;	AND	%11110000
;;	LD	E,A
	LD	HL,ITMHITD
	ADD	HL,DE
	LD	A,(ATCKNO)
	LD	E,A
	LD	D,B
	ADD	HL,DE
	LD	E,(HL)
	PUSH	DE
;
	LD	A,(ATCKNO)
	RLA
	RLA
	RLA
	AND	%11111000
	LD	E,A
;
	LD	HL,ITMHITP
	ADD	HL,DE
	POP	DE
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	RET	Z
;;	JP	Z,CKP090	;ダメージある？
;				; YES 
	PUSH	AF
;
	LD	A,(ENMYNO2)
	CP	BOSS
	JR	NZ,CKP0BA
;
	LD	A,(BOSSNO)
	CP	$04	;ガノン
	JR	NZ,CKP0BA
;
	LD	A,(DUSHFG)
	PUSH	AF
	CALL	PLHNST
;
	POP	AF
	AND	A
	JR	NZ,CKP0BA
;
	LD	A,(SPCTTM)
	AND	A
	JR	NZ,CKP0BA
;
	POP	AF
	RET
;;	JP 	PLHNST
CKP0BA
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
;
	LD	HL,SOUND1	;(S)
	LD	(HL),$03
;
	AND	%10000000
	JR	Z,ED2210
;
	LD	HL,SOUND2	;(S)
	LD	(HL),$07
ED2210
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
	CP	NIWAT
	JR	NZ,ED22101
;
	LD	A,$13
	LD	(SOUND2),A	;(S)
ED22101
	POP	AF
;
	CP	$F0
	JR	C,CKP069	; Special atack ?
;;	 FF:Stop  FE:Fire  FD:Fairy
;				; yes !
	CP	$FE
	JR	NZ,CKP066
;
	LD	HL,SOUND3	;(S)
	LD	(HL),$12 ;(S)
;
	CALL	ENDMST4
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EFIRE
;
	CALL	LDTIM0
	LD	(HL),$60
;
	LD	HL,ENMOD0
	ADD	HL,BC
	INC	(HL)
	INC	(HL)
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%11000010
;;	OR	%00000000
	LD	(HL),A
;
	RET
CKP066
	CP	$FF
	JR	NZ,CKP060	; Stop ?
;				; yes !
	CALL	ENDMST4
;
;KKKKKKKKKKK	POP	AF	;  * 注
;======================================
ESTOPST
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),ESTOP ;A
	LD	HL,ENTIM2
	ADD	HL,BC
	LD	(HL),$FF ;A
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	(HL),B
;
	RET
CKP060
	CP	$FD
	JR	NZ,CKP062	; 妖精 変身？
;				; YES !
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
	CP	NYOROO
	JR	NZ,CKP061
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,CKP062
;
	INC	(HL)
	JR	CKP0611
;
CKP061
;;	LD	HL,ENMYNO
;;	ADD	HL,BC
	LD	(HL),YOSEI
	CALL	ENMDST
;
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
	CALL	LDTIM3
	LD	(HL),$80 ;A
;
;KKKKKKKK	POP	AF	;  * 注
;
CKP0611
;- - - Kemri set - - - -
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK0),A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
;
	LD	HL,ENZPSL
	ADD	HL,BC
	SUB	(HL)
	LD	(WORK1),A
;
	LD	A,SMK1
	CALL	EXIDSH
;
	RET
CKP062
;--- Another - -
	RET
;
;==== 普通のダメージ========
CKP069
	LD	E,A
;
	LD	HL,ENLIFE
	ADD	HL,BC
	LD	A,(HL)
	SUB	E
	LD	(HL),A
	JR	C,CKP077
	JP	NZ,CKP088
;
CKP077
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EFAIL ;A
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
;;	AND	%10000000
	BIT	7,A
	JR	Z,CKP078
;
	BIT	2,A
	JR	NZ,BSFS101
;
	LD	E,ENNO-1
	LD	D,B
BSFS0F0
	LD	A,E
	CP	C
	JR	Z,BSFS100
;
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
;;	AND	A
	CP	EMOVE
	JR	NZ,BSFS100
;
	LD	HL,ENMOD3
	ADD	HL,DE
	LD	A,(HL)
	AND	%10000000
	JR	NZ,BSFS101
BSFS100
	DEC	E
	LD	A,E
	CP	$FF
	JR	NZ,BSFS0F0	;ボス全滅？
;				;YES !
	LD	A,(PBANK)
	PUSH	AF
	LD	A,$03
	CALL	PBSET
	CALL	SOUNDCLR	;(S)
	POP	AF
	LD	(PBANK),A
BSFS101
;;	LD	A,$10
;;	LD	(SOUND2),A	;(S)
;
	LD	A,$03
	LD	(BSFLSD),A	;(S) やられ音用！
;
;	LD	A,$5E
;	LD	(SOUND4),A	;(S)
;
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	(HL),B	;やられ処理用！
;
;;	XOR	A
;;	LD	(DJSDON),A	;中ボス用サウンドセットクリアー
;
;;;	LD	A,(ENMYNO2)	
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
;	LD	E,$B5
;	CP	BSNAK	; L.5
;	JR	Z,CKP777
	LD	E,$B7
	CP	BGKAO	; L.6	
	JR	Z,CKP777
	LD	E,$B9
	CP	BBIRD	; L.7
	JR	Z,CKP7771
	LD	E,$BD
	CP	BFIRE	; L.8
	JR	NZ,CKP078
CKP777
	LD	A,E
	CALL	MSGCHK	;最後のあげきメッセージ
;
	LD	A,$5E
	LD	(SOUND4),A	;(S)
	JR	CKP078
CKP7771
	LD	A,(PLYPSL)
	PUSH	AF
;
	LD	A,$10
	LD	(PLYPSL),A
;
	LD	A,E
	CALL	MSGCHK	;最後のあげきメッセージ(むりやり下に出す！）
	POP	AF
	LD	(PLYPSL),A
CKP078
	CALL	STATINC
	LD	(HL),B
;
;;	CALL	LDTIM0
;
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	(HL),$2F
;;	LD	(HL),$1F
;
	LD	HL,ENFLSH
	ADD	HL,BC
	XOR	A
	LD	(HL),A
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%10000000
	JR	NZ,CKP079	; Normal fail ?(Boss not?)
;				; yes !
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	AND	%11110000
	OR	$4
	LD	(HL),A		; OAM use count 4 of set !
CKP079
;KKKKKKK	POP	AF
;
;;	LD	A,(ENMYNO2)
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
	CP	GHOSS
	JR	NZ,CKP088
;
;LD	HL,ENWRK2
;ADD	HL,BC
;LD	A,(HL)
;AND	A
;JR	Z,CKP088	; Master ghost ?
;				; yes !
	LD	E,ENNO-1	; Zenmetsu !!
	LD	D,B
CKP087
	LD	A,E
	CP	C
	JR	Z,CKP0888
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	GHOST
	JR	Z,CKP0887
	CP	GHOSB
	JR	NZ,CKP0888
CKP0887
	LD	HL,ENSTAT
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	NZ,CKP0888
;
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	Z,CKP0888
;
	LD	(HL),EFAIL
;
	LD	HL,ENTIM4
	ADD	HL,DE
	LD	(HL),$1F
;;	LD	(HL),$0F
;
;	LD	HL,ENWRK2
;	ADD	HL,DE
;	LD	(HL),$01
	CALL	RNDSUB
	AND	$03
	PUSH	BC
	LD	C,A
	LD	B,$00
	LD	HL,GHITDT
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENITMF
	ADD	HL,DE
	LD	(HL),A
	POP	BC
CKP0888
	DEC	E
	LD	A,E
	CP	$FF
	JR	NZ,CKP087
;
	LD	HL,ENITMF
	ADD	HL,BC
	LD	(HL),RUPY1
CKP088
;;	NOP
;----------------------------------
ENDMST3
;;	LD	A,(ENMYNO2)
	LD	HL,ENMYNO
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENFLSH
	ADD	HL,BC
	CP	BOSS
	JR	NZ,EDS30120
;
	LD	A,(BOSSNO)
	CP	$03
	JR	Z,EDS30130	;ラスト早MUSI？
	JR	EDS310
;
EDS30120
	CP	HAYAB
	JR	NZ,EDS310
;
EDS30130
	LD	(HL),$28
;
EDS3020
	LD	HL,ENTIM2
	ADD	HL,BC
	LD	(HL),$A0+$28
	RET
EDS310
	LD	(HL),$18 ;A
;
ENDMST4
	LD	HL,ENHNMD
	ADD	HL,BC
	LD	(HL),B
;
	LD	HL,ENHNFG
	ADD	HL,BC
;;	LD	A,$0A
	LD	(HL),$0A ;A
CKP090
	RET
;=================================
GHITDT	; ゴースト全滅アイテムセット
	DB	HART1,RUPY1,BOMB1,ALOW1
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	剣と剣			 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRKNKN
	LD	HL,KENOFF
	LD	A,(HANEFG)
;;	AND	A
	OR	(HL)
	LD	HL,KNKNTM
	OR	(HL)
	LD	HL,SPCTTM
	OR	(HL)
	JP	NZ,CKK090
;
	LD	A,(PKCRX1)
	CP	$00
	JP	Z,CKK090
;- - X check - -
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	A,(PLCMKI)
	CP	(HL)
	JP	Z,CKK090
;
	LD	DE,ENSVXL
	LD	HL,ENKNSZ
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PKCRX1
	SUB	(HL)
	CP	$80
	JR	C,CKK020
;
	CPL
	INC	A
CKK020
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,(PKCRX2)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JP	NC,CKK090
;
	INC	HL
;- - Y check - -
	LD	DE,ENDSYP
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,PKCRY1
	SUB	(HL)
	CP	$80
	JR	C,CKK030
;
	CPL
	INC	A
CKK030
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,(PKCRY2)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JP	NC,CKK090
;
	CALL	DUSHCL2
;
	LD	A,$08
	LD	(HANEFG),A
;
	LD	A,$12
;	CALL	PSERCH2
;;
;	LD	A,(WORK0)
;	LD	(PLYSPD),A
;	LD	A,(WORK1)
;	LD	(PLXSPD),A
	CALL	PSHST
;
	LD	A,$18
	CALL	PSERCH2
;
	LD	A,(WORK0)
	CPL
	INC	A
	LD	HL,ENHNYS
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(WORK1)
	CPL
	INC	A
	LD	HL,ENHNXS
	ADD	HL,BC
	LD	(HL),A
;
	CALL	ENDMST4
	LD	(HL),$08
;;;	CALL	ENHNST2
;
	XOR	A
	LD	(SPCTWT),A
;
;;	LD	A,$4
;;	LD	(OTOFLG),A	; Oto flag !
	CALL	OTOSET
;
	LD	HL,SPCTTM
	LD	A,(WCUTFG)
	OR	(HL)
	JR	Z,CKK088
;
	LD	A,CARITMD
	LD	(CARITM),A
CKK088
	LD	A,(ENMYNO2)
	CP	BOXER
	JR	NZ,CKK089
;
	LD	A,$09
	LD	(SOUND1),A	;(S)
;
	LD	A,(BDATNO)
	CP	$00
	JR	Z,CBX080
;
	CP	$01
	JR	Z,CBX030
	CP	$04
	JR	Z,CBX030
	CP	$03
	JP	Z,PBOXST
;
	LD	A,$20
	LD	(HANEFG),A
	LD	A,$20
	CALL	PSHST
	JR	CKK08A
;- - - - - - - - - - - - -
CBX030
	LD	A,$10
	LD	(HANEFG),A
	LD	A,$20
	CALL	PSHST
CBX080
	JR	CKK08A
CKK089
;;	CALL	KNFLSH
	LD	A,(PLCMKI)
	LD	E,A
	LD	D,B
	LD	HL,KKFLXD
	ADD	HL,DE
	LD	A,(PKCRX1)
	ADD	A,(HL)
	LD	(WORK0),A
;
	LD	HL,KKFLYD
	ADD	HL,DE
	LD	A,(PKCRY1)
	ADD	A,(HL)
	LD	(WORK1),A
;
	CALL	FLASHST
;
;KKKKKKKKKK	POP	AF
;
CKK08A
	LD	A,$0C
	LD	(KNKNTM),A	; Protect time !
	RET
CKK090
	JP  	CRKNPL
;;	RET
;-------------------------------------
KKFLXD
	DB	$00,$F0,$F8,$FC
KKFLYD
	DB	$FC,$FC,$F0,$00
;=============================================
CRKNPL
	LD	A,(FRCNT)
	XOR	C
	RRA
	JR	NC,CKPL090
;
	LD	A,(PLXPSL)
	ADD	A,$08
	LD	(WORK0),A
	LD	A,(PLYPSL)
	ADD	A,$08
	LD	(WORK2),A
;
	LD	DE,ENSVXL
	LD	HL,ENKNSZ
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,WORK0
	SUB	(HL)
	CP	$80
	JR	C,CKPL020
;
	CPL
	INC	A
CKPL020
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,$04 ;(WORK1)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JR	NC,CKPL090
;
	INC	HL
;- - Y check - -
	LD	DE,ENDSYP
;
	LD	A,(DE)
	ADD	A,(HL)
	PUSH	HL
	LD	HL,WORK2
	SUB	(HL)
	CP	$80
	JR	C,CKPL030
;
	CPL
	INC	A
CKPL030
	POP	HL
	PUSH	AF
;
	INC	HL
	LD	A,$05 ;(WORK3)
	ADD	A,(HL)
	LD	E,A
	POP	AF
	CP	E
	JR	NC,CKPL090
;
	LD	A,(PLFLSH)
	AND	A
	JR	NZ,CKPL090
;
	CALL	PLDMST2
;
	LD	A,(ENMYNO2)
	CP	BOXER
	JR	NZ,CKPL090
;
	LD	A,(BDATNO)
	AND	A
	JR	Z,CKPL090
;
	CP	$01
	JR	Z,CKPL090
	CP	$04
	JR	Z,CKPL090
;
	CP	$02
	JR	NZ,CKPL080
;
	CALL	LDTIM1
	LD	(HL),$A0	;ピヨリ！
;
	LD	A,$20
	LD	(HANEFG),A
;
	LD	A,$30
PSHST
	CALL	PSERCH2
;
	LD	A,(WORK0)
	LD	(PLYSPD),A
	LD	A,(WORK1)
	LD	(PLXSPD),A
CKPL090
	RET
CKPL080
;---------------------------------------
PBOXST
	LD	HL,ENCONT
	ADD	HL,BC
	LD	A,(HL)
	CP	$22
	JR	C,CKPL090	;パワー？
;				;OK!
	LD	A,PBOXER
	LD	(PLMODE),A	;ぶっとび！
;
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	LD	A,$30
	JR	Z,CKPL088
	LD	A,$D0
CKPL088
	LD	(PLXSPD),A
;
	XOR	A
	LD	(PLYSPD),A
;
	LD	A,$30
	LD	(PLZSPD),A
;
	LD	A,$0B
	LD	(SOUND1),A	;(S)
	RET
;-----------------------------------------
CKPL0A0
	LD	A,$20
	LD	(HANEFG),A
;
	LD	A,$20
	JR	PSHST
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				      %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRENEN
	LD	E,ENNO-1
	LD	D,$00
CEE000
	LD	A,E
	CP	C
	JP	Z,CEE010
;
	LD	A,(FRCNT)
	XOR	E
	AND	$01
	JP	NZ,CEE010
;
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	CP	EMOVE
	JP	C,CEE010
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%01000000
	JP	NZ,CEE010
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(ENSVXL)
	SUB	(HL)
	ADD	A,$0C
	CP	$18
	JP	NC,CEE010
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENZPSL
	ADD	HL,DE
	SUB	(HL)
;
	LD	HL,ENDSYP
;;;	LD	A,(ENSVYL)
	SUB	(HL)
	ADD	A,$0C
	CP	$18
	JP	NC,CEE010
;----------------------------------------
;	LD	HL,ENMOD3
;	ADD	HL,DE
;	LD	A,(HL)
;	CP	%01111111
;	JR	NZ,CEE1090	;飛び降りユニット通過？
;;				;YES !
;	LD	HL,ENTIM2
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JP	NZ,CEE010
;;
;	LD	(HL),$0C
;;
;	LD	HL,ENBCOF
;	ADD	HL,BC
;	LD	A,(HL)
;	XOR	$01
;	LD	(HL),A	;BG check xor
;	JP	CEE010	;
;CEE1090
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	A,(HL)
	CP	$FF
	JP	Z,CEE010	; Not display ?
;				; yes !
	LD	A,(ENMYNO2)
	CP	SBOMB
	JR	NZ,CEE001
;
	CALL	LDTIM0
	LD	(HL),B
CEE001
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	SBOMB
	JR	NZ,CEE002
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$40
;
	LD	HL,ENSTAT
	ADD	HL,DE
	LD	(HL),$02
;
	LD	HL,ENTIM1
	ADD	HL,DE
	LD	(HL),$08
;
	JP	CEE010
CEE002
;----------------------------------------
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%00100000
	JP	NZ,CEE00A	; Item ?
;				; NO,
	LD	A,(ENMYNO2)
	CP	POWDR
	JR	Z,CEE009
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	BOSS
	JR	NZ,CEE0BS
;
	LD	A,(BOSSNO)
	CP	$05
	JR	NZ,CEE0BS	;ラストゴーマ？
;				;YES !
	LD	A,(ENCHPT2)
	CP	$02
	JR	NZ,CEE0082	;上むき？
;
CEE0BS				;YES!
	LD	HL,ENMOD1
	ADD	HL,DE
	LD	A,(HL)
	AND	%10000000
	JR	Z,CEE009	;Hanekairi ?
;				;Yes 
CEE0082
;;	PUSH	DE
;;	CALL	EFLSST
;;	POP	DE
;
	LD	HL,ENCBFG
	ADD	HL,BC
;;	LD	A,$1
	LD	(HL),$01 ;A
;;	JP	CEE00C
	JP	CEE0B8
CEE009
	LD	A,(ENMYNO2)
	CP	POWDR
	JR	NZ,EECRE0
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	AKUMA	;小悪魔！
	JR	NZ,CAK100
;
	LD	HL,ENSTAT
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	NZ,EECRE0
;
	INC	(HL)
CAK100
	CP	PAPA0	;狸タリン！
	JR	NZ,EECRE0
;
;;	LD	HL,PAPA0FG
	LD	A,(DJFLAG)
	AND	A
;;	OR	(HL)
	JR	NZ,EECRE0	; タヌキ？
;				; いぇす！
	LD	HL,ENSTAT
	ADD	HL,DE
	LD	A,(HL)
;;	CP	$00
	AND	A
	JR	NZ,EECRE0
;
	INC	(HL)		; おやじに変身！
;
	LD	HL,ENTIM3
	ADD	HL,DE
	LD	(HL),$7F
;
	LD	HL,ENFLSH
	ADD	HL,DE
	LD	(HL),$10
;
	LD	A,$03
	LD	(PBANK),A
	CALL	SOUNDCLR	;(S)
	LD	A,$18
	LD	(PBANK),A
;;
;	LD	A,$FF
;	LD	(BGMNO),A
;	LD	(BGMNO2),A
EECRE0
	LD	HL,ENMOD1	;For magic powder
	ADD	HL,DE
	LD	A,(HL)
	AND	%10000000
	JP	NZ,CEE010	;Hanekairi ?
;				;Yes 
	LD	HL,ENHNFG
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JP	NZ,CEE010
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(HL)
	CP	HIPLP
	JR	NZ,CEE0092
;
	LD	HL,ENMUKI
	ADD	HL,DE
	LD	A,(HL)
	XOR	$01
	LD	HL,ENMUKI
	ADD	HL,BC
	CP	(HL)
	JR	NZ,CEE0092	; Mask hit ?
;				; yes !
	LD	HL,ENWRK1
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	NZ,CEE0092
;
	LD	A,(ENMYNO2)
	CP	FUCKS
	JP	NZ,CEE0082
;
	LD	(HL),$01
;
	PUSH	DE
;
	LD	A,HMASK
	CALL	ENIDSH
	JR	C,CEE091
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENWRK4 ;STAT
	ADD	HL,DE
	LD	A,C
	INC	A
	LD	(HL),A
;
	LD	A,(WORK2)
	AND	$01
	LD	HL,ENCHPT
	ADD	HL,DE
	LD	(HL),A
CEE091
	POP	DE
	JR	CEE0B8
CEE0092
	CALL	ENENCR	; Enemy damege !
	JR	CEE0B8
;
CEE00A
	LD	A,(ENMYNO2)
	CP	BUMER
	JR	Z,CEEBUME
	CP	FUCKS
	JR	NZ,CEE0B2	; Fuck shot ?
;				; yes !
CEEBUME
	CALL	LDTIM0
	XOR	A
	LD	(HL),A
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%00100000
	JR	Z,CEE0B8	; Item chach ?
;				; yes !
	LD	A,C
	INC	A
	LD	HL,ENWRK4	; kuttsuki
;;	LD	HL,ENSTAT	; kuttsuki
	ADD	HL,DE
	LD	(HL),A
CEE0B2
	JP	CEE010
CEE0B8
	LD	A,(ENMYNO2)
	CP	TAMA0
	JR	Z,CEE004C
	CP	BUMER
	JR	Z,CEE00C
	CP	FUCKS
	JR	Z,CEE00C
	CP	KTOBJ
	JR	NZ,CEE00B
;
	PUSH	DE
	CALL	KTFLST
	POP	DE
	JP	CEE010
CEE00B
	LD	HL,ENMODE
	ADD	HL,BC
	LD	A,(HL)
	CP	ESHOT
	JR	NZ,CEE0BA
;
CEE004C
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,CEE010
;
	LD	(HL),$0C
;
	LD	HL,ENXSPD
	ADD	HL,BC
	SRA	(HL)
	SRA	(HL)
	LD	A,(HL)
	CPL
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,BC
	SRA	(HL)
	SRA	(HL)
	LD	A,(HL)
	CPL
	LD	(HL),A
	JR	CEE00C
CEE0BA
;	LD	HL,ENMOD1
;	ADD	HL,DE
;	LD	A,(HL)
;	AND	%10000000
;	JR	NZ,CEE00C	;Hanekairi ?
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,CEE00C	;Hanekairi ?
;				;NO 
	LD	A,(ENMYNO2)
	CP	PYAAA
	JR	NZ,CEE00DD
;
	LD	A,(ENSTAT2)
	AND	A
	JR	NZ,CEE00DE	; Bombr alow -> Not clear
CEE00DD
	CALL	ENCLER
CEE00DE
	JR	CEE010
CEE00C
	CALL	LDTIM0
	XOR	A
	LD	(HL),A
;
;;;	CALL	BUMERT	; Return player !!
;;;
;;	LD	HL,ENMOD0
;;	ADD	HL,DE
;;	LD	A,(HL)
;;	AND	%00100000
;;	JR	Z,CEE010	; Item chach ?
;;;				; yes !
;;	LD	A,C
;;	INC	A
;;	LD	HL,ENSTAT	; kuttsuki
;;	ADD	HL,DE
;;	LD	(HL),A
CEE010
	DEC	E
	LD	A,E
	CP	$FF
	JP	NZ,CEE000
	RET
;==============================================
ENENCR
	LD	A,(ENMYNO2)
	CP	PYAAA
	JR	NZ,EECRF1
;
	LD	A,(ENSTAT2)
	AND	A
	JR	Z,EECRF1	; Bomber alow ?
;				; yes !
	CALL	LDTIM0
	LD	(HL),$03	; Bomb !!!!
	RET
EECRF1
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENHNXS
	ADD	HL,DE
;;	SLA	A
	LD	(HL),A
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENHNYS
	ADD	HL,DE
;;	SLA	A
	LD	(HL),A
;- - - - - - - - - - - - - -
	PUSH	BC
	PUSH	DE
	POP	BC
;
;;	LD	A,(ENMYNO2)
;;	CP	BUMER
;;	JR	Z,EECR10
;
	PUSH	DE
	CALL	ENDMST22
	POP	DE
;
;;	JR	EECR20
;;EECR10	; Bumeran stoping !
;;	CALL	ENDMST3	
;;;
;;	LD	HL,ENMODE
;;	ADD	HL,BC
;;;;	LD	A,ESTOP
;;	LD	(HL),ESTOP ;A
;;	LD	HL,ENTIM2
;;	ADD	HL,BC
;;;;	LD	A,$FF
;;	LD	(HL),$FF ;A
;;EECR20
	POP	BC
;
EECR30
	RET
;=============================
ENDMST22
	CALL	ENDMST2
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				      %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
CRBOEN
	LD	E,ENNO-1
	LD	D,$00
CBE000
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	CP	EMOVE
	JR	C,CBE010
;
	LD	HL,ENMOD0
	ADD	HL,DE
	LD	A,(HL)
	AND	%01100000
	JR	NZ,CBE010
;
	LD	HL,ENMOD1
	ADD	HL,DE
	LD	A,(HL)
	AND	%10000000
	JR	NZ,CBE010
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(ENSVXL)
	SUB	(HL)
	ADD	A,$18
	CP	$30
	JR	NC,CBE010
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENZPSL
	ADD	HL,DE
	SUB	(HL)
;
	LD	HL,ENDSYP
;;;	LD	A,(ENSVYL)
	SUB	(HL)
	ADD	A,$18
	CP	$30
	JR	NC,CBE010
;----------------------------------------
	LD	A,$07
	LD	(ATCKNO),A
	CALL	ENENCR	; Enemy damege !
;
	LD	A,$30
	CALL	ESERCH
;
	LD	HL,ENHNYS
	ADD	HL,DE
	LD	A,(WORK0)
	LD	(HL),A
;
	LD	HL,ENHNXS
	ADD	HL,DE
	LD	A,(WORK1)
	LD	(HL),A
CBE010
	DEC	E
	LD	A,E
	CP	$FF
	JR	NZ,CBE000
	RET
;===============================
ESERCH
	LD	(WORK0),A
;
	LD	A,(PLXPSL)
	PUSH	AF
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	(PLXPSL),A
;
	LD	A,(PLYPSL)
	PUSH	AF
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	LD	(PLYPSL),A
;
	PUSH	DE
	LD	A,(WORK0)
	CALL	PSERCH2
	POP	DE
;
	POP	AF
	LD	(PLYPSL),A
	POP	AF
	LD	(PLXPSL),A
;
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;---------------------------------
EBCKXD
	DB	$0D,$02,$08,$08	; Normal 
;
	DB	$0A,$06,$08,$08	; small
	DB	$10,$FF,$08,$08 ; BLOCK
;
	DB	$0D,$02,$08,$08	; Spark
;
;
;;	DB	$0B,$05,$08,$08
EBCKYD
	DB	$08,$08,$02,$0D
;
	DB	$08,$08,$06,$0A
	DB	$08,$08,$FF,$10
;
	DB	$08,$08,$02,$0D	; Spark
;
;
;;	DB	$08,$08,$05,$0B
ENCBBT
	DB	%00000001
	DB	%00000010
	DB	%00000100
	DB	%00001000
;
EBLTXD	; Belt revise data
	DB	$00,$00,$FF,$01
	DB	$01,$FF,$01,$FF
EBLTYD
	DB	$01,$FF,$00,$00
	DB	$01,$01,$FF,$FF
;---------------------------------
ENBGCK
	LD	HL,ENWATR
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK0),A
	XOR	A
	LD	(HL),A
	LD	(WORK1),A
	LD	(ENBGLR),A
	LD	(ENBGUD),A
;
;	LD	A,(YKFLAG)
;	AND	A
;	JR	Z,EBCK02
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	BIT	7,A
	JR	NZ,EFLD055
	AND	A
	JP	NZ,EFLD070
;
EFLD055
	LD	HL,ENBCOF
	ADD	HL,BC
	LD	(HL),B
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	BIT	4,A
	JP	NZ,EFLD070	; Center check ok ?
;;	PUSH	AF
;				; yes !
;	LD	HL,ENWATR
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	(WORK0),A
;	XOR	A
;	LD	(HL),A
;	LD	(WORK1),A
;- - - Center check - -
	CALL	ENCTBC  ;ENBGCK2	; Water & fole check !
;--------------------------------------------
;J	LD	A,(UNITNO)
;J;;	CP	DFIR0
;J;;	JP	Z,EBCE80	; Yogan ?
;J	CP	DFIR1
	JR	EBCF00
EBCE80				; Yes !
	LD	E,$02
;;	LD	E,$01
	LD	A,(ENMYNO2)
	CP	BLANKA
	JR	Z,MCK010
	CP	PIHAT 
	JR	Z,MCK010
	CP	NIWAX 
	JR	Z,MCK010
	CP	WANWAN
	JR	Z,MCK010
	CP	GIRL1 	;マリン！
	JR	Z,MCK010
;
	CALL	ENCLER		; Clear 
	JP	EWPSET		; Water up set !
;
EBCF00
	LD	E,$01
;
	LD	A,(UNITNO)
	CP	DYKH2
;;	CP	DYKH1
	JR	Z,MCK010
;
	LD	A,(WORK3)
	AND	A
	JP	Z,EFLD070
	CP	$0B	; 溶岩！　
	JR	Z,EBCE80
	CP	$07	; Deep water !
	JR	Z,EBCE80
	CP	$B0
	JR	Z,MCK010
	INC	E
	CP	$05
	JR	Z,MCK010	; Asase
	CP	$06
	JR	NZ,MCK020	; Kusamura ?
;				; yes !
	INC	E
MCK010
	LD	HL,ENWATR
	ADD	HL,BC
	LD	(HL),E  ;$1
;
MCK020
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
;;	POP	AF
	AND	%00001000
	JR	Z,EBCK02	; Water up set ?
;				; yes!
	LD	HL,ENWATR
	ADD	HL,BC
	LD	A,(WORK0)
	CP	(HL)
	JR	Z,EBCK02
;
	LD	A,(HL)
	CP	$03
	JR	Z,EBCK02	; Kusa -> not water up !
	LD	A,(WORK0)
	CP	$03
	JR	Z,EBCK02
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,EWCK10
;
	LD	HL,ENZSPD
	ADD	HL,BC
	LD	A,(HL)
	BIT	7,A
	JR	Z,EBCK02
;
	CP	$E7
	JR	NC,EBCK02	; High down ?
;				; yes !
	JR	EBCK01	
;
EWCK10
	LD	A,(ENMYNO2)
	CP	PUKPJ
	JR	Z,EBCK01
;
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	BIT	7,A
	JR	NZ,EBCK01
;
	LD	(HL),$0
;
	LD	HL,ENXSPD
	ADD	HL,BC
	SRA	(HL)
;;	SRA	(HL)
;
EBCK01
	LD	HL,ENTIM4
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,EBCK02
;
EWPSET
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK0),A
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
	LD	(WORK1),A
;
	LD	A,$0E
	LD	(SOUND1),A	;(S)
;
	LD	A,WTUP
	CALL	EXIDSH
;;;	WATR UP SET 
EBCK02
;	LD	HL,ENZPSL
;	ADD	HL,BC
;	LD	A,(HL)
;	BIT	7,A
;	JR	NZ,EFLD055
;	AND	A
;	JR	NZ,EFLD070
;;
;EFLD055
	LD	A,(WORK3)
	INC	A
	CP	$F1
	JR	C,EBLC10	; Beltconv ?
;				; yes !
	SUB	$F1		; Move !!
	LD	E,A
	LD	D,B
;
	LD	A,(FRCNT)
	AND	$03
	JR	NZ,EFLD008
;
	LD	HL,EBLTXD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENXPSL
	ADD	HL,BC
	ADD	A,(HL)
	LD	(HL),A
;
	LD	HL,EBLTYD
	ADD	HL,DE
	LD	A,(HL)
	LD	HL,ENYPSL
	ADD	HL,BC
	ADD	A,(HL)
	LD	(HL),A
EFLD008
	JR	EFLD070
;--------------------------------------
EBLC10
	LD	A,(UNITNO)
	CP	IDO00
	JR	Z,EFLD010
	LD	A,(WORK3)
	CP	$50
	JR	Z,EFLD010
	CP	$51
	JR	NZ,EFLD070	; Fole ?
EFLD010				; yes !
	LD	A,(ENMYNO2)
	CP	WANWAN
	JR	Z,EFLD070
	CP	NIWAX 
	JR	Z,EFLD070
	CP	HARTB 
	JR	Z,EFLD070
	CP	GIRL1 	;マリン！
	JR	NZ,EFLD011
;
	LD	A,(PLMODE)
	CP	PFOLE
	JR	NZ,EFLD070	;一緒に落ちよう！
;
	LD	A,(UNITNO)
	CP	IDO00
	JR	NZ,EFLD070
;
EFLD011				; yes !
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,EFLD070
;
	DEC	(HL)
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	(HL),$00
;
	LD	HL,ENMODE
	ADD	HL,BC
	LD	(HL),EFOLE
;
	LD	A,(OBJXP)
	ADD	A,$08
	LD	HL,ENFLXP
	ADD	HL,BC
	LD	(HL),A
	LD	A,(OBJYP)
	ADD	A,$10
	LD	HL,ENFLYP
	ADD	HL,BC
	LD	(HL),A
;
	CALL	LDTIM0
	LD	(HL),$6F
;
	LD	A,(ENMYNO2)
	CP	HEIS0
	JR	Z,EFLD070
	CP	MORI1
	JR	Z,EFLD070
	CP	OCTA1
	JR	Z,EFLD070
;
	LD	(HL),$48
EFLD060
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,EFLD070
;
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENHNXS
;	ADD	HL,BC
;	LD	(HL),A
;;
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,ENHNYS
;	ADD	HL,BC
;	LD	(HL),A
;
;	LD	HL,SOUND1
;	LD	(HL),$0D	;(S)
;
	CALL	LDTIM0
	LD	(HL),$2F
;
	LD	A,$18
	LD	(SOUND1),A	;(S)
;;	LD	A,$0C
;;	LD	(SOUND2),A	;(S)
;===== MAIN CHECK ============
EFLD070
	LD	A,(ENMYNO2)
	CP	WANWAN
	JP	Z,EBCK50
;
	XOR	A
	LD	(ENBGLR),A
;
	LD	HL,ENMOD1
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000011
	SLA	A
	SLA	A
	LD	(WORK0),A
;
	LD	HL,ENCBFG
	ADD	HL,BC
	XOR	A
	LD	(HL),A
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	CP	$00
	JR	Z,EBCK30
;
	LD	DE,$0000
;
	AND	%10000000
	JR	Z,EBCK10
;
	INC	E
EBCK10
	CALL	ENUNRD
	JR	C,EBCK30
;
	LD	A,(UNITNO)
	LD	(ENBGLR),A
;
;	LD	HL,ENMOD3
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	%00000100
;	JR	NZ,EBCK30	; Position revise ?
	LD	A,(ENBGRV)
	AND	A
	JR	NZ,EBCK30	;
;				; yes !
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(ENSVXL)
	LD	(HL),A
EBCK30
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	CP	$00
	JR	Z,EBCK50
;
	LD	DE,$0002
;
	AND	%10000000
	JR	NZ,EBCK40
;
	INC	E
EBCK40
	CALL	ENUNRD
	JR	C,EBCK50
;
	LD	A,(UNITNO)
	LD	(ENBGUD),A
;
;;	LD	HL,ENMOD3
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	%00000100
	LD	A,(ENBGRV)
	AND	A
	JR	NZ,EBCK50
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(ENSVYL)
	LD	(HL),A
EBCK50
	RET
;==========================================
;====== BG check  特殊CHECK DATA ==
SPUNDT2
;7C
	DB	1,0
	DB	1,0
;7D
	DB	0,1
	DB	0,1
;E
	DB	1,1
	DB	0,0
;F
	DB	0,0
	DB	1,1
;80
	DB	1,0
	DB	1,0
;1
	DB	0,1
	DB	0,1
;2
	DB	1,1
	DB	0,0
;3
	DB	0,0
	DB	1,1
;4
	DB	0,1
	DB	1,1
;5
	DB	1,0
	DB	1,1
;6
	DB	1,1
	DB	0,1
;7
	DB	1,1
	DB	1,0
;8
	DB	1,0
	DB	0,0
;9
	DB	0,1
	DB	0,0
;A
	DB	0,0
	DB	1,0
;B
	DB	0,0
	DB	0,1
;C
	DB	0,1
	DB	1,0
;D
	DB	1,0
	DB	0,1
;==================================
ENUNRD
	PUSH	BC
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$08
;
	PUSH	AF
;
	LD	A,(WORK0)
	LD	C,A
;
	POP	AF
	LD	HL,EBCKXD
	ADD	HL,BC
	ADD	HL,DE
	ADD	A,(HL)
	LD	(WORK4),A
	SWAP	A
	AND	$0F
;
	LD	(WORK1),A
;
	POP	BC
	PUSH	BC
;
;;;	LD	C,A
;
	LD	A,E
	CP	$03
	JR	NZ,EUZ001	; Down muki ?
;				; Yes !
	LD	A,(ENMYNO2)
	CP	TAMA0
	JR	Z,EUZ0FF
	CP	KTOBJ
	JR	NZ,EUZ001
;
EUZ0FF
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
;
	LD	HL,ENZPSL	; BG check point revise !
	ADD	HL,BC
	LD	C,(HL)
	BIT	7,C
	JR	Z,EUZ000
	LD	C,$00
EUZ000
	SRL	C
	SUB	C
	JR	EUZ002
EUZ001
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(HL)
EUZ002
	SUB	$10
;
	PUSH	AF
	LD	A,(WORK0)
	LD	C,A
;
	POP	AF
	LD	HL,EBCKYD
	ADD	HL,BC
	ADD	HL,DE
	ADD	A,(HL)
	LD	(WORK5),A
	AND	$F0
	LD	HL,WORK1
	OR	(HL)
;;	OR	C
	LD	C,A
;;;;	LD	B,$0
	LD	HL,BGUNDT+$11
	LD	A,H
	ADD	HL,BC
	LD	H,A
	POP	BC
	LD	A,(HL)
	LD	(UNITNO),A
	CP	IWA00
	JP	Z,EFUCKON
	PUSH	DE
	LD	E,A
	LD	A,(DJFLAG)
	LD	D,A
;;	LD	HL,GRBGCR
;;	ADD	HL,DE
	CALL	BGCRRD2
	POP	DE
;
;;;	LD	A,(HL)
	LD	(WORK3),A
;
	LD	A,(ENMYNO2)
	CP	BLANKA
	JR	Z,BLABCK	;ピラニアは水のみ
	CP	AMENB
	JR	NZ,EFOC0E	;あめんぼは水のみ!
;
BLABCK
	LD	A,(WORK3) ;BGCRNO) ;HL)
	CP	$05
	JP	Z,BUR010
	CP	$07
	JP	Z,BUR010
	JP	BUR00E
;
EFOC0E
	LD	A,(WORK3) ;BGCRNO) ;HL)
	AND	A
	JP	Z,BUR010
;;;	LD	(WORK3),A
	CP	$0B
	JR	Z,EFOC010	;溶岩！
	CP	$50
	JR	Z,EFOC010
	CP	$51
	JR	NZ,EFOC020	; Fole kabe ?
EFOC010				; yes !
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	NZ,BUR010
;
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	Z,BUR00E	; Hanekaeri not check !
;
	LD	A,(ENMYNO2)
	CP	HAYAB
	JP	Z,BUR00E
;
	JP	BUR010
EFOC020
	CP	$7C  ;80
	JP	C,EUR0FF	; Special BG ?
;				; yes !
	CP	$90
	JP	NC,EUR0FF
;
	CP	$80
	LD	A,(ENMYNO2)
	JR	C,EFOC022	;半当たり？
;				;YES !
;;	LD	A,(ENMYNO2)
	CP	TAMA0
	JP	Z,ENBGOFF
	CP	BOMBR
	JP	Z,ENBGOFF
	JR	EFOC023
;
EFOC022		;通路当たり！
	CP	SPARK
	JP	Z,ENBGON 
	CP	SPAR2
	JP	Z,ENBGON 
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%10000000
	JP	NZ,ENBGON 	;ボス！
EFOC023
	PUSH	DE
;
	LD	A,(WORK3)
	SUB	$7C ;80
	SLA	A
	SLA	A
	LD	E,A
	LD	D,$0
	LD	HL,SPUNDT2	
	ADD	HL,DE
;
	LD	A,(WORK4)
	RRA
	RRA
	RRA
	AND	$01
	LD	E,A
	LD	A,(WORK5)
	RRA
	RRA
	AND	$02
	OR	E
	LD	E,A
	LD	D,$0
	ADD	HL,DE
	LD	A,(HL)
	POP	DE
	AND	A
	JP	Z,BUR010
;
EUR0FF
	LD	A,(WORK3)
	CP	$D0
	JR	C,ETOC90
	CP	$D3+1
	JR	NC,ETOC90
;
	SUB	$D0
;
	LD	HL,ENSHMK
	ADD	HL,BC
	CP	(HL)
	JR	Z,ETOC88
;;	JP	NZ,EUR00F
;
	LD	A,(ENMYNO2)
	CP	TAMA0
	JR	Z,BUR00E
;
	LD	HL,ENBCOF
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,BUR00E
;
	LD	A,(FRCNT)
	AND	$03
	JR	Z,ETOC8A	;ヘルプ！
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,ETOC87
;
	LD	A,(FRCNT)
	AND	$01
	JR	Z,ETOC8A	;ヘルプ！
ETOC87
	DEC	(HL)
	JR	ETOC8A
ETOC88
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	Z,BUR00E
;
	LD	HL,ENBCOF
	ADD	HL,BC
	INC	(HL)
ETOC8A
	JP	BUR010	
ETOC90
	CP	$FF
	JR	Z,EUR010	; Unit hit ?
	CP	$A0
	JR	NC,BUR010	; hit ?
	CP	$10
	JR	NC,BUR00E
;;	JR	NC,EUR00F
	CP	$01
	JR	Z,EUR00F
	CP	$03
	JR	Z,EUR00F
	CP	$04
	JR	NZ,BUR010	; On block ?	
;
	LD	A,(ENMYNO2)
	CP	TAMA0
	JP	Z,ENBGOFF
	CP	BOMBR
	JP	Z,ENBGOFF
	CP	FUCKS
	JR	NZ,ENBGFK
;
	LD	A,(ONBGFG)
	AND	A
	JP	NZ,ENBGOFF
;
ENBGFK
	LD	A,(UNITNO)
	CP	DBL01
	JR	C,ENBGON
	CP	DBL02+1
	JR	NC,ENBGON
;				; yes !
	PUSH	DE
	SUB	DBL01
	LD	E,A
	LD	D,$00
	LD	HL,ONOFBDE
	ADD	HL,DE
	POP	DE
	LD	A,(ONOFFG)	; Swich on hit check !!
	XOR	(HL)
	JR	Z,BUR010	; which check !
BUR00E
	LD	A,(WORK3)
	CP	$60
	JR	NZ,EUR00F	; Fuck shot check ?
;				; yes!
EFUCKON
	LD	A,(ENMYNO2)
	CP	FUCKS
	JR	NZ,EUR00F	; Fuck ?
;				; yes !
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
	CP	$26
;;	CP	$1E
	JR	C,EUR0E0	; First time hit ?
;				; yes ! clear !
	CALL	ENCLER
EUR0E0
	LD	HL,ENSTAT
	ADD	HL,BC
;;	LD	A,$01
	LD	(HL),$01 ;A
EUR00F
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00000001	; Unit hit ok ?
	JR	NZ,BUR010
;				; yes !
;;	LD	HL,ENBCOF
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	AND	A
;;	JR	NZ,BUR010
;
ENBGON
EUR010
;;;
;;	CP	HITBG
;;	JR	C,BUR010	; hit ?
;				; yes !
	LD	HL,ENCBBT
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,ENCBFG
	ADD	HL,BC
;
	OR	(HL)
	LD	(HL),A
;
	AND	A	; CF claer !
	RET
ENBGOFF
BUR010
	SCF
	RET
;==========================================
ONOFBDE
	DB	$00,$02
;==========================================
;EBCKXD2
;	DB	$07
;EBCKYD2
;	DB	$07
;
ENBGCK2	; Only 1 point 
;	LD	HL,ENWATR
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	(WORK0),A
;	XOR	A
;	LD	(HL),A
;	LD	(WORK1),A
;
;	LD	HL,ENCBFG
;	ADD	HL,BC
;	XOR	A
;	LD	(HL),A
;
	LD	DE,$0000
;
	PUSH	BC
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
;;;	SUB	$08
;
;	LD	HL,EBCKXD2
;	ADD	HL,DE
;	ADD	A,(HL)
;;;	ADD	A,$08
	LD	(WORK4),A
	AND	$F0
	LD	(OBJXP),A
	SWAP	A
;;;	AND	$0F
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	C,A
	LD	A,(HL)
	SUB	$10-8
;
;;	LD	HL,EBCKYD2
;;	ADD	HL,DE
;;	ADD	A,(HL)
;;;	ADD	A,$08
	LD	(WORK5),A
	AND	$F0
	LD	(OBJYP),A
	OR	C
	LD	C,A
	LD	(ENHELP2),A
	LD	B,$0
	LD	HL,BGUNDT+$11
	LD	A,H
	ADD	HL,BC
	LD	H,A
	POP	BC
	LD	A,(HL)
	LD	(UNITNO),A
	CP	DSOK1
	JP	Z,BU2010	; Tou rou on ?
	CP	DSOK0
	JR	NZ,EUR123	; Tou rou on ?
;				; yes !
	LD	A,(ENMYNO2)
	CP	PRTBM
	JR	NZ,EUR123
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,EUR123
;
	PUSH	HL
;
	LD	A,$12
	LD	(SOUND3),A	;(S)
;
	LD	A,POWDR
	CALL	ENIDSH
	JR	C,EUR122
;
	POP	HL
;
	LD	(HL),DSOK1
;
	PUSH	BC
	PUSH	DE
	POP	BC
;
	LD	D,H
	LD	E,L
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	(HL),D
	LD	HL,ENWRK1
	ADD	HL,BC
	LD	(HL),E
;
;;	LD	A,(WORK0)
	LD	A,(OBJXP)
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	(HL),A
;
;;	LD	A,(WORK1)
	LD	A,(OBJYP)
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	(HL),$01
;
;;	LD	HL,ENTIM3
;;	ADD	HL,BC
	CALL	LDTIM3
	LD	(HL),$80
;
	POP	BC
;
;;	CALL	TOUROUON2
	LD	HL,TOURCT
	INC	(HL)
;
	LD	A,(FADECT2)
	AND	A
	JR	Z,EUR121
;
	SUB	$04
	LD	(FADECT2),A
EUR121
	LD	DE,POWDRBD2
	PUSH	DE
	JP	UNBGWT
;
EUR122
	POP	HL
EUR123
	LD	A,(HL)
;;;	CP	DYKH1
;;;	JR	Z,BU2005
;
	LD	E,A
;;	LD	D,$0
	LD	A,(DJFLAG)
	LD	D,A
;;	LD	HL,GRBGCR
;;	ADD	HL,DE
;;	LD	A,(HL)
	CALL	BGCRRD2
	LD	(WORK1),A
	AND	A
	JP	Z,BU2010
	LD	(WORK3),A
	CP	$FF
	JP	Z,BU2020	; Display out ?
;	CP	$B0
;	JR	NZ,BU2001	; Yoko mizu ?
;;				; yes !
;BU2005
;	LD	HL,ENWATR
;	ADD	HL,BC
;	LD	(HL),$1
;	JR	BU2010	
;BU2001
	CP	$D0
	JR	C,ETO2190
	CP	$D3+1
	JR	NC,ETO2190
;
	SUB	$D0
;
	LD	HL,ENSHMK
	ADD	HL,BC
	CP	(HL)
	JR	Z,ETO2120
;;	JR	NZ,BU2008
;
	LD	HL,ENBCOF
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,BU2008
;
	LD	A,(FRCNT)
	AND	$03
	JR	Z,BU2010
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,ETO2119
;
	LD	A,(FRCNT)
	AND	$01
	JR	Z,BU2010
ETO2119
	DEC	(HL)
	JP	BU2010	
ETO2120
	LD	HL,ENZPSL
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,BU2008
;
	LD	HL,ENBCOF
	ADD	HL,BC
	INC	(HL)
;
	JP	BU2010	
;
ETO2190
	CP	$7C
;;;	CP	$80
	JP	C,BU2003	; Special BG ?
;				; yes !
	CP	$90
	JP	NC,BU2003
;
	JP	BU2010
;
;	SUB	$80
;	SLA	A
;	SLA	A
;	LD	E,A
;	LD	D,$0
;	LD	HL,SPUNDT2	
;	ADD	HL,DE
;;
;	LD	A,(WORK4)
;	RRA
;	RRA
;	RRA
;	AND	$01
;	LD	E,A
;	LD	A,(WORK5)
;	RRA
;	RRA
;	AND	$02
;	OR	E
;	LD	E,A
;	LD	D,$0
;	ADD	HL,DE
;	LD	A,(HL)
;	AND	A
;	JR	Z,BU2010
;;
BU2003
	LD	A,(WORK3)
	CP	$A0
	JR	NC,BU2010
	CP	$50
	JR	Z,BU2010
	CP	$51
	JR	Z,BU2010
	CP	$10
	JR	NC,BU2008
;;	CP	$A0
;;	JR	Z,BU2010	; hit ?
	CP	$1
	JR	NZ,BU2010	; hit ?
;				; yes !
;				; NO.
BU2008
;	LD	HL,ENBCOF
;	ADD	HL,BC
;	LD	A,(HL)
;	AND	A
;	JR	NZ,BU2010	;段さ通過？
;				; no!
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	(HL),$01 ;A
;
	LD	A,(ENMYNO2)
	CP	BUMER
	JR	NZ,ENPSRV
;
	CALL	LDTIM0
	RET	Z
;-------------------------------------------
ENPSRV
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(ENSVXL)
	LD	(HL),A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	A,(ENSVYL)
	LD	(HL),A
BU2099
	SCF
	RET
BU2010
	AND	A	; (CLC)
	RET
BU2020
	LD	A,(ENMYNO2)
	CP	BUMER
	JR	Z,BU2008
;
;	LD	HL,ENHNFG
;	ADD	HL,BC
;	LD	A,(HL)
;	CP	$02
;	JR	NC,ENPSRV
;
	JP  	ENCLER
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;==========================================
ENCTBC	; Center check  
	PUSH	BC
;
	LD	HL,ENXPSL
	ADD	HL,BC
	LD	A,(HL)
	SUB	$08-$07
;
;;	ADD	A,$07
	LD	(WORK4),A
	AND	$F0
	LD	(OBJXP),A
	SWAP	A
;
	LD	HL,ENYPSL
	ADD	HL,BC
	LD	C,A
	LD	A,(HL)
	SUB	$10-$09
;
;;	ADD	A,$07
	LD	(WORK5),A
	AND	$F0
	LD	(OBJYP),A
	OR	C
	LD	C,A
	LD	B,$0
	LD	HL,BGUNDT+$11
	LD	A,H
	ADD	HL,BC
	LD	H,A
	POP	BC
	LD	A,(HL)
	LD	(UNITNO),A
	LD	E,A
	LD	A,(DJFLAG)
	LD	D,A
;	LD	HL,GRBGCR
;	ADD	HL,DE
;	LD	A,(HL)
	CALL	BGCRRD2
	LD	(WORK3),A
;
	RET
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
PSERCH2
	LD	(WORK1),A
	AND	A
	JP	Z,PS90
;
	CALL	EPYCHK
	DEC	E
	DEC	E
	LD	A,E
	LD	(WORK2),A
;
	LD	A,D
	BIT	7,A
	JR	Z,PS00
	CPL
	INC	A
PS00
	LD	(WORKC),A
;
	CALL	EPXCHK
	LD	A,E
	LD	(WORK3),A

	LD	A,D
	BIT	7,A
	JR	Z,PS10
	CPL
	INC	A
PS10
	LD	(WORKD),A
;
	LD	E,$00
	LD	HL,WORKC
	LD	A,(WORKD)
	CP	(HL)
	JR	NC,PS20
;
	INC	E
	PUSH	AF
;
	LD	A,(WORKC)
	LD	(WORKD),A
	POP	AF
	LD	(WORKC),A
PS20
	XOR	A
	LD	(WORKB),A
	LD	(WORK0),A
;
	LD	A,(WORK1)
	LD	D,A
PS30
	LD	A,(WORKB)
	LD	HL,WORKC
	ADD	A,(HL)
	JR	C,PS31
	LD	HL,WORKD
	CP	(HL)
	JR	C,PS40
PS31
	SUB	(HL)
	LD	HL,WORK0
	INC	(HL)
PS40
	LD	(WORKB),A
	DEC	D
	JR	NZ,PS30
;
	LD	A,E
	AND	A
	JR	Z,PS50

	LD	A,(WORK0)
	PUSH	AF
;
	LD	A,(WORK1)
	LD	(WORK0),A
	POP	AF
	LD	(WORK1),A
PS50
	LD	A,(WORK2)
	AND	A
	LD	A,(WORK0)
	JR	NZ,PS60
;
	CPL
	INC	A
	LD	(WORK0),A
PS60
	LD	A,(WORK3)
	AND	A
	LD	A,(WORK1)
	JR	Z,PS70
;
	CPL
	INC	A
	LD	(WORK1),A
PS70
	RET
PS90
	XOR	A
	LD	(WORK0),A
	RET
;=======================================
PSERCH
	CALL	PSERCH2
;
	LD	A,(WORK0)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
;
	LD	A,(WORK1)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	RET
;====================================
EPXCHK
	LD	E,$0
;
	LD	A,(PLXPSL)
	LD	HL,ENXPSL
	ADD	HL,BC
	SUB	(HL)
	BIT	7,A
	JR	Z,EPX010
;;	JR	NC,EPX010
	INC	E
EPX010
	LD	D,A
	RET
;====================================
EPYCHK
	LD	E,$2
;
	LD	A,(PLYPSL)
	LD	HL,ENYPSL
	ADD	HL,BC
	SUB	(HL)
	LD	HL,ENZPSL
	ADD	HL,BC
	ADD	A,(HL)
	BIT	7,A
	JR	NZ,EPY010
;;	JR	C,EPY010
	INC	E
EPY010
	LD	D,A
	RET
;====================================
EPXYCK
	CALL	EPXCHK
	LD	A,E
	LD	(WORK0),A
;
	LD	A,D
	BIT	7,A
	JR	Z,EXY010
	CPL
	INC	A
EXY010
	PUSH	AF
;
	CALL	EPYCHK
	LD	A,E
	LD	(WORK1),A
;
	LD	A,D
	BIT	7,A
	JR	Z,EXY020
	CPL
	INC	A
EXY020
	POP	DE
	CP	D
	JR	NC,EXY030
;
	LD	A,(WORK0)
	JR	EXY050
EXY030
	LD	A,(WORK1)
EXY050
	LD	E,A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENMVCL	
;
	CALL	ENXCLC 		; X calc
;
ENYCLC
	PUSH	BC
	LD	A,C
	ADD	A,<ENNO
	LD	C,A
	
	CALL	ENXCLC		; Y calc
	POP	BC
	RET
;-----------------------------------------
ENXCLC
	LD	HL,ENXSPD
	ADD	HL,BC 
;
	LD	A,(HL)
	AND	A
	JR	Z,ECL090
;
	PUSH	AF
	SWAP	A
	AND	$F0
	LD	HL,ENXSDR
	ADD	HL,BC 
	ADD	A,(HL)
	LD	(HL),A
	RL	D
;
	LD	HL,ENXPSL
ECL00
	ADD	HL,BC 
;
	POP	AF
;
	LD	E,$0
	BIT	7,A
	JR	Z,EXC00
	LD	E,$F0
EXC00
	SWAP	A
	AND	$0F
	OR	E
	RR	D
	ADC	A,(HL)
	LD	(HL),A
ECL090
	RET
;====================================================
ENZCLC
	LD	HL,ENZSPD
	ADD	HL,BC 
;
	LD	A,(HL)
	AND	A
	JR	Z,ECL090
;
	PUSH	AF
	SWAP	A
	AND	$F0
	LD	HL,ENZSDR
	ADD	HL,BC 
	ADD	A,(HL)
	LD	(HL),A
	RL	D
;
	LD	HL,ENZPSL
	JR	ECL00
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;---------------------------------
ENSTCK
	LD	A,(ENMODE2)
	CP	EMOVE
	JR	NZ,ESTC12
;
ENSTCK2
	LD	A,(GMMODE)
	CP	GMAP
	JR	Z,ESTC12
;
	LD	A,(MSGEFG)
;;	AND	A
	LD	HL,ENSTFG
	OR	(HL)
	LD	HL,WNDFLG
	OR	(HL)
	JR	NZ,ESTC12
;
	LD	A,(SCRLFG)
	AND	A
	JR	Z,ESTCF0
ESTC12
	POP	AF
ESTCF0
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						    %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;ENHNSD
;	DB	$0,$0,$0,$0,$0
;;	DB	$7,$3,$1,$0,$0
ENHNSB
	LD	HL,ENHNFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,ENHN90
;
	DEC	A
	LD	(HL),A
;
;;	PUSH	AF
;
	CALL	HNSMST
;
;;	POP	AF
;
;	PUSH	AF
;	SRL	A
;	SRL	A
;	LD	E,A
;	LD	D,B ;$0
;	LD	HL,ENHNSD
;	ADD	HL,DE
;	POP	AF
;	AND	(HL)
;;	JR	NZ,ENHN30
;
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	PUSH	AF
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	A,(HL)
	PUSH	AF
;
	LD	HL,ENHNXS
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
;
	LD	HL,ENHNYS
	ADD	HL,BC
	LD	A,(HL)
	LD	HL,ENYSPD
	ADD	HL,BC
	LD	(HL),A
;
	CALL	ENMVCL
;
	LD	HL,ENMOD3
	ADD	HL,BC
	LD	A,(HL)
	AND	%00100000
	JR	NZ,ENHN28
;
	CALL	ENBGCK
ENHN28
	LD	HL,ENYSPD
	ADD	HL,BC
	POP	AF
	LD	(HL),A
;
	LD	HL,ENXSPD
	ADD	HL,BC
	POP	AF
	LD	(HL),A
ENHN30
	POP	AF
;
	CALL	ENHNBC
ENHN90
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						    %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;ENSDCL
;	XOR	A
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	(HL),A
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	(HL),A
;	RET
;-------------------------------------------
;ENXTUR				; X Cross !
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	A,(HL)
;	CPL
;	INC	A
;	LD	(HL),A
;	RET
;ENYTUR
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	A,(HL)
;	CPL
;	INC	A
;	LD	(HL),A
;	RET
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
	END
;
;
;
;-------------------------------------------
ENMKST
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	A,(HL)
	RL	A
	LD	A,$00
	JR	C,EMKS10
	LD	A,$20
EMKS10
	LD	HL,ENFLCL
	XOR	(HL)
	LD	(HL),A
	RET
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
;
BOSS1MV
KWUSOMV
	LD	DE,BOSS1CD
	CALL	EN2CST
;
	CALL	ENSTCK
;
	LD	A,(ENSTAT2)
	RST	0
	DW	BS1000
	DW	BS2000
	DW	BS3000
	DW	BS4000
	DW	BS5000
	DW	BS6000
;--------------------------------
;	DW	BS7000
	DW	BS8000
	DW	BS9000
;======================================
BS1000
	CALL	EPYCHK
;
	ADD	A,$18
	CP	$30
	JR	NC,BS1010
;
	LD	A,(ENMYNO2)
	CP	KWUSO
	LD	A,$25	; Nanda temeewa..
	JR	NZ,BS1001
	LD	A,$2A	; Watashi ni nanika..
BS1001
	CALL	MSGCHK
;
	CALL	STATINC
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	(HL),%00000010
	LD	HL,ENMOD1
	ADD	HL,BC
	LD	(HL),%00000000
BS1010
SBPTST
	CALL	EPXYCK
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),A
;
	CALL	MKPTST
	RET
;======================================
BS2000
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	A,(HL)
	CP	$15
	JR	NZ,BS2010
;
	LD	A,(ENMYNO2)
	CP	KWUSO
	LD	A,$26	; Kanbenshitekudase..
	JR	NZ,BS2002
	LD	A,$2B	; Na naniwosurunoda..
BS2002
	CALL	MSGCHK		
;
	LD	HL,ENLIFE
	ADD	HL,BC
	LD	(HL),$50
;
	CALL	STATINC
BS2010
	CALL	ENHNSB
	CALL	CRKNEN
	CALL	SBPTST
	RET
;======================================
BS3000
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	A,(HL)
	CP	$15
	JR	NZ,BS3010
;
	LD	A,(ENMYNO2)
	CP	KWUSO
	JR	NZ,BS3003
;
	LD	A,$2C		; Sonnani watashino ..
	CALL	MSGCHK
;
	LD	A,$06
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	(HL),A
;
	CALL	LDTIM0
	LD	(HL),$60
;
	LD	HL,ENMOD0
	ADD	HL,BC
	LD	A,(HL)
	OR	%01000000
	LD	(HL),A
	LD	HL,ENMOD1
	ADD	HL,BC
	LD	A,(HL)
	OR	%10000000
	LD	(HL),A
	RET
;
BS3003
	LD	A,$27		; Oboeteyagare!!
	CALL	MSGCHK
;
	CALL	STATINC
;
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	(HL),$A0
;
	CALL	ENMDSTS
	RET
BS3010
	CALL	ENHNSB
	CALL	CRKNEN
;
	LD	A,$10
	CALL	PSERCH2
	LD	A,(WORK0)
	LD	HL,ENYSPD
	ADD	HL,BC
	CPL
	INC	A
	LD	(HL),A
	LD	A,(WORK1)
	LD	HL,ENXSPD
	ADD	HL,BC
	CPL
	INC	A
	LD	(HL),A
;
	CALL	EPXYCK
	XOR	$01
	LD	HL,ENMUKI
	ADD	HL,BC
	LD	(HL),A
;
	CALL	ENMVCL
	CALL	ENBGCK
;
	CALL	MKPTST
	CALL	MKPTST
	RET
;======================================
BS4000
	LD	HL,ENFLSH
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,BS4010
;
	LD	A,BOMBR
	CALL	ENIDSH
;
	LD	A,(WORK0)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
	LD	A,(WORK1)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$17
;
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),$FF
;
	CALL	LDTIM0
	LD	(HL),$70
;
	CALL	STATINC
BS4010
	RET
;======================================
BS5000
	CALL	LDTIM0
	JR	NZ,BS5010
;
	LD	(HL),$28
;
	CALL	STATINC
;
	LD	A,$28
	CALL	MSGCHK
BS5010
	RET
;======================================
BS6000
	CALL	LDTIM0
	LD	A,$01
	LD	(PLSTOP),A
	JR	NZ,BS6010
;
;;	LD	A,PINDR1
;;	LD	(PLMODE),A	; Goto next room !
;;;
;;	XOR	A
;;	LD	(SBHR),A
;;	LD	(SBCNT),A
	CALL	NXGOTO
;
	CALL	ENCLER
;
	LD	A,$3
	LD	(PLCMKI),A
BS6010
	RET
;
;
;
;	CALL	ENSTCK
;;
;	CALL	LDTIM0
;	CP	$2
;	JR	NZ,BSM008
;;
;	LD	A,$24
;	CALL	MSGCHK
;	RET
;BSM008
;	CP	$00
;	JR	NZ,BSM010
;;
;	LD	A,PINDR1
;	LD	(PLMODE),A	; Goto next room !
;;
;	XOR	A
;	LD	(SBHR),A
;	LD	(SBCNT),A
;;
;	CALL	ENCLER
;;
;	LD	A,$3
;	LD	(PLCMKI),A
;BSM010
;	RET
;===========================================
BS7000
	CALL	LDTIM0
	JR	Z,BS7020
;
	AND	%00000010
	LD	A,$10
	JR	NZ,BS7010
	LD	A,$F0
BS7010
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),A
	CALL	ENXCLC
;
	LD	HL,ENLIFE
	ADD	HL,BC
	LD	(HL),$10
;
	RET
;
BS7020
	CALL	ENHNSB
;
	CALL	ENMVCL
	CALL	ENBGCK
	CALL	CREPKE
	CALL	SBPTST
;
	LD	A,(FRCNT)
	AND	$01
	JR	NZ,BS7021
;
	LD	A,$10
	CALL	MOSUB
BS7021
	LD	A,(FRCNT)
	AND	%00000111
	JR	NZ,BS7030
;
	LD	A,KWUSO
	LD	E,ENNO-5
	CALL	ENIDSH2
	JR	C,BS7030
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(WORK0)
	LD	(HL),A
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(WORK1)
	LD	(HL),A
;
	LD	A,(WORK2)
	LD	HL,ENMUKI
	ADD	HL,DE
	LD	(HL),A
;
	LD	HL,ENSTAT
	ADD	HL,DE
	LD	(HL),$07
;
	LD	HL,ENTIM0
	ADD	HL,DE
	LD	(HL),$40
BS7030
	RET
;==========================================
BS8000
	CALL	MKPTST
	CALL	LDTIM0
	JP	Z,ENCLER
	RET
;==========================================
BS9000
	CALL	LDTIM0
	JR	NZ,BS9010
;
	LD	(HL),$20
;
	LD	A,$2D
	CALL	MSGCHK	; Doubutsuwo...
;
	LD	HL,ENSTAT
	ADD	HL,BC
	LD	(HL),$05
BS9010
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				 %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENITXS	
	DB	$10,$12,$13,$14
	DB	$F0,$EE,$EF,$ED
	DB	$10,$13,$12,$14
	DB	$08,$EF,$EE,$F0
	DB	$14,$13,$12,$10
	DB	$ED,$E8,$EE,$F0
	DB	$ED,$EF,$E8,$F0
	DB	$10,$12,$10,$11
ENITYS	
	DB	$14,$13,$12,$10
	DB	$ED,$EF,$EE,$F0
	DB	$ED,$E2,$EE,$E6
	DB	$10,$12,$16,$11
	DB	$10,$12,$13,$14
	DB	$F0,$EE,$EF,$ED
	DB	$10,$13,$16,$14
	DB	$ED,$E4,$E6,$F0
ENMAIN
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	AND	A
	JR	NZ,ENM000
;--- INITIAL - - -
	INC	A
	LD	(HL),A
;
	LD	HL,ENITXS
	ADD	HL,DE
	PUSH	HL
	POP	BC
;
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	A,(BC)
	LD	(HL),A
;
	LD	HL,ENITYS
	ADD	HL,DE
	PUSH	HL
	POP	BC
;
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	A,(BC)
	LD	(HL),A
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,$50
	LD	(HL),A
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,$30
	LD	(HL),A
ENM000	
	CALL	ENMVCL
;
	CALL	ENBGCK
;
	CALL	ENCSET
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
	NOP
;
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENBGCK
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(HL)
	CP	$8
	JR	C,EBCK10
	CP	$91
	JR	NC,EBCK10
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	CP	$8
	JR	C,EBCK20
	CP	$81
	JR	NC,EBCK20
	RET
;-------------------------------------------
EBCK10				; X Cross !
	LD	HL,ENXSPD
	ADD	HL,DE
	LD	A,(HL)
	CPL
	INC	A
	LD	(HL),A
	RET
EBCK20
	LD	HL,ENYSPD
	ADD	HL,DE
	LD	A,(HL)
	CPL
	INC	A
	LD	(HL),A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENCSET	
	LD	B,D	;(0)
;
	LD	HL,ENOAM
;
	LD	C,E
	SLA	C
	SLA	C
	ADD	HL,BC
	PUSH	HL
	POP	BC
;
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	A,(HL)
	ADD	A,$10
	LD	(BC),A		; YPOS
	INC	BC
;
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	A,(HL)
	ADD	A,$08
	LD	(BC),A		; XPOS
	INC	BC
;
	LD	A,$00
	ADD	A,E
	LD	(BC),A		; CHR NO.
	INC	BC
;
	LD	A,$0 
	LD	(BC),A		; ATR.
;
ECRET
	RET
;----------------------------------------------------------------------
BBOMAD
	DB	$F8,$F0,$E8,$E0,$D8,$D0,$C8
BOMBOMV
	LD	DE,BOMBRCD
	CALL	EN1CST
;
	LD	HL,ENCONT
	ADD	HL,BC
	LD	A,(HL)
	AND	$3F
	LD	E,A
	LD	D,B ;$00
	LD	HL,XMVBUF
	ADD	HL,DE
	LD	A,(ENSVXL)
	LD	(HL),A
	LD	HL,YMVBUF
	ADD	HL,DE
	LD	A,(ENDSYP)
	LD	(HL),A
;
	LD	E,$07
	LD	D,$00
;
BBOM10
	PUSH	DE
;
	LD	HL,BBOMAD-1
	ADD	HL,DE
	LD	A,(HL)
;
	LD	HL,ENCONT
	ADD	HL,BC
	ADD	A,(HL)
	AND	$3F
	LD	E,A
	LD	D,B ;$00
	LD	HL,XMVBUF
	ADD	HL,DE
	LD	A,(HL)
	LD	(ENSVXL),A
	LD	HL,YMVBUF
	ADD	HL,DE
	LD	A,(HL)
	LD	(ENDSYP),A
;
	LD	DE,BOMBRCD
	CALL	EN1CST
;
	POP	DE
	DEC	E
;
	JR	NZ,BBOM10
;
	CALL	ENSTCK
;
	LD	HL,ENCONT
	ADD	HL,BC
	INC	(HL)
;
	CALL	YMVSUB
	XOR	A
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),A
	RET
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%						       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
STESQCD
	DB	$50,$10
STESBCD
	DB	$70,$10,$70,$30
;
STESTMV
	LD	DE,BOSS1CD
	CALL	EN2CST
;
	LD	HL,ENWRK0
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JP	NZ,S20000
;
	LD	A,(ENSTAT2)
	RST	0
	DW	ST1000
	DW	ST2000
	DW	ST3000
	DW	ST4000
;
;=========================================
S20000
	LD	A,(ENSTAT2)
	RST	0
	DW	S21000
	DW	S22000
	DW	S23000
	DW	S24000
;-----------------------------------------
S21000
	CALL	ENMVCL
;
	CALL	LDTIM0
	JR	NZ,S21010
;
	LD	(HL),$80
	CALL	STATINC
S21010
	LD	A,(FRCNT)
	LD	HL,ENCHPT
	ADD	HL,BC
	RRA
	RRA
	RRA
	AND	%00000001
	ADD	A,$04
	LD	(HL),A
	RET
;-----------------------------------------
S22000
	CALL	LDTIM0
	JR	NZ,S22008
;
	LD	(HL),$20
	CALL	STATINC
	RET
S22008
	CP	$40
	JR	NC,S22010
;
	CALL	SQUEST
S22010
	RET
;-----------------------------------------
S23000
	CALL	LDTIM0
	JR	NZ,S23010
;
	CALL	STATINC
	LD	A,$10
	LD	(ENXSPD+$0E),A
S23010
	RET
;-----------------------------------------
S24000
	LD	A,(FRCNT)
	AND	%00011000
	JR	Z,S24010
;
	XOR	A
	LD	(ENCHPT2),A
;
	LD	A,(ENDSYP)
	SUB	$06
	LD	(ENDSYP),A
;
	LD	DE,STESBCD
	CALL	EN2CST
;
S24010
	CALL	ENMVCL
	CALL	STWKST
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;-----------------------------------------
ST1000
	LD	HL,ENTIM3
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	NZ,STT190
;
	CALL	LDTIM0
	LD	(HL),$50
;
	CALL	STATINC
;
;;	RET
;
	LD	A,STEST
	CALL	ENIDSH
;
	LD	A,$A8
	LD	(ENXPSL+$0E),A
	LD	A,$68
	LD	(ENYPSL+$0E),A
	LD	A,$F8
	LD	(ENXSPD+$0E),A
	LD	(ENWRK0+$0E),A
;
	LD	A,$40
	LD	(ENTIM0+$0E),A
SBPTST2
STT190
	LD	A,(FRCNT)
	LD	HL,ENCHPT
	ADD	HL,BC
	RRA
	RRA
	RRA
	AND	%00000001
	LD	(HL),A
;
	RET
;=============================
ST2000
	CALL	LDTIM0
	JR	NZ,ST2010
;
	LD	(HL),$80
;
	CALL	STATINC
ST2010
	CALL	SBPTST2
	RET
;=============================
ST3000
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	(HL),$06
;
	CALL	LDTIM0
	JR	NZ,ST3010
;
	CALL	STATINC
	RET
ST3010
	CP	$40
	JR	NC,ST3020
;
SQUEST
	LD	A,(ENDSYP)
	SUB	$11
	LD	(ENDSYP),A
;
	LD	A,$00
	LD	(ENCHPT2),A
;
	LD	DE,STESQCD
	CALL	EN1CST
ST3020
	RET
;
;=============================
ST4000
	LD	HL,ENXSPD
	ADD	HL,BC
	LD	(HL),$10
	CALL	ENMVCL
;
STWKST
	LD	A,(FRCNT)
	LD	HL,ENCHPT
	ADD	HL,BC
	RRA
	RRA
	AND	%00000001
	ADD	A,$6
	LD	(HL),A
	RET
;=============================
;###############################################
;#					       #
;###############################################
BUMERCD
	DB	$38,$10,$38,$30
	DB	$A4,$10,$FF,$FF
	DB	$38,$50,$38,$70
	DB	$FF,$FF,$A4,$30
BUMERMV
	LD	A,$1
	LD	(BUMEFG),A
;
	LD	DE,BUMERCD
	CALL	EN2CST
;
	CALL	ENSTCK
;
	LD	A,(FRCNT)
	AND	$3
	JR	NZ,BRM010
;
	LD	HL,ENCHPT
	ADD	HL,BC
	LD	A,(HL)
	INC	A
	AND	$3
	LD	(HL),A
BRM010
	LD	A,$08
	LD	(ATCKNO),A
	CALL	CRENEN
;
	CALL	ENMVCL
	CALL	ENBGCK2
;
	CALL	RODSUB	;草とか当たりチェック！
;
;;	LD	HL,ENTIM0
;;	ADD	HL,BC
;;	LD	A,(HL)
	CALL	LDTIM0
;;	AND	A
	JR	Z,BRM080
;
	LD	HL,ENCBFG
	ADD	HL,BC
	LD	A,(HL)
	AND	A
	JR	Z,BRM030
;============================================
BUMERT
	PUSH	DE

;;	LD	HL,ENTIM0
;;	ADD	HL,BC
	CALL	LDTIM0
	XOR	A
	LD	(HL),A
;
	LD	A,$20
	CALL	PSERCH	;2
	POP	DE
BRM030
	RET
;- - Return player - - -
BRM080
;	LD	A,(FRCNT)
;	AND	$03
;	JR	NZ,BRM090
;
	LD	A,$20
	CALL	PSERCH	;2
;
	CALL	CRENPL
	JR	NC,BRM090
;
	CALL	ENCLER
BRM090
	RET
;------------------------------------------
;	LD	HL,ENYSPD
;	ADD	HL,BC
;	LD	A,(WORK0)
;	CALL	BRMSUB
;;
;	LD	HL,ENXSPD
;	ADD	HL,BC
;	LD	A,(WORK1)
;BRMSUB
;	SUB	(HL)
;	AND	%10000000
;	LD	A,(HL)
;	JR	NZ,BRM088
;
;	ADD	A,$2
;BRM088
;	SUB	$1
;	LD	(HL),A
;	RET
 