PUBALL
;
BANK0	GROUP	0
;
	LIB	ZRAM
	LIB	ZBN
;
	EXTERN	DATA_MOV,PBSET,PBRETN,ENISSUB,ENBTCK
	EXTERN	PMOVE,BGUNCH,DJUNCH,GRBGAD,DJBGAD,DJBGA2
	EXTERN	ENMDST2,DJRMDT,DJRMSTS,DJNZDT  ;,DJMPDT
	EXTERN	GRENAD,DJENAD,EINIT,CHRTRSB,SBHRSB
	EXTERN  UFOBELT,GMAPCDT,GRKEY5TR,KINOKOTR,AMEDT
	EXTERN	DMEXST,GMCHSB,SOUND
	EXTERN	GB01B2,GB02B2,TAMA0,ENIDSHL,D7DAT2
	EXTERN	DJYKBK,DJKBBK,DJCABK,GB08C2,GB00E2  ;TRONSUB,TOURSUB
	EXTERN	GRBGCR,FKMSCKL,GB0062,DB0F52,GB0792
	EXTERN	DJTKDT
;
	PAGE
	KANJI
	LIST
	ORG	$29B8
;==================================================
;==================================================
;==================================================
;==================================================
DJTKCK
	LD	A,$14
	LD	($2100),A
;
	LD	HL,DJTKDT
	ADD	HL,DE
	LD	A,(HL)
	JP	PBRETN
;==================================================
;==================================================
;==================================================
HABATAKI
	LD	A,(HABACNT)
	AND	A
	JR	NZ,HABAT10
;
	LD	A,$2D
	LD	(SOUND3),A	;(S)
HABAT10
	RET
;==================================================
;OKWARPSTL	;ふくろうメッセージセット！
;	LD	A,$01
;	LD	($2100),A
;;
;	CALL	OKWARPST2
;;
;	JP	PBRETN
;==================================================
FKMSCK	;ふくろうメッセージセット！
	LD	A,$01
	LD	($2100),A
;
	CALL	FKMSCKL
;
	JP	PBRETN
;==================================================
BGCRRD
	LD	A,$08
	LD	($2100),A
;
	LD	HL,GRBGCR
	ADD	HL,DE
	LD	A,(HL)
	JP	PBRETN
;==================================================
BGCRRD2	;	For ENBGCKL
	LD	A,$08
	LD	($2100),A
;
	LD	HL,GRBGCR
	ADD	HL,DE
	LD	A,(HL)
;
	PUSH	AF
;
	LD	A,$03
	LD	($2100),A
;
	POP	AF
	RET
;========================================================
ENDCHYM
	LD	A,$13
	LD	($2100),A
;
	LD	HL,CHRDAT+$2800
	LD	DE,CHRRAM+$1000
;
	LD	BC,$0800
	CALL   	DATA_MOV
;
	LD	HL,CHRDAT+$3000
	LD	DE,CHRRAM+$0800
;
	LD	BC,$0800
	JP     	DATA_MOV
;========================================================
ENDCHA2
	CALL	ENDCHA
;
	LD	DE,CHRRAM+$0400
	LD	HL,CHRDAT+$3600
	LD	BC,$0100
	JP  	DATA_MOV
;========================================================
ENDCHA
	LD	A,$13
	LD	($2100),A
;
	LD	HL,CHRDAT+$0000
	LD	DE,CHRRAM+$0000
;
	LD	BC,$1800
	CALL  	DATA_MOV
;
	LD	A,$0C
	LD	($2100),A	;ベタ
;
	LD	HL,CHRDAT+$17E0
	LD	DE,CHRRAM+$17F0
	LD	BC,$0010
	CALL  	DATA_MOV
;
	LD	A,$12
	LD	($2100),A	;リンク
;
	LD	HL,CHRDAT+$3500
	LD	DE,CHRRAM+$0000
	LD	BC,$0040
	CALL  	DATA_MOV
;
	LD	DE,CHRRAM+$0D00
	LD	HL,CHRDAT+$3500
	LD	BC,$0200
	JP  	DATA_MOV
;========================================================
ENDCHA1
	LD	A,$0C
	LD	($2100),A
;
	LD	HL,CHRDAT+$1000
	LD	DE,CHRRAM+$1000
;
	LD	BC,$0800
	CALL  	DATA_MOV
;
	LD	A,$12
	LD	($2100),A
;
	LD	HL,CHRDAT+$2000
	LD	DE,CHRRAM+$0000
	LD	BC,$0800
	CALL  	DATA_MOV
;
	LD	A,$0F
	LD	($2100),A
;
	LD	HL,CHRDAT+$2000
	LD	DE,CHRRAM+$0800
	LD	BC,$0800
	JP    	DATA_MOV
;============================================================
ENDCHB 
	LD	HL,CHRDAT+$0000
	JR	ENDCHB2S
;========================================================
ENDCHC 
	LD	HL,CHRDAT+$0800
	JR	ENDCHB2S
;- - - - - - - - - - - - - - - - -
ENDCHB2
	LD	HL,CHRDAT+$2000
ENDCHB2S
	LD	A,$13
	LD	($2100),A
;
	LD	DE,CHRRAM+$0000
;
	LD	BC,$0800
	CALL  	DATA_MOV
;
	LD	HL,CHRDAT+$1800
	LD	DE,CHRRAM+$0800
;
	LD	BC,$1000
	JP    	DATA_MOV
;========================================================
ENDCHF 
	CALL	SOUND
;
	LD	HL,CHRDAT+$2800
;
	LD	A,$10
	CALL	ENDCHDS2
;
	CALL	SOUND
;
	LD	A,$12
	LD	($2100),A
;
	LD	HL,CHRDAT+$2600
	LD	DE,CHRRAM+$0000
;
	LD	BC,$0080
	CALL  	DATA_MOV
;
	CALL	SOUND
;
	LD	A,$0C
	LD	($2100),A
;
	LD	HL,CHRDAT+$0220
	LD	DE,CHRRAM+$0100
;
	LD	BC,$0020
	JP    	DATA_MOV
;========================================================
ENDCHG 
;========================================================
ENDCHE 
	LD	HL,CHRDAT+$3800
	JR	ENDCHDS
;========================================================
ENDCHD 
	LD	HL,CHRDAT+$0800
ENDCHDS 
	LD	A,$13
ENDCHDS2 
	LD	($2100),A
;
	LD	DE,CHRRAM+$0000
;
	LD	BC,$0800
	CALL  	DATA_MOV
;
	LD	A,$13
	LD	($2100),A
;
	LD	HL,CHRDAT+$3000
	LD	DE,CHRRAM+$0800
;
	LD	BC,$0800
	CALL  	DATA_MOV
;
	LD	HL,CHRDAT+$2800
	LD	DE,CHRRAM+$1000
;
	LD	BC,$0800
	JP    	DATA_MOV
;;=====================================
;;=====================================
;;=====================================
;YADT
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%11111110,%11111110
;	DB	%01111100,%01111100
;	DB	%00111000,%00111000
;	DB	%00010000,%00010000
;;
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;MZDATA
 ; DB  $00,$20,$20,$60,$20,$E0,$40,$B0,$50,$BC,$2C,$5F,$1B,$27,$03,$0C
;  DB  $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
;  DB  $00,$20,$20,$60,$20,$E0,$40,$F0,$50,$EC,$2C,$73,$1B,$3C,$03,$0F
;  DB  $00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00,$00
;
;SBICDT
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000100,%00000100
;	DB	%00000100,%00000100
;	DB	%10000000,%10000000
;	DB	%01000000,%01000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;SBACDT
;	DB	%00001111,%00000000
;	DB	%00111111,%00000001
;	DB	%01111111,%00000111
;	DB	%11110011,%00001111
;	DB	%11111111,%00000000
;	DB	%01111111,%00101110
;	DB	%01111111,%00110110
;;	DB	%01111110,%00111101
;;
;	DB	%00111100,%00000011
;	DB	%00011111,%00001110
;	DB	%01111000,%00000000
;	DB	%01111111,%00100000
;	DB	%00110000,%00001111
;	DB	%00011110,%00000001
;	DB	%00011111,%00001100
;	DB	%00011110,%00000000
;;
;	DB	%11110000,%00000000
;	DB	%11111100,%10000000
;	DB	%11111110,%11100000
;	DB	%11001111,%11110000
;	DB	%11111111,%00000000
;	DB	%11111110,%01110100
;	DB	%11111110,%01101100
;	DB	%01111110,%10111100
;;
;	DB	%00111100,%11000000
;	DB	%11111000,%01110000
;	DB	%11111100,%11100000
;	DB	%11111110,%00001100
;	DB	%00011110,%11101100
;	DB	%00011100,%11100000
;	DB	%11110000,%00000000
;	DB	%01110000,%00000000
;
;
;SENDT
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%11111111,%11111111
;	DB	%11111111,%11111111
;;
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;TENDT
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000000,%00000000
;	DB	%00000101,%00000101
;	DB	%00000101,%00000101
;MARUDT
;	DB	%11111111,%11111111
;	DB	%11111111,%11111111
;	DB	%11111111,%11111111
;	DB	%11111111,%11111111
;	DB	%11111111,%11111111
;	DB	%11111000,%11111000
;	DB	%11111010,%11111010
;	DB	%11111000,%11111000
;====================
DJRMRD
	PUSH	BC
;
	LD	A,$14
;;	LD	A,$0A
	LD	($2100),A
;
	LD	HL,DJRMDT
	LD	A,(DNJNNO)
	CP	DJMAX+1
	JR	NC,DRR0F0
	SWAP	A
	LD	C,A
	LD	B,$00
	SLA	C
	RL	B
	SLA	C
	RL	B
	ADD	HL,BC
;
;;	ADD	HL,DE
;
	LD	A,(DNJNNO)
	CP	$06
	JR	NZ,D7CK10	;レベル７？
;				;YES!
	LD	A,(WARPSV+$06)
	AND	%00000100
	JR	Z,D7CK10	;はしら落ちた？
;
	LD	HL,D7DAT2	;YES !
D7CK10
	ADD	HL,DE
	LD	A,(HL)
	LD	E,A
	LD	D,$00
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,DRR010
	CP	DJROOM ;$20
	JR	C,DRR010
	INC	D
DRR010
	LD	HL,DJRMSV
	ADD	HL,DE
DRR0F0
	CALL	PBRETN
	POP	BC
	RET
;****************************************
;*      Character bank set   　     	*
;****************************************
BANKST
	LD	A,$C
;;	LD	($2100),A
	CALL	PBSET
;
	LD	HL,CHRDAT	; 常ちゆうキャラクタ データ
	LD	DE,CHRRAM	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$0400	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	A,$E
;	CALL	PBSET
;	LD	HL,CHRDAT+$0000	; 敵 1 キャラクタ データ
;	LD	DE,CHRRAM+$0400	; キャラクタ ＲＡＭ ($8000 - $97FF)
;	LD	BC,$0200	; 個数 
;	CALL	DATA_MOV	; キャラクタ 転送
;;
;	LD	HL,CHRDAT+$0200	; 敵 2 キャラクタ データ
;	LD	DE,CHRRAM+$0600	; キャラクタ ＲＡＭ ($8000 - $97FF)
;	LD	BC,$0200	; 個数 
;	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	A,$C
;;	LD	($2100),A
	CALL	PBSET
;
	LD	HL,CHRDAT+$0800	; ＢＧ＆ＩＴＥＭ　キャラクタ データ
	LD	DE,CHRRAM+$0800	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$1000	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$07A0 ;SENDT
	LD	DE,CHRRAM+$E00
	LD	BC,$0020
	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	HL,TENDT
;	LD	DE,CHRRAM+$C70
;	LD	BC,$0010
;	CALL	DATA_MOV	; キャラクタ 転送
;;
;	LD	HL,MARUDT
;	LD	DE,CHRRAM+$C80
;	LD	BC,$0010
;	CALL	DATA_MOV	; キャラクタ 転送
;;
;	LD	HL,YADT
;	LD	DE,CHRRAM+$5E0
;	LD	BC,$0020
;	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	HL,MZDATA
;	LD	DE,CHRRAM+$1C0
;	LD	BC,$0040
;	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	HL,CHRDAT+$3F0
;	LD	DE,CHRRAM+$1B0
;	LD	BC,$0010
;	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	A,$01
	CALL	PBSET
;
;	LD	HL,SENDT
;	LD	DE,CHRRAM+$E00
;	LD	BC,$0020
;	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	HL,KUSCDT
;	LD	DE,CHRRAM+$1A0
;	LD	BC,$0020
;	CALL	DATA_MOV	; キャラクタ 転送
;;
;	LD	HL,WUPCDT
;	LD	DE,CHRRAM+$180
;	LD	BC,$0020
;	JP  	DATA_MOV	; キャラクタ 転送
	RET
;
;;====================================================
;BGBKST
;	LD	HL,CHRDAT+$3000	; ＢＧキャラクタ入れ換え データ
;	LD	A,(FRCNT)
;	AND	$7
;	ADD	A,$30
;	LD	H,A
;	LD	HL,CHRDAT+$3600	; ＢＧキャラクタ入れ換え データ
;	LD	DE,CHRRAM+$1000	; キャラクタ ＲＡＭ 
;	LD	BC,$0200	; 個数 
;	CALL	DATA_MOV	; キャラクタ 転送
;
;
;	RET
;==========================================
BANKS2	; NAME REGI.
	CALL	BANKST
;
	LD	A,$0F
	CALL	PBSET
	LD	HL,CHRDAT+$0000
	LD	DE,CHRRAM+$0800
	LD	BC,$0400
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	A,$F
	CALL	PBSET
	LD	HL,CHRDAT+$1000
	LD	DE,CHRRAM+$1000
	LD	BC,$0800
	JP  	DATA_MOV	; キャラクタ 転送
;;	RET
;================================================
DJBKST
;- - 床バンクセット - -
	LD	A,$01
	CALL	PBSET
;
	LD	A,(DNJNNO)
	LD	E,A
	LD	D,$00
	PUSH	DE
	LD	HL,DJYKBK
	ADD	HL,DE
	LD	H,(HL)
	LD	L,$0
;
	LD	A,$D
	CALL	PBSET
	LD	DE,CHRRAM+$1100
	LD	BC,$0100
	CALL	DATA_MOV	; キャラクタ 転送
;- - 常駐バンクセット- -
	LD	HL,CHRDAT+$0000
	LD	DE,CHRRAM+$1200
	LD	BC,$0600
	CALL	DATA_MOV	; キャラクタ 転送
;- - 壁バンクセット - - - 
	LD	A,$01
	LD	($2100),A
;
	POP	DE
	PUSH	DE
	LD	HL,DJKBBK
	ADD	HL,DE
	LD	H,(HL)
	LD	L,$00
;
	CALL	PBRETN
;
	LD	DE,CHRRAM+$1200
	LD	BC,$0200
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	A,$0C
	LD	($2100),A
	LD	HL,CHRDAT+$07C0
	LD	DE,BELTBF	; BELTCONV data set !
	LD	BC,$0040
	CALL	DATA_MOV	; キャラクタ 転送
;
;;	LD	A,$C
;;	LD	($2100),A
;
;;	LD	HL,CHRDAT+$2E00
	CALL	MZCHTR	; Mizu chr & ITEM bank set !
;
	LD	A,$1
	LD	($2100),A
;- - 持ち上げられる物などバンクセット- - 
	POP	DE
	LD	HL,DJCABK
	ADD	HL,DE
	LD	H,(HL)
	LD	L,$00
;
	LD	A,$12 ;D
	CALL	PBSET
;
	LD	DE,CHRRAM+$0F00
	LD	BC,$0100
	CALL	DATA_MOV	; キャラクタ 転送
;
;- - 楽器 or だんじょんあいてむ - -
	LD	HL,CHRDAT+$3D00 ;2000
;
	LD	A,(DNJNNO)
	CP	DJMAX ;$20
	JR	C,DKSS10
;
	LD	A,$C
	CALL	PBSET
;
	LD	HL,CHRDAT+$0C00
DKSS10
	LD	DE,CHRRAM+$0C00	; Item !!
	LD	BC,$0300
	CALL  	DATA_MOV	; キャラクタ 転送
;===== あんまり好ましくない転送=======
ANMARI
	LD	A,(KINOKFG)
	AND	A
	JR	Z,ANM005
;
	CALL	KINOKOTR	; Kinoko item set!
ANM005
;	LD	A,(CLC20)
;	CP	$20
;	JR	C,ANM008
;;
;	CALL	RODTR	; Ken chip-> Rod CHR!
ANM008
	LD	A,(DJFLAG)
	AND	A
	JR	Z,ANM010
;
	LD	A,(DNJNNO)
	CP	DJMAX ;$20
	JR	C,ANM050
ANM010
	LD	A,(GRKEY5)
	CP	$06
	JR	C,ANM030
;
	CALL	GRKEY5TR	; 鍵５番
ANM030
;;	RET
ANM050
	LD	A,(MEGAF)
	CP	$02		;0:Nashi 1:ヨッシーは始めからいる！
	JR	C,ANM051
;
	LD	A,$0D
	LD	(CHTRF2),A	;わらしべアイテム転送！
ANM051
;;;	CALL	OGAKKITR	; OBJ 楽器!
	RET
;
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%					           %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
BANKS3
GRBKST
	LD	A,$C
;;	LD	($2100),A
	CALL	PBSET
;
;;	LD	HL,CHRDAT+$0200
;;	LD	DE,CHRRAM+$0200
;;	LD	BC,$0100
;;	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$1200
	LD	DE,CHRRAM+$1200
	LD	BC,$0600
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$0C00
	LD	DE,CHRRAM+$0C00
	LD	BC,$0400
	CALL	DATA_MOV	; キャラクタ 転送
;TTTTTTTTTTT
;;	LD	HL,CHRDAT+$2C30
	CALL	MZCHTR
	JP	ANMARI
MZCHTR
;;	LD	DE,CHRRAM+$16F0
;;	LD	BC,$0010
;;	CALL	DATA_MOV	; キャラクタ 転送
;;	LD	A,$C
;;	CALL	PBSET
;
	XOR	A
	LD	(CHTRCT),A
	LD	(CHTRC2),A
	CALL	CHRTRSB
;TTTTTTTTTTT
	LD	HL,CHRDAT+$0800	; IＴＥＭ　キャラクタ データ
	LD	DE,CHRRAM+$0800	; キャラクタ ＲＡＭ ($8000 - $97FF)
	LD	BC,$0800	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$0200
	LD	DE,CHRRAM+$0200
	LD	BC,$0100
	CALL	DATA_MOV	; キャラクタ 転送
	RET
;
;;;	RET
;BANKS3
;	LD	HL,CHRDAT+$1200
;	LD	DE,CHRRAM+$1200
;	LD	BC,$0200
;	CALL	DATA_MOV	; キャラクタ 転送
;	RET
;===========================================
;TITLCHST
;	LD	A,$F
;;;	LD	($2100),A
;	CALL	PBSET
;;
;	LD	HL,CHRDAT+$0900
;	LD	DE,CHRRAM+$1000
;	LD	BC,$0800
;	JP	DATA_MOV	; キャラクタ 転送
;
;	LD	A,$D
;	CALL	PBSET
;;
;	LD	HL,CHRDAT+$2FB0
;	LD	DE,CHRRAM+$0500
;	LD	C,$20
;;
;TTC010
;	LD	A,(HLI)
;	CPL
;	LD	(DE),A
;	INC	DE
;	DEC	C
;	JR	NZ,TTC010
;;
;	LD	HL,SBICDT
;	LD	DE,CHRRAM+$700
;	LD	BC,$0020
;	CALL	DATA_MOV	; キャラクタ 転送
;
;	LD	A,$E
;	CALL	PBSET
;;
;	LD	HL,CHRDAT+$0400
;	LD	DE,CHRRAM+$0600
;	LD	BC,$0100
;	JP	DATA_MOV	; キャラクタ 転送
;
;	LD	HL,SBACDT
;	LD	DE,CHRRAM+$600
;	LD	BC,$0040
;	JP	DATA_MOV	; キャラクタ 転送
;
;	RET
;===========================================
OPBKST	; Opening Sea & mountain !
	LD	A,$01
	CALL	PBSET
;
	LD	HL,AMEDT	;雨テスト
	LD	DE,CHRRAM+$0700
	LD	BC,$0080
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	A,$10
	CALL	PBSET
;
	LD	HL,CHRDAT+$1400
	LD	DE,CHRRAM+$0000
	LD	BC,$0600
	CALL	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$0000
	LD	DE,CHRRAM+$0800
	LD	BC,$1000
	JP	DATA_MOV	; キャラクタ 転送
;===========================================
OPBKS2	; Opening ZELDA logo set !
	LD	A,$0F
;;	LD	A,$0C
	CALL	PBSET
;
	LD	HL,CHRDAT+$0900
;;	LD	HL,CHRDAT+$3800
	LD	DE,CHRRAM+$0800
	LD	BC,$0700
	JP  	DATA_MOV	; キャラクタ 転送
;
;===========================================
GMAPBKST
	LD	A,$C
	CALL	PBSET
;
	LD	HL,CHRDAT+$3800
	LD	DE,CHRRAM+$0F00
	LD	BC,$0800
	CALL	DATA_MOV	; キャラクタ 転送
;
;;	LD	A,$C
;;	CALL	PBSET
;
	LD	HL,CHRDAT+$1000
	LD	DE,CHRRAM+$0200
	LD	BC,$0100
	JP	DATA_MOV	; キャラクタ 転送
;;	RET
;===========================================
;ODMBKST
;	LD	A,$F
;	CALL	PBSET
;;
;	LD	HL,CHRDAT+$1000
;;;	LD	HL,CHRDAT+$2C00
;	LD	DE,CHRRAM+$1000
;;
;	LD	BC,$0400
;ODBS10
;	LD	A,(HLI)
;	CPL
;	LD	(DE),A
;	INC	DE
;	DEC	BC
;	LD	A,C
;	OR	B
;	JR	NZ,ODBS10
;;
;;;;	CALL	DATA_MOV	; キャラクタ 転送
;	LD	A,$01
;	CALL	PBSET
;;
;	LD	HL,TENDT
;	LD	DE,CHRRAM+$13A0
;	LD	BC,$0010
;	JP	DATA_MOV	; キャラクタ 転送
;;	RET
;===========================================
;===========================================
KAB1BKST	;くじら壁画!
	LD	HL,CHRDAT+$3000
	JR	PEBKSS
;===========================================
KABABKST	;カバの絵!
	LD	HL,CHRDAT+$3800
	JR	PEBKSS
PEACHBKST	;ピーチ写真!
	LD	HL,CHRDAT+$1800
PEBKSS
	LD	A,$10
	CALL	PBSET
;
	LD	DE,CHRRAM+$1000
;
	LD	BC,$0800
	JP  	DATA_MOV	; キャラクタ 転送
;===========================================
TOUBGCH	;７塔デモ！
	LD	A,$13
	LD	($2100),A
;
	LD	HL,CHRDAT+$3C00
	LD	DE,CHRRAM+$0C00
	LD	BC,$0400
	CALL	DATA_MOV
;
	LD	HL,CHRDAT+$2800
	LD	DE,CHRRAM+$1000
	LD	BC,$0400
	JP  	DATA_MOV
;===========================================
LOVEBKST	;海岸熱いデモ！
	LD	A,$10
	CALL	PBSET
;
	LD	HL,CHRDAT+$2700
	LD	DE,CHRRAM+$0400
	LD	BC,$0400
	CALL  	DATA_MOV	; キャラクタ 転送
;
	LD	HL,CHRDAT+$2000
	LD	DE,CHRRAM+$1000
	LD	BC,$0600
	JP  	DATA_MOV	; キャラクタ 転送
;
;===========================================
GOVBKST
	LD	A,$F
	CALL	PBSET
;
	LD	HL,CHRDAT+$0400
	LD	DE,CHRRAM+$0800
	LD	BC,$0500
	JP	DATA_MOV	; キャラクタ 転送
;;	RET
; Room in out use character bank initial  ==
;===========================================
;  40-7F  :11
;  80-BF  :0E
;  C0-FF  :12
BKTRBD
	DB	00,$11,$0E,$12
;
BANKTR
	XOR	A
BKTR10
	LD	(WORK0),A
;
	LD	HL,EBANK0
	LD	E,A
	LD	D,$0
;
	ADD	HL,DE
;
	AND	A
	JR	NZ,MATR10
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,MATR0F
;
	LD	A,(YKFLAG)
	AND	A
	JR	NZ,MATR10
;
	LD	A,(DNJNNO)
	CP	$14	;城！
	JR	Z,MATR10
	CP	DJMAX
	JR	C,MATR10
;
	LD	A,(GRNDPT)
	CP	$FD
	JR	Z,MATR10	;マンボウルーム！
	CP	$B1
	JR	Z,MATR10	;釣りぼり！
;
MATR0F
	LD	A,(WANFLG)
	CP	$01
	LD	A,$A4
	JR	Z,MATR101	;ワンワンオプション？
;
	LD	A,(OBAKEFG)	;オバケ？
	AND	A
	LD	A,$D8
	JR	NZ,MATR101
;
	LD	A,(NIWATFG)	;ニワトリ？
	AND	A
	LD	A,$DD
	JR	NZ,MATR101
;
	LD	A,(MARINFG)
	AND	A
	JR	Z,MATR10	;マリンオプション？
;				;yes !
OBKTRS
;;	LD	A,(DNJNNO)
;;	CP	$0F
;;	JR	NZ,MATR100
;
;;	LD	A,(GRNDPT)
;;	CP	$FD
;;	JR	Z,MATR10	;マンボウルーム！
;;	CP	$B1
;;	JR	Z,MATR10	;釣りぼり！
;
MATR100
	LD	A,$8F
MATR101
	JR	MATR11
MATR10
	LD	A,(HL)
MATR11
	PUSH	AF
;
;;	CP	$80
;;	JR	C,EBTR21
;;	SUB	$40
;;EBTR21
	AND	$3F
	LD	B,A
	LD	C,$00
;
;  40-7F  :11
;  80-BF  :0E
;  C0-FF  :12
;
	POP	AF
;
	SWAP	A
	RRA
	RRA
	AND	%00000011
	LD	E,A
	LD	D,$00
	LD	HL,BKTRBD
	ADD	HL,DE
	LD	A,(HL)
;;	AND	%11000000
;;	LD	A,$0E	;z3
;;	JR	NZ,EBTR22	; BANK 11 ?
;;;				; Yes !
;;	LD	A,$11	;z6
;;EBTR22
	LD	($2100),A
;
	LD	A,(WORK0)
	LD	D,A
	LD	E,$0
;
	LD	HL,CHRRAM+$0400
	ADD	HL,DE
	PUSH	HL
	POP	DE
;
	LD	HL,CHRDAT+$0000
;;	LD	HL,$0000 ;CHRDAT+$0000
	ADD	HL,BC
;
	LD	BC,$0100
	CALL	DATA_MOV
;
	LD	A,(WORK0)
	INC	A
	CP	$4
	JP	NZ,BKTR10
;
;	LD	A,(OBAKEFG)
;	CP	$02
;	JR	NZ,OBKTR010	;ダンジョンクリヤーした瞬間？
;;				;YES !
;	XOR	A
;	LD	(OBAKEFG),A
;OBKTR010
;==BG=================================	
	LD	DE,CHRRAM+$1000	; キャラクタ ＲＡＭ 
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,BGB010
;
	LD	A,$0D
	LD	($2100),A
;
	LD	A,(YKFLAG)
	AND	A
	JR	Z,BBTR10
;
SBAHARA
	LD	HL,CHRDAT+$3000+$0000	;A
;
	LD	A,(DNJNNO)
	CP	$06
	JR	Z,SBHR100
	CP	DJMAX
	JR	NC,SBHR080
;
SBHR070
	LD	HL,CHRDAT+$3000+$0800	;B
	JR	SBHR100
SBHR080
	LD	A,(GRNDPT)
	CP	$E9
	JR	Z,SBHR070
SBHR100
	LD	DE,CHRRAM+$1000
	LD	BC,$0800	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
	RET
BBTR10
	LD	HL,CHRDAT+$1000	; ＢＧキャラクタ入れ換え データ
;
	LD	A,(BKCHNO)
	CP	$FF
	JR	Z,BBTR11
	ADD	A,$50
	LD	H,A
;
	LD	BC,$0100	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
BBTR11
	RET
;-------------------------------------
BGB010
	LD	A,$0F
	LD	($2100),A
;
;;	LD	HL,CHRDAT+$3000	; ＢＧキャラクタ入れ換え データ
;
	LD	A,(BKCHNO)
	CP	$0F
	JR	Z,BBTR21
;;
;	CP	$10
;	JR	C,BGB011
;;
;;	LD	HL,$2100
;	LD	(HL),$0D
;BGB011
;	OR	$70
;	LD	H,A
	ADD	A,$40
	LD	H,A
	LD	L,$00
;
	LD	BC,$0200	; 個数 
	CALL	DATA_MOV	; キャラクタ 転送
BBTR21
	RET
;****************************************
;*      ＢＧ デ−タ セｯトinitial　     	*
;****************************************
RMBGST
	LD	A,$8
	CALL	PBSET
;
	LD	DE,$9800
	LD	HL,BGUNDT+$11
;
	LD	C,$80
RMBS10
	PUSH	DE
	PUSH	HL
	PUSH	BC
;
	LD	A,(HL)
	LD	C,A
	LD	B,$00
	SLA	C
	RL	B
	SLA	C
	RL	B
	LD	HL,BGUNCH
	LD	A,(DJFLAG)
	AND	A
	JR	Z,RMBS20
	LD	HL,DJUNCH
RMBS20
	ADD	HL,BC
	LD	A,(HLI)
	LD	(DE),A
	INC	DE	
	LD	A,(HLI)
	LD	(DE),A
;
	LD	A,E
	ADD	A,$1F
	LD	E,A
	LD	A,D
	ADC	A,$0
	LD	D,A
;
	LD	A,(HLI)
	LD	(DE),A
	INC	DE	
	LD	A,(HL)
	LD	(DE),A
;
	POP	BC
	POP	HL
	POP	DE
;			; Next set addr set
	INC	HL
	LD	A,L
	AND	%00001111
	CP	$0A+1
;;	CP	$0A
	JR	NZ,RMBS28
;
	LD	A,L
	AND	%11110000
	ADD	A,$10+1
	LD	L,A
RMBS28
	LD	A,E
	ADD	A,$02
	LD	E,A
	AND	%00011111
	CP	$14
	JR	NZ,RMBS30
;
	LD	A,E
	AND	%11100000
	ADD	A,$40
	LD	E,A
	LD	A,D
	ADC	A,$00
	LD	D,A
RMBS30
	DEC	C
	JR	NZ,RMBS10
;
;	LD	A,(TOUROU)
;	AND	A
;	JR	Z,RMBS50
;;
;	LD	A,(TOURCT)
;	CP	$02
;	JR	Z,RMBS50
;;
;	LD	A,$18
;;;	LD	A,$03
;	CALL	PBSET
;;
;	LD	A,(CHTRF2)
;	PUSH	AF
;;
;	LD	A,(TOURCT)
;	CALL	TRONSUB
;
;	CALL	TOURSUB
;;
;	POP	AF
;	LD	(CHTRF2),A
RMBS50
	LD	A,$01
	LD	($2100),A
	JP  	DMEXST	; ダンジョンマップ入口セット 
;
;;	RET
;****************************************
;*      ＢＧ デ−タ セｯト　     	*
;****************************************
BGDTST
	LD	A,%00000001
	LD	(IE),A
;
	LD	HL,RMINCT	; ROOM in count
	INC	(HL)
;
	LD	A,$9
	LD	($2100),A	;地上BG bank 1
;
	XOR	A
	LD	(WORKF),A  ; Next goto ram set pointer reset !
	LD	(DOORCT),A	; Door set counter clear!
	LD	(SPEKFG),A
	LD	(NXRMPZ),A	; Next (Z)pos reset (for fole down)
	LD	(TOUROU),A	; Tourou set flag !
	LD	(TOURCT),A	; Tourou set COUNT !
;;;	LD	(BELTFG),A	; Belt conv. CHR TR flag
;;;	LD	(TOGEFG),A	; Toge. CHR TR flag
	LD	(MUTEKI),A	; Player Muteki flag !
	LD	(ONOFBLF),A	; On off block TR flag !
	LD	(SHOPFG),A	; Shop flag !!
	LD	(EXITFG),A	; Dundeon EXIT flag !
	LD	(EFLFLG),A	; ENMY ANA OCHI FLAG !
	LD	(EFLFLG2),A	; ENMY ANA OCHI FLAG !
	LD	(BOSSFG),A	; ボス部屋FLAG
	LD	(TAKISDF),A	; 滝 SE FLAG
	LD	(UTAFLG),A	; マリン歌FLAG
	LD	(IWAMSFG),A	;いわもちあげメッセージフラグ！
	LD	(KEYSDON),A
;
	LD	(FADECT2),A	;Fade test
;
;;	LD	(CHTRCT),A
;;	LD	(CHTRC2),A
;
	LD	A,$FF
	LD	(NXRMMD),A
	LD	(MAINDX),A	;マリンインデックス！
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,BDS010
;
	LD	A,$14
;;	LD	A,$A
	LD	($2100),A
	LD	(ENHELP),A
;;	CALL	PBSET
;
	LD	A,(DNJNNO)
;;	AND	A
;;	JR	NZ,BDS00D
	CP	DJMAX+1		 ;$20
	JR	NC,BDS00D
;
	LD	HL,DJRMDT
;
;;;	LD	A,(DNJNNO)
	SWAP	A
	LD	E,A
	LD	D,$00
	SLA	E
	RL	D	
	SLA	E
	RL	D	
	ADD	HL,DE
;
	LD	A,(DNJNNO)
	CP	$06
	JR	NZ,BD7010	;レベル７？
;
	LD	A,(WARPSV+$06)
	AND	%00000100
	JR	Z,BD7010	;柱壊した？
;				;YES !
	LD	HL,D7DAT2
BD7010
	LD	A,(DNJNPT)
	LD	E,A
	LD	D,$0
;
;;	PUSH	DE
	ADD	HL,DE
	LD	A,(HL)
	LD	(GRNDPT),A
BDS00D
	LD	A,(GRNDPT)
	LD	C,A
	LD	B,$00
;
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,BDS0D3
	CP	DJROOM ;$20
	JR	C,BDS0D3
;
	INC	B
BDS0D3
	LD	HL,DJNZDT
	ADD	HL,BC
	LD	A,(HL)
	LD	(NAZOFG),A
;
;;;	LD	B,$00
;
;;	LD	A,(YKFLAG)
;;	AND	A
;;	JR	NZ,BDS00E
;;;
;;	LD	HL,DJRMSV
;;	ADD	HL,BC
;;	LD	A,(HL)
;;	OR	%10000000
;;	LD	(HL),A
;
;	LD	HL,DJMPDT
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	HL,DJGOFG	; Map on flag !
;	ADD	HL,DE
;	LD	(HL),A
BDS00E
	XOR	A
	LD	(SHSTCT),A	; Shatter set flag (for open)!
	LD	(SHSTCT2),A	; Shatter set flag (for shut)!
	LD	(SHUTFG),A	; Shatter shuted flag reset !
	LD	(NAZOCL),A	; Nazo clear flag reset !
;
	LD	E,A
	LD	HL,ENFLPT
BDS00F
	XOR	A
	LD	(HLI),A
	INC	E
	LD	A,E
	CP	$10+1
	JR	NZ,BDS00F
;---------------------------------------
BDS010
;SVBFST
	LD	A,(GRNDPT)
	LD	E,A
	LD	D,$0
	LD	HL,GRRMSV
	LD	A,(DJFLAG)
	AND	A
	JR	Z,SVS010
;
	LD	HL,DJRMSV
;
	LD	A,(DNJNNO)
	CP	DJROOM2  ;$20
	JR	NC,SVS010
	CP	DJROOM  ;$20
	JR	C,SVS010
;
	LD	HL,DJRMSV+$100
SVS010
	ADD	HL,DE
	LD	A,(YKFLAG)
	AND	A
	LD	A,(HL)
	JR	NZ,SVS011
	OR	%10000000
	LD	(HL),A
SVS011
	LD	(DJSVBF),A	; Save data buffer set !
;-------------------------------------
	LD	A,(GRNDPT)
	LD	C,A
	LD	B,$00
	SLA	C
	RL	B
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,GBS010	; Danjyon ?
;				; yes !
	LD	A,$0A
	LD	($2100),A
	LD	(ENHELP),A
;
	LD	A,(DNJNNO)
	CP	$1F
	JR	NZ,DBSSCK10
;
	LD	A,(GRNDPT)
	CP	$F5
	JR	NZ,DBSSCK10
;
	LD	A,(MEGAF)
	CP	$0E
	JR	NZ,DBSSCK10
;
	LD	BC,DB0F52
	JP	GBS01A12
DBSSCK10
;	LD	A,$0A
;	LD	($2100),A
;	LD	(ENHELP),A
;
	LD	HL,DJBGAD
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,GBS018
	CP	DJROOM ;$20
	JR	C,GBS018
;
	LD	A,$0B
	LD	($2100),A
	LD	(ENHELP),A
;
	LD	HL,DJBGA2
	JR	GBS018
GBS010
	LD	A,(GRNDPT)
	CP	$0E
	JR	NZ,GBSE011	;城７のエリア？
;				;yes !
	LD	A,(GRRMSV+$0E)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB00E2
	JR	GBS01A
GBSE011
	CP	$8C
	JR	NZ,GBS1011	;城６のエリア？
;				;yes !
	LD	A,(GRRMSV+$8C)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB08C2
	JR	GBS01A
GBS1011
	CP	$79
	JR	NZ,GBS0179	;城門のエリア？
;				;yes !
	LD	A,(GRRMSV+$79)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB0792
	JR	GBS01A
GBS0179
	CP	$06
	JR	NZ,GBS0116	;滝の鍵のエリア？
;				;yes !
	LD	A,(GRRMSV+$06)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB0062
	JR	GBS01A
GBS0116
	CP	$1B
	JR	NZ,GBS011	;滝の鍵のエリア？
;				;yes !
	LD	A,(GRRMSV+$2B)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB01B2
	JR	GBS01A
GBS011
	CP	$2B
	JR	NZ,GBS012
;
	LD	A,(GRRMSV+$2B)
	AND	%00010000
	JR	Z,GBS012
;
	LD	BC,GB02B2
	JR	GBS01A
GBS012
	LD	HL,GRBGAD
GBS018
	ADD	HL,BC
;
	LD	A,(HLI)
	LD	C,A
	LD	A,(HL)
	LD	B,A		; (BC):Data addr.
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,GBS01A12
;
GBS01A
	LD	A,(GRNDPT)
	CP	$80
	JR	C,GBS01A12
;
	LD	A,$1A
	LD	($2100),A	;Bank 2!!!!
GBS01A12
	LD	A,(BC)
	CP	BEND
	JR	Z,GBDS10	; data aru?
;				; yes
	LD	(CHTRFG),A
	INC	BC
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,GBDS0B
;
	LD	A,(BC)
	AND	$0F
	CALL	BACKBS		; Back ground BG set.
	LD	A,(BC)
	SWAP	A
	AND	$0F
;
	CALL	DJRMST	; Base room data set !
	JR	GBDS0C
;
GBDS0B
	LD	A,(BC)
	CALL	BACKBS		; Back ground BG set.
;
GBDS0C
	INC	BC
	LD	A,(BC)
	AND	%11111100
	CP	NXGO
	JR	NZ,GBDS0D	; Next goto set ?
;
;;	LD	A,(DOORCT)
;;	INC	A
;;	LD	(DOORCT),A				; yes !
;
	LD	A,(WORKF)
	LD	E,A
	LD	D,$00
	LD	HL,NXRMMD
	ADD	HL,DE
;
	LD	A,(BC)

	AND	%00000011
	LD	(HLI),A		; 0:Danjyon 1:Ground 2:Yoko display
;
	INC	BC
	LD	A,(BC)
	LD	(HLI),A		; Danjyon No.
;
	INC	BC
	LD	A,(BC)
	LD	(HLI),A		; Room No.
;
	INC	BC
	LD	A,(BC)
	LD	(HLI),A		; Player set X pos.
;
	INC	BC
	LD	A,(BC)
	LD	(HLI),A		;  "   Y pos.
;
	LD	A,E
	ADD	A,$05
	LD	(WORKF),A
;
;;	INC	BC
	JR	GBDS0C
;
;;;;;	CP	BEN2
;;;;;;
;;;;;;	JR	Z,GBDS0C
;
GBDS0D
	LD	A,(BC)
	CP	BEND   ;$FF
	JR	Z,GBDS10	; End ?
;
	CALL	UNITST
	JR	GBDS0C
GBDS10
	LD	A,$01
	LD	($2100),A
	CALL	SBHRSB		; Display out unit FF set !
;
;LD	A,$1
;LD	($2100),A
	JP	PBRETN
;;	RET
;================================================
UNITST
	XOR	A
	LD	(WORK0),A	; 0:normal
;
	LD	A,(BC)
	BIT	7,A
	JR	Z,UNS010	; Kahen set ?
	BIT	4,A
	JR	NZ,UNS010	; Display out set UNIT ?
;				; NO
	LD	(WORK0),A	; Paramater set
;
	INC	BC
UNS010
	INC	BC
	LD	A,(DJSVBF)
	LD	E,A
;
	LD	A,(DJFLAG)
	AND	A
	JR	NZ,UNS022
;- - Ground set ---
	LD	A,(BC)
	SUB	EXUNST
	JR	C,UN1SET
	RST	0
;
	DW	BWOOD0ST	; Big wood
	DW	HOUSE0ST	; Side long home (house)
;;;;	DW	HOUSE1ST	; Long space home (house)
	DW	HOUSE2ST	; Nomal home (house)
	DW	SEKIZOST	; Sekizou and dangon in
;;;	DW	MHOKORST	; Mizu no hokora iriguchi
	DW	CASINSET	; Casle in set(iriguchi)
	DW	BOMGZSET	; Bomb de kowareru big iwa00
	DW	UWOODSET	; 海の木
	DW	TOIRESET	; トイレセット
	DW	PREHBSET	; プレハブ(常駐の家)
;- - Danjyon set ---
UNS022
	LD	A,(BC)
	SUB	DXUNST
	JP	C,DN1SET
	RST	0
;
	DW	DKEYUSET	; Danjon key's door up set
	DW	DKEYDSET	; Danjon key's door down set 
	DW	DKEYLSET	; Danjon key's door left set
	DW	DKEYRSET	; Danjon key's door right set
;
	DW	DSHIUSET	; Danjon shutter's door up set
	DW	DSHIDSET	; Danjon shutter's door down set 
	DW	DSHILSET	; Danjon shutter's door left set
	DW	DSHIRSET	; Danjon shutter's door right set
;
	DW	DTURUSET	; Danjon turo (non door) up set
	DW	DTURDSET	; Danjon turo (non door) down set 
	DW	DTURLSET	; Danjon turo (non door) left set
	DW	DTURRSET	; Danjon turo (non door) right set
;
	DW	DSPCLSET	; Danjon Big key's (Boss room) door set
	DW	DOHANSET	; Danjon giga no ohhhhana
	DW	DKURUSET	; Danjon kurukuru mawaru kaiten menu
	DW	DKUUUSET	; Danjon kurukuru mawaru kaiten menu URA varsion
	DW	DEXITSET	; Danjon Exit
	DW	DAHOUSET	; House no naka no iriguhi set dayooon!
;-------------------------------------
UN1SET
	ADD	A,EXUNST
	PUSH	AF
;
	LD	D,A
;
	CP	TAKI0
	JR	NZ,U1S0111	;滝？
;				; YES !
	LD	(TAKISDF),A	;SE セット！
U1S0111
	CP	KAZA1
	JR	NZ,U1S0221	;風見鳥階段変化！
;
	BIT	5,E
	JR	NZ,U1S0023
;				; yes !
U1S0221
	CP	KAZA0
	JR	NZ,U1S0223
;
	BIT	5,E
	JR	Z,U1S0223
;				; yes !
	POP	AF
	LD	A,KAZA1		; Hashi set !
	LD	D,A
	PUSH	AF
U1S0223
	CP	HKAZA
	JR	NZ,U1S0222
;
	BIT	5,E
	JR	Z,U1S0222
;				; yes !
	POP	AF
	LD	A,KAZA0		; Hashi set !
	LD	D,A
	PUSH	AF
U1S0222
	CP	GSAV0
	JR	Z,U1S0006	; 猿橋 ?
	CP	GSAV1
	JR	Z,U1S0006	;  ?
	CP	GSAV2
	JR	NZ,U1S0008	;  ?
;				; yes !
U1S0006
	BIT	4,E
	JR	Z,U1S0008	; Already set ?
;				; yes !
	POP	AF
	LD	A,SARUH		; Hashi set !
	LD	D,A
	PUSH	AF
U1S0008
	CP	DIN00
	JR	NZ,U1S001	; Ground Key door ?
;				; yes !
	BIT	4,E
	JR	Z,U1S001	; Already open ?
;				; yes !
	POP	AF
	LD	A,ANA02		; open unit set !
	LD	D,A
	PUSH	AF
U1S001
	LD	A,D
	CP	BK000
	JR	NZ,U1S002	; Ground bakudan hole ?
;				
;;	LD	A,(DJSVBF)
;;	AND	%00000100
	BIT	2,E
	JR	Z,U1S002	; Already break ?
;				; yes !
	POP	AF
	LD	A,ANA00		; open unit set !
	LD	D,A
	PUSH	AF
U1S002
	LD	A,D
	CP	ANFLW
	JR	NZ,U1S003
;
	BIT	4,E
	JR	Z,U1S003
;
	LD	A,(GRNDPT)
	CP	$75
	JR	Z,U1S0023				; yes !
	CP	$07
	JR	Z,U1S0023				; yes !
	CP	$AA
	JR	Z,U1S0023				; yes !
	CP	$4A
	JR	NZ,U1S003				; yes !
;
U1S0023
	POP	AF
	LD	A,SINDO		; open unit set !
	LD	D,A
	PUSH	AF
U1S003
	LD	A,D
	LD	(WORK9),A
	CP	DIN00
	JR	Z,SSSS11
;;	CP	DANIN
;;	JR	Z,SSSS11
	CP	ANA00
	JR	Z,SSSS11
	CP	MEGGC
	JR	Z,SSSS11
	CP	BK000
	JR	Z,SSSS11
	CP	IDO00
	JR	Z,SSSS11
;;	CP	ANA03
;;	JR	Z,SSSS11
	CP	SINDO
	JR	Z,SSSS11
	CP	OHAMV
	JR	Z,SSSS11
	CP	ANA01
	JR	Z,SSSS11
	CP	ANA02
	JR	NZ,SSSS2	; Danjyon in ana ?
SSSS11				; yes !
;;	PUSH	AF
;
	LD	A,(DOORCT)	; Door pos save ! For nextgoto !
	LD	E,A
	INC	A
	LD	(DOORCT),A
	LD	D,$00
	LD	HL,DRPSBF
	ADD	HL,DE
	DEC	BC
	LD	A,(BC)
	LD	(HL),A
	INC	BC
;
;;	POP	AF
SSSS2
;;	JR	U1S00D
;;	LD	A,(BC)
	LD	A,(WORK9)
	CP	OHAMV
	JP	Z,DJEXST	; Kaidan ana hit obj set !
	CP	SINDO
	JP	Z,DJEXST	; Kaidan ana hit obj set !
;
	JP	U1SET
;-------------------------------------
DN1SET
	ADD	A,DXUNST
U1S000
	LD	(WORK9),A
;
;	CP	DTU4B
;	JR	NZ,DUS0001
;;
;	BIT	1,E
;	JP	NZ,DBMLASET
;;
;DUS0001
;	CP	DTU6B
;	JR	NZ,DUS0002
;;
;	BIT	0,E
;	JP	NZ,DBMRASET
;;
;DUS0002
;	CP	DTU0B
;	JR	NZ,DUS0003
;;
;	BIT	2,E
;	JP	NZ,DBMUASET
;;
;DUS0003
;	CP	DTU2B
;	JR	NZ,DUS0004
;;
;	BIT	3,E
;	JP	NZ,DBMDASET
;;
DUS0004
	PUSH	AF
;
	CP	BELTD
	JR	C,D1S0088	; Bletconb. ?
	CP	BELTR+1
	JR	NC,D1S0088	; Bletconb. ?
;				; yes ! Tr. flag set !
	LD	HL,BELTFG
	INC	(HL)
D1S0088
	CP	DSOK0
	JR	NZ,D1S009	; Not fire tourou ?
;
	XOR	A
	LD	(FADEON),A
;
	LD	A,(GRNDPT)
	CP	$C4	;暗くない！
	LD	A,(WORK9)
	JR	Z,D1S009				; yes ! Dark set !
;
	LD	HL,TOUROU
	INC	(HL)
;
	LD	(FADEON),A
;
	PUSH	AF
	LD	A,(FADECT2)
	ADD	A,$04
	LD	(FADECT2),A
	LD	A,$04
	LD	(SBHR),A
	POP	AF
D1S009
	CP	STUBO
	JR	Z,D1S00188	; 凹凸BLOCK ?
	CP	DSWCH
	JR	Z,D1S00188	; Push swich !
	CP	DBL02
	JR	Z,D1S0018	; Push swich !
	CP	DBL01
	JR	NZ,D1S0019
;;;				; yes ! 
D1S0018
;;	LD	HL,ONOFTM
;;	LD	(HL),$06	;強制転送！
;;;
;;	LD	HL,ONOFBLF	; On off block chr TR Flag !
;;	INC	(HL)
;
	LD	HL,ONOFBLF
	LD	(HL),$02
	JR	D1S0019
D1S00188
	LD	HL,ONOFBLF	; On off block chr TR Flag !
	LD	(HL),$01
D1S0019
;	CP	DTRE0
;	JR	NZ,U1S008	; Takara ?
;;				
;	BIT	4,E
;	JR	Z,U1S00C	; Already have ?
;;				; yes !
;	POP	AF
;	LD	A,DTOP0		; open unit set !
;	PUSH	AF
;U1S008
	CP	DBOMU
	JR	Z,DBMS010	;ダンジョン爆弾壊れ壁？
	CP	DTUBU	
	JR	NZ,DBMS020
DBMS010
	BIT	2,E
	JR	NZ,DBMS038	;壊れた後？
DBMS020
	CP	DBOMD
	JR	Z,DBMS030	;ダンジョン爆弾壊れ壁？
	CP	DTUBD	
	JR	NZ,DBMS040
DBMS030
	BIT	3,E
	JR	Z,DBMS040	;壊れた後？
DBMS038				;YES!
	POP	AF
	LD	A,DBMUD		;通路！
	PUSH	AF
DBMS040
	CP	DBOML
	JR	Z,DBMS110	;ダンジョン爆弾壊れ壁？
	CP	DTUBL	
	JR	NZ,DBMS120
DBMS110
	BIT	1,E
	JR	NZ,DBMS138	;壊れた後？
DBMS120
	CP	DBOMR
	JR	Z,DBMS130	;ダンジョン爆弾壊れ壁？
	CP	DTUBR	
	JR	NZ,DBMS140
DBMS130
	BIT	0,E
	JR	Z,DBMS140	;壊れた後？
DBMS138				;YES!
	POP	AF
	LD	A,DBMLR		;通路！
	PUSH	AF
DBMS140
;==============================================
	CP	DTOP0
	JR	NZ,U1S00C	; Nazo takara ?
;				; yes !
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	4,E
	JR	NZ,U1S00C	; already have ?
;				; no.
	POP	AF
	LD	A,(ENHELP2) ;DTU08		; nuki set!
	PUSH	AF
U1S00C
	CP	DNTK0
	JR	NZ,U1S00D	; Nazo KAIDAN ?
;				; yes !
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	4,E
	JR	NZ,U1S00D	; already SET ?
;				; no.
	POP	AF
	RET
;;	JR	U1S00F
U1S00D
;;	CP	DKAD0
;;	JR	Z,DJEXST
;;	CP	DKAU0
;;	JR	Z,DJEXST
	CP	DTKD0	; 
	JR	Z,DJEXST
	CP	DNTK0	; NAZO
	JR	Z,DJEXST
	CP	DTKU0
	JR	NZ,DJEX90	; Dundeon exit ?
DJEXST				; Yes! hit check mode set !!
	DEC	BC
	LD	A,$01
	LD	(EXITFG),A
	LD	A,(BC)
	AND	$F0
	ADD	A,$10
	LD	(EXITYP),A	
;
	LD	A,(BC)
	SWAP	A
	AND	$F0
	ADD	A,$8
	LD	(EXITXP),A
;
	INC	BC
	JP	U1SET
;
DJEX90
	CP	DKAN1
	JR	Z,U1S00E
	CP	DKAN0
	JR	NZ,U1S0FF
U1S00E
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	4,E
	JR	NZ,U1S0FF
;
	POP	AF
	LD	A,DNC00
	PUSH	AF
U1S0FF
	CP	DKAN2
	JR	Z,U1S0F0
;
	CP	DKAN3
	JR	NZ,U1S0F2
U1S0F0
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	4,E
	JR	NZ,U1S0F2
;
	POP	AF
	LD	A,DNC01
	PUSH	AF
U1S0F2
	LD	A,(DNJNNO)
	CP	DJMAX
	LD	A,(WORK9)
	JR	C,UISDBB	;どうくつだけセーブ！
;	
	CP	DBOMB
	JR	Z,U1S0F3
UISDBB
	CP	DKEYB
	JR	NZ,U1S0F5
U1S0F3
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	6,E
;;	BIT	5,E
	JR	Z,U1S0F5	; ?
;				; Yes !
	POP	AF
	LD	A,DTU08
	PUSH	AF
U1S0F5
;------------------------------------
U1SET
	CP	DTRE0
	JR	NZ,U1S008	; Takara ?
;				
;;	LD	A,(DJSVBF)
;;	AND	%00010000
	BIT	4,E
	JR	Z,U1S008	; Already have ?
;				; yes !
	POP	AF
	LD	A,DTOP0		; open unit set !
	PUSH	AF
;;;;	JR	U1S00C
U1S008
;
;
;	LD	E,A
;	LD	D,$0
;	LD	HL,UNSTDT
;	ADD	HL,DE
;	LD	A,(HL)
;	PUSH	AF
;
	LD	D,$0
	LD	A,(WORK0)
	AND	A
	JR	Z,U1S010
;
	DEC	BC
	LD	A,(BC)
	LD	E,A
	LD	HL,BGUNDT+$11
	ADD	HL,DE
;
	LD	A,(WORK0)
	AND	$0F
	LD	E,A
;
	POP	AF
	LD	D,A
U1S018
	LD	A,D
	LD	(HLI),A
	LD	A,(WORK0)
	AND	%01000000
	JR	Z,U1S020
;
	LD	A,L
	ADD	A,$10-1
	LD	L,A
U1S020
	DEC	E
	JR	NZ,U1S018
;
	INC	BC
U1S00F
	RET
;-------------------------------------
U1S010
	DEC	BC
	LD	A,(BC)
	LD	E,A
	LD	HL,BGUNDT+$11
	ADD	HL,DE
	POP	AF
	LD	(HL),A
	INC	BC
	RET
;-------------------------------------
;BWD0SAD
;	DB          $00,$01
;	DB	    $10,$11
;	DB	    $0FF
;BWD0SNO
;	DB	    WOD00,WOD01
;	DB          WOD02,WOD03
;-------------------------------------
;	PUSH    BC
;;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT
;	ADD	HL,DE
;	LD	BC,BWD0SAD
;;
;	LD	DE,BWD0SNO
;	JP	UNSTSB
;
;;	INC	BC
BWOOD0ST
	DEC	BC
;
	LD	A,(BC)
	ADD	A,$11
	LD	E,A
	AND	$0F
	JR	NZ,BWS010
;
	LD	A,E
	SUB	$10
	LD	E,A
BWS010
	LD	D,$0
	LD	HL,BGUNDT
	ADD	HL,DE
;
	LD	A,(WORK0)
	AND	A
	JR	Z,WD0SUB	; Kahen ?
;				; yes !
	AND	$0F
	LD	E,A
WD0S06
	CALL	WD0SUB
	DEC	BC
;
	LD	A,(WORK0)
	AND	%01000000
	LD	D,$F1
	JR	Z,WD0S08
	LD	D,$0F
WD0S08
	LD	A,L
	ADD	A,D
	LD	L,A
	DEC	E
	JR	NZ,WD0S06
;
	INC	BC
	RET
;-------------------------------------
WD0SUB
;- - Uper set - -
	LD	A,(HL)
	CP	$10  ;WOD00
	LD	A,WOD00
	JR	C,WD0S10	; Already seted ?
	ADD	A,$04		; yes ! mixed unit set !
WD0S10
	LD	(HLI),A
;
	LD	A,(HL)
	CP	$10  ;WOD00
	LD	A,WOD01
	JR	C,WD0S20
	ADD	A,$04
WD0S20
	LD	(HLD),A
;- - Lower set - -
	LD	A,L
	ADD	A,$10
	LD	L,A
;
	LD	A,(HL)
	CP	STB06
	JR	NC,WD0S28
	CP	$10  ;WOD00
	LD	A,WOD02
	JR	C,WD0S30	; Already set->Mix set
;
	LD	A,WOD05
	JR	WD0S30
WD0S28
	LD	A,MWOD1
WD0S30
	LD	(HLI),A
	LD	A,(HL)
	CP	STB06
	JR	NC,WDS038
	CP	$10  ;WOD00
	LD	A,WOD03
	JR	C,WDS050
;
	LD	A,WOD04
	JR	WDS050
WDS038
	LD	A,MWOD2
WDS050
	LD	(HL),A
	INC	BC
	RET
;;-------------------------------------
;BWD1SAD
;	DB          $01,$02
;	DB	$10,$11,$12,$13
;	DB	$20,$21,$22,$23
;	DB	$0FF
;BWD1SNO
;	DB	      WOD00,WOD01
;	DB	WOD00,WOD04,WOD05,WOD01
;	DB	WOD02,WOD03,WOD02,WOD03
;;-------------------------------------
;BWOOD1ST
;	PUSH    BC
;;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT
;	ADD	HL,DE
;	LD	BC,BWD1SAD
;;
;	LD	DE,BWD1SNO
;=========================================
UNSTSB
BWLOOP	
	PUSH	HL
	PUSH	DE
;
	LD	A,(BC)
	LD	E,A
	LD	D,$0
	ADD	HL,DE
	POP	DE
	LD	A,(DE)
;
	CP	ANA00
	JR	Z,SSSS1S
	CP	ANA01
	JR	Z,SSSS1S
	CP	ANA02
	JR	NZ,SSSS2S	; Danjyon in ana ?
SSSS1S				; yes !
	PUSH	AF
	PUSH	HL
	PUSH	DE
;
	LD	A,L
	SUB	$11
	PUSH	AF	;Set address 
;
	LD	A,(DOORCT)	; Door pos save ! For nextgoto !
	LD	E,A
	INC	A
	LD	(DOORCT),A
	LD	D,$00
	LD	HL,DRPSBF
	ADD	HL,DE
	POP	AF
	LD	(HL),A
;
	POP	DE
	POP	HL
	POP	AF
SSSS2S
	LD	(HL),A
	INC	DE
;;;	PUSH	DE
	INC	BC
	POP	HL
	LD	A,(BC)
	AND	A
	CP      $0FF
	JR	NZ,BWLOOP
;
;;;	POP	DE
	POP	BC
;	
	RET
;=========================================
;-------------------------------------
;BWD2SAD
;	DB      $00,$01,$02,$04,$06
;	DB	$11,$14,$15
;	DB	$21,$24,$26
;	DB	$31,$34,$36
;	DB	$0FF
;BWD2SNO
;	DB	IWA00,IWA00,IWA00,IWA00,IWA00
;	DB	IWA00,IWA00,IWA00,IWA00,IWA00
;	DB	IWA00,IWA00,IWA00,IWA00
;;=========================================
;BWOOD2ST
;	PUSH    BC
;;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT
;	ADD	HL,DE
;	LD	BC,BWD2SAD
;;
;	LD	DE,BWD2SNO
;	JP	UNSTSB
;;-------------------------------------
;-------------------------------------
;-------------------------------------
;;-- -- -- -- -- -- -- -- -- --
;BWOOD1ST
;	PUSH	BC
;;
;	DEC 	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT
;	ADD	HL,DE
;;;
;	LD	C,10
;	LD	B,0
;BWD1S10
;	PUSH	HL
;	PUSH	HL
;;
;	LD	HL,BWD1SAD-1
;	ADD	HL,BC
;	LD	A,(HL)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BWD1SNO-1
;	ADD	HL,BC
;	LD	A,(HL)
;;
;	POP	HL
;;
;	ADD	HL,DE
;	LD	(HL),A
;	POP	HL
;	DEC	C
;	JR	NZ,BWD1S10
;;
;	POP	BC
;	RET
;
;-------------------------------------
;-------------------------------------
SEKISAD
	DB      $00,$01,$02
	DB      $10,$11,$12
	DB	$0FF
SEKISNO
	DB	SEKZ0,SEKZ1,SEKZ2
	DB	SEKZ3,ANA02,SEKZ4
	
;-------------------------------------
;-------------------------------------
SEKIZOST
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
	CALL	SSUB
;
	LD	BC,SEKISAD
;
	LD	DE,SEKISNO
	JP	UNSTSB
;-------------------------------------
SSUB
	DEC	BC
	LD	A,(BC)
	LD	E,A
	LD	D,$0
	LD	HL,BGUNDT+$11
	ADD	HL,DE
	RET
;
;-------------------------------------
HOU0SAD
	DB      $00,$01,$02,$03,$04
	DB      $10,$11,$12,$13,$14
	DB      $20,$21,$22,$23,$24
	DB	$0FF
HOU0SNO
	DB	YANE2,YANE7,YANE7,YANE7,YANE3
	DB	YANE4,YANE6,YANE6,YANE6,YANE5
	DB	WIND0,ANA01,WIND0,ANA01,WIND0
;=========================================
HOUSE0ST
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,HOU0SAD
;
	LD	DE,HOU0SNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;HOU1SAD
;	DB      $00,$01,$02
;	DB      $10,$11,$12
;	DB      $20,$21,$22
;	DB      $30,$31,$32
;	DB	$0FF
;HOU1SNO
;	DB	YANE2,YANE7,YANE3
;	DB	YANE0,BETA0,YANE1
;	DB	YANE4,YANE6,YANE5
;	DB	WIND0,ANA01,WIND0
;=========================================
;HOUSE1ST
;	PUSH    BC
;;
;;	DEC	BC
;;	LD	A,(BC)
;;	LD	E,A
;;	LD	D,$0
;;	LD	HL,BGUNDT+$11
;;	ADD	HL,DE
;;
;	CALL	SSUB
;;
;	LD	BC,HOU1SAD
;;
;	LD	DE,HOU1SNO
;	JP	UNSTSB
;;-------------------------------------
;;-------------------------------------
HOU2SAD
;;;MHOKSAD
	DB      $00,$01,$02
	DB      $10,$11,$12
	DB      $20,$21,$22
	DB	$0FF
;	DB      $00,$01,$02
;	DB      $10,$11,$12
;	DB      $20,$21,$22
;	DB	$0FF
HOU2SNO
	DB	YANE2,YANE7,YANE3
	DB	YANE4,YANE6,YANE5
	DB	WIND0,ANA01,WIND0
;=========================================
HOUSE2ST
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,HOU2SAD
;
	LD	DE,HOU2SNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;;;;MHOKSNO
;;;	DB	HKR00,HKR01,HKR00
;;	DB	HKR02,HKR03,HKR04
;;	DB	HKR05,ANA02,HKR06
;=========================================
;;;MHOKORST
;;	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
;;	CALL	SSUB
;
;;	LD	BC,MHOKSAD
;
;;	LD	DE,MHOKSNO
;;	JP	UNSTSB
;-------------------------------------
CASISAD
	DB      $00,$01,$02
	DB      $10,$11,$12
;	DB      $20,$21,$22
;	DB      $30,$31,$32
	DB	$0FF
CASISNO
	DB	CAIN0,CAIN1,CAIN2
	DB	CAIN3,ANA02,CAIN4
;	DB	TIL01,TIL00,TIL01
;	DB	TIL01,TIL01,TIL01
;=========================================
CASINSET
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,CASISAD
;
	LD	DE,CASISNO
	JP	UNSTSB
;=========================================
;=========================================
;=========================================
BOMGSAD
	DB      $00,$01
	DB      $10,$11
	DB	$0FF
BOMGSNO
	DB	BOMG0,BOMG1
	DB	BOMG2,BOMG3
;
BOMG2NO
	DB	STON2,STON2
	DB	STON2,STON2
;=========================================
BOMGZSET
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,BOMGSAD
;
	LD	DE,BOMGSNO
;
	LD	A,(DJSVBF)
	AND	%00000100
	JR	Z,BO2020
;
	LD	DE,BOMG2NO
BO2020
	JP	UNSTSB
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
UWOODAD
	DB      $00,$01
	DB      $10,$11
	DB	$0FF
UWOODNO
	DB	UWOD0,UWOD1
	DB	UWOD2,UWOD3
;=========================================
UWOODSET
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,UWOODAD
;
	LD	DE,UWOODNO
	JP	UNSTSB
;=========================================
;=========================================
;=========================================
TOIREAD
	DB      	$00,$01,$02
	DB     	        $10,$11,$12
	DB          $1F,$20,$21,$22,$23
	DB              $30,$31,$32
	DB	        $0FF
TOIRENO
	DB	      GAK00,GAK01,GAK02
	DB	      GAK10,ANA03,GAK12
	DB	KUSA2,GAK08,GAK04,GAK09,KUSA2
	DB	      KUSA2,KUSA2,KUSA2
;=========================================
TOIRESET
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,TOIREAD
;
	LD	DE,TOIRENO
	JP	UNSTSB
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
PREHBAD
	DB	$00,$01,$02
	DB	$10,$11,$12
	DB	$0FF
PREHBNO
	DB	YANEZ,YANEZ,YANEZ
	DB	WIND0,ANA01,WIND0
;=========================================
PREHBSET
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,PREHBAD
;
	LD	DE,PREHBNO
	JP	UNSTSB
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;=========================================
;-------------------------------------------------------
;[      地下洞窟迷路鍵付扉＆条件付解放扉設立命令群     ]
;-------------------------------------------------------
DKEYUNO
	DB	DKEY0,DKEY1
;=========================================
DKEYUSET
	LD	E,$00
	CALL	DRPSST
;
	LD	A,(DJSVBF)
	AND	%00000100
	JP	NZ,DTURUSET
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DKEYUAD
;
	LD	DE,DKEYUNO
;
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DKEYDNO
	DB	DKEY2,DKEY3
;=========================================
DKEYDSET
	LD	E,$01
	CALL	DRPSST
;
	LD	A,(DJSVBF)
	AND	%00001000
	JP	NZ,DTURDSET
;
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,DKEYDAD
;
	LD	DE,DKEYDNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DKEYLNO
	DB	DKEY4,DKEY5
;=========================================
DKEYLSET
	LD	E,$02
	CALL	DRPSST
;
	LD	A,(DJSVBF)
	AND	%00000010
	JP	NZ,DTURLSET
;
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,DKEYLAD
;
	LD	DE,DKEYLNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DKEYRNO
	DB	DKEY6,DKEY7
;=========================================
DKEYRSET
	LD	E,$03
	CALL	DRPSST
;
	LD	A,(DJSVBF)
	AND	%00000001
	JP	NZ,DTURRSET
;
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,DKEYRAD
;
	LD	DE,DKEYRNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;DSHIUAD
;	DB      $00,$01
;	DB	$0FF
;DSHIUNO
;	DB	DSHI0,DSHI1
;=========================================
DSHIUSET
	LD	E,$04
	CALL	DRPSST
;
;	LD	A,(DJSVBF)
;	AND	%00000100
;	JP	NZ,DTURUSET
;
	LD	A,(SHSTCT)
	OR	%00000001
	LD	(SHSTCT),A
	LD	(SHSTCT2),A
;
	JP	DTURUSET
;
;	PUSH    BC
;;
;	CALL	SSUB
;;
;	LD	BC,DTURUAD
;;
;	LD	DE,DTURUNO
;	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;DSHIDAD
;	DB      $00,$01
;	DB	$0FF
;DSHIDNO
;	DB	DSHI2,DSHI3
;=========================================
DSHIDSET
	LD	E,$05
	CALL	DRPSST
;
;	LD	A,(DJSVBF)
;	AND	%00001000
;	JP	NZ,DTURDSET
;
	LD	A,(SHSTCT)
	OR	%00000010
	LD	(SHSTCT),A
	LD	(SHSTCT2),A
;
	JP	DTURDSET
;
;	PUSH    BC
;;
;	CALL	SSUB
;;
;	LD	BC,DTURDAD
;;
;	LD	DE,DTURDNO
;	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;DSHILAD
;	DB      $00,$10
;	DB	$0FF
;DSHILNO
;	DB	DSHI4,DSHI5
;=========================================
DSHILSET
	LD	E,$06
	CALL	DRPSST
;
;	LD	A,(DJSVBF)
;	AND	%00000010
;	JP	NZ,DTURLSET
;
	LD	A,(SHSTCT)
	OR	%00000100
	LD	(SHSTCT),A
	LD	(SHSTCT2),A
;
	JP	DTURLSET
;
;	PUSH    BC
;;
;	CALL	SSUB
;;
;	LD	BC,DTURLAD
;;
;	LD	DE,DTURLNO
;	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;DSHIRAD
;	DB      $00,$10
;	DB	$0FF
;DSHIRNO
;	DB	DSHI6,DSHI7
;=========================================
DSHIRSET
	LD	E,$07
	CALL	DRPSST
;
;	LD	A,(DJSVBF)
;	AND	%00000001
;	JP	NZ,DTURRSET
;
	LD	A,(SHSTCT)
	OR	%00001000
	LD	(SHSTCT),A
	LD	(SHSTCT2),A
;
	JP	DTURRSET
;
;	PUSH    BC
;;
;	CALL	SSUB
;;
;	LD	BC,DTURRAD
;;
;	LD	DE,DTURRNO
;	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DTURUNO
	DB	DTU00,DTU01
;=========================================
DTURUSET
	LD	A,%00000100
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DTURUAD
;
	LD	DE,DTURUNO
	JP	UNSTSB
;-------------------------------------
TURSTS	; Turo set save data set (for map set)
	PUSH	AF
	LD	A,(GRNDPT)
	LD	E,A
	LD	D,$0
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,TSS010
	CP	DJROOM ;$20
	JR	C,TSS010
	INC	D
TSS010
	LD	HL,DJRMSV
	ADD	HL,DE
	POP	AF
	OR	(HL)
	LD	(HL),A
	LD	(DJSVBF),A	; Save data buffer set !
	RET
;-------------------------------------
DTURDNO
	DB	DTU02,DTU03
;=========================================
DTURDSET
	LD	A,%00001000
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DTURDAD
;
	LD	DE,DTURDNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DTURLNO
	DB	DTU04,DTU05
;=========================================
DTURLSET
	LD	A,%00000010
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DTURLAD
;
	LD	DE,DTURLNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DTURRNO
	DB	DTU06,DTU07
;=========================================
DTURRSET
	LD	A,%00000001
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DTURRAD
;
	LD	DE,DTURRNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DSPCLNO
	DB	DBO00,DBO01
;=========================================
DSPCLSET
	LD	E,$08
	CALL	DRPSST
;
	LD	A,(DJSVBF)
	AND	%00000100
	JP	NZ,DTURUSET
;
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,DSPCLAD
;
	LD	DE,DSPCLNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;-------------------------------------
DRPSST	;シャッター開閉用ポジションセット
	LD	D,$00
	LD	HL,DRUNPS
	ADD	HL,DE
	DEC	BC
	LD	A,(BC)
	LD	(HL),A
;
	PUSH	AF
	AND	$F0
	LD	HL,DROBPY
	ADD	HL,DE
	LD	(HL),A
	POP	AF
	SWAP	A
	AND	$F0
	LD	HL,DROBPX
	ADD	HL,DE
	LD	(HL),A
;
	INC	BC
	RET
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
DOHANNO
	DB	DANA1,DANA2
;=========================================
DOHANSET
	PUSH    BC
;
;	DEC	BC
;	LD	A,(BC)
;	LD	E,A
;	LD	D,$0
;	LD	HL,BGUNDT+$11
;	ADD	HL,DE
;
	CALL	SSUB
;
	LD	BC,DOHANAD
;
	LD	DE,DOHANNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
DKURUNO
	DB	DKUR0,DKUR1
;=========================================
DKURUSET
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DKURUAD
;
	LD	DE,DKURUNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;-------------------------------------
DKUUUNO
	DB	DKUU0,DKUU1
;=========================================
DKUUUSET
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DKUUUAD
;
	LD	DE,DKUUUNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;-------------------------------------
DEXITAD
	DB	$00,$01,$02,$03
	DB	$10,$11,$12,$13
	DB	$20,$21,$22,$23
	DB	$0FF
DEXITNO
	DB	DEXT0,DEXT1,DEXT1,DEXT2
	DB	DEXT3,DEXT4,DEXT5,DEXT6
	DB	DEXT7,DEXT8,DEXT9,DEXTA
;=========================================
DEXITSET
	LD	A,%00001000
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DEXITAD
;
	LD	DE,DEXITNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
DAHOUNO
	DB	DHINL,DHINR
;=========================================
DAHOUSET
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,DAS010
	CP	DJROOM ;$20
	JR	C,DAS010
;
	LD	A,(GRNDPT)
	CP	$0D3
	JR	NZ,DAS010
;
	LD	A,(MANBIKI)
	AND	A
	JR	Z,DAS010
;
	JP	DSHIDSET
DAS010
	LD	A,%00000001
	CALL	TURSTS
;
	PUSH    BC
;
	CALL	SSUB
;
	LD	BC,DAHOUAD
;
	LD	DE,DAHOUNO
	JP	UNSTSB
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
DKEYUAD
;	DB      $00,$01
;	DB	$0FF
DKEYDAD
;	DB      $00,$01
;	DB	$0FF
DTURUAD
;	DB      $00,$01
;	DB	$0FF
DTURDAD
;	DB      $00,$01
;	DB	$0FF
DSPCLAD
;	DB      $00,$01
;	DB	$0FF
DKAIDAD
;	DB      $00,$01
;	DB	$0FF
DKAIUAD
;	DB      $00,$01
;	DB	$0FF
DKURUAD
;	DB      $00,$01
;	DB	$0FF
DKUUUAD
;	DB      $00,$01
;	DB	$0FF
DBOMUAD
;	DB      $00,$01
;	DB	$0FF
DBOMDAD
;	DB      $00,$01
;	DB	$0FF
DBMUADD
;	DB      $00,$01
;	DB	$0FF
DBMDADD
DAHOUAD
	DB      $00,$01
	DB	$0FF
DKEYLAD
;	DB      $00,$10
;	DB	$0FF
DKEYRAD
;	DB      $00,$10
;	DB	$0FF
DTURLAD
;	DB      $00,$10
;	DB	$0FF
DTURRAD
;	DB      $00,$10
;	DB	$0FF
DOHANAD
;	DB      $00,$10
;	DB	$0FF
DBOMLAD
;	DB      $00,$10
;	DB	$0FF
DBOMRAD
;	DB      $00,$10
;	DB	$0FF
DBMLADD
;	DB      $00,$10
;	DB	$0FF
DBMRADD
	DB      $00,$10
	DB	$0FF
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;-------------------------------------
;================================================
;  Back ground BG set
BACKBS
	LD	(ENHELP2),A	; BASE NO.
;	PUSH	AF
;;
;	LD	D,$00
;;
;	LD	HL,BGUNDT
;	LD	A,$FF		; Display oyt data !
;GBDS02
;	LD	(HLI),A
;	DEC	D
;	JR	NZ,GBDS02
;
;	POP	AF
;	RST	0
;	DW	NUKI0SST
;	DW	KUSA0SST
;	DW	KUSA1SST
;	DW	SABAKSST
;	DW	BETA2SST
;;---------------------------------------------
;BETA2SST
;	LD	A,BETA2
;	JR	BKS010
;NUKI0SST
;	LD	A,NUKI0
;	JR	BKS010
;KUSA1SST
;	LD	A,KUSA1
;	JR	BKS010
;KUSA0SST
;	LD	A,KUSA0
;	JR	BKS010
;SABAKSST
;	LD	A,SUNA0
;BKS010
;---------------------------------
	LD	D,$80
;
	LD	HL,BGUNDT+$11
	LD	E,A
GBDS08
	LD	A,L
	AND	$0F
	JR	Z,GBDS0A
	CP	$0A+1
	JR	NC,GBDS0A	; Display out not set !
;
;;	LD	A,E
	LD	(HL),E ;A
GBDS0A
	INC	HL
;
	DEC	D
	JR	NZ,GBDS08
;
	RET
;- - - 
;---------------------------------------------------------------
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	Enemy set data            		       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;==================================
ENDTST
	LD	A,$01
	LD	($2100),A
	CALL	ENBTCK		; Room bit on off clear check !!
;
	LD	A,$16
;;	LD	A,$08
	LD	($2100),A
;
	XOR	A
	LD	(WORKD),A	; Enemy jyunban set count !
;
	LD	A,(GRNDPT)
	LD	C,A
	LD	B,$00
	SLA	C
	RL	B
;
	LD	HL,GRENAD
;
	LD	A,(DJFLAG)
	AND	A
	JR	Z,EDS008	; Danjyon ?
;				; yes !
	LD	A,(DNJNNO)
	CP	$06
	JR	NZ,EDS0030	;Level 7?
;				;yes !
	LD	A,(TAMA0PT)
	LD	HL,GRNDPT
	CP	(HL)
	JR	NZ,EDS0030	;テッキュウがある部屋？
;				;YES !
	LD	A,TAMA0
	CALL	ENIDSHL
;
	LD	A,(TAMA0XP)
	LD	HL,ENXPSL
	ADD	HL,DE
	LD	(HL),A
;
	LD	A,(TAMA0YP)
	LD	HL,ENYPSL
	ADD	HL,DE
	LD	(HL),A
;
	CALL	ENIS00C
;;	CALL	ENIS010
;
	LD	HL,ENJYUN
	ADD	HL,DE
	LD	(HL),$FF
;
	XOR	A
	LD	(WORKD),A
EDS0030
	LD	HL,DJENAD
	LD	A,(DNJNNO)
	CP	DJROOM2 ;$20
	JR	NC,EDS010
	CP	DJROOM ;$20
	JR	C,EDS010
;
	INC	H
	INC	H
;
;;;	JR	EDS010
EDS008
EDS010
	ADD	HL,BC
	LD	A,(HLI)
	LD	C,A
	LD	A,(HL)
	LD	B,A		; (BC):Data addr.
GEDS0C
	LD	A,(BC)
	CP	$FF
	JR	Z,GEDS10	; End ?
;
	CALL	ENITST
	JR	GEDS0C
GEDS10
;LD	A,$01
;LD	($2100),A
	CALL	PBRETN
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%				       %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ENCKBT
	DB	%00000001
	DB	%00000010
	DB	%00000100
	DB	%00001000
	DB	%00010000
	DB	%00100000
	DB	%01000000
	DB	%10000000
;------------------------------------------
ENITST
	LD	A,(WORKD)
	CP	$08
	JR	NC,ENIS08
	LD	E,A
	LD	D,$00
	LD	HL,ENCKBT
	ADD	HL,DE
;
	LD	A,(GRNDPT)
	LD	E,A
;;	LD	D,$00
	LD	A,(HL)
	LD	HL,ENONOF
	ADD	HL,DE
	AND	(HL)
	JR	NZ,ENIS18	; Fail enemy ?
;				; yes !
ENIS08
	LD	E,$00
	LD	D,E  ;$00
ENIS10
	LD	HL,ENMODE
	ADD	HL,DE
	LD	A,(HL)
	CP	$00
	JR	Z,ENIS20
	INC	E
	LD	A,E
	CP	$10  ;FF
	JR	NZ,ENIS10
;
ENIS18
	LD	HL,WORKD
	INC	(HL)
;
	INC	BC
	INC	BC
	RET
;- - - - - - - - - - - - - - - - - -
ENIS20
;;;;;;;	LD	A,EINIT
	LD	(HL),EINIT ;A
;
;	XOR	A
;	LD	HL,ENXPSH
;	ADD	HL,DE
;	LD	(HL),A
;	LD	HL,ENYPSH
;	ADD	HL,DE
;	LD	(HL),A
;
	LD	A,(BC)
	AND	$F0
	LD	HL,ENYPSL
	ADD	HL,DE
	ADD	A,$10
	LD	(HL),A
;
	LD	A,(BC)
	INC	BC
	SWAP	A
	AND	$F0
	LD	HL,ENXPSL
	ADD	HL,DE
	ADD	A,$08
	LD	(HL),A
;
	LD	HL,ENMYNO
	ADD	HL,DE
	LD	A,(BC)
	INC	BC
	LD	(HL),A
;
ENIS00C
	LD	A,$03
	LD	($2100),A
	CALL	ENMDST2
;
ENIS010
	LD	A,$01
	LD	($2100),A
;
	CALL	ENISSUB
;
	LD	A,$16   ;(PBANK)
;;	LD	A,$08   ;(PBANK)
	LD	($2100),A
	RET
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%      地下洞窟迷路基本家屋建築      %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
DJRMST
	LD	E,A
;
	LD	A,$14
	LD	($2100),A
;
	LD	A,E
	PUSH	BC
	CALL	DJRMSTS
	POP	BC
	LD	A,(ENHELP) ;$A
;;	LD	A,(PBANK)
	LD	($2100),A
;;	JP	PBRETN
	RET
;=============================================
GMAPCHST
	LD	A,$01
	LD	($2100),A
;
	CALL	GMCHSB
;
	RET
;---------------------------------------------------------------
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
;EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE
	END
;---------------------------------------------------------------




;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;%	柴原 サブるうちん　２	    %
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
MSVRSV
	LD	A,(SCVRMH)
	ADD	A,$98
	LD	H,A
;
	XOR	A
	LD	E,A
	LD	D,A
	LD	BC,MSBGBF
	LD	A,(SCVRML)
	ADD	A,$C1
	LD	L,A
	LD	(WORK0),A
;
MSV02
	LD	A,(HL)
	LD	(BC),A
	INC	BC
;
	LD	A,L
	ADD	A,$01
	AND	$1F
	JR	NZ,LSTA
;
	LD	A,L
	AND	$E0
	LD	L,A
	JR	RSTA
;
LSTA
	INC	L
RSTA
	INC	E
	LD	A,E
	CP	$12
	JR	NZ,MSV02
;
	LD	E,$00
	LD	A,(WORK0)
	ADD	A,$20
	LD	(WORK0),A
	JR	NC,HSORT
;
	INC	H
HSORT
	LD	L,A
	INC	D
	LD	A,D
	CP	$05
	JR	NZ,MSV02
;
	RET
;

;     0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F  
 DB $00,$50,$00,$00,$00,$80,$81,$80,$81,$82,$83,$82,$83,$00,$00,$81 ;0
 DB $80,$82,$83,$84,$85,$86,$87,$00,$8C,$8D,$51,$51,$51,$51,$00,$00 ;1
 DB $30,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$90,$90,$91 ;2
 DB $91,$92,$92,$93,$93,$94,$94,$95,$95,$96,$96,$97,$97,$80,$81,$80 ;3
 DB $81,$82,$83,$82,$83,$01,$01,$99,$99,$9A,$9A,$9B,$9B,$9C,$9C,$01 ;4
 DB $01,$00,$00,$B1,$B1,$00,$B0,$B0,$01,$01,$01,$01,$01,$00,$00,$00 ;5
 DB $00,$00,$00,$00,$00,$01,$01,$01,$01,$01,$00,$00,$B1,$B1,$00,$01 ;6
 DB $B1,$B1,$B0,$B0,$B0,$B0,$B1,$B0,$B0,$B0,$01,$01,$01,$01,$01,$01 ;7
;     0   1   2   3   4   5   6   7   8   9   A   B   C   D   E   F  
 DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01 ;8
 DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$00,$00,$00 ;9
 DB $01,$01,$A0,$A0,$98,$98,$01,$01,$02,$30,$00,$01,$01,$01,$50,$50 ;A
 DB $50,$80,$81,$00,$00,$00,$8B,$8A,$8B,$8A,$01,$80,$81,$01,$A0,$A0 ;B
 DB $01,$80,$81,$01,$01,$01,$01,$01,$01,$01,$01,$A0,$02,$82,$01,$F0 ;C
 DB $F1,$F2,$F3,$83,$E0,$01,$01,$01,$01,$04,$04,$04,$04,$30,$01,$00 ;D
 DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01 ;E
 DB $01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$01,$FE,$FF ;F